【協力願】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) } 天麩羅が古いのでやり直し♪現ばーぢょんは、1.24 だす。 >>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に対応したかも。)], >>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", "探せなかった。存在しない。 (´・ω・`)<!-- $err -->"], ["Good bye 1444", "ログがなかった。 (´・ω・`)<!-- $err -->"], ["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. <em class="delicious">Wow taste good!</em>|], ["Good bye 0001", qq|Thank you. <em class="noproxy">Maybe, not be proxy...</em>|], ["Good bye 9999", "テスト出力<!-- $err -->"], ["Good bye 9999", "Boo2008は現在心肺停止中です♪キランッ★<br>心臓マッサージしようにも胸が邪魔です!<br>AEDって何の略でしたっけ?<br>人工呼吸って・・・(照照照)<!-- $err -->¥n"], >>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) } ●閾値は鯖増強を機会に大幅に緩和しております♪ さっきかけたらこんな表示が出ました。 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. >>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が開けられなかったのかな。 もし続くようでしたら中身観てみます。 あ、オーナーのパーミッションがおかしいのかな。(5月分が生成できない) これって既に調べたことのあるIPならがいしゅつって出るんですよね? たとえば私の書いてるIPを青で調べた後で書いた書き込みを赤で調べたらがいしゅつって出ますよね? がいしゅつ表示のときなんですが、 もう一度同じIPを調べて、串じゃない事が確認できたら自動で解除してくれますか? 前の人が鯖立てしてポート開けて使ってたIPを引いてしまう事が多くなりました。 ■ このスレッドは過去ログ倉庫に格納されています
read.cgi ver 07.5.5 2024/06/08 Walang Kapalit ★ | Donguri System Team 5ちゃんねる