######################################################
#　ロック解除 #
######################################################
#
#
sub unlock {
if ($lockkey == 1) { unlink($lockfile); }
elsif ($lockkey == 2) { rmdir($lockfile); }
$lockflag=0;
}
#
#
######################################################