From: Brian West <brian@freeswitch.org>
Date: Tue, 28 Sep 2010 02:43:02 +0000 (-0500)
Subject:  doh backwards
X-Git-Tag: v1.2-rc1~291^2~40^2~8
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=23f71563fb4aece0ae2b1e27bf09eaf596d8bc61;p=thirdparty%2Ffreeswitch.git

 doh backwards
---

diff --git a/scripts/perl/blacklist.pl b/scripts/perl/blacklist.pl
index d6c2ea785f..f434669f36 100755
--- a/scripts/perl/blacklist.pl
+++ b/scripts/perl/blacklist.pl
@@ -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";