
Net::Abuse::Utils::Spamhaus - Perl extension for checking data against the spamhaus blacklists

use Net::Abuse::Utils::Spamhaus qw(check_fqdn check_ip);
my $addr = '222.186.44.110';
my $ret = check_ip($addr);
$addr = 'test';
$ret = check_fqdn($addr);
foreach (@$ret){
warn $_->{'assessment'}.': '.$_->{'description'}.' -- '.$_->{'id'};
}

check_ip, check_fqdn
accepts: a fully qualified domain name (ex: example.com) returns: an ARRAYREF of HASHREF's based on the spamhaus dbl
accepts: a properly formatted ipv4 address (ex: 1.1.1.1) returns: an ARRAY REF of HASHREF's based on feedback from the spamhaus zen list

github.com/collectiveintel http://www.spamhaus.org/zen/ http://www.spamhaus.org/dbl/

Wes Young, <wes@barely3am.com>

Copyright (C) 2012 by Wes Young (claimid.com/wesyoung) Copyright (C) 2012 the REN-ISAC (ren-isac.net) Copyright (C) 2012 the Trustees of Indiana University (www.iu.edu) This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.10.1 or, at your option, any later version of Perl 5 you may have available.