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 @addresses = split(/\n/, get("http://www.infiltrated.net/voipabuse/addresses.txt"));
my @netblocks = split(/\n/, get("http://www.infiltrated.net/voipabuse/netblocks.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) { foreach $addr (@addresses) {
print " <node type=\"deny\" cidr=\"$addr/32\"/>\n"; print " <node type=\"allow\" cidr=\"$addr/32\"/>\n";
} }
print "</list>\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) { foreach $netb (@netblocks) {
print " <node type=\"deny\" cidr=\"$netb\"/>\n"; print " <node type=\"allow\" cidr=\"$netb\"/>\n";
} }
print "</list>\n"; print "</list>\n";