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/20 07:38:23

【関連スレ】
【Project peko】2ch特化型サーバ・ロケーション構築作戦 Part16
http://qb5.2ch.net/test/read.cgi/operate/1102087698/
read.cgi再開発スレ
http://qb5.2ch.net/test/read.cgi/operate/1087199303/
◆ 全サーバトリップ統一作戦
http://qb3.2ch.net/test/read.cgi/operate/1067245837/
bby -- スレッド情報一元管理システム構築スレ2
http://qb5.2ch.net/test/read.cgi/operate/1086868799/
【広告・宣伝】Rock54【自動排除】　4
http://qb5.2ch.net/test/read.cgi/operate/1083063122/

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

【前スレ】
bbs.cgi 再開発ﾌﾟﾛｼﾞｪｸﾄ
http://qb3.2ch.net/operate/kako/1053/10530/1053067870.html
bbs.cgi再開発プロジェクト２
http://qb3.2ch.net/operate/kako/1069/10691/1069144193.html
bbs.cgi再開発プロジェクト３
http://qb5.2ch.net/test/read.cgi/operate/1076666901/
bbs.cgi再開発プロジェクト４
http://qb5.2ch.net/test/read.cgi/operate/1101984763/

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

４様

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

五まっとう

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

J2EE＋Struts＋Tomcatなら完全フリーだっけ

**動け動けウゴウゴ２ちゃんねる** · 04/12/20 08:03:52

J2EEの意味、分かってないでしょ

**動け動けウゴウゴ２ちゃんねる** · 04/12/20 08:35:54

べつにJavaでもPerlでもCでもPythonでも何でもいいんだよ。
習得コストとメンテコストと導入コストのバランスさえ考えれば。
あとJavaを使えって行っている奴は、2chのサーバーがFreeBSDで構築されていることに自覚無いのか？

もしJavaを使うためにLinuxにするとしたら、それなりに管理コストやらOSライセンス代金もかかるぞ。
すべてはバランスなんだよ。

**動け動けウゴウゴ２ちゃんねる** · 04/12/20 08:45:01

>>8
バランス考えた上での>>8の意見がないな。ただ反発するだけはｲｸﾅｲ(･A･)

TCO考えるとWindows2003+ASP.NETにしてしまうという手もあり？
お金あればだけど。

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

Java系は文字コード変換のコストがかかるから
無条件に軽いとは言い切れない面があるし。

bbs.cgiは他の処理が多いからまだしも
read.cgi改良時に「servletに」という意見が出なかったのは
2chがSJISだからというのもある。

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

確かに、Perl、PHP、以外では文字列処理での不便はあるな。
しかしごりごり書いてしまうと言う荒技もある。

Cでとかならそれでもさほどコストに見えないほどの速さの開きもあるし。

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

あと定量的なデータとしてちょっと経路が違うけどTPC-Wベンチマークのの価格性能比一覧。
ttp://www.tpc.org/tpcw/results/tpcw_price_perf_results.asp

Windowsの独壇場だけど、Linux、FreeBSDでチューニングを極めてる企業がないせいもあるかも。

**root▲ ★** · 04/12/20 10:01:42

alarm() のかわりに poll() を使うらしいです。
あとは夜までアクセスできない模様。

**▲ 某ソレ511** · 04/12/20 10:11:02

そもそもbbs.cgiがCでもなくPerlな理由って、
管理人がいじれなくなるからだったと思う。

**動け動けウゴウゴ２ちゃんねる** · 04/12/20 10:35:15

その管理人って具体的に誰だろう。FOX氏はPerlも文法知らないと言ってたし。

**動け動けウゴウゴ２ちゃんねる** · 04/12/20 10:39:32

2chの管理人は‘永遠の19歳’西村博之です。

管理人がPerlを知っていたとしても、もやは複雑すぎて
ほとんど弄れないレベルになっていると思うけど。

**動け動けウゴウゴ２ちゃんねる** · 04/12/20 10:43:40

ひろゆきはCも分かる予感。read.cgiいじってるし。
メンテナンスの容易さ、いじれる人の多さが理由じゃないすかね。

**動け動けウゴウゴ２ちゃんねる** · 04/12/20 10:48:55

いじれる人の多さならJavaも多いと思うけど(★持ちではどうだかしらんけど)、上を見るにFreeBSDってJVM提供されてないのかー。

**▲:/usr/local/bin/ch2 -o i686** ◆P8fXJj6wwo · 04/12/20 10:50:53

理想はC版でかつ共通部分をapacheモジュール化。

かといって2ch運営陣にそこまでやろうとする人的リソースが足りないけと。

**root▲ ★** · 04/12/20 11:01:58

実家にて会社に来てるメールを吸い上げ中、、、。

Apacheモジュールにすると、暴走した時にやです(歯止めがきかないから)。
mod_speedycgiにした時にそう思いました。

もちろん、暴走しないように組めばいいわけですが。

あとモジュールにすると、SuExec環境と仲悪いしね。
今のやり方(SpeedyCGI)は、決して悪くないと思うですよ。

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

仕様書はないの？

**▲:/usr/local/bin/ch2 -o i686** ◆P8fXJj6wwo · 04/12/20 12:54:09

>>20
確かに現状を鑑みると十分そうですね。
まだまだチューン必要ですけど

**FOX ★** · 04/12/20 15:13:38

dsoは究極の形だとおもうぞ

dinamic shared object に惚れました。

**FOX ★** · 04/12/20 16:08:31

banana226 SpeedyCGI化

**FOX ★** · 04/12/20 16:08:41

live19 ネ

**FOX ★** · 04/12/20 16:30:46

banana225(love3)　完

**FOX ★** · 04/12/20 16:34:43

banana210(pc5) 完

**FOX ★** · 04/12/20 16:50:19

banana229(that3/book3/travel2/bubble2)　完

**FOX ★** · 04/12/20 16:51:53

banana228(money3) 完

**FOX ★** · 04/12/20 16:54:16

banana227(game7)　完

**FOX ★** · 04/12/20 16:55:40

banana240(music4)　完

**FOX ★** · 04/12/20 16:57:07

banana233(sports7)　完

◆KONAN/fu2I · 04/12/20 16:57:18

(･∀･)ﾆﾔﾆﾔ

**FOX ★** · 04/12/20 16:58:47

banana232(tv6)　完

**FOX ★** · 04/12/20 17:01:01

banana601(etc3)　完

**FOX ★** · 04/12/20 17:02:29

banana612(tv7)　完

**FOX ★** · 04/12/20 17:04:25

banana613(live18)　完

**FOX ★** · 04/12/20 17:10:05

banana274(qb5/qb6/science3/academy3) 完

**FOX ★** · 04/12/20 17:11:03

本日の作業はここまでー

ﾉﾊｽﾞ

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

　 _ 　∩
(　ﾟ∀ﾟ)彡　FOX ★！FOX ★！
　⊂彡

◆KONAN/fu2I · 04/12/20 17:14:16

乙ですた。　(･∀･)ﾆﾔﾆﾔ

**動け動けウゴウゴ２ちゃんねる** · 04/12/20 17:19:14

狐たんがんがってるねー

**動け動けウゴウゴ２ちゃんねる** · 04/12/20 17:23:21

兄貴！！かっこいいぜ兄貴！！！！

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

さすが風呂上りはちがう中の人だな

**動け動けウゴウゴ２ちゃんねる** · 04/12/20 21:35:16

FreeBSDでもJava動くぞ。
ネイティブでな。
Linuxとの比較ならまだしも全否定か・・・

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

とりあえずJAVAの方が読み易いのは確かかと。
Perlは他人のソース見たくない。

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

8だけど、バランスを考えた上で選択するのならPerl（mod_perl）じゃないの。
Cでゴリゴリ書いても、コーディングスキルがない人が書いたCはそんなに速くないよ。
普通のスキルの人が書いたPerlのほうが安定している。

個人的にはmod_pythonもオススメしたいが、ひろゆきがpython学ぶつもりがあるかどうかに左右されるかも。

**動け動けウゴウゴ２ちゃんねる** · 04/12/20 22:46:56

>46
Perlのソースがどうしても読みにくいというのは否定しないけど。
Perl5.6以降のOOPな書き方をちゃんとすればそれほど読みにくくないと思うよ。

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

一瞬、荒らしかと思た。。

**動け動けウゴウゴ２ちゃんねる** · 04/12/20 23:13:40

PerlからJavaとかPythonに移るぐらいならC++とかにいくと思うぞ。
マシン負荷を考えたらだけど。

**動け動けウゴウゴ２ちゃんねる** · 04/12/21 02:54:07

言語がドウコウという話はどうでもよく...
常駐化されIF部・コアロジック・バックエンドDBの形になればよろしいかと。
理想を言うとHTMLブラウザ用IF以外にビュアー用のIFが欲しい。
今のビュアーはグチャグチャな仕様に対応するための例外対応や場当たりな対応が多すぎる。

**動け動けウゴウゴ２ちゃんねる** · 04/12/21 06:38:10

>>45
＞ネイティブでな。

詳しく。ｗ

**動け動けウゴウゴ２ちゃんねる** · 04/12/21 06:46:11

>>51
JavaのStrutsのMVCモデルなら、
＞常駐化されIF部・コアロジック・バックエンドDBの形になればよろしいかと。
...はすべて満たされるかと。
＞理想を言うとHTMLブラウザ用IF以外にビュアー用のIFが欲しい。
これは設計次第と解釈。

そんな状態ならPerlで続投するにしても早いうちに設計見直し必要ではないかな。

**動け動けウゴウゴ２ちゃんねる** · 04/12/21 08:40:30

>>52
＞＞ネイティブでな。
＞詳しく。ｗ
FreeBSDがもっているLinuxバイナリ互換機能を使用したLinux版JREの実行ではなく
FreeBSD用のJREがあると言っているだけでは？
昔はLinux版を互換機能（エミュ）で動かしていたが今はFreeBSDネイティブな
javaコマンドが在る。
誰もjavaで書かれたユーザアプリがフルネイティブコンパイルされるとは言って
いないと思うが・・・

**動け動けウゴウゴ２ちゃんねる** · 04/12/21 08:44:18

>>54
ああ了解。そういう事情があったのですか。

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

あ、でも、FreeBSD用のWASってあるのかな？TomcatをコンパイルすればOK?

**動け動けウゴウゴ２ちゃんねる** · 04/12/21 09:26:57

>>53
Strutsかどうかは気が早いような気もするが、Javaなら（というかJ2EEなら）
できるには同意。
エンタープライズを想定したプラットホームだから。
商用SWは無理だろうから、雄猫とDB（FireBird?ポスグレ?mySQL?）が耐えられるように
してあげる必要は在るかも。

**動け動けウゴウゴ２ちゃんねる** · 04/12/21 09:33:07

>>56
残念ながらWASはFreeBSD上ではサポートされません。（頑張ればLinux互換機能で*動く*かも）
とりあえず雄猫かと。コストかかんないし。
それにしてもWASで通じている人が何人いるのか心配(w
# IBM WebSphere Application Server

**動け動けウゴウゴ２ちゃんねる** · 04/12/21 10:27:41

>>58
いや、WAS= Web Application Server では？WebShpereとは限らない。
今回EJBはいらんのでWASの話は大げさかもだけど。

わたしは「雄猫」ってのがわかりません。＿|￣|○
もしかしてTomcatのことかな。

**動け動けウゴウゴ２ちゃんねる** · 04/12/21 11:35:37

Practical mod_perl
http://modperlbook.org/

CCライセンスで公開されている。

**動け動けウゴウゴ２ちゃんねる** · 04/12/21 15:26:34

カードキャプターライセンス？

**FOX ★** · 04/12/21 15:29:15

言語論争するですか?

**FOX ★** · 04/12/21 15:37:18

はじめり

**FOX ★** · 04/12/21 15:53:13

banana370(hobby5)　完

**FOX ★** · 04/12/21 15:54:56

banana366(school4)　完

**FOX ★** · 04/12/21 15:58:06

banana365(human5)　完

**FOX ★** · 04/12/21 15:59:44

banana386(live14)　完

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

banana382(society3)　完

**FOX ★** · 04/12/21 16:02:45

banana372(news13)　完

**FOX ★** · 04/12/21 16:04:07

banana371(pc6)　完

**FOX ★** · 04/12/21 16:05:47

banana390(tmp4)　完

**FOX ★** · 04/12/21 16:07:05

banana389(food6)　完

**FOX ★** · 04/12/21 16:09:32

banana388(comic6)　完

**FOX ★** · 04/12/21 16:10:45

banana387(comic5)　完

**FOX ★** · 04/12/21 16:13:40

banana241(news15,news16,news17)　完

**FOX ★** · 04/12/21 16:16:15

banana272(aa5,off3)　完

**FOX ★** · 04/12/21 16:20:06

banana214(pie)　完

**FOX ★** · 04/12/21 16:22:04

banana218(idol)　完

**FOX ★** · 04/12/21 16:23:48

banana718(sakura01)　完

**FOX ★** · 04/12/21 16:25:27

banana720(sakura02)　完

**FOX ★** · 04/12/21 16:26:04

全部　終ったはず、

**動け動けウゴウゴ２ちゃんねる** · 04/12/21 16:53:50

荒らしかよ

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

荒らしってw

今日もおつかれさんまー、狐

**FOX ★** · 04/12/21 17:18:58

これで bbs.cgi はSpeedyCGIのものに統一されました。
(superfreeを除く、sakubbs.cgiを除く)

関係者の皆様方　よろしくです

**root▲ ★** · 04/12/21 17:24:43

>>84
今日は記念日すか。
なに記念日にしますかね。

**動け動けウゴウゴ２ちゃんねる** · 04/12/21 17:32:01

あなたが記念日にしようと言ったから今日は記念日記念日

**動け動けウゴウゴ２ちゃんねる** · 04/12/21 17:34:26

記念日カキコ

**(^-^)犬** ◆VET4349ZB. · 04/12/21 18:18:20

今日は冬至。だからなんだ、あれだ、それだ。

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

かぼちゃ記念日

**未承諾広告※** ◆TWARamEjuA · 04/12/21 19:16:35

ワイン記念日

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

クリスマスはキリストの誕生日以外に
本来冬、至の記念日が起源だとか、どこかで聞いた希ガス

**動け動けウゴウゴ２ちゃんねる** · 04/12/21 19:59:08

そういやキリストの真の誕生日は７月って説があったな
聖書の記述から推理するとそうなるらしい

**CamelRock ★** · 04/12/21 20:02:23

bbs.cgi が吐くRockのログ　Rock54-104-12-21.txt　のフォーマットがおかしくなってるみたいなんですけどー

Rockは効いてるのに
http://halcyan.30.kg/klist/list.php?filepattern=-12-21&kwd_sv=&kwd_host=
が04/12/21 17:42:41　から更新されなくなりましたー
ご確認お願いしますー

**FOX ★** · 04/12/21 20:04:21

うおっ
調べてみよう、そうしよう

**FOX ★** · 04/12/21 20:07:38

直してみたが・・・

どんなもんでしょか?

**CamelRock ★** · 04/12/21 20:09:22

うお、はやっ
実験してみて報告しますー
反映まで10分くらいかかるかもですー

**On the Rock ★** · 04/12/21 20:17:14

20:07:57から出始めてますね。

**CamelRock ★** · 04/12/21 20:21:00

>>95
おっけーのようですー
おつでしたー

**FOX ★** · 04/12/21 20:22:08

はいはいー

**動け動けウゴウゴ２ちゃんねる** · 04/12/21 21:10:31

>>59
マジレスすると今はTomcat等をアプリケーションサーバとは呼ばないのです。
J2EEが出て少し経ったころに「コンテナ」と呼ぶようにSunから御触れが出ました。
Servletコンテナとか、EJBコンテナとか、J2EEコンテナとか。
正式な呼び方は忘れてしまいましたが一般的にこんな感じで呼ばれてます。

雄猫はTomcatの愛(?)称です。
英語のドキュメント翻訳すると雄猫ってなるので。

**不動楽 ★** · 04/12/21 22:04:45

http://qb5.2ch.net/test/read.cgi/operate/1103457589/93
の件でいじります。
以前の場所に一応現在のバックアップ置いておきます。

**FOX ★** · 04/12/21 22:06:29

配布は yyなんたらを動かせば一発です

**不動楽 ★** · 04/12/21 22:07:16

おおっ、了解です

**不動楽 ★** · 04/12/21 22:25:48

完了です。

**動け動けウゴウゴ２ちゃんねる** · 04/12/22 10:54:26

遅まきながら

かぼちゃワイン

**root▲ ★** · 04/12/22 11:15:56

質問・雑談スレ86＠運用情報板
http://qb5.2ch.net/test/read.cgi/operate/1103460767/578

こういうのをある程度防ぐために、以下の手法がよく使われていますが、
さて、どうしましょうかね。

1)gethostbyaddr()して得た名前
(いわゆるリモホ、今まではそのまま信用)に対してgethostbyname()する
# そもそも引けなかった時(生IPアドレス)は、gethostbyname()しても意味がないので注意

2)得られたIPアドレス群(gethostbyname()で得られるIPアドレスは一つとは限らない)に
最初のIPアドレスが含まれているか調べる

3-1)IPアドレスが含まれていれば
1)の結果を信用する

3-2)含まれていなければ
1)は偽装とみなし、逆引きできなかったことにする

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

ログ記録（BBXとかBBQとかも）で不都合がないのであれば
そのままでもいいんでないかと。
いちいち参照するのは無駄なような気がするです。
と、中身もよくわからずに書いてみる。

**ひろゆき＠どうやら管理人 ★** · 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";