0001 [―{}@{}@{}-] あひるちゃん ◆717imnfvi2 04/05/15 02:45ID:xfpJTptR
0316FOX ★04/06/01 23:18ID:???
じぇんぶ貼るかい?
速度の速いスレッドを止めるんでなくて、実況を止めたいだけなら、
ｷﾀ━━━━(ﾟ∀ﾟ)━━━━
が５つくらい続いたら、とも子出現って方が確立高そうですね
0319FOX ★04/06/01 23:21ID:???
sub MakeWorkFile{
my $key = @_[0];
my $workfile = $TEMPPATH . $key . ".html";
my $dattemp = $DATPATH . $key . ".dat";
my (@messx,@content,@logdat);
my ($lognum,$mailto,$time,$brmax,$topnum,$firstlog,$name,$mail,$subject,$message);
open(RDAT,"<$dattemp");
@logdat=<RDAT>;#ログを配列に読み込む
close(RDAT);
#ログのカキコ数を取得
$lognum = @logdat;
if($lognum > 1020)#最後の手段
{
if(-w $dattemp){
my $datdat = $DATPATH . $key;
my $tmpdat = $DATPATH . $key . ".tmp";
my $success;
open(COPY, "cp $dattemp $datdat |");
close(COPY);
$success = 0;
until($success){ $success = rename($datdat, $dattemp); }
chmod(0555, $dattemp);
unlink($tmpdat);
}
DispError("ＥＲＲＯＲ！", "ＥＲＲＯＲ：このスレッドには書き込めません。最後の手段!!");
}
if($lognum > 1010)#念のため暴走ストッパー
{
umask(0);
chmod(0555, $dattemp);
DispError("ＥＲＲＯＲ！", "ＥＲＲＯＲ：このスレッドには書き込めません。緊急緊急緊急!!");
}
if($lognum > 999)
{
if(open(OUT,">>$dattemp"))
{
print OUT "１００１<><>Over 1000 Thread<>このスレッドは１０００を超えました。 <br> もう書けないので、新しいスレッドを立ててくださいです。。。 <>\n";
close(OUT);
$lognum++;
}
umask(0);
chmod(0555, $dattemp);
}
### とも子
elsif($lognum > 100 && &UseTomoko)
{
my $spp = $NOWTIME - $key;
my $speed = int($lognum*60/$spp);
if($speed > 12)
{
if(open(OUT,">>$dattemp"))
{
print OUT "とも子<>sage<> $DATE <> STOP !! ($speed res/min) 実況等は実況板でお願いします。<br>NOWTIME=$NOWTIME key=$key} lognum=$lognum<>\n";
close(OUT);
$lognum++;
}
umask(0);
chmod(0555, $dattemp);
}
else
{
#パーミッション調整
umask(0);
chmod(0666, $dattemp);
}
}
else
{
#パーミッション調整
umask(0);
chmod(0666, $dattemp);
}
#１つ目の要素を読み込む
$firstlog = $logdat[0];
#改行カット
chomp($firstlog);
0322FOX ★04/06/01 23:26ID:???
見なかったということで、
まわせ まわせ
ふーむ、キーは$keyにあった訳か。
＞<br>NOWTIME=$NOWTIME key=$key} lognum=$lognum<>¥n";
ここの } はいらない気がするけどまーいいか。
まわすのってなんか懐かしいですねぇ。
みんなIEで見てたあの頃。
そうなのね。
でさあ、$key=@_[0]で、本当にいいの？
直観的には$_[0]な気がするわけだが。
0327FOX ★04/06/01 23:31ID:???
>>326
どうなんですかねぇ
それで五年間動いてきたわけだし、、、 さすがbbs.cgiだな。
なんで動いているのか分からないところがすばらしい。
だめだ。最近perl書いてないから、man見ないと思いだせないや。
マジレスすると、qb6がbbs.cgiのテスト鯖だけどね
ただし500にならないかどうかのテストくらいしかできないだろうが
なんでdatが正常生成できてるんだか分からにゃーのは
私のスキルが低杉だからですか？
0338名無し募集中。。。04/06/02 16:12ID:WKxmUe7r
print OUT "頑固トメ子<>sage<> $DATE <> （ ＾▽＾）＜トメ子止めます！($speed res/min) ひとすじ、ふたすじ、実況は実況板でしなさい。<br>NOWTIME=$NOWTIME key=$key lognum=$lognum<>\n";
↑
バグ修正記念でこれに変更きぼんぬ
とも子・・どこ行ったんだよ？俺が悪かったって、頼むから帰ってきてくれよ…
0340動け動けウゴウゴ２ちゃんねる04/06/02 19:41ID:RhnYsNhC
つか、どこがバクか教えて下さい。尾長居します。
＞my $spp = $NOWTIME - $key;
ここですか？
0343動け動けウゴウゴ２ちゃんねる04/06/02 21:04ID:YgWhE1gt
0346動け動けウゴウゴ２ちゃんねる04/06/02 21:50ID:CIQQ1BbK
名前を「素子」に変更せんかい。
次は、BBS.2ch.netを活用した、インテリジェントとも子ですかね。
脱走したシマウマのトモコ（メス、９歳）が２日午前、“嫁入り先”の熊本市動植物園で亡くなった。
ttp://www.sanspo.com/shakai/top/sha200406/sha2004060303.html
0350動け動けウゴウゴ２ちゃんねる04/06/06 01:13ID:Cpi3xI0Y
0351YahooBB219011162062.bbtec.net04/06/06 01:14ID:Cpi3xI0Y
見たことねーや。とも子。
0352動け動けウゴウゴ２ちゃんねる04/06/06 21:34ID:aKleNkgc
芸スポにとも子さんを希望します！
大歓迎です！！！！
FOX ★氏、ニュー速で実験したんなら、本番目的でニュー速＋に入れてみたらどうよ
0356動け動けウゴウゴ２ちゃんねる04/06/12 05:36ID:NHB5QRZ9
俺らをコケにしやがって
とも子たん萌え〜
0357動け動けウゴウゴ２ちゃんねる04/06/12 05:40ID:NHB5QRZ9
とも子
ttp://haizin-damepo.hp.infoseek.co.jp/cgi-bin/upload/src/up0402.jpg
0359動け動けウゴウゴ２ちゃんねる04/06/15 14:51ID:7Vo5+H8A
kusoといい、とも子といい…
ＦＯＸは運営から降ろしちまえよ。真面目な話。
0361動け動けウゴウゴ２ちゃんねる04/06/15 23:00ID:bGKVaqfL