From 60cb01f9a81c311f914aed4a23e8e5b35e965918 Mon Sep 17 00:00:00 2001 From: Florian Pritz Date: Sat, 11 May 2013 13:27:07 +0200 Subject: soem more cleanup Signed-off-by: Florian Pritz --- abuse.pl | 30 ------------------------------ 1 file changed, 30 deletions(-) delete mode 100755 abuse.pl (limited to 'abuse.pl') diff --git a/abuse.pl b/abuse.pl deleted file mode 100755 index 42e31a4..0000000 --- a/abuse.pl +++ /dev/null @@ -1,30 +0,0 @@ -#!/usr/bin/perl -use warnings; -use strict; -use File::Basename; -use Net::IP; -use Net::DNS; - -my $abusednsbl = "abuse-contacts.abusix.org"; - -if (@ARGV == 0) { - print "usage: ", basename($0), " IP ...\n"; - exit 1; -} - -my $res = Net::DNS::Resolver->new; - -for my $host (@ARGV) { - my $IP = $host; - - my $ip = new Net::IP ($IP); - my $querystring = $ip->reverse_ip().$abusednsbl; - $querystring =~ s/\.in-addr\.arpa//; - my $query = $res->query($querystring, "txt"); - if ($query) { - print (($query->answer)[0]->rdata, "\n"); - } else { - print "no abuse address for $IP\n"; - exit 1; - } -} -- cgit v1.2.3-24-g4f1b