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

##################################################
#########☆(07)スレッドのhtml作成☆###############
##################################################
sub makehtmlbody {
seek(LOGNEW,0,0);
my($count)=0;
if($lognewsuu-2 > $suresuu-1){$fileend=$suresuu;}
else{$fileend=$lognewsuu-2;}
while(<LOGNEW>){
if($count > 0 && $count <= $fileend){
tr/\x0D\x0A//d;
($logg,$suba,$nototal)=split /<>/;

$article="${board}_${logg}";
$ahtml="$htmlpath/$board/html/${board}_${logg}.html";
unless(-e "$ahtml"){&remakehtml;}

$count2=$count-1;
$count3=$count+1;
$count4=sprintf("%02d",$count);
if($delcheck eq "all"){
print HTML<<"_EOF_";
<form action=$cgizpath/delete.cgi method=post>
<input type=hidden name=res value=$logg>
<input type=hidden name=$logg value=del>
<input type=hidden name=board value=$board>
_EOF_
}

＞＞２５８
（ ・３・）エェー　したらばなんかやだYO
トリップ化けるしー

print HTML<<"_EOF_";
$table3<TR><TD>
<DL>
<A name=$count></A>
<table width=100% cellpadding=1><tr valign=top>
<td nowrap><A href=#$count2>▲</A>$count4<A href=#$count3>▼</A>
<B><FONT color=$titlecolor size=+1>$suba</FONT></B>

</td>
<td nowrap align=right><a href=$cgizpath/readres.cgi?bo=$board\&vi=$logg target=_blank>全レス</a>
　<a href=$cgizpath/readres.cgi?bo=$board\&vi=$logg\&rm=50 target=_blank>最新50件</a>　<a href=index.html>リロード</a>　<A href=#pagetop>トップ</A>
<A href=#$count2>▲</A>$count4<A href=#$count3>▼</A></td></tr></table>
<base target=_blank>
_EOF_

open(HHM,"$ahtml");
while(<HHM>){print HTML;}
close(HHM);

if($delcheck eq "all"){
print HTML<<"_EOF_";
<br>
<SELECT name=mode>
<OPTION value=sakujo>削除
<OPTION value=iten>スレッド移転
<OPTION value=tobasu>スレッド削除
</SELECT>
<input type=submit value=実行 name=submit>
</form>
_EOF_
}