From: Brian West <brian@freeswitch.org>
Date: Tue, 17 Jun 2014 22:11:04 +0000 (-0500)
Subject: tweak
X-Git-Tag: v1.5.13~139
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=c066fedffed6a069286b3c4bf28862200a35ff00;p=thirdparty%2Ffreeswitch.git

tweak
---

diff --git a/scripts/perl/ftc_dnc_register.pl b/scripts/perl/ftc_dnc_register.pl
index 011569164e..0471719183 100644
--- a/scripts/perl/ftc_dnc_register.pl
+++ b/scripts/perl/ftc_dnc_register.pl
@@ -21,6 +21,7 @@ my @nums = <NUMS>;
 foreach my $num (@nums) {
   chomp $num;
   $num =~ s/^1//;
+  next if lenght($num) != 10;
   print "Dialing from $num\n";
   my @digits = split(//, $num);
   my $dial = join('w', @digits);