CGI Perl総合 (461ﾚｽ)
CGI Perl総合 http://mevius.5ch.net/test/read.cgi/hack/984669133/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
ﾚｽ栞
ﾘﾛｰﾄﾞ規制
です｡10分ほどで解除するので､
他のﾌﾞﾗｳｻﾞ
へ避難してください｡
2: 名無しさん [sage ] 2001/03/16(金) 00:42 #どこがイタイのでしょうか？ open(OUT,"|$mailer $address") || die "送信できませんでした\n"; $cgi = new CGI; : die if($cgi->param("realname") eq ""); $Etitle = $form{'titlename'}; $Ename = $form{'realname'}; $emale = $form{'mailaddr'}; $comment = $form{'comm'}; print OUT "Mail From Web\n"; print OUT "$Etitle\n"; print OUT "氏 名：$Ename\n"; print OUT "E-Mail：$emale\n"; print OUT "コメント：$comment\n"; print OUT "IPアドレス：$ENV{'REMOTE_ADDR'}\n"; close(OUT); print "Content-type: text/html\n\n"; print "<HTML><HEAD><TITLE>index.htm</TITLE></HEAD>\n"; print "<BODY>\n"; print "<CENTER>\n"; print "<H3>メールは送られました。</H3>\n"; print "</CENTER>\n"; print "</BODY></HTML>\n"; http://mevius.5ch.net/test/read.cgi/hack/984669133/2
7: 名無しさん [sage ] 2001/03/16(金) 01:15 >>2 全部。0点。 ・sendmail 使うなら -tとか使え。 ・ヒアドキュメント使え。 ・CGIモジュール使うなら、あえて%formにセットすることないだろ ・Content-type自分でださなくていいだろ。 CGIモジュールつかうなら。 ・未定義値が欲しいなら eq undefするだろ、ふつー。 でdieしたらサーバーエラーになるだろ、自前ルーチンで表示させたれ。 http://mevius.5ch.net/test/read.cgi/hack/984669133/7
8: 名無しさん [sage ] 2001/03/16(金) 04:07 >>2 (1)ロックしないの？ (2)$nって何？ runmode用の変数？ (3)ファイルハンドルは大文字に統一すれ 謎の $nをつかった、$cnf_file.tmpをつかって ロックというか、トランザクションをとってる つもりなんだったら、たぶん、完全に間違い。 ($nの設定時に排他処理してたらすまん） というわけで、たぶん、あってません。 http://mevius.5ch.net/test/read.cgi/hack/984669133/8
11: 5-8 [sage ] 2001/03/16(金) 18:20 おれは1じゃないよ。 >>8 すまん ×>>2 ○>>3 >>9 おれ、UGの人じゃないんで（爆）、それしらない。 JAVAアプレット連携させるのかなあ。 それとも 擬似サーバー立てといて、そのポートに ftp://www.server:niseport/ とかでHTTPプロキシを外してアクセスさせるのかなあ。 >>10 つか1はどこに行った。。。 http://mevius.5ch.net/test/read.cgi/hack/984669133/11
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.012s