Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Re: E-mail Redirect (for protecting addresses from E-mail-Address-Collecting Bots)

by pope (Friar)
on Jun 29, 2001 at 09:45 UTC ( #92536=note: print w/replies, xml ) Need Help??


in reply to E-mail Redirect (for protecting addresses from E-mail-Address-Collecting Bots)

That's not gonna work, davisagli.
As tye already pointed out, a well-written robot will follow your redirect and eventually harvest the valid mailto: URL which is returned by your script. For example, the following snippet catches the email address:
my $req = new HTTP::Request('GET', $url); my $res = LWP::UserAgent=>new->request($req); if ($res->is_success) { # do something here } elsif ($res->code == RC_BAD_REQUEST) { print "URL: ${\$res->previous->headers->{location}}\n"; } else { # do something else }
  • Comment on Re: E-mail Redirect (for protecting addresses from E-mail-Address-Collecting Bots)
  • Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://92536]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (4)
As of 2020-01-22 01:50 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Notices?