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

929 ：FOX ★：04/12/02 14:59:24 ID:???

これから質問しまくるんで
優しく教えてください。

つまり Perl を知らないぼんくらなんです

930 ：FOX ★：04/12/02 15:02:26 ID:???

sub bbs_main
{
our$version = "BBS.CGI - 2005 (for SpeedyCGI)";

&DispError2("FOX ★","FOX ★　ふふふっ");
return;
}

とやって　$version を DispEooro2　というサブルーチンで参照したいのですが
どうすれば参照できるんですか?

$version は SpeedyCGI に対応した、いわゆるグローバルな変数ではなく
ローカルな変数です。

ちなみにこうやって失敗しています(500 error)

print <<EOF;
version = $version
EOF

931 ：root▲ ★：04/12/02 15:24:44 ID:???

■ bbs.cgi(SpeedyCGI)の巻 part1 (2004/12/01-)
http://dso.2ch.net/test/read.cgi/myanmar/1101890385/48

500エラーになって、書けないっす。
たぶん Premature なんちゃら、って言って、えらーログに残っているはず。

932 ：▲:/usr/local/bin/ch2 -o i686 ◆P8fXJj6wwo ：04/12/02 15:25:56 ID:WBZMaSLu

>>930
この例だと
-------------------
#! /usr/local/bin/speedy --r1

our $version = "BBS.CGI - 2005 (for SpeedyCGI)";

sub bbs_main
{

&DispError2("FOX ★","FOX ★　ふふふっ",$version, $errnum);
return;
}
-----------
Dispの第２引数にversionを渡すようにしています。
errnumはエラー番号(たとえばapacheのエラーコードとか)

933 ：root▲ ★：04/12/02 15:27:12 ID:???

FOX ★
FOX ★　ふふふっ

ホストHOST
FORM{'subject'}
名前： FORM{'FROM'}
E-mail： FORM{'mail'}
内容：
FORM{'MESSAGE'}

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

アクセス規制・プロキシー制限等規制は、２ちゃんねるビューアを使うと回避できることがあります。BBS.CGI - 2005 (for SpeedyCGI)

が出る時と、出ないで500 Internal Server Errorになる時がありますね。

934 ：▲:/usr/local/bin/ch2 -o i686 ◆P8fXJj6wwo ：04/12/02 15:30:00 ID:WBZMaSLu

>>930
あ、まちがい、ローカル変数だったですね。スマソorz

# 実は私もperlはあまり詳しくない・・・むしろPHPのほうが強い

printはdisperror内でですかね。

935 ：動け動けウゴウゴ２ちゃんねる：04/12/02 15:31:46 ID:nD7Hw/zx

現時点での全ソース晒せ～

936 ：FOX ★：04/12/02 15:53:29 ID:???

いやー

まったく

たいへんたいへん

937 ：動け動けウゴウゴ２ちゃんねる：04/12/02 15:53:47 ID:NQYkKTg/

なんかゴソゴソやっとるな

938 ：FOX ★：04/12/02 15:58:54 ID:???

http://dso.2ch.net/test/bbs.txt

現時点での全ソース

今つまずいているところ【２】
$NOWTIME がローカルな変数になっていない
起動されるたびに変わらない

私の言っているローカルと一般的に言うローカルの意味が違うのかも、
別に私が言っているわけじゃないけどサ

939 ：FOX ★：04/12/02 16:10:39 ID:???

でも、たまに変わるなぁ
ちょっと時間を置くと換わるのか?

http://dso.2ch.net/myanmar/

ここでやってます

940 ：root▲ ★：04/12/02 16:13:12 ID:???

>>939
1分以上バックエンドにリクエストがないと、バックエンドをexitするようにしてあるので、
その時には元に戻ります。

やめる場合、bbs.cgiの1行目の-t60をやめればよいです。

941 ：FOX ★：04/12/02 16:14:49 ID:???

なるほど、

-t60 なしでデバッグしたほうがいいっすね、

942 ：FOX ★：04/12/02 16:15:43 ID:???

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

にした

943 ： [―{}@{}@{}-] 動け動けウゴウゴ２ちゃんねる：04/12/02 16:31:19 ID:yl4eb3hK

ぜんぜんわからんな・・・orz

http://www.google.co.jp/search?q=cache:Fh2W0Hmt6b8J:qtea.bne.jp/2004/+PersistentPerl+OR+SpeedyPerl+OR+SpeedyCGI+%E3%82%B0%E3%83%AD%E3%83%BC%E3%83%90%E3%83%AB%E5%A4%89%E6%95%B0&hl=ja&lr=lang_ja
あたりに原因があるようだ。CGIモジュールは、でかいからねえ。なので、SpeedyCGIを使うように変更してみたが、どうやら、グローバル変数の初期化をしてないようなので、reset 'a-z';を先頭行に追加してみた。これで、なんとなく、まともに動作しているようだ。

944 ： [―{}@{}@{}-] 動け動けウゴウゴ２ちゃんねる：04/12/02 16:45:23 ID:yl4eb3hK

> グローバル変数の初期化をしてないようなので

my $NOWTIME = time;

　　　↓

my $NOWTIME;
$NOWTIME = time;

945 ：FOX ★：04/12/02 16:53:42 ID:???

>>944
それやってみたけど、だめだったぞな

946 ：FOX ★：04/12/02 17:01:01 ID:???

PID=$$ も書くようにした

当然のことながら、いつも同じPID、、、
さてさて～、どうすればいいやら

947 ：root▲ ★：04/12/02 17:04:34 ID:???

なるほど、、、。

常識的に(というか半ば無意識に)使っていたものが、使えなくなるですね。
代替手段は大体あるに違いないけど、こむずかしそうだ。

948 ：FOX ★：04/12/02 17:08:27 ID:???

Time::time なんてのもあるんですか? < Perl

949 ：動け動けウゴウゴ２ちゃんねる：04/12/02 17:20:37 ID:YeLg7Dw8

こういうノリではいかがでしょうか。

&bbs_main;
exit;

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

&DispError2($GB, "FOX ★","FOX ★　ふふふっ");
return;
}

sub DispError2
{
my ($GB, $title, $topic) = @_;

print "Content-type: text/html; charset=shift_jis\n\n";
#-----------------------------------------------------------------------
print <<EOF;
<html>
<head>
<title>$GB->{title}</title>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
</head>
<body bgcolor="#FFFFFF">
$GB->{topic}
<ul>
 ホストHOST GB->{FORM}->{'subject'} 
名前： $GB->{FORM}->{'FROM'} E-mail： $GB->{FORM}->{'mail'} 
内容： $GB->{FORM}->{'MESSAGE'} 
</ul>
<center>こちらでリロードしてください。<a href="../$GB->{FORM}->{'bbs'}/index.html"> GO! </a> 
分からないことがあったら<a href="http://info.2ch.net/guide/">２ちゃんねるガイド</a>へ。。。 
アクセス規制・プロキシー制限等規制は、<a href="http://2ch.tora3.net/">２ちゃんねるビューア</a>
を使うと回避できることがあります。
</center>

time=$GB->{NOWTIME} 
$GB->{version}
</body>
</html>
EOF
#-----------------------------------------------------------------------
exit;
}

950 ：FOX ★：04/12/02 17:30:39 ID:???

>>949
おおっ　そういうほうが好き好き

$GB は構造体(クラス)と思えばいいのかな?
要素(メンバー)を追加するのは、たんに $GB->なんとか
とやれば追加されるのかな?

んで my で宣言されていても使い方がグローバルなら
結局はグローバルな変数になっちゃうということなのかしら?

951 ：動け動けウゴウゴ２ちゃんねる：04/12/02 17:33:45 ID:WZTWIT/v

sub init_onceを書いて、初期化ルーチンを押し込めましょう。

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

952 ：動け動けウゴウゴ２ちゃんねる：04/12/02 17:37:28 ID:YeLg7Dw8

>>949
my %FORM; を消し忘れた……。

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

953 ： [―{}@{}@{}-] 動け動けウゴウゴ２ちゃんねる：04/12/02 17:37:57 ID:yl4eb3hK

SpeedyCGIインストール完了

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

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

exit;

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

954 ：FOX ★：04/12/02 17:53:42 ID:???

>>952
なんでしょうねぇ
my しても、実際に使い方が悪かったらどっかに(CS?) 実態が
作られちゃうんでしょうねぇ

955 ：動け動けウゴウゴ２ちゃんねる：04/12/02 17:56:29 ID:WC2kwP6B

んもう、書き直すならオブジェクト指向で書き直せばいいのに。
オブジェクト指向ならmod_perlの道が見えるのに。

956 ：FOX ★：04/12/02 17:58:44 ID:???

>>955
それは大変すぎるですよ、私にとっては
次の世代の方々への贈り物ということで、

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

957 ：FOX ★：04/12/02 18:00:25 ID:???

http://dso.2ch.net/test/bbs998.txt

現在の bbs.cgi

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

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

958 ：動け動けウゴウゴ２ちゃんねる：04/12/02 18:11:54 ID:YeLg7Dw8

>>957
foxReadFormの頭で

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

として、代入の方は

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

とするのがよいかと。

959 ：FOX ★：04/12/02 18:12:56 ID:???

やってみるです

960 ：FOX ★：04/12/02 18:16:02 ID:???

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

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

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

961 ：動け動けウゴウゴ２ちゃんねる：04/12/02 18:17:51 ID:YeLg7Dw8

うひょ。

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

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

#環境変数からＰＯＳＴのでーたをもらう～
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/ /g;
$value =~ s/ / /g;
$value =~ s/[\0\x00-\x1f]//g;

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

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

$FORM->{'FROM'} =~ s/"/"/g;
$FORM->{'FROM'} =~ s/ //g;
$FORM->{'mail'} =~ s/"/"/g;
$FORM->{'mail'} =~ s/ //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;
}

962 ：FOX ★：04/12/02 18:18:47 ID:???

勘違いしているかな?

もう一回挑戦

963 ：FOX ★：04/12/02 18:19:32 ID:???

>>961
どもども
コピペさせてもらいます、

964 ：FOX ★：04/12/02 18:21:55 ID:???

わーい
うまくいった。

次へ行こう。

965 ：▲:/usr/local/bin/ch2 -o i686 ◆P8fXJj6wwo ：04/12/02 18:22:08 ID:WBZMaSLu

>>955
さすがにつらすぎるでしょう。

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

966 ：FOX ★：04/12/02 18:31:09 ID:???

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 ★","FOX ★　ふふふっ これが表\示されるということは・・・ 本体requireしたのにそっちへ行かないと、、、");
print "Content-type: text/html; charset=shift_jis\n\nWOWOWOWOWOW-----\n";
return;
}

967 ：FOX ★：04/12/02 18:32:14 ID:???

require "./bbs-main.cgi";
で本体に処理を移そうとしたら・・・

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

どうする?

968 ：動け動けウゴウゴ２ちゃんねる：04/12/02 18:44:47 ID:WZTWIT/v

>967
>951

969 ：動け動けウゴウゴ２ちゃんねる：04/12/02 18:46:08 ID:YeLg7Dw8

bbs-main.cgiの処理を関数に括りだしておいて
その関数を陽に呼び出せばいいような。

970 ：FOX ★：04/12/02 18:49:18 ID:???

>>968
わたし・・・
理解不能なんです

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

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

&DispError2($GBX,"FOX ★","FOX ★　いよいよ本体");
}

1;

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

971 ：風俗王：04/12/02 18:55:14 ID:lxr8SelU

今栃木県の宇都宮でトップのでりは？？？

972 ： [―{}@{}@{}-] j101097.ppp.asahi-net.or.jp：04/12/02 19:02:21 ID:yl4eb3hK

ホストが違う・・・

ＥＲＲＯＲ：ユーザー設定が消失しています！

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

名前：
E-mail：
内容：

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

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

973 ：U178142.ppp.dion.ne.jp：04/12/02 19:04:06 ID:YeLg7Dw8

あ、オレオレ。

974 ： [―{}@{}@{}-] j101097.ppp.asahi-net.or.jp：04/12/02 19:06:38 ID:yl4eb3hK

どうも前にエラーを出した人のを出してるような・・・
まあｺﾞﾆｮｺﾞﾆｮしてる途中だからかな

975 ：桃太郎 ★：04/12/02 19:12:04 ID:???

僕ちんは
ＥＲＲＯＲ：サブジェクトが存在しません！だた。

976 ：動け動けウゴウゴ２ちゃんねる：04/12/02 19:14:45 ID:XEy4KVeD

普通に書き込み画面からPOSTしてやる
結果：>>975

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

977 ：動け動けウゴウゴ２ちゃんねる：04/12/02 19:15:50 ID:XEy4KVeD

hostでなくなった（－－；

978 ：FOX ★：04/12/02 19:15:53 ID:???

いろいろやっているだす

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

&DispError2($GB,"FOX ★","FOX ★　いよいよ本体($GB->{FORM}->{bbs} , $FORM{'bbs'})");

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

どすればいいのだろう

979 ：動け動けウゴウゴ２ちゃんねる：04/12/02 19:29:49 ID:X6CTMNgw

my %FORM = $GB->{FORM};
とか？

といい加減に答えてみる

980 ：動け動けウゴウゴ２ちゃんねる：04/12/02 19:30:03 ID:YeLg7Dw8

$GB->{FORM} は「ハッシュ」じゃなくて「ハッシュへの参照」なので
$FORM{なんたら} を $FORM->{なんたら} に変えないとダメっす。

981 ：FOX ★：04/12/02 19:31:37 ID:???

>>979
やったけどだめだったっす、、

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

982 ：動け動けウゴウゴ２ちゃんねる：04/12/02 19:36:35 ID:X6CTMNgw