Changes to allow ssh setup on AIX compute nodes.
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@3169 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
parent
7b67891f42
commit
82a893d82b
@ -23,17 +23,10 @@
|
||||
# setup the ssh keys on the node
|
||||
# end
|
||||
|
||||
BEGIN
|
||||
{
|
||||
$::XCATROOT = $ENV{'XCATROOT'} ? $ENV{'XCATROOT'} : '/opt/xcat';
|
||||
}
|
||||
use lib "$::XCATROOT/lib/perl";
|
||||
|
||||
# MAIN
|
||||
use strict;
|
||||
use IO::Socket;
|
||||
use IO::Socket::SSL;
|
||||
use xCAT::Utils;
|
||||
my $rc = 0;
|
||||
|
||||
# Override from site table
|
||||
@ -262,8 +255,6 @@ sub getresponse
|
||||
}
|
||||
|
||||
close ($sock);
|
||||
#debug
|
||||
#print "resp = \'$response\'\n";
|
||||
|
||||
kill 2, $lpid;
|
||||
if ($response) {
|
||||
@ -284,7 +275,7 @@ sub openlistener
|
||||
|
||||
# fork a child process to open a socket to listen for communication
|
||||
# from the server
|
||||
my $pid = xCAT::Utils->xfork;
|
||||
my $pid = fork;
|
||||
unless (defined $pid) {
|
||||
# fork failed
|
||||
$msg = "aixremoteshell: Could not fork process.\n";
|
||||
|
@ -6,4 +6,5 @@ I:openssl.base
|
||||
I:openssl.license
|
||||
|
||||
# RPMs
|
||||
R:perl-Net_SSLeay.pm-1.30-1.aix5.3.ppc.rpm
|
||||
R:perl-IO-Socket-SSL-1.06-1.aix5.3.ppc.rpm
|
||||
|
Loading…
Reference in New Issue
Block a user