arif/xcat-core
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fix ssh files are copied to /install/postscripts/_ssh not /install/postscripts/.ssh

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@2712 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
lissav 2009-02-09 18:49:48 +00:00
parent 0d5cc0b4a5
commit 0a35ed1193
1 changed files with 17 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
perl-xCAT/xCAT/Utils.pm
View File

@ -1103,7 +1103,7 @@ sub setupSSH
my @nodes = $ref_nodes;
my @badnodes = ();
my $n_str = join ',', @nodes;
my $SSHdir = "/install/postscripts/.ssh";
my $SSHdir = "/install/postscripts/_ssh";
if (!($ENV{'DSH_REMOTE_PASSWORD'}))
{
my $rsp = ();
@ -1159,7 +1159,7 @@ sub setupSSH
{
mkdir("/install", 0755);
mkdir("/install/postscripts", 0755);
mkdir("/install/postscripts/.ssh", 0755);
mkdir("/install/postscripts/_ssh", 0755);
}
# Generate the keys, if they do not already exist
@ -1246,7 +1246,21 @@ rmdir(\"/tmp/$to_userid\");";
xCAT::MsgUtils->message("E", $rsp, $::CALLBACK);
}
# Remove $home/.ssh/authorized_keys*
# Easy to remote this code, if we want
# The MN to be able to ssh to itself
$cmd = "rm $home/.ssh/authorized_keys*";
xCAT::Utils->runcmd($cmd, 0);
my $rsp = {};
if ($::RUNCMD_RC != 0)
{
$rsp->{data}->[0] = "$cmd failed.\n";
xCAT::MsgUtils->message("E", $rsp, $::CALLBACK);
return (1);
}
# must always check to see if worked, run test
foreach my $n (@nodes)
{
@ -1281,7 +1295,7 @@ rmdir(\"/tmp/$to_userid\");";
=head3 cpSSHFiles
Copies the ssh keyfiles and the copy perl script into
/install/postscripts/.ssh. and the $HOME/.ssh directory of
/install/postscripts/_ssh. and the $HOME/.ssh directory of
userid
Arguments: