Added: freeswitch/trunk/scripts/perl/wplookup.cgi (0 => 15018)

--- freeswitch/trunk/scripts/perl/wplookup.cgi	                        (rev 0)
+++ freeswitch/trunk/scripts/perl/wplookup.cgi	2009-09-30 10:21:16 UTC (rev 15018)
@@ -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;
+};
Property changes on: freeswitch/trunk/scripts/perl/wplookup.cgi
___________________________________________________________________
Name: svn:executable
   + *