www.pudn.com > bbs3000afree.zip > 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=; 
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=; 
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="$lastname";} 
$page=1; 
if($rhasreply>15){ 
$page=$rhasreply/15; 
($page,$spage)=split(/\./,$page); 
if($spage){$page++;} 
} 
$new="$new 
 
 
 $rtitles
 
$rhasreply
 
$rhassee
 
 $rlasttime
 
$lastname
 
$bbsname
 
 
"; 
} 
} 
&css; 
print " 
$FORM{username} 近期发表的帖子
 
 

 
 
 
文章标题
 
回复数
 
点击
 
最后更新时间
 
最后回复
 
所属论坛
 
 
"; 
print "$new 

BACK
 
 
本论坛言论纯属发表者个人意见，与 $zyname 立场无关
免费论坛服务由 $zyname 提供 技术支持：Yuzi工作室 

Yuzi Bulletin BoardTM Version $ver 
"; 
exit; 
} 
print "Content-type: text/html\n\n"; 
print < 
 
EOF 
exit; 
######################### END OF SCRIPT #########################