c048ba409a
-Table now returns multiple records if appropriate for getNodeAttribs (needed for switch table) -makedhcp moved to the ondiscover method (makedhcp not run until discovery method has a chance to modify mac table) git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@264 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
54 lines
1.1 KiB
Perl
54 lines
1.1 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'};
|
|
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 ($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;
|