freeswitch/scripts/perl/blacklist.pl

#!/usr/bin/perl
#
# Add this to acl.conf.xml
#
#   <X-PRE-PROCESS cmd="exec" data="$${base_dir}/bin/blacklist.pl"/>
#

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 "<list name=\"voip-abuse-addresses\" default=\"deny\">\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 "  <node type=\"allow\" cidr=\"$addr/32\"/>\n";
}
print "</list>\n";


print "<list name=\"voip-abuse-netblocks\" default=\"deny\">\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 "  <node type=\"allow\" cidr=\"$netb\"/>\n";
}
print "</list>\n";