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

**root▲ ★** · 04/12/29 15:58:37

>>313-314
まさにそれっすね。

再帰止めて(>>314)、BB?の用途に応じてそのサーバに直接query出すと。

**root▲ ★** · 04/12/29 16:03:54

こんなかんじでいいみたい。

#! /usr/bin/perl

use Net::DNS;

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

# specify bbs.2ch.net server
$res->nameservers('206.223.147.35');

# turn off recurse query
$res->recurse(0);

my $ans = $res->send('a.b.c.bbs.2ch.net');

**root▲ ★** · 04/12/29 16:10:41

これで、DNSキャッシュサーバを経由せずに、
直接データを持っているDNSコンテンツサーバにDNS問い合わせをするようになります。

BBSとBBYは戻りの結果を利用しないし、
ローカル側でデータのキャッシュが効く必要がまったくない(というか邪魔)ので、
この形にするのがよいですね。

その分レスポンスがよくなるし、DNSキャッシュサーバの負荷も減少します。

BBQ/BBX/BBMは通常通りにキャッシュが効いたほうがいいので、
これまで通りのパターンの方がよさげです。

**root▲ ★** · 04/12/29 16:15:08

ホスト名書いても許されるみたい。

BBS
$res->nameservers('a.ns.bbs.2ch.net');

BBY
$res->nameservers('a.ns.bby.2ch.net');

で、いけそう。

**root▲ ★** · 04/12/29 16:16:57

IPアドレスで指定するなら、これかな。

BBS
206.223.147.35

BBY
206.223.147.36

**root▲ ★** · 04/12/29 19:39:31

しばしば暴走しているのは、どうもsubbbs.cgiの模様。

**動け動けウゴウゴ２ちゃんねる** · 04/12/29 21:28:51

subbbs.cgiってもう使われてないですよね？

**FOX ★** · 04/12/29 22:25:08

subbbs.cgi って良く知らないんです。
詳しい人いないかな?

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

昔は投稿確認に使われていた。
今は全てbbs.cgiでやっている。

ってんじゃなかったか。

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

subbbs.cgiを書き替えて見るとか

「subbbs.cgiは使用できなくなりました。」

とか

**FOX ★** · 04/12/29 22:45:20

いいんだろか?

暴走するって、たとえばどうなる出素か? >>320

**FOX ★** · 04/12/29 22:45:55

BBY/BBS 用のらっぱ

sub foxDNSquery
{
my ($host,$nameserver) = @_;
#$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);
$res->recurse(0);# turn off recurse query
$res->nameservers($nameserver);

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

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

return 1;
}

**FOX ★** · 04/12/29 22:47:18

>>326 版をex7に入れてみた。

**FOX ★** · 04/12/29 22:52:48

特に問題ないようなので
全サーバに配布。

**FOX ★** · 04/12/29 22:57:45

http://stats.2ch.net/suzume.cgi を見る限りカウントはされているようだ　< BBS
果たして数え落しがなくなるか、果てしなく0に近づくか、、、

**動け動けウゴウゴ２ちゃんねる** · 04/12/29 23:02:06

いや、
SUBBBS_CGI_ON=1 だと、スレ立て時に確認画面（bbs.cgi）が出て、
ボタン押すともう一回確認画面（subbbs.cgi）が出て、
ボタン押すともう一回確認画面（bbs.cgi）が出て、
ボタン押すとスレ立てできる。

**FOX ★** · 04/12/29 23:03:12

>>330
そうなる必要性ってもうないですよね?

**動け動けウゴウゴ２ちゃんねる** · 04/12/29 23:06:25

確認はするとしても一回で良いだろうし、bbs.cgiで足りてるね。

**FOX ★** · 04/12/29 23:11:51

subbbs.cgi へ飛ばないようにしてみた

**動け動けウゴウゴ２ちゃんねる** · 04/12/29 23:15:02

お、SUBBBS_CGI_ONを完全無視な感じ？

**FOX ★** · 04/12/29 23:17:00

そんな感じ、、

どうなることやら

◆Reffi/bQ.c · 04/12/29 23:18:15

>335
うほ、いきなり実験ですか（汗
トラブルあった場合人なだれ込んでくるからすぐにわかるでしょうけどｗ

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

おつかれおつかれ。
だいじょぶっしょ。

**FOX ★** · 04/12/29 23:26:31

>>326-327
なんだが　BBS でカウントできていないサーバがあるようなんだが、、
http://ch2.ath.cx/load/ex9.html

**ひろゆき＠どうやら管理人 ★** · 04/12/29 23:27:27

SpeedyCGIって、ソケットを使ったりしても大丈夫なんすかね？

**FOX ★** · 04/12/29 23:29:00

>>339
たぶん問題ないかと、

**動け動けウゴウゴ２ちゃんねる** · 04/12/29 23:29:37

昨日、スレ立てしようとして何も入力していないのに
いきなり確認画面に行ったのはテスト？の影響ですか？

**FOX ★** · 04/12/29 23:31:06

>>338 はBBS/BBY側の設定かしらん?
お前の要求なんぞ受け付けておらんとか、

**動け動けウゴウゴ２ちゃんねる** · 04/12/29 23:34:50

2ｃｈの動作報告はここで。パート16
http://qb5.2ch.net/test/read.cgi/operate/1103455176/114
これと同じで、

BBS_TITLE_LINK
が
http://www.2ch.net/info.html
だったら
http://info.2ch.net/guide/
に変えてくれないかな。
info.htmlは廃棄されてるので。
板作成時のテンプレも変えてくれるとうれしい。

**動け動けウゴウゴ２ちゃんねる** · 04/12/29 23:35:24

＞341
ただのCookie確認だべ。
関係無し。

**FOX ★** · 04/12/29 23:38:30

>>343
やってみた

**動け動けウゴウゴ２ちゃんねる** · 04/12/29 23:42:28

＞345
わーい、ありがとー。

**FOX ★** · 04/12/29 23:43:28

ちなみに =~ /info\.html/ で引っ掛けています

**ひろゆき＠どうやら管理人 ★** · 04/12/29 23:45:37

>>340
（￣ー￣）ﾆﾔﾘｯ

**FOX ★** · 04/12/29 23:54:08

うわっ

◆tuboBGQODY · 04/12/29 23:58:00

あーあ（ｗ

**root▲ ★** · 04/12/29 23:58:31

うーむ、、、。

>>338 >>342
今ちょっと取り込み中なので、あとでみてみます。

**FOX ★** · 04/12/30 00:02:56

>>348
ちなみに何するですか?
どっかから何か読み込んでくる?

入れたら見てみるけど、
そして負荷高かったら直せばいいのか、ﾌﾞﾂﾌﾞﾂﾌﾞﾂﾌﾞﾂ

**root▲ ★** · 04/12/30 00:04:00

>>348
何しようとしてるんだろう。広告関係かしら、、、。
重い処理が入っちゃうようなら、おじさんが直すんだろうなぁ、やっぱ。ｳｳﾑ

**FOX ★** · 04/12/30 00:04:09

>>333 も >>343 も特に問題はないようだ、

**未承諾酩酊※** ◆TWARamEjuA · 04/12/30 00:12:07

Socketを使うとまたタイムアウト問題が出てくるかもしれませんね（￣ー￣）ﾆﾔﾘｯ

**FOX ★** · 04/12/30 00:17:28

>>335
Socket を使うときはどんなクラス(←Perlでもこの言い方でいいの?)を使うんですか?
Net::Socket とかなんとか便利なものがあるんですか?
Net::Http とか? (←勝手に想像しています)

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

beに登録してるユーザーの場合は、beのDBに見に行くようにしてみようかと。

**ひろゆき＠どうやら管理人 ★** · 04/12/30 00:23:03

>>356
use socket;
だけで、あとはこそこそと。

**FOX ★** · 04/12/30 00:27:23

投稿毎にやるですか、、、

**root▲ ★** · 04/12/30 00:27:37

>>325
単純な暴走が起こります。
そのプロセス(perl subbbs.cgi)が、プロセスを100%使ってしまう。
で、120秒分CPUを使うと、むなしく終了していく。

スレ立ての時に直接subbbs.cgiをコールする２ちゃんねるビューワもあるような
気がちょっとしたけど、どうでしたっけ。

>>326
そのコードでたぶん問題ないと思います。
私も、>>329 の変化に注目したい。

>>357
beのDBが落ちていた場合に、どうなるのかしら。
待っちゃう？

**root▲ ★** · 04/12/30 00:29:41

全投稿に対してやるとすると、相当気合入れないと大変すよ。サーバ側。
FreeBSD素の設定(各種カーネルチューンしてない状態)では、
ほとんどむりぽなような。

確か今160万投稿とか170万投稿とかあるので、
そのつもりでサーバ側をまじめに強化しないと、かなりきびしいです。

**FOX ★** · 04/12/30 00:29:47

>>360
subbbs.cgi をバックアップして
今は使われていませんとしてみよう。

**root▲ ★** · 04/12/30 00:35:14

そうか、BBSとBBYのDBに、２ちゃんねるのサーバ全部を登録するようにしなきゃ。
やってきます。

**FOX ★** · 04/12/30 00:41:51

うっ　上書きしつまった、
subbbs.cgi は何処か遠くへ・・・

でもどっかのサーバに残っているだろう、きっと。

**動け動けウゴウゴ２ちゃんねる** · 04/12/30 00:48:48

Have a nice surf !!

Top

**root▲ ★** · 04/12/30 00:48:55

２ちゃんねるの全bananaサーバからの登録を受け付けるようにした。
カウントアップ復活を確認。

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

**root▲ ★** · 04/12/30 00:49:28

>>364

**未承諾酩酊※** ◆TWARamEjuA · 04/12/30 00:49:38

>>364
>>364
>>364
>>364
>>364

◆Reffi/bQ.c · 04/12/30 00:51:11

あわわわ
とりあえず、ミャンマー当たりで連投スレ建てしまくって不具合無いか調べた
ほうがいい鴨

**未承諾酩酊※** ◆TWARamEjuA · 04/12/30 00:52:09

>>356
ごくごく簡単にURLから何かを拾ってきたいのならばLWP::UserAgentなんてモジュールがあるですよ。
http://search.cpan.org/~gaas/libwww-perl-5.803/lib/LWP/UserAgent.pm

**FOX ★** · 04/12/30 01:16:05

bubble2サーバから回収してきた < subbbs.cgi
subbbs-save.cgi で qb6に入れた。

**FOX ★** · 04/12/30 01:17:55

>>370
あっ　それ知ってる、
boo80 はそれでやったような、

**FOX ★** · 04/12/30 01:24:37

$ua = LWP::UserAgent->new()　でUA作って
HTTP::Headers->new()
HTTP::Request->new() なんてのを作って
UA にheadrer と Request くべて
$res = $ua->request() すねーるんですよね?

$ua->timeout(15) とか設定して

タイムアウト時は$response->code() あたりを見ればいいのかしら?

**FOX ★** · 04/12/30 01:30:04

しかし本筋は
●の時にやったように期限付きのセッションID方式と思われ < be のDB look up

**root▲ ★** · 04/12/30 01:33:21

DBが何でできているかわかりませんが、
前にDBIがどうのとかどっかで言っていたような気がするので、
MySQLか何かのサーバと、プロセス間通信しようとしているのかも。

**ひろゆき＠どうやら管理人 ★** · 04/12/30 02:23:43

>>359
beにログインしてるユーザーの場合だけです。

**未承諾酩酊※** ◆TWARamEjuA · 04/12/30 02:32:45

>>373
そんな感じですー

→タイムアウト時は$response->code() あたりを見ればいいのかしら?
例文の通り、
　$response->status_line;
とすると詳しい情報が得られるようです。（'time out' の文字列が含まれています。）

**ひろゆき＠どうやら管理人 ★** · 04/12/30 02:41:02

$ip = inet_aton($be_host) || print "host($be_host) not found.\n";

$sockaddr = pack_sockaddr_in($port, $ip);
socket(SOCKET, PF_INET, SOCK_STREAM, 0) || print "socket error\n";

connect(SOCKET, $sockaddr) || die "connect $be_host error\n";
autoflush SOCKET (1);

print SOCKET "GET $url HTTP/1.1\n";
print SOCKET "Host: $host\n";
print SOCKET "Connection: close\n\n";

**未承諾酩酊※** ◆TWARamEjuA · 04/12/30 02:41:05

>>377
ちなみに、
$response->status_line のとき。
　500 Can't connect to count.2ch.net:80 (connect: timeout) at ./test.pl line 12.

$response->code() のとき。
　500 at ./te.pl line 12.

となるですー

**ひろゆき＠どうやら管理人 ★** · 04/12/30 02:42:08

モジュールのほうが重そうな気がしたので、
書いたほうが早いと思ったんですが、どうなんでしょう？

**名無しさん** · 04/12/30 02:43:20

外部からbeのデータが覗かれちゃう危険は無いのかしらん、

**FOX ★** · 04/12/30 02:44:34

モジュール(って言うんですか?)と同じに書けば同スピード
遅くなるように書けば遅いし
より早いコードを書けば早いかと、

ちなみにコンパイルされるんで
ロードの負荷やコンパイルの負荷は限りなく０です。

**ひろゆき＠どうやら管理人 ★** · 04/12/30 02:45:12

>>381
DBIだとselect文とかいじれちゃうので、
http経由のほうがいいかなぁと思ったのです。

**ひろゆき＠どうやら管理人 ★** · 04/12/30 02:46:14

>>378みたいに7行で終わるので、
モジュールよりは、早いんじゃないかなぁ、、と。

**FOX ★** · 04/12/30 02:46:53

サーバの場所に実は一番左右されたり　< コードの優劣より

**未承諾酩酊※** ◆TWARamEjuA · 04/12/30 02:47:25

>>378
timeout処理がないので、count.2ch.net みたいになると永遠に戻らなくなるですよー（汗）
でもってalarm()を使うと、SpeedyCGIではへんてこりんになるんだっけ？

>>380
リクエストされる数にもよるけれども、10分に1回くらいのリクエストならLWP::UserAgent使う方が楽かもですー
（このあたりはTimeoutをどれくらい取るかに左右されるかと思いますー）

**root▲ ★** · 04/12/30 02:49:28

TCPセッション張るですか。
connect() で詰まったら(サーバが落ちてたとかで)、どうするんだろう。

**root▲ ★** · 04/12/30 02:51:13

>>386
alerm() はSpeedyCGIでは使えませんです。
モジュール使って、タイムアウト指定しとかないとひどいことになるような。

LWP::UserAgent とかを使って、タイムアウトを入れたほうがよさげ。

**FOX ★** · 04/12/30 02:52:27

正常にGETが終了する場合
　>>378 でも >>373 でも
　　PIE 内であれば BD の処理を除けば 10ms 以下で終ると予想
　　PIE 外(たとえば日本) 200ms かかるかも?

異常な場合(timeout.busy等)
>>378 timeout 処理ないと bbs.cgi が待ち続け他の人がかけなくなる　(-M32)
>>373 timeout 処理をたんたんと、

ってとこかな?

**未承諾酩酊※** ◆TWARamEjuA · 04/12/30 02:53:26

>>388
LWPなどはIO:SelectでTimeout処理しているのでSpeedyCGIでもへんてこりんにならないようなのですー

**FOX ★** · 04/12/30 02:55:01

あと、、
>>378 の場合はわからないけど
>>373 でやると簡単に HTTPS が使えたり、Proxy経由で参照できたりと
のちのち簡単です

**root▲ ★** · 04/12/30 02:55:39

>>389
概ね、そんなかんじかと。

PIE <=. Sakuraは120msぐらいかかるみたいなので、250msぐらいはかかるですね。

%ping be.2ch.net
PING be.2ch.net (202.222.31.214): 56 data bytes
64 bytes from 202.222.31.214: icmp_seq=0 ttl=47 time=119.828 ms
64 bytes from 202.222.31.214: icmp_seq=1 ttl=47 time=123.794 ms
64 bytes from 202.222.31.214: icmp_seq=2 ttl=47 time=120.057 ms
64 bytes from 202.222.31.214: icmp_seq=3 ttl=47 time=122.132 ms
64 bytes from 202.222.31.214: icmp_seq=4 ttl=47 time=120.747 ms
^C
--- be.2ch.net ping statistics ---
5 packets transmitted, 5 packets received, 0% packet loss
round-trip min/avg/max/stddev = 119.828/121.312/123.794/1.478 ms

**未承諾酩酊※** ◆TWARamEjuA · 04/12/30 02:56:05

>>389
おそらくビンゴー♪
>>391
ですです（嬉）

**root▲ ★** · 04/12/30 02:56:37

>>390
…ですね。

ふろ入ってくるです。東京、さむさむ。

**FOX ★** · 04/12/30 02:57:29

こっちは最高気温が-5℃とかだったり
雪祭りシーズン並

**root▲ ★** · 04/12/30 02:57:48

>>392
あ、RTTだから単純に倍するのはへんだ、、、。

**動け動けウゴウゴ２ちゃんねる** · 04/12/30 02:59:53

connect()失敗した後にファイルディスクリプタ解放してないのか・・・
まぁひとごとだし、いいけど。

**root▲ ★** · 04/12/30 03:01:28

>>397
うむ。
SpeedyCGIだと、こういうのも響いてくる予感。

つまり、どなたかのいう「静脈系」をちゃんとできるひとじゃないと、
いじった場合、よりいっそういけないことになると。

ふろー。

**ひろゆき＠どうやら管理人 ★** · 04/12/30 03:02:25

素直にLWPつかいますかー。

**動け動けウゴウゴ２ちゃんねる** · 04/12/30 03:03:00

yamete

**400＠FOX ★** · 04/12/30 03:03:49

サンプルもって来る出巣

**FOX ★** · 04/12/30 03:08:32

use LWP::UserAgent;
use HTTP::Request;
use HTTP::Status;

my $ua = LWP::UserAgent->new();
$ua->agent ("Iyan Bakan ver 1.00");
$ua->from ("security\@2ch.net");
$ua->proxy("http", "http://$proxy/") ;#proxyさすなら
$ua->timeout(15);
$header = HTTP::Headers->new(
'Referer' => "http://www.2ch.net/",
);
my $parameter= "abc=123&def=456";
my $request = HTTP::Request->new("POST", "http://be.2ch.net/nantara.cgi", $header, $parameter);
my $response = $ua->request($request) ;#ここで GET 処理
#ここでtimeout処理
my $response_code = $response->code();#302とか404とか500
my $response_body = $response->content();#GETの結果はここに入っている

**FOX ★** · 04/12/30 03:11:09

たぶん　7行より短くなるはず、

**ひろゆき＠どうやら管理人 ★** · 04/12/30 03:15:49

試してみようと、LWPをCPANから拾おうとしたら、
ftp.perl.orgが落ちてる。。

**未承諾酩酊※** ◆TWARamEjuA · 04/12/30 03:26:29

>>402
use をLWP::UserAgentだけにしてみるトステ

use LWP::UserAgent;
my $ua = LWP::UserAgent->new(
　'agent' => "Iyan Bakan ver 1.00",
　'from' => "security\@2ch.net",
　'timeout' => 15,
);
# $ua->proxy('http', "http://$proxy/") ;#proxyさすなら

$ua->default_header(
　'Referer' => 'http://www.2ch.net/',
);

my $response = $ua->post(
　"http://be.2ch.net/nantara.cgi",
　\{
　　'abc' => 123,
　　'def' => 456,
　}
);

$response = $response->is_success
　? $response->content # 成功した時は内容を取り込む
　: $response->status_line # 失敗した時はそのレスポンスとエラー内容を取り込む
;

**未承諾酩酊※** ◆TWARamEjuA · 04/12/30 03:29:04

>>404
%perl -MCPAN -e shell
してから、
cpan> install LWP
すると、依存関係類もまとめてインストロールしてくれはるです♪

**（_ ｀** · 04/12/30 03:31:47

（Д ｀ ≡ ´ д）　（。｀？　　．．。。（（　´ _）

**動け動けウゴウゴ２ちゃんねる** · 04/12/30 03:38:32

Classまで使ってそんなにシビアなコード書きたいなら静脈系自動処理してくれるJava系の方が向いていそう。
その代償にGlobalGC時の硬直があるがJavaVMのParameterを経験則で調整していけばなんとかなる。
完全インタプリタなPerlよりバイトコードに落とすJavaの方が単純なルーチンなら刹那的な速度的にも最大二桁倍の速度向上が見込める。
SystemCallにおいては微妙ではあるが。でもやっぱり過去の資産の総リプレースは怖いのかな。

と言ってみるテスツ。

**ひろゆき＠どうやら管理人 ★** · 04/12/30 03:42:23

怒られました。
＊＊＊
Failed Test Stat Wstat Total Fail Failed List of Failed
-------------------------------------------------------------------------------
live/jigsaw-auth-b.t 3 2 66.67% 1 3
live/jigsaw-auth-d.t 1 1 100.00% 1
live/jigsaw-md5-get.t 2 2 100.00% 1-2
live/jigsaw-neg-get.t 1 1 100.00% 1
live/jigsaw-te.t 4 1 25.00% 4
Failed 5/41 test scripts, 87.80% okay. 7/788 subtests failed, 99.11% okay.
*** Error code 2

Stop in /root/.cpan/build/libwww-perl-5.803.
/usr/bin/make test -- NOT OK
Running make install
make test had returned bad status, won't install without force

**未承諾広告※** ◆TWARamEjuA · 04/12/30 03:43:01

>>404
あっと、どうしてもソースコードがご入り用でしたら、
http://search.cpan.org/~gaas/libwww-perl-5.803/
からダウソできるですよー

※あらやだ今日は呑んでいないのに酩酊のママだったorz...

**root▲ ★** · 04/12/30 03:43:56

>>404
LWP、2chの環境には入れてあったような。
あ、直轄サーバで試すのかな。

# FreeBSDならCPANから拾うより、pkg_add -r で入れるほうが楽です。

**未承諾広告※** ◆TWARamEjuA · 04/12/30 03:52:49

>>409
ぬー、、、jigsaw.w3.org が墜ちているもより（滂沱）＠なのでtest出来ずに鰓。。。
rootさん曰く、
→# FreeBSDならCPANから拾うより、pkg_add -r で入れるほうが楽です。
かもですm(_ _)m

**root▲ ★** · 04/12/30 03:54:45

>>409
FreeBSDなら、これで一発かと。

pkg_add -r p5-libwww

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

libwwwはかなりの基本ライブラリなんで、さすがにbanana/tiger/cobra全部入っているです。