version 1.14, 2003/01/27 00:47:19
|
version 1.16, 2003/06/19 19:23:56
|
Line 111 my @serverpaths_to_try =
|
Line 111 my @serverpaths_to_try =
|
); |
); |
|
|
# -------------------------------------------- Use check-rpms command this way. |
# -------------------------------------------- Use check-rpms command this way. |
my $checkcommand = 'check-rpms '.$download.' --rpmuser www -ftp'; |
my $checkcommand = 'check-rpms -nk '.$download.' --rpmuser www -ftp'; |
|
|
my $FTPSERVER; # ------------------------- the server portion of the serverpath |
my $FTPSERVER; # ------------------------- the server portion of the serverpath |
my $FTPUPDATES; # ----------------------------- the actual update root location |
my $FTPUPDATES; # ----------------------------- the actual update root location |
Line 330 sub clean_exit
|
Line 330 sub clean_exit
|
delete $perlvar{'lonSqlAccess'}; # remove since sensitive |
delete $perlvar{'lonSqlAccess'}; # remove since sensitive |
|
|
# Set metadata for the e-mail. |
# Set metadata for the e-mail. |
my $emailto = "$perlvar{'lonAdmEMail'},$perlvar{'lonSysEMail'}"; |
my $emailto = "$perlvar{'lonAdmEMail'}"; |
|
|
my $subj=$perlvar{'lonHostID'}.', RPMS to upgrade'; |
my $subj=$perlvar{'lonHostID'}.', RPMS to upgrade'; |
|
|