From b004916036465d145d0388a1afb24d5471b48f64 Mon Sep 17 00:00:00 2001
From: Michael S Collins <msc@freeswitch.org>
Date: Fri, 19 Nov 2010 10:54:39 -0800
Subject: [PATCH] Do at least *SOME* verification to make sure that we are
 getting an IP address in the blacklist list

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

diff --git a/scripts/perl/blacklist.pl b/scripts/perl/blacklist.pl
index f434669f36..92fa55efe2 100755
--- a/scripts/perl/blacklist.pl
+++ b/scripts/perl/blacklist.pl
@@ -17,13 +17,15 @@ my @netblocks = split(/\n/, get("http://www.infiltrated.net/voipabuse/netblocks.
 
 print "<list name=\"voip-abuse-addresses\" default=\"deny\">\n";
 foreach $addr (@addresses) {
-  print "  <node type=\"allow\" cidr=\"$addr/32\"/>\n";
+    next unless $addr =~ m/\d+\.\d+\.\d+\.\d+/;
+    print "  <node type=\"allow\" cidr=\"$addr/32\"/>\n";
 }
 print "</list>\n";
 
 
 print "<list name=\"voip-abuse-netblocks\" default=\"deny\">\n";
 foreach $netb (@netblocks) {
-  print "  <node type=\"allow\" cidr=\"$netb\"/>\n";
+    next unless $netb =~ m/\d+\.\d+\.\d+\.\d+/;
+    print "  <node type=\"allow\" cidr=\"$netb\"/>\n";
 }
 print "</list>\n";