/ 
Net-Abuse-Utils-0.05
River stage zero No dependents
/ Net::Abuse::Utils

NAME

Net::Abuse::Utils - Routines useful for processing network abuse

VERSION

This documentation refers to Net::Abuse::Utils version 0.05.

SYNOPSIS

use Net::Abuse::Utils qw( :all );
print "IP Whois Contacts: ", join( ' ', get_ipwi_contacts($ip) ), "\n";
print "Abuse.net Contacts: ", get_abusenet_contact($domain), "\n";

DESCRIPTION

Net::Abuse::Utils provides serveral functions useful for determining information about an IP address including contact/reporting addresses, ASN/network info, reverse dns, and DNSBL listing status.

FUNCTIONS

The following functions are exportable from this module. You may import all of them into your namespace with the :all tag.

get_asn_info ( IP )

Returns a list containing (ASN, Network/Mask, CC code, RIR, modified date) for the network announcing IP.

get_as_description ( ASN )

Returns the AS description for ASN.

get_soa_contact( IP )

Returns the SOA contact email address for the reverse DNS /24 zone containing IP.

get_ipwi_contacts( IP )

Returns a list of all email addresses found in whois information for IP with duplicates removed.

get_rdns( IP )

Returns the reverse PTR for IP.

get_dnsbl_listing( IP, DNSBL zone )

Returns the listing text for IP for the designated DNSBL. DNSBL zone should be the zone used for looking up addresses in the blocking list.

get_ip_country( IP )

Returns the 2 letter country code for IP.

get_asn_country( ASN )

Returns the 2 letter country code for ASN.

get_abusenet_contact ( domain )

Returns the abuse.net listed contact email addresses for domain.

is_ip ( IP )

Returns true if IP looks like an IP, false otherwise.

DIAGNOSTICS

Each subroutine will return undef if unsuccessful. In the furture, debugging output will be available.

CONFIGURATION AND ENVIRONMENT

No configuration mechanism is currently implemented.

DEPENDENCIES

This module makes use of the following modules:

Net::DNS, Net::Whois::IP, Email::Address

BUGS AND LIMITATIONS

There are no known bugs in this module. Please report problems to Michael Greb (mgreb@linode.com)

Patches are welcome.

ACKNOWLEDGEMENTS

This module was inspired by Karsten M. Self's SpamTools shell scripts, available at http://linuxmafia.com/~karsten/.

Thanks as well to my employer, Linode.com, for allowing me the time to work on this module.

Rik Rose, Jon Honeycutt, Brandon Hale, TJ Fontaine, and A. Pagaltzis all provided invaluable input during the development of this module.

AUTHOR

Michael Greb (mgreb@linode.com)

SEE ALSO

For a detailed usage example, please see examples/ip-info.pl included in this module's distribution.

LICENCE AND COPYRIGHT

Copyright (c) 2006 Michael Greb (mgreb@linode.com). All rights reserved.

This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See perlartistic.

This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.