From 978c6bdebe81697c32b81d2115174a2a01ba2aee Mon Sep 17 00:00:00 2001
From: Brian West <brian@freeswitch.org>
Date: Wed, 30 Sep 2009 10:21:16 +0000
Subject: [PATCH]  whitepages cid lookup US only

git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@15018 d0543943-73ff-0310-b7d9-9358b9ac24b2
---
 scripts/perl/wplookup.cgi | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100755 scripts/perl/wplookup.cgi

diff --git a/scripts/perl/wplookup.cgi b/scripts/perl/wplookup.cgi
new file mode 100755
index 0000000000..0263b90e73
--- /dev/null
+++ b/scripts/perl/wplookup.cgi
@@ -0,0 +1,26 @@
+#!/usr/bin/perl
+#
+# see http://developer.whitepages.com/ for details
+#
+
+use Data::Dumper;
+use Net::WhitePages;
+use CGI qw/:standard/;
+
+my $wp = Net::WhitePages->new(TOKEN => "API_TOKEN");
+
+
+$caller_id = param('caller_id');
+
+print header("text/plain");
+my $res = $wp->reverse_phone(phone => $caller_id);
+foreach $entry (@{$res->{listings}}) {
+  if($entry->{business}) {
+    print uc("$entry->{business}->{businessname}");
+  } elsif ($entry->{displayname}) {
+    print uc("$entry->{displayname}");
+  } else {
+    print uc("$entry->{address}->{city}, $entry->{address}->{state}");
+  }
+  last;
+};