loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.230, 2002/05/21 15:00:05	version 1.231, 2002/05/22 13:56:43
Line 77 use Apache::File;	Line 77 use Apache::File;
use LWP::UserAgent();	use LWP::UserAgent();
use HTTP::Headers;	use HTTP::Headers;
use vars	use vars
qw(%perlvar %hostname %homecache %badhomecache %hostip %spareid %hostdom	qw(%perlvar %hostname %homecache %badServerCache %hostip %spareid %hostdom
%libserv %pr %prp %metacache %packagetab	%libserv %pr %prp %metacache %packagetab
%courselogs %accesshash $processmarker $dumpcount	%courselogs %accesshash $processmarker $dumpcount
%coursedombuf %coursehombuf %courseresdatacache);	%coursedombuf %coursehombuf %courseresdatacache);
Line 489 sub homeserver {	Line 489 sub homeserver {
my $tryserver;	my $tryserver;
foreach $tryserver (keys %libserv) {	foreach $tryserver (keys %libserv) {
next if ($ignoreBadCache ne 'true' &&	next if ($ignoreBadCache ne 'true' &&
exists($badhomecache{$index}->{$tryserver}));	exists($badServerCache{$tryserver}));
if ($hostdom{$tryserver} eq $udom) {	if ($hostdom{$tryserver} eq $udom) {
my $answer=reply("home:$udom:$uname",$tryserver);	my $answer=reply("home:$udom:$uname",$tryserver);
if ($answer eq 'found') {	if ($answer eq 'found') {
$homecache{$index}=$tryserver;	$homecache{$index}=$tryserver;
return $tryserver;	return $tryserver;
} else {	} elsif ($answer eq 'no_host') {
$badhomecache{$index}->{$tryserver}=1;	$badServerCache{$tryserver}=1;
}	}
} else {
$badhomecache{$index}->{$tryserver}=1;
}	}
}	}
return 'no_host';	return 'no_host';