sub lockF { # 使い方：排他宣言 lockF('FH',2) 解除 lockF('FH',8)
    my $lockFile = '../'.$FORM{'bbs'}.'/'.lc($_[0]).'.lock';
    my $lockMode = $_[1];
    my $cntAndFlag = 0;

    if ($lockMode == 2) {
        while ($cntAndFlag < 3) {
            if (-e $lockFile) {sleep (3);}
            else {
                open (LOCK,">$lockFile")||&DispError('','ロック不能！ﾋｨｰ(((ﾟДﾟ)))ｶﾞﾀｶﾞﾀ');
                $cntAndFlag = 0;
                close LOCK;
                last;
            }
            $cntAndFlag++;
        }
    } elsif ($lockMode == 8) {
        unlink($lockFile)||&DispError('','ちゃんと計算されてる、角度とか');
    } else {
        &DispError('','(´-`).｡ｏＯ（なんでこんなに説明してるのにここに飛ぶんだろ？');
    }

    if ($cntAndFlag && $lockMode == 2) {
        &DispError('',"オイ、お前等！！ファイルが詰まっています。$lockFile");
    }
    return;
}