携帯電話に天気予報メールを送るときに vodafone 絵文字を使いたい！という先日の話[2003-10-20-2]の続き。
結局、以下を読んで試行錯誤してなんとかできました。ふう。

<http://chaichan.hp.infoseek.co.jp/qa3000/qa3027.htm>



以下、tenki-mail-1.0 <http://ta2o.net/tools/tenki-mail/> 用の patch です。vodafone な人はどうぞ。

*** 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;
  }