--- loncom/build/Attic/CHECKRPMS.default 2002/09/05 18:09:54 1.5 +++ loncom/build/Attic/CHECKRPMS.default 2002/11/04 01:51:49 1.9 @@ -8,41 +8,53 @@ B<CHECKRPMS> - automated status report a =head1 SYNOPSIS -./CHECKRPMS +./B<CHECKRPMS> [I<modeflag>] or -perl CHECKRPMS +B<perl> B<CHECKRPMS> [I<modeflag>] -=head1 DESCRIPTION +If I<modeflag> 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<SYNOPSIS>. =head1 AUTHOR @@ -50,39 +62,55 @@ 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($out + '**** 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 +# ================================================== 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 +119,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 +149,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 <<END) if $mode eq 'html'; +<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" + "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> +<html> +<head> +<meta http-equiv="Content-Type" content="text/html; charset=utf-8"></meta> +<title>CHECKRPMS STATUS REPORT</title> +</head> +<body bgcolor="white"> +<h1>CHECKRPMS STATUS REPORT</h1> +<hr /> +<pre> +END + # Notify user of current action. -print(<<END); +print($out <<END); THIS SCRIPT IS NOW PROBING SEVERAL FTP SERVERS.... PLEASE BE PATIENT, THIS MAY TAKE A FEW MINUTES. END +# ============== 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. - 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?). + $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=<<END; + $reallygoodoutput = <<END; **** NOTE **** All RPMS on your system appear to be up to date. END + $goodoutput = ' '; } last SERVERLOOP; } } - print('...cannot establish an ftp session with '.$FTPSERVER."\n"); + print($out '...cannot establish an ftp session with '.$FTPSERVER."\n"); } else { - print "...cannot find $FTPSERVER on the network\n"; + print($out "...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); + print($out '**** ERROR **** Cannot find a working ftp server.'."\n"); + clean_exit($mode,$out,0); } elsif ($reallygoodoutput) # Everything is peachy keen and up-to-date already. { - print $reallygoodoutput; + print($out $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. + print($out <<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 $goodoutput; # Output the RPM list. - print(<<END); # Output instructions to user about taking action. + print($out $goodoutput); # Output the RPM list. + if ($mode eq 'interactive') + { + print($out <<END); +Do you want to download the RPMs listed above (y/n)? +END + my $in=<>; + 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); # Output instructions to user about taking action. Please visit ftp://$FTPUPDATES and download the RPMS you need. @@ -212,4 +302,100 @@ 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 + if ($mode eq 'cronmail') + { + print($out <<END); # Output more instructions to user. +CHECKRPMS should be located in /usr/local/loncapa/bin/. +END + } } + +clean_exit($mode,$out,0); + +# ================================================================ Subroutines. + +sub clean_exit + { + my ($mode,$out,$code)=@_; + + 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}; + undef $perlvarref; + delete $perlvar{'lonReceipt'}; # remove since sensitive + delete $perlvar{'lonSqlAccess'}; # remove since sensitive + + # 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"); + } + + print($out <<END) if $mode eq 'html'; # If html mode, print ending tags. +</pre> +</body> +</html> +END + exit($code); + } + +sub terminate + { + my ($mode,$out,$output); + if ($mode eq 'html') + { + print($out <<END); +<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" + "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> +<html> +<head> +<meta http-equiv="Content-Type" content="text/html; charset=utf-8"></meta> +<title>CHECKRPMS ERROR</title> +</head> +<body bgcolor="white"> +<h1>CHECKRPMS ERROR</h1> +<hr /> +<p><font color="red"><font size="+1"> +END + } + print($out $output); + if ($mode eq 'html') + { + print($out <<END); +</font></font></p></body></html> +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=<CONFIG>) + { + if ($configline =~ /^[^\#]*PerlSetVar/) + { + my ($unused,$varname,$varvalue)=split(/\s+/,$configline); + chomp($varvalue); + $perlvar{$varname}=$varvalue; + } + } + close(CONFIG); + } + my $perlvarref=\%perlvar; + return ($perlvarref); + } +