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

fix defect 3544651

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@13300 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
lissav 2012-07-16 16:16:33 +00:00
parent 8ff50af5ca
commit 06c22411b4
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
xCAT-server/lib/perl/xCAT/Postage.pm
View File

@ -121,6 +121,7 @@ sub makescript
my ($master, $ps, $os, $arch, $profile);
my $noderestab = xCAT::Table->new('noderes');
my $nodelisttab = xCAT::Table->new('nodelist');
my $typetab = xCAT::Table->new('nodetype');
my $posttab = xCAT::Table->new('postscripts');
my $ostab = xCAT::Table->new('osimage');
@ -128,10 +129,10 @@ sub makescript
my %rsp;
my $rsp;
my $master;
unless ($noderestab and $typetab and $posttab)
unless ($noderestab and $typetab and $posttab and $nodelisttab)
{
push @{$rsp->{data}},
"Unable to open site or noderes or nodetype or postscripts table";
"Unable to open site or noderes or nodetype or postscripts or nodelist table";
xCAT::MsgUtils->message("E", $rsp, $callback);
return undef;
@ -186,7 +187,13 @@ sub makescript
} # end site table attributes
# read the sshbetweennodes attribute and process
# read the nodes groups
my $groups=
$nodelisttab->getNodeAttribs($node, ['groups']);
push @scriptd, "GROUPS=$groups->{groups}\n";
push @scriptd, "export GROUPS\n";
# read the sshbetweennodes attribute and process
my $enablessh=xCAT::Utils->enablessh($node);
if ($enablessh == 1) {
push @scriptd, "ENABLESSHBETWEENNODES=YES\n";