--- loncom/build/Attic/CHECKRPMS.default	2002/12/11 18:28:30	1.12
+++ 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
@@ -196,7 +195,7 @@ SERVERLOOP: foreach my $serverpath (@ser
     $FTPSERVER_noauth=~s/^.*?\@//;
     print($out
 	  "Trying $FTPSERVER_noauth...\n"); # Notify of attempts with ip name.
-    `ping -c 1 $FTPSERVER_noauth 2>/dev/null`; # Ping ftp server (you there?).
+    `ping -c 1 -w 10 $FTPSERVER_noauth 2>/dev/null`;#Ping ftp server (u there?)
     if ($?==0) # If the ftp server can be pinged.
       {
 	print($out "$FTPSERVER found...\n"); # Tell user ftp server is found.
@@ -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 '.