[mhc:00139] Re: 0.21b1

[OHARA Shigeki <os@xxxxxxxxx>]

大原です。

nom@xxxxxxxxxxxxxxxxxxx (Yoshinari NOMURA) さんの、
"Thu, 8 Jul 1999 13:04:57 +0900" にだした、
「[mhc:00135] 0.21b1」というメールにて…… :

> を 00usage.jis で紹介してあるのですが、いいでしょうか。
> まずかったら教えて下さい。正式版では外します。

ということなのですが、すいません、今回は外しておいて下さい。

別のサイトにページを持つ予定があるので、
そちらの方の URL が決まり次第公開したいと思っています。
＃はうンの一味になるらしい……。


ところで、[mhc:00097] からのスレッドで出ていた話ですが、
mscan2 のデフォルトを、
$PERL         = "perl";  ## Only Win95 needs this.
にしておいた方がトラブルが少ないと思います。


それと、以前のとあまり変わりありませんが、
nkf 対応(？)の today を添付します。


おまけ (スケジュールネタ) :
http://www.compaq.co.jp/solution/sc/bizport/
＃ i-mode 対応 web-mhc というのも面白いかも……。

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

#!/usr/local/bin/perl

$IMPUT  = 'imput';
$MSCAN2 = 'mscan2';
$PERL   = 'perl';    ## for only WIN95/98.
#$KCONV  = 'nkf -s';  ## convert to the code your *terminal* supports.
#$USER   = 'user';

$WIN = 1 if ($^O =~ /win/i);
$IMPUT  = "$PERL -S $IMPUT" 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 ($KCONV);
}

print $schedule if ($schedule);

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

close(STDOUT);

exit 0;