version 1.1, 2002/11/22 19:10:20
|
version 1.2, 2002/12/18 14:39:03
|
Line 128 my $command_name=$0;
|
Line 128 my $command_name=$0;
|
# ---------------- The FTP servers (and their directory paths) to check against |
# ---------------- The FTP servers (and their directory paths) to check against |
my @serverpaths_to_try = |
my @serverpaths_to_try = |
( |
( |
'ftpmirror:loncapa@install.lon-capa.org/pub/redhat/linux/updates/', |
|
'mirror.pa.msu.edu/linux/redhat/linux/updates/', |
'mirror.pa.msu.edu/linux/redhat/linux/updates/', |
'distro.ibiblio.org/pub/linux/distributions/redhat/updates/', |
'distro.ibiblio.org/pub/linux/distributions/redhat/updates/', |
'limestone.uoregon.edu/redhat/updates/', |
'limestone.uoregon.edu/redhat/updates/', |
Line 212 SERVERLOOP: foreach my $serverpath (@ser
|
Line 211 SERVERLOOP: foreach my $serverpath (@ser
|
$FTPSERVER_noauth=~s/^.*?\@//; |
$FTPSERVER_noauth=~s/^.*?\@//; |
print($out |
print($out |
"Trying $FTPSERVER_noauth...\n"); # Notify of attempts with ip name. |
"Trying $FTPSERVER_noauth...\n"); # Notify of attempts with ip name. |
`ping -c 1 $FTPSERVER_noauth 2>/dev/null`; # Ping ftp server (you there?). |
`ping -c 1 -w 10 $FTPSERVER_noauth 2>/dev/null`;#Ping ftp server (u there?) |
if ($?==0) # If the ftp server can be pinged. |
if ($?==0) # If the ftp server can be pinged. |
{ |
{ |
print($out "$FTPSERVER found...\n"); # Tell user ftp server is found. |
print($out "$FTPSERVER found...\n"); # Tell user ftp server is found. |