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

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

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

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

関連は>>2-

**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>■<b>掲示板一覧</b>■</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ってなかなかいい人だったんですねｗｗｗｗｗｗｗｗｗｗ

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

FOXさんなにやってんの…w

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

ネタに構ってる前に作業進めろよｗ

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

dsoのちゃっかりカウンターと「どのような形の削除依頼であれ公開させていただきます」が
増殖してるー

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

全くだ！！
年末ジャンボ　25304

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

つまんねーネタ乙

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

今回は長いな

04/12/05 02:57:58

http://ex7.2ch.net/test/read.cgi/news4vip/1102182636/90
誰かが番号まとめてくれた

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

何が年末ジャンボだ、真面目にやれ

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

>>259
どんどん増えてるだろ

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

糞スレ～～～ッ！！はっｏ(⌒▽⌒)ｏけん～♪ハジメマシテ～～～ッ☆☆（*⌒ヮ⌒*）
なんで>>1は厨房って言われてるかわかんないのぉ～～～っ？（#⌒〇⌒#）キャハ
うーんとー、私ぃすっごくすっごく暇でー、＼(⌒∇⌒)／
探してたら(◎_◎)なんとっ！☆彡(ノ^^)ノ☆彡ヘ(^^ヘ)☆彡(ノ^^)ノ☆彡
馬鹿みたいなスレ♪を発見！！！！(^o^)//""" パチパチパチ
さ・む・い～{{ (>_<;) }} ブルブル何個かレスがありますけど、
これ全部１人の方がレスしているんですか？（＠＠；）すごすぎ …
てなわけで、ついつい書いちゃったのらー(o^v^o) エヘヘφ(｀∇´)φカキコカキコ♪
削除依頼、出してくれるよねっ。(*^-^*)　お・ね・が・い♪(*￣・￣)ちゅ♪ッ
え？くれないのぉ～？(;￢_￢)そんなのいやいや～～、ｶﾞ━━━(ﾟﾛﾟ)━━━ﾝ
出してくれなかったら、( ｀_)乂(_´ ) 勝負！＼(^o^)／
☆○（゜ο゜)ｏぱ～んち、☆（゜o(○=（゜ο゜)ｏバコ～ン!!( ﾟ▽ﾟ)=◯)`νﾟ)･;'パーンチ
（＞＿＜）いてっ！ダメ!! ゛o(≧◇≦*)oo(*≧◇≦)o″ダメ!!
(☆o☆)きゃ～～(@_@;)やられた～～(o_ _)o ドテッ　ガ━━（ﾟДﾟ;）━━ン！
(+_+) 気絶中。。。｡･ﾟﾟ･o(ｉДｉ)o･ﾟﾟ･｡うぇぇん <(゜ロ゜;)>ノォオオオオオ!!　(ﾟ□ﾟ；ハウッ！
ということで。(^-^)v>>1は氏ね。じゃあね～～～♪(⌒0⌒)／~~ ほんじゃo(゜▽゜ヽ)(/゜▽゜)o レッツゴー♪
あ、怒ってる？　に・げ・ろ～Ｃ= Ｃ= Ｃ= Ｃ=┌（^ .^）┘
（*＾-＾*）ﾉ~~ﾏﾀﾈｰ☆'.･*.･:★'.･*.･:☆'.･*.･:★

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

年末ジャンボﾜﾛﾀ

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

で、何がしたいの？

04/12/05 03:03:10

問題になるとしたら
A）1プロセスだったらある人がbbs.cgiを利用している間は他の人は利用できない
B）設定を変更したらどう適用するか

ですかね？

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

うぜえから元に戻せよ糞狐野郎

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

わるいが、そろそろ「年末ジャンボ」は消してくれないか？

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

そろそろ止めてね

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

せめてIDの横に出して欲しい
見づらすぎる

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

FOX ★　さま
ラウンジから来ました。
本文近辺は読みにくいので、やめてください。
やめてください。

**WaterLineVVVF ★** · 04/12/05 03:07:50

文句はこっちで極秘に受け付けているそうです
メールが

★☆★【娘。】モー狼板運用情報【狼】3☆★☆
http://qb5.2ch.net/test/read.cgi/operate/1101910569/

**WaterLineVVVF ★** · 04/12/05 03:08:18

こっちも

★☆★【狼ラウンジVIP野球競馬】ex7(tiger503)運用情報☆★☆
http://qb5.2ch.net/test/read.cgi/operate/1101909143/

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

ＦＯＸいい加減に汁！

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

こういうときに文句ぐだぐだ言うところはキライだな、VIP