とも子＝自動スレスト総合スレ２＝
■ このスレッドは過去ログ倉庫に格納されています
○とも子ってなんだよ？
実況スレを止める為に生まれたスクリプトです。
機能は一分間に一定数以上の書き込みがあるとスレッドにとも子が
降臨し、スレを止めてしまう機能です。
現在FOX★中心にとも子を調整中。
○とも子のまとめ＠２ちゃんねるWiki：
導入されてるサーバーなんかも書いてあります。
http://info.2ch.net/wiki/pukiwiki.php?%a4%c8%a4%e2%bb%d2
○とも子実況報告スレ：
http://qb3.2ch.net/test/read.cgi/operate/1079186096/
○前スレ：
【実験】只今シベリアで「とも子」「リモホ表示」実験中。。。
http://qb3.2ch.net/test/read.cgi/operate/1082818622/ $NOWTIMEとか$FORM{'key'}あたりにおかしな値が入っていることが予想されるから、
print OUT "とも子<>sage<> $DATE <> STOP !! ($speed res/min) 実況等は実況板でお願いします。 <>\n";
を
print OUT "とも子<>sage<> $DATE <> STOP !! ($speed res/min) 実況等は実況板でお願いします。<br>$NOWTIME $FORM{'key'} <>\n";
あたりに変えてみて、2行目の2つの数字も報告してもらうようにすればいいんじゃないかな、 http://ex6.2ch.net/test/read.cgi/morningcoffee/1086017554/1 04/06/01 00:32
とも子出現直前速度 最大6res/min 平均3〜4res/min
http://ex6.2ch.net/test/read.cgi/morningcoffee/1086017554/784
784 名前：とも子[sage] 投稿日： 04/06/01 19:57
STOP !! (14 res/min) 実況等は実況板でお願いします。
誤動作少なくなるんなら報告しますよ >>263
$lognumはたしかsubject.txtあたりのレス数の出力にもつかってるはずだから
その値がおかしかったら最後のレス数の出力もたぶんおかしくなってるかと。
でも、その例は報告されてないからなぁ。 http://ex6.2ch.net/test/read.cgi/morningcoffee/1086087758/1 04/06/01 20:02
http://ex6.2ch.net/test/read.cgi/morningcoffee/1086087758/216 04/06/01 21:23
216 名前：とも子[sage] 投稿日： 04/06/01 21:23
STOP !! (13 res/min) 実況等は実況板でお願いします。
NOWTIME=1086092615 key=1086091660 lognum=215
・・・orz >>265
215*60/(1086092615-1086091660) = 13
これは正常動作だね。 >>265
おお、やっぱしkeyがおかしいですね。 $FORM{'key'}ってスレッドのキーはずだよねぇ。
たとえば>>265のスレでは1086087758のはず。
でも出てきてるkey= の数字が違うなぁ。
なにかbbs.cgiの前のほうで$FORM{'key'}を書き換えている動作でもあるのかな、 1086091660は、
2004/06/01 21:07:40
になります。これは何の時間だろう？ まさかファイルのクリエイトタイム（って言うんだっけ？）をキー代わりに使っているとか？ >>271
それは無いと思うなー。
とりあえず、bbs.cgiの初めの方で$FORM{'key'}からdatファイル名を作ってるはずだからねー http://newsplus.jp/~bikkuriman/key.cgi
1086087758 → 2004/06/01 20:02:38
1086091660 → 2004/06/01 21:07:40
う〜ん…
高負荷→とも子パニック→間違っちゃった ﾃﾍ♪ が一番わかりやすいかな…
って、負荷そんなに高くないですね。
http://ch2.ath.cx/load/ex6.html >275
subject.txtを読み込んで、更新するときに、$FORM{'key'}をkeyを読み込むための
テンポラリな変数に使っちゃってたりしてね。
もう$FORM{'key'}は使わないからいいやー、ってな具合で。
で、そのとき読み込んだ最後のkeyが残ってて、とも子の判断ルーチンで使われている、と。
だとしたら誤爆というか、そもそもまともに動く可能性のほうが低いですな。
実際はどうなんでしょ。 http://ex6.2ch.net/test/read.cgi/morningcoffee/1086090307/1 04/06/01 20:45
http://ex6.2ch.net/test/read.cgi/morningcoffee/1086090307/255
255 名前：とも子 [sage] 投稿日： 04/06/01 21:37
STOP !! (175 res/min) 実況等は実況板でお願いします。
NOWTIME=1086093468 key=1086093381 lognum=254
>>277
これも他に存在してるスレッドのキーが入ってますね。。
↓詳しい人降臨ｷﾎﾞﾝ とりあえず"$FOMF{'key'}"でgrepしろ。
話はそれからだ。 なんでこんなスキルのないやつらが運用してんのさ
ちゃんとテスト鯖作ってテストしろよ ﾆﾔﾆﾔ
2ちゃんねるを救えるのは貴方だけだ > 282
がんばって ﾁｭｯ >>282
全力で応援します！
頑張ってください！ grepすれば、%FORMが左辺値として使われてる所なんてすぐ見付かりそうなもんだけどなあ。
それともすごいスパゲッティなんですか？ >>290
ないわけないじゃん。
すくなくとも一箇所はあるんだよね？$FORM{'key'}への代入が。 ↓FOX ★の投げキッスを味わった>>282が一言 つまり、%FORMだとなくて、$FORM{'key'}だとあるってことかな。
もっかい$FORM{'key'}でgrepしてみたら、 おじさんのことだから
$FROM でgrepしてる悪寒・・・。
#よくミスタイプするし・・・。 無いっていっているだろー
それとは別に他に変なところはあったけど んじゃ最初に$FORM{'key'}にキーが入ったとこで
$FOXFOXFOX = $FORM{'key'};
として、>>260に加えて$FOXFOXFOXも出力 だからぁ
こんな勘が悪いなぁ。。。
他にbug 見つけたのよ ないしょだったらここで議論する意味ﾅｲｼﾞｬﾝﾖ・・・。
λ....ｶｴﾛ.... >>308
とは限らないかと、、、
>>309
つーことですなぁ >>310
さっしが悪いなぁ
言えないようなはずかしぃ事 速度の速いスレッドを止めるんでなくて、実況を止めたいだけなら、
ｷﾀ━━━━(ﾟ∀ﾟ)━━━━
が５つくらい続いたら、とも子出現って方が確立高そうですね 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見ないと思いだせないや。
>>282
＞ちゃんとテスト鯖作ってテストしろよ
exがテス（ｒｙ マジレスすると、qb6がbbs.cgiのテスト鯖だけどね
ただし500にならないかどうかのテストくらいしかできないだろうが なんでdatが正常生成できてるんだか分からにゃーのは
私のスキルが低杉だからですか？
print OUT "頑固トメ子<>sage<> $DATE <> （ ＾▽＾）＜トメ子止めます！($speed res/min) ひとすじ、ふたすじ、実況は実況板でしなさい。<br>NOWTIME=$NOWTIME key=$key lognum=$lognum<>\n";
↑
バグ修正記念でこれに変更きぼんぬ とも子・・どこ行ったんだよ？俺が悪かったって、頼むから帰ってきてくれよ… つか、どこがバクか教えて下さい。尾長居します。
＞my $spp = $NOWTIME - $key;
ここですか？ >>343のスレのせいでAAサロンを開いた途端PCﾌﾘｰｽﾞとの報告も 鯖負荷は深刻
298 名前：動け動けウゴウゴ２ちゃんねる[sage] 投稿日：04/06/01 23:37 ID:Uglmy+iK
結構色々な問題抱えているんだ。サロンのあのスレ、ありゃ酷いよ。
うちのパソ古い（６年前の機種だ）から最悪。サロンは最近もっぱら外部
アクセスで行っている。サロン開いた途端、うちのパソフリーズするし。
（デフラグ、ディスクスキャンでもだめぽだった）
スレ速度は大体ﾚｽ間１〜２分といったところ >>344
レス間１〜２分だったら負荷なんて無いに等しいですよ。被害妄想です。
そのスレが原因で不安定になるような鯖なんぞ２ちゃんねるには存在しません。 次は、BBS.2ch.netを活用した、インテリジェントとも子ですかね。 脱走したシマウマのトモコ（メス、９歳）が２日午前、“嫁入り先”の熊本市動植物園で亡くなった。
ttp://www.sanspo.com/shakai/top/sha200406/sha2004060303.html 芸スポにとも子さんを希望します！
大歓迎です！！！！ >>345
だよねぇ。
アホ狐、いらん事するなゴルァ!! FOX ★氏、ニュー速で実験したんなら、本番目的でニュー速＋に入れてみたらどうよ とも子
ttp://haizin-damepo.hp.infoseek.co.jp/cgi-bin/upload/src/up0402.jpg
kusoといい、とも子といい…
ＦＯＸは運営から降ろしちまえよ。真面目な話。 ■ このスレッドは過去ログ倉庫に格納されています
