#!/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) {
print " \n";
}
print "
\n";
print "\n";
foreach $netb (@netblocks) {
print " \n";
}
print "
\n";