![[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|
Return to lonnet.pm CVS log | Up to [LON-CAPA] / loncom / lonnet / perl |
| version 1.1056.4.26, 2011/06/03 00:31:30 | version 1.1056.4.27, 2011/06/13 14:09:26 |
|---|---|
| Line 10234 sub get_dns { | Line 10234 sub get_dns { |
| my ($lonid) = @_; | my ($lonid) = @_; |
| return $internetdom{$lonid}; | return $internetdom{$lonid}; |
| } | } |
| sub is_LC_dns { | |
| &load_hosts_tab() if (!$loaded); | |
| my ($hostname) = @_; | |
| return exists($LC_dns_serv{$hostname}); | |
| } | |
| } | } |
| { | { |