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

Only process macros once per page.

Browse source
This commit is contained in:
JT Smith 2003-03-02 21:15:56 +00:00
parent 0ebac2be41
commit 5f6313579f
12 changed files with 219 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

30
lib/WebGUI/Macro.pm
View file

@ -45,8 +45,8 @@ These functions are available from this package:
#-------------------------------------------------------------------
# Returns a complex regular expression for matching macro patterns.
sub _nestedMacro {
# This sub returns the regular expression for matching nested macro's.
# Regular expression for matching balanced parenthesis
my $parenthesis = qr /\( # Start with '(',
(?: # Followed by
@ -69,6 +69,32 @@ sub _nestedMacro {
#-------------------------------------------------------------------
=head2 filter ( html )
Removes all the macros from the HTML segment.
=over
=item html
The segment to be filtered.
=back
=cut
sub filter {
my $content = shift;
my $nestedMacro = _nestedMacro();
while ($content =~ /($nestedMacro)/gs) {
$content =~ s/\Q$1//gs;
}
return $content;
}
#-------------------------------------------------------------------
=head2 getParams ( parameterString )
@ -115,7 +141,7 @@ A string of HTML to be processed.
sub process {
my $content = shift;
my $nestedMacro = &_nestedMacro;
my $nestedMacro = _nestedMacro();
while ($content =~ /($nestedMacro)/gs) {
my ($macro, $searchString, $params) = ($1, $2, $3);
next if ($searchString =~ /^\d+$/); # don't process ^0; ^1; ^2; etc.