#------------------------------------------------------#
#　　　　　　　　　本程序為Yuzi工作室提供　  　　　　　#
#　　　　　　　　Yuzi論壇3000(BBS3000)v4.00　　　　　　#
######################---------------------------------#
## 以下部分不需修改 ##
######################
if($Cookies{del} ne $deltitle || $Cookies{del} eq ""){&monitor;}
open(TITLES,"$filepath/list/$id/$no");
@hastitles=<TITLES>;
close(TITLES);
open(TITLES,">$filepath/list/$id/$no");
foreach $m (@hastitles){
chomp($m);
if($m ne ""){
($rtime,$rthistime,$rdusername)=split(/\t/,$m);
if($rthistime eq $deltitle){
$rusername=$rdusername;
}else{
print TITLES $m."\n";
}}
}
close(TITLES);
open(NUMBER,"$filepath/guest/2$rusername.cgi");
$NUMBER=<NUMBER>;
close(NUMBER);
($lys,$oldlys,$money,$charm)=split(/\t/,$NUMBER);
$money=$money-6;$charm=$charm-0.5;
open(NUMBER,">$filepath/guest/2$rusername.cgi");
print NUMBER "$lys"."\t"."$oldlys"."\t"."$money"."\t"."$charm";
close(NUMBER);

open(TITLES,"$filepath/list/$id/$rtime");
$hastitles=<TITLES>;
close(TITLES);
open(TITLES,">$filepath/list/$id/$rtime");
($rtitles,$rthistime,$rusername,$rcomment,$rfrom,$rhasreply,$remote,$rlastname,$rlasttime,$re,$djj,$jing,$lock,$voteman,$votetol)=split(/\t/,$hastitles);
$rhasreply=@hastitles-1;
if($rhasreply==0){$rlastname="--";}else{
open(REPLY,"$filepath/list/$id/$re");
@hasreply=<REPLY>;
close(REPLY);
$size=@hasreply-1;
$m=@hasreply[$size];
($lastrtime,$lastrthistime,$lastrusername)=split(/\t/,$m);
$rlastname="$lastrusername";$rlasttime="$lastrthistime";
}
print TITLES $rtitles."\t".$rthistime."\t".$rusername."\t".$rcomment."\t".$rfrom."\t".$rhasreply."\t".$remote."\t".$rlastname."\t".$rlasttime."\t".$re."\t".$djj."\t".$jing."\t".$lock."\t".$voteman."\t".$votetol;
close(TITLES);
print "Content-type: text/html\n\n";
print <<EOF;
<script>alert('已經成功刪除該帖子!');history.back();</script>
EOF
exit;
######################### END OF SCRIPT #########################