leoboard.cgi

一个linux论坛

$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");