Return to CHECKRPMS.default CVS log

Up to [LON-CAPA] / loncom / build

a top-level vanilla wrapper script

    1: #!/usr/bin/perl
    2: 
    3: my $RHversion = (split /\s/, `cat /etc/redhat-release`)[4];
    4: my $FTPSERVER;
    5: `ping -q -c 1 mirror.pa.msu.edu 2>/dev/null`;
    6: if (!$FTPSERVER and $?==0) {
    7:     `ncftpls ftp://mirror.pa.msu.edu`;
    8:     if ($?==0) {
    9: 	$FTPSERVER="mirror.pa.msu.edu";
   10:    $FTPUPDATES="mirror.pa.msu.edu/linux/redhat/linux/updates/$RHversion/en/os";
   11:     }
   12: }
   13: `ping -q -c 1 rufus.w3.org 2>/dev/null`;
   14: if (!$FTPSERVER and $?==0) {
   15:     `ncftpls ftp://rufus.w3.org`;
   16:     if ($?==0) {
   17: 	$FTPSERVER="rufus.w3.org";
   18: 	$FTPUPDATES="rufus.w3.org/linux/redhat/updates/$RHversion/en/os";
   19:     }
   20: }
   21: if (!$FTPSERVER) {
   22:     print "Cannot find a working ftp server.\n";
   23: }
   24: print "Using $FTPSERVER for ftp transaction...(please be patient)\n";
   25: my @rpms=`perl loncom/build/check-rpms -ftp $FTPUPDATES`;
   26: if (@rpms) {
   27:     my $rpm_count=scalar(@rpms);
   28:     print(<<END);
   29: **** WARNING **** You need to update at least $rpm_count RPMS shown in 
   30: the list below.  THIS IS IMPORTANT FOR SECURITY.
   31: 
   32: END
   33:     print join("\n",map {chomp;$_} @rpms)."\n";
   34:     print(<<END);
   35: 
   36: Please visit ftp://$FTPUPDATES
   37: and download the RPMS you need.
   38: For instructions on working with (and upgrading) RPMS, please
   39: visit http://www.rpm.org/max-rpm/.
   40: END
   41: }
   42: else {
   43:     print(<<END);
   44: **** NOTE **** All RPMS on your system appear to be up to date.
   45: END
   46: }