#!/usr/bin/perl
#
# Add this to acl.conf.xml
#
#
#
use Data::Dumper;
use LWP::Simple;
# http://www.infiltrated.net/voipabuse/addresses.txt
# http://www.infiltrated.net/voipabuse/netblocks.txt
my @addresses = split(/\n/, get("http://www.infiltrated.net/voipabuse/addresses.txt"));
my @netblocks = split(/\n/, get("http://www.infiltrated.net/voipabuse/netblocks.txt"));
print "\n";
foreach $addr (@addresses) {
$addr =~ s/\s//g; # strip whitespace
next unless $addr =~ m/\d+\.\d+\.\d+\.\d+/; # imperfect but useful IP addr check
print " \n";
}
print "
\n";
print "\n";
foreach $netb (@netblocks) {
$netb =~ s/\s//g; # strip whitespace
next unless $netb =~ m/\d+\.\d+\.\d+\.\d+/; # imperfect but useful IP addr check
print " \n";
}
print "
\n";