Subversion Repositories wimsdev

Rev

Rev 8482 | Rev 11479 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. #!/usr/bin/perl
  2.  
  3. use strict "subs";
  4. use locale;
  5. use warnings;
  6. $/ = undef;
  7. ### most of these "mistakes" has been done by the Msg2wims
  8. ### should be better to correct it but more difficult !
  9. my $file=$ARGV[0];
  10. open (IN ,$file) ;
  11. my $text = <IN>;
  12. ##multiple <p>
  13. $text =~ s:(<p>\s*){2,}:<p>\n:g;
  14. ## close br and hr
  15. $text =~ s:<(b|h)r>:<$1r/>:g;
  16. $text =~ s:<p>\s*(<li>|</?ul>|</?ol>):\n$1\n:g;
  17. ## delete <p> before <li><ul><ol>
  18. $text =~ s:<br ?/?>\s*(<li>|</?ul>|</?ol>):\n$1\n:g;
  19. ## delete <li> empty
  20. $text =~ s:<li>\s*</(u|o)l>:</$1l>:g;
  21. ## transform some hr
  22. $text =~ s|<hr\s+width="(\d+)%"\s*/?/>|<hr style="width:$1%"/>|g;
  23. ## delete <br/> before table ?
  24. $text =~ s|<br ?/></table>|</table>|g;
  25. ## delete multiple <br>
  26. $text =~ s:(<br ?/>\s*)+:<br/>\n:g;
  27. $text =~ s:</div>\s+</div>:</div>\n</div>:g;
  28. $text =~ s:</div>\s*<br/>\s*</div>:</div>\n</div>:g;
  29. close(IN);
  30.  
  31. open (OUT, ">$file");
  32. print OUT $text ; close OUT;
  33.