bbs.cgi再開発プロジェクト４

**桃太郎 ★** · 04/12/02 19:52:43

peko鯖の稼動によりﾎﾞﾄﾙﾈｯｸの一つである事がより明らかになった
bbs.cgi作り直しプロジェクトです。

開発環境の工事現場
また挑戦。＠2ch掲示板http://dso.2ch.net/myanmar/

関連は>>2-

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

>>152
しばし待て
システム系サーバ工事に伴う書き込み不安定・一部サービスダウンのお知らせ[12/3]
http://qb5.2ch.net/test/read.cgi/operate/1102042361/

**FOX ★** · 04/12/04 17:11:42

" や でまだ河豚があるようなの?

**FOX ★** · 04/12/04 17:12:37

それは　いつも起るの?
それとも Cookie 食えって言われたときだけ?

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

>>155
書き込みの確認画面がでるときです。
未確認ですがスレ立て時も出てるような。

**FOX ★** · 04/12/04 17:17:50

確認画面だすとこ
なんと二箇所あるのよ@bbs.cgi

どっちかわかる?

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

Cookieないときは確実になります。

**FOX ★** · 04/12/04 17:18:53

ccc

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

たまに になってる人見かけるけど原因はわからんとです
自分も試して見たが再現できなかった

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

(1) (2) と番号入れてみた　@dso

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

問題点は

・クッキー画面を出す前に改行を変換してしまっている
・MESSAGEに対して " → " の変換を行っていない

の2つかな？

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

(1)でした　

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

>>163

" の問題?
それとも のもんだい?

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

そうではなくて、確認画面出すときにタグのエスケープや改行の変換をしていて
なおかつ書き込み時も同じ処理をしているからではないかと。

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

>>164
両方ともおかしくなります。

**FOX ★** · 04/12/04 17:41:31

まゃんまーの bbs.cgi をちょしてみた

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

cookie無しでも がでなくなった模様

**FOX ★** · 04/12/04 17:52:41

ex7 にいれてみよう、

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

うーむ何度も書き込み失敗してしまう。
あと２秒が待てない(ry

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

今度は

ＥＲＲＯＲ：もうちょっと落ち着いて書きこみしてください。1秒ぐらい。

だったorz

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

なんかへんかも知れないです？書けません・・・・　cookie無しの投稿
みゃんまーは連闘規制どれくらいですか？

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

みゃんまーでcookieなし投稿の実験しました。

書き込み＆クッキー確認画面が出た後一定の時間（＝連投規制時間以上）
待ってから書き込みボタンを押さないとエラーになります。

処理の流れを想像してみました。

　　『書き込む』ボタン押す
　　　　　↓
　　書きこみ＆クッキー確認画面（たぶんこのときcookie発行）
　　　　　↓
　　　　　↓
　　『上記全てを承諾して書き込む』ボタン押す
　　　　　↓
　　（たぶん）書き込み処理でcookieを使用した連続投稿チェック

まあ確認画面はよーく読んで下さいってことでいいのかな。

**FOX ★** · 04/12/04 18:33:06

>書き込み＆クッキー確認画面が出た後一定の時間（＝連投規制時間以上）
>待ってから書き込みボタンを押さないとエラーになります。

えらーというと
500error ?
それとも何かメッセージでるやつ?

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

>>171 の形式です。
秒数は変動してます。

**FOX ★** · 04/12/04 18:38:49

餅付け　規制をはずしてみようかな、
何がおこるんだろ。。。

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

>>173の現象が起きなくなりました。

**桃太郎 ★** · 04/12/04 18:52:44

これを気に、規制のいくつかは整理できる予感。

**FOX ★** · 04/12/04 23:47:06

&bbs_main;

exit;

#########################################################
sub bbs_main
{
use CGI::SpeedyCGI;
my $sp = CGI::SpeedyCGI->new;
my $spv = $sp->i_am_speedy ? 'yes' : 'no' ;

$ENV{'TZ'} = "JST-9";#日本
#$ENV はそのまま使う
#対応シグナル
$SIG{'PIPE'} = $SIG{'INT'} = $SIG{'HUP'} = $SIG{'QUIT'} = $SIG{'TERM'} = "SigExit";
$SIG{'ALRM'} = sub { die 'timeout' };

my $GBX = {};

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

このように
my $BGX はローカルな変数なんですが、
逆にグローバルな変数を宣言するには Perl ではどうすればいいのか教えてください。

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

use vars qw($FOO %BAR @ZOT);

**FOX ★** · 04/12/05 00:13:13

おおっ
ちとやってみるか、 @dso

**▲ 某ソレ511** · 04/12/05 00:18:18

>>181をsubbbs_mainのそと、
1行目の&bbs_main; の前あたりに書く、という感じですか。

**FOX ★** · 04/12/05 00:20:38

#!/usr/local/bin/speedy -- -b1048576
use strict 'vars';

#use vars qw($FOO %BAR @ZOT);グローバルー
use vars qw($FOX);
$FOX = {};
$FOX->{NOWTIME} = time;#現在時刻

&bbs_main;

exit;

**FOX ★** · 04/12/05 00:21:23

なんと今度は逆の悩み・・・
毎回 $FOX->{NOWTIME} の中身が変わる　@dso

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

$FOX->{NOWTIME} = time unless defined $FOX->{NOWTIME};

こうかな？

**FOX ★** · 04/12/05 00:29:31

ddd

**FOX ★** · 04/12/05 00:30:31

だめみたい、毎回入る@dso

#use vars qw($FOO %BAR @ZOT);グローバルー
use vars qw($FOX);
$FOX = {};
#$FOX->{NOWTIME} = time;#現在時刻
$FOX->{NOWTIME} = time unless defined $FOX->{NOWTIME};

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

あー、$FOXも初期化してるからか、

$FOX = {} unless defined $FOX

**FOX ★** · 04/12/05 00:37:30

挑戦

**FOX ★** · 04/12/05 00:38:55

大成功 !! @dso

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

おつおつ

**FOX ★** · 04/12/05 00:43:25

これで広告等をファイルから読み込んでいる処理は
全廃できる

結構効くと思う。

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

おおお

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

おお、なるほど。

**FOX ★** · 04/12/05 01:09:58

広告を定義しているところは
起動時一回だけ読み込みにした @dso

あとは・・・
カスタムフラッシュと、ローカルルールか?
1000.txt もあるか・・・

ちなみに最長で何分常駐するんだろか? < bbs.cgi(speedyCGI版)

**FOX ★** · 04/12/05 01:33:28

なんか　ちゃんと動かなかったようだ
ex7 は屍のようだ

**杉●本** ◆SUGIx98/Nw · 04/12/05 01:35:40

>>197
屍とか言わずに頼むよ、マジで['A`]

**€神龍** · 04/12/05 01:35:40

>>197
＞ex7 は屍のようだ

書けませんよ（涙

**動け動けウゴウゴ２ちゃんねる** · 04/12/05 01:36:10

735 名前：名無し募集中。。。　[]　投稿日：04/12/05(日) 01:27:14 　　　New!!
何だろうね
1102177518←これが出るとこまでは予想どおりなのか？

**動け動けウゴウゴ２ちゃんねる** · 04/12/05 01:36:19

>>197
おいおい・・・

**動け動けウゴウゴ２ちゃんねる** · 04/12/05 01:36:58

>>197
てめー屍ししてやろうかｺﾞﾙｧ、

さっさと直せや雑談できねーし

**動け動けウゴウゴ２ちゃんねる** · 04/12/05 01:37:25

はやく直せよ糞FOX

**動け動けウゴウゴ２ちゃんねる** · 04/12/05 01:37:34

兄貴、こいつですわ

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

>>197
メガザルよろしく

◆/.M.a.g.I. · 04/12/05 01:38:18

FOXのやることだから、しかたねー

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

おい、誰か見せしめに、きつねうどん持ってこい！！！！！！！

**動け動けウゴウゴ２ちゃんねる** · 04/12/05 01:39:28

>>204
電話番号は聞いたか？

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

>>208
さっきの番号言ったのこいつですわ

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

書き込めないぞｳﾝｺｰ

**杉●本** ◆SUGIx98/Nw · 04/12/05 01:43:52

読み込めるようになったけど書き込みは出来ないな['A`]
屍とか言わずに頼むよ、マジで['A`]

**杉●本** ◆SUGIx98/Nw · 04/12/05 01:44:53

ｷﾀ━━━━(ﾟ∀ﾟ)━━━━!!
やっと書き込めたよ。

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

競馬板は書けたぞ。
んで数字が消えた。

**FOX ★** · 04/12/05 01:47:49

#!/usr/local/bin/speedy -- -b1048576

use strict 'vars';

use vars qw($FOX);#グローバルー
&initFOX unless defined $FOX;

&bbs_main;

exit;

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

まあ、なんだ、あれだな
FOX達ありがとう

**FOX ★** · 04/12/05 01:48:37

sub initFOX
{
$FOX->{NOWTIME} = time;

my $adFname = "./・・・・・.txt";
if($ENV{'SERVER_NAME'} =~ /bbspink\.com/i){$adFname = "../・・・・.txt";}
open(ADFILE,"$adFname");
my @headad = <ADFILE>;
close(ADFILE);
$FOX->{headad} = "@headad";

#フッター（下の広告）
$FOX->{footad} = '';
$FOX->{topad} = '';

#掲示板一覧表の表示
$FOX->{links} = '<Center><a href=http://www.ff.iij4u.or.jp/~ch2/bbstable.html Target=_blank>■掲示板一覧■</a></Center>';

#２ちゃんねる特別リンク
$FOX->{specialad} = ' | <a href="http://irc.2ch.net">チャット</a>';

return 1;
}

**FOX ★** · 04/12/05 01:49:14

このようにしただけなんだけどなぁ。。。

なんで落ちたんだろ、だろ

**動け動けウゴウゴ２ちゃんねる** · 04/12/05 01:55:24

$と%?

**€神龍** · 04/12/05 01:56:30

>>217にもわからん事か・・・
オレには㍉だ・・・orz

**FOX ★** · 04/12/05 02:00:22

#&initFOX unless defined $FOX;
unless(defined $FOX)
{
$FOX = {};
&initFOX;
}

こんな感じにしなきゃだめなのか?

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

sub initFOX
{
$FOX = {};
か？

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

>>220
遅かった。

**FOX ★** · 04/12/05 02:04:05

再挑戦だー

ex7

**杉●本** ◆SUGIx98/Nw · 04/12/05 02:06:39

>>223
再挑戦は構わないが下に出てくる数字には何の意味があるかだけ教えてくれ。

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

>>223
正直見づらくなってうざいです

**FOX ★** · 04/12/05 02:08:07

どんどん　どんどん　Speedy が起動されていくみたいですなぁ

なんでなんだろか、

**動け動けウゴウゴ２ちゃんねる** · 04/12/05 02:08:25

だから use vars は our でいいと何度いったら(r

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

NOWTIMEってどの時点でのtimeなんだろう･･･よくわからん

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

-r オプションをでかい値にしてみるとか。

**FOX ★** · 04/12/05 02:10:58

>>277

#!/usr/local/bin/speedy -- -b1048576

use strict 'vars';

our $FOX ;#グローバルー
&initFOX unless defined $FOX;

&bbs_main;

exit;

これでいいのかな?

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

ランダムに数字変わるようにしてよ。

**FOX ★** · 04/12/05 02:14:51

>>231
変わらないのに挑戦しているのだ、

**FOX ★** · 04/12/05 02:15:02

もっかいいきます

**動け動けウゴウゴ２ちゃんねる** · 04/12/05 02:17:43

なんだよあの数字は
しかもランダムに代わってるっぽいし
太字だし

**動け動けウゴウゴ２ちゃんねる** · 04/12/05 02:19:10

NOWTIMEは一応投稿時間と同じになるのが理想なわけ？

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

面白すぎて腹痛いんですけど。

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

あの数字は時刻？んなわけないよな
書き込むたびに増えたり減ったりしてるし

04/12/05 02:21:45

bbs.cgiも数個のプロセスからなるから数種類の数字だけになればいい気がするけど違うのか・・・？

**FOX ★** · 04/12/05 02:21:49

うーむ

our にしてみたけど、結局はどんどん増え続けるようですなぁ
さっきより増え方がゆるくなった気もするけど、(気のせいかも)

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

Σ(ﾟдﾟ≡ﾟдﾟ)!?
遊ばれてる？

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

$FOX->{NOWTIME} = time;
これだろ。プロセスごとのIDだと思えばいい。
同じ数字が出てくるのでうまくいってる予感。

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

ある数字を引くとズワイガニが当たるって聞いたんですが本当ですか？

**(=´ω｀)玉ｰﾘﾝ** ◆M5HTMLZIZY · 04/12/05 02:23:34

　　　　　　　　　　　__　 __
　　　　　　　　　　　ヽ'::':/
　　　　　　　　　　　　}:::{　　　　　　　　　　
　　　　　　　　　　　　|:::l　　　　　　　　
　　　　　　　　　　r:ｬ l:::|　　　
　　　　　　　　　　l:（.ﾉ:::l　　　
　　　　　　　 ,.r:::'':::!:::ヽﾟ;~ 　 __,　　
　　　　　　 .〈;;;:::::::::::::::ﾞ:i,,__,〃｀　　　　　
　　　　　　/~:::y'''::::-:::〈ー‐’　
　　　　　 /::::::/:::::::::::::〈:､　
　　　　 /:::::/:::::::::::::/ ヾ!
　　　　,:'!::::/:::::::::::::〈:､　l:!　　
　　　〃ゝ〈_:::;;;:::ノ .l:l　ヽ､
　　 _〃　　　　　　 l:!　　　　　
.　 ´　　　　　　　　　ヽ､

**FOX ★** · 04/12/05 02:23:49

ちなみに
現在

#use vars qw($FOO %BAR @ZOT);
#use vars qw($FOX);#グローバルー
our $FOX;#グローバルー
#&initFOX unless defined $FOX;
unless(defined $FOX)
{
$FOX = {};
&initFOX;
}
&bbs_main;

exit;

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

読んだ？

**動け動けウゴウゴ２ちゃんねる** · 04/12/05 02:38:08

＞全てのperlプロセスが忙しいときに他のリクエストが来たならば、別のperlプロセスが開始されます。
とあるからどんどん起動されてるんでは？-Mで制限できるみたいだけど

**FOX ★** · 04/12/05 02:39:59

「すくなくとも今よりも忙しくならないようにしたい」というのが目的ですからねぇ

**FOX ★** · 04/12/05 02:45:31

これだけで挑戦してみよう。ex7

our $FOX;#グローバルー
unless(defined $FOX)
{
$FOX = {};
}

&bbs_main;

exit;

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

>>229
-r0とすると再起動しなくなるらしいですね

04/12/05 02:51:13

1102182422 1102182437 1102182455 1102182427 1102182454
1102182498 1102182499
いくつも数字でますね・・・

そして年末ジャンボﾜﾛﾀ

**動け動けウゴウゴ２ちゃんねる** · 04/12/05 02:51:44

年末ジャンボ(・∀・)ｲｲ!

**動け動けウゴウゴ２ちゃんねる** · 04/12/05 02:52:48

くそ笑わしてもらいました。
FOXってなかなかいい人だったんですねｗｗｗｗｗｗｗｗｗｗ