2000/02/17
sky.pl iMode quick hack
home
iMode対応 patch
MLからのsubjectを短縮する
19991013
[sky-walker:123456] -> [sky]
[buho 12345] -> [bh]
なんて風に短くします。
さらに!
(hogehoge: 12345) -> (hg)
なんてことも可能になりました。(20000217)
iModer向け。
patchはこちら
基本的な設定
日記
に書いたようにsky.plを改造してiMode端末で受信したときに
subjectがつくようにしました。
詳細は日記を参照してくださいってのも冷たいので下に書きました。
1999/5/11 2327 改訂 (tnx 技師長)
sky.datの設定
- 転送アドレスをdocomo.ne.jpに変える
- [email_to]を090xxxxxxxx@docomo.ne.jpに変更
- 転送バイト数を500に変える
- [email_byte_max]を500に変更
- 逆順転送にする
- [email_send_reverse]をyesに変更
sky.plに以下のような変更を加えてみると
- 1通目には番号+もとのsubject
- 2通目以降にはfromアドレス
が入ります。では、どうぞ。
bash-2.01$ diff sky.pl sky.pl.org
716c716
< $text_part_euc[0] = "$number/ $email_from ";
---
> $text_part_euc[0] = "$number$subject/$email_from]";
787,791c787
< if ($j < 1) {
< &SEND_MAIL($email_replyto, "", $email_to, "", "", $number . $subject, "", $text_part_jis[$j]);
< } else {
< &SEND_MAIL($email_replyto, "", $email_to, "", "" , $number . $from, "", $text_part_jis[$j]);
< }
---
> &SEND_MAIL($email_replyto, "", $email_to, "", "", "", "", $text_part_jis[$j]);
iMode端末から簡単にreply
iMode端末からsky.plで転送されてきたメイルにreplyできるような改造。
今回ももっとも工数が少なくなるように適当に触ったのでquick hack。
現在動作確認中ですが、以下のpatchを当てて、不具合があったらぜひ教えてください。
-check=no しておかないとだめですよ。たぶん。
bash-2.01$ diff sky.pl sky.pl.org
153,157d152
< # subjectへのコマンド埋め込みに対応
< if ($subject =~ /^\s*Re:([0-9]+)\|/) {
< print PIPE ":R$1 ";
< }
< # 現状では :Rコマンドのみ。ikeyan協力ありがとう
おまけ:subjectの「Re[2]:」とかいうのをやめる
個人的趣味なんですが。
bash-2.01$ diff sky_send.pl sky_send.pl.org
221,228c221,228
< #if ($subject =~ /^\s*Re:/i ) {
< # $subject =~ s/^\s*Re:\s*//i;
< # $subject = "Re[2]: $subject";
< #} elsif ($subject =~ /^\s*Re\[\d+\]:/i ) {
< # $subject =~ s/^\s*Re\[(\d+)\]:\s*//i;
< # $tmp = $1 + 1;
< # $subject = "Re[$tmp]: $subject";
< #} else {
---
> if ($subject =~ /^\s*Re:/i ) {
> $subject =~ s/^\s*Re:\s*//i;
> $subject = "Re[2]: $subject";
> } elsif ($subject =~ /^\s*Re\[\d+\]:/i ) {
> $subject =~ s/^\s*Re\[(\d+)\]:\s*//i;
> $tmp = $1 + 1;
> $subject = "Re[$tmp]: $subject";
> } else {
230c230
< #}
---
> }
home