version 1.13, 2002/12/18 14:37:45
|
version 1.14, 2003/01/27 00:47:19
|
Line 62 Scott Harrison, sharrison@users.sourcefo
|
Line 62 Scott Harrison, sharrison@users.sourcefo
|
|
|
=cut |
=cut |
|
|
# ' stupid emacs |
|
# ================================================== READ IN COMMAND ARGUMENTS. |
# ================================================== READ IN COMMAND ARGUMENTS. |
|
|
# ---------------------------------------------------- Process download option. |
# ---------------------------------------------------- Process download option. |
Line 346 sub clean_exit
|
Line 345 sub clean_exit
|
} |
} |
|
|
# Send the e-mail. |
# Send the e-mail. |
if (!$reallygoodoutput) |
my $date = `date +"\%e"`; # Always send a day after the "Ides" or after |
|
# the beginning of a month. (In other words, |
|
# send an e-mail every two weeks regardless.) |
|
if (!$reallygoodoutput or |
|
$date == 2 or |
|
$date == 16) |
{ |
{ |
system( |
system( |
'metasend -b -t '.$emailto.' -s '. |
'metasend -b -t '.$emailto.' -s '. |