From 14c2613546de98227a68272615fded5ea3e63c45 Mon Sep 17 00:00:00 2001
From: jbjohnso <jbjohnso@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Fri, 11 May 2012 14:54:31 +0000
Subject: [PATCH] Shave off an unneeded database call

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@12634 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 perl-xCAT/xCAT/Utils.pm | 18 ++++++++++++------
 1 file changed, 12 insertions(+), 6 deletions(-)

diff --git a/perl-xCAT/xCAT/Utils.pm b/perl-xCAT/xCAT/Utils.pm
index a729a192b..3fbf6d33d 100644
--- a/perl-xCAT/xCAT/Utils.pm
+++ b/perl-xCAT/xCAT/Utils.pm
@@ -6309,12 +6309,18 @@ sub enablessh
     {
 
         # if not a service node we need to check, before enabling
-        my $sitetab    = xCAT::Table->new('site');
-        my $attr = "sshbetweennodes";
-        my $ref = $sitetab->getAttribs({key => $attr}, 'value');
-        if ($ref)
-        {
-            my $values = $ref->{value};
+        my $values;
+	if (keys %::XCATSITEVALS) {
+		$values=$::XCATSITEVALS{sshbetweennodes};
+	} else {
+	        my $sitetab    = xCAT::Table->new('site');
+	        my $attr = "sshbetweennodes";
+	        my $ref = $sitetab->getAttribs({key => $attr}, 'value');
+	        if ($ref) {
+            	   $values = $ref->{value};
+	        }
+ 	}
+	if ($values) {
             my @groups = split(/,/, $values);
             if (grep(/^ALLGROUPS$/, @groups))
             {