とも子＝自動スレスト総合スレ２＝

>>312
(ﾉ∀`)ｱﾁｬｰ

ううっ……、激しく知りたい……。

じぇんぶ貼るかい?

速度の速いスレッドを止めるんでなくて、実況を止めたいだけなら、
ｷﾀ━━━━(ﾟ∀ﾟ)━━━━
が５つくらい続いたら、とも子出現って方が確立高そうですね

>>316
みたいですー

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);

あんがとー
ふむふむ

>>259以外のところは変えてないんですよね、、
もしそうなら（ノ∀｀）ｱﾁｬｰ

見なかったということで、

まわせ　まわせ

ふーむ、キーは$keyにあった訳か。


＞<br>NOWTIME=$NOWTIME key=$key} lognum=$lognum<>¥n";

ここの } はいらない気がするけどまーいいか。

まわすのってなんか懐かしいですねぇ。

みんなIEで見てたあの頃。

ああああヽ(`Д´)ﾉﾎﾞｯｷｱｹﾞしたい

そうなのね。
でさあ、$key=@_[0]で、本当にいいの？
直観的には$_[0]な気がするわけだが。

>>326
どうなんですかねぇ

それで五年間動いてきたわけだし、、、

さすがbbs.cgiだな。
なんで動いているのか分からないところがすばらしい。

だめだ。最近perl書いてないから、man見ないと思いだせないや。

動けば　おーるおっけー

ﾜﾗﾀ
これぞ2ちゃんって感じだねぇ。

>>325
既に自分で晒していらっしゃるｗ

>>282
＞ちゃんとテスト鯖作ってテストしろよ
exがテス（ｒｙ

マジレスすると、qb6がbbs.cgiのテスト鯖だけどね
ただし500にならないかどうかのテストくらいしかできないだろうが

全ての板はtestディレクトリにある訳だが…

なんでdatが正常生成できてるんだか分からにゃーのは
私のスキルが低杉だからですか？

>>319
UseTomoko
うせとも子?

print OUT "頑固トメ子<>sage<> $DATE <> （　＾▽＾）＜トメ子止めます！($speed res/min)　ひとすじ、ふたすじ、実況は実況板でしなさい。<br>NOWTIME=$NOWTIME key=$key lognum=$lognum<>\n";

↑
バグ修正記念でこれに変更きぼんぬ

とも子・・どこ行ったんだよ？俺が悪かったって、頼むから帰ってきてくれよ…

つか、どこがバクか教えて下さい。尾長居します。

＞my $spp = $NOWTIME - $key;
ここですか？

>>339
余計な事を言うんじゃねーーｗ

このスレもさびしくなるのう

aa4にとも子導入きぼん
↓のスレが下手な実況スレ並みに早い・・・
http://aa4.2ch.net/test/read.cgi/aasaloon/1086173497/l50

>>343のスレのせいでAAサロンを開いた途端PCﾌﾘｰｽﾞとの報告も　鯖負荷は深刻

298 名前：動け動けウゴウゴ２ちゃんねる[sage] 投稿日：04/06/01 23:37 ID:Uglmy+iK
結構色々な問題抱えているんだ。サロンのあのスレ、ありゃ酷いよ。
うちのパソ古い（６年前の機種だ）から最悪。サロンは最近もっぱら外部
アクセスで行っている。サロン開いた途端、うちのパソフリーズするし。
（デフラグ、ディスクスキャンでもだめぽだった）

スレ速度は大体ﾚｽ間１〜２分といったところ

>>344
レス間１〜２分だったら負荷なんて無いに等しいですよ。被害妄想です。
そのスレが原因で不安定になるような鯖なんぞ２ちゃんねるには存在しません。

名前を「素子」に変更せんかい。

Josephsonもとこ？

次は、BBS.2ch.netを活用した、インテリジェントとも子ですかね。

脱走したシマウマのトモコ（メス、９歳）が２日午前、“嫁入り先”の熊本市動植物園で亡くなった。
ttp://www.sanspo.com/shakai/top/sha200406/sha2004060303.html

>>349
ご愁傷様です。

見たことねーや。とも子。

芸スポにとも子さんを希望します！
大歓迎です！！！！

>>345
だよねぇ。
アホ狐、いらん事するなゴルァ!!

FOX ★氏、ニュー速で実験したんなら、本番目的でニュー速＋に入れてみたらどうよ

記者制の板は記者が負荷の制御をするんじゃね？

俺らをコケにしやがって

とも子たん萌え〜

とも子
ttp://haizin-damepo.hp.infoseek.co.jp/cgi-bin/upload/src/up0402.jpg

>>357
ともこﾀﾝ(*´д｀*)ﾊｧﾊｧ

kusoといい、とも子といい…
ＦＯＸは運営から降ろしちまえよ。真面目な話。

>>359
FOX降ろしたら２ちゃん閉鎖ですよ。
それともあなたが鯖提供してくれるのですか？

>>360
>>360
>>360
>>360

>>360
そうだよ、FOXは夜勤さんだよ・・・

真・スレッドストッパー。。。(￣ー￣)ﾆﾔﾘｯ