xCAT/xcat-core
2
0
Fork 0
mirror of https://github.com/xcat2/xcat-core.git synced 2025-11-03 21:02:34 +00:00
Code Issues Releases Wiki Activity

Add support to config passwordless for openbmc

Browse Source
This commit is contained in:
Casandra Qiu
2017-03-03 14:26:42 -05:00
parent 8a8c5a943d
commit 20b71f888b
1 changed files with 102 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

103
xCAT-server/lib/xcat/plugins/openbmc.pm
View File

@@ -41,6 +41,7 @@ use XML::Simple;
use Storable qw(dclone);
use SNMP;
use xCAT::PasswordUtils;
use Expect;
$::OPENBMC_DEVEL = $ENV{'OPENBMC_DEVEL'};
@@ -282,6 +283,7 @@ sub process_request {
if ($request->{command}->[0] eq "getopenbmccons") {
foreach (@donargs) {
configssh($_, $callback);
getopenbmccons($_, $callback);
}
return;
@@ -688,7 +690,7 @@ sub getopenbmccons {
my $node=$argr->[0];
my $output = "openbmc, getopenbmccoms";
xCAT::SvrUtils::sendmsg($output, $callback, $argr->[0], %allerrornodes);
$rsp = { node => [ { name => [ $argr->[0] ] } ] };
$rsp->{node}->[0]->{nodeip}->[0] = $argr->[1];
$rsp->{node}->[0]->{username}->[0] = $argr->[2];
@@ -697,4 +699,103 @@ sub getopenbmccons {
return $rsp;
}
#-------------------------------------------------------
=head3 configssh
config passwordless for openbmc
=cut
#-------------------------------------------------------
sub configssh {
my $argr = shift;
my $callback = shift;
my $rsp;
my $node=$argr->[0];
my $bmcip = $argr->[1];
my $bmcuser = $argr->[2];
my $bmcpass = $argr->[3];
my $timeout = 10;
my $output = "openbmc, configssh ";
xCAT::SvrUtils::sendmsg($output, $callback, $argr->[0], %allerrornodes);
my $rootkey = `cat /root/.ssh/id_rsa.pub`;
# remove old host key from /root/.ssh/known_hosts
my $cmd = `ssh-keygen -R $bmcip`;
my ($exp, $errstr) = openbmc_connect($bmcip, $bmcuser, $bmcpass, $timeout);
if (!defined $exp) {
print ("connect failed $errstr\n");
next;
}
my $ret;
my $err;
($ret, $err) = openbmc_exec($exp, "mkdir -p /home/root/.ssh");
($ret, $err) = openbmc_exec($exp, "chmod 700 /home/root/.ssh");
($ret, $err) = openbmc_exec($exp, "echo \"$rootkey\" >/home/root/.ssh/authorized_keys");
($ret, $err) = openbmc_exec($exp, "chmod 644 /home/root/.ssh/authorized_keys");
$exp->hard_close();
}
sub openbmc_connect {
my $server = shift;
my $userid = shift;
my $password = shift;
my $timeout = shift;
my $ssh = Expect->new;
my $command = 'ssh';
my @parameters = ($userid . "@" . $server);
$ssh->debug(0);
$ssh->log_stdout(0); # suppress stdout output..
$ssh->slave->stty(qw(sane -echo));
unless ($ssh->spawn($command, @parameters))
{
my $err = $!;
$ssh->soft_close();
my $rsp;
return(undef, "unable to run command $command $err\n");
}
$ssh->expect($timeout,
[ "-re", qr/WARNING: REMOTE HOST IDENTIFICATION HAS CHANGED/, sub {die "WARNING: REMOTE HOST IDENTIFICATION HAS CHANGED!\n"; } ],
[ "-re", qr/\(yes\/no\)\?\s*$/, sub { $ssh->send("yes\n"); exp_continue; } ],
[ "-re", qr/ password:/, sub { $ssh->send("$password\n"); exp_continue; } ],
[ "-re", qr/:~\#/, sub { $ssh->clear_accum(); } ],
[ timeout => sub { die "No login.\n"; } ]
);
$ssh->clear_accum();
return ($ssh);
}
sub openbmc_exec {
my $exp = shift;
my $cmd = shift;
my $timeout = shift;
my $prompt = shift;
$timeout = 10 unless defined $timeout;
$prompt = qr/:~\#/ unless defined $prompt;
$exp->clear_accum();
$exp->send("$cmd\n");
my ($mpos, $merr, $mstr, $mbmatch, $mamatch) = $exp->expect(6, "-re", $prompt);
if (defined $merr) {
return(undef,$merr);
}
return($mbmatch);
}
1;