ＣＧＩだけど、なんか質問ある？Part 5

**名無しさん＠お腹いっぱい。** · 01/12/26 10:51

■過去ログ
　Part 3 http://pc.2ch.net/test/read.cgi/php/988727833/l50
　Part 4 http://pc.2ch.net/test/read.cgi/php/1000804655/l50

その他参考になるスレッドを >>2 に纏めたので、十分に調べた上で質問して下さい。

**名無しさん＠お腹いっぱい。** · 01/12/28 01:30

>>57
何が言いたいのか分からない。
環境変数ってどの環境変数??
URIとして解釈されないとパラメータの意味が無くなると思うんだが････

54 · 01/12/28 01:50

今いろいろ見てきました。
hoge.cgi/**
の、**の部分が環境変数PATH_INFOに入るということは実験できたのですが、
それでもcgiの実行結果が返ってくるということはhttpdはそのディレクトリは探してないのでしょうか？？

>>61
ちょっと自分でもこんがらがって、うまく伝えられない状況(;´Д`)
ｸﾞｸﾞｰﾙへ逝って来ます・・・。

**名無しさん＠お腹いっぱい。** · 01/12/28 02:09

ああ、そう言う事か
httpdがリクエスト貰ったらDocumentRootからディレクトリを辿って行くのな。
んでディレクトリじゃ無くてファイルか見つかった時点で
httpd_conf何かの設定を見て、そのファイルがexecCGIされてたら
/ 以降をhttpdがEnvのPATH_TRANSLATED何かにセットしてファイルをオープンする訳
まあ大体どんなサーバでもこんな感じでファイルを探してる
これでOK?

**名無しさん＠お腹いっぱい。** · 01/12/28 02:11

だからこれは通らない訳だな
http://pc.2ch.net/php/index.html/foo

５４ · 01/12/28 02:41

＞httpdがリクエスト貰ったらDocumentRootからディレクトリを辿って行くのな。

なるほど、これで謎が解けました。
つまり、優先順位（？）はディレクトリよりファイルが先だからhoge.cgiが見つかって
それが実行出来る物であったら、それ以下、?より前の部分がPATH_INFOに入れられるワケですね。

口下手ですいませんでした、ありがとうございました。

**あげてみる** · 01/12/28 09:35

>>64
通らないってどゆこと？
普通に見えちゃったんだけど・・・。

けど、webprog板だけ、何故かバナーと背景が見えないなあ。
他の板は普通に見えるのに。
謎だ。なんか基本的なことを見落としているのだろうか・・・。

**名無しさん＠お腹いっぱい。** · 01/12/28 09:50

> つまり、優先順位（？）はディレクトリよりファイルが先だからhoge.cgiが見つかって
優先順位も何も、同じ名前でファイルとディレクトリは作れない。

**名無しさん＠お腹いっぱい。** · 01/12/28 10:28

i-mode用サイトでPCのアクセス不可にしてるとこがあるけど、
CGIでやる場合はHTTP_HOSTで振り分けるの？

**名無しさん＠お腹いっぱい。** · 01/12/28 11:36

いや、REMOTE_HOSTじゃないかに

01/12/28 11:38

REMOTE_HOSTかHTTP_USER_AGENTだね

**初心者ですみません** · 01/12/29 07:33

書くところ間違えた（鬱）

掲示板のレス部分にタイトル変更機能が付いてない物を改造しているのですが、
親記事のタイトルが$subj、レスが$rsubjに格納しているとして
if ($subj) { $rsubj = "Re\: $subj"; }
print "\t<b><font color=\"#ff00ff\">$rsubj</font>

これでレス部分に「Re:(親タイトル)」表示が出来たのですが、
自分がレスフォームから書き込んだタイトルを反映させるにはどうすればいいでしょうか。
<input type="text" size="30" name="rsubj" value="Re: $subj">
このようにタグは書いています。

01/12/29 09:46

ソース無しにどう答えろと？

01/12/29 09:48

それからスクリプトの改造はこちら
http://pc.2ch.net/test/read.cgi/php/988808396/

**ななぴ** · 01/12/29 10:23

正規表現ってなに？簡単に言えや

**名無しさん＠お腹いっぱい。** · 01/12/29 11:04

Regular Expressions

**2チャンネららら** · 01/12/29 18:45

ここのスクリプトはどう？
2ch型なんだけど・・・。

2ch型マイナー掲示板「はにちゃんねる」
http://www.isn.ne.jp/~honey/hc/
アクセス数アップキャンペーン中、みんな紹介よろしこ。

**名無しさん＠お腹いっぱい。** · 01/12/29 19:24

htaccessって何て読むんですか？

**名無しさん＠お腹いっぱい。** · 01/12/29 19:26

>>77

ハイパーテキストアクセス

**名無しさん＠お腹いっぱい。** · 01/12/29 19:27

ht(tp)-accessと考えれば自ずと…。

**娘にﾊｧﾊｧ** · 01/12/29 23:25

Ｈな父さんがアクセス

**デフォルトの名無しさん** · 01/12/30 00:45

ｴｯﾁﾃｨｰﾃｨｰﾋﾟｰﾃﾞｨｰｱｸｾｽｺﾝﾌｨｷﾞｭﾚｰｼｮﾝﾌｧｲﾙ

**どこが違うの？** · 01/12/30 08:08

#!/usr/local/bin/perl

$rhost = $ENV{'REMOTE_HOST'};

print "Content-type: text/html\n\n";

print "<html><head><title>ENV REMOTE_HOST</title></head><body>\n";
print "あなたのリモートホストは、$rhostです。\n";
print "</body></html>\n";

**どこが違うの？** · 01/12/30 08:13

あ、REMOTE_ADDRだと出来た。
なんでリモホはダメなのかなあ

**名無しさん＠お腹いっぱい。** · 01/12/30 11:18

なにがどうダメなの？
あなたの脳内を他人は読めないよ

**名無しさん＠お腹いっぱい。** · 01/12/30 11:21

>82-83
最近は使えないところが多いね。
何でダメかはサーバー会社にでも聞いたら？

**名無しさん＠お腹いっぱい。** · 01/12/30 12:14

>>82
gethostbyaddrとか使っても駄目かい？

**どこが違うの？** · 01/12/30 12:16

>>84
アクセスしても、「あなたのリモートホストは、です。」
しか出てこない。

>>85
あっ。そうですか。リモートホスト取得
ってなんか鯖に不都合な事ってあるんですかね？

**どこが違うの？** · 01/12/30 12:17

>>86
なにそれ

**名無しさん＠お腹いっぱい。** · 01/12/30 12:54

http://www.google.com/search?q=%8C%9F%8D%F5%83G%83%93%83W%83%93+%8Eg%82%A2%95%FB&hl=ja&btnG=Google+%8C%9F%8D%F5&lr=lang_ja

**名無しさん＠お腹いっぱい。** · 01/12/30 13:15

>>82

$host= $ENV{'REMOTE_ADDR'};
$host = gethostbyaddr(pack('C4',split(/\./,$host)),2) || $host;

**名無しさん＠お腹いっぱい。** · 01/12/30 14:25

>>82

if ($ENV{'REMOTE_HOST'} eq $ENV{'REMOTE_ADDR'} || !$ENV{'REMOTE_HOST'}) {
$ENV{'REMOTE_HOST'} = $ENV{'REMOTE_ADDR'} if (!$ENV{'REMOTE_HOST'});
$ENV{'REMOTE_HOST'} = gethostbyaddr(pack('C4',split(/\./,$ENV{'REMOTE_HOST'})),2) || $ENV{'REMOTE_ADDR'};

**名無しさん＠お腹いっぱい。** · 01/12/30 16:18

>>87
> ってなんか鯖に不都合な事ってあるんですかね？

いちいち要求がくるたびにリモートアドレスからホスト名をルックアップしていたら、
サーバーに多大な負荷がかかるから。
通常は必要時だけ(Perlのgethostbyaddr()等で)逆引きできるしてある。
それでもiswebみたいに逆引きできないところがあるけど。

92 · 01/12/30 16:19

×できるしてある。
○できるようにしてある。

**名無しさん＠お腹いっぱい。** · 01/12/31 02:15

this_is_query.cgi?message=%90%C0%82%C1%82%C4%83%88%83V%81I
とかってやつの ? 以降を URL エンコードするってよくいいますよね。
で、その URL エンコードってのには、& や = でバラしたりとかいう作業も
含まれているとは思うんですが、
単純に + を半角スペースにしたり %7e を ~ にしたりすることだけのことは
なんていうんでしょうか？
やっぱり URL エンコード？
それとも URI エスケープ？

**名無しさん＠お腹いっぱい。** · 01/12/31 02:39

url-decode

**名無しさん＠お腹いっぱい。** · 01/12/31 02:55

$host = gethostbyaddr(pack('C4',split(/\./,$ENV{'REMOTE_ADDR'})),2) || $ENV{'REMOTE_ADDR'};

**名無しさん＠お腹いっぱい。** · 01/12/31 03:02

>>66
>けど、webprog板だけ、何故かバナーと背景が見えないなあ。
>他の板は普通に見えるのに。
<img src="../
　　　　　~~~
が原因。
ディレクトリが1層下になるからね。
read.cgiもこれを利用して、
<a href=66>
見たいにできるの。

**名無しさん＠お腹いっぱい。** · 01/12/31 03:32

>>94

> で、その URL エンコードってのには、& や = でバラしたりとかいう作業も
> 含まれているとは思うんですが、

URLエンコードはURLに使用できない文字を暗号化すること。
ちなみにエンコード・デコードに分割は関係ない。

**名無しさん＠お腹いっぱい。** · 01/12/31 12:55

URI::Escapeは誤りってことなのか。

94 · 01/12/31 16:20

URLエンコードって、、、いや、デコードのまちがいっす、鬱。

>>98
ってことは、暗号化や復号化の処理自体がエンコードなりデコードってことで
いいってことなんですか、、、ありがとうございます。
いや、ちょっと気になったもので。
こういう「ちょっと気になる」ってのがいちばんイライラするんですよね。
とにかく、ありがと。

**名無しさん＠お腹いっぱい。** · 01/12/31 17:39

かなり初歩的な質問で申し訳ないですが
ＢＢＳやカウンターを取りつけるには
まずサーバーにページを借りてからするものでしょうか？

**名無しさん＠お腹いっぱい。** · 01/12/31 18:00

「取り付ける」が何を意味するかによる。
ページを借りるって言うのも意味がわからない。
もう少し詳細を書いてくれんと答えようがないYO!

**名無しさん＠お腹いっぱい。** · 01/12/31 18:07

もうちょっと詳しく言うと

ＢＢＳを借りてきて、実際使えるように設定するには
サーバーからＨＰスペースをもらってからでないと
ちゃんと設定できないのしょうか

**名無しさん＠お腹いっぱい。** · 01/12/31 18:20

>>103
別にスペースを借りてこなくても
自分のPCで疑似環境を構築してテストしてから借りればいいんじゃん？

**名無しさん＠お腹いっぱい。** · 01/12/31 18:24

perlでセッション管理をしたいんですが、定石だとhiddenで渡すと思いますが、
その場合、ページの切り替えのときは<a>タグじゃなくて<form>で
切り替えていかないといけないのでしょうか？
リンク先がたくさんあると<form>がその分多くなってしまう気が･･･
何か良い方法があれば、ご教授ください。

**名無しさん＠お腹いっぱい。** · 01/12/31 18:26

>103
レンタル掲示板やレンタルカウンタの事？
大方は前もって掲示板を借りてても問題は無いと思うけど。
必要な時は自分で設置するから借りた事は無いが、理論上は問題無い。
サービスによっては前もって把握したがるサービスもあるかもしれないけど。
せいぜい気にすべきは掲示板での戻り先くらいな物だろうけど、これは多分後で
設定できるだろうし。

…でもこの質問、少し板違いな気もするが。
Web製作の方がまだ良いかと思われ。

**名無しさん＠お腹いっぱい。** · 01/12/31 19:05

>>105
GETじゃダメなの？

**名無しさん＠お腹いっぱい。** · 01/12/31 19:58

GETにするならcookie使わないとね。
URIに埋め込むとreferer洩れした時にまずい。

**名無しさん＠お腹いっぱい。** · 01/12/31 20:45

リダイレクトすればいい

**名無しさん＠お腹いっぱい。** · 01/12/31 23:47

sunでcgiwrapが動いてるサーバがあります。
ここで使うスクリプトはeucコードじゃないとだめだっけ?
(設定によるのかな?)

文字ヴァケで悩みまくり・・・。

データをjcodeでsjisにして、保存して、見てみると文字ヴァケ・・・。
(htmlのmetaで文字コードは指定していません)
サーバの使いかた忘れちゃったよ。

**名無しさん＠お腹いっぱい。** · 02/01/01 00:13

>>110
何か勘違いしてないか？

**110** · 02/01/01 00:38

勘違いしてますね。

全部sjisにしたら直りました(たぶん・・・)

**名無しさん＠お腹いっぱい。** · 02/01/01 01:08

新年オメデト、
なんか殺伐としてるからさぁ・・・。

あごめん、邪魔した？

**名無しさん＠お腹いっぱい。** · 02/01/02 01:53

VC++6.0でCGI作らなくちゃならないんですが、何か良い参考書ありますか？
本屋行っても全然ないんで困っちゃってます。誰か助けて。

**名無しさん＠お腹いっぱい。** · 02/01/02 02:09

1冊CGIの本買って読めばいい（つーかWebで十分だが）
あとはコマンドラインアプリ作ってhttpdと話すだけ
CGIよりhttpdの設定本の方が良いかもね

**名無しさん＠お腹いっぱい。** · 02/01/02 02:15

>>114,115
標準入出力でやりとりするだけだから易しいもんだよね。
わざわざVC++なんかで組むのが馬鹿らしいくらい。

**名無しさん＠お腹いっぱい。** · 02/01/02 02:33

>>115-116
ということは、先ずは最初に何か関連本を読んだほうが良いということですね。
早速、本屋に行ってみます。ありがとうございました。

**親切な人** · 02/01/02 02:41

ネットサーフィン中に、凄い人気掲示板、発見！！！

「はにちゃんねる」↓
http://www.isn.ne.jp/~honey/hc/

ネット内では、現在、この掲示板の話題で、持ちきりです。

**名無しさん＠お腹いっぱい。** · 02/01/02 02:52

CGIはインターフェイスをHTMLで作れるからいいよな。
コンソールアプリと同じような感覚で作れるし。

**チュウ** · 02/01/02 18:33

フォームメールのE-Mail入力チェックを外したいんだけど
やりかたがわかりません。
コメントアウトが#を加えるってことまでは自分で調べたのですが
いざ#を付けてみてもうまく動作しません。
だれか詳しい人教えてちょ～

#------------------------------------

# 入力チェック

#------------------------------------

#お名前・onamae　に入力チェックをかけない場合はコメントアウトして下さい

if ($onamae eq "") {$errno=11;&error; }

#メールアドレス・emailに入力チェックをかけない場合はコメントアウトして下さい

if (!($email =~ /(.*)\@(.*)\.(.*)/)) { $errno=12;&error; }

**名無しさん＠お腹いっぱい。** · 02/01/02 18:36

if (!($email =~ /(.*)\@(.*)\.(.*)/)) { $errno=12;&error; }
↓
# if (!($email =~ /(.*)\@(.*)\.(.*)/)) { $errno=12;&error; }

で良いんじゃないのか？

にしても酷いスクリプトだな。マジックナンバーじゃなくて定数を使ってくれ…。

**名無しさん＠お腹いっぱい。** · 02/01/02 21:48

グループウェアっぽいものを作っているのですが、
ユーザがログアウトしたあとにブラウザで前のページに
戻れないようにするのってどうすればいいんでしょうか。
どなたか知っていたら教えてくださいm(__)m

**名無しさん＠お腹いっぱい。** · 02/01/02 21:53

http://www2.org1.com/~eiji/upload/uploader.cgi

ここのみたいに、JPGファイルをアップロードして、その画像ファイル一覧を
GIFの縮小画像でサムネイル一覧表示をするスクリプトを探しています。
アップロードされた画像を単純にHTMLのタグで縮小表示してるのはたくさん見つかったんですが
そうすると大量のサムネイル表示には重くて適していないもので。
「探しています」スレッドでは誰も応えてくれなかったので、ソースレベルでどのような
ことを行っているのかお聞きしたく書き込みました
宜しくお願いします

**名無しさん＠お腹いっぱい。** · 02/01/03 00:47

>>122
出来ません。

まあ、ユーザーが自分で明示的にログアウトした後なら、
セッション情報がサーバから消されている筈で、
恐らくユーザーが前のページに戻ったところで、
無効なセッションとしてエラー処理されるだろうから問題ないでしょう、きっと。

**名無しさん＠お腹いっぱい。** · 02/01/03 07:43

ﾌﾟ

**名無しさん＠お腹いっぱい。** · 02/01/03 08:41

CGI 使ってリモートブックマークみたいなのを作ってるんですが、
そこから飛ぶときに出来れば Referer を渡したくありません。

Location で飛んでも Referer 渡されちゃうし。
どうやったら Referer 渡さずに飛べるんでしょう？

**名無しさん＠お腹いっぱい。** · 02/01/03 08:43

早く教えてください！！！

**名無しさん＠お腹いっぱい。** · 02/01/03 08:47

早くしてください！！！！！

**名無しさん＠お腹いっぱい。** · 02/01/03 09:08

>>128
何を？

**名無しさん＠お腹いっぱい。** · 02/01/03 09:10

>>126
そのブックマークスクリプトを起動する際に
パスワード認証するようにして、
Refererを知って見に来た外部の人間には
見られないようにすればいいと思われ。

**名無しさん＠お腹いっぱい。** · 02/01/03 09:24

>>130
でも、それだと"登録してる"って事実は漏曳しちゃうわけですよね。
うーん....

**名無しさんに接続中…** · 02/01/03 10:21

>>123
自分で作るしかないようなきがするが
特にGIFの生成に関するのでフリーでというのは虫がよすぎる。
GIFの生成わりと簡単なのでネットで調べるとヨシ。

**名無しさん＠お腹いっぱい。** · 02/01/03 14:16

>>123
JPGの縮小画像じゃだめなん？

**名無しさん＠お腹いっぱい。** · 02/01/03 19:08

cgiをSSIで呼び出すときにクエリー文字以降のコマンドを実行したいのですが
どうすればよいのでしょうか?

具体的にはimgboard.cgiの2ページ目、3ページ目…を
2.shtml、3.shtml…として呼び出したいです。

1ページ目はimgboard.shtmlに

と書いて正常に表示されます。

2ページ目は2.shtmlに

としてみましたがエラーが出てしまいます。

**名無しさん＠お腹いっぱい。** · 02/01/03 19:52

>>134
2.shtml,3.shtml…それぞれに

と書き、
imgboard.cgiの中で環境変数DOCUMENT_URIを調べて、
呼び出し元を判別すればよい。

**名無しさん＠お腹いっぱい。** · 02/01/03 21:42

フォームからの受け取り値が多くて、
未記入は漏れなく許さない形にすると、if文の荒しになります。

if( $hage eq "" ){
print "Content-type: text/html\n\n";
print "<html><head><title>未記入です。</title></head>\n";
print "<body>\n";
print "<p>未記入です。</p>\n";
print "</body></html>\n";
}
if( $aage eq "" ){
print "Content-type: text/html\n\n";
print "<html><head><title>未記入です。</title></head>\n";
print "<body>\n";
print "<p>未記入です。</p>\n";
print "</body></html>\n";
}
...

と延々書いていくしかないんですか。非効率的な気がします。

**名無しさん＠お腹いっぱい。** · 02/01/03 21:48

あと、とりあえずそれでもいいんですが、
この場合未記入でもその後の処理は続いちゃいますよね？
if内処理の中に__END__を入れればいいの？

**名無しさん＠お腹いっぱい。** · 02/01/03 21:49

if($hage eq "" || $aage eq "" ){
print "Content-type: text/html\n\n";
print "<html><head><title>未記入です。</title></head>\n";
print "<body>\n";
print "<p>未記入です。</p>\n";
print "</body></html>\n";
exit;
}

**名無しさん＠お腹いっぱい。** · 02/01/03 21:54

>>138
thx

**名無しさん＠お腹いっぱい。** · 02/01/03 21:59

&error("hageが未記入です") if $hage eq "";
&error("aageが未記入です") if $aage eq "";

sub error {
my $msg = shift;
print <<"_EOE_";
Content-type: text/html

<html><head><title>未記入です。</title></head>
<body>
<p>$msg</p>
</body></html>
_EOE_
exit;
}

**名無しさん＠お腹いっぱい。** · 02/01/03 22:04

>>136

require 'cgi-lib.pl';
&ReadParse;
foreach (values %in){
if(!$_){エラー処理;exit;}
}

**名無しさん＠お腹いっぱい。** · 02/01/04 03:53

>>131
redirect.cgiとかそういうのを作って、redirect.cgi?url=http://foo/bar/
として呼び出すと
<meta http-equiv="refresh" content="0;url=http://foo/bar/">
というHTMLを吐くようにする。
んで、ブックマークスクリプトで表示するリストではredirect.cgiを使うよう
にすればOK。

**名無しさん＠お腹いっぱい。** · 02/01/04 07:04

ありがとう。

下のような感じなのかな
www.users.yun.co.jp/~moriq/lang/cgi/tips.html

適当に改ページの処理らしき所に突っ込んでみたけど動作せず。
# ページを決める
$total_page=@PAGE_START;

if($FORM{'page'} > 0){
if($FORM{'page'} > $total_page){
$disp_page = $total_page;
}else{
$disp_page = $FORM{'page'};
}
}else{
$disp_page = 1;
}
$next_page = $disp_page + 1;
$pre_page = $disp_page - 1;

if ( $ENV{'DOCUMENT_URI'} ) {
$page_name = $ENV{'DOCUMENT_URI'};
}
else {
$page_name = $ENV{'PATH_INFO'};
}
if($pre_page > 0){

&output_kiji_html;

大本のCGI
www.big.or.jp/~talk/t-club/soft/mini_r6/imgboard122r6.zip

**名無しさん＠お腹いっぱい。** · 02/01/04 12:38

メールアドレスの形式を判定して
.comや.netや.orgや.to以外のドメインを弾く場合につかう
正規表現って？

.*@.*\.

この先がわかりません。

**デフォルトの名無しさん** · 02/01/04 12:50

http://www.din.or.jp/~ohzaki/perl.htm#Mail
>>144
ここよく読んで拝借しなされ

**名無しさん＠お腹いっぱい。** · 02/01/04 12:54

>>145
そんなに難しいもんなの？

if ( ! $mail eq .*@.\.[com,net,org] ){
ふせー
}

とか出来ないの？！萎えるなあ。。

**名無しさん＠お腹いっぱい。** · 02/01/04 12:58

難しいと思うならよく読めよ
簡単と思うなら自分で考えろ、お前は自分で自分を簡単な事も考えられない
馬鹿だと言いたいのか？
実は正規表現知らんだけちゃうんかと

**名無しさん＠お腹いっぱい。** · 02/01/04 13:05

結局、perlってダサイのか

**これでいいのかな？なんだ簡単じゃん。** · 02/01/04 13:09

$mail_regex =
q{(?:[^(\040)<>@,;:".\\\\\[\]\000-\037\x80-\xff]+(?![^(\040)<>@,;:".\\\\} .
q{\[\]\000-\037\x80-\xff])|"[^\\\\\x80-\xff\n\015"]*(?:\\\\[^\x80-\xff][} .
q{^\\\\\x80-\xff\n\015"]*)*")(?:\.(?:[^(\040)<>@,;:".\\\\\[\]\000-\037\x} .
q{80-\xff]+(?![^(\040)<>@,;:".\\\\\[\]\000-\037\x80-\xff])|"[^\\\\\x80-} .
q{\xff\n\015"]*(?:\\\\[^\x80-\xff][^\\\\\x80-\xff\n\015"]*)*"))*@(?:[^(} .
q{\040)<>@,;:".\\\\\[\]\000-\037\x80-\xff]+(?![^(\040)<>@,;:".\\\\\[\]\0} .
q{00-\037\x80-\xff])|\[(?:[^\\\\\x80-\xff\n\015\[\]]|\\\\[^\x80-\xff])*} .
q{\])(?:\.(?:[^(\040)<>@,;:".\\\\\[\]\000-\037\x80-\xff]+(?![^(\040)<>@,} .
q{;:".\\\\\[\]\000-\037\x80-\xff])|\[(?:[^\\\\\x80-\xff\n\015\[\]]|\\\\[} .
q{^\x80-\xff])*\]))*};

if ($email !~ /^$mail_regex$/o) {
print "不正なメールアドレスです\n";
}

**名無しさん＠お腹いっぱい。** · 02/01/04 13:11

>>148
うんダサいね、少なくとも君の半分位はダサい

02/01/04 13:28

アンケートフォームを使っているのですが、直接CGIのアドレスを入力して
CGIを呼び出すと空白の結果が送られてきて困っています。
直接CGIを呼び出したときにエラーのHTMLを表示させるにはどう追加記述すればいいでしょうか。

**>>151** · 02/01/04 13:32

if( $ENV{'REQUEST_METHOD'} eq "" ){

print "エラってる1\n";

}

**>>151** · 02/01/04 13:34

if( $ENV{'REQUEST_METHOD'} eq "" ){

print "エラってる\n";
exit;

}

#これをスクリプトの上に置く

**デフォルトの名無しさん** · 02/01/04 13:36

荒れてるなぁ・・・・
>>149　まぁそんな感じで
>>151
環境変数を適当にチェックするか、フィールドをif($IN{hoge} eq ''){error;
みたいに検査すれば良い、、、、
が！、そんな認識でsendmailをopenしてるなら厨房の餌食にされる可能性が
凄く高いから根本的に本でも読むことをお勧めする

**デフォルトの名無しさん** · 02/01/04 13:37

>>149　それは違う　ｗ

02/01/04 13:42

>>152
スクリプトの一番上に追加したらいいのですか？
それでもまだ駄目なようですが。

**名無しさん＠お腹いっぱい。** · 02/01/04 13:46

そんな腐ったフォーム使うなよ　（´д｀；）
別のにしろ

02/01/04 13:47

>>157
なかなか良いのが無くて困っていたんです(;´Д`)

**名無しさん＠お腹いっぱい。** · 02/01/04 14:01

if ( ! ($ENV{'REQUEST_METHOD'} eq "POST") ){

print "Content-type: text/html\n\n";
print "<html><body>エラー</body></html>\n";

exit;

}

02/01/04 14:11

>>159
うまくいったようです。有り難う御座います。
あと送ってきたのホストを完全に取得する方法分かりますか？
今だったら、*.ocn.ne.jpのようにかなり曖昧なものなんです。

**名無しさん＠お腹いっぱい。** · 02/01/04 14:21

use POSIX 'strftime';
print strftime "%Y%m%d\n", localtime;
こうやると年月日が出ると思うんですが、
この数字に7を足すことってできます？

ほかの方法があればその方法もご教授頂けるとありが㌧なんですが。