2008-02-28 20:21:35 +00:00
|
|
|
#!/usr/bin/env perl
|
|
|
|
# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
|
|
|
|
package xCAT_monitoring::snmpmon;
|
|
|
|
BEGIN
|
|
|
|
{
|
|
|
|
$::XCATROOT = $ENV{'XCATROOT'} ? $ENV{'XCATROOT'} : '/opt/xcat';
|
|
|
|
}
|
|
|
|
use lib "$::XCATROOT/lib/perl";
|
2008-08-01 17:35:58 +00:00
|
|
|
use strict;
|
2008-02-28 20:21:35 +00:00
|
|
|
use IO::File;
|
2008-03-04 01:13:26 +00:00
|
|
|
use xCAT::Utils;
|
2008-03-20 15:54:51 +00:00
|
|
|
use xCAT::MsgUtils;
|
2008-05-16 15:09:43 +00:00
|
|
|
use xCAT_monitoring::monitorctrl;
|
2008-08-01 17:35:58 +00:00
|
|
|
use Sys::Hostname;
|
2008-03-01 22:08:04 +00:00
|
|
|
|
2008-03-07 21:01:14 +00:00
|
|
|
#print "xCAT_monitoring::snmpmon loaded\n";
|
2008-02-28 20:21:35 +00:00
|
|
|
1;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#-------------------------------------------------------------------------------
|
|
|
|
=head1 xCAT_monitoring:snmpmon
|
|
|
|
=head2 Package Description
|
|
|
|
xCAT monitoring plugin package to handle SNMP monitoring.
|
|
|
|
|
|
|
|
=cut
|
|
|
|
#-------------------------------------------------------------------------------
|
|
|
|
|
|
|
|
#--------------------------------------------------------------------------------
|
|
|
|
=head3 start
|
2008-08-01 17:35:58 +00:00
|
|
|
This function gets called by the monitorctrl module when monstart command
|
|
|
|
gets called and when xcatd starts.
|
2008-02-28 20:21:35 +00:00
|
|
|
Arguments:
|
2008-08-01 17:35:58 +00:00
|
|
|
p_nodes -- a pointer to an arrays of nodes to be monitored. null means all.
|
|
|
|
scope -- the action scope, it indicates the node type the action will take place.
|
|
|
|
0 means localhost only.
|
|
|
|
2 means both localhost and nodes,
|
|
|
|
callback -- the callback pointer for error and status displaying. It can be null.
|
2008-02-28 20:21:35 +00:00
|
|
|
Returns:
|
2008-08-01 17:35:58 +00:00
|
|
|
(return code, message)
|
|
|
|
if the callback is set, use callback to display the status and error.
|
2008-02-28 20:21:35 +00:00
|
|
|
=cut
|
|
|
|
#--------------------------------------------------------------------------------
|
|
|
|
sub start {
|
2008-08-01 17:35:58 +00:00
|
|
|
print "snmpmon:start called\n";
|
|
|
|
my $noderef=shift;
|
|
|
|
if ($noderef =~ /xCAT_monitoring::snmpmon/) {
|
|
|
|
$noderef=shift;
|
|
|
|
}
|
|
|
|
my $scope=shift;
|
|
|
|
my $callback=shift;
|
|
|
|
|
|
|
|
my $localhostname=hostname();
|
|
|
|
|
|
|
|
# get the PID of the currently running snmptrapd if it is running.
|
|
|
|
# then stop it and restart it again so that it reads our new
|
|
|
|
# snmptrapd.conf configuration file. Then the process
|
|
|
|
my $pid;
|
|
|
|
chomp($pid= `/bin/ps -ef | /bin/grep snmptrapd | /bin/grep -v grep | /bin/awk '{print \$2}'`);
|
|
|
|
if($pid){
|
|
|
|
`/bin/kill -9 $pid`;
|
|
|
|
}
|
|
|
|
# start it up again!
|
|
|
|
system("/usr/sbin/snmptrapd -m ALL");
|
|
|
|
|
|
|
|
# get the PID of the currently running snmpd if it is running.
|
|
|
|
# if it's running then we just leave. Otherwise, if we don't get A PID, then we
|
|
|
|
# assume that it isn't running, and start it up again!
|
|
|
|
chomp($pid= `/bin/ps -ef | /bin/grep snmpd | /bin/grep -v grep | /bin/awk '{print \$2}'`);
|
|
|
|
unless($pid){
|
|
|
|
# start it up!
|
|
|
|
system("/usr/sbin/snmpd");
|
|
|
|
}
|
|
|
|
|
|
|
|
if ($scope) {
|
|
|
|
#enable alerts on the nodes
|
|
|
|
#enable bmcs if any
|
|
|
|
if ($callback) {
|
|
|
|
my $rsp={};
|
|
|
|
$rsp->{data}->[0]="$localhostname: enabling SNMP alert on BMCs and MMs...";
|
|
|
|
$callback->($rsp);
|
|
|
|
}
|
|
|
|
configBMC(1, $noderef, $callback);
|
|
|
|
|
|
|
|
#enable MMAs if any
|
|
|
|
configMPA(1, $noderef, $callback);
|
|
|
|
}
|
|
|
|
|
|
|
|
if ($callback) {
|
|
|
|
my $rsp={};
|
|
|
|
$rsp->{data}->[0]="$localhostname: started.";
|
|
|
|
$callback->($rsp);
|
|
|
|
}
|
|
|
|
|
|
|
|
return (0, "started")
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#--------------------------------------------------------------------------------
|
|
|
|
=head3 stop
|
|
|
|
This function gets called by the monitorctrl module when monstop command gets called.
|
|
|
|
Arguments:
|
|
|
|
p_nodes -- a pointer to an arrays of nodes to be stoped for monitoring. null means all.
|
|
|
|
scope -- the action scope, it indicates the node type the action will take place.
|
|
|
|
0 means localhost only.
|
|
|
|
2 means both monservers and nodes,
|
|
|
|
callback -- the callback pointer for error and status displaying. It can be null.
|
|
|
|
Returns:
|
|
|
|
(return code, message)
|
|
|
|
if the callback is set, use callback to display the status and error.
|
|
|
|
=cut
|
|
|
|
#--------------------------------------------------------------------------------
|
|
|
|
sub stop {
|
|
|
|
print "snmpmon:stop called\n";
|
|
|
|
my $noderef=shift;
|
|
|
|
if ($noderef =~ /xCAT_monitoring::snmpmon/) {
|
|
|
|
$noderef=shift;
|
|
|
|
}
|
|
|
|
my $scope=shift;
|
|
|
|
my $callback=shift;
|
|
|
|
|
|
|
|
my $localhostname=hostname();
|
|
|
|
|
|
|
|
if ($scope) {
|
|
|
|
if ($callback) {
|
|
|
|
my $rsp={};
|
|
|
|
$rsp->{data}->[0]="$localhostname: disabling SNMP alert on BMCs and MMs...";
|
|
|
|
$callback->($rsp);
|
|
|
|
}
|
|
|
|
#disable MMAs if any
|
|
|
|
configMPA(0, $noderef, $callback);
|
|
|
|
|
|
|
|
#disable BMC so that it stop senging alerts (PETs) to this node
|
|
|
|
configBMC(0, $noderef, $callback);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
# now check to see if the daemon is running. If it is then we need to resart or stop?
|
|
|
|
# it with the new snmptrapd.conf file that will not forward events to RMC.
|
|
|
|
chomp(my $pid= `/bin/ps -ef | /bin/grep snmptrapd | /bin/grep -v grep | /bin/awk '{print \$2}'`);
|
|
|
|
if($pid){
|
|
|
|
`/bin/kill -9 $pid`;
|
|
|
|
# start it up again!
|
|
|
|
#system("/usr/sbin/snmptrapd");
|
|
|
|
}
|
|
|
|
|
|
|
|
if ($callback) {
|
|
|
|
my $rsp={};
|
|
|
|
$rsp->{data}->[0]="$localhostname: stopped.";
|
|
|
|
$callback->($rsp);
|
|
|
|
}
|
|
|
|
|
|
|
|
return (0, "stopped");
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
#--------------------------------------------------------------------------------
|
|
|
|
=head3 supportNodeStatusMon
|
|
|
|
This function is called by the monitorctrl module to check
|
|
|
|
if SNMP can help monitoring and returning the node status.
|
|
|
|
SNMP does not support this function.
|
|
|
|
|
|
|
|
Arguments:
|
|
|
|
none
|
|
|
|
Returns:
|
|
|
|
0
|
|
|
|
=cut
|
|
|
|
#--------------------------------------------------------------------------------
|
|
|
|
sub supportNodeStatusMon {
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#--------------------------------------------------------------------------------
|
|
|
|
=head3 startNodeStatusMon
|
|
|
|
This function is called by the monitorctrl module when monstart gets called and
|
|
|
|
when xcatd starts. It starts monitoring the node status and feed them back
|
|
|
|
to xCAT.
|
|
|
|
Arguments:
|
|
|
|
p_nodes -- a pointer to an arrays of nodes to be monitored. null means all.
|
|
|
|
scope -- the action scope, it indicates the node type the action will take place.
|
|
|
|
0 means loca lhost only.
|
|
|
|
2 means both localhost and nodes,
|
|
|
|
callback -- the callback pointer for error and status displaying. It can be null.
|
|
|
|
note: p_nodes and scope are ignored by this plugin.
|
|
|
|
Returns:
|
|
|
|
(return code, message)
|
|
|
|
if the callback is set, use callback to display the status and error.
|
|
|
|
This function is called by the monitorctrl module to tell
|
|
|
|
=cut
|
|
|
|
#--------------------------------------------------------------------------------
|
|
|
|
sub startNodeStatusMon {
|
|
|
|
return (1, "This function is not supported.");
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
#--------------------------------------------------------------------------------
|
|
|
|
=head3 stopNodeStatusMon
|
|
|
|
This function is called by the monitorctrl module when monstop command is issued.
|
|
|
|
It stops feeding the node status info back to xCAT.
|
|
|
|
Arguments:
|
|
|
|
p_nodes -- a pointer to an arrays of nodes to stoped for monitoring. null means all.
|
|
|
|
scope -- the action scope, it indicates the node type the action will take place.
|
|
|
|
0 means local host only.
|
|
|
|
2 means both local host and nodes,
|
|
|
|
callback -- the callback pointer for error and status displaying. It can be null.
|
|
|
|
note: p_nodes and scope are ignored by this plugin.
|
|
|
|
Returns:
|
|
|
|
(return code, message)
|
|
|
|
if the callback is set, use callback to display the status and error.
|
|
|
|
=cut
|
|
|
|
#--------------------------------------------------------------------------------
|
|
|
|
sub stopNodeStatusMon {
|
|
|
|
return (1, "This function is not supported.");
|
|
|
|
}
|
2008-02-28 20:21:35 +00:00
|
|
|
|
2008-03-04 01:13:26 +00:00
|
|
|
|
2008-08-01 17:35:58 +00:00
|
|
|
|
|
|
|
#--------------------------------------------------------------------------------
|
|
|
|
=head3 config
|
|
|
|
This function configures the cluster for the given nodes.
|
2008-08-06 18:14:52 +00:00
|
|
|
This function is called when moncfg command is issued or when xcatd starts
|
2008-08-01 17:35:58 +00:00
|
|
|
on the service node. It will configure the cluster to include the given nodes within
|
|
|
|
the monitoring doamin.
|
|
|
|
Arguments:
|
|
|
|
p_nodes -- a pointer to an arrays of nodes to be added for monitoring. none means all.
|
|
|
|
scope -- the action scope, it indicates the node type the action will take place.
|
|
|
|
0 means localhost only.
|
|
|
|
2 means localhost and nodes,
|
|
|
|
callback -- the callback pointer for error and status displaying. It can be null.
|
|
|
|
Returns:
|
|
|
|
(error code, error message)
|
|
|
|
=cut
|
|
|
|
#--------------------------------------------------------------------------------
|
|
|
|
sub config {
|
|
|
|
print "snmpmon:config called\n";
|
|
|
|
my $noderef=shift;
|
|
|
|
if ($noderef =~ /xCAT_monitoring::snmpmon/) {
|
|
|
|
$noderef=shift;
|
|
|
|
}
|
|
|
|
my $scope=shift;
|
|
|
|
my $callback=shift;
|
|
|
|
|
|
|
|
my $localhostname=hostname();
|
2008-02-28 20:21:35 +00:00
|
|
|
|
|
|
|
# check supported snmp package
|
|
|
|
my $cmd;
|
|
|
|
my @snmpPkg = `/bin/rpm -qa | grep snmp`;
|
|
|
|
my $pkginstalled = grep(/net-snmp/, @snmpPkg);
|
|
|
|
|
2008-08-01 17:35:58 +00:00
|
|
|
if (!$pkginstalled) {
|
|
|
|
if ($callback) {
|
|
|
|
my $rsp={};
|
|
|
|
$rsp->{data}->[0]="$localhostname: net-snmp is not installed.";
|
|
|
|
$callback->($rsp);
|
|
|
|
}
|
|
|
|
return (1, "net-snmp is not installed")
|
|
|
|
} else {
|
2008-02-28 20:21:35 +00:00
|
|
|
my ($ret, $err)=configSNMP();
|
|
|
|
if ($ret != 0) { return ($ret, $err);}
|
|
|
|
}
|
|
|
|
|
2008-03-31 15:57:15 +00:00
|
|
|
#configure mail to enabling receiving mails from trap handler
|
|
|
|
configMail();
|
|
|
|
|
2008-08-01 17:35:58 +00:00
|
|
|
if ($scope) {
|
|
|
|
if ($callback) {
|
|
|
|
my $rsp={};
|
|
|
|
$rsp->{data}->[0]="$localhostname: setting up SNMP alert destination for BMCs and MMs ....";
|
|
|
|
$callback->($rsp);
|
|
|
|
}
|
|
|
|
#enable bmcs if any
|
|
|
|
configBMC(2, $noderef, $callback);
|
|
|
|
|
|
|
|
#enable MMAs if any
|
|
|
|
configMPA(2, $noderef, $callback);
|
|
|
|
}
|
|
|
|
|
|
|
|
if ($callback) {
|
|
|
|
my $rsp={};
|
|
|
|
$rsp->{data}->[0]="$localhostname: done.";
|
|
|
|
$callback->($rsp);
|
|
|
|
}
|
|
|
|
|
|
|
|
return (0, "")
|
|
|
|
}
|
|
|
|
|
|
|
|
#--------------------------------------------------------------------------------
|
|
|
|
=head3 deconfig
|
|
|
|
This function de-configures the cluster for the given nodes.
|
2008-08-06 18:14:52 +00:00
|
|
|
This function is called when mondecfg command is issued by the user.
|
|
|
|
It should remove the given nodes from the product for monitoring.
|
2008-08-01 17:35:58 +00:00
|
|
|
Arguments:
|
|
|
|
p_nodes -- a pointer to an arrays of nodes to be removed for monitoring. none means all.
|
|
|
|
scope -- the action scope, it indicates the node type the action will take place.
|
|
|
|
0 means local host only.
|
|
|
|
2 means both local host and nodes,
|
|
|
|
callback -- the callback pointer for error and status displaying. It can be null.
|
|
|
|
Returns:
|
|
|
|
(error code, error message)
|
|
|
|
=cut
|
|
|
|
#--------------------------------------------------------------------------------
|
|
|
|
sub deconfig {
|
|
|
|
print "snmpmon:deconfig called\n";
|
|
|
|
my $noderef=shift;
|
|
|
|
if ($noderef =~ /xCAT_monitoring::snmpmon/) {
|
|
|
|
$noderef=shift;
|
|
|
|
}
|
|
|
|
my $scope=shift;
|
|
|
|
my $callback=shift;
|
|
|
|
my $localhostname=hostname();
|
|
|
|
|
|
|
|
if (-f "/usr/share/snmp/snmptrapd.conf.orig"){
|
|
|
|
# copy back the old one
|
|
|
|
`mv -f /usr/share/snmp/snmptrapd.conf.orig /usr/share/snmp/snmptrapd.conf`;
|
|
|
|
} else {
|
|
|
|
if (-f "/usr/share/snmp/snmptrapd.conf"){
|
|
|
|
|
|
|
|
# if the file exists, delete all entries that have xcat_traphandler
|
|
|
|
my $cmd = "grep -v xcat_traphandler /usr/share/snmp/snmptrapd.conf ";
|
|
|
|
$cmd .= "> /usr/share/snmp/snmptrapd.conf.unconfig ";
|
|
|
|
`$cmd`;
|
|
|
|
|
|
|
|
# move it back to the snmptrapd.conf file.
|
|
|
|
`mv -f /usr/share/snmp/snmptrapd.conf.unconfig /usr/share/snmp/snmptrapd.conf`;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
if ($callback) {
|
|
|
|
my $rsp={};
|
|
|
|
$rsp->{data}->[0]="$localhostname: done.";
|
|
|
|
$callback->($rsp);
|
|
|
|
}
|
|
|
|
|
|
|
|
return (0, "");
|
2008-02-28 20:21:35 +00:00
|
|
|
}
|
|
|
|
|
2008-08-01 17:35:58 +00:00
|
|
|
|
|
|
|
|
2008-03-12 02:57:01 +00:00
|
|
|
#--------------------------------------------------------------------------------
|
|
|
|
=head3 configBMC
|
|
|
|
This function configures BMC to setup the snmp destination, enable/disable
|
|
|
|
PEF policy table entry number 1.
|
|
|
|
Arguments:
|
2008-08-01 17:35:58 +00:00
|
|
|
actioon -- 0 disable alert. 1 enable alert. 2 setup snmp destination
|
|
|
|
|
|
|
|
p_nodes -- a pointer to an arrays of nodes to be monitored. null means all.
|
|
|
|
callback -- the callback pointer for error and status displaying. It can be null.
|
2008-03-12 02:57:01 +00:00
|
|
|
Returns:
|
|
|
|
(return code, message)
|
|
|
|
=cut
|
|
|
|
#--------------------------------------------------------------------------------
|
|
|
|
sub configBMC {
|
|
|
|
my $action=shift;
|
2008-08-01 17:35:58 +00:00
|
|
|
my $noderef=shift;
|
|
|
|
my $callback=shift;
|
2008-03-12 02:57:01 +00:00
|
|
|
|
2008-03-28 18:45:49 +00:00
|
|
|
my $ret_text="";
|
|
|
|
my $ret_val=0;
|
|
|
|
|
|
|
|
#the identification of this node
|
2008-03-12 02:57:01 +00:00
|
|
|
my @hostinfo=xCAT::Utils->determinehostname();
|
2008-05-16 15:09:43 +00:00
|
|
|
my $isSV=xCAT::Utils->isServiceNode();
|
2008-08-01 17:35:58 +00:00
|
|
|
my %iphash=();
|
2008-03-12 02:57:01 +00:00
|
|
|
foreach(@hostinfo) {$iphash{$_}=1;}
|
2008-05-16 15:09:43 +00:00
|
|
|
if (!$isSV) { $iphash{'noservicenode'}=1;}
|
2008-08-01 17:35:58 +00:00
|
|
|
|
|
|
|
my $pPairHash=xCAT_monitoring::monitorctrl->getNodeMonServerPair($noderef, 0);
|
2009-03-17 21:07:21 +00:00
|
|
|
if (ref($pPairHash) eq 'ARRAY') {
|
|
|
|
if ($callback) {
|
|
|
|
my $rsp={};
|
|
|
|
if ($ret_val) {
|
|
|
|
$rsp->{data}->[0]=$pPairHash->[1];
|
|
|
|
}
|
|
|
|
$callback->($rsp);
|
|
|
|
} else {
|
|
|
|
xCAT::MsgUtils->message('S', "[mon]: " . $pPairHash->[1]);
|
|
|
|
}
|
|
|
|
return (0, "");
|
|
|
|
}
|
|
|
|
|
2008-08-01 17:35:58 +00:00
|
|
|
|
2008-03-19 18:27:20 +00:00
|
|
|
my %masterhash=();
|
|
|
|
my @node_a=();
|
2008-03-12 02:57:01 +00:00
|
|
|
my $table=xCAT::Table->new("ipmi");
|
|
|
|
if ($table) {
|
2008-03-19 18:27:20 +00:00
|
|
|
my @tmp1=$table->getAllNodeAttribs(['node','bmc']);
|
2008-08-01 17:35:58 +00:00
|
|
|
if (@tmp1 > 0) {
|
2008-03-12 02:57:01 +00:00
|
|
|
foreach(@tmp1) {
|
|
|
|
my $node=$_->{node};
|
2008-03-14 03:02:12 +00:00
|
|
|
my $bmc=$_->{bmc};
|
2008-08-01 17:35:58 +00:00
|
|
|
if (! exists($pPairHash->{$node})) {next;}
|
2008-03-12 02:57:01 +00:00
|
|
|
|
2008-08-01 17:35:58 +00:00
|
|
|
my $pairs=$pPairHash->{$node};
|
2009-03-17 21:07:21 +00:00
|
|
|
my @a_temp=split(':',$pairs);
|
2008-05-16 15:09:43 +00:00
|
|
|
my $monserver=$a_temp[0];
|
|
|
|
my $master=$a_temp[1];
|
2008-03-19 18:27:20 +00:00
|
|
|
|
|
|
|
if ($monserver) {
|
|
|
|
if (!$iphash{$monserver}) { next;} #skip if has sn but not localhost
|
|
|
|
} else {
|
|
|
|
if ($isSV) { next; } #skip if does not have sn but localhost is a sn
|
|
|
|
}
|
2008-03-14 03:02:12 +00:00
|
|
|
|
2008-03-19 18:27:20 +00:00
|
|
|
push(@node_a, $node);
|
|
|
|
|
|
|
|
# find the master node and add the node in the hash
|
|
|
|
if(exists($masterhash{$master})) {
|
|
|
|
my $ref=$masterhash{$master};
|
|
|
|
push(@$ref, $node);
|
|
|
|
} else { $masterhash{$master}=[$node]; }
|
|
|
|
} #foreach
|
2008-03-12 02:57:01 +00:00
|
|
|
}
|
2008-03-14 03:02:12 +00:00
|
|
|
$table->close();
|
2008-03-12 02:57:01 +00:00
|
|
|
}
|
2008-03-19 18:27:20 +00:00
|
|
|
|
2008-03-28 18:45:49 +00:00
|
|
|
if (@node_a==0){ return ($ret_val, $ret_text);} #nothing to handle
|
2008-05-16 15:09:43 +00:00
|
|
|
#print "configBMC: node_a=@node_a\n";
|
2008-03-19 18:27:20 +00:00
|
|
|
|
|
|
|
#now doing the real thing: enable PEF alert policy table
|
|
|
|
my $noderange=join(',',@node_a );
|
2008-08-01 17:35:58 +00:00
|
|
|
if ($action==0) {
|
|
|
|
print "XCATBYPASS=Y rspconfig $noderange alert=dis\n";
|
|
|
|
my $result = `XCATBYPASS=Y rspconfig $noderange alert=dis 2>&1`;
|
|
|
|
if ($?) {
|
|
|
|
xCAT::MsgUtils->message('S', "[mon]: Changeing SNMP PEF policy for IPMI nodes $noderange:\n $result\n");
|
|
|
|
$ret_text .= "Changeing SNMP PEF policy for IPMI nodes $noderange:\n $result\n";
|
|
|
|
}
|
|
|
|
} elsif ($action==1) {
|
|
|
|
print "XCATBYPASS=Y rspconfig $noderange alert=en\n";
|
|
|
|
my $result = `XCATBYPASS=Y rspconfig $noderange alert=en 2>&1`;
|
|
|
|
if ($?) {
|
|
|
|
xCAT::MsgUtils->message('S', "[mon]: Changeing SNMP PEF policy for IPMI nodes $noderange:\n $result\n");
|
|
|
|
$ret_text .= "Changeing SNMP PEF policy for IPMI nodes $noderange:\n $result\n";
|
|
|
|
}
|
|
|
|
} else {
|
|
|
|
#setup the snmp destination
|
2008-03-19 18:27:20 +00:00
|
|
|
foreach (keys(%masterhash)) {
|
|
|
|
my $ref2=$masterhash{$_};
|
|
|
|
if (@$ref2==0) { next;}
|
|
|
|
my $nr2=join(',', @$ref2);
|
2008-05-16 15:09:43 +00:00
|
|
|
my @tmp_a=xCAT::Utils::toIP($_);
|
|
|
|
my $ptmp=$tmp_a[0];
|
|
|
|
if ($ptmp->[0]>0) {
|
|
|
|
xCAT::MsgUtils->message('S', "[mon]: Converting to IP: $ptmp->[1]\n");
|
|
|
|
$ret_val=1;
|
|
|
|
$ret_text .= "Converting to IP: $ptmp->[1]\n";
|
|
|
|
} else {
|
2008-08-01 17:35:58 +00:00
|
|
|
print "XCATBYPASS=Y rspconfig $nr2 snmpdest=$ptmp->[1]\n";
|
2008-05-16 15:09:43 +00:00
|
|
|
my $result2 = `XCATBYPASS=Y rspconfig $nr2 snmpdest=$ptmp->[1] 2>&1`;
|
|
|
|
if ($?) {
|
|
|
|
xCAT::MsgUtils->message('S', "[mon]: Changing SNMP destination for IPMI nodes $nr2:\n $result2\n");
|
2008-08-01 17:35:58 +00:00
|
|
|
$ret_text .= "Changing SNMP destination for IPMI nodes $nr2:\n $result2\n";
|
2008-05-16 15:09:43 +00:00
|
|
|
}
|
2008-03-19 18:27:20 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
2008-03-28 18:45:49 +00:00
|
|
|
|
2008-08-01 17:35:58 +00:00
|
|
|
if ($callback) {
|
|
|
|
my $rsp={};
|
|
|
|
if ($ret_val) {
|
|
|
|
$rsp->{data}->[0]="$ret_text";
|
|
|
|
}
|
|
|
|
$callback->($rsp);
|
|
|
|
}
|
|
|
|
|
2008-03-28 18:45:49 +00:00
|
|
|
return ($ret_val, $ret_text);
|
|
|
|
|
2008-03-12 02:57:01 +00:00
|
|
|
}
|
|
|
|
|
2008-02-28 20:21:35 +00:00
|
|
|
|
2008-03-28 18:45:49 +00:00
|
|
|
#--------------------------------------------------------------------------------
|
|
|
|
=head3 configMPA
|
|
|
|
This function configures Blade Center Management Module to setup the snmp destination,
|
|
|
|
enable/disable remote alert notification.
|
|
|
|
Arguments:
|
2008-08-01 17:35:58 +00:00
|
|
|
actioon -- 1 enable remote alert notification. 0 disable remote alert notification.
|
|
|
|
2 setting up snmp destination.
|
|
|
|
p_nodes -- a pointer to an arrays of nodes to be monitored. null means all.
|
|
|
|
callback -- the callback pointer for error and status displaying. It can be null.
|
2008-03-28 18:45:49 +00:00
|
|
|
Returns:
|
|
|
|
(return code, message)
|
|
|
|
=cut
|
|
|
|
#--------------------------------------------------------------------------------
|
|
|
|
sub configMPA {
|
|
|
|
my $action=shift;
|
2008-08-01 17:35:58 +00:00
|
|
|
my $noderef=shift;
|
|
|
|
my $callback=shift;
|
2008-03-28 18:45:49 +00:00
|
|
|
|
|
|
|
my $ret_val=0;
|
|
|
|
my $ret_text="";
|
|
|
|
|
|
|
|
#the identification of this node
|
|
|
|
my @hostinfo=xCAT::Utils->determinehostname();
|
2008-05-16 15:09:43 +00:00
|
|
|
my $isSV=xCAT::Utils->isServiceNode();
|
2008-08-01 17:35:58 +00:00
|
|
|
my %iphash=();
|
2008-03-28 18:45:49 +00:00
|
|
|
foreach(@hostinfo) {$iphash{$_}=1;}
|
2008-05-16 15:09:43 +00:00
|
|
|
if (!$isSV) { $iphash{'noservicenode'}=1;}
|
2008-03-28 18:45:49 +00:00
|
|
|
|
2008-08-01 17:35:58 +00:00
|
|
|
my $all=0;
|
|
|
|
my %nodehash=();
|
|
|
|
if ((!$noderef) || (@$noderef==0)) {$all=1;}
|
|
|
|
else {
|
|
|
|
foreach(@$noderef) { $nodehash{$_}=1;}
|
|
|
|
}
|
|
|
|
|
2008-03-28 18:45:49 +00:00
|
|
|
my %mpa_hash=();
|
|
|
|
my %masterhash=();
|
|
|
|
my @node_a=();
|
|
|
|
my $table=xCAT::Table->new("mp");
|
|
|
|
if ($table) {
|
2008-08-01 17:35:58 +00:00
|
|
|
my @tmp1=$table->getAllNodeAttribs(['node','mpa']);
|
|
|
|
if (@tmp1 > 0) {
|
2008-03-28 18:45:49 +00:00
|
|
|
foreach(@tmp1) {
|
2008-08-01 17:35:58 +00:00
|
|
|
my $node=$_->{node};
|
2008-03-28 18:45:49 +00:00
|
|
|
my $mpa=$_->{mpa};
|
2008-08-01 17:35:58 +00:00
|
|
|
if ((!$all) && (!exists($nodehash{$node})) && (!exists($nodehash{$mpa}))) {next;}
|
2008-03-28 18:45:49 +00:00
|
|
|
|
|
|
|
if ($mpa_hash{$mpa}) { next;} #already handled
|
|
|
|
|
|
|
|
$mpa_hash{$mpa}=1;
|
|
|
|
|
2008-08-01 17:35:58 +00:00
|
|
|
my $pHash=xCAT_monitoring::monitorctrl->getNodeMonServerPair([$mpa], 0);
|
2009-03-17 21:07:21 +00:00
|
|
|
if (ref($pHash) eq 'ARRAY') {
|
|
|
|
if ($callback) {
|
|
|
|
my $rsp={};
|
|
|
|
if ($ret_val) {
|
|
|
|
$rsp->{data}->[0]=$pHash->[1];
|
|
|
|
}
|
|
|
|
$callback->($rsp);
|
|
|
|
} else {
|
|
|
|
xCAT::MsgUtils->message('S', "[mon]: " . $pHash->[1]);
|
|
|
|
}
|
|
|
|
return (0, "");
|
|
|
|
}
|
|
|
|
|
2008-08-01 17:35:58 +00:00
|
|
|
my $pairs=$pHash->{$mpa};
|
2009-03-17 21:07:21 +00:00
|
|
|
my @a_temp=split(':',$pairs);
|
2008-05-16 15:09:43 +00:00
|
|
|
my $monserver=$a_temp[0];
|
|
|
|
my $master=$a_temp[1];
|
2008-03-28 18:45:49 +00:00
|
|
|
|
|
|
|
if ($monserver) {
|
|
|
|
if (!$iphash{$monserver}) { next;} #skip if has sn but not localhost
|
|
|
|
} else {
|
|
|
|
if ($isSV) { next; } #skip if does not have sn but localhost is a sn
|
|
|
|
}
|
|
|
|
|
|
|
|
push(@node_a, $mpa);
|
|
|
|
|
|
|
|
# find the master node and add the node in the hash
|
|
|
|
if(exists($masterhash{$master})) {
|
|
|
|
my $ref=$masterhash{$master};
|
|
|
|
push(@$ref, $mpa);
|
|
|
|
} else { $masterhash{$master}=[$mpa]; }
|
|
|
|
} #foreach
|
|
|
|
}
|
|
|
|
$table->close();
|
|
|
|
}
|
|
|
|
|
|
|
|
if (@node_a==0){ return ($ret_val, $ret_text);} #nothing to handle
|
2008-05-16 15:09:43 +00:00
|
|
|
#print "configMPA: node_a=@node_a\n";
|
|
|
|
|
2008-03-28 18:45:49 +00:00
|
|
|
|
|
|
|
#now doing the real thing: enable PEF alert policy table
|
|
|
|
my $noderange=join(',',@node_a );
|
2008-08-01 17:35:58 +00:00
|
|
|
if ($action==0) {
|
|
|
|
print "XCATBYPASS=Y rspconfig $noderange alert=dis\n";
|
|
|
|
my $result = `XCATBYPASS=Y rspconfig $noderange alert=dis 2>&1`;
|
|
|
|
if ($?) {
|
|
|
|
xCAT::MsgUtils->message('S', "[mon]: Changeing SNMP remote alert profile for Blade Center MM $noderange:\n $result\n");
|
|
|
|
$ret_text .= "Changeing SNMP remote alert profile for Blade Center MM $noderange:\n $result\n";
|
|
|
|
}
|
|
|
|
} elsif ($action==1) {
|
|
|
|
print "XCATBYPASS=Y rspconfig $noderange alert=en\n";
|
|
|
|
my $result = `XCATBYPASS=Y rspconfig $noderange alert=en 2>&1`;
|
|
|
|
if ($?) {
|
|
|
|
xCAT::MsgUtils->message('S', "[mon]: Changeing SNMP remote alert profile for Blade Center MM $noderange:\n $result\n");
|
|
|
|
$ret_text .= "Changeing SNMP remote alert profile for Blade Center MM $noderange:\n $result\n";
|
|
|
|
}
|
|
|
|
} else {
|
|
|
|
#setup the snmp destination
|
2008-03-28 18:45:49 +00:00
|
|
|
foreach (keys(%masterhash)) {
|
|
|
|
my $ref2=$masterhash{$_};
|
|
|
|
if (@$ref2==0) { next;}
|
|
|
|
my $nr2=join(',', @$ref2);
|
2008-05-16 15:09:43 +00:00
|
|
|
my @tmp_a=xCAT::Utils::toIP($_);
|
|
|
|
my $ptmp=$tmp_a[0];
|
|
|
|
if ($ptmp->[0]>0) {
|
|
|
|
xCAT::MsgUtils->message('S', "[mon]: Converting to IP: $ptmp->[1]\n");
|
|
|
|
$ret_val=1;
|
|
|
|
$ret_text .= "Converting to IP: $ptmp->[1]\n";
|
|
|
|
} else {
|
2008-08-01 17:35:58 +00:00
|
|
|
print "XCATBYPASS=Y rspconfig $nr2 snmpdest=$ptmp->[1]\n";
|
2008-05-16 15:09:43 +00:00
|
|
|
my $result2 = `XCATBYPASS=Y rspconfig $nr2 snmpdest=$ptmp->[1] 2>&1`;
|
|
|
|
if ($?) {
|
|
|
|
xCAT::MsgUtils->message('S', "[mon]: Changing SNMP destination for Blade Center MM $nr2:\n $result2\n");
|
|
|
|
$ret_text .= "Changing SNMP destination for Blade Center MM $nr2:\n $result2\n";
|
|
|
|
}
|
2008-03-28 18:45:49 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2008-08-01 17:35:58 +00:00
|
|
|
if ($callback) {
|
|
|
|
my $rsp={};
|
|
|
|
if ($ret_val) {
|
|
|
|
$rsp->{data}->[0]="$ret_text";
|
|
|
|
}
|
|
|
|
$callback->($rsp);
|
|
|
|
}
|
|
|
|
|
2008-03-28 18:45:49 +00:00
|
|
|
return ($ret_val, $ret_text);
|
|
|
|
}
|
|
|
|
|
2008-03-31 15:57:15 +00:00
|
|
|
|
2008-02-28 20:21:35 +00:00
|
|
|
#--------------------------------------------------------------------------------
|
|
|
|
=head3 configSNMP
|
|
|
|
This function puts xcat_traphanlder into the snmptrapd.conf file and
|
|
|
|
restarts the snmptrapd with the new configuration.
|
|
|
|
Arguments:
|
|
|
|
none.
|
|
|
|
Returns:
|
|
|
|
(return code, message)
|
|
|
|
=cut
|
|
|
|
#--------------------------------------------------------------------------------
|
|
|
|
sub configSNMP {
|
2008-05-05 20:54:35 +00:00
|
|
|
my $isSN=xCAT::Utils->isServiceNode();
|
|
|
|
my $master=xCAT::Utils->get_site_Master();
|
2008-02-28 20:21:35 +00:00
|
|
|
my $cmd;
|
2008-05-05 20:54:35 +00:00
|
|
|
# now move /usr/share/snmp/snmptrapd.conf to /usr/share/snmp/snmptrapd.conf.orig
|
2008-02-28 20:21:35 +00:00
|
|
|
# if it exists.
|
|
|
|
if (-f "/usr/share/snmp/snmptrapd.conf"){
|
|
|
|
|
2008-05-05 20:54:35 +00:00
|
|
|
# if the file exists and has references to xcat_traphandler in mn or 'forward' in sn
|
|
|
|
# then there is nothing that needs to be done.
|
|
|
|
if ($isSN) {
|
|
|
|
`/bin/grep "forward default $master" /usr/share/snmp/snmptrapd.conf > /dev/null`;
|
|
|
|
} else {
|
|
|
|
`/bin/grep xcat_traphandler /usr/share/snmp/snmptrapd.conf > /dev/null`;
|
|
|
|
}
|
2008-02-28 20:21:35 +00:00
|
|
|
|
2008-05-05 20:54:35 +00:00
|
|
|
# if the return code is 1, then there is no xcat_traphandler, or 'forward'
|
2008-02-28 20:21:35 +00:00
|
|
|
# references and we need to put them in.
|
|
|
|
if($? >> 8){
|
|
|
|
# back up the original file.
|
|
|
|
`/bin/cp -f /usr/share/snmp/snmptrapd.conf /usr/share/snmp/snmptrapd.conf.orig`;
|
|
|
|
|
2008-05-05 20:54:35 +00:00
|
|
|
# if the file exists and does not have "authCommunity execute,net public" then add it.
|
2008-02-28 20:21:35 +00:00
|
|
|
open(FILE1, "</usr/share/snmp/snmptrapd.conf");
|
|
|
|
open(FILE, ">/usr/share/snmp/snmptrapd.conf.tmp");
|
|
|
|
my $found=0;
|
2008-05-05 20:54:35 +00:00
|
|
|
my $forward_handled=0;
|
2008-02-28 20:21:35 +00:00
|
|
|
while (readline(FILE1)) {
|
2008-05-05 20:54:35 +00:00
|
|
|
if (/\s*authCommunity.*public/) {
|
|
|
|
$found=1;
|
|
|
|
if (!/\s*authCommunity\s*.*execute.*public/) {
|
|
|
|
s/authCommunity\s*(.*)\s* public/authCommunity $1,execute public/; #modify it to have 'execute' if found
|
|
|
|
}
|
|
|
|
if (!/\s*authCommunity\s*.*net.*public/) {
|
|
|
|
s/authCommunity\s*(.*)\s* public/authCommunity $1,net public/; #modify it to have 'net' if found
|
|
|
|
}
|
|
|
|
} elsif (/\s*forward\s*default/) {
|
|
|
|
if (($isSN) && (!/$master/)) {
|
|
|
|
s/\s*forward/\#forward/; #comment out the old one
|
|
|
|
if (!$forward_handled) {
|
|
|
|
print FILE "forward default $master\n";
|
2008-08-01 17:35:58 +00:00
|
|
|
$forward_handled=1;
|
2008-05-05 20:54:35 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
print FILE $_;
|
|
|
|
}
|
|
|
|
|
2008-02-28 20:21:35 +00:00
|
|
|
|
2008-05-05 20:54:35 +00:00
|
|
|
|
|
|
|
if (!$found) { #add new one if not found
|
|
|
|
print FILE "authCommunity log,execute,net public\n";
|
2008-02-28 20:21:35 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
# now add the new traphandle commands:
|
2008-05-05 20:54:35 +00:00
|
|
|
if (!$isSN) {
|
|
|
|
print FILE "traphandle default $::XCATROOT/sbin/xcat_traphandler\n";
|
|
|
|
}
|
2008-02-28 20:21:35 +00:00
|
|
|
|
2008-04-04 18:33:40 +00:00
|
|
|
close(FILE1);
|
2008-02-28 20:21:35 +00:00
|
|
|
close(FILE);
|
|
|
|
`mv -f /usr/share/snmp/snmptrapd.conf.tmp /usr/share/snmp/snmptrapd.conf`;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
else { # The snmptrapd.conf file does not exists
|
|
|
|
# create the file:
|
2008-08-01 17:35:58 +00:00
|
|
|
my $handle = new IO::File;
|
2008-02-28 20:21:35 +00:00
|
|
|
open($handle, ">/usr/share/snmp/snmptrapd.conf");
|
2008-05-05 20:54:35 +00:00
|
|
|
print $handle "authCommunity log,execute,net public\n";
|
|
|
|
if ($isSN) {
|
|
|
|
print $handle "forward default $master\n"; #forward the trap from sn to mn
|
|
|
|
} else {
|
|
|
|
print $handle "traphandle default $::XCATROOT/sbin/xcat_traphandler\n";
|
|
|
|
}
|
2008-02-28 20:21:35 +00:00
|
|
|
close($handle);
|
|
|
|
}
|
|
|
|
|
|
|
|
# TODO: put the mib files to /usr/share/snmp/mibs
|
2008-08-01 17:35:58 +00:00
|
|
|
return (0, "");
|
2008-02-28 20:21:35 +00:00
|
|
|
}
|
|
|
|
|
2008-03-31 15:57:15 +00:00
|
|
|
#--------------------------------------------------------------------------------
|
|
|
|
=head3 configMail
|
|
|
|
This function adds a "alerts" mail aliase so that the mail notification
|
|
|
|
from the trap handler can be received. It the alerts already exists, this
|
|
|
|
function does nothing.
|
|
|
|
TODO: configure mail servers on MS to forward mails to MS
|
|
|
|
Arguments:
|
|
|
|
none
|
|
|
|
Returns:
|
|
|
|
(return code, message)
|
|
|
|
=cut
|
|
|
|
#--------------------------------------------------------------------------------
|
|
|
|
sub configMail {
|
|
|
|
#check if "alerts" is in the /etc/aliases file
|
|
|
|
if (-f "/etc/aliases"){
|
|
|
|
# if the file exists, check if alerts is in
|
|
|
|
`/bin/grep -e ^alerts /etc/aliases > /dev/null`;
|
|
|
|
if ($? ==0) { return (0, "") };
|
|
|
|
}
|
|
|
|
|
|
|
|
#make a alerts aliase, forwarding the mail to the root of local host.
|
|
|
|
`echo "alerts: root" >> /etc/aliases`;
|
|
|
|
|
|
|
|
#make it effective
|
|
|
|
`newaliases`;
|
|
|
|
|
|
|
|
return (0, "");
|
|
|
|
}
|
|
|
|
|
2008-02-28 20:21:35 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
2008-03-04 21:45:26 +00:00
|
|
|
#--------------------------------------------------------------------------------
|
|
|
|
=head3 processSettingChanges
|
|
|
|
This function gets called when the setting for this monitoring plugin
|
|
|
|
has been changed in the monsetting table.
|
|
|
|
Arguments:
|
|
|
|
none.
|
|
|
|
Returns:
|
|
|
|
0 for successful.
|
|
|
|
non-0 for not successful.
|
|
|
|
=cut
|
|
|
|
#--------------------------------------------------------------------------------
|
|
|
|
sub processSettingChanges {
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
#--------------------------------------------------------------------------------
|
|
|
|
=head3 getDiscription
|
|
|
|
This function returns the detailed description of the plugin inluding the
|
|
|
|
valid values for its settings in the monsetting tabel.
|
|
|
|
Arguments:
|
|
|
|
none
|
|
|
|
Returns:
|
|
|
|
The description.
|
|
|
|
=cut
|
|
|
|
#--------------------------------------------------------------------------------
|
|
|
|
sub getDescription {
|
2008-03-05 20:43:37 +00:00
|
|
|
return
|
|
|
|
" Description:
|
|
|
|
snmpmon sets up the snmptrapd on the management server to receive SNMP
|
|
|
|
traps for different nodes. It also sets the trap destination for Blade
|
2008-03-07 13:24:23 +00:00
|
|
|
Center Management Module, RSA II, IPMIs that are managed by the xCAT cluster.
|
|
|
|
xCAT has categorized some events into different event priorities (critical,
|
|
|
|
warning and informational) based on the MIBs we know such as MM, RSA II and
|
|
|
|
IPMI. All the unknown events are categorized as 'warning'. By default,
|
|
|
|
the xCAT trap handler will log all events into the syslog and only
|
|
|
|
email the critical and the warning events to the mail alias called 'alerts'.
|
|
|
|
You can use the settings to override the default behavior.
|
2008-03-21 20:59:14 +00:00
|
|
|
Use command 'monstart snmpmon' to star monitoring and 'monstop snmpmon'
|
2008-03-07 13:24:23 +00:00
|
|
|
to stop it.
|
2008-03-04 21:45:26 +00:00
|
|
|
Settings:
|
2008-03-05 20:43:37 +00:00
|
|
|
ignore: specifies the events that will be ignored. It's a comma separated
|
|
|
|
pairs of oid=value. For example,
|
|
|
|
BLADESPPALT-MIB::spTrapAppType=4,BLADESPPALT-MIB::spTrapAppType=4.
|
2008-03-07 13:24:23 +00:00
|
|
|
email: specifies the events that will get email notification.
|
|
|
|
log: specifies the events that will get logged.
|
|
|
|
runcmd: specifies the events that will be passed to the user defined scripts.
|
|
|
|
cmds: specifies the command names that will be invoked for the events
|
|
|
|
specified in the runcmd row.
|
|
|
|
|
|
|
|
Special keywords for specifying events:
|
|
|
|
All -- all events.
|
|
|
|
None -- none of the events.
|
|
|
|
Critical -- all critical events.
|
|
|
|
Warning -- all warning events.
|
|
|
|
Informational -- all informational events.
|
|
|
|
|
|
|
|
For example, you can have the following setting:
|
|
|
|
email CRITICAL,BLADESPPALT-MIB::pTrapPriority=4
|
2008-03-07 21:01:14 +00:00
|
|
|
This means send email for all the critical events and the BladeCenter
|
2008-03-07 13:24:23 +00:00
|
|
|
system events.\n"
|
2008-03-04 21:45:26 +00:00
|
|
|
}
|
2008-03-19 18:27:20 +00:00
|
|
|
|
2008-08-01 17:35:58 +00:00
|
|
|
#--------------------------------------------------------------------------------
|
|
|
|
=head3 getNodesMonServers
|
|
|
|
This function checks the given nodes, if they are bmc/ipmi nodes, the monserver pairs of
|
|
|
|
the nodes will be returned. If the nodes are managed by MM, the monserver pairs of their
|
|
|
|
mpa will be returned.
|
|
|
|
Arguments:
|
|
|
|
p_nodes -- a pointer to an arrays of nodes to be added for monitoring. none means all.
|
|
|
|
callback -- the callback pointer for error and status displaying. It can be null.
|
|
|
|
Returns:
|
|
|
|
A pointer to a hash table with monserver pairs as the key and an array
|
|
|
|
pointer of nodes as the value.
|
|
|
|
For example: { "sv1,ma1"=>[node1,node2], "sv2,ma2"=>node3...}
|
|
|
|
The pair is in the format of "monserver,monmaser". First one is the monitoring service
|
|
|
|
node ip/hostname that faces the mn and the second one is the monitoring service
|
|
|
|
node ip/hostname that faces the cn.
|
|
|
|
The value of the first one can be "noservicenode" meaning that there is no service node
|
|
|
|
for that node. In this case the second one is the site master.
|
2009-03-17 21:07:21 +00:00
|
|
|
It retuens a pointer to an array if there is an error. Format is [code, message].
|
2008-08-01 17:35:58 +00:00
|
|
|
=cut
|
|
|
|
#--------------------------------------------------------------------------------
|
|
|
|
sub getNodesMonServers
|
|
|
|
{
|
|
|
|
print "snmpmon:getNodesMonServer called\n";
|
|
|
|
my $noderef=shift;
|
|
|
|
if ($noderef =~ /xCAT_monitoring::snmpmon/) {
|
|
|
|
$noderef=shift;
|
|
|
|
}
|
|
|
|
my $callback=shift;
|
|
|
|
|
|
|
|
my $ret={};
|
|
|
|
my $localhostname=hostname();
|
|
|
|
my $pPairHash=xCAT_monitoring::monitorctrl->getNodeMonServerPair($noderef, 0);
|
|
|
|
|
2009-03-17 21:07:21 +00:00
|
|
|
if (ref($pPairHash) eq 'ARRAY') {
|
|
|
|
return $pPairHash;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
2008-08-01 17:35:58 +00:00
|
|
|
#check for blades, only returns the MPAs and their monservers
|
|
|
|
my %mpa_hash=();
|
|
|
|
my $table=xCAT::Table->new("mp");
|
|
|
|
if ($table) {
|
|
|
|
my @tmp1=$table->getAllNodeAttribs(['node','mpa']);
|
|
|
|
if (@tmp1 > 0) {
|
|
|
|
foreach(@tmp1) {
|
|
|
|
my $node=$_->{node};
|
|
|
|
my $mpa=$_->{mpa};
|
|
|
|
if ((!exists($pPairHash->{$node})) && (!exists($pPairHash->{$mpa}))) {next;} #not in input
|
|
|
|
|
|
|
|
#if (exists($pPairHash->{$node})) { delete($pPairHash->{$node}); }
|
|
|
|
if ($mpa_hash{$mpa}) { next;} #already handled
|
|
|
|
|
|
|
|
$mpa_hash{$mpa}=1;
|
|
|
|
|
|
|
|
my $pairs;
|
|
|
|
if (exists($pPairHash->{$mpa})) {
|
|
|
|
$pairs=$pPairHash->{$mpa};
|
|
|
|
} else {
|
|
|
|
my $pHash=xCAT_monitoring::monitorctrl->getNodeMonServerPair([$mpa], 0);
|
2009-03-17 21:07:21 +00:00
|
|
|
if (ref($pHash) eq 'ARRAY') {
|
|
|
|
return $pHash;
|
|
|
|
}
|
|
|
|
|
2008-08-01 17:35:58 +00:00
|
|
|
$pairs=$pHash->{$mpa};
|
|
|
|
}
|
|
|
|
|
|
|
|
if (exists($ret->{$pairs})) {
|
|
|
|
my $pa=$ret->{$pairs};
|
|
|
|
push(@$pa, $mpa);
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
$ret->{$pairs}=[$mpa];
|
|
|
|
}
|
|
|
|
|
|
|
|
#if (exists($pPairHash->{$mpa}))) { delete($pPairHash->{$mpa}); }
|
|
|
|
} #foreach
|
|
|
|
}
|
|
|
|
$table->close();
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
#check BMC/IPMI nodes
|
|
|
|
$table=xCAT::Table->new("ipmi");
|
|
|
|
if ($table) {
|
|
|
|
my @tmp1=$table->getAllNodeAttribs(['node','bmc']);
|
|
|
|
if (@tmp1 > 0) {
|
|
|
|
foreach(@tmp1) {
|
|
|
|
my $node=$_->{node};
|
|
|
|
my $bmc=$_->{bmc};
|
|
|
|
if (! exists($pPairHash->{$node})) {next;}
|
|
|
|
my $pairs=$pPairHash->{$node};
|
|
|
|
|
|
|
|
if (exists($ret->{$pairs})) {
|
|
|
|
my $pa=$ret->{$pairs};
|
|
|
|
push(@$pa, $node);
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
$ret->{$pairs}=[$node];
|
|
|
|
}
|
|
|
|
|
|
|
|
#delete($pPairHash->{$node});
|
|
|
|
} #foreach
|
|
|
|
}
|
|
|
|
$table->close();
|
|
|
|
}
|
|
|
|
|
|
|
|
return $ret;
|
|
|
|
}
|