【Project peko】2ch特化型サーバ・ロケーション構築作戦 Part15

**▲:/usr/local/bin/ch2 -o i686** ◆P8fXJj6wwo · 04/08/21 15:04

peko作戦について語るスレです。
サーバロケーションPIEに関する話題もこちらで。
現在の主要なテーマはpeko/cobraおよびtigerサーバが
特定条件下における突然死の原因究明です。
９月にrootさんが現地へ渡米して作業するそうです。

＜関連サイト＞
レンタルサーバー maido3.com ２ちゃんねるの転送量: http://server.maido3.com/pie/
MRTGによる統計情報: http://mumumu.mu/mrtg/
２ちゃんねる/PINKちゃんねる稼動中のサーバ一覧: http://mumumu.mu/serverlist.html

＜運営板PINKちゃんねる関係＞
【Project ama】PINKちゃんねる特化型ｻｰﾊﾞ構築作戦 Part2
http://qb5.2ch.net/test/read.cgi/operate/1082721809/l50
【PINKちゃんねる】新サーバ獲得会議☆3
http://qb5.2ch.net/test/read.cgi/operate/1080295660/l50

＜携帯電話特化型サーバ構築作戦関係＞
【Love Affair】携帯からのアクセスに対する考察・次の一手 Part2
http://qb5.2ch.net/test/read.cgi/operate/1088657713/l50

＜前スレ＞
【Project peko】2ch特化型サーバ・ロケーション構築作戦 Part14
http://qb5.2ch.net/test/read.cgi/operate/1087666806/l50

**root▲ ★** · 04/11/22 01:30:45

うーん、難しいなぁ。

mod_perl化って、言われているほど簡単じゃなさそうだ。

**root▲ ★** · 04/11/22 02:22:23

なるほど、mod_perlすると最初のディレクトリが / になるんか、、、。

**留守番 ★** · 04/11/22 02:53:47

導入されたですか?

**root▲ ★** · 04/11/22 03:22:10

悪戦苦闘中、、、。

ほとんどの障害はクリアできそうなんですが、
親元のcgi側で、

require "本体.cgi";

ってやって、
そっちで exit; ってやると(ごぞんじのようにbbs.cgiはそうやっている)、

[Sun Nov 21 10:17:31 2004] [error] ModPerl::Util::exit: (120000) exit was called at 本体.cgi line exitがある行Compilation failed in
require at 親元.cgi line requireの行.\n

ってなって、500 Internal Server Error になるです。

最近のmod_perlは、exit; を使ってもいいように改良されているのですが、
requireした先で exit するのは許してないのかも。

あるいは mod_perl そのもののバグなのかどっちなのかは、現在調査中です。

**root▲ ★** · 04/11/22 03:25:32

つまり、>>546 を簡単にいうと、

A.cgi
--------------
#! /usr/bin/perl
...
require "B.cgi";
--------------

B.cgi
--------------
exit;
--------------

ってのが、ちゃんとうごかんわけです。

**root▲ ★** · 04/11/22 03:27:16

個人的には、mod_perlのバグのような気がするなぁ。

**root▲ ★** · 04/11/22 03:31:14

いままでにクリアした障害:

1)SuExecと相性が悪い

UserとGroupをch2ex7/ch2に設定

2)カレントディレクトリがcgiを置いてあるディレクトリにならない

とりあえず明示的に最初のほうでchdir()する

3)bbs.cgi以外のcgiに影響をおよぼして欲しくない

<Files bbs.cgi>
</Files>

で囲む

**root▲ ★** · 04/11/22 03:46:04

試しに require をやめて、親元の下に本体をくっつけてみると、mod_perl配下でちゃんと動きました。
うーーーむ、、、。

**動け動けウゴウゴ２ちゃんねる** · 04/11/22 03:46:05

exit;
を
Apache::exit;
にしてみるとか。

**root▲ ★** · 04/11/22 03:47:47

>>551
それはもうやったんすよ。

ちなみに、Apache2だからmod_perl2なんで、
Apache::exit; じゃなくて ModPerl::Util::exit; にしないとだめです。

**root▲ ★** · 04/11/22 03:48:29

で、結果は同じでした。
ちゃんとModPerl::Util::exitはexit;だけで呼ばれるみたい。

**root▲ ★** · 04/11/22 03:50:19

む、、、止まったか。< ex7

**動け動けウゴウゴ２ちゃんねる** · 04/11/22 03:52:47

gotoで最後に飛ばすとか。。。

http://www.google.co.jp/search?hl=ja&c2coff=1&q=mod_perl+exit+goto&lr=lang_ja

**root▲ ★** · 04/11/22 03:54:01

bbs.cgi をとりあえず動く状態 (>>550) にして少し動かし続けたところ、突然反応がなくなりました。
pingはかかる、、、。

メモリリークとかが起こった予感。

**root▲ ★** · 04/11/22 03:57:51

ex7はリブート要請しました。

みんなが何年もの間言っていたほど簡単には、mod_perl化はできないとわかった、、、。

**動け動けウゴウゴ２ちゃんねる** · 04/11/22 03:58:24

いっそbbs.cgiを1から書き直すとか……。

誰がやるんだとか言う突っ込みはなしの方向で一つ。

**動け動けウゴウゴ２ちゃんねる** · 04/11/22 03:59:58

俺も一から書き直したが早い気がする。

言い出しっぺの法則で>>558が（りゃ

**さぼてん ★** · 04/11/22 04:09:50

やっぱbbs.cgiが（りゃだからか、、

**root▲ ★** · 04/11/22 04:32:54

ここでテストしてましたが、mod_perl配下だとTZ環境変数もおかしくなるみたい。

鯖が不安定なんだけど
http://ex7.2ch.net/test/read.cgi/morningcoffee/1101034399/

少なくとも今日のところは、撤退せざるを得ないなと。

で、SuExecをやめたぶん、ほんのちょっぴりパフォーマンスがよくなったのかも。
これについては、要経過観察で。

**root▲ ★** · 04/11/22 04:38:57

今後やるとしても、まずは、基礎研究とじっくりとした調査が必要そうですね。
環境変数とか、動作の違いとか。

で、世の中の解説やWebにあるページとかを見ても、
mod_perlの2系(with Apache2)は、実はあまり多く解説されていないように見えます。
つまり、練りが足りないということがじゅうぶん考えられる。

もちろん、じっけん！じっけん！(AA略して、
ここで練るというのもありですが、
そうするにしてもまずは事前準備をじっくりやって、勝ち目が出てきてからってことになるかなと。

ということで今日のところは、負け&撤退ということで。

**root▲ ★** · 04/11/22 05:05:41

寝る前に、試みた設定をダンプしておこう。
何か、設定に間違いがあったのかもしれない。

・mod_perlはportsからインストール(www/mod_perl2)

・httpd.conf

LoadModule perl_module libexec/apache2/mod_perl.so
<IfModule mod_perl.c>
PerlModule Apache2
</IfModule>
(略)
<Directory "/home/ch2ex7/public_html">
(略)
<IfModule mod_perl.c>
<Files bbs.cgi>
SetHandler perl-script
PerlResponseHandler ModPerl::PerlRun
PerlOptions +ParseHeaders
</Files>
</IfModule>
</Directory>

# 以下は動作確認の際のみ入れた設定
# mod_perl status
<IfModule mod_perl.c>
<Location /perl-status>
SetHandler perl-script
PerlResponseHandler Apache::Status
</Location>
</IfModule>

**root▲ ★** · 04/11/22 05:09:05

これで、有効にした後でエラーなくカキコできたことは確認。(>>561 のスレの最後のほう2つ)
しかしその後、リモートログイン窓の反応なくなる。

リモードコンソールのlogin:も出なくなった(エコーバックはあった)

メモリがめいっぱいになった時と同様の動作であったため、
メモリリーク? が起こったのかもしれない。
ただしsyslogには、そのようなメッセージはなし。

**動け動けウゴウゴ２ちゃんねる** · 04/11/22 07:49:03

<Files *.cgi>
SetHandler perl-script
PerlResponseHandler ModPerl::Registry
PerlOptions +ParseHeaders
Options +ExecCGI
</Files>
Perlrequire "～/startup.pl"

===startup.pl================================
use Apache2 ();
use subs qw(exit);
*exit = \&ModPerl::Util::exit;

1;
============================================

#!/usr/local/bin/perl

use strict;
use warnings;

if (exists $ENV{MOD_PERL}) {
my $path = $ENV{SCRIPT_FILENAME};
$path =~ s|/[^/]*$||;
chdir($path);
}

**root▲ ★** · 04/11/22 11:33:19

>>565
自分の環境でやってみました。
>>546 なパターンのプログラムの場合、同じ結果ですね。

で、ModPerl::Util::exit に変えても同じ。

[error] ModPerl::Util::exit: (120000) exit was called at ./test2.cgi line 1Compilation failed in require at /home/hoge/public_html/test/mod_perl/mod_perl_test.cgi line 33.\n

つまり、requireした先でModPerl::Util::exit; は呼んではいけないらしい。

**root▲ ★** · 04/11/22 11:39:36

use Apache::compat; を startup.pl に入れてみたけど、結果は同じ。
この問題が解決できないと、メンテナンス性という意味でつらいかも。

ということで、とりあえずここまで。
しばらく本業します。

**動け動けウゴウゴ２ちゃんねる** · 04/11/22 15:26:07

bbs.cgiをPerl5.8.5以降専用に大幅にリファクタリング。
mod_perl2でバグるところは書き方がしくじっている可能性が高い。

**root▲ ★** · 04/11/22 19:14:57

土曜の日テレの「ｷﾀｰ」と、
さっきのCXの「ドーン」を無事にクリアできたということは、
やはり >>535 が効果を発揮したのか。

**動け動けウゴウゴ２ちゃんねる** · 04/11/22 20:59:48

21:00からのTVタックル@liveanbでどうなるか

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

やっぱPerlのような物に拘るのはもう限界じゃない？
preg_hogehoge()も付いてるあれの方がまだ安全というか、なんというか。

**動け動けウゴウゴ２ちゃんねる** · 04/11/23 10:32:48

>>571
ひ(ryがいぢれないものはだめなのでわ？

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

PHPならひ（ｒｙのひともいじれるんじゃ？

**動け動けウゴウゴ２ちゃんねる** · 04/11/23 23:05:28

夜○さんが弄れない予感。

**動け動けウゴウゴ２ちゃんねる** · 04/11/24 04:55:41

で、その夜○さんとやらはmod_perl2用のPerlが弄れるのか？

**留守番 ★** · 04/11/24 17:07:33

たぶん　たぶん
2001年8月の２ちゃんねるの規模は、、、
現 tiger 2台とみた、

**動け動けウゴウゴ２ちゃんねる** · 04/11/24 17:46:55

北ネット弱えええ！！！

**動け動けウゴウゴ２ちゃんねる** · 04/11/24 18:42:32

それは・・・（びっくり

そりゃあ色々変わっていくのが自然だよなぁとオモタ。

**root▲ ★** · 04/11/24 19:45:50

>>576
今一番働いているtiger = tiger503 = ex7の最大転送量が、
圧縮して14～15Mbpsぐらい。
http://mumumu.mu/mrtg/mrtg-rrd.cgi/traffic/ex7traf.html

2台だと、圧縮して30Mbpsぐらいはさばけると。

この頃って、もう圧縮してた(mod_gzip)はずだから、
http://web.archive.org/web/20011127064159/http://www.yakin.cc/

tiger4台分ぐらいなんじゃないかしら。

**root▲ ★** · 04/11/24 19:49:12

てことはなにかい。

4 x (morningcoffee + news4vip + entrance + keiba + base) = 2001年8月の２ちゃんねる

っていうことなのか。

**動け動けウゴウゴ２ちゃんねる** · 04/11/24 19:49:12

8月の閉鎖騒動の時は圧縮してなかったんでわ？

**root▲ ★** · 04/11/24 19:50:21

>>581
そっすね。
圧縮前の転送量ベースなら、ほぼぴったりか。

**動け動けウゴウゴ２ちゃんねる** · 04/11/24 19:50:39

>>580
狼とVIPの書き込みの多さはただごとじゃないからのう
野球と競馬もROMが半端なく多いからのう

**さぼてん ★** · 04/11/24 19:59:30

つまり、圧縮して30Mbpsくらいだったのかぁ。
2001年8月の２ちゃんねる
= 2 x ex7鯖
= ex7鯖 + news18鯖 + news19鯖 x 2
= morningcoffee + news4vip + entrance + keiba + base + anime + mnewsplus + newsplus x 2
(trafiicinfoは各種データがmnewsplusの2%くらいなのではずした)

(ﾉ∀`)ｱﾁｬｰ

**動け動けウゴウゴ２ちゃんねる** · 04/11/24 21:53:32

すげー

あらゆる意味で・・・

**動け動けウゴウゴ２ちゃんねる** · 04/11/24 21:56:21

もしかして、bbs.cgi内で開いたファイルで
明示的にcloseしてないのがあって
それがmod_perlで動作させようとしたときに影響してる、
なんてことはないですかね。

いや、mod_perlでexitした時の動作とか全然知らないし
メモリ不足が原因なら、全然関係ないんですが。

**動け動けウゴウゴ２ちゃんねる** · 04/11/25 05:31:21

exitの代わりにreturnで戻すのはだめ？
常駐してんだから終了させんじゃなくapacheに戻してやる。
exitするとデータがクリアしたのに、他のプロセスで同じモジュールが動き続けて馬鹿になってゾンビが出る。
dieは？こいつも同じ原因を作る。

**root▲ ★** · 04/11/25 18:15:12

mod_perlからはとりあえず一時撤退するとして、
SpeedyCGIを使ってみるというのは、どうなんだろう。

**root▲ ★** · 04/11/25 18:45:57

Perl側を変えないとすると、こうかな。
# まだ入れてない。

LoadModule speedycgi_module libexec/apache2/mod_speedycgi.so

# まずは安全のため、機を見てコメントアウトとか数字を増やすとか
<IfModule mod_speedycgi.c>
MaxRuns 0
</IfModule>

# bbs.cgiだけSpeedyCGIにしてみる
<IfModule mod_speedycgi.c>
<Files bbs.cgi>
SetHandler speedycgi-script
</Files>
</IfModule>

**root▲ ★** · 04/11/25 23:23:58

きたく。ねむい。

>>589は、明日昼間あたりに入れてみるか。

**留守番 ★** · 04/11/25 23:29:25

これは何がどうなってどうなると予想されるものなんですか?
現状の２ちゃんねるにおいての話しとして、

**root▲ ★** · 04/11/25 23:38:52

>>591
これが、一番まとまっていると思います(原文の翻訳かな)
http://perldoc.jp/docs/modules/CGI-SpeedyCGI-2.21/SpeedyCGI.pod

つまりうまくいけば、Perl CGIの実行パフォーマンスが数倍になると。
で、こいつはmod_perlよりお手軽で、
mod_perlほど元プログラムをいじらなくても導入できる見込みがあると。

かつ、suexecとも仲が悪くないらしいし、
root権限なくても動かせるというのも、魅力的すね。

**root▲ ★** · 04/11/25 23:40:32

mod_perlにしてもそうですが、
基本路線としては、c系(PHP)を高速化した路線と大同小異です。

つまり、毎回でっかいPerlインタプリタを起動するコストを下げたいと。

**留守番 ★** · 04/11/25 23:45:11

LA を下げるのに寄与するって考えればいいのかな?
処理が比較して短い時間で終るからどんどん捌けるという路線?

**root▲ ★** · 04/11/25 23:47:15

てなわけで、

if 成功
bbs.cgi のすばらしい高速化が実現し、負荷耐性が上がるかもしれない
else
歓迎せざる、予期せぬ結果を招くかもしれない
endif

ということになります。

いろいろ調べていて、それなりに高速化の成功例も報告されているようなので、
まずは実験してみようかなと。

**root▲ ★** · 04/11/25 23:49:43

>>594
そですね。短い時間というか、
1つのbbs.cgi起動・実行をより少ない資源で済むようにすると。

仕込みはしてあるので、
万一「あっちゃー」が起こった時にリブートしていただけるんでしたら、
今やってもいいかなぁ、とか思っていたりして。して。

**動け動けウゴウゴ２ちゃんねる** · 04/11/25 23:51:44

　 _ 　∩
(　ﾟ∀ﾟ)彡　じっけん！じっけん！
　⊂彡

**留守番 ★** · 04/11/25 23:51:48

i am ready

**root▲ ★** · 04/11/25 23:52:40

>>598
どもです。
んでは、やってみますね。

**root▲ ★** · 04/11/25 23:56:52

入れた。まずは、

<IfModule mod_speedycgi.c>
MaxRuns 0
</IfModule>

入り。

**root▲ ★** · 04/11/25 23:57:53

#<IfModule mod_speedycgi.c>
#MaxRuns 0
#</IfModule>

をコメントアウトした。

**留守番 ★** · 04/11/25 23:57:59

tiger503 (ex7) ですか?

**root▲ ★** · 04/11/25 23:59:22

ちょっと様子見、、、。

**root▲ ★** · 04/11/25 23:59:35

>>602
そうです。

**root▲ ★** · 04/11/26 00:00:00

ひょっとすると、設定間違ってて、
bbs.cgiの1行目を直さないといけない、、のかも。

**root▲ ★** · 04/11/26 00:02:46

bbs.cgiの1行目を、

#!/usr/local/bin/speedy

に変更した。

**root▲ ★** · 04/11/26 00:03:48

>>606 はだめすね。
/usr/bin/perl に戻しました。
効いてない、、、。のかも。

**留守番 ★** · 04/11/26 00:04:22

どんどん　LAが・・・

**root▲ ★** · 04/11/26 00:04:37

うまく効いてないかな？
500 エラーになるすね。>>606

**root▲ ★** · 04/11/26 00:05:41

この状態でしばらく動かしてみるです。

>>608
LAは、この時間のex7だといつもこんなかんじすね。

**root▲ ★** · 04/11/26 00:06:19

つまり、LA=30とか50とかでは、どってことないってころです。< この時間のex7

**留守番 ★** · 04/11/26 00:08:02

>>606 の直後にどんどん上昇し始めて
>>607 の直後から元にもどり始めた

ということです。

**動け動けウゴウゴ２ちゃんねる** · 04/11/26 00:09:44

mod_perl化のための一歩
・exit()をApache::exit()でオーバーライド

**root▲ ★** · 04/11/26 00:10:08

ですね。500エラーの原因をつかむ必要がありそう。

**root▲ ★** · 04/11/26 00:11:33

今Apache起動しなおしました。LAが一時的に上がるです。

**root▲ ★** · 04/11/26 00:15:20

ふむ、やはり500エラーになるですね。

(>>606を>>600入りでやってみた)

**root▲ ★** · 04/11/26 00:17:02

[Thu Nov 25 07:14:22 2004] [error] [client 219.197.196.67] Premature end of script headers: bbs.cgi, referer: http://ex7.2ch.net/test/read.cgi/morningcoffee/1101308600/l50

って言うなぁ。< speedyに食わせると

**root▲ ★** · 04/11/26 00:18:37

ちょっと、簡単なスクリプトで試してみるです。

**root▲ ★** · 04/11/26 00:21:09

http://ex7.2ch.net/test/mod_speedycgi/mod_perl_test.cgi

動くみたいだなぁ。
(mod_perl_testとなってますが、speedycgiで実行してます)

**未承諾広告※** ◆TWARamEjuA · 04/11/26 00:21:17

>>617
use CGI::Carp qw(fatalsToBrowser);

を入れると、エラーの実態が表示されるので参考になるかと。
ただし、その部分のソースコードも表示されるのでｺﾞﾆｮｺﾞﾆｮ

**root▲ ★** · 04/11/26 00:24:01

>>620
うーむ、それわ、、、。

**未承諾広告※** ◆TWARamEjuA · 04/11/26 00:26:42

>>621
とりあえず、正しいhttpdレスポンスを吐き出していないかと思いますです（苦笑）＞ぷりめちゃーなんたら

**動け動けウゴウゴ２ちゃんねる** · 04/11/26 00:29:44

#!/usr/bin/speedy -r10000

use strict;

use warnings;

use sigtrap;

...

**root▲ ★** · 04/11/26 00:32:32

<IfModule mod_speedycgi.c>
<IfModule>

で囲んじゃ、だめとわかたです。
囲まなければ、1行目を変えなくてもspeedyで起動する(で、500エラー)。

**root▲ ★** · 04/11/26 00:37:08

MaxRuns 0
ではなくて、
SpeedyMaxRuns 0
だったとわかったです。

ちなみに上記でも500エラー。

あとは、500エラーの原因は何か、と。

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

んぢゃ、cp bbs.cgi ナンタラbbs.cgi で複製を作って、 use CGI::Carp qw(fatalsToBrowser); 入れちゃうとか(^-^;)

でもってそろそろ眠m(_ _)m

**root▲ ★** · 04/11/26 00:40:49

で、さらに、
<IfModule mod_speedycgi.c>
ではなくて、
<IfModule mod_speedycgi2.c>
だとわかった。

あとは、500エラーの原因さえわかれば。

**動け動けウゴウゴ２ちゃんねる** · 04/11/26 00:43:25

exit使ったらだめとか

**動け動けウゴウゴ２ちゃんねる** · 04/11/26 01:03:27

順番にやっていけばいいかと
前提：perlccによる実行形式を削除
1) １行目を変えるのみ＆MaxRunsを1にする（-- -r1）
2) MaxRunsを指定しない
3) mod_speedycgiを使ってみる

**root▲ ★** · 04/11/26 01:08:35

-- -r1 があたりのもより。

**root▲ ★** · 04/11/26 01:10:42

動いたもより。

**root▲ ★** · 04/11/26 01:12:38

今の設定

LoadModule speedycgi_module libexec/apache2/mod_speedycgi.so
<IfModule mod_speedycgi2.c>
SpeedyMaxRuns 1
</IfModule>

で、
<IfModule mod_speedycgi2.c>
<Files bbs.cgi>
SetHandler speedycgi-script
</Files>
</IfModule>

に設定。

これで、元bbs.cgiをいじることなく、bbs.cgiだけspeedycgi配下に。

**root▲ ★** · 04/11/26 01:13:01

みるみるLAがさかってゆく、、、。< ex7

**root▲ ★** · 04/11/26 01:16:05

うそみたいに軽くなった。

これで、しばらくようすをみてみよう。

**root▲ ★** · 04/11/26 01:25:18

でもこれだと、毎回起動はしてる、、、だよなぁ、たぶん。

どのくらい効果があるかは、しばらく観察ということで、

ごはんたべてきます。

从o＾ー＾从御飯喰
http://ex7.2ch.net/test/read.cgi/morningcoffee/1101210350/

**動け動けウゴウゴ２ちゃんねる** · 04/11/26 01:26:30

たとえ-r1だとしても、バイトコンパイルのキャッシュが効くとか？

**動け動けウゴウゴ２ちゃんねる** · 04/11/26 01:29:05

>>635
静かに楽しそうでなんかうれしいよ

**動け動けウゴウゴ２ちゃんねる** · 04/11/26 01:30:58

もしかして$ENV{'QUERY_STRING'}でパラメータを渡しているところが初期化ルーチンの最初だけとかじゃ無い？

環境変数を渡すタイミングが初期化時だけだとハマりどころかも。

**動け動けウゴウゴ２ちゃんねる** · 04/11/26 01:34:09

あとexit前に
%Hoge = ();
みたいな感じで消去しとかないと-r1じゃないと動かないスクリプトになるという肝。

**root▲ ★** · 04/11/26 01:57:00

>>638-639
たぶん、備後の予感。
しかしわたしわ、Perlかけないし。

**名無し募集中。。。** · 04/11/26 02:05:26

よかったよかった

**从o＾ー.＾从御飯喰** · 04/11/26 02:07:05

>>640
ｶﾞﾝｶﾞﾚｰ｡