deltitle.cgi

--黑客防线-精华奉献本(攻册)

#------------------------------------------------------#
#　　　　　　　　　本程序为Yuzi工作室提供　  　　　　　#
#　　　　　　　　Yuzi论坛3000(BBS3000)v4.00　　　　　　#
######################---------------------------------#
## 以下部分不需修改 ##
######################
if($Cookies{del} ne $deltitle || $Cookies{del} eq ""){&monitor;}
unless(-f "$filepath/list/$id/$deltitle"){
print "Content-type: text/html\n\n";
if ($FORM{'look'}){print "<SCRIPT>alert('此帖子已经被删除了！');history.back();</SCRIPT>";exit;}else{
print "<SCRIPT>alert('此帖子已经被删除了！');document.location='$imagurl/loading.htm'</SCRIPT>";
exit;}}
open(TITLES,"$filepath/list/$id/bbs");
@hastitles=<TITLES>;
close(TITLES);
$size=@hastitles;
if($size < 3){&errorview("您至少必须保留两条帖子！");}
open(TITLES,">$filepath/list/$id/bbs");
foreach $m (@hastitles){
chomp($m);
($rthistime)=split(/\t/,$m);
if($rthistime ne $deltitle){
print TITLES $m."\n";
}
}
close(TITLES);
rename("$filepath/list/$id/$deltitle","$filepath/recycle/$deltitle");
rename("$filepath/list/$id/$deltitle"."b","$filepath/recycle/$deltitle"."b");
unlink("$filepath/vote/$deltitle");
unlink("$filepath/vote/$deltitle.dat");
unlink("$filepath/vote/$deltitle.ip");
open(TITLES,"$filepath/recycle/bbs");
@hastitles=<TITLES>;
close(TITLES);
open(TITLES,">$filepath/recycle/bbs")||&errorview("系统无法建立文件，请检查 $filepath/recycle 目录属性是否为“777”");
print TITLES "$deltitle\t$id\t$bbsname\t$Cookies{username}\t$thistime\n";
for($i=0;$i<=18;$i++){$m=@hastitles[$i];print TITLES "$m";}
close(TITLES);
if (-e "$filepath/list/$id/top"){
open (FILE, "$filepath/list/$id/top");
@top= <FILE>;
close(FILE);
open (FILE, ">$filepath/list/$id/top");
foreach $top(@top) {
chomp($top);
if ($top ne $deltitle) {
print FILE "$top\n";
}}
close(FILE);
}
open(PSD,"$filepath/list/recycle/$deltitle");
$line=<PSD>;
close(PSD);
($rtitles,$rthistime,$rusername)=split(/\t/,$line);
open(NUMBER,"$filepath/guest/2$rusername.cgi");
$NUMBER=<NUMBER>;
close(NUMBER);
($lys,$oldlys,$money,$charm)=split(/\t/,$NUMBER);
$money=$money-20;$charm=$charm-1;
open(NUMBER,">$filepath/guest/2$rusername.cgi");
print NUMBER "$lys"."\t"."$oldlys"."\t"."$money"."\t"."$charm";
close(NUMBER);
print "Content-type: text/html\n\n";
if ($FORM{'look'}){print "<SCRIPT>alert('已经成功删除该帖子!');history.back();</SCRIPT>";exit;}
else{
print "<script>alert('已经成功删除该帖子!');document.location='$imagurl/loading.htm'</SCRIPT>";exit;}
######################### END OF SCRIPT #########################