version 1.9, 2002/11/04 01:51:49
|
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 72 if ($argument eq '--download' or $argume
|
Line 73 if ($argument eq '--download' or $argume
|
{ |
{ |
if ($< != 0) # Download mode requires 'root'. |
if ($< != 0) # Download mode requires 'root'. |
{ |
{ |
print($out |
print( |
'**** ERROR **** Download mode needs to be run as root'."\n"); |
'**** ERROR **** Download mode needs to be run as root'."\n"); |
exit(0); # Exit. |
exit(0); # Exit. |
} |
} |
Line 321 sub clean_exit
|
Line 322 sub clean_exit
|
if ($mode eq 'cronmail') # If cronmail mode, then mail LON-CAPA sys admin. |
if ($mode eq 'cronmail') # If cronmail mode, then mail LON-CAPA sys admin. |
{ |
{ |
close(FOUT); |
close(FOUT); |
|
|
# Read in configuration to get e-mail addresses. |
# Read in configuration to get e-mail addresses. |
my $perlvarref = read_conf('loncapa.conf'); |
my $perlvarref = read_conf('loncapa.conf'); |
my %perlvar = %{$perlvarref}; |
my %perlvar = %{$perlvarref}; |
Line 330 sub clean_exit
|
Line 332 sub clean_exit
|
|
|
# Set metadata for the e-mail. |
# Set metadata for the e-mail. |
my $emailto = "$perlvar{'lonAdmEMail'},$perlvar{'lonSysEMail'}"; |
my $emailto = "$perlvar{'lonAdmEMail'},$perlvar{'lonSysEMail'}"; |
# my $emailto = "sharrison\@users.sourceforge.net"; |
|
my $subj="LON: $perlvar{'lonHostID'}, RPMS to upgrade"; |
my $subj=$perlvar{'lonHostID'}.', RPMS to upgrade'; |
system( |
|
'metasend -b -t '.$emailto.' -s '. |
# Make the e-mail's subject header to describe whether up-to-date. |
"'$subj' -f /tmp/CHECKRPMS.$$ -m text/plain"); |
if ($reallygoodoutput) |
|
{ |
|
$subj = 'happy_lon: '.$subj; # Machine is up-to-date. |
|
} |
|
else |
|
{ |
|
$subj = 'ALERT_lon: '.$subj; # There are out-of-date RPMs. |
|
} |
|
|
|
# Send the e-mail. |
|
if (!$reallygoodoutput) |
|
{ |
|
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. |