From 23f71563fb4aece0ae2b1e27bf09eaf596d8bc61 Mon Sep 17 00:00:00 2001
From: Brian West <brian@freeswitch.org>
Date: Mon, 27 Sep 2010 21:43:02 -0500
Subject: [PATCH]  doh backwards

---
 scripts/perl/blacklist.pl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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";