|
| カレッヂ |
質問者 たね
投稿日 2021/7/23(金) 17:41:01
[削除] (返信・回答が付いた後にこの質問の削除はできません)
if ($henji eq "on"){
if (!(open(OUT,"| $sendmail -t"))) { &error('システム異常','申し訳ありませんが何らかの原因で処理できません.'); }
print OUT "X-Mailer: WebFORM v4.4 by CGI-RESCUE\n";
print OUT "X-HTTP-User-Agent: " . &encTag($ENV{'HTTP_USER_AGENT'}) . "\n";
print OUT "X-Remote-host: $host \[$addr\]\n";
$Ref = &decTag($ref); print OUT "X-HTTP_REFERER: $ref\n";
print OUT "Errors-To: $mailto\n";
print OUT "To: $email\n";
print OUT "From: $mailto\n";
$subject2 = &decTag($subject2);$subject2 = &mail64encode($subject2);
print OUT "$msg\n";
print OUT "Content-Transfer-Encoding: 7bit\n";
print OUT "Content-Type: text/plain\; charset=\"ISO-2022-JP\"\n\n\n";
&jis("-- $onamae 様 -- \n\n $hensin1\n$hensin2\n$hensin3\n$hensin4"); print OUT "$msg\n";
if ($dennan eq "on") {
&jis("伝票NO = $caunta\n\n"); print OUT "\n$msg\n\n";
}
$count = @DATA_N;
foreach (0..$count-3) {
if ($DATA_V[$_] =~ /\n/) { &jis("$DATA_N[$_] =\n\n$DATA_V[$_]\n"); print OUT "$msg\n"; }
else { &jis("$DATA_N[$_] = $DATA_V[$_]"); print OUT "$msg\n"; }
}
&jis("商品代金:$kei円"); print OUT "\n$msg\n";
&jis("送 料$memo:$postage2円"); print OUT "$msg\n";
if ($syubetu eq 2) {
$cost = &comma($cost);
&jis("代引手数料:$cost円"); print OUT "$msg\n"; }
&jis("-----------------"); print OUT "$msg\n";
&jis("合計(税込）:$all円"); print OUT "$msg\n";
$host = $ENV{'REMOTE_HOST'};
$addr = $ENV{'REMOTE_ADDR'};
if ($host eq $addr) { $host = gethostbyaddr(pack('C4',split(/\./,$host)),2) || $addr; }
if ($siharai = '銀') {&jis("$bango\n"); print OUT "\n$msg\n";}
&jis("$hensin5\n$hensin6\n\n$hensin7\n"); print OUT "\n$msg\n";
&jis("$syomei1"); print OUT "\n$msg\n";
&jis("$syomei2\n$syomei3\n$syomei4"); print OUT "\n$msg\n";
&jis("$syomei5\n$syomei6\n\n$syomei7"); print OUT "\n$msg\n";
&jis("$syomei8\n"); print OUT "\n$msg\n\n";
close(OUT);
}
if ($cc eq "on" && $lct ne '') {
print "Content-type: text/html; charset=shift_jis\n\n";
print "<html><head><title>$title</title></head>\n";
print "$body\n";
}
elsif ($cc eq "on") {
print "Content-type: text/html\n\n";
print "<html><head><title>$title</title>\n";
print "<META http-equiv=\"Refresh\" content=\"45;URL=http://www.mochimochinoki.com/top.html\">\n\n";
print "</head>\n";
print "$body\n";
print "<h3>[<a href=\"http://www.mochimochinoki.com/top.html\" onclick=\"location.replace('http://www.mochimochinoki.com/top.html'); return false;\">この画面</a>]</h3>";
if ($ref_url ne '' && $ref_name ne '') { &jcode'convert(*ref_name,'sjis');
print "<h3>[<a href=\"$ref_url\" target=\"_top\">$ref_name</a>]</h3>"; }
print "</body</html>\n";
}
elsif ($lct ne '') { print "Location: $lct\n\n"; }
else {
print "Content-type: text/html\n\n";
print "<html><head><title>$title</title></head>\n";
print "$body\n";
if ($ref_url ne '' && $ref_name ne '') { &jcode'convert(*ref_name,'sjis'); print "<h3>[<a href=\"$ref_url\" target=\"_top\">$ref_name</a>]</h3>"; }
print "<p></body></html>\n";
}
【プロバイダ】https://boo-mochimochinoki.ssl-lolipop.jp/form.html |
返信(回答)する
| Ｗｅｂ裏技 |