[LON-CAPA-cvs] cvs: loncom /build CHECKRPMS

[harris41]

harris41		Sun Jan 26 19:47:19 2003 EDT

  Modified files:              
    /loncom/build	CHECKRPMS 
  Log:
  positive results are useful... this is a short-term stop-gap beep-bop hoe-down
  flim-flam solution until the great federated lon-capa system status monitor
  gets developed
  
  
Index: loncom/build/CHECKRPMS
diff -u loncom/build/CHECKRPMS:1.13 loncom/build/CHECKRPMS:1.14
--- loncom/build/CHECKRPMS:1.13	Wed Dec 18 09:37:45 2002
+++ loncom/build/CHECKRPMS	Sun Jan 26 19:47:19 2003
@@ -62,7 +62,6 @@
 
 =cut
 
-# ' stupid emacs
 # ================================================== READ IN COMMAND ARGUMENTS.
 
 # ---------------------------------------------------- Process download option.
@@ -346,7 +345,12 @@
 	  }
 
 	# 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 '.