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

Changed "rspconfig sshcfg" to use rsa instead of dsa key

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1274 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
sakolish 2008-05-05 15:02:49 +00:00
parent 8c3990da74
commit dc1350bd6a
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
xCAT-server-2.0/lib/xcat/plugins/blade.pm
View File

@ -13,7 +13,7 @@ my %mm_comm_pids;
use XML::Simple;
if ($^O =~ /^linux/i) {
$XML::Simple::PREFERRED_PARSER='XML::Parser';
$XML::Simple::PREFERRED_PARSER='XML::Parser';
}
use Data::Dumper;
use POSIX "WNOHANG";
@ -1661,7 +1661,7 @@ sub sshcfg {
my $t = shift;
my $value = shift;
my $uid = shift;
my $fname = ((xCAT::Utils::isAIX()) ? "/.ssh/":"/root/.ssh/")."id_dsa.pub";
my $fname = ((xCAT::Utils::isAIX()) ? "/.ssh/":"/root/.ssh/")."id_rsa.pub";
if ($value !~ /^enable|disable$/i) {
return([1,"Invalid argument '$value' (enable|disable)"]);
@ -1719,9 +1719,9 @@ sub sshcfg {
}
}
# Make sure SSH key is generated on MM
@data = $t->cmd("sshcfg -hk dsa -T system:mm[1]");
@data = $t->cmd("sshcfg -hk rsa -T system:mm[1]");
if (!grep(/ssh-dss/,@data)) {
if (!grep(/ssh-rsa/,@data)) {
@data = $t->cmd("sshcfg -hk gen -T system:mm[1]");
if (!grep(/^OK$/i, @data)) {
return([1,@data]);
@ -1734,8 +1734,8 @@ sub sshcfg {
return([1,"SSH key generation timeout"]);
}
sleep(15);
@data = $t->cmd("sshcfg -hk dsa -T system:mm[1]");
if (grep(/ssh-dss/,@data)) {
@data = $t->cmd("sshcfg -hk rsa -T system:mm[1]");
if (grep(/ssh-rsa/,@data)) {
last;
}
}
@ -1926,3 +1926,4 @@ sub dompa {