[BACK]Return to CHECKRPMS.default CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / build

Diff for /loncom/build/Attic/CHECKRPMS.default between versions 1.1 and 1.3

version 1.1, 2002/05/01 17:01:18 version 1.3, 2002/08/12 17:22:04
Line 1 Line 1
 #!/usr/bin/perl  #!/usr/bin/perl
   
 my $RHversion = (split /\s/, `cat /etc/redhat-release`)[4];  =pod
 my $FTPSERVER;  
 `ping -q -c 1 mirror.pa.msu.edu 2>/dev/null`;  =head1 NAME
 if (!$FTPSERVER and $?==0) {  
     `ncftpls ftp://mirror.pa.msu.edu`;  B<CHECKRPMS> - automated status report about RPMs on a system
     if ($?==0) {  
  $FTPSERVER="mirror.pa.msu.edu";  =head1 SYNOPSIS
    $FTPUPDATES="mirror.pa.msu.edu/linux/redhat/linux/updates/$RHversion/en/os";  
     }  ./CHECKRPMS
   
   or
   
   perl CHECKRPMS
   
   =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.
   
   =head2 Future directions
   
   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:
   
   =over 4
   
   =item *
   
   Do you want to (D)ownload or (A)utoupdate the RPMs
   in the list above?
   
   =item *
   
   Specify a download location for the RPMs
   (default=/tmp/update_my_rpms/)?
   
   =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 AUTHOR
   
   Scott Harrison, sharrison@users.sourceforge.net, 2002
   
   =cut
   
   # =================================================== 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/',
   );
   
   my $RHversion = (split /\s/, `cat /etc/redhat-release`)[4]; # - 6.2 or 7.3 or ?
   my $checkcommand='check-rpms -ftp '; # -------- use check-rpms command this way
   
   my $FTPSERVER; # ------------------------- the server portion of the serverpath
   my $FTPUPDATES; # ----------------------------- the actual update root location
   my @rpms; # ---------------------------------- this will store the list of RPMs
   my $goodoutput; # ------------------------------------ good stuff was returned!
   my $reallygoodoutput; # ------------------------------- you are 100% up-to-date
   
   # ----------------------------------------- Find the check-rpms script location
   if (-e './check-rpms') {
       $commandpre='perl ./';
   }
   elsif (-e 'loncom/build/check-rpms') {
       $commandpre='perl loncom/build/';
 }  }
 `ping -q -c 1 rufus.w3.org 2>/dev/null`;  else {
 if (!$FTPSERVER and $?==0) {      die("**** ERROR **** CANNOT FIND THE check-rpms SCRIPT\n");
     `ncftpls ftp://rufus.w3.org`;  }
   
   $checkcommand=$commandpre.$checkcommand;
   
   # =============== Go through all the servers until a decent connection is found
   print(<<END);
   THIS SCRIPT IS NOW PROBING SEVERAL FTP SERVERS....
   PLEASE BE PATIENT, THIS MAY TAKE A FEW MINUTES.
   END
   
   SERVERLOOP: foreach my $serverpath (@serverpaths_to_try) {
       $serverpath=~/^(.*?)\//;
       $FTPSERVER=$1;
       print "Trying $FTPSERVER...\n";
       `ping -q -c 1 $FTPSERVER 2>/dev/null`;
     if ($?==0) {      if ($?==0) {
  $FTPSERVER="rufus.w3.org";   `ncftpls ftp://$FTPSERVER`;
  $FTPUPDATES="rufus.w3.org/linux/redhat/updates/$RHversion/en/os";   if ($?==0) {
       $FTPUPDATES="$serverpath$RHversion/en/os";
       print "$checkcommand $FTPUPDATES\n";
       @rpms=`$checkcommand $FTPUPDATES`;
       my $rpmtext=join('',@rpms);
       if ($rpmtext=~/This account is currently not/) { # ---------- uh-oh
    print "...strange error, moving on ($FTPSERVER)\n";
       }
       else { # ------------------------------------- the output is "good"
    $goodoutput=$rpmtext;
    unless (@rpms) {
       $reallygoodoutput=<<END;
   **** NOTE **** All RPMS on your system appear to be up to date.
   END
    }
    last SERVERLOOP;
       }
    }
    print "...cannot establish an ftp session with $FTPSERVER\n";
       }
       else {
    print "...cannot find $FTPSERVER on the network\n";
     }      }
 }  }
 if (!$FTPSERVER) {  if (!$goodoutput) {
     print "Cannot find a working ftp server.\n";      print "**** ERROR **** Cannot find a working ftp server.\n";
       exit(1);
 }  }
 print "Using $FTPSERVER for ftp transaction...(please be patient)\n";  elsif ($reallygoodoutput) {
 my @rpms=`perl loncom/build/check-rpms -ftp $FTPUPDATES`;      print $reallygoodoutput;
 if (@rpms) {  }
     my $rpm_count=scalar(@rpms);  else {
       my $rpmcount=scalar(@rpms);
     print(<<END);      print(<<END);
 **** WARNING **** You need to update at least $rpm_count RPMS shown in    **** WARNING **** You need to update at least $rpmcount RPMS shown in
 the list below.  THIS IS IMPORTANT FOR SECURITY.  the list below.  THIS IS IMPORTANT FOR SECURITY.
   
 END  END
     print join("\n",map {chomp;$_} @rpms)."\n";      print $goodoutput;
     print(<<END);      print(<<END);
   
 Please visit ftp://$FTPUPDATES  Please visit ftp://$FTPUPDATES
Line 39  For instructions on working with (and up Line 142  For instructions on working with (and up
 visit http://www.rpm.org/max-rpm/.  visit http://www.rpm.org/max-rpm/.
 END  END
 }  }
 else {  
     print(<<END);  
 **** NOTE **** All RPMS on your system appear to be up to date.  
 END  
 }  
Removed from v.1.1  
changed lines
  Added in v.1.3

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