[過去ログ]
質疑応答罵詈雑言拡散不希望 byト (1001レス)
質疑応答罵詈雑言拡散不希望 byト http://qb7.5ch.net/test/read.cgi/operate2/1345596810/
上
下
前
次
1-
新
通常表示
512バイト分割
レス栞
このスレッドは過去ログ倉庫に格納されています。
次スレ検索
歴削→次スレ
栞削→次スレ
過去ログメニュー
963: 忍法帖【Lv=40,xxxPT】(-1+0:4) ◆8bit.JzJJY (地震なし) [sage] 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; } } http://qb7.5ch.net/test/read.cgi/operate2/1345596810/963
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 38 レスあります
スレ情報
赤レス抽出
画像レス抽出
歴の未読スレ
AAサムネイル
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.011s