From 1a5d650be8f14bdb9dbf2b491e1635b7203791d3 Mon Sep 17 00:00:00 2001
From: lissav <lissav@us.ibm.com>
Date: Mon, 24 Feb 2014 11:48:44 -0500
Subject: [PATCH]  xdsh -K support (still need to do hierarchy)

---
 perl-xCAT/xCAT/TableUtils.pm | 20 --------------------
 1 file changed, 20 deletions(-)

diff --git a/perl-xCAT/xCAT/TableUtils.pm b/perl-xCAT/xCAT/TableUtils.pm
index eeab5ad77..d1538b454 100644
--- a/perl-xCAT/xCAT/TableUtils.pm
+++ b/perl-xCAT/xCAT/TableUtils.pm
@@ -731,26 +731,6 @@ sub sendkeysTOzones
 
     return (0);
 }
-#-------------------------------------------------------------------------------
-
-=head3   GetNodeOSARCH
-
-          
-          # strip off .ssh
-          my ($newhome,$ssh) = (split(/\/\.ssh/, $keydir));
-          $ENV{'DSH_FROM_USERID_HOME'} =$newhome ;
-          # send the keys to the nodes
-           my $rc=xCAT::RemoteShellExp->remoteshellexp("s",$::CALLBACK,"/usr/bin/ssh",$zonenodelist,$expecttimeout);
-           if ($rc != 0)
-           {
-             $rsp->{data}->[0] = "remoteshellexp failed sending keys to $zonename.";
-             xCAT::MsgUtils->message("E", $rsp, $::CALLBACK);
-       
-           }
-       } # endforeach zone
-
-    return 0;
-}
 #--------------------------------------------------------------------------------
 
 =head3    cpSSHFiles