[LON-CAPA-cvs] cvs: loncom /build CHECKRPMS
harris41
lon-capa-cvs@mail.lon-capa.org
Mon, 09 Sep 2002 15:04:48 -0000
This is a MIME encoded message
--harris411031583888
Content-Type: text/plain
harris41 Mon Sep 9 11:04:48 2002 EDT
Modified files:
/loncom/build CHECKRPMS
Log:
BUG 718 FIX; BUG 730 FIX; BUG 731 FIX
cronmail mode supported; html output mode supported; view mode supported;
interactive mode supported (view then ask if user wants to download);
download mode supported; redownload mode supported (for dialup connections)
--harris411031583888
Content-Type: text/plain
Content-Disposition: attachment; filename="harris41-20020909110448.txt"
Index: loncom/build/CHECKRPMS
diff -u loncom/build/CHECKRPMS:1.6 loncom/build/CHECKRPMS:1.7
--- loncom/build/CHECKRPMS:1.6 Thu Sep 5 17:17:31 2002
+++ loncom/build/CHECKRPMS Mon Sep 9 11:04:48 2002
@@ -8,11 +8,20 @@
=head1 SYNOPSIS
-./CHECKRPMS
+./B<CHECKRPMS> [I<modeflag>]
or
-perl CHECKRPMS
+B<perl> B<CHECKRPMS> [I<modeflag>]
+
+If I<modeflag> is left blank, the mode is "interactive". Otherwise,
+other modes can be specified as shown in the listing below:
+
+=over 4
+
+
+
+=back
=head1 DESCRIPTION
@@ -50,39 +59,55 @@
=cut
-# =================================================== READ IN COMMAND ARGUMENTS
+# ================================================== 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($out
+ '**** 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 =
(
- 'mirror.pa.msu.edu/linux/redhat/linux/updates/',
- 'rufus.w3.org/linux/redhat/linux/updates/',
'distro.ibiblio.org/pub/linux/distributions/redhat/updates/',
+ 'mirror.pa.msu.edu/linux/redhat/linux/updates/',
'limestone.uoregon.edu/redhat/updates/',
+ 'rufus.w3.org/linux/redhat/linux/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.
+# -------------------------------------------- Use check-rpms command this way.
my $checkcommand = 'check-rpms '.$download.' --rpmuser www -ftp';
my $FTPSERVER; # ------------------------- the server portion of the serverpath
@@ -91,6 +116,29 @@
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 +146,148 @@
}
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.
+ print($out "Trying $FTPSERVER...\n"); # Notify of attempts with 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.
+ 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 +296,100 @@
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);
+ }
+
--harris411031583888--