print OUT &jis("X-Processed: $date_now\n"); print OUT "X-SENDER: $REMOTE_HOST\[$REMOTE_ADDR\]\n"; print OUT &jis("X-AGENT: $HTTP_USER_AGENT\n"); print OUT "From: $in{'_email'}\n"; print OUT "To: $mailto_order\n"; print OUT &jis("Subject: $mail_subject [$date_num]\n"); print OUT "Content-Transfer-Encoding: 7bit\n"; print OUT "Content-Type: text/plain; charset=iso-2022-jp\n\n";
print OUT "\n"; foreach (@in) {
s/"/"/g; s/&/&/g; s/</</g; s/>/>/g;
if (/^\.\t(.*)/) { print OUT &jis("$1\n"); } elsif (/(.*)\t(.*)/) { print OUT &jis("[$1] $2\n"); } } print OUT "\n";
print OUT &jis("$sign\n"); close(OUT); **************************