【協力願】Boo2008(旧Boo80)で串を食べませんか？ その11
■ このスレッドは過去ログ倉庫に格納されています
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)
} ■ このスレッドは過去ログ倉庫に格納されています
