![[BACK]](/icons/back.gif){kind=icon}
Return to loncnew CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom|
Return to loncnew CVS log | Up to [LON-CAPA] / loncom |
| version 1.103, 2018/01/16 18:13:29 | version 1.104, 2018/06/24 18:45:18 |
|---|---|
| Line 2235 sub Terminate { | Line 2235 sub Terminate { |
| } | } |
| sub my_hostname { | sub my_hostname { |
| use Net::Domain(); | use Sys::Hostname::FQDN(); |
| my $name = &Net::Domain::hostfqdn(); | my $name = Sys::Hostname::FQDN::fqdn(); |
| &Debug(9,"Name is $name"); | &Debug(9,"Name is $name"); |
| return $name; | return $name; |
| } | } |