www.pudn.com > bbs3000afree.zip > redit.cgi

#------------------------------------------------------# 
#　　　　　　　　　本程序为Yuzi工作室提供　  　　　　　# 
#　　　　　　　　Yuzi论坛3000(BBS3000)v4.00　　　　　　# 
######################---------------------------------# 
## 以下部分不需修改 ## 
###################### 
foreach (@badwords) {$comment =~s/$_/****/gi;} 
if ($FORM{'smilies'} ne "1"){$comment = &smilies("$comment");} 
if ($ybbcodeAllow eq "on" && $FORM{'ybbcode'} ne "1"){$comment = &ybbcode("$comment");} 
do "$cgipa/sub/act.cgi"; 
foreach (@badwords) {$titles =~s/$_/****/gi;} 
if($titles eq ""){&errorview("您的回复标题不能没有填写！");} 
if(length($comment) > $restrictbyte){&errorview("文章内容不能大于$restrictbyte个字节！");} 
open(TITLES,"$filepath/list/$id/$no"); 
@hastitles=; 
close(TITLES); 
foreach $hastitles (@hastitles) { 
chomp($hastitles); 
($rtime,$rthistime,$rusername)=split(/\t/,$hastitles); 
if ($rthistime eq $deltitle){ 
if($username eq ""){&errorview("您当前的身份是访客！");} 
open (FILE, "$filepath/data/rank"); 
@rank = ; 
close(FILE); 
foreach $ranks (@rank) { 
chomp($ranks); 
if ($ranks eq $Cookies{username}){$rankss="ok";}} 
if(($rankss ne ok)&&($Cookies{username} ne $rusername)&&($Cookies{username} ne $admname)&&($Cookies{username} ne $bzmc)&&($Cookies{username} ne $fbzmc)&&($Cookies{username} ne $fbzmc2)){&errorview("您没有足够的权限编辑此帖！");}} 
} 
open(TITLES,">$filepath/list/$id/$no"); 
foreach $m (@hastitles){ 
chomp($m); 
($rtime,$rthistime,$rusername,$rcomment,$rfrom,$remote,$retitles,$rerhassee)=split(/\t/,$m); 
if ($m ne ""){ 
if ($rthistime eq $deltitle){ 
print TITLES $rtime."\t".$rthistime."\t".$rusername."\t".$comment."

[ 此消息由 $username 在 $thistime 编辑过 ]"."\t".$rfrom."\t".$remote."\t".$titles."\t".$rerhassee."\n"; 
} else { 
print TITLES $m."\n"; 
}} 
} 
close(TITLES); 
print "Content-type: text/html\n\n"; 
print " 
 
 
 
 
 
 
 
 
 
 
谢谢$username，您的信息已成功发出！

请等待系统将自动返回...  


 
(如果您不愿意等待，请点击这里返回) 
 
 
 
"; 
exit; 
######################### END OF SCRIPT #########################