<search for> print FILE qq~$membershiptotal|$member{'username'}~; fclose(FILE);</search for>
<search for> my $membershiptotal = @memberlist + 1; my $membershiptotalx = @memberlist; if($regop != 3) { fopen(FILE, "+>$memberdir/members.ttl"); print FILE qq~$membershiptotal|$member{'username'}~; fclose(FILE); }else { fopen(FILE, "$memberdir/members.ttl"); $tmpb = <FILE>; fclose(FILE); ($tmp, $tmpa) = split(/\|/, $tmpb); fopen(FILE, "+>$memberdir/members.ttl"); print FILE qq~$membershiptotalx|$tmpa~; fclose(FILE); }</search for>
&WriteLog; # Write to the log
if ($action eq "") { &WriteLog; }
No matching search string found for if ($action eq "") { &WriteLog; }
Untrapped Error:Can't call method "modsetting" on an undefined value at ./Sources/AdminEdit.pl line 1. Compilation failed in require at /home/.sites/70/site4/web/cgi-bin/yabb/YaBB.pl line 96.
modsetting################################################################################ AdminEdit.pl ################################################################################# YaBB: Yet another Bulletin Board ## Open-Source Community Software for Webmasters #
if($settings[7] ne "Administrator") { $member{'dr'} = $settings[14]; }
if($member{'websiteurl'} !~ m~\Ahttp://~ && $member{'websiteurl'} ne "") { $member{'websiteurl'} = "http://$member{'websiteurl'}"; }
$barsdir = "../../httpdocs/YaMSbars"; # Absolute Path to your bars folder$barsurl = "http://www.edivaonline.com/YaMSbars"; # URL to your bars folder
if (!$barsdir) {fopen(FILE, "$boarddir/Settings.pl");@setedit = <FILE>;fclose(FILE);fopen(FILE, ">$boarddir/Settings.pl"); foreach $line (@setedit) { chomp($line); if ($line eq "########## Directories/Files ##########") { print FILE "########## Directories/Files ##########\n\n\$barsdir = \"$boarddir/YaBBImages/YaMSbars\"; # Absolute Path to your YaMS bars folder\n\$barsurl = \"$boardurl/YaBBImages/YaMSbars\"; # URL to your YaMS bars folder"; } else { print FILE "$line\n"; } }fclose(FILE);}
if ($icqsetting eq "") { $icqsetting = 1; }
$membtxt{'23'} = "#";
$membtxt{'23'} = "Member #";
else { $displaynumb = qq~$membtxt{'23'} $number[0]~; }
else { $displaynumb = qq~Member $membtxt{'23'} $number[0]~; }
$membtxt{'23a'} = "Member #";
else { $displaynumb = qq~$membtxt{'23a'} $number[0]~; }
print $curline;
unless(0) { stab("LoonyPandora"); next; }
if if(-e "$memberdir/$currentmem.bud") {
(-e "$memberdir/$currentmem.siz") { unlink("$memberdir/$currentmem.siz"); }
if(-e "$memberdir/$currentmem.siz") { unlink("$memberdir/$currentmem.siz"); }
require "$sourcedir/ExtendedProfiles.pl";my $additional_headers = ext_memberlist_tableheader();my $headercount = 7 + ext_memberlist_get_headercount($additional_headers);
.titlebg {background-color: #FFB903; color: #000000; background: white url("http://www.your-domain.com/YaBBImag/titlebg.jpg"); }