e300b6795e
-Fix wvid title for supported IPMI devices -Have nbfs provide clue to xCATd that a virtual guest is booted git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@2916 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
71 lines
1.8 KiB
Perl
71 lines
1.8 KiB
Perl
# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
|
|
package xCAT_plugin::switch;
|
|
use IO::Socket;
|
|
use Data::Dumper;
|
|
use xCAT::MacMap;
|
|
use Sys::Syslog;
|
|
use Storable;
|
|
|
|
my $macmap;
|
|
sub handled_commands {
|
|
$macmap = xCAT::MacMap->new();
|
|
return {
|
|
findme => 'switch',
|
|
};
|
|
}
|
|
|
|
sub process_request {
|
|
my $req = shift;
|
|
my $cb = shift;
|
|
my $doreq = shift;
|
|
my $ip = $req->{'_xcat_clientip'};
|
|
if (defined $req->{nodetype} and $req->{nodetype}->[0] eq 'virtual') {
|
|
#Don't attempt switch discovery of a VM Guest
|
|
#TODO: in this case, we could/should find the host system
|
|
#and then ask it what node is associated with the mac
|
|
#Either way, it would be kinda weird since xCAT probably made up the mac addy
|
|
#anyway, however, complex network topology function may be aided by
|
|
#discovery working. Food for thought.
|
|
return;
|
|
}
|
|
my $mac = '';
|
|
my $arptable = `/sbin/arp -n`;
|
|
my @arpents = split /\n/,$arptable;
|
|
foreach (@arpents) {
|
|
if (m/^($ip)\s+\S+\s+(\S+)\s/) {
|
|
$mac=$2;
|
|
last;
|
|
}
|
|
}
|
|
unless ($mac) {
|
|
return;
|
|
}
|
|
my $node = $macmap->find_mac($mac,$req->{cacheonly}->[0]);
|
|
#if (not $node and $req->{checkallmacs}->[0]) {
|
|
# foreach (@{$req->{mac}}) {
|
|
# /.*\|.*\|([\dABCDEFabcdef:]+)(\||$)/;
|
|
# $node = $macmap->find_mac($1,$req->{cacheonly}->[0]);
|
|
# if ($node) { last; }
|
|
# }
|
|
#}
|
|
|
|
if ($node) {
|
|
my $mactab = xCAT::Table->new('mac',-create=>1);
|
|
$mactab->setNodeAttribs($node,{mac=>$mac});
|
|
$mactab->close();
|
|
#my %request = (
|
|
# command => ['makedhcp'],
|
|
# node => [$node]
|
|
#);
|
|
#$doreq->(\%request);
|
|
$req->{command}=['discovered'];
|
|
$req->{noderange} = [$node];
|
|
$doreq->($req);
|
|
%{$req}=();#Clear req structure, it's done..
|
|
undef $mactab;
|
|
} else {
|
|
#Shouldn't complain, might be blade, but how to log total failures?
|
|
}
|
|
}
|
|
1;
|