diff options
Diffstat (limited to 'print_inventory.pl')
-rwxr-xr-x | print_inventory.pl | 23 |
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"; +} |