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

[albertel]

albertel		Wed Dec 11 13:28:30 2002 EDT

  Modified files:              
    /loncom/build	CHECKRPMS 
  Log:
  
  - suprressing the happy_lon emails (BUG#1048)
  
  
Index: loncom/build/CHECKRPMS
diff -u loncom/build/CHECKRPMS:1.11 loncom/build/CHECKRPMS:1.12
--- loncom/build/CHECKRPMS:1.11	Fri Nov 15 13:42:34 2002
+++ loncom/build/CHECKRPMS	Wed Dec 11 13:28:30 2002
@@ -62,6 +62,7 @@
 
 =cut
 
+# ' stupid emacs
 # ================================================== READ IN COMMAND ARGUMENTS.
 
 # ---------------------------------------------------- Process download option.
@@ -345,9 +346,12 @@
 	  }
 
 	# Send the e-mail.
-	system(
-	       'metasend -b -t '.$emailto.' -s '.
-	       "'$subj' -f /tmp/CHECKRPMS.$$ -m text/plain");
+        if (!$reallygoodoutput)
+	  {
+	    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.