お前らのデスクトップを晒してくださいinFF・DQ板

##################################################
##################☆(05)板表示☆##################
##################################################
sub itaview{
open(LOGNEW,"$htmlpath/$FORM{bo}/$FORM{bo}_newb.txt");
print <<"_EOF_";
<a href=allview.cgi>戻る</a>
<form action=delete.cgi method=post>

_EOF_
while(<LOGNEW>){
if(/<>/){
($logg,$sub,$nototal)=split /<>/;
chomp($nototal);
print <<"_EOF_";
<input type=checkbox name=$logg value=del><a href="allview.cgi?mode=sure&bo=$FORM{bo}&vi=$logg">$sub($nototal)</a><br>
_EOF_
}}

close(LOGNEW);
print <<"_EOF_";
<input type=hidden name=board value=$FORM{bo}>
<SELECT name="mode" >
<OPTION value="iten">スレッド移転
<OPTION value="tobasu">スレッド削除
</SELECT>
<input type=submit value="実行" name="submit">
</form>
<a href=allview.cgi>戻る</a>
_EOF_
&footer;

}

##################################################
################☆(06)スレ表示☆##################
##################################################
sub sureview{
print <<"_EOF_";
<a href=allview.cgi?mode=ita&bo=$FORM{bo}>戻る</a>
<form action=delete.cgi method=post>
<input type=hidden name=board value=$FORM{bo}>
<input type=hidden name=res value=$FORM{vi}>
<input type=hidden name=$FORM{vi} value=del>
<base target=_blank>
_EOF_

open(LOGNEW,"$htmlpath/$FORM{bo}/txt/$FORM{bo}_$FORM{vi}a.txt")|| &error("ログファイルが開けません！","no");
($date,$name,$sub,$msg,$no,$email,$delmes) = split(/<>/, <LOGNEW>);
close(LOGNEW);