--- loncom/build/Attic/CHECKRPMS.default	2002/09/09 15:17:05	1.8
+++ loncom/build/Attic/CHECKRPMS.default	2002/11/04 01:51:49	1.9
@@ -103,11 +103,11 @@ my $command_name=$0;
 # ---------------- 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 @@ SERVERLOOP: foreach my $serverpath (@ser
   {
     $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.