--- loncom/build/Attic/CHECKRPMS.default 2002/09/05 17:36:39 1.4 +++ loncom/build/Attic/CHECKRPMS.default 2003/01/27 00:47:19 1.14 @@ -8,41 +8,53 @@ B - automated status report a =head1 SYNOPSIS -./CHECKRPMS +./B [I] or -perl CHECKRPMS +B B [I] -=head1 DESCRIPTION +If I is left blank, the mode is "interactive". Otherwise, +other modes can be specified as shown in the listing below: -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. +=over 4 -=head2 Future directions +=item DEFAULT -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: +When left blank, the script runs in interactive mode. First, a proposed +list of RPMs is presented to the user. Then, the user is asked if he or +she wants to download the RPMs to /tmp/loncapa_rpm_updates/. -=over 4 +=item view -=item * +A proposed list of RPMs to update is presented to the user. -Do you want to (D)ownload or (A)utoupdate the RPMs -in the list above? +=item download -=item * +A proposed set of RPMs to update are downloaded into /tmp/loncapa_rpm_updates/. +Note that prior information inside /tmp/loncapa_rpm_updates/ is removed. -Specify a download location for the RPMs -(default=/tmp/update_my_rpms/)? +=item redownload + +A proposed set of RPMs to update are downloaded into /tmp/loncapa_rpm_updates/. +Note that prior information inside /tmp/loncapa_rpm_updates/ is not removed. +(This helps support continual attempts from dialup connections.) + +=item html + +Similar to view mode. XHTML-formatted output is delivered; presumably +to a web client. html mode is automatically chosen if $ENV{'QUERY_STRING'} is +defined. =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 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. + +For instructions on usage, see L. =head1 AUTHOR @@ -50,39 +62,56 @@ Scott Harrison, sharrison@users.sourcefo =cut -# =================================================== READ IN COMMAND ARGUMENTS +# ================================================== READ IN COMMAND ARGUMENTS. + # ---------------------------------------------------- Process download option. -my $download=shift(@ARGV); -if ($download eq '--download') +my $argument = shift(@ARGV); +my $document; +my $mode; +if ($argument eq '--download' or $argument eq '--redownload') { if ($< != 0) # Download mode requires 'root'. { - print('**** ERROR **** Download mode needs to be run as root'."\n"); - exit(1); # Exit with error status. + print( + '**** ERROR **** Download mode needs to be run as root'."\n"); + exit(0); # Exit. } - `rm -Rf /tmp/loncapa_rpm_updates`; + `rm -Rf /tmp/loncapa_rpm_updates` if $argument eq '--download'; $download='-v -dl -d /tmp/loncapa_rpm_updates'; # Part of check-rpms args. + $mode = 'download'; + } +elsif ($argument eq '--view') + { + $mode = 'view'; + } +elsif ($argument eq '--cronmail') + { + $mode = 'cronmail'; + } +elsif ($ENV{'QUERY_STRING'} or $argument eq '--html') + { + $mode = 'html'; } else { - $download=''; + $mode = 'interactive'; } -# =================================================== 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/', -); +# ================================================== GENERAL INITIAL VARIABLES. +my $command_name=$0; -# --------------------------------------------------- Determine RedHat version. -my $RHversion = (split /\s/, `cat /etc/redhat-release`)[4]; # - 6.2 or 7.3 or ? +# ---------------- The FTP servers (and their directory paths) to check against +my @serverpaths_to_try = + ( + 'ftpmirror:loncapa@install.lon-capa.org/pub/redhat/linux/updates/', + 'mirror.pa.msu.edu/linux/redhat/linux/updates/', + 'distro.ibiblio.org/pub/linux/distributions/redhat/updates/', + 'limestone.uoregon.edu/redhat/updates/', + 'rufus.w3.org/linux/redhat/linux/updates/', + ); - # ------------------------------------------- Use check-rpms command this way. -my $checkcommand='check-rpms '.$download.' --rpmuser www -ftp'; +# -------------------------------------------- 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 @@ -90,83 +119,181 @@ my @rpms; # ---------------------------- my $goodoutput; # ------------------------------------ good stuff was returned! my $reallygoodoutput; # ------------------------------- you are 100% up-to-date +# ===================================================== Control flow of output. +my $out = \*STDOUT; # Default: go to standard output (directly to terminal). + +if ($mode eq 'cronmail') # If cronmail mode, then save to file. + { + open(FOUT,'>/tmp/CHECKRPMS.'.$$); + $out = \*FOUT; + } + +$| = 1; # Flush to output whenever possible. + +# ========================================== Variables that must be defineable. + +# --------------------------------------------------- Determine RedHat version. +my $RHversion = (split /\s/, `cat /etc/redhat-release`)[4]; # - 6.2 or 7.3 or ? + +unless ($RHversion) + { + terminate($mode,$out, + '**** ERROR **** /etc/redhat-release not found'."\n". + 'This script does not appear to be running on RedHat.'."\n"); + } + # ----------------------------------------- Find the check-rpms script location -if (-e './check-rpms') { - $commandpre='perl ./'; -} -elsif (-e 'loncom/build/check-rpms') { - $commandpre='perl loncom/build/'; -} -else { - die("**** ERROR **** CANNOT FIND THE check-rpms SCRIPT\n"); -} +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 in the loncom/build dir. + } +elsif (-e '/usr/local/loncapa/bin/check-rpms') + { + $commandpre='perl /usr/local/loncapa/bin/'; # Use /usr/local dir. + } +else # Cannot find check-rpms, so abort. + { + terminate($mode,$out, + '**** ERROR **** CANNOT FIND THE check-rpms SCRIPT'."\n"); + } + +# Define check-rpms invocation based on the path to the check-rpms command. +$checkcommand = $commandpre.$checkcommand; -$checkcommand=$commandpre.$checkcommand; +# ============================================================= Initial output. -# =============== Go through all the servers until a decent connection is found -print(< + + + +CHECKRPMS STATUS REPORT + + +

CHECKRPMS STATUS REPORT

+
+
+END
+
+# Notify user of current action.
+print($out </dev/null`;
-    if ($?==0) {
-	print "$FTPSERVER found...\n";
-	`ncftpls ftp://$FTPSERVER`;
-	if ($?==0) {
-	    $FTPUPDATES="$serverpath$RHversion/en/os";
-	    print "$checkcommand $FTPUPDATES\n";
-	    if ($download) {
-		$|=1;
-		print `$checkcommand $FTPUPDATES 2>\&1`;
-		exit(0);
-	    }
-	    @rpms=`$checkcommand $FTPUPDATES 2>\&1`;
+# ============== Go through all the servers until a decent connection is found.
+SERVERLOOP: foreach my $serverpath (@serverpaths_to_try)
+  {
+    $serverpath=~/^(.*?)\//; # Pattern match the ip name.
+    $FTPSERVER=$1; # Set to the ip name.
+    $FTPSERVER_noauth=$FTPSERVER;
+    $FTPSERVER_noauth=~s/^.*?\@//;
+    print($out
+	  "Trying $FTPSERVER_noauth...\n"); # Notify of attempts with ip name.
+    `ping -c 1 -w 10 $FTPSERVER_noauth 2>/dev/null`;#Ping ftp server (u there?)
+    if ($?==0) # If the ftp server can be pinged.
+      {
+	print($out "$FTPSERVER found...\n"); # Tell user 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($out $checkcommand.' '.$FTPUPDATES."\n");
+	    if ($mode eq '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($out '**** 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($out `$checkcommand $FTPUPDATES 2>\&1`);
+		# Tell the user about what action they need to take with the
+		# downloaded RPMs.
+		print($out
+		      '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");
+		clean_exit($mode,$out,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/) {
-		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"
+	    if ($rpmtext=~/You do not seem to have a/) # No www?
+              {
+		print($out "You do not have a 'www' user on your system.\n".
+		      "Please add this user and try this command again.\n");
+		clean_exit($mode,$out,0);
+	      }
+	    if ($rpmtext=~/This account is currently not/) # ------------ uh-oh
+	      {
+		print($out "...strange error, moving on ($FTPSERVER)\n");
+	      }
+	    else # --------------------------------------- the output is "good"
+	      {
 		$goodoutput=$rpmtext;
-		unless (@rpms) {
-		    $reallygoodoutput=<;
+	if ($in=~/^y/)
+	  {
+            print($out 'Please be patient... downloading into '.
+		  '/tmp/loncapa_rpm_updates'."\n");
+            print($out `perl $command_name --download`);
+            clean_exit($mode,$out,0);
+	  }
+      }
+    print($out <
+
+
+END
+    exit($code);
+  }
+
+sub terminate
+  {
+    my ($mode,$out,$output);
+    if ($mode eq 'html')
+      {
+        print($out <
+
+
+
+CHECKRPMS ERROR
+
+
+
CHECKRPMS ERROR

+

+

+END
+      }
+    print($out $output);
+    if ($mode eq 'html')
+      {
+        print($out <

+END
+      }
+  }
+
+
+# - read_conf: read LON-CAPA server configuration, especially PerlSetVar values
+sub read_conf
+  {
+    my (@conf_files)=@_;
+    my %perlvar;
+    my $confdir='/etc/httpd/conf/';
+    foreach my $filename (@conf_files,'loncapa_apache.conf')
+      {
+	open(CONFIG,'<'.$confdir.$filename) or
+	    die("Can't read $confdir$filename");
+	while (my $configline=)
+	  {
+	    if ($configline =~ /^[^\#]*PerlSetVar/)
+	      {
+		my ($unused,$varname,$varvalue)=split(/\s+/,$configline);
+		chomp($varvalue);
+		$perlvar{$varname}=$varvalue;
+	      }
+	  }
+	close(CONFIG);
+      }
+    my $perlvarref=\%perlvar;
+    return ($perlvarref);
+  }
+