#!/usr/bin/perl use strict; open(wizi, "< $ARGV[0]"); open(wizo, "> $ARGV[1]"); my @tab; my $verbose = 0; while () { 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*/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"; 'master'>master Mageia HTML Welcome Pagegit
summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDavid Baudens <baudens@mandriva.com>2004-03-10 18:27:20 +0000
committerDavid Baudens <baudens@mandriva.com>2004-03-10 18:27:20 +0000
commit42e0fae2318c6ce3f7aee1d802c0a877538eb580 (patch)
tree6fcce54349edebcd7fe1309dd9140d85320e8359 /HTML/index-tl.html
parent425c6084beee4fd800b1a3b90081ecd829c2631b (diff)
downloadindexhtml-42e0fae2318c6ce3f7aee1d802c0a877538eb580.tar
indexhtml-42e0fae2318c6ce3f7aee1d802c0a877538eb580.tar.gz
indexhtml-42e0fae2318c6ce3f7aee1d802c0a877538eb580.tar.bz2
indexhtml-42e0fae2318c6ce3f7aee1d802c0a877538eb580.tar.xz
indexhtml-42e0fae2318c6ce3f7aee1d802c0a877538eb580.zip
Switch to Mandrakelinux & co (check not finished)
Diffstat (limited to 'HTML/index-tl.html')
0 files changed, 0 insertions, 0 deletions