1 files changed, 21 insertions, 0 deletions
diff --git a/src/windows/build/zipXML.pl b/src/windows/build/zipXML.pl
new file mode 100755
index 000000000000..01e8fed419ae
--- /dev/null
+++ b/src/windows/build/zipXML.pl
@@ -0,0 +1,21 @@
+#!perl -w
+
+#use strict;
+require "makeZip.pl";
+
+use Data::Dumper;
+
+sub zipXML {
+    local ($xml, $config)   = @_;
+    my $zipsXML = $xml->{Zips};
+    if (! $zipsXML) {return 0;}
+
+    local $i    = 0;
+    while ($zipsXML->{Zip}[$i]) {
+        local $zip = $zipsXML->{Zip}[$i];
+        makeZip($zip, $config)  if (exists $zip->{name});       ## Ignore dummy entry.
+        $i++;                    
+        }                                       ## End zip in xml.
+    }
+    
+return 1;