| #! /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; |
| } |
| |