From: WC -Sx- Jones <[EMAIL PROTECTED]>
> Jenda Krynicky wrote:
>
> > sub PolishHTML {
> > my $str = shift;
> > if ($AllowXHTML) {
> > $str =~
>
> > http://Jenda.Krynicky.cz/#Jenda.Rex COM object.
> >
>
> Hi, thx for the reply :) As always your code
> leaves me wondering if I will ever learn Perl :)
Thanks for the compliment :-)
> I tested the code and it works great - except I
> am having trouble implementing it as one line in
> my Postfix SMTP body checks pcre :)
I see. I did not know what do you need this test for. I assumed you
were sanitizing some HTML you got from outside (or even from the
"trusted" employees of the same company) before you display it in
your pages or something like that.
Which is what I wrote HTML::JFilter for.
> The clients do not wish to install spam assassin --
> which would be better at catching this sort of spam.
Too bad for them.
> The original RE was a one line match to catch
> html which started with G J K Y Z - and except
> for K none of the others start a valid tag.
I see ... I think it would be possible to add the list of acceptable
tags into the regexp in PolishHTML and change it so that if there is
some other tag it will not match, but the regexp would be insane.
Jenda
===== [EMAIL PROTECTED] === http://Jenda.Krynicky.cz =====
When it comes to wine, women and song, wizards are allowed
to get drunk and croon as much as they like.
-- Terry Pratchett in Sourcery
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
