diff options
author | Dexter Morgan <dmorgan@mageia.org> | 2011-06-02 20:51:50 +0000 |
---|---|---|
committer | Dexter Morgan <dmorgan@mageia.org> | 2011-06-02 20:51:50 +0000 |
commit | f1d6b8a9d3c06f74e904959887cf043d09aff687 (patch) | |
tree | 969cb9fdc3becc19b1f2a21c3a9e3cc2e15f39e6 /Zwiffer.pl | |
download | drakwizard-f1d6b8a9d3c06f74e904959887cf043d09aff687.tar drakwizard-f1d6b8a9d3c06f74e904959887cf043d09aff687.tar.gz drakwizard-f1d6b8a9d3c06f74e904959887cf043d09aff687.tar.bz2 drakwizard-f1d6b8a9d3c06f74e904959887cf043d09aff687.tar.xz drakwizard-f1d6b8a9d3c06f74e904959887cf043d09aff687.zip |
Branch for updates
Diffstat (limited to 'Zwiffer.pl')
-rwxr-xr-x | Zwiffer.pl | 43 |
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"; |