topic.cgi

一个linux论坛

    	$post =~ s/\<\/td\>\<\/tr\>\<\/table\>$//i;
	$post = "$post<br>$poll<table width=100% cellpadding=0 cellspacing=0><tr><td><BR><BR>$postcopyright<BR></td></tr></table></td></tr></table>";
	$poll = "";
    }

    ($ip1,$ip2,$ip3,$ip4) = split(/\./,$postipaddress);

    if ($mymembercode eq "ad") {
	$postipaddress=qq~<span style="cursor:hand" onClick="javascript:openScript('whois.cgi?query=$postipaddress',420,320)" title="LB WHOIS信息">$postipaddress</span>~;
    }
    elsif ($mymembercode eq "smo") {
	if ($smocanseeip eq "no") { $postipaddress=qq~<span style="cursor:hand" onClick="javascript:openScript('whois.cgi?query=$postipaddress',420,320)" title="LB WHOIS信息">$postipaddress</span>~; }
	else {
       	    if ($pvtip eq "on") { $postipaddress=qq~<span style="cursor:hand" onClick="javascript:openScript('whois.cgi?query=$postipaddress',420,320)" title="LB WHOIS信息">$postipaddress</span>~; }
       	    else { $postipaddress="已设置保密"; }
	}
    }
    elsif ($myinmembmod eq "yes") {
	if ($pvtip eq "on") { $postipaddress="$ip1.$ip2.$ip3.*"; } else { $postipaddress="已设置保密"; }
    }
    else {
	if (($pvtip eq "on")&&($inmembername ne "客人")) { $postipaddress="$ip1.$ip2.*.*"; } else { $postipaddress="已设置保密"; }
    }

    if ($proxyip ne 1) { if ($mymembercode eq "ad") { $fromproxy ="真实 IP： $truepostipaddress"; } else { $fromproxy = "此 IP 为代理服务器"; } } else { $fromproxy=""; }

    if (($rating !~ /^[0-9\-]+$/)||($rating eq "")) { $rating = 0; }
    if ($rating > 0 ) { $rating = "+$rating"; }

    if ($jhmp eq "无门无派" || $jhmp eq "") { $jhmp=""; } else { $jhmp="门派: $jhmp<br>"; }

    $userflag = "blank" if ($userflag eq "");
    $userflag = qq~　<img src=$imagesurl/flags/$userflag.gif height=14 align=absmiddle>~;

    if ($usersx !~ /^sx/i) {$showsx = "";}
    else {
    	$usersx =~ s/sx//i;
    	$showsx = substr($sxall,($usersx-1)*4,4);
    	$showsx = "<IMG src=$imagesurl/sx/sx${usersx}s.gif height=15 alt=$showsx align=absmiddle>";
    }
    if ($userxz !~ /^z/i) {$showxz = "";}
    else {
    	$userxz =~ s/z//i;
    	$showxz = substr($xzall,($userxz-1)*4,4);
    	$showxz = "<IMG src=$imagesurl/star/z$userxz.gif height=15 alt=$showxz座 align=absmiddle>";
    }

    if ($userregistered eq "no") {
    	$membername=~s/\(客\)/ \(客人\)/isg;
    	$membertitle="　　 -* 未注册 *-";
    	$rating = "未知";
    	$membergraphic = "";
    	$useravatar = "<BR>";
    	$posterfontcolor = "$posternamecolor";
    	$mtitle = "未知";
    	$joineddate = "未知";
    	$location = "未知";
	$mysaves = "未知";
    	$numberofposts = 0;
    	$sex = "";
    	$jhmp= "";
    	$rateuser="";
    	$userflag="";
    	$pvmsggraphic="";
    	$profilegraphic="";
    	$friendgraphic="";
    	$emailgraphic="";
    	$homepagegraphic="";
    	$oicqgraphic="";
    	$icqgraphic="";
    	$searchgraphic="";
    	$showxz="";
    	$showsx="";
    	$onlinetime = 0;
    }
    
    if ($sex eq "m") { $seximages = "<img src=$imagesurl/images/mal.gif width=20 alt=帅哥 align=absmiddle>"; }
    elsif ($sex eq "f") { $seximages = "<img src=$imagesurl/images/fem.gif width=20 alt=美女 align=absmiddle>";}
    else { $seximages = ""; }
    $editgraphic = "" if (($usereditpost eq "no")&&($mymembercode ne "ad")&&($mymembercode ne 'smo')&&($myinmembmod ne "yes"));
    $useravatar  = "" if ($nodispavatar eq "yes");
    $delgraphic  = "" if ($editpostnumber == 1);
    $onlinetime  = 0  if ($onlinetime < 0 );
    $output .= qq~<table cellpadding=0 cellspacing=0 width=$tablewidth align=center><tr><td bgcolor=$tablebordercolor width=1 height=24></td><td bgcolor="$postbackcolor">~;

    $replycounter = $postcountnumber + $instart; 
    if ($instart < 12) {$replycounter = $replycounter - 1;} 
    if ($editpostnumber eq $endarraytemp) { $bottomposition = qq~<a name="bottom"></a>~; }
    $output .= qq~$bottomposition<table width=100% cellpadding=4 cellspacing=5 bgcolor=$postbackcolor>
<tr><td bgcolor=$postbackcolor valign=top width=160 rowspan=2>
<table style="filter:glow(color=$glowing,direction=135)">&nbsp;<font color=$posterfontcolor><b>$membername&nbsp;</b></table>
<font color=$postfontcolortwo>&nbsp;$membertitle</font><BR>
<font color=$postfontcolorone>&nbsp;$jhmp</font>
$useravatar
<br>
<br><a href=lookinfo.cgi?action=style target=_blank title="$mtitle">$membergraphic</a>
<BR><font color=$postfontcolortwo>信息: $online $membernameimg $seximages $showsx $showxz</font>
<br><font color=$postfontcolorone>威望: $rating$rateuser</font>
<br><font color=$postfontcolortwo>来自: $location$userflag</font>
<br><font color=$postfontcolorone>总发贴数: <b>$numberofposts</b> 篇</font>
<br><font color=$postfontcolortwo title="在线: $onlinetime 秒">注册日期: $joineddate</font><BR>
</td>
<td bgcolor=$postbackcolor width=1 height=100% rowspan=2>
<table width=1 height=100% cellpadding=0 cellspacing=0 bgcolor=$titlecolor><tr><td width=1></td></tr></table>
</td><td bgcolor=$postbackcolor valign=top width=* height=100%>
$pvmsggraphic$profilegraphic$searchgraphic$friendgraphic$emailgraphic$homepagegraphic$oicqgraphic$icqgraphic$copygfx$replygraphic$replynow<BR><hr width=100% size=1 color=$tablebordercolor>
<table cellpadding=0 cellspacing=0 width=100% style="TABLE-LAYOUT: fixed">
<tr><td width=32 valign=top>$posticon&nbsp;</td>
<td style="LEFT: 0px; WIDTH: 100%; WORD-WRAP: break-word;">$addme<table width=100% cellpadding=0 cellspacing=0 height=70 style="TABLE-LAYOUT: fixed"><tr valign=top><td style="LEFT: 0px; WIDTH: 100%; WORD-WRAP: break-word;"><font color=$postfontcolor>$post</font><BR></td>
<td width=16></td></tr></table></td></tr>
<tr><td class=bottomline bgcolor=$postbackcolor valign=bottom><hr width=100% size=1 color=$tablebordercolor>
<table width=100% cellpadding=0 cellspacing=0>
<tr><td valign=bottom><font color=$postfontcolor>$editgraphic　$delgraphic　<img src=$imagesurl/images/posttime.gif width=16 height=15 alt=发贴时间 align=absmiddle>$postdate　<img src=$imagesurl/images/ip.gif width=13 height=15 alt="$fromproxy" align=absmiddle>IP: $postipaddress</td>
<td align=right nowarp valign=bottom width=110></td></form>
<td align=right valign=bottom width=4></td></tr></table>
</td></tr></table></td><td bgcolor=$tablebordercolor width=1 height=24></td></tr></table>
<table cellpadding=0 cellspacing=0 width=$tablewidth bgcolor=$tablebordercolor align=center><tr><td height=1></td></tr></table>
~;
    $editpostnumber++; $postcountnumber++;
}

##################3
if ($treeview eq "yes") {
    @treelist=();
    $pages = qq~<font color=$menufontcolor><b>本主题共有一页</b>~;
    if (($screenmode >=8)||($tablewidth > 770)) { $topictitlemax = 96; } else { $topictitlemax = 50; }
    $output .= qq~<p><table cellpadding=4 cellspacing=1 width=$tablewidth align=center><tr><td colspan=3 bgcolor=$titlecolor><font color=$titlefontcolor><B>&nbsp;* 树形目录</B></font></td></tr>~;
    $i = 0;
    foreach (@threads) {
	($membername, $topictitle, $postipaddresstemp, $showemoticons, $showsignature, $postdate, $post, $posticon) = split(/\t/,$_);
	$topictitle =~ s/^＊＃！＆＊//;
	chomp $posticon;
	$postdate = &shortdate($postdate + $addtimes);

	if (($dofilter eq "no")||($dofilter eq "all")) {
	    $post = &postwordfilter("$post");
	}

        if (($post =~ /LBHIDDEN\[(.*?)\]LBHIDDEN/)||($post =~ /LBSALE\[(.*?)\]LBSALE/)) {
            $post = "保密";
        } else {
	    $post =~ s/\[quote\](.*)\[quote\](.*)\[\/quote](.*)\[\/quote\]//isg;
	    $post =~ s/\[quote\](.*)\[\/quote\]//isg;
	    $post =~ s/\[hidepoll\]//isg;
	    $post =~ s/\[这个(.+?)最后由(.+?)编辑\]\n//isg;
	    $post =~ s/\[hide\](.*)\[hide\](.*)\[\/hide](.*)\[\/hide\]//isg; 
	    $post =~ s/\[hide\](.*)\[\/hide\]//isg; 
	    $post =~ s/\[post=(.+?)\](.+?)\[\/post\](.*)\[post=(.+?)\](.+?)\[\/post\]//isg; 
	    $post =~ s/\[post=(.+?)\](.+?)\[\/post\]//isg; 
	    $post = &temppost("$post");
	}
	
	if (length($post)>=$topictitlemax) {
            $post=&lbhz($post,$topictitlemax);
	}

	if ($post eq "") { $post="(无内容)"; }

	if (($posticon eq "")||($posticon =~ /\<br\>/i)) {
	    $posticon = int(rand(23));
    	    $posticon = "0$posticon" if ($posticon<10);
	    $posticon = "$posticon.gif";
	}
	$posticon = qq~<img src=$imagesurl/posticons/$posticon>~;

	my $memberfilename = $membername;
	$memberfilename =~ y/ /_/;
	$memberfilename =~ tr/A-Z/a-z/;
	if ($membername=~/\(客\)/) {
	    $membername=~s/\(客\)//isg;
	    $h4 = qq~<font color=$postfontcolorone title=此为未注册用户>$membername</font>~;
	}
	else {
	    $h4 = qq~<a href=profile.cgi?action=show&member=~ . ($uri_escape eq "no" ? $memberfilename : uri_escape($memberfilename)) . qq~ title=\"查看$membername的个人资料\">$membername</a>~;
	}
	
	$editpostnumber=$i+1; 
	$h5="　　"; 
   	$h5 =qq(<input type="checkbox" name="postno$editpostnumber" value="yes">) if(($mymembercode eq "ad")||($mymembercode eq 'smo')||($mymembercode eq 'cmo')||($myinmembmod eq "yes")); 
	if ($i==0) { $h3 = "　主贴："; } else { $h3 = "$h5回复："; } 

	if ($treebackcolor ne $postcolorone) { $treebackcolor=$postcolorone; } else { $treebackcolor=$postcolortwo; }
	if ($i==$replynum) {
	    $treefontcolor="$fonthighlight";
            $h1=$h2="";
	}
	else {
	    $treefontcolor=$postfontcolorone;
	    $h1="<a href=$thisprog?forum=${inforum}&topic=${intopic}&replynum=$i&show=$show>";
	    $h2="</a>";
	}
	$output .=qq~<tr bgcolor="$treebackcolor"><td><font color=$treefontcolor> $h3 $posticon $h1 $post $h2</td><td width=130> &nbsp 作者：$h4</td><td width=70 align=right> $postdate&nbsp;</font></td></tr>~;
	$i ++;
    }
    $output .= qq~</table><img src=$imagesurl/images/none.gif height=3 width=0><BR>~;
}
########3

if (($threadstate ne "closed")&&($threadstate ne "pollclosed")&&($postopen ne "no")&&($dispquickreply ne "no")) {
    if ($emoticons eq "on") { $emoticonslink = qq~<input CHECKED name=inshowemoticons type=checkbox value=yes>使用表情字符转换？~; }
    if ($emailfunctions eq "on") {
	if ($innotify eq "yes") { $requestnotify = qq~<input name=notify type=checkbox value=yes checked>有回复时使用邮件通知您？<br>~; }
	                   else { $requestnotify = qq~<input name=notify type=checkbox value=yes>有回复时使用邮件通知您？<br>~;}
    }
}

$output .= qq~<table cellpadding=0 cellspacing=2 width=$tablewidth align=center><tr bgcolor=$menubackground height=4></tr><tr><td><font color=$menufontcolor>&nbsp;$pages</td>~;
#if ($indexforum ne "no") { $output .= qq~<td align=right nowrap>$jumphtml</td></form>~; }
$output .= qq~</tr></table><br>~;

if (($threadstate ne "closed")&&($threadstate ne "pollclosed")&&($postopen ne "no")&&($dispquickreply ne "no")) {
    $maxpoststr = "(帖子中最多包含 <B>$maxpoststr</B> 个字符)" if ($maxpoststr ne "");
    $output .= qq~<form action="post.cgi?action=reply&forum=$inforum&topic=$intopic" method=post name="FORM" enctype="multipart/form-data">
<input type=hidden name="action" value="addreply">
<input type=hidden name="forum" value="$inforum">
<input type=hidden name="topic" value="$intopic">
<table cellPadding=5 cellSpacing=1 width=$tablewidth bgcolor=$tablebordercolor align=center>
<tr><td bgcolor=$titlecolor width=220><font color=$fontcolormisc><b>快速回复主题:</b></font></td><td bgcolor=$titlecolor width=500> <font color=$fontcolormisc>$topictitletemp</font></td></tr>
<tr><td bgcolor=$miscbackone><font color=$fontcolormisc><b>输入用户名和密码:</b></font></td><td bgcolor=$miscbackone> <font color=$fontcolormisc><b>用户名</b>: <input type=text name="membername" value="$inmembername" onmouseover=this.focus() onfocus=this.select()> <span onclick="javascript:location.href='register.cgi?forum=$inforum'" style="cursor:hand">没有注册？</span>　<b>密码:</b> <input type=password name="password" value="$inpassword" onmouseover=this.focus() onfocus=this.select()> <a href="profile.cgi?action=lostpass" style="cursor:help">忘记密码？</a></font></td></tr>
~;

    if (($allowattachment ne "no")||($mymembercode eq "ad")||($mymembercode eq 'smo')||($