kenmirrors
/
freeswitch
mirror of https://github.com/signalwire/freeswitch.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

doh backwards

This commit is contained in:
Brian West 2010-09-27 21:43:02 -05:00
parent b96f854803
commit 23f71563fb
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
scripts/perl/blacklist.pl
View File

@ -15,15 +15,15 @@ use LWP::Simple;
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=\"allow\">\n";
print "<list name=\"voip-abuse-addresses\" default=\"deny\">\n";
foreach $addr (@addresses) {
print " <node type=\"deny\" cidr=\"$addr/32\"/>\n";
print " <node type=\"allow\" cidr=\"$addr/32\"/>\n";
}
print "</list>\n";
print "<list name=\"voip-abuse-netblocks\" default=\"allow\">\n";
print "<list name=\"voip-abuse-netblocks\" default=\"deny\">\n";
foreach $netb (@netblocks) {
print " <node type=\"deny\" cidr=\"$netb\"/>\n";
print " <node type=\"allow\" cidr=\"$netb\"/>\n";
}
print "</list>\n";