loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.853, 2007/03/28 20:28:31	version 1.854, 2007/03/28 21:44:13
Line 53 use Digest::MD5;	Line 53 use Digest::MD5;
use Math::Random;	use Math::Random;
use LONCAPA qw(:DEFAULT :match);	use LONCAPA qw(:DEFAULT :match);
use LONCAPA::Configuration;	use LONCAPA::Configuration;
	use Apache::lonhosts;

my $readit;	my $readit;
my $max_connection_retries = 10; # Or some such value.	my $max_connection_retries = 10; # Or some such value.
Line 150 sub create_connection {	Line 151 sub create_connection {
Type => SOCK_STREAM,	Type => SOCK_STREAM,
Timeout => 10);	Timeout => 10);
return 0 if (!$client);	return 0 if (!$client);
print $client ("$hostname:$lonid\n");	print $client (join(':',$hostname,$lonid,&machine_ids($lonid))."\n");
my $result = <$client>;	my $result = <$client>;
chomp($result);	chomp($result);
return 1 if ($result eq 'done');	return 1 if ($result eq 'done');