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

<p align="right"><a href="http://www.megabbs.com/megabbs/index.html">$cgi ver.$ver<br>
(c)megabbs</a> (<a href="http://around.tripod.co.jp/">original</a>)</p>
</body></html>
_EOF_
close(COUNT);
}

##################################################
################☆(04)カウント☆#################
##################################################
sub count{
if($FORM{board}){
#カウント
@lockfile=("./lock/count.lock");
# ロック処理
if($lockkey eq 'symlink'){&lock1;}
elsif($lockkey eq 'open'){&lock2;}
@countlog=("all","$countdate");
foreach $countlog (@countlog){

$countok=0;
open(COUNT,"./count/$countlog.txt");
while(<COUNT>){
($countsuu,$boardcount)=(split /<>/)[0,1];
if($boardcount eq $FORM{board}){$countok=1;last;}
}

if($countok ne "1"){$countsuu=0;}
$countok=0;
$countsuu++;
seek(COUNT,0,0);
open(TMP,">$tmpfile");
while(<COUNT>){
chomp;
($countsuun,$boardcount,$boardnamecount,$htmlzpathbo)=split /<>/;
if($boardcount ne $FORM{board}){
if($countsuu >= $countsuun){
print TMP "$countsuu<>$FORM{board}<>$FORM{bbstitle}<>$FORM{htmlzpath}<>\n$countsuun<>$boardcount<>$boardnamecount<>$htmlzpathbo<>\n";$countok="1";last;}
else{print TMP "$_\n";}
}
}