#------------------------------------------------------#
#　　　　　　　　　本程序為Yuzi工作室提供　  　　　　　#
#　　　　　　　　Yuzi論壇3000(BBS3000)v4.00　　　　　　#
######################---------------------------------#
## 以下部分不需修改 ##
######################
&origin;
if($slttitle!~/^[0-9]+$/){&errorview("帖子ID錯誤！");}
if($Cookies{vote} eq $slttitle){&errorview("不能重復投票哦！");}
print "Set-Cookie:vote=$slttitle\n";
open(TITLES,"$filepath/list/$id/$slttitle");
$hastitles=<TITLES>;
close(TITLES);
chomp($hastitles);
($titles,$rdthistime,$rdusername,$comment,$rfrom,$rdhasreply,$r3,$r4,$r5,$r6,$rhassee1,$jing,$lock,$voteman,$votetol)=split(/\t/,$hastitles);
unless($titles && $r3){print "Content-type: text/html\n\n<script>alert('無法讀取該帖子的數據！');document.location='$imagurl/loading.htm'</script>";exit;}
$votetol=$votetol+$FORM{'votetol'};
$voteman++;
open(TITLES,">$filepath/list/$id/$slttitle");
@hastitles=<TITLES>;
print TITLES $titles."\t".$rdthistime."\t".$rdusername."\t".$comment."\t".$rfrom."\t".$rdhasreply."\t".$r3."\t".$r4."\t".$r5."\t".$r6."\t".$rhassee1."\t".$jing."\t".$lock."\t".$voteman."\t".$votetol;
close(TITLES);
&okview("謝謝您投票！");
exit;
######################### END OF SCRIPT #########################