--- loncom/build/Attic/CHECKRPMS.default 2002/12/18 14:37:45 1.13 +++ loncom/build/Attic/CHECKRPMS.default 2003/06/19 19:23:56 1.16 @@ -62,7 +62,6 @@ Scott Harrison, sharrison@users.sourcefo =cut -# ' stupid emacs # ================================================== READ IN COMMAND ARGUMENTS. # ---------------------------------------------------- Process download option. @@ -112,7 +111,7 @@ my @serverpaths_to_try = ); # -------------------------------------------- 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 $FTPUPDATES; # ----------------------------- the actual update root location @@ -331,7 +330,7 @@ sub clean_exit delete $perlvar{'lonSqlAccess'}; # remove since sensitive # Set metadata for the e-mail. - my $emailto = "$perlvar{'lonAdmEMail'},$perlvar{'lonSysEMail'}"; + my $emailto = "$perlvar{'lonAdmEMail'}"; my $subj=$perlvar{'lonHostID'}.', RPMS to upgrade'; @@ -346,7 +345,12 @@ sub clean_exit } # 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( 'metasend -b -t '.$emailto.' -s '.