*** tenki-mail.pl Tue Jul 2 16:11:39 2002
--- ~/tmp/tenki-mail.pl Wed Oct 22 20:40:05 2003
***************
*** 147,154 ****
} else {
die qq(error: invalid mail address "$mailto"\n)
if ($mailto !~ /[^\@]+\@[^\@]+/);
! open(OUTF, "| $NKF -j | $SENDMAIL -t -oi ") or die;
}
print OUTF "To: $mailto\n", $mailstr;
close OUTF;
}
--- 147,161 ----
} else {
die qq(error: invalid mail address "$mailto"\n)
if ($mailto !~ /[^\@]+\@[^\@]+/);
! open(OUTF, "| $SENDMAIL -t -oi ") or die;
}
+ # vodafon 絵文字
+ $mailstr =~ s/雪/\x1b\x24\x42\x29\x68\x1b\x28\x42/g;
+ $mailstr =~ s/曇/\x1b\x24\x42\x29\x69\x1b\x28\x42/g;
+ $mailstr =~ s/晴/\x1b\x24\x42\x29\x6a\x1b\x28\x42/g;
+ $mailstr =~ s/雨/\x1b\x24\x42\x29\x6b\x1b\x28\x42/g;
+ $mailstr =~ s/後/->/g;
+ $mailstr =~ s/時/|/g;
print OUTF "To: $mailto\n", $mailstr;
close OUTF;
}