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

◆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全部入っているです。

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

>>414
ちなみに MacOSX10.3.7 では LWP が入っていませんでしたorz...
そして live/jigsaw- で詰まりました（泪）

あ、でももしかすると、make test がデフォルトで入っているかもしれないので、
%pkg_add -r p5-libwww
でも鰓になるかも、、、

**root▲ ★** · 04/12/30 04:02:22

>>415
ううむ。

旧HE時代からlibwwwはpkg_addで入れてますが、
FreeBSD4.x/5.xでは、一度もエラーになったことないです。

**FOX ★** · 04/12/30 04:03:53

ちなみに質問ですが
Perl で Net:: とかLWP:: とかは通常なんて呼ぶんですか?

**root▲ ★** · 04/12/30 04:05:03

>>417
Perl modules って答えでいいのかな。

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

Net モジュールとか LWP モジュールって感じ?

あとデストラクタまで入っているという認識でいいのかな?

**未承諾広告※** ◆TWARamEjuA · 04/12/30 04:09:22

>>417
大文字で始まる場合はモジュール、小文字の場合はプラグマ。って答えでいいのかな。
http://search.cpan.org/modlist/Pragmas

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

portsでmakeしてみました。

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

>>419
Net::DNSで1つのモジュール、ってかんじですね。

モジュールの作者がそのへんに配慮して書いているかによると思います。＜デストラクタ

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

>>421
/usr/portsはまさか、OS入れたときのそのまま、、、ってことはないですよね。
ちゃんとupdateしてます？

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

portsってどうやってupdateするんすか？

**root▲ ★** · 04/12/30 04:18:27

>>424
ひゃー。

/etc/make.conf作って、/usr/portsでmake updateするです。
/etc/make.confの例をここに書くです。

**未承諾広告※** ◆TWARamEjuA · 04/12/30 04:20:40

>>424
http://www.freebsd.org/doc/ja_JP.eucJP/books/handbook/ports-using.html
このあたりとか（苦笑）

**root▲ ★** · 04/12/30 04:22:09

# -- use.perl generated deltas -- #
# Created: Tue Oct 12 12:12:01 2004
# Setting to use base perl from ports:
PERL_VER=5.8.5
PERL_VERSION=5.8.5
PERL_ARCH=mach
NOPERL=yo
NO_PERL=yo
NO_PERL_WRAPPER=yo

とかがたぶんデフォルトで(Perl入れていれば)入っていると思うので、
これにこんなかんじの↓を追加するです。
で、cd /usr/ports して、make update を実行。

SUP=/usr/local/bin/cvsup
SUP_UPDATE=yes
SUPHOST=cvsup2.jp.freebsd.org # fastest_cvsupを実行して適当に近いやつにする
SUPFILE=/usr/share/examples/cvsup/standard-supfile
SUPFLAGS=-g -L 2
PORTSSUPFILE=/usr/share/examples/cvsup/ports-supfile
# Thank you for http://qb.2ch.net/test/read.cgi/operate/1062137886/39
WITHOUT_X11=yes
WITH_APACHE2=yes

**root▲ ★** · 04/12/30 04:23:46

あ、あらかじめ、

pkg_add -r cvsup-without-gui

をやって、cvsupを入れておかないとだめです。

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

>>427
# -- use.perl generated deltas -- #
# Created: Tue Oct 12 12:12:01 2004

の設定ファイルは、どこにあるんでしょうか？

**FOX ★** · 04/12/30 04:31:34

なんか今日は調子わるいっす
二回もコンピュータに負けてしまった　< AoM

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

おぉ、、既に書いてありました。。すいません。

**root▲ ★** · 04/12/30 04:34:33

>>429
あ、もしかしてPerｌはportsやpackagesじゃなくて、
コンパイルして入れたですか、、、。ううむ。

だったら、/etc/make.confはないと思うので、
とりあえず>>427の↓のが入った /etc/make.conf を作ればいいと思われ。

**root▲ ★** · 04/12/30 04:34:46

>>431
あ、りょうかい。

**FOX ★** · 04/12/30 04:39:06

>>422
ということは書ける機能は備わっているということかな、

**root▲ ★** · 04/12/30 04:42:11

>>434
その理解でよいと思います。

http://www.att.or.jp/books/perlmod/
http://www.att.or.jp/perl/man/perlmod.1.html より

パッケージのコンストラクタとデストラクタ

パッケージのコンストラクタとデストラクタとして機能する、2 つ
の特別なサブルーティン定義があります。　それは、BEGIN ルーテ
ィンと END ルーティンです。　このルーティンでは sub は省略で
きます。

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

おぉー、、updateし始めましたですよ。
ありがとうございますです。

**root▲ ★** · 04/12/30 04:45:48

>>436
よかったです。

…ということは、カーネルとかシステム領域(ユーザランド)も最初に入れたままかしら。

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

#uname -a
FreeBSD be.2ch.net 4.10-RELEASE FreeBSD 4.10-RELEASE #1: Tue Jun 22 10:08:09 JST 2004 root@www.my.domain:/usr/src/sy
s/compile/RENTALv6 i386

全く弄ってないですー。

**root▲ ★** · 04/12/30 04:54:14

>>438
4.10Rすね。root権限つきでしたっけ。
た○か社長のところだからそれなりにチューニングはされてるのかもですが、、、。

気が向いたらいじるかもしれないので、よろしければ種をメールしておいていただけると。
# 今日はもうねむねむ。

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

>>439
メールしましたー。

**root▲ ★** · 04/12/30 05:12:15

受け取りました。

**FOX ★** · 04/12/30 05:19:26

>>435
なるほどー
これだと OO ｯぽく書けるな、

**ひろゆき** ◆3SHRUNYAXA · 04/12/30 06:57:22

なにやら、変数を保持しっぱなしの予感。。。
＞SpeedyCGI

**ひろゆき** ◆3SHRUNYAXA · 04/12/30 07:09:42

おぉ、バグ発見。

**ひろゆき** ◆3SHRUNYAXA · NG

わーい。くばっちゃえー。

**南アルプス** ◆98YENoslbU · 04/12/30 07:11:39

工エｴェｪ（´д｀）ｪェｴエ工工

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

どこに？

**動け動けウゴウゴ２ちゃんねる** · 04/12/30 07:16:51

年末に働く管理人。

**動け動けウゴウゴ２ちゃんねる** · 04/12/30 07:18:57

>>445
そのjavascriptは何？

**名無しさん** · NG

なんだってー

**動け動けウゴウゴ２ちゃんねる** · NG

http://game10.2ch.net/test/read.cgi/arc/1104213037/64
普通の板でもログインしてると任意IDの所でも強制的に?とID表示されるんですが仕様ですか？。
まあ、ログインしなきゃいいわけですが。

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

うわJaneでみるとはげしいです。

04/12/30 07:58:21

おまえは何をしてるんだ！
年末で奈良の女児誘拐殺人の犯人らしき36歳新聞配達員の男が事情徴収してるというのに！

**ひろゆき** ◆3SHRUNYAXA · NG

>>451
あ、ID消すの忘れた。。

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

ひろゆきキャップ下さいたま

66999699966669969696@ezweb.ne.jp

**動け動けウゴウゴ２ちゃんねる** · NG

>>454
面白いから残しといても良いよ。

**動け動けウゴウゴ２ちゃんねる** · NG

>>454
というか今度は強制IDのところがID:???になったんだけど…。

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

ログオンしてる人が書き込めば、
javascriptの記述の分だけdatの容量が増えることになったわけですが、
それについては構わないのでしょうか？
ログオンしてる人が少なければ大した影響は無いでしょうけど。

▲ ◆l/IRP0btKM · 04/12/30 09:01:34

>>454
ナンタルチーア

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

>427
その/etc/make.conf見覚えがあると思ったら、pekoスレで昔オレが書いたサンプルからの引用か……

・/usr/share/exapmle/cvsup/ports-supfileは/usr/sup/ports-supfileあたりにcpして使ったほうが良いかも
・*default compressはコメントアウトするか、SUPFLAGS= -s -g -L2にして圧縮しない
・fastest_cvsupで速いサーバーを入れるのも当然だが、cvsup-mirrorホストが立っているならそっちを指定する

そもそもcvsup-without-guiがpkg_addされていないんであれば、sysutils/portsnapを使ってもらっても良いかも。
管理手法がばらばらになるというデメリットはあるけど。

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

×SUPFLAGS= -s -g -L2にして圧縮しない
○SUPFLAGS= -Z -g -L2にして圧縮しない

ミスったので訂正。
-sはチェック抑制だった。

**動け動けウゴウゴ２ちゃんねる** · NG

今度は任意IDみたいになってますよ。
http://qb5.2ch.net/test/read.cgi/operate/1103462401/579-580
579 ：動け動けウゴウゴ２ちゃんねる [sage] ：04/12/30 09:19:07 ? ID:???
てすと

580 ：動け動けウゴウゴ２ちゃんねる：04/12/30 09:20:14 ? ID:Mo0nUNNp
てすとに

**462** · NG

念の為こっちでも

**動け動けウゴウゴ２ちゃんねる** · NG

任意IDになってるのは意図した仕様みたい
http://qb5.2ch.net/test/read.cgi/operate/1101003269/672

**動け動けウゴウゴ２ちゃんねる** · NG

みたいだね。

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

>>344
ありがとうヽ(´ー｀)ノ

**FOX ★** · 04/12/30 23:39:36

質問でーす　> どうやらさん

javascript になっているのは、必然?
それとも単に負けただけ?

必然なら改修しないけど、、、って言うだけのことですが、

**ひろゆき** ◆3SHRUNYAXA · NG

元スレのURLを引っ張るので必然ですー。
javascript以外の方法でいけるなら、
それもありなんですが。

**FOX ★** · 04/12/30 23:43:33

なるなる

u=d:http://qb6.2ch.net/test/read.cgi/122445566/
のようになるのかな?