loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.860, 2007/04/03 18:47:29	version 1.861, 2007/04/04 00:05:31
Line 7747 sub get_dns {	Line 7747 sub get_dns {
$this_domain{$field} = shift(@elements);	$this_domain{$field} = shift(@elements);
}	}
$domain{$name} = \%this_domain;	$domain{$name} = \%this_domain;
&logthis("Domain.tab: $name ".$domain{$name}{'description'} );
}	}
}	}

Line 7796 sub get_dns {	Line 7795 sub get_dns {
$hostdom{$id}=$domain;	$hostdom{$id}=$domain;
if ($role eq 'library') { $libserv{$id}=$name; }	if ($role eq 'library') { $libserv{$id}=$name; }
}	}
&logthis("Hosts.tab: $name ".$id );
}	}
}	}