[LON-CAPA-cvs] cvs: loncom /build CHECKRPMS

harris41 lon-capa-cvs@mail.lon-capa.org
Mon, 04 Nov 2002 01:51:49 -0000


harris41		Sun Nov  3 20:51:49 2002 EDT

  Modified files:              
    /loncom/build	CHECKRPMS 
  Log:
  BUG 814 FIXED; set up a dedicated rpm update mirror for the exclusive
  use of machines on the lon-capa network
  
  
Index: loncom/build/CHECKRPMS
diff -u loncom/build/CHECKRPMS:1.8 loncom/build/CHECKRPMS:1.9
--- loncom/build/CHECKRPMS:1.8	Mon Sep  9 11:17:05 2002
+++ loncom/build/CHECKRPMS	Sun Nov  3 20:51:49 2002
@@ -103,11 +103,11 @@
 # ---------------- The FTP servers (and their directory paths) to check against
 my @serverpaths_to_try = 
   (
-    'distro.ibiblio.org/pub/linux/distributions/redhat/updates/',
+    'ftpmirror:loncapa@install.lon-capa.org/pub/redhat/linux/updates/',
     'mirror.pa.msu.edu/linux/redhat/linux/updates/',
+    'distro.ibiblio.org/pub/linux/distributions/redhat/updates/',
     'limestone.uoregon.edu/redhat/updates/',
     'rufus.w3.org/linux/redhat/linux/updates/',
-    'opnsrc.support.compaq.com/linux/redhat/updates.redhat.com/',
   );
 
 # -------------------------------------------- Use check-rpms command this way.
@@ -191,8 +191,11 @@
   {
     $serverpath=~/^(.*?)\//; # Pattern match the ip name.
     $FTPSERVER=$1; # Set to 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?).
+    $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($out "$FTPSERVER found...\n"); # Tell user ftp server is found.