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

[―{}@{}@{}-] **あひるちゃん** ◆717imnfvi2 · 04/05/15 02:45

○とも子ってなんだよ？
　実況スレを止める為に生まれたスクリプトです。
　機能は一分間に一定数以上の書き込みがあるとスレッドにとも子が
　降臨し、スレを止めてしまう機能です。

　現在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/

**動け動けウゴウゴ２ちゃんねる** · 04/06/01 23:17

>>312 >>312

**南アルプス** ◆28UfbftxkA · 04/06/01 23:17

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

◆7COBLlYL2k · 04/06/01 23:17

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

**FOX ★** · 04/06/01 23:18

じぇんぶ貼るかい?

◆sxP.FiI49. · 04/06/01 23:19

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

**動け動けウゴウゴ２ちゃんねる** · 04/06/01 23:20

>>316
みたいですー

**FOX ★** · 04/06/01 23:21

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

**動け動けウゴウゴ２ちゃんねる** · 04/06/01 23:24

あんがとー
ふむふむ

**▲ 某ソレ511** · 04/06/01 23:25

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

**FOX ★** · 04/06/01 23:26

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

まわせ　まわせ

**動け動けウゴウゴ２ちゃんねる** · 04/06/01 23:27

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

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

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

**動け動けウゴウゴ２ちゃんねる** · 04/06/01 23:27

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

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

**動け動けウゴウゴ２ちゃんねる** · 04/06/01 23:29

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

**動け動けウゴウゴ２ちゃんねる** · 04/06/01 23:30

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

**FOX ★** · 04/06/01 23:31

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

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

**▲ 某ソレ511** · 04/06/01 23:32

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

**動け動けウゴウゴ２ちゃんねる** · 04/06/01 23:32

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

**動け動けウゴウゴ２ちゃんねる** · 04/06/01 23:33

動けば　おーるおっけー

**rafale ★** · 04/06/01 23:35

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

**南アルプス** ◆28UfbftxkA · 04/06/01 23:38

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

◆sxP.FiI49. · 04/06/01 23:38

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

**▲ 某ソレ511** · 04/06/01 23:39

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

**動け動けウゴウゴ２ちゃんねる** · 04/06/01 23:45

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

**動け動けウゴウゴ２ちゃんねる** · 04/06/02 00:10

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

**動け動けウゴウゴ２ちゃんねる** · 04/06/02 01:56

>>319
UseTomoko
うせとも子?

**名無し募集中。。。** · 04/06/02 16:12

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

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

**動け動けウゴウゴ２ちゃんねる** · 04/06/02 19:40

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

**動け動けウゴウゴ２ちゃんねる** · 04/06/02 19:41

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

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

**動け動けウゴウゴ２ちゃんねる** · 04/06/02 19:53

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

**動け動けウゴウゴ２ちゃんねる** · 04/06/02 19:58

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

**動け動けウゴウゴ２ちゃんねる** · 04/06/02 21:04

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

**動け動けウゴウゴ２ちゃんねる** · 04/06/02 21:20

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

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

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

**動け動けウゴウゴ２ちゃんねる** · 04/06/02 21:27

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

**動け動けウゴウゴ２ちゃんねる** · 04/06/02 21:50

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

**動け動けウゴウゴ２ちゃんねる** · 04/06/02 22:40

Josephsonもとこ？

**動け動けウゴウゴ２ちゃんねる** · 04/06/02 23:04

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

**動け動けウゴウゴ２ちゃんねる** · 04/06/03 10:06

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

**動け動けウゴウゴ２ちゃんねる** · 04/06/06 01:13

>>349
ご愁傷様です。

YahooBB219011162062.bbtec.net · 04/06/06 01:14

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

**動け動けウゴウゴ２ちゃんねる** · 04/06/06 21:34

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

**動け動けウゴウゴ２ちゃんねる** · 04/06/06 21:37

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

**動け動けウゴウゴ２ちゃんねる** · 04/06/07 16:41

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

**動け動けウゴウゴ２ちゃんねる** · 04/06/07 22:17

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

**動け動けウゴウゴ２ちゃんねる** · 04/06/12 05:36

俺らをコケにしやがって

とも子たん萌え～

**動け動けウゴウゴ２ちゃんねる** · 04/06/12 05:40

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

**動け動けウゴウゴ２ちゃんねる** · 04/06/12 21:40

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

**動け動けウゴウゴ２ちゃんねる** · 04/06/15 14:51

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

**動け動けウゴウゴ２ちゃんねる** · 04/06/15 15:00

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

**動け動けウゴウゴ２ちゃんねる** · 04/06/15 23:00

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

04/06/16 12:17

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

**停止しました。。。** · NG

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