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";
+            }
+        }
+    }
+}