２ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

963 ： 忍法帖【Lv=40,xxxPT】(-1+0：4) ◆8bit.JzJJY (地震なし)：2012/09/08(土) 16:24:31.14 ID:xPX2ktxZ0

一時ファイル名のつくり方からして非常に低い確率だけど、通常運転中に
subject.txt を壊す可能性があるところがあったんで、こんな風にしてみたらどうでしょう？
これでもだめなら、bbs.cgi単体じゃなくて削除とかF22とかのからみだと思う。
ちなみに、perlは書いたことないんで、おかしい可能性は多々あります。^^;

UpdateSubject() の初めにある my $subtemp と $rnd はコメントアウトしてください。

#SUBJECTに書き込む
# 一時ファイル名がぶつかったら一時ファイル名を変えて再挑戦する。
# 普通のレスの場合は、リトライ数少なめ。
my $count = $GB->{NEWTHREAD} ? 1000 : 5;
for (1..$count)
{
    my $subtemp = $GB->{PATH} . int(rand(99999)) . $GB->{FORM}->{'time'} . ".tmp";
    if(sysopen(SUBT, $subtemp, O_WRONLY|O_CREAT|O_EXCL, 0666))
    {
        #flock(SUBT, 2);
        &PutLines(*SUBT, @newsub);
        #flock(SUBT,8);
        close(SUBT);
        &TryRename($subtemp, $subject);
        break;
    }
}