# 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;