![]() ![]() | ![]() |
version 1.102, 2017/10/20 20:20:20 | version 1.104, 2018/06/24 18:45:18 |
---|---|
Line 2235 sub Terminate { | Line 2235 sub Terminate { |
} | } |
sub my_hostname { | sub my_hostname { |
use Sys::Hostname; | use Sys::Hostname::FQDN(); |
my $name = &hostname(); | my $name = Sys::Hostname::FQDN::fqdn(); |
&Debug(9,"Name is $name"); | &Debug(9,"Name is $name"); |
return $name; | return $name; |
} | } |