loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.545.2.2, 2004/10/12 20:26:48	version 1.545.2.3, 2004/10/12 20:37:04
Line 116 sub logperm {	Line 116 sub logperm {
# -------------------------------------------------- Non-critical communication	# -------------------------------------------------- Non-critical communication
sub subreply {	sub subreply {
my ($cmd,$server)=@_;	my ($cmd,$server)=@_;
my $t0_f=[&Time::HiRes::gettimeofday()];
my $peerfile="$perlvar{'lonSockDir'}/$server";	my $peerfile="$perlvar{'lonSockDir'}/$server";
my $client=IO::Socket::UNIX->new(Peer =>"$peerfile",	my $client=IO::Socket::UNIX->new(Peer =>"$peerfile",
Type => SOCK_STREAM,	Type => SOCK_STREAM,
Line 126 sub subreply {	Line 125 sub subreply {
my $answer=<$client>;	my $answer=<$client>;
if (!$answer) { $answer="con_lost"; }	if (!$answer) { $answer="con_lost"; }
chomp($answer);	chomp($answer);
my $td=&Time::HiRes::tv_interval($t0_f);
&Apache::lonnet::logthis("\n $td seconds for $cmd");
return $answer;	return $answer;
}	}