📄 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=<TITLES>;
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 = <FILE>;
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."<br><br>[ 此消息由 $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 "
<html>
<head>
<meta http-equiv=Content-Type content=text/html;charset=gb2312>
<meta http-equiv=refresh content=2;url=$imagurl/loading.htm>
</head>
<table cellpadding=0 cellspacing=0 border=0 width=95% align=center height=85%>
<tr align=center valign=middle>
<td>
<table cellpadding=10 cellspacing=0 border=0 width=80% align=center>
<tr>
<td valign=middle align=center bgcolor=$bgcolor2>谢谢$username，您的信息已成功发出！<br><br>请等待系统将自动返回...
<br><br>
(<a href=$imagurl/loading.htm>如果您不愿意等待，请点击这里返回</a>)
</td></tr></table></td></tr>
</table>
</html>
";
exit;
######################### END OF SCRIPT #########################
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -