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