mirror of
https://github.com/xcat2/xcat-core.git
synced 2025-05-21 19:22:05 +00:00
51 lines
2.0 KiB
Perl
51 lines
2.0 KiB
Perl
# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
|
|
# The last module to deal with hardware discovery request, write information that which module can deal with this request or no module can deal with it at all
|
|
package xCAT_plugin::zzzdiscovery;
|
|
|
|
BEGIN
|
|
{
|
|
$::XCATROOT = $ENV{'XCATROOT'} ? $ENV{'XCATROOT'} : '/opt/xcat';
|
|
}
|
|
use lib "$::XCATROOT/lib/perl";
|
|
use xCAT::NetworkUtils;
|
|
|
|
|
|
sub handled_commands {
|
|
return {
|
|
findme => 'zzzdiscovery',
|
|
};
|
|
}
|
|
|
|
sub process_request {
|
|
my $req = shift;
|
|
my $cb = shift;
|
|
my $doreq = shift;
|
|
if ($req->{command}->[0] eq 'findme') {
|
|
|
|
if (!defined($req->{discoverymethod}) or !defined($req->{discoverymethod}->[0]) or ($req->{discoverymethod}->[0] eq 'undef') or defined($req->{error})) {
|
|
my $error_msg = ".";
|
|
if (defined($req->{error_msg}) and defined($req->{error_msg}->[0])) {
|
|
$error_msg = ": ". $req->{error_msg}->[0];
|
|
}
|
|
my $rsp = {};
|
|
$rsp->{error}->[0] = "The discovery request can not be processed".$error_msg;
|
|
$cb->($rsp);
|
|
xCAT::MsgUtils->message("S", "xcat.discovery.zzzdiscovery: ($req->{_xcat_clientmac}->[0]) Failed for node discovery".$error_msg);
|
|
|
|
#now, notify the node that its findme request has been processed
|
|
my $client_ip = $req->{'_xcat_clientip'};
|
|
xCAT::MsgUtils->message("S","xcat.discovery.zzzdiscovery: Notify $client_ip that its findme request has been processed");
|
|
#notify the client that its request is been processing
|
|
my $ret=xCAT::NetworkUtils->send_tcp_msg($client_ip,3001,"processed");
|
|
if($ret){
|
|
xCAT::MsgUtils->message("S", "xcat.discovery.zzzdiscovery: Failed to notify $client_ip that its findme request has been processed");
|
|
}
|
|
}else{
|
|
xCAT::MsgUtils->message("S", "xcat.discovery.zzzdiscovery: ($req->{_xcat_clientmac}->[0]) Successfully discovered the node using $req->{discoverymethod}->[0] discovery method.");
|
|
}
|
|
|
|
return;
|
|
}
|
|
}
|
|
1;
|