[mhc:00052] Re: mhc on windows(Meadow-1.01)

[OHARA Shigeki <os@xxxxxxxxx>]

大原です。

nom@xxxxxxxxxxxxxxxxxxx (Yoshinari NOMURA) さんの、
"Tue, 25 May 1999 19:39:29 +0900" にだした、
「[mhc:00050] Re: mhc on windows(Meadow-1.01)」というメールにて…… :

> 思ったんですが、today も mscan2 も、もはや nkf は要らないんじゃ
> ないかという気がします。(実は昔 EUC で Mail/ を持っていた頃の名残。)

ですね。私の手元にも、euc や sjis が入ってるのは無いみたいですし。
というわけで、「今日の today」を添付します。


ところで、話は変わりますが、
「編集中のスケジュールの破棄」というコマンドはありますか？

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

#!/usr/local/bin/perl

$BINMAIL = 'imput';
$MSCAN2  = 'mscan2';
#$USER    = 'user';

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

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

$USER = $USER ||
    $ENV{'USERNAME'} || $ENV{'USER'} || $ENV{'LOGNAME'} || $address;

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

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

if ($address) {
    open(STDOUT, "| $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";
}

print $schedule if ($schedule);

if ($schedule2) {
    ($schedule) ? print "\n" : print "Tomorrow ... :\n\n";
    print $schedule2;
}

close(STDOUT);

exit 0;