--- loncom/build/Attic/CHECKRPMS.default	2002/11/04 01:51:49	1.9
+++ loncom/build/Attic/CHECKRPMS.default	2002/12/11 18:28:30	1.12
@@ -62,6 +62,7 @@ Scott Harrison, sharrison@users.sourcefo
 
 =cut
 
+# ' stupid emacs
 # ================================================== READ IN COMMAND ARGUMENTS.
 
 # ---------------------------------------------------- Process download option.
@@ -72,7 +73,7 @@ if ($argument eq '--download' or $argume
   {
     if ($< != 0) # Download mode requires 'root'.
       {
-        print($out
+        print(
 	      '**** ERROR **** Download mode needs to be run as root'."\n");
 	exit(0); # Exit.
       }
@@ -321,6 +322,7 @@ sub clean_exit
     if ($mode eq 'cronmail') # If cronmail mode, then mail LON-CAPA sys admin.
       {
         close(FOUT);
+
 	# Read in configuration to get e-mail addresses.
 	my $perlvarref = read_conf('loncapa.conf');
 	my %perlvar = %{$perlvarref};
@@ -330,11 +332,26 @@ sub clean_exit
 
 	# Set metadata for the e-mail.
         my $emailto = "$perlvar{'lonAdmEMail'},$perlvar{'lonSysEMail'}";
-#	my $emailto = "sharrison\@users.sourceforge.net";
-	my $subj="LON: $perlvar{'lonHostID'}, RPMS to upgrade";
-	system(
-	       'metasend -b -t '.$emailto.' -s '.
-	       "'$subj' -f /tmp/CHECKRPMS.$$ -m text/plain");
+
+	my $subj=$perlvar{'lonHostID'}.', RPMS to upgrade';
+
+	# Make the e-mail's subject header to describe whether up-to-date.
+	if ($reallygoodoutput)
+	  {
+	    $subj = 'happy_lon: '.$subj; # Machine is up-to-date.
+	  }
+	else
+	  {
+	    $subj = 'ALERT_lon: '.$subj; # There are out-of-date RPMs.
+	  }
+
+	# Send the e-mail.
+        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.