From 4cbcefc748dfdf48057e8b5c940c649f8c85c1d5 Mon Sep 17 00:00:00 2001
From: Daniel Tiefnig <dtiefnig@sipwise.com>
Date: Fri, 8 Feb 2008 00:14:57 +0000
Subject: [PATCH] added dash to list of allowed characters for number patterns
 removed debug output

---
 lib/admin/Controller/subscriber.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/lib/admin/Controller/subscriber.pm b/lib/admin/Controller/subscriber.pm
index 1cd1a6b..1a8926a 100644
--- a/lib/admin/Controller/subscriber.pm
+++ b/lib/admin/Controller/subscriber.pm
@@ -750,7 +750,7 @@ sub do_edit_list : Local {
     # input text field to add new entry to block list
     my $add = $c->request->params->{block_add};
     if(defined $add) {
-        if($add =~ /^\+?[?*0-9\[\]]+$/) {
+        if($add =~ /^\+?[?*0-9\[\]-]+$/) {
             if($add =~ /^[1-9\[]/) {
                 $add =~ s/^/$c->session->{subscriber}{cc}.$c->session->{subscriber}{ac}/e;
             } elsif($add =~ /^0[^0]/) {
@@ -787,7 +787,6 @@ sub do_edit_list : Local {
     # activate/deactivate link next to entries in block list
     my $act = $c->request->params->{block_act};
     if(defined $act) {
-        print STDERR "Got request to de/activate $act...\n";
         my $blocklist = $$preferences{$list};
         if(defined $blocklist) {
             $act =~ s/^\+//;