📄 leoboard.cgi
字号:
@allmessages = <MSGOUT>;
close (MSGOUT);
$totalmessagesout = @allmessages;
if ($unread eq "0") {
$inboximg = qq~<img src=$imagesurl/images/inboxnonew.gif width=17>~;
}
else {
$inboximg = qq~<img src=$imagesurl/images/inboxnew.gif width=17>~;
}
$output .= qq~<tr><td bgcolor=$titlecolor colspan=4><font color=$titlefontcolor><B>-=> 您的个人状态</B> [ IP 是：$trueipaddress， 来自：$fromwhere1 。 操作系统：$osinfo， 浏览器：$browseinfo ]</td></tr>
<tr><td bgcolor=$forumcolorone align=center width=26>$inboximg</td>
<td bgcolor=$forumcolortwo width=130 align=center>
$useravatar
</td>
<td bgcolor=$forumcolortwo width=*>
<img src=$imagesurl/images/none.gif width=340 height=1><BR>
<table cellpadding=6 cellspacing=0 width=100%>
<tr><td nowarp>
<font color=$fontcolormisc>* <B>我的短消息</B></font><BR><BR>
[<a href=messanger.cgi?action=inbox target=_blank>短消息收件箱</a>]共有新信息: <font color=$fonthighlight><B>$unread</B></font> 条<BR>
[<a href=messanger.cgi?action=inbox target=_blank>短消息收件箱</a>]共有信息数: <B>$totalmessages</B> 条<BR>
[<a href=messanger.cgi?action=outbox target=_blank>短消息发件箱</a>]共有信息数: <B>$totalmessagesout</B> 条<BR>
</td>
<td nowarp>
<font color=$fontcolormisc>* <B>我的文章</B></font><BR><BR>
主题发表数: <B>$numberofposts</B> 篇<BR>
主题回复数: <B>$numberofreplys</B> 篇<BR>
主题被删数: <B>$postdel</B> 篇<BR>
</td></tr></table>
</td>~;
}
$output .= qq~<td bgcolor=$forumcolortwo width=210>
<font color=$titlecolor> ■ </font><font color=$postfontcolorone>最后注册会员: $cleanlastregistered</font><BR>
<font color=$titlecolor> ■ </font><font color=$postfontcolortwo>注册会员总数: <a href="memberlist.cgi?a=5" target=_blank><b>$totalmembers</b></a> 人</font><br>
<font color=$titlecolor> ■ </font><font color=$postfontcolorone>论坛主题总数: <b>$totalthreads</b> 篇</font><br>
<font color=$titlecolor> ■ </font><font color=$postfontcolortwo>论坛回复总数: <b>$totalposts</b> 篇</font><br>
<font color=$titlecolor> ■ </font><font color=$postfontcolorone>当前在线总数: <a href=whosonline.cgi><B>$totleonlineall</B></a> 人</font><br>
</td></tr></form></table></td></tr></table><BR>
<SCRIPT LANGUAGE="JavaScript">
function surfto(list) { var myindex1 = list.selectedIndex; var newwindow = list.options[myindex1].value; if (newwindow != "") { var msgwindow = window.open("profile.cgi?action=show&member="+newwindow,"",""); }}
</SCRIPT>
~;
@rearrangedforums = sort(@rearrangedforums);
if ($catbackpic ne "") { $catbackpic = "background=$imagesurl/myimages/$catbackpic"; }
foreach (@rearrangedforums) {
chomp $_;
($categoryplace,my $a, $category, $forumname, $forumdescription, $forummoderator, $htmlstate, $idmbcodestate, $privateforum, $startnewthreads, $lastposter, $lastposttime1, $threads, $posts, $forumgraphic, $ratings, $misc,$forumpass,$hiddenforum,$indexforum,$forumid,$teamlogo,$teamurl, $fgwidth, $fgheight, $miscadd3, $miscadd4, $miscad5) = split(/\t/,$_);
$categoryplace = sprintf("%01d",$categoryplace);
$forumdescription = &HTML("$forumdescription");
$threads+=$threadadds[$forumid] if($threadadds[$forumid] ne "");
$posts+=$postadds[$forumid] if($postadds[$forumid] ne "");
$lastposttime1=$lastposttime[$forumid] if($lastposttime[$forumid] ne "" && $lastposter[$forumid] ne "");
$lastposter=$lastposter[$forumid] if($lastposttime[$forumid] ne "" && $lastposter[$forumid] ne "");
if ($categoryplace ne $lastcategoryplace) {
undef $cmodoutput;
if ($cancmodoutput ne "no") {
if (open(CATEFILE,"${lbdir}boarddata/catemod$categoryplace.cgi")) {
my $catemods =<CATEFILE>;
close(CATEFILE);
my @catemodnames = split(/\,/, $catemods);
my $cmodnumber=@catemodnames;
foreach (@catemodnames) {
chomp $_;
next if ($_ eq "");
my $cleanedmodname = $_;
$cleanedmodname =~ s/ /\_/g;
$cleanedmodname =~ tr/A-Z/a-z/;
$cmodoutput .= qq~<option value="~ . ($uri_escape eq "no" ? $cleanedmodname : uri_escape($cleanedmodname)) . qq~">$_</option>~;
}
}
if ($cmodoutput ne "") {
$cmodoutput = qq~
<img src=$imagesurl/images/team2.gif width=19 height=19 align=absmiddle>
<select onchange="surfto(this)">
<option style=background-color:$titlecolor>此分类区版主：</option>$cmodoutput
~;
}
}
$output .= qq~<BR><table cellspacing=0 width=$tablewidth bgcolor=$tablebordercolor align=center><tr><td height=1></td></tr></table><table cellpadding=6 cellspacing=0 width=$tablewidth height=24 align=center bordercolor=$tablebordercolor border=1>~;
$te = "catlog".$categoryplace;
if (((($query->cookie("$te") ne "no")&&($catlog2 ne $categoryplace))||(($query->cookie("$te") eq "no")&&($catlog2 eq $categoryplace))||($catlog eq "expand"))&&!($catlog eq "depand")) {
$output .= qq~<tr><td bgcolor=$catback $catbackpic height=24 align=left><table width=100% cellpadding=0 cellspacing=0 border=0><tr><td><a href=$thisprog?catlog=$categoryplace><img src=$imagesurl/images/cat1.gif border=0 width=9 height=9> <font color=$catfontcolor><b>$category</a></td><td align=right width=150>$cmodoutput</td></tr></table></td></tr></table>~;
}
else {
$output .= qq~<tr><td bgcolor=$catback $catbackpic height=24 align=left><table width=100% cellpadding=0 cellspacing=0 border=0><tr><td><a href=$thisprog?catlog=$categoryplace><img src=$imagesurl/images/cat.gif border=0 width=9 height=9> <font color=$catfontcolor><b>$category</a></td><td align=right width=150>$cmodoutput</td></tr></table></td></tr></table>~;
}
}
$modnumber = 0;
$modout="";
if ($forummoderator) {
$forummoderator =~ s/\, /\,/gi;
$forummoderator =~ s/ \,/\,/gi;
$forummoderator =~ s/\,\,/\,/gi;
$forummoderator =~ s/\,$//gi;
$forummoderator =~ s/^\,//gi;
my @mods = split(/\,/,$forummoderator);
$modnumber = @mods;
my $modprintnum = 1;
foreach (@mods) {
my $modname = $_;
$modname =~ y/ /_/;
$modname =~ tr/A-Z/a-z/;
last if ($modprintnum > 3 );
if ($modprintnum != $modnumber) {
if(($_ =~m/管理员/isg)||($_ =~m/诚聘中/isg)||($_ =~m/暂时空缺/isg)||($_ =~m/版主/isg)||($_ =~m/斑竹/isg)||($_ =~m/坛主/isg)){ $modout .= qq~<font color=$fontcolormisc2>$_</font><BR>~; } else { $modout .= qq~<span style="cursor:hand" onClick="javascript:O9('~ . ($uri_escape eq "no" ? $modname : uri_escape($modname)) . qq~')">$_</span><BR>~; }
}
else {
if(($_ =~m/管理员/isg)||($_ =~m/诚聘中/isg)||($_ =~m/暂时空缺/isg)||($_ =~m/版主/isg)||($_ =~m/斑竹/isg)||($_ =~m/坛主/isg)){ $modout .= qq~<font color=$fontcolormisc2>$_</font>~; } else { $modout .= qq~<span style="cursor:hand" onClick="javascript:O9('~ . ($uri_escape eq "no" ? $modname : uri_escape($modname)) . qq~')">$_</span>~; }
}
$modprintnum++;
}
}
$modout .= qq~<font color=$fontcolormisc2>More...~ if ($modnumber > 3 );
$modout ="<font color=$fontcolormisc2>暂时空缺<BR>诚聘中" if ($modout eq "");
if ($catlog eq "expand"){$output .= qq~ <script>document.cookie="$te=yes;expires=+30d;path=$cookiepath/";</script>~;}
elsif ($catlog eq "depand"){$output .= qq~ <script>document.cookie="$te=no;expires=+30d;path=$cookiepath/";</script>~;}
if (((($query->cookie("$te") ne "no")&&($catlog2 ne $categoryplace))||(($query->cookie("$te") eq "no")&&($catlog2 eq $categoryplace))||($catlog eq "expand"))&&!($catlog eq "depand")) {
$forumnameadd = $forumname;
$forumnameadd1 = $forumnameadd;
$forumnameadd1 =~ s/\'/\\'/g;
$forumname = qq~<a href=forums.cgi?forum=$forumid><font color=$fontcolormisc2>$forumname</a>~;
$forumlastvisit = $lastvisitinfo{$forumid};
$folderpicture = qq( );
($lastposttime,$threadnumber,$topictitle,$cforumid)=split(/\%\%\%/,$lastposttime1);
$cforumid=$forumid if($cforumid eq "");
$topictitle =~ s/^＊＃！＆＊//;
if (($dofilter eq "no")||($dofilter eq "all")) {
$topictitle = &postwordfilter("$topictitle");
}
if (($lastposttime > $forumlastvisit)&&($inmembername ne "客人")&&($action ne "resetall")) {
if (($forumpass)||($privateforum eq "yes")){ $folderpicture = qq~<img src=$imagesurl/images/lock_l.gif width=13 height=16 border=0 onClick="javascript:O3($forumid)" style="cursor:hand">~; }
elsif ($startnewthreads eq "follow") { $folderpicture = qq~<img src=$imagesurl/images/follownew.gif width=13 height=16 border=0 onClick="javascript:O3($forumid)" style="cursor:hand">~; }
elsif ($startnewthreads eq "yes") { $folderpicture = qq~<img src=$imagesurl/images/foldernew.gif width=13 height=16 border=0 onClick="javascript:O3($forumid)" style="cursor:hand">~; }
elsif ($startnewthreads eq "all") { $folderpicture = qq~<img src=$imagesurl/images/folderallnew.gif width=13 height=16 border=0 onClick="javascript:O3($forumid)" style="cursor:hand">~; }
elsif ($startnewthreads eq "cert") { $folderpicture = qq~<img src=$imagesurl/images/rzfoldernew.gif width=13 height=16 border=0 onClick="javascript:O3($forumid)" style="cursor:hand">~; }
$posts = qq~<font color=$fonthighlight><b>$posts</b>~;
$threads = qq~<font color=$fonthighlight><b>$threads</b>~;
}
else {
if (($forumpass)||($privateforum eq "yes")){ $folderpicture = qq~<img src=$imagesurl/images/lock_b.gif width=13 height=16 border=0 onClick="javascript:O3($forumid)" style="cursor:hand">~; }
elsif ($startnewthreads eq "follow") { $folderpicture = qq~<img src=$imagesurl/images/follow.gif width=13 height=16 border=0 onClick="javascript:O3($forumid)" style="cursor:hand">~; }
elsif ($startnewthreads eq "yes") { $folderpicture = qq~<img src=$imagesurl/images/folder.gif width=13 height=16 border=0 onClick="javascript:O3($forumid)" style="cursor:hand">~; }
elsif ($startnewthreads eq "all") { $folderpicture = qq~<img src=$imagesurl/images/folderall.gif width=13 height=16 border=0 onClick="javascript:O3($forumid)" style="cursor:hand">~; }
elsif ($startnewthreads eq "cert") { $folderpicture = qq~<img src=$imagesurl/images/rzfolder.gif width=13 height=16 border=0 onClick="javascript:O3($forumid)" style="cursor:hand">~; }
$posts = qq~<font color=$forumfontcolor><b>$posts</b>~;
$threads = qq~<font color=$forumfontcolor><b>$threads</b>~;
}
if ($startnewthreads eq "no") { $folderpicture = qq~<img src=$imagesurl/images/jinghua.gif width=13 height=16 border=0 onClick="javascript:O3($forumid)" style="cursor:hand">~; }
if ($inmembername eq "客人") { $loginmessage = "（您必须登录才能查看详情，否则只显示该论坛的无新帖图例）"; }
$lastposterfilename = $lastposter;
$lastposterfilename =~ y/ /_/;
$lastposterfilename =~ tr/A-Z/a-z/;
$forumlastvisit = $forumlastvisit + $timeadd;
$lastdate = &longdate("$forumlastvisit");
$lasttime = &shorttime("$forumlastvisit");
if ($lastposttime) {
$lastposttime = $lastposttime + $timeadd;
$longdate = &longdate("$lastposttime");
$shorttime = &shorttime("$lastposttime");
$forumlastpost = qq~<BR><font color=$lastpostfontcolor> $longdate $shorttime</font><BR>~;
if ($lastposter=~/\(客\)/) {
$lastposter=~s/\(客\)//isg;
$lastposterby = qq~<font color=$fontcolormisc2 title="此为未注册用户"> 最后发表： $lastposter</font> <img src="$imagesurl/images/lastpost.gif" width=11 height=10>~;
}
else { $lastposterby = qq~<font color=$fontcolormisc2> 最后发表： </font><span style="cursor:hand" onClick="javascript:O9('~ . ($uri_escape eq "no" ? $lastposterfilename : uri_escape($lastposterfilename)) . qq~')">$lastposter</span> <img src="$imagesurl/images/lastpost.gif" width=11 height=10>~; }
}
else { $forumlastpost = qq~<font color=$lastpostfontcolor> 没有帖子</font>~; $lastposterby = ""; }
if ((($privateforum ne "yes")||($membercode eq "ad")||($membercode eq "smo"))&&($topictitle)) {
my $topictitletemp = $topictitle;
study($topictitletemp);
$topictitletemp =~ s/\</</g;
$topictitletemp =~ s/\>/>/g;
$topictitletemp =~ s/\&/\&/g;
$topictitletemp =~ s/\ / /g;
$topictitletemp =~ s/ / /g;
$topictitletemp =~ s/\"/\\\"/g;
$topictitletemp = &lbhz($topictitle,18);
# $topictitletemp =~ s/\&/\&/g;
$topictitletemp =~ s/</\</g;
$topictitletemp =~ s/>/\>/g;
$lastpost = qq~<font color=$fontcolormisc2> 主题： </font><a href=topic.cgi?forum=$cforumid&topic=$threadnumber&replynum=last TITLE="$topictitle">$topictitletemp</a><BR>~;
}
else { $lastpost = ""; }
$forumbookmark = qq~<span style="CURSOR: hand" onClick="window.external.AddFavorite('$boardurl/forums.cgi?forum=$forumid', '$boardname - $forumnameadd1')"><IMG SRC=$imagesurl/images/fav_add.gif BORDER=0 width=15 height=15 ALT="将$forumnameadd添加到收藏夹"></span>~;
if ($hiddenforum eq "yes") { $hiddeninfo = " <I>(隐含)</I>"; } else { $hiddeninfo = ""; }
if ($teamlogo eq "") { $team=""; }
elsif (($teamurl eq "")||($teamurl eq "http://")) { $team=qq~<img src=$imagesurl/myimages/$teamlogo>~; }
else { $team=qq~<a href=$teamurl><img src=$imagesurl/myimages/$teamlogo border=0></a>~; }
if ($forumnamedisp eq 1) { $forumnamelink = qq~<table width=100% cellpadding=2 cellspacing=0><tr><td width=93%>$forumname$hiddeninfo</td><td width=11><a href=post.cgi?action=new&forum=$forumid><img src="$imagesurl/images/fpost2.gif" alt="在此分论坛发表新主题" width=11 border=0></a></td><td width=11><a href=poll.cgi?action=new&forum=$forumid><img src="$imagesurl/images/fpost1.gif" alt="在此分论坛发表新投票" width=11 border=0></a></td><td width=11><a href=jinghua.cgi?action=list&forum=$forumid><img src="$imagesurl/images/fpost3.gif" alt="查看此分论坛的精华帖子" width=11 border=0></a></td></tr><tr><td colspan=4 width=100%><img src=$imagesurl/images/forumme.gif width=10> <font color=$forumfontcolor>$forumdescription</td></tr></table></td></tr></table>~; }
else { $forumnamelink = "$forumname$hiddeninfo<font color=$forumfontcolor><br><img src=$imagesurl/images/forumme.gif width=10> $forumdescription</td></tr></table>"; }
$output .= qq~<table cellpadding=6 cellspacing=0 width=$tablewidth height=24 align=center bordercolor=$tablebordercolor border=1>
<tr><td bgcolor=$forumcolorone align=center width=26>$folderpicture</td>
<td bgcolor=$forumcolortwo valign=top width=*>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -