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

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(旧Boo80)で串を食べませんか？　その9
http://qb5.2ch.net/test/read.cgi/operate/1295413279/

●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には送られません。

●返り値（エラーメッセージ）
　"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)
}

[qw(1.20　2011/04/11　BBQなリモートホストはお断り)]
Good bye 1115", "[―{}@{}@{}-]な人はお断りだ！

# 串さんチェック
Error('04',$ENV{REMOTE_ADDR}) if Check_BBQ($ENV{REMOTE_ADDR});
#$BBQed = Check_BBQ($ENV{REMOTE_ADDR})
# ? '<span class="BBQed">[―{}@{}@{}-]</span>'
# : ''
#;

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

ぶーぼん候補生（無茶する人は自動でピッチャーデニー）
http://boo.2ch.net/boobon_stat.cgi

つーかなんでスレッド生成？