[pve-devel] r5441 - pve-common/trunk/data/PVE

[svn-commits at proxmox.com]

Author: dietmar
Date: 2011-01-26 10:34:14 +0100 (Wed, 26 Jan 2011)
New Revision: 5441

Modified:
   pve-common/trunk/data/PVE/RPCEnvironment.pm
Log:
use correct node name


Modified: pve-common/trunk/data/PVE/RPCEnvironment.pm
===================================================================
--- pve-common/trunk/data/PVE/RPCEnvironment.pm	2011-01-25 11:01:09 UTC (rev 5440)
+++ pve-common/trunk/data/PVE/RPCEnvironment.pm	2011-01-26 09:34:14 UTC (rev 5441)
@@ -86,6 +86,12 @@
 
     $pve_env = $self;
 
+    my ($sysname, $nodename) = POSIX::uname();
+
+    $nodename =~ s/\..*$//; # strip domain part, if any
+
+    $self->{nodename} = $nodename;
+
     return $self;
 }; 
 
@@ -182,7 +188,7 @@
 
     my @psync = POSIX::pipe();
 
-    my $node = $self->{hostname};
+    my $node = $self->{nodename};
 
     # detect filename with faked PID
     my $tmp = upid_decode ("UPID:$node:0-0:0:$dtype:$data");