Annotation of loncom/build/CHECKRPMS.default, revision 1.8

1.1       harris41    1: #!/usr/bin/perl
                      2: 
1.2       harris41    3: =pod
                      4: 
                      5: =head1 NAME
                      6: 
                      7: B<CHECKRPMS> - automated status report about RPMs on a system
                      8: 
                      9: =head1 SYNOPSIS
                     10: 
1.7       harris41   11: ./B<CHECKRPMS> [I<modeflag>]
1.2       harris41   12: 
                     13: or
                     14: 
1.7       harris41   15: B<perl> B<CHECKRPMS> [I<modeflag>]
                     16: 
                     17: If I<modeflag> is left blank, the mode is "interactive".  Otherwise,
                     18: other modes can be specified as shown in the listing below:
                     19: 
                     20: =over 4
                     21: 
1.8     ! harris41   22: =item DEFAULT
1.7       harris41   23: 
1.8     ! harris41   24: When left blank, the script runs in interactive mode.  First, a proposed
        !            25: list of RPMs is presented to the user.  Then, the user is asked if he or
        !            26: she wants to download the RPMs to /tmp/loncapa_rpm_updates/.
1.7       harris41   27: 
1.8     ! harris41   28: =item view
1.2       harris41   29: 
1.8     ! harris41   30: A proposed list of RPMs to update is presented to the user.
1.2       harris41   31: 
1.8     ! harris41   32: =item download
1.2       harris41   33: 
1.8     ! harris41   34: A proposed set of RPMs to update are downloaded into /tmp/loncapa_rpm_updates/.
        !            35: Note that prior information inside /tmp/loncapa_rpm_updates/ is removed.
1.2       harris41   36: 
1.8     ! harris41   37: =item redownload
1.2       harris41   38: 
1.8     ! harris41   39: A proposed set of RPMs to update are downloaded into /tmp/loncapa_rpm_updates/.
        !            40: Note that prior information inside /tmp/loncapa_rpm_updates/ is not removed.
        !            41: (This helps support continual attempts from dialup connections.)
1.2       harris41   42: 
1.8     ! harris41   43: =item html
1.2       harris41   44: 
1.8     ! harris41   45: Similar to view mode. XHTML-formatted output is delivered; presumably
        !            46: to a web client.  html mode is automatically chosen if $ENV{'QUERY_STRING'} is
        !            47: defined.
1.2       harris41   48: 
1.8     ! harris41   49: =back
1.2       harris41   50: 
1.8     ! harris41   51: =head1 DESCRIPTION
1.2       harris41   52: 
1.8     ! harris41   53: This file automates the usage of Martin Siegert's "check-rpms"
        !            54: script.  It runs through a list of possible mirror sites
        !            55: until it finds one with a reasonably good FTP connection.
1.2       harris41   56: 
1.8     ! harris41   57: For instructions on usage, see L<SYNOPSIS>.
1.2       harris41   58: 
                     59: =head1 AUTHOR
                     60: 
                     61: Scott Harrison, sharrison@users.sourceforge.net, 2002
                     62: 
                     63: =cut
                     64: 
1.7       harris41   65: # ================================================== READ IN COMMAND ARGUMENTS.
                     66: 
1.4       harris41   67: # ---------------------------------------------------- Process download option.
1.7       harris41   68: my $argument = shift(@ARGV);
                     69: my $document;
                     70: my $mode;
                     71: if ($argument eq '--download' or $argument eq '--redownload')
1.4       harris41   72:   {
                     73:     if ($< != 0) # Download mode requires 'root'.
                     74:       {
1.7       harris41   75:         print($out
                     76: 	      '**** ERROR **** Download mode needs to be run as root'."\n");
                     77: 	exit(0); # Exit.
1.4       harris41   78:       }
1.7       harris41   79:     `rm -Rf /tmp/loncapa_rpm_updates` if $argument eq '--download';
1.4       harris41   80:     $download='-v -dl -d /tmp/loncapa_rpm_updates'; # Part of check-rpms args.
1.7       harris41   81:     $mode = 'download';
                     82:   }
                     83: elsif ($argument eq '--view')
                     84:   {
                     85:     $mode = 'view';
                     86:   }
                     87: elsif ($argument eq '--cronmail')
                     88:   {
                     89:     $mode = 'cronmail';
                     90:   }
                     91: elsif ($ENV{'QUERY_STRING'} or $argument eq '--html')
                     92:   {
                     93:     $mode = 'html';
1.4       harris41   94:   }
                     95: else
                     96:   {
1.7       harris41   97:     $mode = 'interactive';
1.4       harris41   98:   }
                     99: 
1.7       harris41  100: # ================================================== GENERAL INITIAL VARIABLES.
                    101: my $command_name=$0;
                    102: 
1.2       harris41  103: # ---------------- The FTP servers (and their directory paths) to check against
1.5       harris41  104: my @serverpaths_to_try = 
                    105:   (
1.7       harris41  106:     'distro.ibiblio.org/pub/linux/distributions/redhat/updates/',
1.5       harris41  107:     'mirror.pa.msu.edu/linux/redhat/linux/updates/',
1.7       harris41  108:     'limestone.uoregon.edu/redhat/updates/',
1.5       harris41  109:     'rufus.w3.org/linux/redhat/linux/updates/',
                    110:     'opnsrc.support.compaq.com/linux/redhat/updates.redhat.com/',
                    111:   );
1.2       harris41  112: 
1.7       harris41  113: # -------------------------------------------- Use check-rpms command this way.
1.5       harris41  114: my $checkcommand = 'check-rpms '.$download.' --rpmuser www -ftp';
1.2       harris41  115: 
                    116: my $FTPSERVER; # ------------------------- the server portion of the serverpath
                    117: my $FTPUPDATES; # ----------------------------- the actual update root location
                    118: my @rpms; # ---------------------------------- this will store the list of RPMs
                    119: my $goodoutput; # ------------------------------------ good stuff was returned!
                    120: my $reallygoodoutput; # ------------------------------- you are 100% up-to-date
                    121: 
1.7       harris41  122: # ===================================================== Control flow of output.
                    123: my $out = \*STDOUT; # Default: go to standard output (directly to terminal).
                    124: 
                    125: if ($mode eq 'cronmail') # If cronmail mode, then save to file.
                    126:   {
                    127:     open(FOUT,'>/tmp/CHECKRPMS.'.$$);
                    128:     $out = \*FOUT;
                    129:   }
                    130: 
                    131: $| = 1; # Flush to output whenever possible.
                    132: 
                    133: # ========================================== Variables that must be defineable.
                    134: 
                    135: # --------------------------------------------------- Determine RedHat version.
                    136: my $RHversion = (split /\s/, `cat /etc/redhat-release`)[4]; # - 6.2 or 7.3 or ?
                    137: 
                    138: unless ($RHversion)
                    139:   {
                    140:     terminate($mode,$out,
                    141: 	      '**** ERROR **** /etc/redhat-release not found'."\n".
                    142: 	      'This script does not appear to be running on RedHat.'."\n");
                    143:   }
                    144: 
1.2       harris41  145: # ----------------------------------------- Find the check-rpms script location
1.5       harris41  146: if (-e './check-rpms')
                    147:   {
                    148:     $commandpre='perl ./'; # Use the check-rpms in the current directory.
                    149:   }
                    150: elsif (-e 'loncom/build/check-rpms')
                    151:   {
1.7       harris41  152:     $commandpre='perl loncom/build/'; # Use check-rpms in the loncom/build dir.
                    153:   }
                    154: elsif (-e '/usr/local/loncapa/bin/check-rpms')
                    155:   {
                    156:     $commandpre='perl /usr/local/loncapa/bin/'; # Use /usr/local dir.
1.5       harris41  157:   }
                    158: else # Cannot find check-rpms, so abort.
                    159:   {
1.7       harris41  160:     terminate($mode,$out,
                    161: 	      '**** ERROR **** CANNOT FIND THE check-rpms SCRIPT'."\n");
1.5       harris41  162:   }
1.2       harris41  163: 
1.7       harris41  164: # Define check-rpms invocation based on the path to the check-rpms command.
1.5       harris41  165: $checkcommand = $commandpre.$checkcommand;
1.2       harris41  166: 
1.7       harris41  167: # ============================================================= Initial output.
                    168: 
                    169: print($out <<END) if $mode eq 'html';
                    170: <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
                    171:  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
                    172: <html>
                    173: <head>
                    174: <meta http-equiv="Content-Type" content="text/html; charset=utf-8"></meta>
                    175: <title>CHECKRPMS STATUS REPORT</title>
                    176: </head>
                    177: <body bgcolor="white">
                    178: <h1>CHECKRPMS STATUS REPORT</h1>
                    179: <hr />
                    180: <pre>
                    181: END
                    182: 
1.5       harris41  183: # Notify user of current action.
1.7       harris41  184: print($out <<END);
1.2       harris41  185: THIS SCRIPT IS NOW PROBING SEVERAL FTP SERVERS....
                    186: PLEASE BE PATIENT, THIS MAY TAKE A FEW MINUTES.
                    187: END
                    188: 
1.7       harris41  189: # ============== Go through all the servers until a decent connection is found.
1.5       harris41  190: SERVERLOOP: foreach my $serverpath (@serverpaths_to_try)
                    191:   {
                    192:     $serverpath=~/^(.*?)\//; # Pattern match the ip name.
                    193:     $FTPSERVER=$1; # Set to the ip name.
1.7       harris41  194:     print($out "Trying $FTPSERVER...\n"); # Notify of attempts with ip name.
1.5       harris41  195:     `ping -c 1 $FTPSERVER 2>/dev/null`; # Ping ftp server (are you out there?).
                    196:     if ($?==0) # If the ftp server can be pinged.
                    197:       {
1.7       harris41  198: 	print($out "$FTPSERVER found...\n"); # Tell user ftp server is found.
1.5       harris41  199: 	`ncftpls ftp://$FTPSERVER`; # Try to access server with ftp protocol.
                    200: 	if ($?==0) # If the ftp server can be accessed with the ftp protocol.
                    201:           {
                    202: 	    $FTPUPDATES="$serverpath$RHversion/en/os"; # The full update path.
                    203: 	    # Print the check-rpms command that will be executed.
1.7       harris41  204: 	    print($out $checkcommand.' '.$FTPUPDATES."\n");
                    205: 	    if ($mode eq 'download') # Was CHECKRPMS run in download mode?
1.5       harris41  206:               {
                    207: 		$|=1; # Try to send things immediately to stdout; err umm....
                    208: 		# Tell the user about the /tmp/loncapa_rpm_updates directory.
1.7       harris41  209: 		print($out '**** NOTE **** '.
1.5       harris41  210: 		      'To check the status of the download, you can '.
                    211: 		      'periodically inspect the contents of the '.
                    212: 		      '/tmp/loncapa_rpm_updates directory.  '.
                    213: 		      'Please be patient; this download may take a while.'.
                    214: 		      "\n");
                    215: 		# Do the download.
1.7       harris41  216: 		print($out `$checkcommand $FTPUPDATES 2>\&1`);
1.5       harris41  217: 		# Tell the user about what action they need to take with the
                    218: 		# downloaded RPMs.
1.7       harris41  219: 		print($out
                    220: 		      'You may now wish to visit the /tmp/loncapa_rpm_updates'.
1.5       harris41  221: 		      ' directory and upgrade the RPMs.  '."\n".
                    222: 		      'If this is a critical server (it is currently being'.
                    223: 		      ' used for classes) and you do not know how to upgrade'.
                    224: 		      ' RPMs, you should consult someone who has experience '.
                    225: 		      'with the "rpm" command.'."\n");
1.7       harris41  226: 		clean_exit($mode,$out,0); # Assume everything is okay and exit.
1.5       harris41  227: 	      }
                    228: 	    @rpms=`$checkcommand $FTPUPDATES 2>\&1`; # Read in list of RPMs.
                    229: 	    # Create a text string that can be pattern matched.
1.2       harris41  230: 	    my $rpmtext=join('',@rpms);
1.5       harris41  231: 	    if ($rpmtext=~/You do not seem to have a/) # No www?
                    232:               {
1.7       harris41  233: 		print($out "You do not have a 'www' user on your system.\n".
                    234: 		      "Please add this user and try this command again.\n");
                    235: 		clean_exit($mode,$out,0);
1.5       harris41  236: 	      }
                    237: 	    if ($rpmtext=~/This account is currently not/) # ------------ uh-oh
                    238: 	      {
1.7       harris41  239: 		print($out "...strange error, moving on ($FTPSERVER)\n");
1.5       harris41  240: 	      }
                    241: 	    else # --------------------------------------- the output is "good"
                    242: 	      {
1.2       harris41  243: 		$goodoutput=$rpmtext;
1.5       harris41  244: 		unless (@rpms) # If there are no RPMs to update.
                    245: 		  {
1.7       harris41  246: 		    $reallygoodoutput = <<END;
1.2       harris41  247: **** NOTE **** All RPMS on your system appear to be up to date.
                    248: END
1.7       harris41  249:                     $goodoutput = ' ';
1.5       harris41  250: 		  }
1.2       harris41  251: 		last SERVERLOOP;
1.5       harris41  252: 	      }
                    253: 	  }
1.7       harris41  254: 	print($out '...cannot establish an ftp session with '.$FTPSERVER."\n");
1.5       harris41  255:       }
                    256:     else
                    257:       {
1.7       harris41  258: 	print($out "...cannot find $FTPSERVER on the network\n");
1.5       harris41  259:       }
                    260:   }
                    261: if (!$goodoutput) # If never received any useable output, assume "no server".
                    262:   {
1.7       harris41  263:     print($out '**** ERROR **** Cannot find a working ftp server.'."\n");
                    264:     clean_exit($mode,$out,0);
1.5       harris41  265:   }
                    266: elsif ($reallygoodoutput) # Everything is peachy keen and up-to-date already.
                    267:   {
1.7       harris41  268:     print($out $reallygoodoutput);
1.5       harris41  269:   }
                    270: else # There are RPMs that need to be updated; show list to user.
                    271:   {
                    272:     my $rpmcount=scalar(@rpms); # Count up size of RPM list.
1.7       harris41  273:     print($out <<END); # Print out an advisory warning to user.
1.4       harris41  274: **** WARNING **** You need to update at least $rpmcount RPMS shown in
1.1       harris41  275: the list below.  THIS IS IMPORTANT FOR SECURITY.
                    276: 
                    277: END
1.7       harris41  278:     print($out $goodoutput); # Output the RPM list.
                    279:     if ($mode eq 'interactive')
                    280:       {
                    281: 	print($out <<END);
                    282: Do you want to download the RPMs listed above (y/n)?
                    283: END
                    284:         my $in=<>;
                    285: 	if ($in=~/^y/)
                    286: 	  {
                    287:             print($out 'Please be patient... downloading into '.
                    288: 		  '/tmp/loncapa_rpm_updates'."\n");
                    289:             print($out `perl $command_name --download`);
                    290:             clean_exit($mode,$out,0);
                    291: 	  }
                    292:       }
                    293:     print($out <<END); # Output instructions to user about taking action.
1.1       harris41  294: 
                    295: Please visit ftp://$FTPUPDATES
                    296: and download the RPMS you need.
                    297: For instructions on working with (and upgrading) RPMS, please
                    298: visit http://www.rpm.org/max-rpm/.
1.4       harris41  299: To automatically download these RPMs to /tmp/loncapa_rpm_updates/,
                    300: run the CHECKRPMS command as "./CHECKRPMS --download"
1.1       harris41  301: END
1.7       harris41  302:     if ($mode eq 'cronmail')
                    303:       {
                    304: 	print($out <<END); # Output more instructions to user.
                    305: CHECKRPMS should be located in /usr/local/loncapa/bin/.
                    306: END
                    307:       }
                    308:   }
                    309: 
                    310: clean_exit($mode,$out,0);
                    311: 
                    312: # ================================================================ Subroutines.
                    313: 
                    314: sub clean_exit
                    315:   {
                    316:     my ($mode,$out,$code)=@_;
                    317: 
                    318:     if ($mode eq 'cronmail') # If cronmail mode, then mail LON-CAPA sys admin.
                    319:       {
                    320:         close(FOUT);
                    321: 	# Read in configuration to get e-mail addresses.
                    322: 	my $perlvarref = read_conf('loncapa.conf');
                    323: 	my %perlvar = %{$perlvarref};
                    324: 	undef $perlvarref;
                    325: 	delete $perlvar{'lonReceipt'}; # remove since sensitive
                    326: 	delete $perlvar{'lonSqlAccess'}; # remove since sensitive
                    327: 
                    328: 	# Set metadata for the e-mail.
                    329:         my $emailto = "$perlvar{'lonAdmEMail'},$perlvar{'lonSysEMail'}";
                    330: #	my $emailto = "sharrison\@users.sourceforge.net";
                    331: 	my $subj="LON: $perlvar{'lonHostID'}, RPMS to upgrade";
                    332: 	system(
                    333: 	       'metasend -b -t '.$emailto.' -s '.
                    334: 	       "'$subj' -f /tmp/CHECKRPMS.$$ -m text/plain");
                    335:       }
                    336: 
                    337:     print($out <<END) if $mode eq 'html'; # If html mode, print ending tags.
                    338: </pre>
                    339: </body>
                    340: </html>
                    341: END
                    342:     exit($code);
1.5       harris41  343:   }
1.7       harris41  344: 
                    345: sub terminate
                    346:   {
                    347:     my ($mode,$out,$output);
                    348:     if ($mode eq 'html')
                    349:       {
                    350:         print($out <<END);
                    351: <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
                    352:  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
                    353: <html>
                    354: <head>
                    355: <meta http-equiv="Content-Type" content="text/html; charset=utf-8"></meta>
                    356: <title>CHECKRPMS ERROR</title>
                    357: </head>
                    358: <body bgcolor="white">
                    359: <h1>CHECKRPMS ERROR</h1>
                    360: <hr />
                    361: <p><font color="red"><font size="+1">
                    362: END
                    363:       }
                    364:     print($out $output);
                    365:     if ($mode eq 'html')
                    366:       {
                    367:         print($out <<END);
                    368: </font></font></p></body></html>
                    369: END
                    370:       }
                    371:   }
                    372: 
                    373: 
                    374: # - read_conf: read LON-CAPA server configuration, especially PerlSetVar values
                    375: sub read_conf
                    376:   {
                    377:     my (@conf_files)=@_;
                    378:     my %perlvar;
                    379:     my $confdir='/etc/httpd/conf/';
                    380:     foreach my $filename (@conf_files,'loncapa_apache.conf')
                    381:       {
                    382: 	open(CONFIG,'<'.$confdir.$filename) or
                    383: 	    die("Can't read $confdir$filename");
                    384: 	while (my $configline=<CONFIG>)
                    385: 	  {
                    386: 	    if ($configline =~ /^[^\#]*PerlSetVar/)
                    387: 	      {
                    388: 		my ($unused,$varname,$varvalue)=split(/\s+/,$configline);
                    389: 		chomp($varvalue);
                    390: 		$perlvar{$varname}=$varvalue;
                    391: 	      }
                    392: 	  }
                    393: 	close(CONFIG);
                    394:       }
                    395:     my $perlvarref=\%perlvar;
                    396:     return ($perlvarref);
                    397:   }
                    398: 

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>