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

Boo2008(旧名Boo80)というスクリプトで串を規制するプロジェクトです。

●過去スレ
【協力願】Boo80で串を食べませんか？
　http://qb3.2ch.net/test/read.cgi/operate/1064576191/
【協力願】Boo80で串を食べませんか？　その２
　http://qb5.2ch.net/test/read.cgi/operate/1081858336/
【協力願】Boo80で串を食べませんか？　その３
　http://qb5.2ch.net/test/read.cgi/operate/1104339319/
【協力願】Boo2008(旧Boo80)で串を食べませんか？　その４
　http://qb5.2ch.net/test/read.cgi/operate/1199345454/
【協力願】Boo2008(旧Boo80)で串を食べませんか？　その５
　http://qb5.2ch.net/test/read.cgi/operate/1212767905/
【協力願】Boo2008(旧Boo80)で串を食べませんか？　その6
　http://qb5.2ch.net/test/read.cgi/operate/1245475407/
【協力願】Boo2008(旧Boo80)で串を食べませんか？　その7
http://qb5.2ch.net/test/read.cgi/operate/1245849974/
【協力願】Boo2008(旧Boo80)で串を食べませんか？　その8
http://qb5.2ch.net/test/read.cgi/operate/1268473561/

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

●おまけ（旧アドレス／新式は現時点では未発表。完成次第告知します）
月別串迎撃ランキング
　http://boo.2ch.net/boo2008_rank.cgi
鯖別串迎撃ランキング ※動いていません
　http://qb6.2ch.net/_boo80/pokan.cgi
迎撃速報hack72 最近のお宝(2009/01/05)
　http://hack72.2ch.net/otakara.cgi

●関連リンク
　http://info.2ch.net/wiki/index.php?Boo80 (２ちゃんねるWiki/boo80)
　http://info.2ch.net/wiki/index.php?Boo2008 (２ちゃんねるWiki/boo2008)
■　新企画 Hack72 (BBQ に貯まっている串の速報)　part1
　http://qb5.2ch.net/operate/kako/1093/10939/1093978218.html DAT墜ち
【BBQ＆BBM56本目】公開串登録所【ピンポイント規制】
http://qb5.2ch.net/test/read.cgi/sec2chd/1294575935/
□規制解除要望□ 焼かれたひと専用 [BBQ]★23
http://toki.2ch.net/test/read.cgi/goki/1289480829/

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

新hatoにゃまだ入らんのかにゃー

●Boo2008(boo2008.cgi)に投入するデータ（クエリ）
・赤の時（書き込みログから逆探知）
　type=red
　boo2008_uri=掲示板のURI
　boo2008_time=書き込み時間
　boo2008_id=ＩＤ
　　+はそのままで桶。???のときは空白で。
　（現状、空欄でも採取可能の模様。将来的に仕様変更するかもなので残しておきます。）
　boo2008_trip=#トリップキー（最新12桁対応のつもり）
　boo2008_red=ポチっとな♪（無くても桶）

・青の時（アドレスとポートを指定）
　type=blue
　boo2008_host=IPアドレスもしくはホスト名
　boo2008_port=ポート番号
　　なしでも桶。
　　無しの場合は30個チェック。追加する場合は,で区切る。30個+追加分になります。
　　ちなみに先頭に!を付けてポート番号を並べると、そのポート番号だけをチェックします。ex.!80,81,88 -> 3つだけチェック
　boo2008_trip=#トリップキー（最新12桁対応のつもり）
　boo2008_blue=ポチっとな♪（無くても桶）
・黄の時
・桃の時
・緑の時
　現在未定。

●返り値（エラーメッセージ）
　"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. <em class="delicious">Wow taste good!</em>",
　"Good bye 0001 Thank you. <em class="noproxy">Maybe, not be proxy...</em>",

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

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

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

●串チェック時のコード
　http://cpansearch.perl.org/src/GAAS/libwww-perl-5.826/lib/HTTP/Status.pm
　に載っているです。
　それぞれの意味は個々で調べてみよう♪

●その他
# 起動数制限装置
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)
}

修正点：
1. エラーメッセージを1つにし、boo2008起動数と鯖LAを同時表示するようにした。
　それにより"Good bye 1114", "あっぷあっぷしています(´･ω･`) -> $err"は削除。

2. 時間帯別プロセス数チェックに不具合があったので修正。
　プロセス上限を増やしてみた。
　00:00 - 15:59 : 50まで
　16:00 - 23:59 : 30まで

# 受け側(hack72)の出力
　'00',"Done at boo2008: $err", # 桶♪

　'10',"Error at boo2008: $err", # 呪文なっしんぐ
　'11',"Error at boo2008: $err", # 接続串なっしんぐ
　'12',"Error at boo2008: $err", # Local, Broadcast, ...
　'13',"Error at boo2008: $err", # ibisbrowser
　'14',"Error at boo2008: $err", # invalid ranges
　'15',"Error at boo2008: $err", # 正引きできなかった。
　'16',"Error at boo2008: $err", # MD5値が違う。

　'20',"Error at boo2008: $err", # 記録できなかったとか。

　'99',"Error at boo2008: $err", # でばぐモード

>>7
-判定にて黒と判断された場合にポイントが付与されます。
+判定にて黒と判断された場合、諸項目を入力の際にトリップキーを入れたとき「のみ」ポイントが付与されます。

>>4
hatoは入れたような希ガスるかもしれない、、、

ピンクに導入の予定はありますか？

乗り気がありません♪

Good bye 2289
例のサーバから探せなかった。多分そのサーバは墜ちているかも(´･ω･`) -> hato.2ch.net

バーボン送りも付けましょうよ
ぶん回す人には

>>14
あらまぁ♪

>>7
リンク切れ
http://cpansearch.perl.org/src/GAAS/libwww-perl-5.837/lib/HTTP/Status.pm
これでいいのかな？

これBBSPINKでも使えるの？