xCAT/xcat-core
2
0
Fork 0
mirror of https://github.com/xcat2/xcat-core.git synced 2025-06-16 03:10:36 +00:00
Code Issues Releases Wiki Activity

Add rvitals support for Infrastructure PDUs

Browse Source
This commit is contained in:
Casandra Qiu
2018-01-05 13:29:37 -05:00
parent b750ea34d4
commit f438e1b432
1 changed files with 52 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

54
xCAT-server/lib/xcat/plugins/pdu.pm
View File

@ -988,7 +988,6 @@ sub rinv_for_irpdu
if ($output) {
xCAT::SvrUtils::sendmsg("PDU Description: $output", $callback,$pdu);
}
}
@ -1021,7 +1020,16 @@ sub showMonitorData {
foreach my $pdu (@$noderange) {
unless ($pduhash->{$pdu}->[0]->{pdutype} eq "crpdu") {
xCAT::SvrUtils::sendmsg("This command only supports CONSTELLATION PDU with pdutype=crpdu", $callback,$pdu);
my $session = connectTopdu($pdu,$callback);
if (!$session) {
$callback->({ errorcode => [1],error => "Couldn't connect to $pdu"});
next;
}
my $count = $pduhash->{$pdu}->[0]->{outlet};
unless ($count) {
$count = fill_outletCount($session, $pdu, $callback);
}
rvitals_for_irpdu($pdu, $count, $session, $callback);
next;
}
@ -1050,6 +1058,48 @@ sub showMonitorData {
}
}
sub rvitals_for_irpdu
{
my $pdu = shift;
my $count = shift;
my $session = shift;
my $callback = shift;
my $output;
# get power info for each outlet
# starts oid .2.6.223.8.2.2.1.7 to .2.6.223.8.2.2.1.14
my $oid;
#ibmPduVoltageWarning: (voltageNormal(0),voltageOutOfRange(1))
$oid = ".1.3.6.1.4.1.2.6.223..0.1.1.7.0";
$output = $session->get("$oid");
xCAT::SvrUtils::sendmsg("ibmPduVoltageWarning: $output", $callback,$pdu);
for (my $outlet = 1; $outlet <= $count; $outlet++) {
#ibmPduOutletCurrent
$oid = ".1.3.6.1.4.1.2.6.223.8.2.2.1.7";
$output = $session->get("$oid.$outlet");
xCAT::SvrUtils::sendmsg("outlet $outlet ibmPduOutletCurrent: $output", $callback,$pdu);
#ibmPduOutletMaxCapacity
$oid = ".1.3.6.1.4.1.2.6.223.8.2.2.1.8";
$output = $session->get("$oid.$outlet");
xCAT::SvrUtils::sendmsg("outlet $outlet ibmPduOutletMaxCapacity: $output", $callback,$pdu);
#ibmPduOutletCurrentThresholdWarning
$oid = ".1.3.6.1.4.1.2.6.223.8.2.2.1.9";
$output = $session->get("$oid.$outlet");
xCAT::SvrUtils::sendmsg("outlet $outlet ibmPduOutletCurrentThresholdWarning: $output", $callback,$pdu);
#ibmPduOutletCurrentThresholdCritical
$oid = ".1.3.6.1.4.1.2.6.223.8.2.2.1.10";
$output = $session->get("$oid.$outlet");
xCAT::SvrUtils::sendmsg("outlet $outlet ibmPduOutletCurrentThresholdCritical: $output", $callback,$pdu);
#ibmPduOutletLastPowerReading
$oid = ".1.3.6.1.4.1.2.6.223.8.2.2.1.13";
$output = $session->get("$oid.$outlet");
xCAT::SvrUtils::sendmsg("outlet $outlet ibmPduOutletLastPowerReading: $output", $callback,$pdu);
}
}
#-------------------------------------------------------
=head3 relaystat