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

Have slpdiscover get more fleshed out for CMM

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@12115 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
jbjohnso 2012-04-04 14:35:13 +00:00
parent 0b950cd054
commit 73cd343bf5
1 changed files with 85 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

86
xCAT-server/lib/xcat/plugins/slpdiscover.pm
View File

@ -3,6 +3,9 @@ use strict;
use xCAT::SvrUtils qw/sendmsg/;
use xCAT::SLP;
use xCAT::MacMap;
my $defaultbladeuser;
my $defaultbladepass;
my $mpahash;
sub handled_commands {
return {
@ -73,11 +76,92 @@ sub process_request {
}
my $data = $searchmacs{$mac};
$data->{nodename}=$node;
$data->{macaddress}=$mac;
push @toconfig,$data;
}
my $mpatab=xCAT::Table->new("mpa",-create=>0);
my @mpaentries;
$mpahash={};
if ($mpatab) {
@mpaentries = $mpatab->getAllNodeAttribs([qw/mpa username password/]);
foreach (@mpaentries) {
$mpahash->{$_->{mpa}}=$_;
}
}
my $passwdtab=xCAT::Table->new("passwd",-create=>0);
$defaultbladeuser="USERID";
$defaultbladepass="";
if ($passwdtab) {
my @ents = $passwdtab->getAttribs({key=>'blade'},'username','password');
foreach (@ents) {
if ($_->{username} eq "HMC") { next; }
if ($_->{username}) { $defaultbladeuser=$_->{username}; }
if ($_->{password}) { $defaultbladepass=$_->{password}; }
}
}
my $mactab = xCAT::Table->new("mac");
my @maclist = $mactab->getAllNodeAttribs([qw/node mac/]);
my %machash;
foreach (@maclist) {
$machash{$_->{node}}=$_->{mac};
}
my $macupdatehash;
foreach my $data (@toconfig) {
sendmsg(":Found ".$data->{nodename}." which seems to be ".$data->{SrvType}." at address ".$data->{peername}." with scope index of ".$data->{scopeid},$callback);
my $mac = $data->{macaddress};
my $nodename = $data->{nodename};
my $addr = $data->{peername}; #todo, use sockaddr and remove the 427 port from it instead?
if ($addr =~ /^fe80/) { #Link local address requires scope index
$addr .= "%".$data->{scopeid};
}
if ($machash{$nodename} =~ /$mac/) { #ignore prospects already known to mac table
next;
}
sendmsg(":Found ".$nodename." which seems to be ".$data->{SrvType}." at address $addr",$callback);
if ($data->{SrvType} eq "service:management-hardware.IBM:chassis-management-module") {
unless (do_blade_setup($data,curraddr=>$addr)) {
next;
}
}
}
}
sub do_blade_setup {
my $data = shift;
my %args = @_;
my $addr = $args{curraddr};
my $nodename = $data->{nodename};
my $localuser=$defaultbladeuser;
my $localpass=$defaultbladepass;
if ($mpahash->{$nodename}) {
if ($mpahash->{$nodename}->{username}) {
$localuser = $mpahash->{$nodename}->[0]->{username};
}
if ($mpahash->{$nodename}->{password}) {
$localuser = $mpahash->{$nodename}->[0]->{password};
}
}
if (not $localpass or $localpass eq "PASSW0RD") {
sendmsg([1,":Password for blade must be specified in either mpa or passwd tables, and it must not be PASSW0RD"],$callback,$nodename);
return 0;
}
require xCAT_plugin::blade;
my @cmds = qw/snmpcfg=enable sshcfg=enable initnetwork=*/;
my $result = xCAT_plugin::blade::clicmds(
$nodename,
$localuser,
$localpass,
$nodename,
0,
curraddr=>$addr,
defaultcfg=>1,
cmds=>\@cmds );
if ($result) {
if ($result->[0]) {
sendmsg([$result->[0],$result->[2]],$callback,$nodename);
}
}
}
1;