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

レス数が1000を超えています。これ以上書き込みはできません。
00012chtubo愛用者〜ヘ(゚д゚ヘ))))))〜61 ◆yBEncckFOU 04/02/13 19:08ID:o3jHs/Mb
peko鯖の稼動によりボトルネックの一つである事がより明らかになった
bbs.cgi作り直しプロジェクトです。

関連スレ
【Project peko】2ch特化型サーバ構築作戦 Part6
http://qb3.2ch.net/test/read.cgi/operate/1076413123/
◆ 全サーバトリップ統一作戦
http://qb3.2ch.net/test/read.cgi/operate/1067245837/
bby -- スレッド情報一元管理システム構築スレ
http://qb3.2ch.net/test/read.cgi/operate/1073058944/
BBQ システム(公開串リストメンテ)
http://qb3.2ch.net/test/read.cgi/operate/1073061576/
【連投規制】Samba24 情報要望スレ その3
http://qb3.2ch.net/test/read.cgi/operate/1075568934/
【広告】Rock54【自動排除】 3
http://qb3.2ch.net/test/read.cgi/operate/1074735308/
■ 新しいサーバで read.cgi が正しく動かない問題。 (dat落ち)
http://qb.2ch.net/test/read.cgi/operate/1047840578/


前スレ
bbs.cgi 再開発プロジェクト
http://qb3.2ch.net/test/read.cgi/operate/1053067870/
bbs.cgi再開発プロジェクト2
http://qb3.2ch.net/test/read.cgi/operate/1069144193/

0951動け動けウゴウゴ2ちゃんねる04/12/02 17:33:45ID:WZTWIT/v
sub init_onceを書いて、初期化ルーチンを押し込めましょう。

そして初期化ずみフラグを見てrace condition回避も忘れずに。

0952動け動けウゴウゴ2ちゃんねる04/12/02 17:37:28ID:YeLg7Dw8
>>949
my %FORM; を消し忘れた……。

>>950
よくは分からないですけど
外側のmy変数はコンパイル時に実体が作られるんでしょうか。

SpeedyCGIインストール完了

なんとなく離してみた
なぜか動いた
なぜだ〜〜〜

my $NOWTIME;#現在時刻
&bbs_main;

exit;

#########################################################
sub bbs_main
{
my $version = "BBS.CGI - 2005 (for SpeedyCGI)";
$NOWTIME = time;#現在時刻

0954FOX ★04/12/02 17:53:42ID:???
>>952
なんでしょうねぇ
my しても、実際に使い方が悪かったらどっかに(CS?) 実態が
作られちゃうんでしょうねぇ

0955動け動けウゴウゴ2ちゃんねる04/12/02 17:56:29ID:WC2kwP6B
んもう、書き直すならオブジェクト指向で書き直せばいいのに。
オブジェクト指向ならmod_perlの道が見えるのに。

0956FOX ★04/12/02 17:58:44ID:???
>>955
それは大変すぎるですよ、私にとっては
次の世代の方々への贈り物ということで、

SpeedyCGI でかなり改善することが知りたいというのが目的なもんで
「かなり改善」が望めないならお蔵入りという話し。

0957FOX ★04/12/02 18:00:25ID:???
http://dso.2ch.net/test/bbs998.txt

現在の bbs.cgi

こまっているところ【3】
&foxReadForm($GB);#$FORM を読み込む
安易に代入しただけじゃ駄目なの?

$GB->{FORM} = %FORM;  ← この部分


0958動け動けウゴウゴ2ちゃんねる04/12/02 18:11:54ID:YeLg7Dw8
>>957
foxReadFormの頭で

my $FORM = $GB->{FORM};

として、代入の方は

$FORM->{$name} = "$value";

とするのがよいかと。

0959FOX ★04/12/02 18:12:56ID:???
やってみるです

0960FOX ★04/12/02 18:16:02ID:???
sub foxReadForm
{
my ($GB) = @_;

my $query_string = undef;
my (@m_elements, $m_element, $name, $value);
my %FORM = $GB->{FORM};

で駄目だった。 (my $FORM だと 500 error だった)

0961動け動けウゴウゴ2ちゃんねる04/12/02 18:17:51ID:YeLg7Dw8
うひょ。

sub foxReadForm
{
my ($GB) = @_;

my $query_string = undef;
my (@m_elements, $m_element, $name, $value);
my $FORM = $GB->{FORM};

#環境変数からPOSTのでーたをもらう〜
if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN, $query_string, $ENV{'CONTENT_LENGTH'});
@m_elements = split(/&/, $query_string);
foreach $m_element (@m_elements) {
($name, $value) = split(/=/, $m_element);
$value =~ s/\0//g;
$value =~ tr/+/ /;
$value =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C", hex($1))/eg;
$value =~ s/</</g;
$value =~ s/>/>/g;
$value =~ s/\r\n|\r|\n/<br>/g;
$value =~ s/<br>/ <br> /g;
$value =~ s/[\0\x00-\x1f]//g;

$FORM->{$name} = "$value";
}
}


#1行データからは改行を削ってタグを閉じます
$FORM->{'subject'} =~ s/\#//g;
$FORM->{'subject'} =~ s/ <br> //g;
$FORM->{'subject'} =~ s/&//g;

$FORM->{'FROM'} =~ s/"/"/g;
$FORM->{'FROM'} =~ s/ <br> //g;
$FORM->{'mail'} =~ s/"/"/g;
$FORM->{'mail'} =~ s/ <br> //g;

$FORM->{'bbs'} =~ s/\|//g;
$FORM->{'bbs'} =~ s/\\//g;
$FORM->{'key'} =~ s/\|//g;
$FORM->{'bbs'} =~ s/\.//g;
$FORM->{'key'} =~ s/\.//g;
$FORM->{'bbs'} =~ s/&//g;
$FORM->{'key'} =~ s/&//g;
$FORM->{'time'} =~ s/\D//g;
$FORM->{'bbs'} =~ s#/##g;
$FORM->{'key'} =~ s#/##g;


$FORM->{'subject'} =~ s/&r//g;
$FORM->{'FROM'} =~ s/&r//g;
$FORM->{'mail'} =~ s/&r//g;
}

0962FOX ★04/12/02 18:18:47ID:???
勘違いしているかな?

もう一回挑戦

0963FOX ★04/12/02 18:19:32ID:???
>>961
どもども
コピペさせてもらいます、

0964FOX ★04/12/02 18:21:55ID:???
わーい
うまくいった。

次へ行こう。

0965▲:/usr/local/bin/ch2 -o i686 ◆P8fXJj6wwo 04/12/02 18:22:08ID:WBZMaSLu
>>955
さすがにつらすぎるでしょう。

でも最終手段としての書き直しは軽く心に留め置いておいたほうがいいかもしれないと振ってみる

0966FOX ★04/12/02 18:31:09ID:???
sub bbs_main
{
use CGI::SpeedyCGI;
my $sp = CGI::SpeedyCGI->new;
my $spv = $sp->i_am_speedy ? 'yes' : 'no' ;

$ENV{'TZ'} = "JST-9";#日本
#$ENV はそのまま使う
my $GBX = {};
$GBX->{version} = "BBS.CGI - 2005 (SpeedyCGI = $spv)";
$GBX->{NOWTIME} = time;#現在時刻
$GBX->{PID} = $$;#pid
$GBX->{FORM} = {};#
&foxReadForm($GBX);#$FORM を読み込む

require "./bbs-main.cgi";

&DispError2($GBX,"FOX ★","<font color=green>FOX ★ ふふふっ</font><br><br>これが表\示されるということは・・・<br>本体requireしたのにそっちへ行かないと、、、");
print "Content-type: text/html; charset=shift_jis\n\nWOWOWOWOWOW-----\n";
return;
}

0967FOX ★04/12/02 18:32:14ID:???
require "./bbs-main.cgi";
で本体に処理を移そうとしたら・・・

最初の起動時は本体へ行った
しかーし、二回目以降はだめだった、、、

どうする?

0968動け動けウゴウゴ2ちゃんねる04/12/02 18:44:47ID:WZTWIT/v
>967
>951

0969動け動けウゴウゴ2ちゃんねる04/12/02 18:46:08ID:YeLg7Dw8
bbs-main.cgiの処理を関数に括りだしておいて
その関数を陽に呼び出せばいいような。

0970FOX ★04/12/02 18:49:18ID:???
>>968
わたし・・・
理解不能なんです

>>969
そんなふうにしてみた

sub bbs_honati
{
my ($GB) = @_;

&DispError2($GBX,"FOX ★","<font color=green>FOX ★</font> いよいよ本体");
}

1;

んで &bbs_honati ; で呼び出してみた。

0971風俗王04/12/02 18:55:14ID:lxr8SelU
今栃木県の宇都宮でトップのでりは???

0972 [―{}@{}@{}-] j101097.ppp.asahi-net.or.jp04/12/02 19:02:21ID:yl4eb3hK
ホストが違う・・・

ERROR:ユーザー設定が消失しています!

ホストU178***.ppp.dion.ne.jp

名前:
E-mail:
内容:



こちらでリロードしてください。 GO!
分からないことがあったら2ちゃんねるガイドへ。。。

アクセス規制・プロキシー制限等規制は、2ちゃんねるビューアを使うと回避できることがあります。

0973U178142.ppp.dion.ne.jp04/12/02 19:04:06ID:YeLg7Dw8
あ、オレオレ。

0974 [―{}@{}@{}-] j101097.ppp.asahi-net.or.jp04/12/02 19:06:38ID:yl4eb3hK
どうも前にエラーを出した人のを出してるような・・・
まあゴニョゴニョしてる途中だからかな

0975桃太郎 ★04/12/02 19:12:04ID:???
僕ちんは
ERROR:サブジェクトが存在しません!だた。

0976動け動けウゴウゴ2ちゃんねる04/12/02 19:14:45ID:XEy4KVeD
普通に書き込み画面からPOSTしてやる
結果:>>975

http://dso.2ch.net/test/bbs.cgiを直接開く
結果:>>972

0977動け動けウゴウゴ2ちゃんねる04/12/02 19:15:50ID:XEy4KVeD
hostでなくなった(−−;

0978FOX ★04/12/02 19:15:53ID:???
いろいろやっているだす

sub bbs_hontai
{
my ($GB) = @_;
my $FORM = $GB->{FORM};
my $NOWTIME = $GB->{NOWTIME};

&DispError2($GB,"FOX ★","<font color=green>FOX ★</font> いよいよ本体($GB->{FORM}->{bbs} , $FORM{'bbs'})");

$FORM{なんたら} ってのが沢山あるんで
my $FORM = $GB->{FORM};
と関数に入ったところで宣言してそのまま使おうと思ったんだが・・・
うまくいかんのだ

どすればいいのだろう

0979動け動けウゴウゴ2ちゃんねる04/12/02 19:29:49ID:X6CTMNgw
my %FORM = $GB->{FORM};
とか?

といい加減に答えてみる

0980動け動けウゴウゴ2ちゃんねる04/12/02 19:30:03ID:YeLg7Dw8
$GB->{FORM} は「ハッシュ」じゃなくて「ハッシュへの参照」なので
$FORM{なんたら} を $FORM->{なんたら} に変えないとダメっす。

0981FOX ★04/12/02 19:31:37ID:???
>>979
やったけどだめだったっす、、

>>980
やっぱそうなんすか・・・
死ぬほどあるんだよなぁ
一気に置き換えるのは恐いしなぁ

0982動け動けウゴウゴ2ちゃんねる04/12/02 19:36:35ID:X6CTMNgw
>>981 50%乙

FOX★氏はiijか・・・

ERROR:ユーザー設定が消失しています!

ホストh***.p***.iij4u.or.jp

名前: FOX ★
E-mail:
内容:
ffffcce
ffffcsvxxxxx
fffff
gggg
hhhh

0983FOX ★04/12/02 19:37:21ID:???
ぐおっ
こわっ

0984動け動けウゴウゴ2ちゃんねる04/12/02 19:39:23ID:WC2kwP6B
my %FORM = %{$GB->{FORM}}; # として
# ここで$FORM{hoge}に対してごにょぎょんして
%{$GB->{FORM}} = %FORM; # として返すとか?

0985動け動けウゴウゴ2ちゃんねる04/12/02 19:39:26ID:YeLg7Dw8
難産ですねー……。

0986FOX ★04/12/02 19:40:12ID:???
あなたはリロードスレッドが大好きです
http://dso.2ch.net/test/read.cgi/myanmar/1101913871/

かけたぞっ

0987FOX ★04/12/02 19:40:50ID:???
>>984
一気に置換しちまったです

0988動け動けウゴウゴ2ちゃんねる04/12/02 19:42:22ID:X6CTMNgw
かけた〜〜
乙乙

0989FOX ★04/12/02 19:44:58ID:???
しかーし

結局 ホスト情報やらhtml名やらは元々グローバルだったから
ちゃんと $GB に入れてやら無いとまずいという話しかな、

結構大変そうだ、

まずは HOST 関係だけやってみよう。

0990動け動けウゴウゴ2ちゃんねる04/12/02 19:45:39ID:aKb2TILl
次スレ!次スレ!

0991桃太郎 ★04/12/02 19:49:18ID:???
>990
じゃああたすが代表して立てましょ

0992桃太郎 ★04/12/02 19:54:01ID:???

0993動け動けウゴウゴ2ちゃんねる04/12/02 19:55:03ID:X6CTMNgw
>>992
モツカレー

0994動け動けウゴウゴ2ちゃんねる04/12/02 19:59:41ID:NQYkKTg/
おお、なんか面白い状況

0995FOX ★04/12/02 20:00:41ID:???
たたけ たたけ たたけ〜♪

0996ヾ(゚パ)ノ ◆f0.zuburi6 04/12/02 20:02:37ID:bBxy901j
おいらにゃー 狐のー 血がー さわーぐー

0997動け動けウゴウゴ2ちゃんねる04/12/02 20:03:16ID:X6CTMNgw
・●はまだかな
・本文梨でも書き込める
・IDが???
がんばれ〜〜

0998動け動けウゴウゴ2ちゃんねる04/12/02 20:03:57ID:NQYkKTg/
るーるるーるるるる

0999ヾ(゚パ)ノ ◆f0.zuburi6 04/12/02 20:04:34ID:bBxy901j
1000(^_^;)

1000動け動けウゴウゴ2ちゃんねる04/12/02 20:05:16ID:X6CTMNgw
ワロタ




どのような形の削除依頼であれ公開させていただきます


2ちゃんねる(+Samba)       
アニメ | CM | ゲーム | 映画 | 音楽 | テレビ | 日記(+Samba)
       アニメ | CM | ゲーム | 映画 | 音楽 | テレビ |

10011001Over 1000Thread
このスレッドは1000を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。

レス数が1000を超えています。これ以上書き込みはできません。