|
version 1.855, 2007/03/30 18:18:43
|
version 1.856, 2007/04/03 00:48:33
|
|
Line 7589 sub goodbye {
|
Line 7589 sub goodbye {
|
| } |
} |
| |
|
| BEGIN { |
BEGIN { |
| |
|
| # ----------------------------------- Read loncapa.conf and loncapa_apache.conf |
# ----------------------------------- Read loncapa.conf and loncapa_apache.conf |
| unless ($readit) { |
unless ($readit) { |
| { |
{ |
|
Line 7761 sub get_dns {
|
Line 7762 sub get_dns {
|
| |
|
| { |
{ |
| my %iphost; |
my %iphost; |
| |
my %name_to_ip; |
| |
my %lonid_to_ip; |
| sub get_hosts_from_ip { |
sub get_hosts_from_ip { |
| my ($ip) = @_; |
my ($ip) = @_; |
| my %iphosts = &get_iphost(); |
my %iphosts = &get_iphost(); |
|
Line 7769 sub get_dns {
|
Line 7772 sub get_dns {
|
| } |
} |
| return; |
return; |
| } |
} |
| |
|
| |
sub get_host_ip { |
| |
my ($lonid) = @_; |
| |
if (exists($lonid_to_ip{$lonid})) { |
| |
return $lonid_to_ip{$lonid}; |
| |
} |
| |
&logthis(" looking ip $lonid ...."); |
| |
my $name=&hostname($lonid); |
| |
my $ip = gethostbyname($name); |
| |
return if (!$ip || length($ip) ne 4); |
| |
$ip=inet_ntoa($ip); |
| |
$name_to_ip{$name} = $ip; |
| |
$lonid_to_ip{$lonid} = $ip; |
| |
return $ip; |
| |
} |
| |
|
| sub get_iphost { |
sub get_iphost { |
| if (%iphost) { return %iphost; } |
if (%iphost) { return %iphost; } |
| my %name_to_ip; |
&logthis(" getting ips ...."); |
| 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}; |
|
Line 7788 sub get_dns {
|
Line 7806 sub get_dns {
|
| } else { |
} else { |
| $ip = $name_to_ip{$name}; |
$ip = $name_to_ip{$name}; |
| } |
} |
| |
$lonid_to_ip{$id} = $ip; |
| push(@{$iphost{$ip}},$id); |
push(@{$iphost{$ip}},$id); |
| } |
} |
| return %iphost; |
return %iphost; |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonnet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / lonnet / perl