loncom/build/CHECKRPMS.default - diff

Return to CHECKRPMS.default CVS log

Up to [LON-CAPA] / loncom / build

version 1.11, 2002/11/15 18:42:34	version 1.14, 2003/01/27 00:47:19
Line 195 SERVERLOOP: foreach my $serverpath (@ser	Line 195 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 345 sub clean_exit
}	}

# Send the e-mail.	# Send the e-mail.
system(	my $date = `date +"\%e"`; # Always send a day after the "Ides" or after
'metasend -b -t '.$emailto.' -s '.	# the beginning of a month. (In other words,
"'$subj' -f /tmp/CHECKRPMS.$$ -m text/plain");	# send an e-mail every two weeks regardless.)
	if (!$reallygoodoutput or
	$date == 2 or
	$date == 16)
	{
	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.