NAME

Mail::Maps::Lookup - Query the MAPS lookup service via DNS

SYNOPSIS

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";
}

DESCRIPTION

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.

METHODS

new

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",
);

host

Default is 'r.mail-abuse.com';

activation_code

Trend Micro activation code (required);

ip_address

ip address to check (required);

lookup

It returns : 0 (not listed), 1 (listed), 2 (unable to connect to maps server or invalid activation code)

my $res = $req->lookup;

SEE ALSO

MAPS lookup tool, http://www.mail-abuse.com/cgi-bin/lookup

Trend Micro, http://it.trendmicro-europe.com/

AUTHOR

Matteo Cantoni, <matteo.cantoni@nothink.org>

COPYRIGHT AND LICENSE

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.