CGI Perl総合at HACKCGI Perl総合 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト2:名無しさん 01/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"; 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch