Mail::Maps::Lookup - Query the MAPS lookup service via DNS
use Mail::Maps::Lookup; my $req = Mail::Maps::Lookup->new( activation_code => "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", ip_address => "1.1.1.1", ); my $res = $req->lookup; if ($res == 0){ print "not listed\n"; } elsif ($res == 1){ print "listed\n"; } elsif ($res == 2){ print "unable to connect to maps server\n"; }
This module allows you to query the MAPS lookup service via DNS.
Please visit http://www.mail-abuse.com/cgi-bin/lookup for more information.
The constructor. Given a ip address returns a Mail::Maps::Lookup object:
my $req = Mail::Maps::Lookup->new( activation_code => "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", ip_address => "1.1.1.1", );
Default is 'r.mail-abuse.com';
Trend Micro activation code (required);
ip address to check (required);
It returns : 0 (not listed), 1 (listed), 2 (unable to connect to maps server or invalid activation code)
my $res = $req->lookup;
MAPS lookup tool, http://www.mail-abuse.com/cgi-bin/lookup
Trend Micro, http://it.trendmicro-europe.com/
Matteo Cantoni, <matteo.cantoni@nothink.org>
Copyright (C) 2007 by Matteo Cantoni
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
To install Mail::Maps::Lookup, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Mail::Maps::Lookup
CPAN shell
perl -MCPAN -e shell install Mail::Maps::Lookup
For more information on module installation, please visit the detailed CPAN module installation guide.