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