CGI Perl総合

CGI Perl総合 (441ﾚｽ)
上下前次 1-新

2(3): 名無しさん [sage ] 2001/03/16(金)00:42 AAS
#どこがイタイのでしょうか？

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";

上下前次 1-新書関写板覧索設栞歴

あと 439 ﾚｽあります
ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ AAｻﾑﾈｲﾙ

ぬこの手ぬこTOP 0.003s