Subversion Repositories wimsdev

Rev

Rev 6726 | Rev 8482 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6726 Rev 6858
Line 13... Line 13...
13 
$text =~ s:(<p>\s*){2,}:<p>\n:g;
 13 
$text =~ s:(<p>\s*){2,}:<p>\n:g;
14 
## close br and hr
 14 
## close br and hr
15 
$text =~ s:<(b|h)r>:<$1r/>:g;
 15 
$text =~ s:<(b|h)r>:<$1r/>:g;
16 
$text =~ s:<p>\s*(<li>|</?ul>|</?ol>):\n$1\n:g;
 16 
$text =~ s:<p>\s*(<li>|</?ul>|</?ol>):\n$1\n:g;
17 
## delete <p> before <li><ul><ol>
 17 
## delete <p> before <li><ul><ol>
18 
$text =~ s:<br/?/>\s*(<li>|</?ul>|</?ol>):\n$1\n:g;
 18 
$text =~ s:<br ?/?>\s*(<li>|</?ul>|</?ol>):\n$1\n:g;
19 
## delete <li> empty
 19 
## delete <li> empty
20 
$text =~ s:<li>\s*</(u|o)l>:</$1l>:g;
 20 
$text =~ s:<li>\s*</(u|o)l>:</$1l>:g;
21 
## transform some hr
 21 
## transform some hr
22 
$text =~ s|<hr\s+width="(\d+)%"\s*/?/>|<hr style="width:$1%"/>|g;
 22 
$text =~ s|<hr\s+width="(\d+)%"\s*/?/>|<hr style="width:$1%"/>|g;
23 
## delete <br/> before table ?
 23 
## delete <br/> before table ?
24 
$text =~ s|<br/></table>|</table>|g;
 24 
$text =~ s|<br ?/></table>|</table>|g;
25 
## delete multiple <br>
 25 
## delete multiple <br>
26 
$text =~ s:(<br/>\s*)+:<br/>\n:g;
 26 
$text =~ s:(<br ?/>\s*)+:<br/>\n:g;
27 
$text =~ s:</div>\s+</div>:</div>\n</div>:g;
 27 
$text =~ s:</div>\s+</div>:</div>\n</div>:g;
28 
$text =~ s:</div>\s*<br/>\s*</div>:</div>\n</div>:g;
 28 
$text =~ s:</div>\s*<br/>\s*</div>:</div>\n</div>:g;
29 
close(IN);
 29 
close(IN);
30 
 
 30 
 
31 
open (OUT, ">$file");
 31 
open (OUT, ">$file");