From 818fd8d5a380758d4eede0dafdec9f8bd03992ab Mon Sep 17 00:00:00 2001
From: ertaozh <ertaozh@cn.ibm.com>
Date: Mon, 7 Aug 2017 02:23:39 -0400
Subject: [PATCH] fix issue 3617

---
 xCAT-server/sbin/xcatd | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/xCAT-server/sbin/xcatd b/xCAT-server/sbin/xcatd
index dd34ccbed..25c9aaa3e 100755
--- a/xCAT-server/sbin/xcatd
+++ b/xCAT-server/sbin/xcatd
@@ -941,7 +941,9 @@ unless ($foreground) {
 }
 
 # Cache the hostname, restart xcatd if hostname is changed after xcatd running
-my $MYXCATSERVER = Sys::Hostname::hostname;
+my $myhostname = Sys::Hostname::hostname;
+my @mynamearray = split(/\./, $myhostname);
+my $MYXCATSERVER = $mynamearray[0];
 
 $dbmaster = xCAT::Table::init_dbworker;
 if ($enable_perf) {