you can do this with a filter:
my $match = qr/(<[Tt][Mm][Pp][Ll]_[^>]+)\/>/;
my $filter = sub {
my $text_ref = shift;
$$text_ref =~ s/$match/$1>/g;
};
$match is the regex used to find tags.
Then instantiate H::T with the 'filter' option.
Hope this helps,
Mathew
Chris Beck wrote:
Hey all,
hehe - then you haven't tried my version of H::T ...
I modified H::T so that it dynamically loads the appropriate
escape module -> you simply do this:
package HTML::Template::ESCAPE::HTML_JS;
use HTML::Template::ESCAPE;
$HTML::Template::ESCAPE::HTML_JS::VERSION = '1.0';
sub output {
my $self
Hey all,
Is there any way I could request that XHTML style also
be valid?
Cheers,
Chris
--
Chris Beck - http://pacanukeha.blogspot.com
"Privacy is what they take away when they want to torture you.
-- The Earl of Spencer
---
This SF.Net
