loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.863, 2007/04/04 00:10:15	version 1.864, 2007/04/04 00:48:23
Line 7685 sub get_dns {	Line 7685 sub get_dns {
$domain{$name} = \%this_domain;	$domain{$name} = \%this_domain;
}	}
}	}

	sub reset_domain_info {
	undef($loaded);
	undef(%domain);
	}

sub load_domain_tab {	sub load_domain_tab {
&get_dns('/adm/dns/domain',\&parse_domain_tab);	&get_dns('/adm/dns/domain',\&parse_domain_tab);
my $fh;	my $fh;
Line 7733 sub get_dns {	Line 7738 sub get_dns {
}	}
}	}
}	}

	sub reset_hosts_info {
	&reset_domain_info();
	&reset_hosts_ip_info();
	undef(%hostname);
	undef(%hostdom);
	undef(%libserv);
	undef($loaded);
	}

sub load_hosts_tab {	sub load_hosts_tab {
&get_dns('/adm/dns/hosts',\&parse_hosts_tab);	&get_dns('/adm/dns/hosts',\&parse_hosts_tab);
Line 7819 sub get_dns {	Line 7833 sub get_dns {
}	}
return;	return;
}	}

	sub reset_hosts_ip_info {
	undef(%iphost);
	undef(%name_to_ip);
	undef(%lonid_to_ip);
	}

sub get_host_ip {	sub get_host_ip {
my ($lonid) = @_;	my ($lonid) = @_;
Line 7838 sub get_dns {	Line 7858 sub get_dns {
if (%iphost) { return %iphost; }	if (%iphost) { return %iphost; }
my %hostname = &all_hostnames();	my %hostname = &all_hostnames();
foreach my $id (keys(%hostname)) {	foreach my $id (keys(%hostname)) {
my $name=$hostname{$id};	my $name=&hostname($id);
my $ip;	my $ip;
if (!exists($name_to_ip{$name})) {	if (!exists($name_to_ip{$name})) {
$ip = gethostbyname($name);	$ip = gethostbyname($name);