From 7d89f943614f06940696836692e64132fdf43620 Mon Sep 17 00:00:00 2001
From: Brian West <brian@freeswitch.org>
Date: Tue, 3 Jul 2012 20:04:19 -0500
Subject: [PATCH] update cnam.cgi

---
 scripts/perl/cnam.cgi | 22 +++++++---------------
 1 file changed, 7 insertions(+), 15 deletions(-)

diff --git a/scripts/perl/cnam.cgi b/scripts/perl/cnam.cgi
index d7acaa9b49..5f777cc5e3 100755
--- a/scripts/perl/cnam.cgi
+++ b/scripts/perl/cnam.cgi
@@ -11,7 +11,7 @@ use Fcntl;
 
 my %params = map { $_ => get_data( $_ ) } param;
 
-$ua = LWP::UserAgent->new(ssl_opts => { verify_hostname => 0 });
+$ua = LWP::UserAgent->new(ssl_opts => { verify_hostname => 0, timeout => 3 });
 
 sub get_data {
     my $name   = shift;
@@ -29,8 +29,6 @@ my $number = $params{number};
 
 
 if($number =~ m/1?\d{10}/) {
-
-
     if($number =~ m/^1(\d{10})$/) {
 	$number = $1;
     }
@@ -42,21 +40,15 @@ if($number =~ m/1?\d{10}/) {
     }
 
     my $url = "https://api.opencnam.com/v1/phone/$number?format=text";
-
-
     my $res = $ua->get( $url );
+    my $code = $res->code;
 
-    if ($res->is_success) {
+    if ($code eq '200') {
 	my $content = $res->decoded_content;
-	if ($content =~ m/^Invalid/) {
-	    # API shouldn't return this crap.
-	    print "UNKNOWN";
-	} else {
-	    # Cache the entry.
-	    $cache{"$number"} = $content;
-	    # print the entry.
-	    print $content;
-	}
+	$cache{"$number"} = $content;
+	print $content;
+    } else {
+	print "UNKNOWN";
     }
 }