1*b4edc27aSAndrew Geissler#!/usr/bin/env perl 2bbd66d2cSMatt Spinler 3bbd66d2cSMatt Spinleruse strict; 4bbd66d2cSMatt Spinleruse warnings; 5bbd66d2cSMatt Spinleruse mrw::Targets; 6bbd66d2cSMatt Spinler 7bbd66d2cSMatt Spinlermy $targetObj; 8bbd66d2cSMatt Spinlermy $serverwizFile = $ARGV[0]; 9bbd66d2cSMatt Spinlerif ((not defined $serverwizFile) || (! -e $serverwizFile)) { 10bbd66d2cSMatt Spinler die "Usage: $0 [XML filename]\n"; 11bbd66d2cSMatt Spinler} 12bbd66d2cSMatt Spinler 13bbd66d2cSMatt Spinler$targetObj = Targets->new; 14bbd66d2cSMatt Spinler$targetObj->loadXML($serverwizFile); 15bbd66d2cSMatt Spinler 16bbd66d2cSMatt SpinlerdumpMRW($targetObj); 17bbd66d2cSMatt Spinler 18bbd66d2cSMatt Spinlersub dumpMRW 19bbd66d2cSMatt Spinler{ 20bbd66d2cSMatt Spinler my ($targetObj) = @_; 21bbd66d2cSMatt Spinler 22bbd66d2cSMatt Spinler for my $target (sort keys %{$targetObj->getAllTargets()}) { 23bbd66d2cSMatt Spinler print "-----------------------------------------------------------\n"; 24bbd66d2cSMatt Spinler print "Target $target\n"; 25bbd66d2cSMatt Spinler my $thash = $targetObj->getTarget($target); 26bbd66d2cSMatt Spinler 27bbd66d2cSMatt Spinler for my $attr (keys %{$thash->{ATTRIBUTES}}) { 28bbd66d2cSMatt Spinler print "\t$attr: "; 29bbd66d2cSMatt Spinler 30bbd66d2cSMatt Spinler if (ref($thash->{ATTRIBUTES}->{$attr}->{default}) eq "HASH") { 31bbd66d2cSMatt Spinler print "\n"; 32bbd66d2cSMatt Spinler 33bbd66d2cSMatt Spinler for my $f (sort keys %{$thash->{ATTRIBUTES}-> 34bbd66d2cSMatt Spinler {$attr}->{default}->{field}}) { 35bbd66d2cSMatt Spinler 36bbd66d2cSMatt Spinler my $val = $thash->{ATTRIBUTES}-> 37bbd66d2cSMatt Spinler {$attr}->{default}->{field}->{$f}->{value}; 38bbd66d2cSMatt Spinler print "\t\t$f: $val\n"; 39bbd66d2cSMatt Spinler } 40bbd66d2cSMatt Spinler } 41bbd66d2cSMatt Spinler else { 42bbd66d2cSMatt Spinler print $thash->{ATTRIBUTES}->{$attr}->{default} . "\n"; 43bbd66d2cSMatt Spinler } 44bbd66d2cSMatt Spinler } 45bbd66d2cSMatt Spinler } 46bbd66d2cSMatt Spinler} 47