#!$perl
#Setting
require './lib/cgi-lib.pl';
require './lib/jcode.pl';
HTML6
# host agentの処理
if($host eq 1){
print "\$rh=$q\$ENV{'REMOTE_HOST'}$q;
\n";
print "\$ra=$q\$ENV{'REMOTE_ADDR'}$q;
\n";
print "\if(\$rh eq $q$q) {\$rh=$q\$ra$q};
";
}
if($agent eq 1){
print "\$hua=$q\$ENV{'HTTP_USER_AGENT'}$q;
";
}
print <<"HTML7";
&ReadParse(*in);
# ホームページ
\$url= $q$url$q;
# メールアドレス
\$mail= '$mail';
# タイトル
\$title= $q$title$q;
# sendmailのパス
\$send= $q$send$q;
# 壁色
\$08= $q$08$q;
# 文字色
\$09= $q$09$q;
HTML7
if($002 eq 1){print"\$aa2=$q$aa2$q;
";}
if($003 eq 1){print"\$aa3=$q$aa3$q;
";}
if($004 eq 1){print"\$aa4=$q$aa4$q;
";}
if($005 eq 1){print"\$aa5=$q$aa5$q;
";}
if($006 eq 1){print"\$aa6=$q$aa6$q;
";}
if($007 eq 1){print"\$aa7=$q$aa7$q;
";}
if($0010 eq 1){print"\$aa10=$q$aa10$q;
";}
if($0011 eq 1){print"\$aa11=$q$aa11$q;
";}
if($0012 eq 1){print"\$aa12=$q$aa12$q;
";}
if($0013 eq 1){print"\$aa13=$q$aa13$q;
";}
if($0014 eq 1){print"\$aa14=$q$aa14$q;
";}
if($0015 eq 1){print"\$aa15=$q$aa15$n
";}
if($0016 eq 1){print"\$aa16=$q$aa16$n
";}
print "
";
if($code eq 0){
if($002 eq 1){print "&jcode::convert(\\\$aa2,$qeuc);
";}
if($003 eq 1){print "&jcode::convert(\\\$aa3,$qeuc);
";}
if($004 eq 1){print "&jcode::convert(\\\$aa4,$qeuc);
";}
if($005 eq 1){print "&jcode::convert(\\\$aa5,$qeuc);
";}
if($006 eq 1){print "&jcode::convert(\\\$aa6,$qeuc);
";}
if($007 eq 1){print "&jcode::convert(\\\$aa7,$qeuc);
";}
if($0010 eq 1){print "&jcode::convert(\\\$aa10,$qeuc);
";}
if($0011 eq 1){print "&jcode::convert(\\\$aa11,$qeuc);
";}
if($0012 eq 1){print "&jcode::convert(\\\$aa12,$qeuc);
";}
if($0013 eq 1){print "&jcode::convert(\\\$aa13,$qeuc);
";}
if($0014 eq 1){print "&jcode::convert(\\\$aa14,$qeuc);
";}
if($0015 eq 1){print "&jcode::convert(\\\$aa15,$qeuc);
";}
if($0016 eq 1){print "&jcode::convert(\\\$aa16,$qeuc);
";}
}else{
if($002 eq 1){print "&jcode::convert(\\\$aa2,$qjis);
";}
if($003 eq 1){print "&jcode::convert(\\\$aa3,$qjis);
";}
if($004 eq 1){print "&jcode::convert(\\\$aa4,$qjis);
";}
if($005 eq 1){print "&jcode::convert(\\\$aa5,$qjis);
";}
if($006 eq 1){print "&jcode::convert(\\\$aa6,$qjis);
";}
if($007 eq 1){print "&jcode::convert(\\\$aa7,$qjis);
";}
if($0010 eq 1){print "&jcode::convert(\\\$aa10,$qjis);
";}
if($0011 eq 1){print "&jcode::convert(\\\$aa11,$qjis);
";}
if($0012 eq 1){print "&jcode::convert(\\\$aa12,$qjis);
";}
if($0013 eq 1){print "&jcode::convert(\\\$aa13,$qjis);
";}
if($0014 eq 1){print "&jcode::convert(\\\$aa14,$qjis);
";}
if($0015 eq 1){print "&jcode::convert(\\\$aa15,$qjis);
";}
if($0016 eq 1){print "&jcode::convert(\\\$aa16,$qjis);
";}
}
print "
";
print "\$xx001=$q【$title】からのメール$n
";
print "\$xx002=$qこのメールは【$title】から自動配信されております。$n
";
print "\$xm=$q MF-$vvv$q;
";
if($001 eq 1){print "\$xx003=$q名前$q;
"}
if($008 eq 1){print "\$xx004=$q性別$q;
"}
if($009 eq 1){print "\$xx005=$q地域$q;
"}
if($0015 eq 1 || $0016 eq 1){print "\$xx006=$q□□□□□□□□□□□□□□□□□□□$n
"}
print "
";
if($code eq 0){
print "&jcode::convert(\\\$xx001,$qeuc);
";
print "&jcode::convert(\\\$xx002,$qeuc);
";
if($001 eq 1){print "&jcode::convert(\\\$xx003,$qeuc);
";}
if($008 eq 1){print "&jcode::convert(\\\$xx004,$qeuc);
";}
if($009 eq 1){print "&jcode::convert(\\\$xx005,$qeuc);
";}
if($0015 eq 1 || $0016 eq 1){print "&jcode::convert(\\\$xx006,$qeuc);
";}
}else{
print "&jcode::convert(\\\$xx001,$qjis);
";
print "&jcode::convert(\\\$xx002,$qjis);
";
if($001 eq 1){print "&jcode::convert(\\\$xx003,$qjis);
";}
if($008 eq 1){print "&jcode::convert(\\\$xx004,$qjis);
";}
if($009 eq 1){print "&jcode::convert(\\\$xx005,$qjis);
";}
if($0015 eq 1 || $0016 eq 1){print "&jcode::convert(\\\$xx006,$qjis);
";}
}
print "
";
if($001 eq 1){print "\$x1= $q\$in{'x1'}$q;\n
";}
if($002 eq 1){print "\$x2= $q\$in{'x2'}$q;\n
";}
if($003 eq 1){print "\$x3= $q\$in{'x3'}$q;\n
";}
if($004 eq 1){print "\$x4= $q\$in{'x4'}$q;\n
";}
if($005 eq 1){print "\$x5= $q\$in{'x5'}$q;\n
";}
if($006 eq 1){print "\$x6= $q\$in{'x6'}$q;\n
";}
if($007 eq 1){print "\$x7= $q\$in{'x7'}$q;\n
";}
if($008 eq 1){print "\$x8= $q\$in{'x8'}$q;\n
";}
if($009 eq 1){print "\$x9= $q\$in{'x9'}$q;\n
";}
if($0010 eq 1){print "\$x10= $q\$in{'x10'}$q;\n
";}
if($0011 eq 1){print "\$x11= $q\$in{'x11'}$q;\n
";}
if($0012 eq 1){print "\$x12= $q\$in{'x12'}$q;\n
";}
if($0013 eq 1){print "\$x13= $q\$in{'x13'}$q;\n
";}
if($0014 eq 1){print "\$x14= $q\$in{'x14'}$q;\n
";}
if($0015 eq 1){print "\$x15= $q\$in{'x15'}$q;\n
";}
if($0016 eq 1){print "\$x16= $q\$in{'x16'}$q;\n
";}
print "
";
if($code eq 0){
if($001 eq 1){print "&jcode::convert(\\\$x1,$qeuc);
";}
if($002 eq 1){print "&jcode::convert(\\\$x2,$qeuc);
";}
if($003 eq 1){print "&jcode::convert(\\\$x3,$qeuc);
";}
if($004 eq 1){print "&jcode::convert(\\\$x4,$qeuc);
";}
if($005 eq 1){print "&jcode::convert(\\\$x5,$qeuc);
";}
if($006 eq 1){print "&jcode::convert(\\\$x6,$qeuc);
";}
if($007 eq 1){print "&jcode::convert(\\\$x7,$qeuc);
";}
if($008 eq 1){print "&jcode::convert(\\\$x8,$qeuc);
";}
if($009 eq 1){print "&jcode::convert(\\\$x9,$qeuc);
";}
if($0010 eq 1){print "&jcode::convert(\\\$x10,$qeuc);
";}
if($0011 eq 1){print "&jcode::convert(\\\$x11,$qeuc);
";}
if($0012 eq 1){print "&jcode::convert(\\\$x12,$qeuc);
";}
if($0013 eq 1){print "&jcode::convert(\\\$x13,$qeuc);
";}
if($0014 eq 1){print "&jcode::convert(\\\$x14,$qeuc);
";}
if($0015 eq 1){print "&jcode::convert(\\\$x15,$qeuc);
";}
if($0016 eq 1){print "&jcode::convert(\\\$x16,$qeuc);
";}
}else{
if($001 eq 1){print "&jcode::convert(\\\$x1,$qjis);
";}
if($002 eq 1){print "&jcode::convert(\\\$x2,$qjis);
";}
if($003 eq 1){print "&jcode::convert(\\\$x3,$qjis);
";}
if($004 eq 1){print "&jcode::convert(\\\$x4,$qjis);
";}
if($005 eq 1){print "&jcode::convert(\\\$x5,$qjis);
";}
if($006 eq 1){print "&jcode::convert(\\\$x6,$qjis);
";}
if($007 eq 1){print "&jcode::convert(\\\$x7,$qjis);
";}
if($008 eq 1){print "&jcode::convert(\\\$x8,$qjis);
";}
if($009 eq 1){print "&jcode::convert(\\\$x9,$qjis);
";}
if($0010 eq 1){print "&jcode::convert(\\\$x10,$qjis);
";}
if($0011 eq 1){print "&jcode::convert(\\\$x11,$qjis);
";}
if($0012 eq 1){print "&jcode::convert(\\\$x12,$qjis);
";}
if($0013 eq 1){print "&jcode::convert(\\\$x13,$qjis);
";}
if($0014 eq 1){print "&jcode::convert(\\\$x14,$qjis);
";}
if($0015 eq 1){print "&jcode::convert(\\\$x15,$qjis);
";}
if($0016 eq 1){print "&jcode::convert(\\\$x16,$qjis);
";}
}
print "
";
print "# HTML標示上部分
";
$bbb=""";
$con="Content-type";
$HTML="HTML";
print "$p$con: text/html \\n$n
\n\n";
print "print <<$q$HTML$q;
\n";
if($code eq 1){
print "<html>
<head>
<meta http-equiv=Content-Type content=text/html; charset=shift-jis>
\n";
}else{
print "<html>
<head>
<meta http-equiv=Content-Type content=text/html; charset=euc-jp>
\n";
}
print <<"PERL";
<meta name=keywords content=メールフォーム>
\n<title>$title</title>
\n
<style type=text/css>
<!--
\n
a:link {text-decoration:none; color:purple }
\n
a:visited {text-decoration:none; color:mediumpurple }
\n
a:active {text-decoration:none; color:blue }
\n
a:hover {text-decoration:underline; color:#228b22 }
\n
-->
\n</style>
\n</head>
\n
<body bgcolor=$08 text=$09>
<a href=$url>[Home]</a>
<center><br>
<font size=6 color=green>$title</font><hr>
\n
HTML
if(\$x1 eq $q$q && \$x2 eq $q$q && \$x3 eq $q$q && \$x4 eq $q$q && \$x5 eq $q$q && \$x6 eq $q$q && \$x7 eq $q$q && \$x8 eq $q$q && \$x9 eq $q$q && \$x10 eq $q$q && \$x11 eq $q$q && \$x12 eq $q$q && \$x13 eq $q$q && \$x14 eq $q$q && \$x15 eq $q$q && \$x16 eq $q$q)
{
$p<br><br><br><br><br>$n
$p<font size=6>記入もれか入力ミスがありました <p>m(＿＿)m\n$n
$p<a href=./mail.html>[戻る]</a><br></font>$n
\n
$p<br><br><br><br><br>$n
&owari;
}else{
$p<br><br><br><br><br>$n
$p<font size=6>メール有り難うございます。<br>♪(^-^)/★\n<br></font>$n
$p<a href=$url>[戻る]</a> $n
\n
$p<br><br><br><br><br>$n
PERL
$pm ="print MAIL $q";
$To="To";
$Subject="Subject";
$From="From";
$Content="Content-Type";
$XM="X-Mailer";
print <<"HTML8";
# send mail
open(MAIL, $q| $send \$mail$q);
$pm$To: \$mail\n$n
$pm$Subject:\$xx001\n$n
$pm$From: \$mail\n$n
$pm$XM: \$xm\n$n
$pm$Content: text/plain;\\n$n
$pm \$xx002\n\n$n
HTML8
if($001 eq 1){print "$pm \$xx003: \$x1\n$n
";}
if($002 eq 1){print "$pm \$aa2: \$x2\n$n
";}
if($003 eq 1){print "$pm \$aa3: \$x3\n$n
";}
if($004 eq 1){print "$pm \$aa4: \$x4\n$n
";}
if($005 eq 1){print "$pm \$aa5: \$x5\n$n
";}
if($006 eq 1){print "$pm \$aa6: \$x6\n$n
";}
if($007 eq 1){print "$pm \$aa7: \$x7\n$n
";}
if($008 eq 1){print "$pm \$xx004: \$x8\n$n
";}
if($009 eq 1){print "$pm \$xx005: \$x9\n$n
";}
if($0010 eq 1){print "$pm \$aa10: \$x10\n$n
";}
if($0011 eq 1){print "$pm \$aa11: \$x11\n$n
";}
if($0012 eq 1){print "$pm \$aa12: \$x12\n$n
";}
if($0013 eq 1){print "$pm \$aa13: \$x13\n$n
";}
if($0014 eq 1){print "$pm \$aa14: \$x14\n$n
";}
if($0015 eq 1){print "$pm \$xx006\\n\$aa15: \$x15\\n$n
";}
if($0016 eq 1){print "$pm \$xx006\\n\$aa16: \$x16\\n$n
";}
if($host eq 1){print "$pm host: \$rh\n$n
";}
if($agent eq 1){print "$pm agent: \$hua\n$n
";}
print "close(MAIL);
";
if($0015 eq 1){print "\$x15 =~ s/[\\r\\n,\\n]/<br>/g;
";}
if($0016 eq 1){print "\$x16 =~ s/[\\r\\n,\\n]/<br>/g;
";}
print <<"HTML9";
&owari;
}
# HTML処理 終り部分
sub owari{
print <<"HTML2";
<center>\n
\n<hr>
<!--以下 削除禁止-->
\n<a href=http://www.pudding-web.org/ target=_top>
- メールフォーム製造くん $vvv -<br>
- pudding-web -</a>
\n</td></table>
\n
</body>
\n </html>
HTML2
\n
}
exit;
\n
|
\n
|