From 6eb9f253d7254d45e819904debe2c2efa97a5721 Mon Sep 17 00:00:00 2001
From: Arnaud Desmons <adesmons@mandriva.com>
Date: Thu, 22 Aug 2002 13:01:52 +0000
Subject: wiz cleaner

---
 Zwiffer.pl | 43 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 43 insertions(+)
 create mode 100755 Zwiffer.pl

(limited to 'Zwiffer.pl')

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";
-- 
cgit v1.2.1