[mhc:00129] Re: ソートするとメールが消えてしまいます

[OHARA Shigeki <oharakun@xxxxxxxxxxxx>]

大原＠自宅です。

＃ 自宅の Win98 マシンにも Mewdow & Mew & IM を入れてみました。

From: Satomi Suzuki <pan@xxxxxxxxxxxxxxx>
Subject: [mhc:00128] Re: ソートするとメールが消えてしまいます
Date: Sat, 26 Jun 1999 09:21:54 +0900

> 今、試してみましたが、やっぱり必要ないみたいですね(^^)v
> today_mail は作る必要はないですね。

この場合、メールが SJIS で送られてしまうような気がしますが、
大丈夫でしょうか？。


mscan2 が nkf を捨てた際に、today も nkf を捨てたんですが、
コマンドラインから起動する today は、
Windows ユーザの為に nkf と仲直りした方が良さそうですね。

というわけで、nkf と復縁した today です。
nkf が PATH に通っているひとは、
$KCONV のコメントアウトを外すと文字化けしません。

----
OHARA Shigeki (大原 重樹) <oharakun@xxxxxxxxxxxx>
＃ 実は、ActivePerl も Meadow も使うの今回が初めて。

#!/usr/local/bin/perl

$IMPUT  = 'imput';
$MSCAN2 = 'mscan2';
$PERL   = 'perl';    ## for only WIN95/98.
#$KCONV  = 'nkf -s';  ## for only Win95/98.
#$USER   = 'user';

$WIN = 1 if ($^O =~ /win/i);
$IMPUT  = "$PERL -S $IMPUT" if ($WIN);
#$MSCAN2 = "$PERL -S $MSCAN2" if ($WIN);

($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;

if ($WIN) {
    $schedule  = `$PERL -S $MSCAN2 --date=today`;
    $schedule2 = `$PERL -S $MSCAN2 --date=tomorrow` if ($tilltomorrow);
} else {
    $schedule  = `$MSCAN2 --date=today`;
    $schedule2 = `$MSCAN2 --date=tomorrow` if ($tilltomorrow);
}

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

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

print $schedule if ($schedule);

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

close(STDOUT);

exit 0;