1*b4edc27aSAndrew Geissler#!/usr/bin/env perl 2716262fdSMatt Spinler 3716262fdSMatt Spinleruse strict; 4716262fdSMatt Spinleruse warnings; 5716262fdSMatt Spinleruse mrw::Targets; 6716262fdSMatt Spinleruse mrw::Inventory; 7716262fdSMatt Spinler 8716262fdSMatt Spinlermy $targetObj; 9716262fdSMatt Spinlermy $serverwizFile = $ARGV[0]; 10716262fdSMatt Spinlerif ((not defined $serverwizFile) || (! -e $serverwizFile)) { 11716262fdSMatt Spinler die "Usage: $0 [XML filename]\n"; 12716262fdSMatt Spinler} 13716262fdSMatt Spinler 14716262fdSMatt Spinler$targetObj = Targets->new; 15716262fdSMatt Spinler$targetObj->loadXML($serverwizFile); 16716262fdSMatt Spinler 17716262fdSMatt Spinlermy @inventory = Inventory::getInventory($targetObj); 18716262fdSMatt Spinler 19716262fdSMatt Spinlerfor my $item (@inventory) { 20716262fdSMatt Spinler print "---------------------------------------------------------------\n"; 21716262fdSMatt Spinler print "Target: $item->{TARGET}\n"; 22716262fdSMatt Spinler print "Name: $item->{OBMC_NAME}\n"; 23716262fdSMatt Spinler} 24