--- loncom/build/Attic/CHECKRPMS.default	2002/11/15 18:42:34	1.11
+++ loncom/build/Attic/CHECKRPMS.default	2003/01/27 00:47:19	1.14
@@ -195,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.
@@ -345,9 +345,17 @@ sub clean_exit
 	  }
 
 	# Send the e-mail.
-	system(
-	       'metasend -b -t '.$emailto.' -s '.
-	       "'$subj' -f /tmp/CHECKRPMS.$$ -m text/plain");
+	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 '.
+		   "'$subj' -f /tmp/CHECKRPMS.$$ -m text/plain");
+	  }
       }
 
     print($out <<END) if $mode eq 'html'; # If html mode, print ending tags.