📄 postlog.cgi
字号:
#!/usr/bin/perl
#------------------------------------------------------#
# 本程序为Yuzi工作室提供 #
# Yuzi论坛3000(BBS3000)v4.00 #
#------------------------------------------------------#
$cgipa="."; # CGI程序文件的绝对路径
######################
## 以下部分不需修改 ##
######################
require "$cgipa/setup.cgi";
&GetCookies;
##########
if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
}else {$buffer = $ENV{'QUERY_STRING'};}
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value=~tr/+/ /;
$value=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
##########
if($FORM{menu} eq "log_frame"){
open (PEO,"$filepath/postlog/$FORM{username}.cgi");
@lines=<PEO>;
close (PEO);
foreach $line (@lines) {
chomp($line);
($slttitle,$id,$bbsname)=split(/\t/,$line);
if(-f "$filepath/list/$id/$slttitle"){
open(TITLES,"$filepath/list/$id/$slttitle");
$m=<TITLES>;
close(TITLES);
($rtitles,$rthistime,$rusername,$nr,$rfrom,$rhasreply,$emote,$lastname,$rlasttime,$re,$rhassee,$jing,$lock)=split(/\t/,$m);
if (length($rtitles) > 40) {$rtitles = substr($rtitles,0,40);$rtitles.="...";}
if($lastname ne "--"){$lastname="<a onclick=min_yuzi() target=message href=yhreg.cgi?menu=viewuser&username=$lastname>$lastname</a>";}
$page=1;
if($rhasreply>15){
$page=$rhasreply/15;
($page,$spage)=split(/\./,$page);
if($spage){$page++;}
}
$new="$new
<table width=100% cellspacing=0 border=1 bordercolor=$bgcolor>
<tr align=center>
<td bgcolor=$bgcolor2 align=left width=40% onMouseOver=this.style.backgroundColor='$bgcolor1' onMouseOut=this.style.backgroundColor=''><a href=JavaScript:New('$ym/bbs$Cookies{style}.cgi?menu=show&id=$id&slttitle=$slttitle')><img border=0 alt=新窗口 src=$imagurl/$emote.gif></a> <a onclick=min_yuzi() target=message href=$ym/bbs$Cookies{style}.cgi?menu=show&id=$id&slttitle=$slttitle>$rtitles</a></td>
<td bgcolor=$bgcolor1 width=7%>$rhasreply</td>
<td bgcolor=$bgcolor2 width=6%>$rhassee</td>
<td bgcolor=$bgcolor1 width=20%><a onclick=min_yuzi() target=message href=$ym/bbs$Cookies{style}.cgi?menu=show&id=$id&slttitle=$slttitle&page=$page#end><img src=$imagurl/lastpost.gif border=0 alt=到最新发表的页面上></a> $rlasttime</td>
<td bgcolor=$bgcolor2 width=10% style=word-break:break-all>$lastname</td>
<td width=17% bgcolor=$bgcolor1><a href=bbs$Cookies{style}.cgi?menu=listtitle&id=$id>$bbsname</a></td>
</tr></table>
";
}
}
&css;
print "<SCRIPT>if(top==self)document.location='postlog.cgi?username=$FORM{username}';</SCRIPT><center>
<table background=$imagurl/color/$color/iebg.gif width=100% border=0 cellpadding=4 cellspacing=0 bgcolor=$bgcolor0><tr><td align=center><font color=ffffff>$FORM{username} 近期发表的帖子</font></td>
</tr></table>
<br>
<style>TABLE{BORDER-TOP:0px;BORDER-LEFT:0px;BORDER-BOTTOM:1px}TD{BORDER-RIGHT:0px;BORDER-TOP:0px}</style>
<table width=100% cellspacing=0><tr align=center>
<td width=40% bgcolor=$bgcolor0><font color=$bgcolor4>文章标题</font></td>
<td width=7% bgcolor=$bgcolor0><font color=$bgcolor4>回复数</font></td>
<td width=6% bgcolor=$bgcolor0><font color=$bgcolor4>点击</font></td>
<td width=20% bgcolor=$bgcolor0><font color=$bgcolor4>最后更新时间</font></td>
<td width=10% bgcolor=$bgcolor0><font color=$bgcolor4>最后回复</font></td>
<td width=17% bgcolor=$bgcolor0><font color=$bgcolor4>所属论坛</font></td>
</tr></table>
";
print "$new
<br><a href=javascript:history.back();>BACK</a><br>
<hr noShade SIZE=1 width=450>
本论坛言论纯属发表者个人意见，与 <font color=ff6633><b>$zyname</font></b> 立场无关<br>免费论坛服务由 <font color=ff6633><b><a href=$zyurl target=_blank>$zyname</a></b></font> 提供 技术支持：<b><a href=http://www.yuzi.net target=_blank>Yuzi工作室</a></b>
<br>Yuzi Bulletin Board<font style=font-size:7pt><sup><b>TM</b></sup></font> Version $ver
";
exit;
}
print "Content-type: text/html\n\n";
print <<EOF;
<html><link REL="SHORTCUT ICON" href=$imagurl/ybb.ico><title>$FORM{username} 近期发表的帖子</title><FRAMESET name=main_frame rows=*,0 frameborder=0>
<FRAME name=yuzi_frame src=postlog.cgi?menu=log_frame&username=$FORM{username}><FRAME name=message src=$imagurl/loading.htm>
EOF
exit;
######################### END OF SCRIPT #########################
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -