loncom/build/CHECKRPMS.default - diff

Return to CHECKRPMS.default CVS log

Up to [LON-CAPA] / loncom / build

Diff for /loncom/build/Attic/CHECKRPMS.default between versions 1.8 and 1.9

version 1.8, 2002/09/09 15:17:05	version 1.9, 2002/11/04 01:51:49
Line 103 my $command_name=$0;	Line 103 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 =
(	(
'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/',	'mirror.pa.msu.edu/linux/redhat/linux/updates/',
	'distro.ibiblio.org/pub/linux/distributions/redhat/updates/',
'limestone.uoregon.edu/redhat/updates/',	'limestone.uoregon.edu/redhat/updates/',
'rufus.w3.org/linux/redhat/linux/updates/',	'rufus.w3.org/linux/redhat/linux/updates/',
'opnsrc.support.compaq.com/linux/redhat/updates.redhat.com/',
);	);

# -------------------------------------------- Use check-rpms command this way.	# -------------------------------------------- Use check-rpms command this way.
Line 191 SERVERLOOP: foreach my $serverpath (@ser	Line 191 SERVERLOOP: foreach my $serverpath (@ser
{	{
$serverpath=~/^(.*?)\//; # Pattern match the ip name.	$serverpath=~/^(.*?)\//; # Pattern match the ip name.
$FTPSERVER=$1; # Set to the ip name.	$FTPSERVER=$1; # Set to the ip name.
print($out "Trying $FTPSERVER...\n"); # Notify of attempts with ip name.	$FTPSERVER_noauth=$FTPSERVER;
`ping -c 1 $FTPSERVER 2>/dev/null`; # Ping ftp server (are you out there?).	$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.	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.

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

Removed from v.1.8
changed lines
	Added in v.1.9