1#!/usr/bin/env perl
2
3use strict;
4use warnings;
5use mrw::Targets;
6use mrw::Inventory;
7
8my $targetObj;
9my $serverwizFile = $ARGV[0];
10if ((not defined $serverwizFile) || (! -e $serverwizFile)) {
11    die "Usage:  $0 [XML filename]\n";
12}
13
14$targetObj = Targets->new;
15$targetObj->loadXML($serverwizFile);
16
17my @inventory = Inventory::getInventory($targetObj);
18
19for my $item (@inventory) {
20    print "---------------------------------------------------------------\n";
21    print "Target:  $item->{TARGET}\n";
22    print "Name:    $item->{OBMC_NAME}\n";
23}
24