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.11 and 1.13

version 1.11, 2002/11/15 18:42:34	version 1.13, 2002/12/18 14:37:45
Line 62 Scott Harrison, sharrison@users.sourcefo	Line 62 Scott Harrison, sharrison@users.sourcefo

=cut	=cut

	# ' stupid emacs
# ================================================== READ IN COMMAND ARGUMENTS.	# ================================================== READ IN COMMAND ARGUMENTS.

# ---------------------------------------------------- Process download option.	# ---------------------------------------------------- Process download option.
Line 195 SERVERLOOP: foreach my $serverpath (@ser	Line 196 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.
Line 345 sub clean_exit	Line 346 sub clean_exit
}	}

# Send the e-mail.	# Send the e-mail.
system(	if (!$reallygoodoutput)
'metasend -b -t '.$emailto.' -s '.	{
"'$subj' -f /tmp/CHECKRPMS.$$ -m text/plain");	system(
	'metasend -b -t '.$emailto.' -s '.
	"'$subj' -f /tmp/CHECKRPMS.$$ -m text/plain");
	}
}	}

print($out <<END) if $mode eq 'html'; # If html mode, print ending tags.	print($out <<END) if $mode eq 'html'; # If html mode, print ending tags.

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

Removed from v.1.11
changed lines
	Added in v.1.13