oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fixed macro filtering

Browse source
This commit is contained in:
JT Smith 2003-03-17 00:52:41 +00:00
parent af83b74240
commit 85eeaf28b4
3 changed files with 30 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/WebGUI/HTML.pm
View file

@ -97,7 +97,7 @@ sub filter {
if ($type eq "all") {
$filter = HTML::TagFilter->new(allow=>{'none'},strip_comments=>1);
$html = $filter->filter($_[0]);
return WebGUI::Macro::filter($html);
return WebGUI::Macro::negate($html);
} elsif ($type eq "javascript") {
$html = $_[0];
$html =~ s/\<script.*?\/script\>//ixsg;
@ -115,9 +115,9 @@ sub filter {
$html =~ s/onKeyDown/removed/ixsg;
$html =~ s/onSubmit/removed/ixsg;
$html =~ s/onReset/removed/ixsg;
$html = WebGUI::Macro::filter($html);
$html = WebGUI::Macro::negate($html);
} elsif ($type eq "macros") {
return WebGUI::Macro::filter($_[0]);
return WebGUI::Macro::negate($_[0]);
} elsif ($type eq "none") {
return $_[0];
} else {

23
lib/WebGUI/Macro.pm
View file

@ -123,6 +123,29 @@ sub getParams {
return @param;
}
#-------------------------------------------------------------------
=head2 negate ( html )
Nullifies all macros in this content segment.
=over
=item html
A string of HTML to be processed.
=back
=cut
sub negate {
my $html = $_[0];
$html =~ s/\^/\&\#94\;/g;
return $html;
}
#-------------------------------------------------------------------
=head2 process ( html )