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 くらい

**ひろゆき＠どうやら管理人 ★** · 04/12/22 12:32:47

リモホは参考程度でいいんでないすか？
結局はIPで作業するわけで、、
3回作業コストかけるのはもったいないような。。

**root▲ ★** · 04/12/22 13:05:28

>>108
ふむ。了解。
元のIPアドレスが内部的に記録されるんであれば、それで十分と。

**ひろゆき＠どうやら管理人 ★** · 04/12/22 13:21:14

もしくは、fusianasanのときにIPも出すようにするとか。

**FOX ★** · 04/12/22 13:23:30

IP「も」ってことね、
やってみるかな、

問題があるとすれば名前欄の長さ制限かな?

**動け動けウゴウゴ２ちゃんねる** · 04/12/22 13:27:14

X_FORWARDED_FOR（だよね？）を使うのをやめるとか。

**FOX ★** · 04/12/22 13:28:51

fusiana の時だけ特例で「ちょっと」のばすとか・・・

**動け動けウゴウゴ２ちゃんねる** · 04/12/22 13:30:29

>>113
あー、それはいいかも。
現状でも長いホスト名の人だとfusianasanができないこともわりとあるし。

**▲:/usr/local/bin/ch2 -o i686** ◆P8fXJj6wwo · 04/12/22 13:51:57

fushianasanのIP(0.0.0.0)化ですか。
hostname知りたい人は各自でgetbyhostnameとかしてください。と。

いいんじゃないですかね。

**root▲ ★** · 04/12/22 13:57:13

>>115
生IPアドレス「も」出すってことなのではないかと。(>>111)

**▲:/usr/local/bin/ch2 -o i686** ◆P8fXJj6wwo · 04/12/22 14:35:42

>>116
>>114への反応なんですけどw

**動け動けウゴウゴ２ちゃんねる** · 04/12/22 15:31:55

>>117
>>114は>>113への反応なんですけどｗ

**動け動けウゴウゴ２ちゃんねる** · 04/12/22 17:11:27

( ´,_ゝ｀)ﾌﾟｯ

**動け動けウゴウゴ２ちゃんねる** · 04/12/22 17:18:36

つ▲

**動け動けウゴウゴ２ちゃんねる** · 04/12/22 17:25:00

っ▲

(ﾟ～ﾟ)ﾓｸﾞﾓｸﾞ

IP付きふしあなて名前欄じゃなきゃだめなん？

**動け動けウゴウゴ２ちゃんねる** · 04/12/22 17:42:42

おっ！

**▲:/usr/local/bin/ch2 -o i686** ◆P8fXJj6wwo · 04/12/22 18:35:23

あのーそれは私が装備ですか？>>120

**▲▲▲(*´Д｀)ﾊｧﾊｧ** · 04/12/22 18:42:11

全部もらった！

**/usr/local/bin/ch2 -o i686** ◆P8fXJj6wwo · 04/12/22 18:44:22

あらとられちゃったと。

以後はこちらで
質問・雑談スレ86＠運用情報板
http://qb5.2ch.net/test/read.cgi/operate/1103460767/l50

**動け動けウゴウゴ２ちゃんねる** · 04/12/22 21:42:05

そういや mokorikomo はどうなったの？あれの復活だめなの？

**root▲ ★** · 04/12/23 03:32:58

携帯→2ch運用情報スレッド14
http://qb5.2ch.net/test/read.cgi/operate/1103457589/126-134

ということで、Vodafoneの携帯UAの変化にとりあえず対応したです。

**FOX ★** · 04/12/25 02:09:43

お題「SpeedyCGI(Perl)でタイムアウトはどう捕まえるの?」

**FOX ★** · 04/12/25 02:33:58

bbs.cgi のバージョン表記(各板のindex.html下部)に
SpeedyCGI=yes と表示したのは大失敗だった。
ぐーぐるに大量に引っかかる～

**root▲ ★** · 04/12/25 02:37:16

>>129
うはは。

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

世界中でさがしたらロシア語ばっかり引っかかるし
途方にくれてきたぞ、

素人 · 04/12/25 02:54:35

表示設定をクリックするのだ。

（クリスマスじゃなくてHappy Holiday なんだなー。）

**FOX ★** · 04/12/25 02:54:57

> root ★さん

timeout の処理の実験するとき
たとえば bbs.2ch.net. のかわりに適当に
BBB.2ch.net. なんてのを使えばいいですかねぇ

**root▲ ★** · 04/12/25 02:57:47

>>133
それだと、すぐに結果が返っちゃうですね(ないよ、と言って)。

タイムアウトするようにするには、ひとつ子供のゾーンを切らないとだめです。
peko.2ch.netの下にわざとタイムアウトするドメイン名をひとつ作りますので、
それを使ってくださいです。

**FOX ★** · 04/12/25 02:58:57

わーい

**root▲ ★** · 04/12/25 03:04:14

timeout.peko.2ch.net ってのを作りました。
ここの配下は必ずタイムアウトします。

bbs.2ch.net のかわりに、timeout.peko.2ch.net をつけて
gethostbyname() するようにしてください。

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

挑戦 !!

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

ccc

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

ccc

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

timeout が timeout しないような。。。

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

と　思ったら

このスレでテストしていた。

ぎゃふん

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

>>140
このコマンドどうなります？

dig -t a a.b.c.d.timeout.peko.2ch.net.

**root▲ ★** · 04/12/25 03:09:07

>>141
ありゃー。

**FOX ★** · 04/12/25 03:19:15

In start_perl, use a poll() timeout instead of an alarm to implement the timeout
while waiting for an accept. It's cleaner than a signal.

らしいんだが、Perlでpoll() ってどうやって使うんだ?

**root▲ ★** · 04/12/25 03:22:14

適当にGoogle。
http://perl.active-venture.com/lib/IO/Poll.html

**FOX ★** · 04/12/25 03:36:29

どもども
わたしもぐるぐるとぐるぐるしています

**root▲ ★** · 04/12/25 04:16:52

poll() っていうぐらいで、select() のように fd ベースでやる時に使うのかな。
とすると、gethostbyname() の待ちには使えないのかな。

んでは、どうすべきか。

**root▲ ★** · 04/12/25 04:17:32

待ちじゃなくて、タイムアウトでの抜け出しと。

今こうやっててうまく動かない、ってのを、
まずは書き出してみるといいのかも。

**root▲ ★** · 04/12/25 04:19:00

適当に貼ってみる。
http://www.futomi.com/lecture/signal/alrm.html

**root▲ ★** · 04/12/25 04:24:49

あと、これとか。これは逆引きの例かな。
http://www.tohoho-web.com/lng/199905/99050053.htm

ねむくなったんで、Googleの検索結果をそのまま貼ってみる。
http://www.google.com/search?num=50&hl=ja&c2coff=1&q=Perl+alarm+%E3%82%BF%E3%82%A4%E3%83%A0%E3%82%A2%E3%82%A6%E3%83%88&lr=

**root▲ ★** · 04/12/25 04:26:01

で、こういったalarm()を使う手法がSpeedyCGI配下では使えないとすると、、、さて、どうすべか。
ってことですね。

**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

くくく