<author="Opfer">
<modname="Category and Board Backgrounds">
<version="1.7">
<boardversion="9.5">
<site="www.FreePerl.de.vu">
<desc="A mod that allows you to change the background/text color/image of the categories and the boards.">
<openfile="Code/ManageForum.pl" writes="6">
<mod search="1">
<table cellpadding="5" cellspacing="0" width="100%">
<tr>
<td width="50%" align="right"><b>$managecats[4]:</b></td>
<td width="50%" valign="top"><input type="text" class="textinput" size="25" name="name" value="$name"></td>
</tr><tr>
<td align="right" width="50%" valign="top"><b>$managecats[26]:</b></td>
<td width="50%" valign="top"><textarea name="catdesc" rows=3 cols=50 wrap=virtual>$catdesc</textarea></td>
</tr><tr>
<td width="50%" align="right"><b>$managecats[5]:</b></td>
<td width="50%" valign="top">$id</td>
</tr><tr>
<td width="50%" align="right" valign="top"><b>$managecats[6]:</b><br><span class="smalltext">$managecats[7]</span></td>
<td width="50%" valign="top"><select name="memgrp" size="6" multiple>
EOT
foreach(split(',',$membergrp)) { $t2{$_} = ' selected'; }
push(@fullgroups,('member','validating','guest'));
$permissions{'member','name'} = $managecats[40];
$permissions{'guest','name'} = $managecats[41];
$permissions{'validating','name'} = $managecats[42];
$ebout .= qq~<optgroup label="$managecats[31]">~;
foreach(@fullgroups) {
if($permissions{$_,'pcount'} ne '' || $_ eq 'Moderators') { next; }
if($_ eq 'member') { $ebout .= qq~</optgroup><optgroup label="$managecats[32]">~; }
$ebout .= qq~<option value="$_"$t2{$_}>$permissions{$_,'name'}</option>~;
}
$ebout .= <<"EOT";
</optgroup></select>
</td>
</tr>
</table>
</mod end>
<mod write="1" action="2">
<table cellpadding="5" cellspacing="0" width="100%">
<tr>
<td width="50%" align="right"><b>$managecats[4]:</b></td>
<td width="50%" valign="top"><input type="text" class="textinput" size="25" name="name" value="$name"></td>
</tr><tr>
<td align="right" width="50%" valign="top"><b>$managecats[26]:</b></td>
<td width="50%" valign="top"><textarea name="catdesc" rows=3 cols=50 wrap=virtual>$catdesc</textarea></td>
</tr><tr>
<td width="50%" align="right"><b>$managecats[5]:</b></td>
<td width="50%" valign="top">$id</td>
</tr><tr>
<td width="50%" align="right" valign="top"><b>$managecats[6]:</b><br><span class="smalltext">$managecats[7]</span></td>
<td width="50%" valign="top"><select name="memgrp" size="6" multiple>
EOT
foreach(split(',',$membergrp)) { $t2{$_} = ' selected'; }
push(@fullgroups,('member','validating','guest'));
$permissions{'member','name'} = $managecats[40];
$permissions{'guest','name'} = $managecats[41];
$permissions{'validating','name'} = $managecats[42];
$ebout .= qq~<optgroup label="$managecats[31]">~;
foreach(@fullgroups) {
if($permissions{$_,'pcount'} ne '' || $_ eq 'Moderators') { next; }
if($_ eq 'member') { $ebout .= qq~</optgroup><optgroup label="$managecats[32]">~; }
$ebout .= qq~<option value="$_"$t2{$_}>$permissions{$_,'name'}</option>~;
}
$ebout .= <<"EOT";
</optgroup></select>
</td>
</tr><tr>
<td width="50%" align="right"><b>$managecats[13] 1:</b></td>
<td width="50%" valign="top"><input type="text" class="textinput" size="25" name="bgcolor1" value="$bgcolor1"></td>
</tr><tr>
<td width="50%" align="right"><b>$managecats[13] 2:</b></td>
<td width="50%" valign="top"><input type="text" class="textinput" size="25" name="bgcolor2" value="$bgcolor2"></td>
</tr><tr>
<td width="50%" align="right"><b>$managecats[14]:</b></td>
<td width="50%" valign="top"><input type="text" class="textinput" size="25" name="textcolor" value="$textcolor"></td>
</tr><tr>
<td width="50%" align="right"><b>$managecats[15]:</b></td>
<td width="50%" valign="top"><input type="text" class="textinput" size="25" name="bgimg" value="$bgimg"></td>
</tr>
</table>
</mod end>
<mod search="2">
sub EditCatsR {
if($URL{'remove'} eq 'remove' || $URL{'p'} == 3) { DelCats(); }
if($URL{'p'} == 2) { EditCats2(); }
if($URL{'p'} eq 'move') { MoveCat(); }
if($URL{'n'} != 1) {
$title = "$managecats[1]: ";
foreach (@catbase) {
($name,$id,$membergrp,$t,$catdesc) = split(/\|/,$_);
if($id eq $URL{'id'}) {
$title .= $name;
last;
}
}
</mod end>
<mod write="2" action="2">
sub EditCatsR {
if($URL{'remove'} eq 'remove' || $URL{'p'} == 3) { DelCats(); }
if($URL{'p'} == 2) { EditCats2(); }
if($URL{'p'} eq 'move') { MoveCat(); }
if($URL{'n'} != 1) {
$title = "$managecats[1]: ";
foreach (@catbase) {
($name,$id,$membergrp,$t,$catdesc,$t,$bgcolor1,$bgcolor2,$textcolor,$bgimg) = split(/\|/,$_);
if($id eq $URL{'id'}) {
$title .= $name;
last;
}
}
</mod end>
<mod search="3">
sub EditCats2 {
if($FORM{'name'} eq '') { error($gtxt{'bfield'}); }
$name = Format($FORM{'name'});
foreach(split(",",$FORM{'memgrp'})) {
if($_ eq '') { next; }
$memgrp .= Format($_).',';
}
$memgrp =~ s/,\Z//g;
$catdesc = Format($FORM{'catdesc'});
$ids = Format($FORM{'id'});
$ids =~ s/[#%+,\\\/:?"<>'| @^\$\&~'\)\(\]\[\;{}!`=-]//g;
if($ids eq '' && $URL{'n'}) { error($gtxt{'bfield'}); }
foreach(@catbase) {
($xname,$id,$xmemgrp,$bds,$xcatdesc,$subcats) = split(/\|/,$_);
if($URL{'n'} && (lc($id) eq lc($FORM{'id'}))) { error($managecats[17]); }
if($URL{'n'} && $URL{'l'} eq $id) {
$subcats =~ s/\/\Z//g;
if($subcats) { $subcats .= "/$ids"; } else { $subcats = $ids; }
$update .= "$xname|$id|$xmemgrp|$bds|$xcatdesc|$subcats\n";
}
elsif($id eq $URL{'id'}) { $update .= "$name|$id|$memgrp|$bds|$catdesc|$subcats\n"; } else { $update .= "$_\n"; }
}
if($URL{'n'}) { $update .= "$name|$ids|$memgrp||$catdesc|\n"; }
fopen(FILE,"+>$boards/bdscats.db");
print FILE $update;
fclose(FILE);
redirect("$surl\lv-admin/a-boards/");
}
</mod end>
<mod write="3" action="2">
sub EditCats2 {
if($FORM{'name'} eq '') { error($gtxt{'bfield'}); }
$name = Format($FORM{'name'});
$bgcolor1 = $FORM{'bgcolor1'};
$bgcolor2 = $FORM{'bgcolor2'};
$textcolor = $FORM{'textcolor'};
$bgimg = $FORM{'bgimg'};
foreach(split(",",$FORM{'memgrp'})) {
if($_ eq '') { next; }
$memgrp .= Format($_).',';
}
$memgrp =~ s/,\Z//g;
$catdesc = Format($FORM{'catdesc'});
$ids = Format($FORM{'id'});
$ids =~ s/[#%+,\\\/:?"<>'| @^\$\&~'\)\(\]\[\;{}!`=-]//g;
if($ids eq '' && $URL{'n'}) { error($gtxt{'bfield'}); }
foreach(@catbase) {
($xname,$id,$xmemgrp,$bds,$xcatdesc,$subcats) = split(/\|/,$_);
if($URL{'n'} && (lc($id) eq lc($FORM{'id'}))) { error($managecats[17]); }
if($URL{'n'} && $URL{'l'} eq $id) {
$subcats =~ s/\/\Z//g;
if($subcats) { $subcats .= "/$ids"; } else { $subcats = $ids; }
$update .= "$xname|$id|$xmemgrp|$bds|$xcatdesc|$subcats\n";
}
elsif($id eq $URL{'id'}) { $update .= "$name|$id|$memgrp|$bds|$catdesc|$subcats|$bgcolor1|$bgcolor2|$textcolor|$bgimg\n"; } else { $update .= "$_\n"; }
}
if($URL{'n'}) { $update .= "$name|$ids|$memgrp||$catdesc||$bgcolor1|$bgcolor2|$textcolor|$bgimg\n"; }
fopen(FILE,"+>$boards/bdscats.db");
print FILE $update;
fclose(FILE);
redirect("$surl\lv-admin/a-boards/");
}
</mod end>
<mod search="4">
<table cellpadding="5" cellspacing="0" width="100%">
<tr>
<td align="center" valign="top"><input type="checkbox" class="checkboxinput" name="pcnt" value="1"$PC{'1'}></td>
<td><b>$manageboards[63]:</b><br><span class="smalltext">$manageboards[64]</span></td>
</tr><tr>
<td align="center" valign="top"><input type="checkbox" class="checkboxinput" name="email" value="1"$E{'1'}></td>
<td><b>$manageboards[26]</b><br><span class="smalltext">$manageboards[27]</span></td>
</tr><tr>
<td align="center" valign="top"><input type="checkbox" class="checkboxinput" name="voting" value="1"$V{'1'}></td>
<td><b>$managecats[21]</b></td>
</tr><tr>
<td colspan="2"><b>$managecats[24]:</b></td>
</tr><tr>
<td colspan="2" style="padding-left: 25px;"><input type="text" class="textinput" name="redirurl" value="$bdisc[12]" size="50"><div class="smalltext"><br>$managecats[25]</div></td>
</tr><tr>
<td colspan="2"><b>$manageboards[24]:</b></td>
</tr><tr>
<td colspan="2" style="padding-left: 25px;"><input type="password" class="textinput" name="password" value="$bdisc[6]" size="15"></td>
</tr>
</table>
</mod end>
<mod write="4" action="2">
<table cellpadding="5" cellspacing="0" width="100%">
<tr>
<td><input type="checkbox" class="checkboxinput" name="pcnt" value="1"$PC{'1'}></td>
<td><b>$manageboards[63]:</b><br><span class="smalltext">$manageboards[64]</span></td>
</tr><tr>
<td><input type="checkbox" class="checkboxinput" name="email" value="1"$E{'1'}></td>
<td><b>$manageboards[26]</b><br><span class="smalltext">$manageboards[27]</span></td>
</tr><tr>
<td><input type="checkbox" class="checkboxinput" name="voting" value="1"$V{'1'}></td>
<td><b>$managecats[21]</b></td>
</tr><tr>
<td colspan="2"><b>$managecats[24]:</b></td>
</tr><tr>
<td colspan="2" style="padding-left: 25px;"><input type="text" class="textinput" name="redirurl" value="$bdisc[12]" size="50"><div class="smalltext"><br>$managecats[25]</div></td>
</tr><tr>
<td colspan="2"><b>$manageboards[24]:</b></td>
</tr><tr>
<td colspan="2" style="padding-left: 25px;"><input type="password" class="textinput" name="password" value="$bdisc[6]" size="15"></td>
</tr><tr>
<td><b>$managecats[13] 1:</b></td>
<td><input type="text" class="textinput" name="bgcolor1" value="$bgcolor1" size="40"></td>
</tr><tr>
<td><b>$managecats[13] 2:</b></td>
<td><input type="text" class="textinput" name="bgcolor2" value="$bgcolor2" size="40"></td>
</tr><tr>
<td><b>$managecats[14]:</b></td>
<td><input type="text" class="textinput" name="textcolor" value="$textcolor" size="40"></td>
</tr><tr>
<td><b>$managecats[15]:</b></td>
<td><input type="text" class="textinput" name="bgimg" value="$bgimg" size="40"></td>
</tr>
</table>
</mod end>
<mod search="5">
if($URL{'n'} != 1) {
foreach (@catbase) {
($t,$t,$t,$input) = split(/\|/,$_);
if($input ne '') { @randoms = split("/",$input); } else { next; }
foreach(@randoms) {
if($_ eq $board) { $fnd = 1; last; }
}
}
if($fnd != 1) { error("$gtxt{'error2'}: $board"); }
foreach(@boardbase) {
($bdid,$bdisc[0],$bdisc[1],$bdisc[2],$bdisc[3],$bdisc[4],$bdisc[5],$bdisc[6],$bdisc[7],$bdisc[8],$bdisc[9],$bdisc[10],$bdisc[11],$bdisc[12],$bdisc[13],$bdisc[14],$bdisc[15]) = split("/",$_);
if($bdid eq $board) { last; }
}
foreach(split(/\|/,$bdisc[1])) {
if($_ =~ /\((.+?)\)/) { $mods{$1} = ' selected'; next; }
$mods .= "$_\n";
}
$mods =~ s/,\Z//;
$boardid = "$board";
$remove = qq~ <input type="submit" class="button" name="remove" value=" $manageboards[10] ">~;
}
</mod end>
<mod write="5" action="2">
if($URL{'n'} != 1) {
foreach (@catbase) {
($t,$t,$t,$input) = split(/\|/,$_);
if($input ne '') { @randoms = split("/",$input); } else { next; }
foreach(@randoms) {
if($_ eq $board) { $fnd = 1; last; }
}
}
if($fnd != 1) { error("$gtxt{'error2'}: $board"); }
foreach(@boardbase) {
($bdid,$bdisc[0],$bdisc[1],$bdisc[2],$bdisc[3],$bdisc[4],$bdisc[5],$bdisc[6],$bdisc[7],$bdisc[8],$bdisc[9],$bdisc[10],$bdisc[11],$bdisc[12],$bdisc[13],$bdisc[14],$bdisc[15],$bgcolor1,$bgcolor2,$textcolor,$bgimg) = split("/",$_);
if($bdid eq $board) { last; }
}
foreach(split(/\|/,$bdisc[1])) {
if($_ =~ /\((.+?)\)/) { $mods{$1} = ' selected'; next; }
$mods .= "$_\n";
}
$mods =~ s/,\Z//;
$boardid = "$board";
$remove = qq~ <input type="submit" class="button" name="remove" value=" $manageboards[10] ">~;
}
</mod end>
<mod search="6">
print FILE "$board/$desc/$modss/$bname/$startthreads/$replythreads/$polls/$password/$FORM{'email'}/$FORM{'pcnt'}/$allowaccess/$FORM{'voting'}/$upload/$redirurl/$bgfx/$readmess\n";
</mod end>
<mod write="6" action="2">
$FORM{'bgimg'} =~ s/\////g;
print FILE "$board/$desc/$modss/$bname/$startthreads/$replythreads/$polls/$password/$FORM{'email'}/$FORM{'pcnt'}/$allowaccess/$FORM{'voting'}/$upload/$redirurl/$bgfx/$readmess//$FORM{'bgcolor1'}/$FORM{'bgcolor2'}/$FORM{'textcolor'}/$FORM{'bgimg'}\n";
</mod end>
<openfile="Code/BoardIndex.pl" writes="3">
<mod search="1">
foreach(@cats) {
if($noshow{$_} || $URL{'c'} && $URL{'c'} ne $_) { next; }
($name,$boardid,$memgroups,$boardlist,$message,$subcats) = split(/\|/,$catbase{$_});
if(GetMemberAccess($memgroups) == 0) { next; }
BC(); $catdesc = $message ? qq~<tr><td colspan="5" class="win3"><span class="smalltext"><div style="padding-left: 3px; line-height: 130%;">$message</div></span></td></tr>~ : '';
$rollup = !$catshow{$boardid} ? 'minimize' : 'expand';
$rollup = $username ne 'Guest' ? qq~<a href="$surl\la-tog/cat-$boardid/"><img src="$images/$rollup.gif" border="0"></a>~ : '';
if($catshown) { $ebout .= '</table><br>'; } else { $catshown = 1; }
$ebout .= <<"EOT";
<table cellpadding="5" cellspacing="1" class="border" width="100%">
<tr>
<td colspan="5" class="titlebg">
<table cellpadding="1" cellspacing="0" width="100%">
<tr>
<td class="titlebgtext"><b><a href="$surl\lc-$boardid/">$name</a></b></td>
<td align="right" valign="top">$rollup</td>
</tr>
</table>
</td>
</tr>$catdesc
EOT
</mod end>
<mod write="1" action="2">
foreach(@cats) {
if($noshow{$_} || $URL{'c'} && $URL{'c'} ne $_) { next; }
($name,$boardid,$memgroups,$boardlist,$message,$subcats,$bgcolor1,$bgcolor2,$textcolor,$bgimg) = split(/\|/,$catbase{$_});
if($bgcolor1 || $bgimg) { if($bgimg) { $bgimg = "url('$bgimg')" } $bg = qq~background: $bgcolor1 $bgimg;~ } else { $bg = '' }
if($textcolor) { $text = qq~color: $textcolor;~ } else { $text = '' }
if($bg || $text) { $style = qq~style="$bg $text"~ } else { $style = '' }
if(GetMemberAccess($memgroups) == 0) { next; }
BC(); $catdesc = $message ? qq~<tr><td colspan="5" class="win3" $style><span class="smalltext"><div style="padding-left: 3px; line-height: 130%;">$message</div></span></td></tr>~ : '';
$rollup = !$catshow{$boardid} ? 'minimize' : 'expand';
$rollup = $username ne 'Guest' ? qq~<a href="$surl\la-tog/cat-$boardid/"><img src="$images/$rollup.gif" border="0"></a>~ : '';
if($catshown) { $ebout .= '</table><br>'; } else { $catshown = 1; }
$ebout .= <<"EOT";
<table cellpadding="5" cellspacing="1" class="border" width="100%">
<tr>
<td colspan="5" class="titlebg" $style>
<table cellpadding="1" cellspacing="0" width="100%">
<tr>
<td class="titlebgtext"><b><a style="$text" href="$surl\lc-$boardid/">$name</a></b></td>
<td align="right" valign="top">$rollup</td>
</tr>
</table>
</td>
</tr>$catdesc
EOT
</mod end>
<mod search="2">
sub GetSubCats {
my($cats,$msubcats);
@boardlists = ();
foreach $nohere (split(/\//,$subcats)) {
if($catbase{$nohere} eq '') { next; }
$subboards = $maxlastdate = 0;
$icon = $sflist = $lastpost = $posts = $topics = '';
($name,$t,$memgroups,$boardlist,$message,$msubcats) = split(/\|/,$catbase{$nohere});
BC();
if(!GetMemberAccess($memgroups)) { next; }
@boardlists = split(/\//,$boardlist);
foreach $subcat (split(/\//,$msubcats)) { GetMSubs($subcat); }
foreach $board (@boardlists) {
++$subboards;
($daid,$t,$t,$sflname,$t,$t,$t,$binfo[6],$t,$t,$grp,$t,$t,$redir) = split("/",$board{$board});
if($binfo[6] ne '' && (($Blah{"$board\_pw"} ne $binfo[6] && !$members{'Administrator',$username}) || $username eq 'Guest')) { next; }
if($subboards <= 4 && GetMemberAccess($grp)) { $sflist .= qq~<a href="$surl\lb-$daid/">$sflname</a>, ~; }
if($redir) { next; }
# Get the post totals
fopen(FILE,"$boards/$board.ino");
@postinfo = <FILE>;
fclose(FILE);
chomp @postinfo;
$posts += $postinfo[1];
$topics += $postinfo[0];
$bp += $postinfo[1];
$bt += $postinfo[0];
++$bcnt;
fopen(FILE,"$boards/$board.msg");
while(<FILE>) {
chomp;
($tmid,$mtitle,$t,$t,$t,$t,$t,$icon,$lastdate,$lastuser) = split(/\|/,$_);
if($lastdate > $maxlastdate) { $maxlastdate = $lastdate; $lastpost = "$board|$mtitle|$icon|$lastuser"; }
last;
}
fclose(FILE);
}
$sflist =~ s/, \Z//g;
if($sflist eq '') { $sflist = $boardindex[46]; }
if($lastpost) {
($board,$mtitle,$icon,$lastuser) = split(/\|/,$lastpost);
GetBoardData($mtitle,$maxlastdate,$lastuser,$board,$binfo[6],$tmid);
$icon = $icon ne 'xx' && $icon ne '' ? qq~<td width="20" align="center"><img src="$images/$icon.gif"></td>~ : '';
if($foundnew) { $new = 'cat_off'; $alt = $boardindex[9]; }
else { $new = 'cat_on'; $alt = $boardindex[10]; }
} else { $new = 'cat_off'; $alt = $boardindex[9]; $lastpost = $gtxt{'13'}; }
$posts = MakeComma($posts);
$topics = MakeComma($topics);
$ebout .= <<"EOT";
<tr>
<td class="win" align="center" valign="top" style="width: 30px; padding: 7px;"><img src="$images/$new.gif" alt="$alt"></td>
<td class="win2" valign="top"><b><a href="$surl\lc-$nohere/">$name</a></b><span class="smalltext"><div style="padding-left: 2px;">$message<div style="line-height: 200%;"><b>$boardindex[74]:</b> $sflist</div></div></span></td>
<td class="win" align="center"><b>$topics</b></td>
<td class="win" align="center"><b>$posts</b></td>
<td class="win2" valign="top" width="205"><table cellpadding="2" cellspacing="0">
<tr>
<td valign="top" width="190"><span class="smalltext">$lastpost</span></td>$icon
</tr>
</table></td>
</tr>
EOT
$catdisabled = 1;
}
}
</mod end>
<mod write="2" action="2">
sub GetSubCats {
my($cats,$msubcats);
@boardlists = ();
foreach $nohere (split(/\//,$subcats)) {
if($catbase{$nohere} eq '') { next; }
$subboards = $maxlastdate = 0;
$icon = $sflist = $lastpost = $posts = $topics = '';
($name,$t,$memgroups,$boardlist,$message,$msubcats,$bgcolor1,$bgcolor2,$textcolor,$bgimg) = split(/\|/,$catbase{$nohere});
if($bgcolor1 || $bgimg) { $bg1 = qq~background: $bgcolor1 url('$bgimg');~ } else { $bg1 = '' }
if($bgcolor2 || $bgimg) { $bg2 = qq~background: $bgcolor2 url('$bgimg');~ } else { $bg2 = '' }
if($textcolor) { $text = qq~color: $textcolor;~ } else { $text = '' }
if($bg1 || $text) { $style1 = qq~style="$bg1 $text"~ } else { $style1 = '' }
if($bg2 || $text) { $style2 = qq~style="$bg2 $text"~ } else { $style2 = '' }
BC();
if(!GetMemberAccess($memgroups)) { next; }
@boardlists = split(/\//,$boardlist);
foreach $subcat (split(/\//,$msubcats)) { GetMSubs($subcat); }
foreach $board (@boardlists) {
++$subboards;
($daid,$t,$t,$sflname,$t,$t,$t,$binfo[6],$t,$t,$grp,$t,$t,$redir) = split("/",$board{$board});
if($binfo[6] ne '' && (($Blah{"$board\_pw"} ne $binfo[6] && !$members{'Administrator',$username}) || $username eq 'Guest')) { next; }
if($subboards <= 4 && GetMemberAccess($grp)) { $sflist .= qq~<a href="$surl\lb-$daid/">$sflname</a>, ~; }
if($redir) { next; }
# Get the post totals
fopen(FILE,"$boards/$board.ino");
@postinfo = <FILE>;
fclose(FILE);
chomp @postinfo;
$posts += $postinfo[1];
$topics += $postinfo[0];
$bp += $postinfo[1];
$bt += $postinfo[0];
++$bcnt;
fopen(FILE,"$boards/$board.msg");
while(<FILE>) {
chomp;
($tmid,$mtitle,$t,$t,$t,$t,$t,$icon,$lastdate,$lastuser) = split(/\|/,$_);
if($lastdate > $maxlastdate) { $maxlastdate = $lastdate; $lastpost = "$board|$mtitle|$icon|$lastuser"; }
last;
}
fclose(FILE);
}
$sflist =~ s/, \Z//g;
if($sflist eq '') { $sflist = $boardindex[46]; }
if($lastpost) {
($board,$mtitle,$icon,$lastuser) = split(/\|/,$lastpost);
GetBoardData($mtitle,$maxlastdate,$lastuser,$board,$binfo[6],$tmid);
$icon = $icon ne 'xx' && $icon ne '' ? qq~<td width="20" align="center"><img src="$images/$icon.gif"></td>~ : '';
if($foundnew) { $new = 'cat_off'; $alt = $boardindex[9]; }
else { $new = 'cat_on'; $alt = $boardindex[10]; }
} else { $new = 'cat_off'; $alt = $boardindex[9]; $lastpost = $gtxt{'13'}; }
$posts = MakeComma($posts);
$topics = MakeComma($topics);
$ebout .= <<"EOT";
<tr>
<td class="win" align="center" valign="top" style="width: 30px; padding: 7px; $bg1 $text"><img src="$images/$new.gif" alt="$alt"></td>
<td class="win2" valign="top" $style2><b><a href="$surl\lc-$nohere/">$name</a></b><span class="smalltext"><div style="padding-left: 2px;">$message<div style="line-height: 200%;"><b>$boardindex[74]:</b> $sflist</div></div></span></td>
<td class="win" align="center" $style1><b>$topics</b></td>
<td class="win" align="center" $style1><b>$posts</b></td>
<td class="win2" valign="top" width="205" $style2><table cellpadding="2" cellspacing="0">
<tr>
<td valign="top" width="190" style="$text"><span class="smalltext">$lastpost</span></td>$icon
</tr>
</table></td>
</tr>
EOT
$catdisabled = 1;
}
}
</mod end>
<mod search="3">
foreach $bid (split("/",$boardlist)) {
if($board{$bid} eq '') { next; } # Invalid board data
($t,$message,$binfo[1],$binfo[2],$binfo[3],$binfo[4],$binfo[5],$binfo[6],$t,$t,$binfo[9],$t,$t,$redir,$boardimage) = split("/",$board{$bid});
$lastuser = $lastdate = $icon = $bstat = $postsandtops = $infrm = '';
if(GetMemberAccess($binfo[9]) == 0) { next; }
# Get the post totals
fopen(FILE,"$boards/$bid.ino");
@postinfo = <FILE>;
fclose(FILE);
chomp @postinfo;
$posts = $postinfo[1] > 0 ? MakeComma($postinfo[1]) : 0;
$topics = $postinfo[0] > 0 ? MakeComma($postinfo[0]) : 0;
# Compile the mods list
@mods = split(/\|/,$binfo[1]);
Mods();
if($modz) { $modz = qq~<div class="smalltext" style="line-height: 200%;"><b>$ltxt[7]:</b> $modz</div>~; }
# Users browsing
if($sauser && $B{$bid}) { $infrm = qq~ ($B{$bid} $boardindex[45])~; }
# Get last thread info (and look in log for new threads)
fopen(FILE,"$boards/$bid.msg");
while(<FILE>) {
chomp;
($tmid,$mtitle,$t,$t,$t,$t,$t,$icon,$lastdate,$lastuser) = split(/\|/,$_);
$icon = $icon ne 'xx' ? qq~<td width="20" align="center"><img src="$images/$icon.gif"></td>~ : '';
last;
}
fclose(FILE);
GetBoardData($mtitle,$lastdate,$lastuser,$bid,$binfo[6],$tmid);
if($foundnew) { $new = 'off'; $alt = $boardindex[9]; }
else { $new = 'on'; $alt = $boardindex[10]; }
# Restricted posting?
if(!GetMemberAccess($binfo[3])) { $bstat = qq~<div class="smalltext" style="line-height: 200%;"><b>$boardindex[6]</b></div>~; }
if(!GetMemberAccess($binfo[3]) && !GetMemberAccess($binfo[4])) { $new = "locked"; }
# Basic board info (like description)
$message =~ s///\//gsi;
BC();
# Info blocked by permissions?
if($binfo[6]) {
$bstat .= qq~<div class="smalltext" style="line-height: 200%;"><b>$boardindex[7]</b></div>~;
if(($Blah{"$bid\_pw"} ne $binfo[6] && !$members{'Administrator',$username}) || $username eq 'Guest') {
$icon = '';
$lastpost = $gtxt{'13'};
$bt -= $postinfo[0];
$bp -= $postinfo[1];
$topics = $posts = '?';
$new = 'locked';
$lastdate = 1;
}
}
# Redirect forum, or regular?
if($redir) {
fopen(ADD,"$boards/$bid.hits");
$nump = MakeComma( <ADD> ) || 0;
fclose(ADD);
$postsandtops = <<"EOT";
<td class="win" align="center" colspan="2"><span class="smalltext"><b>$boardindex[71]:</b> $nump</span></td>
EOT
$icon = '';
$lastpost = $boardindex[72];
$new = 'redirect';
$bid = $bid.'/" target="_new"';
} else {
$postsandtops = <<"EOT";
<td class="win" align="center"><b>$topics</b></td>
<td class="win" align="center"><b>$posts</b></td>
EOT
$bp += $postinfo[1];
$bt += $postinfo[0];
}
++$bcnt;
if($boardimage) {
$boardimage =~ s/\|/\//g;
$boardimage = $boardimage =~ /http:\/\// ? $boardimage : "$images/$boardimage";
$boardimage = qq~<img src="$boardimage" style="vertical-align: middle;"> ~;
}
$ebout .= <<"EOT";
<tr>
<td class="win" align="center" valign="top" style="width: 30px; padding: 7px;"><img src="$images/$new.gif" alt="$alt"></td>
<td class="win2" valign="top"><b>$boardimage<a href="$link$bid/">$binfo[2]</a></b><span class="smalltext">$infrm</span><div class="smalltext" style="padding-left: 2px;">$message$bstat$modz</div></td>
$postsandtops
<td class="win2" valign="top"><table cellpadding="2" cellspacing="0">
<tr>
<td valign="top" width="190"><span class="smalltext">$lastpost</span></td>$icon
</tr>
</table></td>
</tr>
EOT
}
</mod end>
<mod write="3" action="2">
foreach $bid (split("/",$boardlist)) {
if($board{$bid} eq '') { next; } # Invalid board data
($t,$message,$binfo[1],$binfo[2],$binfo[3],$binfo[4],$binfo[5],$binfo[6],$t,$t,$binfo[9],$t,$t,$redir,$boardimage,$t,$t,$bgcolor1,$bgcolor2,$textcolor,$bgimg) = split("/",$board{$bid});
if($bgcolor1 || $bgimg) { $bg1 = qq~background: $bgcolor1 url('$bgimg');~ } else { $bg1 = '' }
if($bgcolor2 || $bgimg) { $bg2 = qq~background: $bgcolor2 url('$bgimg');~ } else { $bg2 = '' }
if($textcolor) { $text = qq~color: $textcolor;~ } else { $text = '' }
if($bg1 || $text) { $style1 = qq~style="$bg1 $text"~ } else { $style1 = '' }
if($bg2 || $text) { $style2 = qq~style="$bg2 $text"~ } else { $style2 = '' }
$lastuser = $lastdate = $icon = $bstat = $postsandtops = $infrm = '';
if(GetMemberAccess($binfo[9]) == 0) { next; }
# Get the post totals
fopen(FILE,"$boards/$bid.ino");
@postinfo = <FILE>;
fclose(FILE);
chomp @postinfo;
$posts = $postinfo[1] > 0 ? MakeComma($postinfo[1]) : 0;
$topics = $postinfo[0] > 0 ? MakeComma($postinfo[0]) : 0;
# Compile the mods list
@mods = split(/\|/,$binfo[1]);
Mods();
if($modz) { $modz = qq~<div class="smalltext" style="line-height: 200%;"><b>$ltxt[7]:</b> $modz</div>~; }
# Users browsing
if($sauser && $B{$bid}) { $infrm = qq~ ($B{$bid} $boardindex[45])~; }
# Get last thread info (and look in log for new threads)
fopen(FILE,"$boards/$bid.msg");
while(<FILE>) {
chomp;
($tmid,$mtitle,$t,$t,$t,$t,$t,$icon,$lastdate,$lastuser) = split(/\|/,$_);
$icon = $icon ne 'xx' ? qq~<td width="20" align="center"><img src="$images/$icon.gif"></td>~ : '';
last;
}
fclose(FILE);
GetBoardData($mtitle,$lastdate,$lastuser,$bid,$binfo[6],$tmid);
if($foundnew) { $new = 'off'; $alt = $boardindex[9]; }
else { $new = 'on'; $alt = $boardindex[10]; }
# Restricted posting?
if(!GetMemberAccess($binfo[3])) { $bstat = qq~<div class="smalltext" style="line-height: 200%;"><b>$boardindex[6]</b></div>~; }
if(!GetMemberAccess($binfo[3]) && !GetMemberAccess($binfo[4])) { $new = "locked"; }
# Basic board info (like description)
$message =~ s///\//gsi;
BC();
# Info blocked by permissions?
if($binfo[6]) {
$bstat .= qq~<div class="smalltext" style="line-height: 200%;"><b>$boardindex[7]</b></div>~;
if(($Blah{"$bid\_pw"} ne $binfo[6] && !$members{'Administrator',$username}) || $username eq 'Guest') {
$icon = '';
$lastpost = $gtxt{'13'};
$bt -= $postinfo[0];
$bp -= $postinfo[1];
$topics = $posts = '?';
$new = 'locked';
$lastdate = 1;
}
}
# Redirect forum, or regular?
if($redir) {
fopen(ADD,"$boards/$bid.hits");
$nump = MakeComma( <ADD> ) || 0;
fclose(ADD);
$postsandtops = <<"EOT";
<td class="win" align="center" colspan="2" $style1><span class="smalltext"><b>$boardindex[71]:</b> $nump</span></td>
EOT
$icon = '';
$lastpost = $boardindex[72];
$new = 'redirect';
$bid = $bid.'/" target="_new"';
} else {
$postsandtops = <<"EOT";
<td class="win" align="center" $style1><b>$topics</b></td>
<td class="win" align="center" $style1><b>$posts</b></td>
EOT
$bp += $postinfo[1];
$bt += $postinfo[0];
}
++$bcnt;
if($boardimage) {
$boardimage =~ s/\|/\//g;
$boardimage = $boardimage =~ /http:\/\// ? $boardimage : "$images/$boardimage";
$boardimage = qq~<img src="$boardimage" style="vertical-align: middle;"> ~;
}
$ebout .= <<"EOT";
<tr>
<td class="win" align="center" valign="top" style="width: 30px; padding: 7px; $bg1 $text"><img src="$images/$new.gif" alt="$alt"></td>
<td class="win2" valign="top" $style2><b>$boardimage<a href="$link$bid/">$binfo[2]</a></b><span class="smalltext">$infrm</span><div class="smalltext" style="padding-left: 2px;">$message$bstat$modz</div></td>
$postsandtops
<td class="win2" valign="top" $style2><table cellpadding="2" cellspacing="0">
<tr>
<td valign="top" width="190"><span class="smalltext">$lastpost</span></td>$icon
</tr>
</table></td>
</tr>
EOT
}
</mod end>
<openfile="Languages/English/ManageBoards.lng" writes="1">
<mod search="1">
$managecats[12] = 'Deleted';
</mod end>
<openfile="Languages/traditionalchinese/ManageBoards.lng" writes="1">
<mod search="1">
$managecats[12] = '¤w§R°£';
</mod end>
<openfile="Languages/simplifiedchinese/ManageBoards.lng" writes="1">
<mod search="1">
$managecats[12] = 'ÒÑɾ³ý';
</mod end>
<mod write="1" action="2">
$managecats[12] = 'Deleted';
$managecats[13] = 'Background-Color';
$managecats[14] = 'Text-Color';
$managecats[15] = 'Background-Image';
</mod end> |
Home
Features
Download
Demo
Support
Community
Home
Calendar
Search
Register
Login
Welcome to the E-Blah Community!
icelemon
Report to Moderator
Logged
Site
Private message
ICQ
