From 195bd69ab258582bc78469fa401828532c7aca70 Mon Sep 17 00:00:00 2001
From: immarvin <yangsbj@cn.ibm.comq>
Date: Wed, 30 Oct 2013 07:12:35 -0700
Subject: [PATCH] fix defect #3393 xcat 2.8 mgt server(rhels6.4-ppc64) hang on
 Generating /etc/rndc.key during reboot

---
 xCAT-server/sbin/xcatconfig | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/xCAT-server/sbin/xcatconfig b/xCAT-server/sbin/xcatconfig
index 3106f2b90..117e19caa 100755
--- a/xCAT-server/sbin/xcatconfig
+++ b/xCAT-server/sbin/xcatconfig
@@ -1051,6 +1051,20 @@ sub is_debian
     return 0;
 }
 
+sub is_redhat6sp4
+{
+    if( -e "/etc/redhat-release" ){
+        open(my $relfile, "<", "/etc/redhat-release");
+        my $line = <$relfile>;
+        close($relfile);
+        if ( $line =~ /Red Hat Enterprise Linux Server release 6.4/i ){
+            return 1;
+        }
+    }
+    return 0;
+}
+
+
 # on Ubuntu need to painstakingly compare /etc/localtime with files under
 # /usr/share/zoneinfo since /etc/localtime # isn't always a symbolic link
 sub discover_timezone_ubuntu
@@ -2233,6 +2247,13 @@ sub startnamedonboot
             $serv = "bind9";
             $cmd = "update-rc.d $serv enable";
         }
+
+        #"service named start" is very slowly,sometimes hang in rhels6.4 after installation
+        #a work around is to generate /etc/rndc-key during xCAT installation
+        if( is_redhat6sp4() ){
+           system("rndc-confgen -a -r /dev/urandom");
+        }
+
         my $outref = xCAT::Utils->runcmd("$cmd", 0);
         if ($::RUNCMD_RC != 0)
         {