Get the hostname in a more safe fashion.

Apparently, $ENV{HOSTNAME} is a bashism, and given the Sys::Hostname modules appears to be available, we can just use that.

diff --git a/vserverctl b/vserverctl
index 035e41c004640a0a03d23af72a7df5a5b8c200bc..8c5ddb44f974c34b3f658e6b61225f8b4b0dc479 100755 (executable)
--- a/vserverctl
+++ b/vserverctl
@@ -7,6 +7,8 @@ use Config::Auto;
 use File::Slurp qw(slurp write_file);
 use Carp;
 use File::Basename;
+use Sys::Hostname;
+my $hostname = hostname;
 
 my $baseDir = '/vserver/';
 my $profileBaseDir = $baseDir . '.profile/';
@@ -109,7 +111,7 @@ if ( $action eq 'add' ) {
         my $data = slurp($key);
         $data =~ s/__VSNAME__/$vsname/g;
         $data =~ s/__VSIPADDR__/$ipaddr/g;
-        $data =~ s/__HOST__/$ENV{HOSTNAME}/g;
+        $data =~ s/__HOST__/$hostname/g;
         write_file($vsroot . '.template', $data);
         system('mv', $vsroot . '.template', $vsroot . $templates{$key} . $file);
     }