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

$email=~tr/\x0D\x0A//d;
if ($email ne "") {$name = "<a href=mailto\:$email>$name</a>";}
print <<"_EOF_";
<DL><b>$sub</b><br><br>
<input type=checkbox name=1 value=del> 1 <B>$name</B> $date<BR>
<DD>$msg<BR><BR>
_EOF_

$count=0;
open(LOG,"$htmlpath/$FORM{bo}/txt/$FORM{bo}_$FORM{vi}b.txt");
while(<LOG>){
if(/<>/){
$count++;
($dater,$namer,$msg,$nor,$emailr,$delmes) = split /<>/;
$emailr=~tr/\x0D\x0A//d;
$printres=$count+1;
if ($emailr ne "") {$namer = "<a href=\"mailto\:$emailr \">$namer</a>";}
print <<"_EOF_";
<DT><input type=checkbox name=$printres value=del>$nor <B>$namer</B> $dater<BR>
<DD>$msg<br><br>
_EOF_

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

}

##################################################
###############☆(07)フッダー表示☆###############
##################################################
sub footer{
print <<"_EOF_";
<br>
<p align="right"><a href="http://www.megabbs.com/megabbs/index.html">$cgi ver.$ver<br>
(c)megabbs</a></p>
</body></html>
_EOF_

}

##################################################
###############☆(08)エラー処理☆#################
##################################################
sub error {
if ($_[1] eq "lock"){foreach $lockfiles (@lockfile){if( -e $lockfiles){ unlink($lockfiles); }}}
if (-e $tmpfile) { unlink($tmpfile); }

if ($HEAD eq "") { print "Content-type: text/html\n\n";}
print <<"_EOF_";
<center>
<font size="4" color="red">エラー</font>
<hr width="60%" size="0" noshade color=red>
$_[0]<br>$com
<center>
</body></html>
_EOF_
exit;
}

ALLVIEWファイルここまで。
次いくよー

#!/usr/bin/perl

##############################################################
# #
# count.cgi ver1.69β1 by chiba #
# <板別書き込みランキングCGI> #
# #
##############################################################

$cgi="count.cgi";
$ver="1.69β1";

#gzip圧縮送信を使う（管理CGIとかが真っ白に表示されたらこれを0にしてください）
#(1=圧縮する、0=圧縮しない）
$gzip=0;

#gzip圧縮するときのgzipのパス
$gzippath='/bin/gzip';
########目次########
#(01)目次
#(02)メインルーチン (本筋)
#(03)表示 (&hyouji)
#(04)カウント (&count)
#(05)フォームのデコード (&decode)
#(06)エラー処理 (&error)
#(07)ロックファイル（symlink関数） (&lock1)
#(08)ロックファイル（open関数） (&lock2)