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.