diff options
-rwxr-xr-x | print_targets.pl | 46 |
1 files changed, 46 insertions, 0 deletions
diff --git a/print_targets.pl b/print_targets.pl new file mode 100755 index 0000000..918e022 --- /dev/null +++ b/print_targets.pl @@ -0,0 +1,46 @@ +#! /usr/bin/perl + +use strict; +use warnings; +use mrw::Targets; + +my $targetObj; +my $serverwizFile = $ARGV[0]; +if ((not defined $serverwizFile) || (! -e $serverwizFile)) { + die "Usage: $0 [XML filename]\n"; +} + +$targetObj = Targets->new; +$targetObj->loadXML($serverwizFile); + +dumpMRW($targetObj); + +sub dumpMRW +{ + my ($targetObj) = @_; + + for my $target (sort keys %{$targetObj->getAllTargets()}) { + print "-----------------------------------------------------------\n"; + print "Target $target\n"; + my $thash = $targetObj->getTarget($target); + + for my $attr (keys %{$thash->{ATTRIBUTES}}) { + print "\t$attr: "; + + if (ref($thash->{ATTRIBUTES}->{$attr}->{default}) eq "HASH") { + print "\n"; + + for my $f (sort keys %{$thash->{ATTRIBUTES}-> + {$attr}->{default}->{field}}) { + + my $val = $thash->{ATTRIBUTES}-> + {$attr}->{default}->{field}->{$f}->{value}; + print "\t\t$f: $val\n"; + } + } + else { + print $thash->{ATTRIBUTES}->{$attr}->{default} . "\n"; + } + } + } +} |