【協力願】Boo2008(旧Boo80)で串を食べませんか？　その11

【協力願】Boo2008(旧 ..

1:動け動けウゴウゴ２ちゃんねる
13/04/28 16:33:05.11 SEMu1WLY0
Boo2008(旧名Boo80)というスクリプトで串を規制するプロジェクトです。

●過去スレ
【協力願】Boo80で串を食べませんか？
　ｽﾚﾘﾝｸ(operate板)
【協力願】Boo80で串を食べませんか？　その２
　ｽﾚﾘﾝｸ(operate板)
【協力願】Boo80で串を食べませんか？　その３
　ｽﾚﾘﾝｸ(operate板)
【協力願】Boo2008(旧Boo80)で串を食べませんか？　その４
　ｽﾚﾘﾝｸ(operate板)
【協力願】Boo2008(旧Boo80)で串を食べませんか？　その５
　ｽﾚﾘﾝｸ(operate板)
【協力願】Boo2008(旧Boo80)で串を食べませんか？　その6
　ｽﾚﾘﾝｸ(operate板)
【協力願】Boo2008(旧Boo80)で串を食べませんか？　その7
ｽﾚﾘﾝｸ(operate板)
【協力願】Boo2008(旧Boo80)で串を食べませんか？　その8
ｽﾚﾘﾝｸ(operate板)
【協力願】Boo2008(旧Boo80)で串を食べませんか？　その9
ｽﾚﾘﾝｸ(operate板)
【協力願】Boo2008(旧Boo80)で串を食べませんか？　その10
ｽﾚﾘﾝｸ(operate板)

●Boo2008スクリプト
オリジナルバージョン
　URLﾘﾝｸ(boo.2ch.net)
　現在のバージョン
　my $VERSION = '1.17';
　my $DATE = '2011/01/16';

2:動け動けウゴウゴ２ちゃんねる
13/04/28 16:34:42.14 SEMu1WLY0
●おまけ（旧アドレス／新式は現時点では未発表。完成次第告知します）
月別串迎撃ランキング
　URLﾘﾝｸ(boo.2ch.net)
鯖別串迎撃ランキング ※動いていません
　URLﾘﾝｸ(qb6.2ch.net)
迎撃速報hack72 最近のお宝(2009/01/05)
　URLﾘﾝｸ(hack72.2ch.net)

●関連リンク
　URLﾘﾝｸ(info.2ch.net) (２ちゃんねるWiki/boo80)
　URLﾘﾝｸ(info.2ch.net) (２ちゃんねるWiki/boo2008)
■　新企画 Hack72 (BBQ に貯まっている串の速報)　part1
　URLﾘﾝｸ(qb5.2ch.net) DAT墜ち
【BBQ＆BBM63本目】公開串登録所【ピンポイント規制】
ｽﾚﾘﾝｸ(sec2chd板)
□規制解除要望□ 焼かれたひと専用 [BBQ]★28
ｽﾚﾘﾝｸ(goki板)

3:動け動けウゴウゴ２ちゃんねる
13/04/28 16:35:31.10 SEMu1WLY0
Boo2008の仕様@2009/06/24 現在
●概要
　・BBQチェックを行います。登録済みの場合はここで終了。
　・SpamCop(URLﾘﾝｸ(www.spamcop.net))チェックをしています。黒の場合、焼き確定。
　・標準で30個のポートをチェックします。
　　ただし、単純にproxy接続するだけなので、WebCGIやSocks、Torには現時点では未対応です。
　　ポート番号を追加指定することが出来ます。
　・逆引きできないIPアドレスは、焼き確定。
　　ただし、ポートもチェックします。結果をHack72へ送ります。
　・正引きできないホスト名に対してIPアドレスが存在する場合は、焼き確定。
　　ただし、Hack72には送られません。

4:動け動けウゴウゴ２ちゃんねる
13/04/28 16:35:50.53 SEMu1WLY0
●返り値（エラーメッセージ）
　"Good bye 1111 クエリが空っぽです(´･ω･`)",
　"Good bye 1112 そんな人いないです(´･ω･`)",
　"Good bye 1113 あっぷあっぷしています(´･ω･`) -> $err",
　"Good bye 1114 あっぷあっぷしています(´･ω･`) -> $err",

　"Good bye 1122 URIがおかしゅいです(´･ω･`) -> $err",
　"Good bye 1112 時刻がおかしゅいです(´･ω･`) -> $err",
　"Good bye 1113 ID が ??? の時は何も入れないでください(´･ω･`) -> $err",
　"Good bye 1114 ID に変なのが入っているです(´･ω･`) -> $err",
　"Good bye 1333 URIがおかしゅいです。そんな板スレッドはないです(´･ω･`) -> $err",

　"Good bye 1444 ログがなかった。 (´･ω･`)",
　"Good bye 2222 探せなかった。存在しない。 (´･ω･`)"

　"Good bye 2288 例のサーバから探せなかった。多分そのサーバはBoo80未実装(´･ω･`) -> $err",
　"Good bye 2289 例のサーバから探せなかった。多分そのサーバは墜ちているかも(´･ω･`) -> $err",

　"Good bye 3333 携帯さんなのでチェックしないです(´･ω･`)",
　"Good bye 3334 P2さんなのでチェックしないです(´･ω･`)",

　"Good bye 4001 IPアドレス or ホスト名がない(´･ω･`) -> $err",
　"Good bye 4002 IPアドレス or ホスト名が変(´･ω･`) -> $err",
　"Good bye 4010 portがない(´･ω･`) -> $err",
　"Good bye 4011 portが変(´･ω･`) -> $err",
　"Good bye 4023 多分、IPアドレスが変(´･ω･`) -> $err",
　"Good bye 4024 多分、ホスト名が変(´･ω･`) -> $err",

　"Good bye 9000 がいしゅつ!!Done ! -> [BBQ Status]",
　"Good bye 9001 がいしゅつ!!Yeah ! -> [BBQ Status]",
　"Good bye 9010 すでにBBQされています(´･ω･`) -> [BBQ Status]",

　"Good bye 0000 Thank you. Wow taste good!",
　"Good bye 0001 Thank you. Maybe, not be proxy...",

－詳細－
　"Good bye 9000 がいしゅつ!!Done !"
　→ 既に調査済み。串ではないと判定。
　"Good bye 9001 がいしゅつ!!Yeah !"
　→ 既に調査済み。串と判定。

5:動け動けウゴウゴ２ちゃんねる
13/04/28 16:36:12.03 SEMu1WLY0
●ポイント制
　判定にて黒と判断された場合にポイントが付与されます。
　串動作したとき→+765pts.
　SpamCop登録されていたとき→+5pts.
　正引き、逆引きできなかったとき→+1pts.
　ちなみに月ごとランキングですが、鯖自体がPST+8PDTで動いていますのでJSTより16-17時間ほど遅れています。
　その結果、月をまたぐ時間帯では先月分に追加されます。

●トリップ対応
　新式の12桁トリップにも対応。
　トリップキー入力時のみ、トリップ毎にBooポイントを付与。
　将来的には何かしらのポイントへの還元がなされるかも？(beとかモリタポとか)

●串チェック時のコード
　URLﾘﾝｸ(cpansearch.perl.org)
　に載っているです。
　それぞれの意味は個々で調べてみよう♪

6:動け動けウゴウゴ２ちゃんねる
13/04/28 16:36:28.41 SEMu1WLY0
●その他
# 起動数制限装置
my $Processes = scalar grep /$0/, qx|/bin/ps Uch2boo|;
my @LA5 = split /,/, (qx|/usr/bin/uptime| =~ /load averages: (.+)$/)[0];
if ($Processes > ((localtime)[2] > 16 ? 30 : 50) or $LA5[0] > 5) {
Error('02',sprintf "Boo2008 running processes = %d : load averages = %s, %s, %s", $Processes, @LA5)
}

7:動け動けウゴウゴ２ちゃんねる
13/04/28 16:37:39.19 SEMu1WLY0
落ちてたので再起動

8:未承諾広告※ ◆Boo2014ByhBJ
13/04/28 21:45:00.79 IHu1dSc+0 BE:5336677-PLT(23509)
天麩羅が古いのでやり直し♪現ばーぢょんは、1.24 だす。

9:未承諾広告※ ◆Boo2014ByhBJ
13/04/30 19:46:28.38 Ob7mppLy0 BE:1742944-PLT(23509)
>>1
my @History = (
[qw(1.25 2013/04/13 逆引きすんのやーめた。)],
[qw(1.24 2013/03/25 現在の登録数を表示。)],
[qw(1.23 2013/03/19 socksやめた。)],
[qw(1.22 2013/01/27 4.3.2.1.tor.dan.me.uk いれた)],
[qw(1.21 2011/06/18 IPアドレス判定をややゆるく？（rfc5735利用）)],
[qw(1.20 2011/04/11 BBQなリモートホストはお断り)],
[qw(1.19 2011/02/12 稼働中ログみたいのをつけた)],
[qw(1.18 2011/01/25 IPv4をゼロサプレスするりた)],
[qw(1.17 2011/01/16 news4vipに対応したかも。)],

10:未承諾広告※ ◆Boo2014ByhBJ
13/04/30 19:50:42.79 Ob7mppLy0 BE:5227968-PLT(23509)
>>4
["Good bye 1111", "クエリが空っぽです(´･ω･`)"],
["Good bye 1112", "そんな人いないです(´･ω･`)"],
["Good bye 1113", "あっぷあっぷしています(´･ω･`) -> $err"],
["Good bye 1114", "あっぷあっぷしています(´･ω･`) -> $err"],
["Good bye 1115", "[―{}¥@{}¥@{}-]な人はお断りだ！ $err"],

["Good bye 1122", "URIがおかしゅいです(´･ω･`) -> $err"],
["Good bye 1112", "時刻がおかしゅいです(´･ω･`) -> $err"],
["Good bye 1113", "ID が ??? の時は何も入れないでください(´･ω･`) -> $err"],
["Good bye 1114", "ID に変なのが入っているです(´･ω･`) -> $err"],

["Good bye 1333", "URIがおかしゅいです。そんな板スレッドはないです(´･ω･`) -> $err"],
["Good bye 2284", "ipv6鯖なのでチェックしないです(´･ω･`)"],

["Good bye 2222", "探せなかった。存在しない。 (´･ω･`)"],
["Good bye 1444", "ログがなかった。 (´･ω･`)"],

["Good bye 2280", "例のサーバから探せなかった。多分そのサーバはおかしゅいかも(´･ω･`) -> $err"],
["Good bye 2281", "例のサーバから探せなかった。多分そのサーバはBoo未実装(´･ω･`) -> $err"],
["Good bye 2282", "例のサーバから探せなかった。多分そのサーバはいやぁーんかも(´･ω･`) -> $err"],
["Good bye 2283", "例のサーバから探せなかった。多分そのサーバは墜ちているかも(´･ω･`) -> $err"],

["Good bye 3333", "携帯さんなのでチェックしないです(´･ω･`)"],
["Good bye 3334", "P2さんなのでチェックしないです(´･ω･`)"],

["Good bye 4001", "IPアドレス or ホスト名がない(´･ω･`) -> $err"],
["Good bye 4002", "IPアドレス or ホスト名が変(´･ω･`) -> $err"],
["Good bye 4010", "portがない(´･ω･`) -> $err"],
["Good bye 4011", "portが変(´･ω･`) -> $err"],
["Good bye 4023", "多分、IPアドレスが変(´･ω･`) -> $err"],
["Good bye 4024", "多分、ホスト名が変(´･ω･`) -> $err"],

["Good bye 9000", "がいしゅつ!!Done ! -> $err "],
["Good bye 9001", "がいしゅつ!!Yeah ! -> $err"],
["Good bye 9010", "すでにBBQされています(´･ω･`) -> $err"],

["Good bye 0000", qq|Thank you. Wow taste good!|],
["Good bye 0001", qq|Thank you. Maybe, not be proxy...|],
["Good bye 9999", "テスト出力"],
["Good bye 9999", "Boo2008は現在心肺停止中です♪ｷﾗﾝｯ★ 心臓マッサージしようにも胸が邪魔です！ AEDって何の略でしたっけ？ 人工呼吸って・・・（照照照）¥n"],

11:未承諾広告※ ◆Boo2014ByhBJ
13/04/30 19:57:56.59 Ob7mppLy0 BE:654023-PLT(23509)
>>5
●ポイント制
　判定にて黒と判断された場合にポイントが付与されます。
　串動作したとき→+765pts.
　Tor登録されていたとき→+13pts.
　SpamCop登録されていたとき→+5pts.
　正引き、逆引きできなかったとき→+1pts.

>>6
# 起動数制限装置
my $Processes = scalar grep /$0/, qx|/bin/ps Uch2boo|;
@LA5 = split /, /, (qx|/usr/bin/uptime| =~ /load averages: (.+)$/)[0];
if ($Processes > $Max_Proc) {
Error('02',sprintf "Boo2008 running processes = >> %d << : load averages = %s, %s, %s", $Processes, @LA5)
}
elsif ($LA5[0] > $Max_LA) {
Error('03',sprintf "Boo2008 running processes = %d : load averages = >> %s <<, %s, %s", $Processes, @LA5)
}

●閾値は鯖増強を機会に大幅に緩和しております♪

12:動け動けウゴウゴ２ちゃんねる
13/05/02 00:54:14.74 8BOLEZja0
さっきかけたらこんな表示が出ました。

Software error:
Can't call method "get" on an undefined value at /home/ch2boo/public_html/boo2008.cgi line 319.
For help, please send mail to the webmaster (2ch@2ch.net), giving this error message and the time and date of the error.

13:未承諾広告※ ◆Boo2014ByhBJ
13/05/02 15:02:33.37 mSEgD7e+0 BE:3811875-PLT(23509)
>>12
my $status;
my %boo2008_Trip;
my $Trip_DB = tie %boo2008_Trip,
"DB_File",
$boo2008_TripDB,
O_RDWR|O_CREAT,
0666,
$DB_Type;

$Trip_DB->get($Trip, $status); ←ここが319行目
なので、トリップDBが開けられなかったのかな。
もし続くようでしたら中身観てみます。
あ、オーナーのパーミッションがおかしいのかな。（５月分が生成できない）

14:動け動けウゴウゴ２ちゃんねる
13/05/03 04:32:07.16 kWGO9j/T0
こんなこともあるから
即時対応出来るBooでは対応しておいた方がいいような気がするです
事後対応ではコストが高い

ｽﾚﾘﾝｸ(sec2chd板:176-177番)