diff options
Diffstat (limited to '1.2-netsec/contrib/scripts/lookup.agi')
-rw-r--r-- | 1.2-netsec/contrib/scripts/lookup.agi | 90 |
1 files changed, 0 insertions, 90 deletions
diff --git a/1.2-netsec/contrib/scripts/lookup.agi b/1.2-netsec/contrib/scripts/lookup.agi deleted file mode 100644 index 4b682b837..000000000 --- a/1.2-netsec/contrib/scripts/lookup.agi +++ /dev/null @@ -1,90 +0,0 @@ -#!/usr/bin/perl -# -# Use Reverse Lookups to populate valuable information -# -# Copyright (C) 2005 Digium, Inc. -# -# Mark Spencer <markster@digium.com> -# -# Based on work of Joe Fratantoni - BrakeDanceJ - Joe@UnrealDestination.com. -# -# This program is Free Software distributed under the terms of the GNU -# General Public License version 2. See LICENSE for details. -# -# -use LWP::UserAgent; -my %AGI; -my $debug = 0; -$|=1; -sub url_decode { - my @args = @_; - s/%([0-9A-F]{2})/chr hex $1/egios for @args; - s/\"//egios for @args; - return wantarray ? @args : $args[0]; -} - -while(<STDIN>) { - chomp; - last unless length($_); - if (/^agi_(\w+)\:\s+(.*)$/) { - $AGI{$1} = $2; - } -} - -alarm(4); -my $number = $AGI{'callerid'}; -$number =~ /(\d+)/; -$number = $1; -die("You must specify a number") unless $number; -my $ua = LWP::UserAgent->new; -$ua->agent("Asterisk"); -my $req = HTTP::Request->new(POST => 'http://www.411.com/10668/search/Reverse_Phone'); -$req->content_type('application/x-www-form-urlencoded'); -$req->content("phone=$number"); -my $res = $ua->request($req); -if ($res->is_success) { - my $first, $last, $address, $street, $house, $city, $state, $zip, $phone; - if ($res->content =~ /PAGE: PHONE_NOT_FOUND/) { - # Limited Information - $res->content =~ /is a \s+([A-Za-z -]*), ([A-Z]{2}) \s+based phone number and the registered carrier is (.*)\.\s+/; - ($city, $state, $last) = - map { url_decode($_) } ($1, $2, $3); - $cidname = "$city, $state"; - } else { - # Full Information - $res->content =~ /RM_HTML_FIRST_ESC_=(.*)&_RM_HTML_LAST_ESC_=(.*)&_RM_HTML_ADDRESS_ESC_=(.*)&_RM_HTML_STREET_ESC_=(.*)&_RM_HTML_HOUSE_ESC_=(.*)&_RM_HTML_CITY_ESC_=(.*)&_RM_HTML_STATE_ESC_=(.*)&_RM_HTML_ZIP_ESC_=(.*)&_RM_HTML_PHONE_ESC_=(.*)&CITY=(.*)&STATE=(.*)/; - ($first, $last, $address, $street, $house, $city, $state, $zip, $phone) = - map { url_decode($_) } ($1, $2, $3, $4, $5, $6, $7, $8, $9); - my $cidname = $last; - if ($first) { - $cidname = $first . " " . $last; - } else { - $cidname = $last; - } - } - print STDOUT "SET VARIABLE CALLERID(name) \"$cidname\"\n"; - <STDIN>; - print STDOUT "SET VARIABLE CALLER_ZIP \"$zip\"\n"; - <STDIN>; - print STDOUT "SET VARIABLE CALLER_STATE \"$state\"\n"; - <STDIN>; - print STDOUT "SET VARIABLE CALLER_CITY \"$city\"\n"; - <STDIN>; - print STDOUT "SET VARIABLE CALLER_ADDRESS \"$address\"\n"; - <STDIN>; - print STDOUT "SET VARIABLE CALLER_LAST \"$last\"\n"; - <STDIN>; - print STDOUT "SET VARIABLE CALLER_FIRST \"$first\"\n"; - <STDIN>; - print STDERR "First: $first\n" . - "Last: $last\n" . - "Address: $address\n" . - "Street: $street\n" . - "House: $house\n" . - "City: $city\n" . - "State: $state\n" . - "Zip: $zip\n" . - "Phone: $phone\n" if $debug; -} else { - print STDERR $res->status_line . "\n"; -} |