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