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

1 files changed, 23 insertions, 0 deletions

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";
+}