blob: 4bcb180b62197a1190b85ac97d5b34063bd5d79b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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";
}
|