wiz cleaner

1 files changed, 43 insertions, 0 deletions

diff --git a/Zwiffer.pl b/Zwiffer.pl
new file mode 100755
index 00000000..bf71add3
--- /dev/null
+++ b/Zwiffer.pl
@@ -0,0 +1,43 @@
+#!/usr/bin/perl
+
+use strict;
+
+open(wizi, "< $ARGV[0]");
+open(wizo, "> $ARGV[1]");
+my @tab;
+my $verbose = 0;
+
+while (<wizi>)
+{
+    if (/(\s*defaultImage=\".*)\..*\"/) {
+	print wizo "$1\"\n";
+	next;
+    }
+    if (/\s*guiType\s*\=.*/ || /\s*font.*\=.*/ || /\s*inputType\s*\=.*/ || /\s*dbPositions\s*\=.*/ ||
+	/\s*ratio\s*\=.*/ || /\s*proportional\s*\=.*/ || /\s*length\s*\=.*/ || /\s*alignement\s*\=.*/ ||
+	/\s*hasDb\s*\=.*/ || /\s*key\s*\=.*/ || /\s*db.*\=.*/ || /\s*reference.*\=.*/ || /\s*height\s*\=.*/ ||
+	/\s*width\s*\=.*/ || /\s*persistent\s*\=.*/) {
+	print "# $_" if $verbose;
+	next;
+    }
+    if (m/^\s*<Info/s.../^\s*<\/Info>/m ) {
+	if (!/\s*name\s*\=\".*\"\s*/) {
+	    push @tab, $_;
+	    print ">> $_" if $verbose;
+	}
+	next;
+    }
+    else {
+	if (@tab > 3) {
+	    foreach (@tab) {
+		print "?? $_" if $verbose;
+		print wizo $_;
+	    }
+	}
+    }
+    @tab = ();
+    print wizo $_;
+}
+close(wizi);
+close(wizo);
+print "$ARGV[0] -> $ARGV[1]\n";