version 1.11, 2002/11/15 18:42:34
|
version 1.12, 2002/12/11 18:28:30
|
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 345 sub clean_exit
|
Line 346 sub clean_exit
|
} |
} |
|
|
# Send the e-mail. |
# Send the e-mail. |
system( |
if (!$reallygoodoutput) |
'metasend -b -t '.$emailto.' -s '. |
{ |
"'$subj' -f /tmp/CHECKRPMS.$$ -m text/plain"); |
system( |
|
'metasend -b -t '.$emailto.' -s '. |
|
"'$subj' -f /tmp/CHECKRPMS.$$ -m text/plain"); |
|
} |
} |
} |
|
|
print($out <<END) if $mode eq 'html'; # If html mode, print ending tags. |
print($out <<END) if $mode eq 'html'; # If html mode, print ending tags. |