loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.221, 2002/05/16 20:25:12	version 1.222, 2002/05/17 11:39:48
Line 491 sub homeserver {	Line 491 sub homeserver {
next if (exists($badhomecache{$index}->{$tryserver}));	next if (exists($badhomecache{$index}->{$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);
my @tmp =keys(%{$badhomecache{$index}});
if ($answer eq 'found') {	if ($answer eq 'found') {
$homecache{$index}=$tryserver;	$homecache{$index}=$tryserver;
return $tryserver;	return $tryserver;