Add tool to print out the inventory
The Inventory.pm module queries the MRW to find the system inventory,
and this is a simple wrapper script to print out that inventory for
debug.
Signed-off-by: Matt Spinler <spinler@us.ibm.com>
Change-Id: I2cd56f954a856077b252c7cede07bccaad440e42
diff --git a/print_inventory.pl b/print_inventory.pl
new file mode 100755
index 0000000..4bcb180
--- /dev/null
+++ b/print_inventory.pl
@@ -0,0 +1,23 @@
+#! /usr/bin/perl
+
+use strict;
+use warnings;
+use mrw::Targets;
+use mrw::Inventory;
+
+my $targetObj;
+my $serverwizFile = $ARGV[0];
+if ((not defined $serverwizFile) || (! -e $serverwizFile)) {
+ die "Usage: $0 [XML filename]\n";
+}
+
+$targetObj = Targets->new;
+$targetObj->loadXML($serverwizFile);
+
+my @inventory = Inventory::getInventory($targetObj);
+
+for my $item (@inventory) {
+ print "---------------------------------------------------------------\n";
+ print "Target: $item->{TARGET}\n";
+ print "Name: $item->{OBMC_NAME}\n";
+}