#!/usr/bin/perl
#############################################################
#  LeoBoard ver.5000 / LB5000 / 雷傲超级论坛 ver.5000
#
#  版权所有: 雷傲工作室(原蓝宝石软件工作室)
#
#  制作人  : 山鹰糊 (Shining Hu)
#            花无缺 (Ifairy Han)
#
#  主页地址: http://www.CGIer.com/      CGI 编程者之家
#	        http://www.LeoBoard.com/   雷傲论坛支持主页
#	        http://www.leoBBS.com/     本论坛直通车
#
#  *************************
#  LB论坛推荐虚拟主机服务商：
#  雷傲科技:  http://www.leoboard.com.cn
#  全面支持LB所有功能,拥有2年提供LB论坛空间的以及500多个LB用户的经验，可以做的更好
#  **************************
#
#############################################################
BEGIN {
    $start_time = (times)[0] + (times)[1];
    $LBPATH = '.';
    my $pgm = $0;
    $pgm =~s/\\/\//g;
    $pgm =~s/^.*\/([^\/]+)$/$1/g;
    unless (-e $LBPATH.'/'.$pgm) {
        foreach ($0, $ENV{'SCRIPT_FILENAME'}, $ENV{'PATH_TRANSLATED'}) {
            s!\\!/!g; s/^(.*)\/[^\/]+$/$1/g;
            if (-e $_ . '/' .$pgm) { $LBPATH = $_; last; }
        }
    }
    unshift (@INC, "$LBPATH");
}
use LBCGI;
$LBCGI::POST_MAX=2000;
$LBCGI::DISABLE_UPLOADS = 1;
$LBCGI::HEADERS_ONCE = 1;
require "data/boardinfo.cgi";
require "data/styles.cgi";
eval
{
    ($0 =~ m,(.*)/[^/]+,)   and unshift (@INC, "$1");
    ($0 =~ m,(.*)\\[^\\]+,) and unshift (@INC, "$1");
    require "data/boardstats.cgi";
};
if ($@) {
    open(FILE, "${lbdir}data/allforums.cgi");
    flock(FILE, 1) if ($OS_USED eq "Unix");
    @forums = <FILE>;
    close(FILE);
    $totle1 = 0; $totle2 = 0;
    foreach $forum (@forums) {
        chomp $forum;
	next if ($forum eq "");
        (my $tempno,my $no, $no, $no, $no, $no ,$no ,$no ,$no, $no ,$no ,$no, $threads, $posts, $no, $no, $no,$no,$no,$no) = split(/\t/,$forum);
   	next if ($tempno !~ /^[0-9]+$/);
	$totle1 += $threads; $totle2 += $posts;
    }
    opendir (DIRS, "$lbdir");
    my @memdir = readdir(DIRS);
    closedir (DIRS);
    @memdir = grep(/^members/i, @memdir);
    my $memdir = $memdir[0];

    opendir (DIR, "${lbdir}$memdir/old"); 
    my @filedata = readdir(DIR);
    closedir (DIR);
    my @countvar = grep(/\.cgi$/i,@filedata);
    $newtotalmembers = @countvar;

        open(FILE, ">${lbdir}data/boardstats.cgi");
        flock(FILE, 2) if ($OS_USED eq "Unix");
        print FILE "\$lastregisteredmember = \'nodisplay\'\;\n";
        print FILE "\$totalmembers = \'$newtotalmembers\'\;\n";
        print FILE "\$totalthreads = \'$totle1\'\;\n";
        print FILE "\$totalposts = \'$totle2\'\;\n";
        print FILE "\n1\;";
        close (FILE);
}
require "data/boardstats.cgi";
require "lb.lib.pl";
require "visitforum.lib.pl";

$|++;                                     # Unbuffer the output
$thisprog = "leoboard.cgi";

require "imagead.cgi" if (($useimagead eq "1")||($useimagead1 eq "1"));
$query = new LBCGI;
if ($COOKIE_USED eq 1) {$cookiepath ="";}
else {
    $boardurltemp =$boardurl;
    $boardurltemp =~ s/http\:\/\/(\S+?)\/(.*)/\/$2/;
    $cookiepath = $boardurltemp;
    $cookiepath =~ s/\/$//;
#    $cookiepath =~ tr/A-Z/a-z/;
}
&ipbanned; #封杀一些 ip

$action = $query->param('action');
$catlog = $query->param('catlog');
$catlog2= $catlog;
$te     = "catlog".$catlog;

if ($catlog ne "") {
    $catlog1=$query->cookie("$te");
    if ($catlog1 ne "no") { $catlog1cookie = cookie(-name => "$te", -value => "no",  -expires => "+30d", -path => "$cookiepath/"); }
                     else { $catlog1cookie = cookie(-name => "$te", -value => "yes", -expires => "+30d", -path => "$cookiepath/"); }
}

$inmembername = $query->cookie("amembernamecookie");
$inpassword   = $query->cookie("apasswordcookie");
$inmembername =~ s/[\a\f\n\e\0\r\t\`\~\!\@\#\$\%\^\&\*\(\)\+\=\\\{\}\;\'\:\"\,\.\/\<\>\?]//isg;
$inpassword =~ s/[\a\f\n\e\0\r\t\|\@\;\#\{\}\$]//isg;

if ($action eq "delcookieall") {
	$namecookie	  = cookie(-name => "amembernamecookie", -value => "", -path => "$cookiepath/");
    	$passcookie 	  = cookie(-name => "apasswordcookie"  , -value => "", -path => "$cookiepath/");
	$onlineviewcookie = cookie(-name => "onlineview"       , -value => "", -path => "$cookiepath/");
	$advpostcookie    = cookie(-name => "advpost"          , -value => "", -path => "$cookiepath/");
	$threadcookie 	  = cookie(-name => "threadages"       , -value => "", -path => "$cookiepath/");
	$viewcookie 	  = cookie(-name => "viewMode"         , -value => "", -path => "$cookiepath/");
	$nodisp    	  = cookie(-name => "nodisp"           , -value => "", -path => "$cookiepath/");
	$freshtimecookie  = cookie(-name => "freshtime"        , -value => "", -path => "$cookiepath/");
	$tanchumsgcookie  = cookie(-name => "tanchumsg"        , -value => "", -path => "$cookiepath/");
	$cookie    	  = cookie(-name => "lastvisit"        , -value => "", -path => "$cookiepath/");
	$tempcookie 	  = cookie(-name => "templastvisit"    , -value => "", -path => "$cookiepath/");
	$catlogcookie     = cookie(-name => "catlog"           , -value => "", -path => "$cookiepath/");
	$unioncookie      = cookie(-name => "union"            , -value => "", -path => "$cookiepath/");
	$banfreshcookie   = cookie(-name => "banfresh"         , -value => "", -path => "$cookiepath/");
	$treeviewcookie   = cookie(-name => "treeview"         , -value => "", -path => "$cookiepath/");
	$tecookie	  = cookie(-name => "catlog"           , -value => "", -path => "$cookiepath/");
    	print header(-cookie=>[$tecookie, $cookie,$tempcookie, $catlogcookie,$unioncookie,$banfreshcookie, $treeviewcookie, $onlineviewcookie,$advpostcookie,$threadcookie,$viewcookie, $nodisp, $freshtimecookie, $tanchumsgcookie, $namecookie,$passcookie], -charset=>gb2312);
        print qq ~<script>location.href="$thisprog";</script>~;
        exit;
}
if ($inmembername eq "") { $inmembername = "客人"; }
else {
#    &getmember("$inmembername");
    &getmembernolock("$inmembername");
    &error("普通错误&密码与用户名不相符，请重新登录！") if ($inpassword ne $password);
    &error("普通错误&此用户根本不存在！") if ($userregistered eq "no");
    &getlastvisit;
}

$union      = $query->cookie("union");
$union      = 1 if ($union eq "");
$screenmode = $query->cookie("screenmode");
$screenmode = 8 if ($screenmode eq "");
$onlineview = 1 if ($onlineview eq "");
$catlog     = $query->cookie("catlog") if ($catlog eq "");
$cpudisp    = 1 if (($membercode eq "ad")||($membercode eq "smo")||($membercode eq "cmo")||($membercode eq "mo"));

$onlineview1 = $query->cookie("onlineview");
$onlineview  = $onlineview1 if ($onlineview1 ne "");
$onlineview  = 1 if ($onlineview eq "");
$timeadd  = $timedifferencevalue*3600 + $timezone*3600;

$filetoopen = "$lbdir" . "data/allforums.cgi";
&winlock($filetoopen) if (($OS_USED eq "Unix")||($OS_USED eq "Nt"));
open(FILE, "$filetoopen");
flock(FILE, 1) if ($OS_USED eq "Unix");
@forums = <FILE>;
close(FILE);
&winunlock($filetoopen) if (($OS_USED eq "Unix")||($OS_USED eq "Nt"));
$currenttime = time;
$outputbutton= "";
$a = 0;
foreach $forum (@forums) {
    $a  = sprintf("%09d",$a);
    chomp $forum;
    next if ($forum eq "");
    ($forumid, $category, $categoryplace, $forumname, $forumdescription, $forummoderator ,$htmlstate ,$idmbcodestate ,$privateforum, $startnewthreads ,$lastposter ,$lastposttime, $threads, $posts, $forumgraphic,$tmp,$tmp,$forumpass,$hiddenforum,$indexforum,$teamlogo,$teamurl, $fgwidth, $fgheight, $miscadd3, $miscadd4, $miscad5) = split(/\t/,$forum);
    next if ($forumid !~ /^[0-9]+$/);
    if($category =~/^childforum-[0-9]+/){
    $topforumno=$category;
    $topforumno=~s/^childforum-//;
    $threadadds[$topforumno]+=$threads;
    $postadds[$topforumno]+=$posts;
    ($olastposttime,undef)=split(/\%\%\%/,$lastposttime[$topforumno]);
    ($clastposttime,undef)=split(/\%\%\%/,$lastposttime);
    if(($clastposttime > $olastposttime || ($lastposttime[$topforumno] eq "" && $lastposter[$topforumno] eq "")) && $privateforum ne "yes" && (($hiddenforum eq "no")||($membercode eq "ad")||($membercode eq "smo"))) {
    $lastposttime[$topforumno]=$lastposttime."%%%$forumid";
    $lastposter[$topforumno]=$lastposter;
    }
    if (($hiddenforum eq "no")||($membercode eq "ad")||($membercode eq "smo")||($membercode eq "cmo")) {
        $outputbutton .= qq~<option value="$forumid">|　|- $forumname</option>~;
    }
        $lvisit .= "$forumid-$currenttime--";
    }else{
    $lastposttime[$forumid]=$lastposttime;
    $lastposter[$forumid]=$lastposter;
    $categoryplace  = sprintf("%09d",$categoryplace);
    $rearrange = ("$categoryplace\t$a\t$category\t$forumname\t$forumdescription\t$forummoderator\t$htmlstate\t$idmbcodestate\t$privateforum\t$startnewthreads\t$lastposter\t$lastposttime\t$threads\t$posts\t$forumgraphic\t$ratings\t$misc\t$forumpass\t$hiddenforum\t$indexforum\t$forumid\t$teamlogo\t$teamurl\t$fgwidth\t$fgheight\t$miscadd3\t$miscadd4\t$miscad5\t");
    if (($hiddenforum eq "no")||($membercode eq "ad")||($membercode eq "smo")||($membercode eq "cmo")) {
    	push (@rearrangedforums, $rearrange);
        $outputbutton .= qq~<option value="$forumid">|- $forumname</option>~;
        $lvisit .= "$forumid-$currenttime--";
    }
    $a++;
    }
}

if ($action eq "onlineview") { if ($onlineview == 1) { $onlineview=0; } else { $onlineview=1; } }
$treecat1   = $query->cookie("treeview");
$treeview   = 0 if (($treecat1 ne "")||($catlog ne ""));
$treeview   = 1 if ($treeview eq "");
if    ($action eq "union")    { if ($union == 1) { $union=0; } else { $union=1; }}
elsif ($action eq "expand")   { $catlog="expand"; }
elsif ($action eq "depand")   { $catlog="depand"; }
elsif ($action eq "resetall") {
    $cookie     = cookie(-name => "lastvisit"    , -value => "$lvisit", -path => "$cookiepath/", -expires => "+30d");
    $tempcookie = cookie(-name => "templastvisit", -value => "$lvisit", -path => "$cookiepath/", -expires => "+30d");
    print header(-cookie  =>[$cookie, $tempcookie], -charset=>gb2312);
    print qq ~<script>location.href="$thisprog";</script>~;
    exit;
}

$onlineviewcookie = cookie(-name => "onlineview", -value => "$onlineview", -path => "$cookiepath/" , -expires => "+30d");
$catlogcookie     = cookie(-name => "catlog"    , -value => "$catlog"    , -path => "$cookiepath/" , -expires => "+30d");


if ($onlineview==1){ $onlinetitle="<a href=$thisprog?action=onlineview><font color=$fontcolormisc>关闭详细列表</font></a>"; }
              else { $onlinetitle="<a href=$thisprog?action=onlineview><font color=$fontcolormisc>显示详细列表</font></a>";}
               
if (open(SFFILE,"${lbdir}data/shareforums.cgi")) {
#    flock(SFFILE, 1) if ($OS_USED eq "Unix");
    @lmforums = <SFFILE>;
    close(SFFILE);
    $lmforums = @lmforums;
}
$uniontitle="<font color=$fontcolormisc>（共有 $lmforums 个联盟论坛）</font>";

$unioncookie  = cookie(-name => "union", -value => "$union", -path => "$cookiepath/" , -expires => "+30d");
if ($union==0) { $unionview="显示联盟列表"; } else { $unionview="关闭联盟列表"; }

&title;

if ($CACHE_MODE ne 1) {
    print header(-cookie  =>[$onlineviewcookie, $cookie, $tempcookie ,$unioncookie,$catlogcookie, $catlog1cookie], -charset=>gb2312);
}
else {
    print header(-cookie  =>[$onlineviewcookie, $cookie, $tempcookie ,$unioncookie,$catlogcookie, $catlog1cookie], -charset=>gb2312, -expires=>'-1d');
}

$forumsize=@forums;
if (($forumsize == 0)&&(-e "$filetoopen.pl")){
    open(FILE, "$filetoopen.pl");
    flock (FILE, 1) if ($OS_USED eq "Unix");
    @forums = <FILE>;
    close(FILE);
    open(FILE, ">$filetoopen");
    flock (FILE, 2) if ($OS_USED eq "Unix");
    foreach (@forums) {	print FILE "$_"; }
    close(FILE);
    &error("论坛分类丢失&系统已经自动还原了分类信息，请刷新本页查看论坛；如果还是看不到分区，请坛主到管理区重建论坛主界面！"); 
}
elsif ($forumsize > 0) {
    if (!(-e "$filetoopen.pl")){
    	open(FILE, ">$filetoopen.pl");
    	foreach (@forums) { print FILE "$_\n"; }
    	close(FILE);
    }

}
else { &error("论坛还没建立&请先在管理区建立分论坛！或者分类信息完全丢失，请坛主到管理区重建论坛主界面！"); }

$cleanlastregistered = $lastregisteredmember;
$cleanlastregistered =~ y/ /_/;
$cleanlastregistered =~ tr/A-Z/a-z/;
$cleanlastregistered = qq~<span style="cursor:hand" onClick="javascript:O9('~ . ($uri_escape eq "no" ? $cleanlastregistered : uri_escape($cleanlastregistered)) . qq~')">$lastregisteredmember</span>~;
if ($useadscript ne 0) {
    $adscript = &HTML("$adscript");
    $adscript =~ s/\$imagesurl/$imagesurl/isg;
}
else { $adscript =""; }

if ($useadfoot ne 0) {
$adfoot   = &HTML("$adfoot");
$adfoot   =~ s/\$imagesurl/$imagesurl/isg;
}
else { $adfoot =""; }

$insidead  = "" if ($useimagead  ne "1");
$insidead1 = "" if ($useimagead1 ne "1");

$output .= qq~$insidead$insidead1~;
$output .= qq~<BGSOUND SRC=$imagesurl/midi/$midiaddr2 LOOP=-1>~ if ($midiaddr2 ne "");

if ($boardlogo ne "") {
    if ($boardlogo =~ /\.swf$/i) {$boardgraphic = qq~<PARAM NAME=PLAY VALUE=TRUE><PARAM NAME=LOOP VALUE=TRUE><PARAM NAME=QUALITY VALUE=HIGH><embed src=$imagesurl/myimages/$boardlogo quality=high width=$boardlogow height=$boardlogoh pluginspage="http:\/\/www.macromedia.com\/shockwave\/download\/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application\/x-shockwave-flash"><\/embed>~}
        else {$boardgraphic = qq~<img src=$imagesurl/myimages/$boardlogo>~};
}
$output .= qq~<script language="javascript">
function O3(id) {window.open("forums.cgi?forum="+id);}
function O9(id) {if(id!="")window.open("profile.cgi?action=show&member="+id);}
if (screen.width <= 800 ){SetCookie('screenmode','5');}
if ((screen.width >800 )&&(screen.width<=1024)){SetCookie('screenmode','8');}
if (screen.width >1024 ){SetCookie('screenmode','10');}
function SetCookie (name, value) { var argv = SetCookie.arguments;var argc = SetCookie.arguments.length;var expires = (argc > 2) ? argv[2] : null;var path = (argc > 3) ? argv[3] : null;var domain = (argc > 4) ? argv[4] : null;var secure = (argc > 5) ? argv[5] : false; document.cookie = name + "=" + escape (value) + ((expires == null) ? "" : ("; expires=" + expires.toGMTString())) + ((path == null) ? "" : ("; path=" + path)) + ((domain == null) ? "" : ("; domain=" + domain)) + ((secure == true) ? "; secure" : ""); } 
</script>
<TABLE cellSpacing=0 cellPadding=0 width=$tablewidth align=center>
<tr><TD width=30% rowSpan=3>$boardgraphic</TD>
<TD vAlign=bottom align=right><div align=right>$adscript</div></TD></TR>
</TABLE><br><br>~;

&whosonline("$inmembername\t论坛首页\tboth\t查看论坛信息");
undef $memberoutput if ($onlineview != 1);
$createmon  = sprintf("%02d",$createmon);
$createday  = sprintf("%02d", $createday);
$createyear = sprintf("%02d", $createyear);
$createyear = 1900+$createyear if ($createyear<100);
if (($createyear>0)&&($createmon>0)&&($createday>0)) { $createday = "自 <font color=$fontcolormisc2>$createyear年$createmon月$createday日</font> 创建以来，";} else { $createday =""; }
if ($announcements eq 'yes') {
    if (open(FILE, "${lbdir}data/news.cgi")) {
        @announcementdata = <FILE>;
        close(FILE);
    }
    $totalannouncements = @announcementdata;
    if ($totalannouncements eq 0) { $dateposted = $currenttime; $title = "当前没有公告"; $announcetemp1 = qq~<img src=$imagesurl/images/announce.gif border=0 alt=总论坛暂时无公告！ width=18>~; }
                             else { ($title, $dateposted, my $trash) = split(/\t/, $announcementdata[0]); $announcetemp1 = qq~<img src=$imagesurl/images/announce.gif border=0 alt="总论坛公告！共 $totalannouncements 条！" width=18>~; }
    $dateposted = $dateposted + $timeadd;
    $dateposted = &longdate("$dateposted");
    if ($announcemove eq "on") {
        if ($title ne "当前没有公告") {
            $title = "";
            $newstitleid = "";
            foreach (@announcementdata) {
                chomp  $_;
                (my $newstitle,my $dateposted) = split(/\t/,$_);
	        next if ($newstitle eq "");
                $dateposted = $dateposted + $timeadd;
                $dateposted = &longdate("$dateposted");
                $newstitleid++;
                $title .= qq~　<font color=$forumfontcolor><B>$newstitleid. <a href=announcements.cgi#title$newstitleid target=_blank><font color=$fonthighlight>$newstitle</font></a></B>　[$dateposted]</font> 　　~;
            }
        }
        else { $title = "<a href=announcements.cgi target=_blank><B>$title</B></a>　[$dateposted]"; }
        $announcedisp=qq~<marquee scrollamount=3 onmouseover=this.stop(); onmouseout=this.start();>$title</marquee>~;
    }
    else {
        $titletemp = &lbhz($title,25); 
        $announcedisp=qq~&nbsp;<a href=announcements.cgi target=_blank title="$title"><b>$titletemp</b></a>　[$dateposted]~;
    }
    undef $titletemp; undef $title; undef $newstitleid;
}

$output .= qq~<table cellpadding=1 cellspacing=0 width=$tablewidth align=center>
<tr><td align=center width=2></td>
<td align=center width=34>$announcetemp1</td><td width=* align=left><font color=$forumfontcolor>$announcedisp</td><td width=140>&nbsp;</td>
<td width=90 align=right><img src=$imagesurl/images/team.gif width=16 height=16 alt=显示管理团队 align=absmiddle><font color=$forumfontcolor><a href=team.cgi target=_blank>管理团队</a></td>
<td width=90 align=right><img src=$imagesurl/images/userlist.gif width=16 height=16 alt=显示用户列表 align=absmiddle><font color=$forumfontcolor><a href=memberlist.cgi?a=4 target=_blank>用户列表</a></td>
<td width=90 align=right><img src=$imagesurl/images/top.gif width=16 height=16 alt=显示发帖量排名 align=absmiddle><font color=$forumfontcolor><a href=memberlist.cgi?a=1 target=_blank>发帖排名</a></td>
</tr></table>
<style>
TABLE {BORDER-TOP: 0px; BORDER-LEFT: 0px; BORDER-BOTTOM: 1px; }
TD    {BORDER-RIGHT: 0px; BORDER-TOP: 0px; color: $fontcolormisc; }
</style>
<img src=$imagesurl/images/none.gif width=10 height=2><br>
<table cellpadding=6 cellspacing=0 width=$tablewidth height=28 align=center bordercolor=$tablebordercolor border=1>
<table cellpadding=0 cellspacing=0 width=$tablewidth bgcolor=$tablebordercolor align=center><tr><td><table cellpadding=6 cellspacing=1 width=100%>
~;

if ($inmembername eq "客人") {
    $output .= qq~<tr><td bgcolor=$titlecolor colspan=3><font color=$titlefontcolor><B>-=> 快速登录入口</B>　 [ IP 是：$trueipaddress， 来自：$fromwhere1 。　操作系统：$osinfo， 浏览器：$browseinfo ]</td></tr>
<script>
function submitonce(theform){
if (document.all||document.getElementById){
for (i=0;i<theform.length;i++){
var tempobj=theform.elements[i]
if(tempobj.type.toLowerCase()=="submit"||tempobj.type.toLowerCase()=="reset")
tempobj.disabled=true
}}}
</script>
<FORM name=login method=post action=loginout.cgi onSubmit="submitonce(this)">
<tr><td bgcolor=$forumcolorone align=center width=26><img src=$imagesurl/images/userlist.gif width=16></td>
<td bgcolor=$forumcolortwo colspan=1 width=*>
<input type=hidden name=action value=login>
　用户名 ： <input type=text name=inmembername size=12 maxlength=16 onmouseover=this.focus() onfocus=this.select()>　　密　码 ： <input type=password name=inpassword size=12 maxlength=20 onmouseover=this.focus() onfocus=this.select()>　 Cookie ： <select name=CookieDate><option selected value=-1d>不保存</option><option value=+1d>保存一天</option><option value=+30d>保存一月</option><option value=+20y>永久保存</option></select><BR><BR>
　登陆到 ： <select name=forum><option selected value=>论坛首页</option>$outputbutton</select>　　　<input type=submit name=submit value="　登　 录　"><BR>
</td>~;
}
else {
    if ($avatars eq "on") {
	if (($personalavatar)&&($personalwidth)&&($personalheight)) { #自定义头像存在
	    $personalavatar =~ s/\$imagesurl/${imagesurl}/o;
	    if (($personalavatar =~ /\.swf$/i)&&($flashavatar eq "yes")) {
		$personalavatar=uri_escape($personalavatar) if ($uri_escape ne "no");
	        $useravatar = qq(<br><OBJECT CLASSID="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" WIDTH=$personalwidth HEIGHT=$personalheight><PARAM NAME=MOVIE VALUE=$personalavatar><PARAM NAME=PLAY VALUE=TRUE><PARAM NAME=LOOP VALUE=TRUE><PARAM NAME=QUALITY VALUE=HIGH><EMBED SRC=$personalavatar WIDTH=$personalwidth HEIGHT=$personalheight PLAY=TRUE LOOP=TRUE QUALITY=HIGH></EMBED></OBJECT>);
	    }
	    else {
	        $personalavatar=uri_escape($personalavatar) if ($uri_escape ne "no");
		$useravatar = qq(<br><a href=profile.cgi?action=modify title=编辑您的个人资料><img src=$personalavatar width=$personalwidth height=$personalheight border=1></a>);
	    }
	}
        elsif (($useravatar ne "noavatar") && ($useravatar)) {
            $useravatar=uri_escape($useravatar) if ($uri_escape ne "no");
	    $useravatar = qq(<br><a href=profile.cgi?action=modify title=编辑您的个人资料><img src=$imagesurl/avatars/$useravatar.gif border=1></a>);
        }
        else { $useravatar=qq(<br><a href=profile.cgi?action=modify title=编辑您的个人资料><img src=$imagesurl/avatars/noavatar.gif border=1></a>); }
    }
    else { $useravatar=qq(<br><a href=profile.cgi?action=modify title=编辑您的个人资料><img src=$imagesurl/avatars/noavatar.gif border=1></a>); }

    $memberfilename = $inmembername;
    $memberfilename =~ s/ /\_/g;
    $memberfilename =~ tr/A-Z/a-z/;
    $totalmessages = @allmessages;
    open (MSGOUT, "${lbdir}$msgdir/out/${memberfilename}_out.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>&nbsp;$longdate $shorttime</font><BR>~;
                if ($lastposter=~/\(客\)/) {
            	    $lastposter=~s/\(客\)//isg;
                    $lastposterby  = qq~<font color=$fontcolormisc2 title="此为未注册用户">&nbsp;最后发表： $lastposter</font>　<img src="$imagesurl/images/lastpost.gif" width=11 height=10>~;
	        }
                else { $lastposterby  = qq~<font color=$fontcolormisc2>&nbsp;最后发表： </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>&nbsp;没有帖子</font>~; $lastposterby  = ""; }

	    if ((($privateforum ne "yes")||($membercode eq "ad")||($membercode eq "smo"))&&($topictitle)) {
	        my $topictitletemp = $topictitle;
       	        study($topictitletemp);
	        $topictitletemp =~ s/\&lt;/</g;
	        $topictitletemp =~ s/\&gt;/>/g;
                $topictitletemp =~ s/\&amp;/\&/g;
	        $topictitletemp =~ s/\&nbsp;/ /g;
	        $topictitletemp =~ s/  /　/g;
	        $topictitletemp =~ s/\&quot;/\\\"/g;
                $topictitletemp = &lbhz($topictitle,18);
#                $topictitletemp =~ s/\&/\&amp;/g;
	        $topictitletemp =~ s/</\&lt;/g;
	        $topictitletemp =~ s/>/\&gt;/g;
	        $lastpost = qq~<font color=$fontcolormisc2>&nbsp;主题： </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=*>
<table width=100% cellpadding=1><tr><td width=3%>$team</td><td width=1></td><td width=97%>$forumnamelink</td>
<td bgcolor=$forumcolorone align=center width=80><font color=$forumfontcolor>$modout</td>
<td bgcolor=$forumcolortwo align=left width=97><table width=100% cellpadding=0 cellspacing=0><tr><td align=left><font color=$fontcolormisc2>&nbsp;主题：<BR>&nbsp;回复：</td><td align=right>$threads&nbsp;<BR>$posts&nbsp;</td></tr></table></td>
<td bgcolor=$forumcolorone width=168><font color=$lastpostfontcolor>$lastpost$lastposterby$forumlastpost</td>
<td bgcolor=$forumcolortwo align=center width=26>$forumbookmark</td>
</tr></table>~;
    }
    $lastcategoryplace = $categoryplace;
    undef $forumlastvisit; undef $forummoderator; undef $modout; undef $forumbookmark;
}

$output .= qq~<br><table cellpadding=0 cellspacing=0 width=$tablewidth bgcolor=$tablebordercolor align=center><tr><td><table cellpadding=6 cellspacing=1 width=100%>~;

$leomemory = qq~<a href=http://www.LeoBBS.com target=_blank><img src=$imagesurl/images/powered.gif width=88 height=31 border=0 title="--------------------------    ☆    -------------------------\n　雷傲论坛(LeoBoard)由 CGI 编程者之家制作　\n　正版标示： Powered By CGIer.com　\n　感谢您采用我们的论坛，让我们做的更好！　\n--------------------------    ☆    -------------------------"></a>~;
if (($lmforums ne "")&&($lmforums > 0)) {
    $leomemory1 = qq~<a href=http://www.cgier.com target=_blank><img src=$imagesurl/images/ad8831.gif width=88 height=31 border=0 title="--------------------------    ☆    -------------------------\n　雷傲论坛(LeoBoard)由 CGI 编程者之家制作　\n　正版标示： Powered By CGIer.com　\n　感谢您采用我们的论坛，让我们做的更好！　\n--------------------------    ☆    -------------------------"></a>~;
    $output .= qq~
<tr><td bgcolor=$titlecolor colspan=2>
<font color=$titlefontcolor><b>-=> 联盟论坛 $uniontitle</b>　 [<a href=$thisprog?action=union><font color=$fontcolormisc>$unionview</font></a>]　 [<span style="cursor:hand" onClick="javascript:openScript('lmcode.cgi',480,240)">论坛联盟代码</span>]
</td></tr>
~;
    if ($union == 1){
	$lmtexts = "";
	$lmlogos = "";
	foreach $lmforum (@lmforums) {
	    chomp $lmforum;
            next if ($lmforum eq "");
            ($lmforumname,$lmforumurl,$lmforuminfo,$lmforumorder,$lmweblogo) = split(/\t/,$lmforum);
            if (($lmweblogo ne "")&&($lmweblogo ne "http:\/\/")) { $lmlogos .= qq~<a href=$lmforumurl target=_blank onmouseover="document.all.lmforum.stop();" onmouseout="document.all.lmforum.start();"><img src=$lmweblogo width=88 height=31 border=0 title="$lmforumname\n$lmforuminfo"></a> ~; }
            else { $lmtexts .= qq~<a href=$lmforumurl target=_blank title="$lmforuminfo" onmouseover="document.all.lmforum1.stop();" onmouseout="document.all.lmforum1.start();">$lmforumname</a>　~; }
	}
	$output .= qq~<tr><td bgcolor=$forumcolorone width=26 align=center><img src=$imagesurl/images/shareforum.gif width=16 height=16></td><td bgcolor=$forumcolortwo width=*><table width=100% cellpadding=0 cellspacing=0><tr><td width=100%><img src=$imagesurl/images/none.gif width=500 height=1><BR><marquee name="lmforum" id="lmforum"  behavior="alternate" direction="left" scrollamount="4" scrolldelay="1" hspace="0" vspace="0">$lmlogos</marquee></td><td width=100>$leomemory</td></tr></table></td></tr>~ if ($lmlogos ne "");
	$output .= qq~<tr><td bgcolor=$forumcolorone width=26 align=center><img src=$imagesurl/images/shareforum.gif width=16 height=16></td><td bgcolor=$forumcolortwo width=*><table width=100% cellpadding=0 cellspacing=0><tr><td width=100%><img src=$imagesurl/images/none.gif width=500 height=1><BR><marquee name="lmforum1" id="lmforum1"  behavior="alternate" direction="left" scrollamount="4" scrolldelay="1" hspace="0" vspace="0">$lmtexts</marquee></td><td width=100>$leomemory1</td></tr></table></td></tr>~ if ($lmtexts ne "");
    }
}

$output .= qq~
</table></td></tr></table><img src=$imagesurl/images/none.gif width=10 height=5><br>
~;

if ($dispborn ne "no") {
    &birthday;
    unless (($dispborn eq "auto")&&($birthdayuser eq "")) {
        $birthdayuser = "今天没有人过生日" if ($birthdayuser eq "");
        $output .= qq~
<table cellpadding=0 cellspacing=0 width=$tablewidth bgcolor=$tablebordercolor align=center>
<tr><td><table cellpadding=6 cellspacing=1 width=100%>
<tr><td bgcolor=$titlecolor colspan=7><font color=$titlefontcolor>
<B>-=> 今天过生日的注册用户 （共 $borncount 人）　　[ <a href="$imagesurl/images/rili.htm" target=_blank>论坛日历</a> ]</td></tr>
<tr><td bgcolor=$forumcolorone align=center width=26><img src=$imagesurl/images/born.gif alt="今天过生日人员名单" width=16 height=16></td>
<td bgcolor=$forumcolortwo colspan=6 width=*><img src=$imagesurl/images/none.gif width=400 height=0><br>
　<font color=$forumfontcolor>$birthdayuser
</td></tr>~;
    }
}

$onlinemaxtime = &dateformatshort($onlinemaxtime + $timeadd);

if ($otherbackpic ne "")  { $otherbackpic = "background=$imagesurl/myimages/$otherbackpic"; }
if ($otherbackpic1 ne "") { $otherbackpic1 = "background=$imagesurl/myimages/$otherbackpic1"; }

$output .= qq~
</table></td></tr></table><img src=$imagesurl/images/none.gif width=10 height=5><br>
<table cellpadding=0 cellspacing=0 width=$tablewidth bgcolor=$tablebordercolor align=center>
<tr><td><table cellpadding=6 cellspacing=1 width=100%>
<tr><td bgcolor=$titlecolor colspan=7><font color=$titlefontcolor>
<B>-=> 论坛在线统计 （同时在线峰值：$onlinemax 人，发生时刻：$onlinemaxtime）</B>　 [$onlinetitle]</td></tr>
<tr><td bgcolor=$forumcolorone align=center width=26><img src=$imagesurl/images/online.gif alt="论坛在线人数" width=16 height=16></td>
<td bgcolor=$forumcolortwo colspan=6 width=* $otherbackpic><font color=$titlefontcolor>
&nbsp;<font color=$forumfontcolor>$membertongji $createday论坛总共被访问 <b>$count1</b> 次，共被点击 <b>$count2</b> 次。<BR></font>
~;
if ($onlineview == 1) {
    $output .= qq~&nbsp;<font color=$forumfontcolor>在线图例：　<img src=$imagesurl/images/messages0.gif width=12> 论坛坛主 　<img src=$imagesurl/images/messages6.gif width=12> 论坛总版主 　<img src=$imagesurl/images/messages3.gif width=12> 分类区版主 　<img src=$imagesurl/images/messages4.gif width=12> 论坛版主 　<img src=$imagesurl/images/messages5.gif width=12> 认证会员 　<img src=$imagesurl/images/messages1.gif width=12> 普通会员 　<img src=$imagesurl/images/messages2.gif width=12> 客人或隐身会员<br><hr size=1 width=99%><table cellpadding=1 cellspacing=0 border=0><tr>$memberoutput</tr></table>~;
}

if ($dispview eq "yes") {
    $output .= qq~</td></tr></table></td></tr></table><img src=$imagesurl/images/none.gif width=9 height=5><br>
<table cellspacing=0 cellpadding=0 width=$tablewidth bgcolor=$tablebordercolor align=center>
<tr><td><table cellspacing=1 cellpadding=3 width=100%>
<tr><td width=75% bgcolor=$titlecolor><b>　-=> LB5000MX 论坛图例</td>
<td align=right noWrap bgcolor=$titlecolor width=25%>所有时间均为 - $basetimes &nbsp;</td></tr>
<tr><td bgcolor=$forumcolortwo colspan=3 $otherbackpic1>
<table cellspacing=4 cellpadding=0 width=92% align=center>
<tr><td colspan=6>论坛图例仅当你登录并且上次访问后才显示&nbsp;$loginmessage</font></div></td></tr>
<tr><td><font color=$fonthighlight TITLE=允许注册会员发言和回复>正规论坛</font></td>
<td><font color=$fonthighlight TITLE=允许任何人发言和回复>开放论坛</font></td>
<td><font color=$fonthighlight TITLE=允许坛主和版主发言，其他注册用户只能回复>评论论坛</font></td>
<td><font color=$fonthighlight TITLE=允许拥有访问密码或已经经过认证的注册会员发言>保密论坛</font></td>
<td><font color=$fonthighlight TITLE=允许认证会员发言和回复>认证论坛</font></td>
<td colspan=2><font color=$fonthighlight>特殊论坛</font></td></tr>
<tr><td><img src=$imagesurl/images/foldernew.gif width=13 height=16> 有新的帖子</td>
<td><img src=$imagesurl/images/folderallnew.gif width=13 height=16> 有新的帖子</td>
<td><img src=$imagesurl/images/follownew.gif width=13 height=16> 有新的帖子</td>
<td><img src=$imagesurl/images/lock_l.gif width=13 height=16> 有新的帖子</td>
<td><img src=$imagesurl/images/rzfoldernew.gif width=13 height=16> 有新的帖子</td>
<td><img src=$imagesurl/images/jinghua.gif width=13 height=16 TITLE=只允许坛主和版主发言和操作> 只读精华区</td>
<td align=right valign=top rowspan=2>$leomemory</td></tr>
<tr><td><img src=$imagesurl/images/folder.gif width=13 height=16> 没有新帖子</td>
<td><img src=$imagesurl/images/folderall.gif width=13 height=16> 没有新帖子</td>
<td><img src=$imagesurl/images/follow.gif width=13 height=16> 没有新帖子</td>
<td><img src=$imagesurl/images/lock_b.gif width=13 height=16> 没有新帖子</td>
<td><img src=$imagesurl/images/rzfolder.gif width=13 height=16> 没有新帖子</td>
<td><img src=$imagesurl/images/shareforum.gif width=16 height=16 TITLE=和本论坛友情链接的联盟论坛> 联盟论坛区</td></tr>
</table>~;
}

if (($displink eq "yes")&&($links ne "")) {
    $output .= qq~</td></tr></table></td></tr></table><img src=$imagesurl/images/none.gif width=9 height=5><br>
<table cellspacing=0 cellpadding=0 width=$tablewidth bgcolor=$tablebordercolor align=center border=0>
<tr><td><table cellspacing=1 cellpadding=3 width=100% border=0>
<tr><td bgcolor=$titlecolor colspan=7><font color=$titlefontcolor><B>-=> 首页连接</td></tr>
<tr><td bgcolor=$forumcolortwo colspan=7 width=*><font color=$titlefontcolor>
<font color=$forumfontcolor>$links
~;
}

my $timenow  = $currenttime + $timeadd;
my $timenow1 = &longdate("$timenow");
my $timenow2 = &shorttime("$timenow");

$output .= qq~</td></tr></table></td></tr></table><img src=$imagesurl/images/none.gif width=9 height=5><br>
<table cellspacing=0 cellpadding=0 width=$tablewidth align=center>
<tr><td>&nbsp;&nbsp;现在时间是 $timenow1 $timenow2 ($basetimes)</td>
<td align=right noWrap>[ <a href=leoboard.cgi?action=delcookieall>删除论坛 cookie</a> ] :: [ <a href=leoboard.cgi?action=resetall>标记所有为已读</a> ] :: [ <a href=$thisprog?action=expand>展开所有分类</a> ] :: [ <a href=$thisprog?action=depand>收缩所有分类</a> ]&nbsp;</td></tr>
</table><center><br>$adfoot</center>~;

&output( -Title   => "$boardname", -ToPrint => $output, -Version => $versionnumber );
exit;

sub birthday {
    $birthdayuser = "";
    $borncount = 0;
    my $filedate = "";
    my $nowtime = &shortdate($currenttime + $timeadd);
    (my $nowy, my $nowm, my $nowd) = split(/\//, $nowtime);
    my $filetoopen = "${lbdir}data/birthdaytoday.cgi";
    if (-e $filetoopen) {
        open (BDILE, "$filetoopen");
        @birthdaytoday = <BDILE>;
        close (BDILE);
        $filedate=$birthdaytoday[0];
        chomp $filedate;
    }
    if ($filedate ne $nowtime) {
        my $lockfile = "$lbdir" . "lock/birthday.lck";
        if (!(-e $lockfile)) {
	    open (LOCKBIRTH, ">$lockfile");
	    close (LOCKBIRTH);

    	    undef @birthdaytoday;
            my $filetomakeopen = "${lbdir}data/lbmember3.cgi";
            open (MEMFILE, "$filetomakeopen");
            my @memberdata = <MEMFILE>;
            close (MEMFILE);
            push(@birthdaytoday, "$nowtime\n");
            foreach (@memberdata) {
	    	chomp $_;
	    	(my $users, my $borns) = split(/\t/,$_);
	    	(my $unowy, my $unowm, my $unowd) = split(/\//, $borns);
	    	if (($nowm eq $unowm)&&($nowd eq $unowd)) {
                    my $usersfilename = $users;
                    $usersfilename =~ s/ /\_/g;
	            $usersfilename =~ tr/A-Z/a-z/;
	            $unowy = $nowy - $unowy;
	            $unowy = $unowy - 1900 if ($unowy > 1900);
	            push(@birthdaytoday, "$users\t$usersfilename\t$unowy\t\n");
	    	}
            }
            chomp @birthdaytoday;
            open (BDILE, ">$filetoopen");
            foreach (@birthdaytoday) {
            	chomp $_;
            	next if ($_ eq "");
            	print BDILE "$_\n";
            }
            close (BDILE);
            unlink($lockfile);
    	} else {
            (my $sec,my $no) = localtime($currenttime + $timeadd);
            $sec = int($sec/12);
            unlink($lockfile) if ($sec == 2);
	}
    }
    
    shift(@birthdaytoday);
    $borncount = @birthdaytoday;
    foreach (@birthdaytoday) {
    	(my $users,my $usersfilename,my $unowy) = split(/\t/,$_);
	$birthdayuser .= qq~<span style="cursor:hand" onClick="javascript:O9('~ . ($uri_escape eq "no" ? $usersfilename : uri_escape($usersfilename)) . qq~')" title=祝$unowy岁生日快乐！>$users</span>, ~;
    }
    chop $birthdayuser;
    chop $birthdayuser;
    undef @birthdaytoday;
}

END {
  if ($cpudisp eq "1") {
    $spent_time = sprintf ("%.2f", ((times)[0] + (times)[1] - $start_time)*1000);
    print "<center><font color=#c0c0c0>当前页面执行消耗时间： $spent_time 毫秒";
  }
}