#!/usr/local/bin/perl

$USER = $ENV{'USER'};
$mscan = "/u/$USER/bin/mscan";
#$domain = "csce.kyushu-u.ac.jp";
$mail = "/bin/mail";

$today = `date +'%m  %d '`;
chop($today);

$schedule = `$mscan -today -squeeze -nonum`;

if ($schedule){
    open (STDOUT, "| $mail $USER") if ($ARGV[0] =~ /^-mail/);
    select STDOUT; $| = 1;
    print "To: $USER@$domain\n";
    print "From: secretary@$domain\n";
    print "Subject: Today's schedule.\n";
    print "\n";

    print "\n$USER κ ($today) ͽǤ\n\n";
    print "$schedule";
    close(STDOUT);
}
