Net::SPAMerLookup - Perl module to judge SPAMer.

  use Net::SPAMerLookup {
    IP => [qw/ niku.2ch.net all.rbl.jp list.dsbl.org /],
    URI=> [qw/ url.rbl.jp notop.rbl.jp all.rbl.jp /],
    };

  my $spam= Net::SPAMerLookup->new;
  if ($spam->check_rbl($TARGET)) {
  	print "It is SPAMer.";
  } else {
  	print "There is no problem.";
  }

  # Whether SPAMer is contained in two or more objects is judged.
  if (my $spamer= $spam->is_spamer(@TARGET)) {
  	print "It is SPAMer.";
  } else {
  	print "There is no problem.";
  }

SPAMer is judged by using RBL.

Please set HTTP_PROXY of the environment variable if you use Proxy.

see Net::Domain::TldMozilla.

When passing it to the start option.

  use Net::SPAMerLookup qw/ all.rbl.jp .....  /;

When doing by the import method.

  require Net::SPAMerLookup;
  Net::SPAMerLookup->import(qw/ all.rbl.jp ..... /);

Constructor.

  my $spam= Net::SPAMerLookup;

'Host domain name', 'IP address', 'Mail address', and 'URL' can be passed to the argument.

HASH including information is returned when closing in passed value RBL.

0 is returned when not closing.

Following information enters for HASH that was able to be received.

* RBL

RBL that returns the result enters.

* name or address

The value enters 'Address' at 'Name' and "IP address" when the object is "Host domain name" form.

* result

Information returned from RBL enters by the ARRAY reference.

  if (my $result= $spam->check_rbl('samp-host-desuka.com')) {
    print <<END_INFO;
    It is SPAMer.

  RBL-Server: $result->{RBL}

  @{[ $result->{name} ? qq{Name: $result->{name}}: qq{Address: $result->{address}} ]}

  @{[ join "\n", @{$result->{result}} ]}

  END_INFO
  } else {
    print "There is no problem.";
    ......
    ...

error.

'check_rbl' is continuously done to two or more objects.

And, HASH that 'check_rbl' returned is returned as it is if included.

  if (my $result= $spam->is_spamer(@TAGER_LIST)) {
    .........
    ....

Net::DNS, Net::Domain::TldMozilla,

Masatoshi Mizuno <lushe(&64;)cpan.org>

Copyright (C) 2008 by Bee Flag, Corp. <http://egg.bomcity.com/>.

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.8 or, at your option, any later version of Perl 5 you may have available.