Subversion Repositories wimsdev

#!/usr/bin/perl

use strict "subs";

use locale;

use warnings;

$/ = undef;

### most of these "mistakes" has been done by the Msg2wims

### should be better to correct it but more difficult !

### introduction of \n can break the inline folds ...

my $file=$ARGV[0];

open (IN ,$file) ;

my $text = <IN>;

##multiple <p>

$text =~ s:(<p>\s*){2,}:<p>:g;

## close br and hr

$text =~ s:<(b|h)r>:<$1r/>:g;

$text =~ s:<p>\s*(<li>|</?ul>|</?ol>):$1:g;

## delete <p> before <li><ul><ol>

$text =~ s:<br ?/?>\s*(<li>|</?ul>|</?ol>):$1:g;

## delete <li> empty

$text =~ s:<li>\s*</(u|o)l>:</$1l>:g;

## transform some hr

$text =~ s|<hr\s+width="(\d+)%"\s*/?/>|<hr style="width:$1%"/>|g;

## delete <br/> before table ?

$text =~ s|<br ?/></table>|</table>|g;

## delete multiple <br>

$text =~ s:(<br ?/>\s*)+:<br/>:g;

$text =~ s:</div>\s+</div>:</div></div>:g;

$text =~ s:</div>\s*<br/>\s*</div>:</div></div>:g;

## delete <br/> before div

$text =~ s:<br/>\s*<div:<div:g;

$text =~ s:<br/> *!:<br/>\n!:g;

$text =~ s:\n{3,}:\n\n:g;

close(IN);

open (OUT, ">$file");

print OUT $text ; close OUT;