gen_ipmi_sensor.pl : Fetch sensor information from MRW
This commit serves as a building block since the script can now just
print certain attributes (see output example below) for sensors
defined in the MRW.
Output example:
sensorID: sensorType: sensorReadingType: ObjectPath
0xa1 : 0x07 : 0x6F : /sys/chassis/board/cpu1/core0
Change-Id: Ice89a6b6294d94fded4eb92f628b8f62ef02b7ed
Signed-off-by: Ratan Gupta <ratagupt@in.ibm.com>
diff --git a/gen_ipmi_sensor.pl b/gen_ipmi_sensor.pl
new file mode 100755
index 0000000..fd91e6b
--- /dev/null
+++ b/gen_ipmi_sensor.pl
@@ -0,0 +1,106 @@
+#! /usr/bin/perl
+use strict;
+use warnings;
+
+use mrw::Targets;
+use mrw::Inventory;
+use mrw::Util;
+use Getopt::Long; # For parsing command line arguments
+use YAML::Tiny qw(LoadFile);
+
+# Globals
+my $serverwizFile = "";
+my $debug = 0;
+my $metaDataFile = "";
+
+# Command line argument parsing
+GetOptions(
+"i=s" => \$serverwizFile, # string
+"m=s" => \$metaDataFile, # string
+"d" => \$debug,
+)
+or printUsage();
+
+if (($serverwizFile eq "") or ($metaDataFile eq ""))
+{
+ printUsage();
+}
+
+my $targetObj = Targets->new;
+$targetObj->loadXML($serverwizFile);
+
+#open the mrw xml and the metaData file for the sensor.
+#Fetch the sensorid,sensortype,class,object path from the mrw.
+
+my $sensorTypeConfig = LoadFile($metaDataFile);
+
+my @interestedTypes = keys %{$sensorTypeConfig};
+my %types;
+
+@types{@interestedTypes} = ();
+
+my @inventory = Inventory::getInventory($targetObj);
+#Process all the targets in the XML
+foreach my $target (sort keys %{$targetObj->getAllTargets()})
+{
+ my $sensorID = '';
+ my $sensorType = '';
+ my $sensorReadingType = '';
+ my $path = '';
+ my $obmcPath = '';
+
+ if ($targetObj->getTargetType($target) eq "unit-ipmi-sensor") {
+
+ $sensorID = $targetObj->getAttribute($target, "IPMI_SENSOR_ID");
+
+ $sensorType = $targetObj->getAttribute($target, "IPMI_SENSOR_TYPE");
+
+ $sensorReadingType = $targetObj->getAttribute($target,
+ "IPMI_SENSOR_READING_TYPE");
+
+ $path = $targetObj->getAttribute($target, "INSTANCE_PATH");
+
+ #not interested in this sensortype
+ next if (not exists $types{$sensorType} );
+
+ #if there is ipmi sensor without sensorid or sensorReadingType or
+ #Instance path then die
+
+ if ($sensorID eq '' or $sensorReadingType eq '' or $path eq '') {
+ die("sensor without info for target=$target");
+ }
+
+ #removing the string "instance:" from path
+ $path =~ s/^instance:/\//;
+
+ $obmcPath = Util::getObmcName(\@inventory, $path);
+
+ #if unable to get the obmc path then die
+ if (not defined $obmcPath) {
+ die("Unable to get the obmc path for path=$path");
+ }
+
+ printDebug("$sensorID : $sensorType : $sensorReadingType :$obmcPath \n");
+
+ }
+
+}
+
+# Usage
+sub printUsage
+{
+ print "
+ $0 -i [MRW filename] -m [SensorMetaData filename] [OPTIONS]
+Options:
+ -d = debug mode
+ \n";
+ exit(1);
+}
+
+# Helper function to put debug statements.
+sub printDebug
+{
+ my $str = shift;
+ print "DEBUG: ", $str, "\n" if $debug;
+}
+