bbs.cgi再開発プロジェクト5

**動け動けウゴウゴ２ちゃんねる** · 04/12/20 07:38:07

peko鯖の稼動によりﾎﾞﾄﾙﾈｯｸの一つである事がより明らかになった
bbs.cgi作り直しプロジェクトです。

【開発環境の工事現場】
また挑戦。＠2ch掲示板　　http://dso.2ch.net/myanmar/
また挑戦２。＠2ch掲示板　http://dso.2ch.net/yangon/

関連スレなどは >>2-5 くらい

**FOX ★** · 04/12/25 04:42:42

>>147
いろいろ読んでみたけど
どうもそのようなんです　< fd

**FOX ★** · 04/12/25 04:43:32

>>149

現在はそのまんまそれです

**root▲ ★** · 04/12/25 04:48:46

>>153
サザンさんバージョンですね。

この手法が使えないとすると、、、。
どうやるんだろう。

$SIG{ALRM} = \&timeout;

のところの指定を、SpeedyCGI 流にしないといかんのだろうか。

わたしは斜めにしか理解してないけど、例のグローバルバリュー問題とか。
まとはずれだったらごめんなさい。

**FOX ★** · 04/12/25 05:00:45

IO::POll はいわゆるハンドルだったら使えるみたい
たとえば　IO::Socket　で作ったオブジェクトのハンドル
もちろん IO::File で作ったファイルハンドル

IO::Socket　でオブジェクト作って getHostbyName と等価なことできないのかしらん?

**root▲ ★** · 04/12/25 05:01:54

Net::DNS がよいと思います。

**FOX ★** · 04/12/25 05:02:40

>>154

たぶんシグナルは発生するんだと思うけど、、、
SpeedyCGI配下では伝わってこないんだと思う(推測)
よって捕まえることはできない、、

もしくは　eval がどのようにコンパイルされているのかとか、

**root▲ ★** · 04/12/25 05:06:49

http://www.net-dns.org/docs/
http://www.net-dns.org/docs/Net/DNS.html

で、該当名のAレコードがあるかどうかというのが、
gethostbyname() と等価ですね。

tigerには入れてあるけど、bananaはどうかな。
ちょっとみてきます。

**root▲ ★** · 04/12/25 05:07:54

qb6には入ってますね。
たぶん、全banana/tiger/cobraで使えるでしょう。< Net::DNS

**FOX ★** · 04/12/25 05:08:07

Net::DNS あたりは
あらかじめタイムアウトの設定が入っているのかな?
そんな気がするが、

**root▲ ★** · 04/12/25 05:10:06

で、、、Net::DNS って、いわゆる Dynamic update にも対応してるから、
クライアント側からサーバ側へのダイナミックな登録
(例えばbbs.cgiからのダイナミックなDNS DBへの登録)とかも、できるはずですね。

もちろんその場合、サーバ側がDynamic Updateに対応している必要があります。

**root▲ ★** · 04/12/25 05:11:36

ここのサンプル見ると、入っているように見えますね。

http://www.net-dns.org/docs/Net/DNS.html

つか、まさにこれ？

Send a background query and use select to determine when the answer has arrived.
use Net::DNS;
use IO::Select;

my $timeout = 5;
my $res = Net::DNS::Resolver->new;
my $bgsock = $res->bgsend("host.example.com");
my $sel = IO::Select->new($bgsock);

# Add more sockets to $sel if desired.
my @ready = $sel->can_read($timeout);
if (@ready) {
foreach my $sock (@ready) {
if ($sock == $bgsock) {
my $packet = $res->bgread($bgsock);
$packet->print;
$bgsock = undef;
}
# Check for the other sockets.
$sel->remove($sock);
$sock = undef;
}
} else {
warn "timed out after $timeout seconds\n";
}

**root▲ ★** · 04/12/25 05:13:46

もう、わたし限界っす。

Net::DNS使う方針なら、たぶんかなりエレガントに書けるですね。
あとはマニュアル・ドキュメントを読んでいただけると、うれしいっす。

というか、こういうモジュールを柔軟に使えるのも、PIEに移ったおかげかもですね。

**FOX ★** · 04/12/25 05:14:28

tcp_timeout
print 'TCP timeout: ', $res->tcp_timeout, "\n";
$res->tcp_timeout(10);

Get or set the TCP timeout in seconds. A timeout of undef means indefinite. The default is 120 seconds (2 minutes).

udp_timeout

**FOX ★** · 04/12/25 05:15:02

ほいほーい

んではまた >>163

**FOX ★** · 04/12/25 05:15:29

>>164 は

http://www.net-dns.org/docs/Net/DNS/Resolver.html

ここよんでます

**root▲ ★** · 04/12/25 05:16:15

>>164
通常のDNSの場合UDP使っているので、UDPのタイムアウトも指定する必要ありです。
というかたぶん、>>162 の例をアレンジする方針がよさげ？

おやすみです。

**root▲ ★** · 04/12/25 05:18:47

>>166
はい、了解です。

でもなんか、糸口がつかめそうな予感。

banana238ですが、
live8 に激しく来た時もバッファ溢れしなかったし、
思い切ってバッファでかくしたのは、効果あったかも。
なにせCPUもディスクも遊んでいるから、もうちょっとあがいてみたいなと。

**FOX ★** · 04/12/25 05:29:45

ccc

**FOX ★** · 04/12/25 05:38:03

その１

これでうまく行った

use Net::DNS;
my $res = Net::DNS::Resolver->new;
$res->tcp_timeout(1);
$res->udp_timeout(1);
my $ans = $res->query($BHOST);

tcp/udp の timeout をそれぞれ 1(sec) にした。
0だとどうかなと思ってやってみたら、だめだった。
もっと短くする方法は無いものか

**FOX ★** · 04/12/25 05:52:16

http://www.net-dns.org/docs/Net/DNS/Resolver.html

ここの達人になるといいのかも、

**FOX ★** · 04/12/25 05:52:49

専用のサブルーチンを作った

sub foxDNSquery
{
my ($host) = @_;
use Net::DNS;
my $res = Net::DNS::Resolver->new;
$res->tcp_timeout(1);
$res->udp_timeout(1);
$res->retry(1);
my $ans = $res->query($host);
#we don't need answer.
}

**FOX ★** · 04/12/25 05:53:26

新スレ立ったとき

my $AHOST = "$GB->{NEWTHREAD}.$GB->{FORM}->{'bbs'}.$ENV{'SERVER_NAME'}.bby.2ch.net.";
&foxDNSquery($AHOST);

**FOX ★** · 04/12/25 05:53:56

全ての投稿(成功時)

my $BYTES = length($GB->{FORM}->{'MESSAGE'});
#my $BHOST = "$GB->{NOWTIME}.$$.$ENV{'REMOTE_ADDR'}.$GB->{NEWTHREAD}.$BYTES.$GB->{FORM}->{'key'}.$GB->{FORM}->{'bbs'}.$ENV{'SERVER_NAME'}.bbs.timeout.peko.2ch.net.";
my $BHOST = "$GB->{NOWTIME}.$$.$ENV{'REMOTE_ADDR'}.$GB->{NEWTHREAD}.$BYTES.$GB->{FORM}->{'key'}.$GB->{FORM}->{'bbs'}.$ENV{'SERVER_NAME'}.bbs.bbs.2ch.net.";
&foxDNSquery($BHOST);

**FOX ★** · 04/12/25 05:58:35

ここまでを全サーバに配布ー

**FOX ★** · 04/12/25 06:00:13

配布完了。
とくに苦情が無ければ BBS , BBY を落として
ちゃんとタイムアウトするかの実験が可能でーす　> root ★さん

**root▲ ★** · 04/12/25 06:00:16

おふろ入ったら、ちょっと目がさめちゃった。
でももうねるる。

>>170
$res->bgsend って、どうなんだろう。
http://www.net-dns.org/docs/Net/DNS/Resolver.html

**root▲ ★** · 04/12/25 06:00:46

うわ、すごいー。

今、1秒バージョンですか。

**FOX ★** · 04/12/25 06:00:59

どなんですかね、
ぼちぼち研究してみるです

**root▲ ★** · 04/12/25 06:01:44

まずは、DNS queryがちゃんと出てるか、サーバのほうを見てきます(w。

**root▲ ★** · 04/12/25 06:05:21

BBS/BBYにはquery来ている模様です。
BBQとBBMはまだ元の状態ですか。

**root▲ ★** · 04/12/25 06:07:42

んじゃ、BBSを落としてみるかな。
これ書いたら、BBS止めます。

**root▲ ★** · 04/12/25 06:08:07

今、止まっています。

**root▲ ★** · 04/12/25 06:08:18

おぉ、いいかんじ。

**root▲ ★** · 04/12/25 06:08:54

6:10 まで止めておいてみよう。

**FOX ★** · 04/12/25 06:10:03

おおっ

>>181
BBQ,BBM 等答えが要る系はもちっと勉強してからになるです、、

**root▲ ★** · 04/12/25 06:10:53

>>186
なるほど、Net::DNS::Packetの解析方法すね。
ちょっぴりDNSの知識が必要すね。でもそんなに難しくないです。

**root▲ ★** · 04/12/25 06:11:08

んじゃ、BBS戻します。

**FOX ★** · 04/12/25 06:11:30

一回タイムアウト検出したら
その船からは二度と聞きに行かないという実装もありかもかも

**root▲ ★** · 04/12/25 06:11:51

戻しました。また、ひとつ進歩したですね。

**FOX ★** · 04/12/25 06:12:08

ですね、

**root▲ ★** · 04/12/25 06:12:44

>>189
二度と、はつらいかな。
しばらくの間、ってのがよさげ。

で、Net::DNS::Packetのやり方をちょっと書いておくです。

**FOX ★** · 04/12/25 06:12:58

#we don't need any answer.
だったっすね、

**FOX ★** · 04/12/25 06:13:23

>>192
寿命10分だし

**FOX ★** · 04/12/25 06:25:37

>>177
The program must なんたらが気になるっす

**root▲ ★** · 04/12/25 06:27:26

#! /usr/bin/perl

use Net::DNS;

my $res = Net::DNS::Resolver->new;
my $ans = $res->query('2ch.net');
@answer = $ans->answer;

print "address = ", $answer[0]->address, "\n";

BBQやBBMは、このパターンでOKかと。
というか、Perlぜんぜんわかんないんで、超みようみまね。

**root▲ ★** · 04/12/25 06:30:08

で、undefだったらBBQやBBMにはひっかかってなくて、
127.0.0.1だったらひっかかってる、って判定すればいいはず。

**root▲ ★** · 04/12/25 06:33:00

127.0.0.2 だった。

**FOX ★** · 04/12/25 06:33:20

はいはーい
明日以降挑戦してみるです、

それにしてもPerlの達人が居ればねぇ

**root▲ ★** · 04/12/25 06:39:53

たしかに、、、。

で、DNSのことは少しは知っているので、ちょっとやってみた。
なるほど、数はこうやってとればいいのね。
(c.2ch.netはアドレス2つ)

#! /usr/bin/perl

use Net::DNS;

my $res = Net::DNS::Resolver->new;
my $ans = $res->query('c.2ch.net');
@answer = $ans->answer;

print "count = ", $ans->header->ancount, "\n";

print "address = ", $answer[0]->address, "\n";
print "address = ", $answer[1]->address, "\n";

**root▲ ★** · 04/12/25 06:42:59

ということで、

undefになった場合または undefじゃなくても、ans->header->ancountが0の場合

は、BBQ/BBMにひっかかってないとみなし、

ans->header->ancountが1以上で、配列の中身が127.0.0.2なら
BBQ/BBMにひっかかっているとみなせばいいのか。

ここまでわかれば、あとはFOXさんならすぐできるんじゃないかなと思います。

んでは、あとは明日にでも。

**未承諾広告※** ◆TWARamEjuA · 04/12/25 09:14:43

すごく乗り遅れ？（泪）

では風呂入りますm(_ _)m

[―{}@{}@{}-] **FOX ★** · 04/12/25 18:51:22

現在こんな感じ

use Net::DNS;
my $res = Net::DNS::Resolver->new;
$res->tcp_timeout(1);
$res->udp_timeout(1);
$res->retry(1);
my $query = $res->query($host);

my $adr = "ANS =";
if($query)
{
my @ans = $query->answer;
foreach(@ans)
{
$adr .= $_->address;
}
}
else
{
return "127.0.0.0";
}

[―{}@{}@{}-] **FOX ★** · 04/12/25 18:54:06

my $query = $res->query($host);
の答えは Net::DNS::Packet でその中のanserが配列になっている模様。

my @ans = $query->answer;
foreach(@ans)
{
　　$adr .= $_->address;
}

これは一個しかないという決めうちでコード書いたらまずい?
複数個あるならどれを見ればいいの?

**root▲ ★** · 04/12/25 18:54:57

よさげな気がするです。

で、127.0.0.2なら焼かれてて、127.0.0.0なら焼かれてないってかんじですか。

**root▲ ★** · 04/12/25 18:55:59

>>204
BBQ/BBMでは、Aレコード(IPアドレス)は1個しかないので、きめうちでOKです。
(DBをそういうふうに作っています)

[―{}@{}@{}-] **FOX ★** · 04/12/25 18:58:37

了解でーす

整形してから実験してみよう。。。

[―{}@{}@{}-] **FOX ★** · 04/12/25 19:00:34

くくく

[―{}@{}@{}-] **FOX ★** · 04/12/25 19:00:56

うっ　またここでテストしちまった。

[―{}@{}@{}-] **FOX ★** · 04/12/25 19:06:39

BBQ / BBM / BBX は同様の処理にしてみた　@myamer

[―{}@{}@{}-] **FOX ★** · 04/12/25 19:08:16

BBM や BBX のテストをして欲しいなぁ

**root▲ ★** · 04/12/25 19:09:57

BBXも1個しかAないので、同じ仕様でいいはずです。

で、みゃんまーでやればいいのかしら。

まず、
・正しく効くか
・配布してみてから→落としてみて、ブロックしないか

でいいのかな。

[―{}@{}@{}-] **FOX ★** · 04/12/25 19:11:43

んです
んです

[―{}@{}@{}-] **FOX ★** · 04/12/25 19:18:05

連日、頭使っていたら疲れたぞー
ちと　休憩

**root▲ ★** · 04/12/25 19:23:31

BBXはちゃんと動いてるですね。< みゃんまー
BBMは、どうすべ。

[―{}@{}@{}-] **FOX ★** · 04/12/25 21:13:19

今日の深夜
全サーバにこのbbs.cgiを配布してみよう、
そして BBQ/BBM/BBX 止めてテスト

今後は、さらにタイムアウトを縮めることへの挑戦か?
現在は

$res->tcp_timeout(1);
$res->udp_timeout(1);
$res->retry(1);

で、たぶん一秒は待つ予感。
どうやったら縮められるの?

**未承諾広告※** ◆TWARamEjuA · 04/12/26 00:22:38

回り回ってselect(2)を呼んでいるみたいなので小数が使えないのかな？＠timoutの値
モジュールを追っていくと、、、
Net::DNS
↓
IO::Socket
↓
IO::Select
↓
select(2)

ですので・・・

**FOX ★** · 04/12/26 00:40:58

BBM/BBQ/BBX/BBY/BBS ともに一回タイムアウトしたら
そのプロセスが常駐している間(最大10分)は、DNSクエリ処理をスキップするようにした。

**FOX ★** · 04/12/26 00:41:15

>>217
どうなんですかねぇ

**FOX ★** · 04/12/26 01:23:58

BBS/BBY って何が帰ってくるのかしら?

無条件に 127.0.0.2 ?

**root▲ ★** · 04/12/26 01:47:00

>>220
「ないよ」のはず。つまり、なにも。

**FOX ★** · 04/12/26 01:50:57

うっ
なるほど

my $query = $res->query($host);
if($query)

でタイムアウトと区別するにはどうしたらいいのかしら?

**FOX ★** · 04/12/26 02:03:05

BBS は　my $query = $res->query($host);
したとき

1) タイムアウト時
2) 正常終了時

ともに $query　が無いようです。
んで区別がつかないのだ。

**root▲ ★** · 04/12/26 03:08:32

>>223
answerを見ればいいはず。
しらべるのでちょっとまってください。

**FOX ★** · 04/12/26 03:10:06

$query　がないから
$query->answer;　が見れない予感

**root▲ ★** · 04/12/26 03:12:06

なるほど。
なら、エラーコードみりゃいいはず。

**FOX ★** · 04/12/26 03:15:56

おっ
$res->errorstring　に qyery timed out または MXDOMAIN だかが入っている

**FOX ★** · 04/12/26 03:17:02

NXDOMAIN だった

**root▲ ★** · 04/12/26 03:20:02

res_queryはだめだけど、res_sendつかえばOKですね。

#! /usr/bin/perl

use Net::DNS;

my $res = Net::DNS::Resolver->new;

my $ans = $res->send('2ch.net');
print "rcode = ", $ans->header->rcode, "\n";

my $ans = $res->send('notexist.2ch.net');
print "rcode = ", $ans->header->rcode, "\n";

**root▲ ★** · 04/12/26 03:20:58

>>228
あ、それでもOKです。
NXDOMAINが成功(で不存在)、query time outなのはタイムアウト。

**FOX ★** · 04/12/26 03:21:56

改修

sub foxDNSquery
{
my ($host) = @_;
$host .= "bbs.timeout.peko.2ch.net.";
use Net::DNS;
my $res = Net::DNS::Resolver->new;
$res->tcp_timeout(1);
$res->udp_timeout(1);
$res->retry(1);
my $query = $res->query($host);

if($res->errorstring eq 'query timed out') {return 0;}

return 1;
}

**FOX ★** · 04/12/26 03:22:32

呼び出し側

if($FOX->{BBS}){$FOX->{BBS} = &foxDNSquery($BHOST);}

**FOX ★** · 04/12/26 03:23:49

んじゃ　ex7でちとテスト

**root▲ ★** · 04/12/26 03:24:25

>>231-232
つまり、タイムアウトしたら0で、
普通に動いているときは1と。

**FOX ★** · 04/12/26 03:24:48

そでーす

**FOX ★** · 04/12/26 03:25:08

$FOX->{BBS}　の初期値は 1 で

**FOX ★** · 04/12/26 03:32:46

http://stats.2ch.net/tubame.cgi

よさげなので全部にいれよう

**root▲ ★** · 04/12/26 03:37:22

BBQへの問い合わせが激減しているような、、、。
原因はBBSと同じ?

http://mumumu.mu/mrtg/mrtg-rrd.cgi/bbqbbx/

**root▲ ★** · 04/12/26 03:38:28

例の「不存在」と「タイムアウト」問題っすね。
不存在はBBQ的には「登録なし」ってやつなんで。

**FOX ★** · 04/12/26 03:38:47

ぬおっ

BBQ は何返すんですか?

**root▲ ★** · 04/12/26 03:38:58

たぶん、BBMも同じかと。

**root▲ ★** · 04/12/26 03:40:07

127.0.0.2 登録あり(焼かれてる)
NXDOMAIN 登録なし(焼かれてない)
タイムアウト

の3つですね。BBM/BBXも同じ。

**FOX ★** · 04/12/26 03:41:46

改修

sub foxDNSquery2
{
my ($host) = @_;
#$host .= "bbs.timeout.peko.2ch.net.";
use Net::DNS;
my $res = Net::DNS::Resolver->new;
$res->tcp_timeout(1);
$res->udp_timeout(1);
$res->retry(1);
my $query = $res->query($host);

if($query)
{
my @ans = $query->answer;
foreach(@ans)
{
return $_->address;
}
}
if($res->errorstring eq 'query timed out') {return "127.0.0.0";}

return "127.0.0.1";
}

**FOX ★** · 04/12/26 03:42:47

if($SPAM eq "127.0.0.0"){$FOX->{BBQ} = 0;}

こんなコード呼び出し側に入っています

**root▲ ★** · 04/12/26 03:47:15

>>243
これは、

アドレスがあればそのアドレスを返す
アドレスがなくてタイムアウトなら127.0.0.0を返す
そうでなかったら127.0.0.1を返す

という動き？

**FOX ★** · 04/12/26 03:48:32

そーですー

呼び出し側では
127.0.0.2
127.0.0.0
だけしか見ていません

**root▲ ★** · 04/12/26 03:51:25

>>246
127.0.0.2 => BB{Q,X,M} 登録済み
127.0.0.0 => 各DNSに異常発生

というかんじですか。

で、BB{Q,X,M}はそれぞれ別のDNSサーバなので、bbs.cgi側では、
例えばBBQの異常を検知したら、BBQ＊だけ＊10分停止、
というのがよさげです。

**FOX ★** · 04/12/26 03:52:46

そのようになっています。

$FOX->{BBM} = 1;
$FOX->{BBQ} = 1;
$FOX->{BBX} = 1;
$FOX->{BBY} = 1;
$FOX->{BBS} = 1;

**root▲ ★** · 04/12/26 03:55:10

了解です。

最悪はdnscacheがあぼーんすることですが、
そのときは、、、gethostbyaddr() が詰まっちゃうのか。

**FOX ★** · 04/12/26 03:55:53

>>249
そこはもっと練ってからの実装かと、

**root▲ ★** · 04/12/26 03:56:41

>>250
そっすね。

でもこれで、そうとうよくなった予感がするですよ。

**FOX ★** · 04/12/26 03:56:53

というか、そこは実装しないで
dnscacheをことん強化が本筋かと、