BTW This does not do most business name lookups from 411.com correctly. Maybe someone who actually knows Perl can do that :)
-- Nabeel Jafferali X2 Networks www.x2n.ca T: 1.647.722.6900 1.877.VOIP.X2N F: 1.866.655.6698 FWD: 46990 > -----Original Message----- > From: Nabeel Jafferali [mailto:[EMAIL PROTECTED] > Sent: May 7, 2005 5:36 PM > To: [email protected] > Cc: [EMAIL PROTECTED] > Subject: [on-asterisk] CID Lookup > > Jim Meehan had posted something to asterisk-users a couple of months ago > that looked up CID info from Google and, failing that, got the NPA/NXX > info > from areacodedownload.com. I modified his script to look up Google, then > look up 411.com, since the latter has Canadian listings. I left Google in > because it's significantly faster. I removed the reversing first/last > names > and the NPA/NXX lookup. Here the code, if anyone is interested: > > > #!/usr/bin/perl > use Asterisk::AGI; > $AGI = new Asterisk::AGI; > $number = $ARGV[0]; > $found = 0; > > open(RESULTS, "/usr/bin/curl -s -m 2 -A Mozilla/4.0 > http://www.google.com/search?q=phonebook:$number |"); > while (<RESULTS>) { > if (m/Residential Phonebook/ || m/Business Phonebook/) { > $found = 1; > @fields = split(/>/); > @result = split(/-/, $fields[35]); > chop($result[0]); > $name = $result[0]; > } > if (m/did not match any/) { > $found = 0; > } > } > > if ($found == 0) { > open(RESULTS, "/usr/bin/curl -s -m 2 -A Mozilla/4.0 > http://www.411.com/10668/search/Reverse_Phone?phone=$number |"); > while (<RESULTS>) { > if (m/__FIRST/) { > $found = 1; > @fname = split(/\"/); > } > elsif (m/__LAST/) { > @lname = split(/\"/); > $name = $fname[1] . " " .$lname[1]; > } > } > } > > $AGI->set_variable('googlename', "\"$name\""); > > -- > Nabeel Jafferali > X2 Networks > www.x2n.ca > T: 1.647.722.6900 > 1.877.VOIP.X2N > F: 1.866.655.6698 > FWD: 46990 > > > > > --------------------------------------------------------------------- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] >
