--- loncom/build/Attic/CHECKRPMS.default 2002/09/05 21:17:31 1.6 +++ loncom/build/Attic/CHECKRPMS.default 2002/12/11 18:28:30 1.12 @@ -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 +# ' stupid emacs +# ================================================== READ IN COMMAND ARGUMENTS. + # ---------------------------------------------------- Process download option. -my $download=shift(@ARGV); -if ($download eq '--download' or $download eq '--redownload') +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` if $download eq '--download'; + `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 +# ================================================== GENERAL INITIAL VARIABLES. +my $command_name=$0; + # ---------------- 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/', - '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/', + 'rufus.w3.org/linux/redhat/linux/updates/', ); -# --------------------------------------------------- Determine RedHat version. -my $RHversion = (split /\s/, `cat /etc/redhat-release`)[4]; # - 6.2 or 7.3 or ? - - # ------------------------------------------- Use check-rpms command this way. +# -------------------------------------------- Use check-rpms command this way. my $checkcommand = 'check-rpms '.$download.' --rpmuser www -ftp'; my $FTPSERVER; # ------------------------- the server portion of the serverpath @@ -91,6 +120,29 @@ 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') { @@ -98,112 +150,151 @@ if (-e './check-rpms') } elsif (-e 'loncom/build/check-rpms') { - $commandpre='perl loncom/build/'; # Use check-rpms int he loncom/build dir. + $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. { - die("**** ERROR **** CANNOT FIND THE check-rpms SCRIPT\n"); + terminate($mode,$out, + '**** ERROR **** CANNOT FIND THE check-rpms SCRIPT'."\n"); } -# Define the overall check-rpms invocation based on the path to the check-rpms -# command. +# Define 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. +# ============================================================= Initial output. + +print($out < + + + +CHECKRPMS STATUS REPORT + + +

CHECKRPMS STATUS REPORT

+
+
+END
+
 # Notify user of current action.
-print(</dev/null`; # Ping ftp server (are you out there?).
+    $FTPSERVER_noauth=$FTPSERVER;
+    $FTPSERVER_noauth=~s/^.*?\@//;
+    print($out
+	  "Trying $FTPSERVER_noauth...\n"); # Notify of attempts with ip name.
+    `ping -c 1 $FTPSERVER_noauth 2>/dev/null`; # Ping ftp server (you there?).
     if ($?==0) # If the ftp server can be pinged.
       {
-	print "$FTPSERVER found...\n"; # Tell user the ftp server is found.
+	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($checkcommand.' '.$FTPUPDATES."\n");
-	    if ($download) # Was CHECKRPMS run in download mode?
+	    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('**** NOTE **** '.
+		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(`$checkcommand $FTPUPDATES 2>\&1`);
+		print($out `$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'.
+		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");
-		exit(0); # Assume everything is okay and exit.
+		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/) # 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);
+		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 "...strange error, moving on ($FTPSERVER)\n";
+		print($out "...strange error, moving on ($FTPSERVER)\n");
 	      }
 	    else # --------------------------------------- the output is "good"
 	      {
 		$goodoutput=$rpmtext;
 		unless (@rpms) # If there are no RPMs to update.
 		  {
-		    $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);
+  }
+