[mhc:00028] Re: 1.94b23

[OHARA Shigeki <os@xxxxxxxxx>]

大原です。

nom@xxxxxxxxxxxxxxxxxxx (Yoshinari NOMURA) さんの、
"Tue, 18 May 1999 09:39:30 +0900" にだした、
「[mhc:00027] Re: 1.94b23 」というメールにて…… :

> > 御礼は、mscan2 に --tomorrow オプションがつくと嬉しいです。
> > ＃--date=("today"|"tomorrow"|yy/mm/dd)
> なるほど。情報工学演習でも聞きながらでもやってみましょう。

まだ仕様も決まってないですが、
勝手にこれに合わせて today をいじってみました。
＃ 当然、動作確認などはしていない、というか、できませんが。

$BINMAIL ですが、私の /usr/bin/mail は、
Header 部が Body として送られるみたいなので、
imput を使うようにしています。
というか、imput をデフォルトにした方が幸せな気もします。

あと、$USER も使うようにしています。


ところで、mhc でスケジュールを表示する際、
message buffer (？) で、X-SC-Subject: や Subject: が JIS なので、
化けてしまうのですが、これは私だけの問題でしょうか？

----
OHARA Shigeki (大原重樹) <os@xxxxxxxxx>

#!/usr/local/bin/perl

$BINMAIL = 'imput';
$NKF     = 'nkf';
$MSCAN2  = 'mscan2';
$USER    = $ENV{'USER'} || $ENV{'LOGNAME'};

($sec, $min, $hour, $day, $mon, $year) = localtime(time);
$year += 1900; $mon++;

foreach (@ARGV) {
    $tilltomorrow = 1 if (/^--tilltomorrow$/);
    $address = $1 if (/^--mail=(.+)/);
}

$schedule = `$MSCAN2 --today=on --date=today`;
$schedule2 = `$MSCAN2 --today=on --date=tomorrow` if ($tilltomorrow);

exit(0) if (($schedule eq '') && ($schedule2 eq ''));

if ($address){
    open(STDOUT, "| $NKF -j | $BINMAIL $address");
    select STDOUT; $| = 1;

    print "To: $address\n";
    print "From: secretary-of-$address\n";
    print "Subject: Today's schedule ($year-$mon-$day).\n";
    print "\n";
    print "${USER}'s schedule ($year-$mon-$day):\n\n";
} else {
    open(STDOUT, "| $NKF -j");
}

print $schedule if ($schedule);

if ($schedule2) {
    print "\nTomorrow ... :\n\n";
    print $schedule2;
}

close(STDOUT);

exit 0;