Return to loncnew CVS log | Up to [LON-CAPA] / loncom |
version 1.102, 2017/10/20 20:20:20 | version 1.103, 2018/01/16 18:13:29 |
---|---|
Line 2235 sub Terminate { | Line 2235 sub Terminate { |
} | } |
sub my_hostname { | sub my_hostname { |
use Sys::Hostname; | use Net::Domain(); |
my $name = &hostname(); | my $name = &Net::Domain::hostfqdn(); |
&Debug(9,"Name is $name"); | &Debug(9,"Name is $name"); |
return $name; | return $name; |
} | } |