Insufficient filtering in javascript filter (#10001)

This commit is contained in:
JT Smith 2009-06-03 15:53:55 +00:00
parent 7e51ddd3b2
commit 9381fd02d8
3 changed files with 4 additions and 3 deletions

View file

@ -142,7 +142,7 @@ sub filter {
$html =~ s/ / /ixsg ;
WebGUI::Macro::negate(\$html);
} elsif ($type eq "javascript") {
$html =~ s/\<script.*?\/script\>//ixsg;
$html =~ s/\<\s*script.*?\/script\s*\>//ixsg;
$html =~ s/(href="??)javascript\:.*?\)/$1removed/ixsg;
$html =~ s/onClick/removed/ixsg;
$html =~ s/onDblClick/removed/ixsg;