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_fqdn(<FQDN>)
-
accepts: a fully qualified domain name (ex: example.com)
returns: an ARRAYREF of HASHREF's based on the spamhaus dbl
- check_ip(<ipv4-addr>)
-
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
http://www.spamhaus.org/zen/
http://www.spamhaus.org/dbl/
Wes Young, <wes@barely3am.com>
Copyright (C) 2012 by Wes Young (wesyoung.me)
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.