version 1.354, 2005/01/30 12:56:45
|
version 1.355, 2005/01/30 23:31:12
|
Line 384 sub htmlclean {
|
Line 384 sub htmlclean {
|
# Make standard tags lowercase |
# Make standard tags lowercase |
foreach ('html','body','head','meta','h1','h2','h3','h4','b','i','m', |
foreach ('html','body','head','meta','h1','h2','h3','h4','b','i','m', |
'table','tr','td','th','p','br','hr','img','embed','font', |
'table','tr','td','th','p','br','hr','img','embed','font', |
'a','strong','center','title','basefont') { |
'a','strong','center','title','basefont','li','ol','ul', |
|
'input','select','form','option','script','pre') { |
$raw=~s/\<$_\s*\>/\<$_\>/gis; |
$raw=~s/\<$_\s*\>/\<$_\>/gis; |
$raw=~s/\<\/$_\s*\>/<\/$_\>/gis; |
$raw=~s/\<\/$_\s*\>/<\/$_\>/gis; |
$raw=~s/\<$_\s([^\>]*)\>/<$_ $1\>/gis; |
$raw=~s/\<$_\s([^\>]*)\>/<$_ $1\>/gis; |