たっく
[E-Mail]
1999/12/09(木) 07:52:56
初歩的な質問ですみません。「ラウンジ」を使わせていただいています。発言をメール送信する際に、末尾に、１行空けてホームページのアドレスを表示したいだけなのですが、下記をどのように修正したらいいでしょうか。
# 質問者にメールで知らせる
$mailto = "";
open(IN, "$file");
while (<IN>) {
if (/^Reply-To:/) {
chop($_);
$mailto = $_;
$mailto =~ s/^Reply-To: //;
}
if (/^\t/) {
last;
}
}
if ($mailto ne "") {
$report = $mailme.','.$mailto;
} else {
$report = $mailme;
}
seek(IN, 0, 0);
$msg = "To: $mailto\n";
$msg .= "Subject: ラウンジレポート\n";
$msg .= "\n";
while (<IN>) {
$_ =~ s/[\r\n]*$//;
$_ =~ s/^\.$/. /;
$_ =~ s/</</g;
$_ =~ s/>/>/g;
$_ =~ s/&/&/g;
$msg .= "$_\n";
}
&jcode'convert(*msg, "jis");
open(OUT, "| $g_sendmail $report");
print OUT $msg;
close(OUT);
close(IN);