--- loncom/build/Attic/CHECKRPMS.default	2002/05/01 17:01:18	1.1
+++ loncom/build/Attic/CHECKRPMS.default	2002/09/05 18:09:54	1.5
@@ -1,46 +1,215 @@
 #!/usr/bin/perl
 
-my $RHversion = (split /\s/, `cat /etc/redhat-release`)[4];
-my $FTPSERVER;
-`ping -q -c 1 mirror.pa.msu.edu 2>/dev/null`;
-if (!$FTPSERVER and $?==0) {
-    `ncftpls ftp://mirror.pa.msu.edu`;
-    if ($?==0) {
-	$FTPSERVER="mirror.pa.msu.edu";
-   $FTPUPDATES="mirror.pa.msu.edu/linux/redhat/linux/updates/$RHversion/en/os";
-    }
-}
-`ping -q -c 1 rufus.w3.org 2>/dev/null`;
-if (!$FTPSERVER and $?==0) {
-    `ncftpls ftp://rufus.w3.org`;
-    if ($?==0) {
-	$FTPSERVER="rufus.w3.org";
-	$FTPUPDATES="rufus.w3.org/linux/redhat/updates/$RHversion/en/os";
-    }
-}
-if (!$FTPSERVER) {
-    print "Cannot find a working ftp server.\n";
-}
-print "Using $FTPSERVER for ftp transaction...(please be patient)\n";
-my @rpms=`perl loncom/build/check-rpms -ftp $FTPUPDATES`;
-if (@rpms) {
-    my $rpm_count=scalar(@rpms);
-    print(<<END);
-**** WARNING **** You need to update at least $rpm_count RPMS shown in 
+=pod
+
+=head1 NAME
+
+B<CHECKRPMS> - automated status report about RPMs on a system
+
+=head1 SYNOPSIS
+
+./CHECKRPMS
+
+or
+
+perl CHECKRPMS
+
+=head1 DESCRIPTION
+
+This file automates the usage of Martin Siegert's "check-rpms"
+script.  It runs through a list of possible mirror sites
+until it finds one with a reasonably good FTP connection.
+
+=head2 Future directions
+
+Eventually, this script may have a simple argument format
+that allows the user to VIEW, DOWNLOAD, or AUTOUPDATE their
+computer.  Or, this script may evolve into an interactive
+series of steps:  For example, there may be questions like this:
+
+=over 4
+
+=item *
+
+Do you want to (D)ownload or (A)utoupdate the RPMs
+in the list above?
+
+=item *
+
+Specify a download location for the RPMs
+(default=/tmp/update_my_rpms/)?
+
+=back
+
+Note that there are no current plans to automate a software upgrade of the
+kernel.  This step should be performed by a qualified system administrator.
+
+=head1 AUTHOR
+
+Scott Harrison, sharrison@users.sourceforge.net, 2002
+
+=cut
+
+# =================================================== READ IN COMMAND ARGUMENTS
+# ---------------------------------------------------- Process download option.
+my $download=shift(@ARGV);
+if ($download eq '--download')
+  {
+    if ($< != 0) # Download mode requires 'root'.
+      {
+        print('**** ERROR **** Download mode needs to be run as root'."\n");
+	exit(1); # Exit with error status.
+      }
+    `rm -Rf /tmp/loncapa_rpm_updates`;
+    $download='-v -dl -d /tmp/loncapa_rpm_updates'; # Part of check-rpms args.
+  }
+else
+  {
+    $download='';
+  }
+
+# =================================================== GENERAL INITIAL VARIABLES
+# ---------------- The FTP servers (and their directory paths) to check against
+my @serverpaths_to_try = 
+  (
+    'mirror.pa.msu.edu/linux/redhat/linux/updates/',
+    'rufus.w3.org/linux/redhat/linux/updates/',
+    'distro.ibiblio.org/pub/linux/distributions/redhat/updates/',
+    'limestone.uoregon.edu/redhat/updates/',
+    'opnsrc.support.compaq.com/linux/redhat/updates.redhat.com/',
+  );
+
+# --------------------------------------------------- Determine RedHat version.
+my $RHversion = (split /\s/, `cat /etc/redhat-release`)[4]; # - 6.2 or 7.3 or ?
+
+ # ------------------------------------------- Use check-rpms command this way.
+my $checkcommand = 'check-rpms '.$download.' --rpmuser www -ftp';
+
+my $FTPSERVER; # ------------------------- the server portion of the serverpath
+my $FTPUPDATES; # ----------------------------- the actual update root location
+my @rpms; # ---------------------------------- this will store the list of RPMs
+my $goodoutput; # ------------------------------------ good stuff was returned!
+my $reallygoodoutput; # ------------------------------- you are 100% up-to-date
+
+# ----------------------------------------- Find the check-rpms script location
+if (-e './check-rpms')
+  {
+    $commandpre='perl ./'; # Use the check-rpms in the current directory.
+  }
+elsif (-e 'loncom/build/check-rpms')
+  {
+    $commandpre='perl loncom/build/'; # Use check-rpms int he loncom/build dir.
+  }
+else # Cannot find check-rpms, so abort.
+  {
+    die("**** ERROR **** CANNOT FIND THE check-rpms SCRIPT\n");
+  }
+
+# Define the overall check-rpms invocation based on the path to the check-rpms
+# command.
+$checkcommand = $commandpre.$checkcommand;
+
+# ============== Go through all the servers until a decent connection is found.
+# Notify user of current action.
+print(<<END);
+THIS SCRIPT IS NOW PROBING SEVERAL FTP SERVERS....
+PLEASE BE PATIENT, THIS MAY TAKE A FEW MINUTES.
+END
+
+SERVERLOOP: foreach my $serverpath (@serverpaths_to_try)
+  {
+    $serverpath=~/^(.*?)\//; # Pattern match the ip name.
+    $FTPSERVER=$1; # Set to the ip name.
+    print "Trying $FTPSERVER...\n"; # Notify user of attempts with the ip name.
+    `ping -c 1 $FTPSERVER 2>/dev/null`; # Ping ftp server (are you out there?).
+    if ($?==0) # If the ftp server can be pinged.
+      {
+	print "$FTPSERVER found...\n"; # Tell user the ftp server is found.
+	`ncftpls ftp://$FTPSERVER`; # Try to access server with ftp protocol.
+	if ($?==0) # If the ftp server can be accessed with the ftp protocol.
+          {
+	    $FTPUPDATES="$serverpath$RHversion/en/os"; # The full update path.
+	    # Print the check-rpms command that will be executed.
+	    print($checkcommand.' '.$FTPUPDATES."\n");
+	    if ($download) # Was CHECKRPMS run in download mode?
+              {
+		$|=1; # Try to send things immediately to stdout; err umm....
+		# Tell the user about the /tmp/loncapa_rpm_updates directory.
+		print('**** NOTE ****'.
+		      'To check the status of the download, you can '.
+		      'periodically inspect the contents of the '.
+		      '/tmp/loncapa_rpm_updates directory.  '.
+		      'Please be patient; this download may take a while.'.
+		      "\n");
+		# Do the download.
+		print(`$checkcommand $FTPUPDATES 2>\&1`);
+		# Tell the user about what action they need to take with the
+		# downloaded RPMs.
+		print('You may now wish to visit the /tmp/loncapa_rpm_updates'.
+		      ' directory and upgrade the RPMs.  '."\n".
+		      'If this is a critical server (it is currently being'.
+		      ' used for classes) and you do not know how to upgrade'.
+		      ' RPMs, you should consult someone who has experience '.
+		      'with the "rpm" command.'."\n");
+		exit(0); # Assume everything is okay and exit.
+	      }
+	    @rpms=`$checkcommand $FTPUPDATES 2>\&1`; # Read in list of RPMs.
+	    # Create a text string that can be pattern matched.
+	    my $rpmtext=join('',@rpms);
+	    if ($rpmtext=~/You do not seem to have a/) # No www?
+              {
+		print "You do not have a 'www' user on your system.\n".
+		    "Please add this user and try this command again.\n";
+		exit(1);
+	      }
+	    if ($rpmtext=~/This account is currently not/) # ------------ uh-oh
+	      {
+		print "...strange error, moving on ($FTPSERVER)\n";
+	      }
+	    else # --------------------------------------- the output is "good"
+	      {
+		$goodoutput=$rpmtext;
+		unless (@rpms) # If there are no RPMs to update.
+		  {
+		    $reallygoodoutput=<<END;
+**** NOTE **** All RPMS on your system appear to be up to date.
+END
+		  }
+		last SERVERLOOP;
+	      }
+	  }
+	print('...cannot establish an ftp session with '.$FTPSERVER."\n");
+      }
+    else
+      {
+	print "...cannot find $FTPSERVER on the network\n";
+      }
+  }
+if (!$goodoutput) # If never received any useable output, assume "no server".
+  {
+    print "**** ERROR **** Cannot find a working ftp server.\n";
+    exit(1);
+  }
+elsif ($reallygoodoutput) # Everything is peachy keen and up-to-date already.
+  {
+    print $reallygoodoutput;
+  }
+else # There are RPMs that need to be updated; show list to user.
+  {
+    my $rpmcount=scalar(@rpms); # Count up size of RPM list.
+    print(<<END); # Print out an advisory warning to user.
+**** WARNING **** You need to update at least $rpmcount RPMS shown in
 the list below.  THIS IS IMPORTANT FOR SECURITY.
 
 END
-    print join("\n",map {chomp;$_} @rpms)."\n";
-    print(<<END);
+    print $goodoutput; # Output the RPM list.
+    print(<<END); # Output instructions to user about taking action.
 
 Please visit ftp://$FTPUPDATES
 and download the RPMS you need.
 For instructions on working with (and upgrading) RPMS, please
 visit http://www.rpm.org/max-rpm/.
+To automatically download these RPMs to /tmp/loncapa_rpm_updates/,
+run the CHECKRPMS command as "./CHECKRPMS --download"
 END
-}
-else {
-    print(<<END);
-**** NOTE **** All RPMS on your system appear to be up to date.
-END
-}
+  }