--- loncom/build/Attic/CHECKRPMS.default	2003/01/27 00:47:19	1.14
+++ loncom/build/Attic/CHECKRPMS.default	2003/07/30 16:49:27	1.17
@@ -111,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
@@ -119,6 +119,8 @@ my @rpms; # ----------------------------
 my $goodoutput; # ------------------------------------ good stuff was returned!
 my $reallygoodoutput; # ------------------------------- you are 100% up-to-date
 
+my $simplestatus='time='.time.'&';
+
 # ===================================================== Control flow of output.
 my $out = \*STDOUT; # Default: go to standard output (directly to terminal).
 
@@ -264,11 +266,13 @@ END
 if (!$goodoutput) # If never received any useable output, assume "no server".
   {
     print($out '**** ERROR **** Cannot find a working ftp server.'."\n");
+    $simplestatus.='status=fail';
     clean_exit($mode,$out,0);
   }
 elsif ($reallygoodoutput) # Everything is peachy keen and up-to-date already.
   {
     print($out $reallygoodoutput);
+    $simplestatus.='status=okay';
   }
 else # There are RPMs that need to be updated; show list to user.
   {
@@ -279,6 +283,7 @@ the list below.  THIS IS IMPORTANT FOR S
 
 END
     print($out $goodoutput); # Output the RPM list.
+    $simplestatus.='status=okay&rpmcount='.$rpmcount;
     if ($mode eq 'interactive')
       {
 	print($out <<END);
@@ -317,7 +322,15 @@ clean_exit($mode,$out,0);
 sub clean_exit
   {
     my ($mode,$out,$code)=@_;
-
+#
+# Store simple status
+#
+    open(SMP,'>/home/httpd/html/lon-status/checkrpms.txt');
+    print SMP $simplestatus."\n";
+    close(SMP);
+#
+# Mail
+#
     if ($mode eq 'cronmail') # If cronmail mode, then mail LON-CAPA sys admin.
       {
         close(FOUT);
@@ -330,7 +343,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';