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

if($countok eq "1"){
while(<COUNT>){
$boardcount=(split /<>/)[1];
if($boardcount ne $FORM{board}){print TMP;}
}
}
else{print TMP "$countsuu<>$FORM{board}<>$FORM{bbstitle}<>$FORM{htmlzpath}<>\n";}
close(COUNT);

close(TMP);
rename("$tmpfile","./count/$countlog.txt");
}

# ロック解除
foreach $lockfiles (@lockfile){
if (-e "$lockfiles") { unlink($lockfiles); }
}

#カウント終わり
}

#GIFの表示
print "Content-type: image/gif\n\n";
open(GIF,"ranking.gif");
binmode(GIF);
while(<GIF>){print;}
close(GIF);
}

##################################################
###########☆(05)フォームのデコード☆#############
##################################################
sub decode {
if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
} else { $buffer = $ENV{'QUERY_STRING'};}

@pairs = split(/&/,$buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack('H2',$1)/eg;
# S-JISコード変換
&jcode'convert(*value,'sjis');
$FORM{$name} = $value;
}

# 日時の取得
$ENV{'TZ'} = "JST-9";
($mday,$mon,$year) = (localtime($jst+time))[3,4,5];
$year+=1900;
$mon++;
# 日時のフォーマット
$countdate=sprintf("%04d%02d%02d",$year,$mon,$mday);

# 一時ファイルを定義
$temp = "$$";
if ($temp eq '') {
srand;
$temp = 1000000000000000 * rand;
}
$tmpfile = "$temp" . '.tmp';
}

##################################################
###############☆(06)エラー処理☆#################
##################################################
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]<center>
</body></html>
_EOF_
exit;
}

##################################################
#####☆(07)ロックファイル（symlink関数）☆########
##################################################
sub lock1 {
foreach $lockfiles (@lockfile){
local($retry) = 10;
while (!symlink(".",$lockfiles)) {
if (--$retry <= 0) { &error("LOCK is BUSY","lock"); }
sleep(1);
}
}
}