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

Updated with comments only

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@16533 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
jwsimpson 2013-06-04 17:07:57 +00:00
parent 9a7b3b91df
commit a9f5a6b396
1 changed files with 25 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
xCAT-server/lib/perl/xCAT/IMMUtils.pm
View File

@ -27,39 +27,52 @@ sub setupIMM {
my $nodedata = $args{nodedata};
my $callback = $args{callback};
my $ipmitab = xCAT::Table->new('ipmi',-create=>1);
# collect the bmc and bmcid attributes from the ipmi table for this bmc
my $ient = $ipmitab->getNodeAttribs($node,[qw/bmc bmcid/],prefetchcache=>1);
# get the ipmi userid and password from the pmi, mp, or passwd table
my $ipmiauthmap = xCAT::PasswordUtils::getIPMIAuth(noderange=>[$node]);
my $newaddr;
# if the bmc and bmcid were found
if ($ient) {
my $bmcid=$ient->{bmcid};
# if not skip and bmcid was found and its the same as the node's macaddress - then msg and skip
if (not $args{skipbmcidcheck} and $bmcid and $nodedata->{macaddress} =~ /$bmcid/) {
sendmsg("The IMM has been configured (ipmi.bmcid). Skipped.",$callback, $node);
return;
} #skip configuration, we already know this one
# not skipping so save the bmc address from the ipmi table for later
$newaddr = $ient->{bmc};
}
my @ips=();
my $autolla=0;
# if the bmc address was found in the ipmi table and its NOT an IPv6 IP
if ($newaddr and not $newaddr =~ /^fe80:.*%.*/) {
# get the ip addresses associated with the bmc ip address in the ipmi table
@ips = xCAT::NetworkUtils::getipaddr($newaddr,GetAllAddresses=>1);
} else {
} else {
# otherwise check if the curraddr passed in is IPv6 LLA then use it
if ($args{curraddr} =~ /^fe80:.*%.*/) { #if SLP were able to glean an LLA out of this, let's just roll with that result
# set the node bmc attribute to the LLA found and passed in
$ipmitab->setNodeAttribs($node,{bmc=>$args{curraddr}});
$autolla=1;
}
}
# if there is not are not ip addresses resolved from the IP in the ipmi bmc ip or there is not a LLA then error and exit
if (not scalar @ips and not $autolla) {
sendmsg(":Cannot find the IP attribute for bmc",$callback,$node);
return;
}
my $targips;
my $sship = $args{curraddr};
# if the ips resloved from the bmc ip in the ipmi table
if (scalar(@ips)) {
$targips = join(',',@ips);
unless ($sship) { $sship = $ips[0]; }
# else if its the LLA ip address passed in
} elsif ($autolla) {
$targips=$args{curraddr};
}
# Tell admin that configuration is about to begin
sendmsg(":Configuration of ".$node."[$targips] commencing, configuration may take a few minutes to take effect",$callback);
my $child = fork();
if ($child) { return; }
@ -67,6 +80,7 @@ sub setupIMM {
#ok, with all ip addresses in hand, time to enable IPMI and set all the ip addresses (still static only, TODO: dhcp
my $ssh;
# setup ssh parameters and make initial ssh connection
eval {$ssh = new xCAT::SSHInteract(-username=>$args{cliusername},
-password=>$args{clipassword},
-host=>$sship,
@ -76,6 +90,7 @@ sub setupIMM {
Errmode=>'return',
Prompt=>'/> $/');};
my $errmsg = $@;
# error message and exit on any error on ssh connection
if ($errmsg) {
if ($errmsg =~ /Login Failed/) {
$errmsg = "Login failed";
@ -87,14 +102,21 @@ sub setupIMM {
sendmsg(":$errmsg", $callback, $node);
exit(0);
}
# if ssh connection was good and we have a valid prompt
if ($ssh and $ssh->atprompt) { #we are in and good to issue commands
# set access configiuration options to allow bmc to be managed by xcat
$ssh->cmd("accseccfg -pe 0 -rc 0 -ci 0 -lf 0 -lp 0"); #disable the more insane password rules, this isn't by and large a human used interface
# enable ipmi
$ssh->cmd("users -1 -n ".$ipmiauthmap->{$node}->{username}." -p ".$ipmiauthmap->{$node}->{password}." -a super"); #this gets ipmi going
# if we do not have to skip network configuration
unless ($args{skipnetconfig}) {
# process all the IP addresses
foreach my $ip (@ips) {
# if address is IPv6
if ($ip =~ /:/) {
$ssh->cmd("ifconfig eth0 -ipv6static enable -i6 $ip");
} else {
# resolve the IP network parms
(my $sip,my $mask,my $gw) = xCAT_plugin::bmcconfig::net_parms($ip);
my $cmd = "ifconfig eth0 -c static -i $ip -s $mask";
if ($gw) { $cmd .= " -g $gw"; }
@ -102,7 +124,9 @@ sub setupIMM {
}
}
}
# close the ssh session
$ssh->close();
# update the ipmi table bmc attribute for this node
$ipmitab->setNodeAttribs($node,{bmcid=>$nodedata->{macaddress}});
}
sendmsg(":Succeeded", $callback,$node);