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

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

##################################################
#####☆(07)ロックファイル（open関数）☆###########
##################################################
sub lock2 {
foreach $lockfiles (@lockfile){
local($flag) = 0;
foreach (1 .. 10) {
if (-e $lockfiles) { sleep(1); }
else {
open(LOCK,">$lockfiles") || &error("Write Error : $lockfiles","lock");
close(LOCK);
$flag = 1;
last;
}
}
if ($flag == 0) { &error("LOCK is BUSY","lock"); }
}
}

##################################################
###############☆(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;
}