You are viewing a plain text version of this content. The canonical link for it is here.
Posted to embperl@perl.apache.org by Neil Gunton <ne...@nilspace.com> on 2001/11/15 21:56:25 UTC

Re: Result of SPAMMODE (was: Question regarding hiding email addresses in archives)

Gerald Richter wrote:
> I have given this a try, now
> 
>     richter@ecos.de
> 
> becomes
> 
>     richter at eocs dot de
> 
> and the mail addresses aren't links anymore.
> 
> look at http://www.ecos.de/~mailarc/embperl/2001-11/msg00089.html.
> 
> Does it look better ?

Yeah, to me at least. Thanks! As always, I'm open to differing
opinions...

> > It's unfortunate though that it appears only *new* messages are affected
> > by these directives. Old messages still have the email address visible.
> > I guess what MHonArc does is generate text files, and once it's done
> > that it's out of MHonArc's realm of operations.
> >
> 
> Yes, it would be necessary to write a small Perl script to change all the
> old pages

Here's a little script I just whipped up which converts email addresses
to a slightly more obfuscated version. Not exactly the same as what you
have above, but it does the job (I think, I'm not a regex guru by any
stretch)... 

Thanks again, Gerald, I know you're real busy with "real" stuff...

All the best

-Neil



#!/usr/bin/perl -w

while (<STDIN>)
{
    s/\<(.*?)(?:@)(.*?)\>/<$1 (at) $2>/g;
    s/\>(.*?)(?:@)(.*?)\</>$1 (at) $2</g;
    print $_;
}

---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-help@perl.apache.org