Am I doing something wrong? or have you heard of new lookup sites which can be used?

Thanks!

[WM: Ryan, This article is over three years old or roughly three lifetimes in VoIP years. Try this link instead.]

[WM: Hmmm. Send your check by mail. When it clears… anything is possible, depending upon the amount of the check.]

http://www.softwareblueprint.com/sugarcallerid.txt

It works great. I had to format all of my Outlook contact phone numbers into this exact format (111) 111-1111 This was a minor inconvenience considering all that I went through to get it to work.

I had some issues with the MySQL password "root","passw0rd" I’m not sure what is up with that. But once I rebooted my VM it worked. I did not change the password. It works as is.

Also I am multi-ringing my cell phone (TMobile) and the caller ID name is not transfered (only the number). Any clues on how to get that working?

[WM: Telephone providers insert their own CallerID names. The incoming CallerID name info gets thrown in the bit bucket. Thanks for the tips on SugarCRM. I’ll have a look.]

Anyways….

$AGI->verbose() requires 2 parameters: a message and a verbose logging level. Previous versions of Perl appear to overlook the fact that you didn’t include a verbose logging level when using $AGI->verbose() in your calleridname.agi. But, more recent Perl versions appear to pop up a warning about use of an uninitialized variable (in this case, the missing $level parameter). My suggestion would be to change all the $AGI->verbose("some message") to $AGI->verbose("some message",1).

This would alleviate the warning messages plaguing Alex in comment 31 and some people on Voxilla.

See ya…

d.c.

[WM: Thanks, as usual, Davy. I’ve updated the script using your instructions, and I’ll post a comment below just to be sure everyone gets it.]

Frank

I have SugarCRM running on a PC separate from the Asterisk PC. What do I need to do to get the calleridname.agi to connect to the SugarCRM on the other PC?

Get it at: http://freepbx.org/ticket/946

Now my caller name lookup module will save lookup results in astDB (under the cidname key)

Get the latest release at:
http://www.freepbx.org/ticket/946

Regards

You can download the 1.0.3 release at: http://www.freepbx.org/ticket/893
It has now the possibility to bulk import from CSV

More cool features to come 😉

In calleridname.agi, replace the current google_lookup function.

[WM: Here’s a link to chandave’s reworked calleridname.agi script with our extra special thanks. We knew chandave could do it!]

See ya…

d.c.

[WM: Yeah, we need 5 minutes from a Perl whiz … which I’m not.]

Adding a way to bulk load the phonebook will be the next step of development 😉

SugarCRM integration also is in my next developing steps 😉

Also integrating with other sources, as the ones described in this page, it’s a good idea but we need first to analyze issues related to internationalization, copyright, performances (caching is a good idea 😉 ) and website variability.

I’ll probably open up a discussion Wiki page on freepbx.org tomorrow to get proposal and ideas about the next developing step.

Regards 😉

Intergrated freepbx modules are definatly the way forward !!

Please, take a look at it, I think it will be a good starting point to eventually add the sources you were talking about and did implement in your AGI

You can find the module here:
http://www.freepbx.org/ticket/946

Hope it helps

Have fun 😉

Thanks!!!

[macro-user-callerid]
exten => s,1,GotoIf($["${CHANNEL:0:5}" = "Local"]?report)
exten => s,n,GotoIf($["${REALCALLERIDNUM:1:2}" != ""]?start)
exten => s,n,Set(REALCALLERIDNUM=${CALLERID(number)})
exten => s,n(start),NoOp(REALCALLERIDNUM is ${REALCALLERIDNUM})
exten => s,n,Set(AMPUSER=${DB(DEVICE/${REALCALLERIDNUM}/user)})
exten => s,n,Set(AMPUSERCIDNAME=${DB(AMPUSER/${AMPUSER}/cidname)})
exten => s,n,GotoIf($["x${AMPUSERCIDNAME:1:2}" = "x"]?chknamelen)
exten => s,n,Set(CALLERID(all)=${AMPUSERCIDNAME} < ${AMPUSER}>)
exten => s,n(chknamelen),GotoIf($[${LEN(${CALLERID(name)}) > 0 ]?report)
exten => s,n,AGI(calleridname.agi)
exten => s,n(report),NoOp(Using CallerID ${CALLERID(all)})

Note that one line is changed in the existing macro (the label at the end of the line is changed:

,n,GotoIf($["x${AMPUSERCIDNAME:1:2}" = "x"]?chknamelen)

And two lines are added:

exten => s,n(chknamelen),GotoIf($[${LEN(${CALLERID(name)}) > 0 ]?report)
exten => s,n,AGI(calleridname.agi)

I also changed the dialplan.agi itself. Because I do live in North America and do not use SugarCRM, I did not incorporate TBB’s changes. But I did make several other changes, among which are:

1) It now searches from the type of lookup you probably most want (name) and only if it is unsuccessful there does it proceed to try and find a city. More to the point, once it finds valid data it stops looking. The existing routine eats up a lot of time by checking every enabled service, and discarding earlier results if it finds a "better" result. This is clearly inefficient; why not check the services you would most like to get a result from first and only move to the next check when a previous one has failed?

2) I implemented a subroutine to check what I consider the best service out there, Whitepages.com. It’s a bit slow (mainly because a request sends back a huge page of data, most of which is unnecessary for our purposes) but their database seems to contain both businesses and residences, and both U.S. and Canadian numbers (in fact I read somewhere that they are the most popular directory service in Canada).

3) I also added a reverse lookup search at Canada411.com – this one only returns Canadian numbers. So I added a check for Canadian area codes that sets a flag if the NPA is Canadian, and only checks Canada411 if it’s a Canadian NPA. And it will only check AnyWho and Google if the NPA is NOT Canadian, because they don’t appear to support Canadian reverse lookups.

4) I really hated the place lookup display from Fonetastic – all I really wanted was City and State (or Province), thank you very much. Well, I found that Telcodata.us gives something pretty close to this, which is ratecenter and state. Ratecenter is usually the city (abbreviated to ten characters maximum) but you will see things like DETROITZN1 which simply means Detroit Zone 1. It’s still far more readable that what the Fonetastic routine spits out. And Telcodata lets you retrieve the data in an XML file, which is very easy to process IF you have the Perl XML::Simple module installed. Unfortunately, that isn’t included in a standard Asterisk@Home distribution. The easiest way to install it that I’ve found is to do this from the command line:

cd /tmp
wget http://search.cpan.org/CPAN/authors/id/G/GR/GRANTM/XML-Simple-2.14.tar.gz
tar xzvf XML-Simple-2.14.tar.gz
cd XML-Simple-2.14
perl Makefile.PL
make install

After doing the above you can delete the XML::Simple module stuff from the /tmp directory (it’s only needed during the install).

NOTE THAT IF YOU DON’T INSTALL THE XML::SIMPLE MODULE THE MODIFIED AGI SCRIPT WON’T RUN – Perl will barf because it can’t find the module, even if you don’t use the Telcodata.us service.

5) I changed the default timeout for each service to 5 seconds. Remember your callers are waiting (and hearing nothing) while the lookups are being performed. Even 5 seconds is too long in my opinion, but 45 seconds (the original default) was outrageously too long.

6) Finally, I removed the orphaned subroutine that did the Fonefinder lookups. It no longer works, and it’s no longer called from anywhere, so why keep it around?

Now a couple of caveats:

1) I am releasing my additions to the original code under the same terms as the original code (whatever they may have been), so anyone that used the original code may use this. However, notwithstanding the above, I must also say that I’m providing these modifications to the original routine for educational and experimental purposes only, and in particular, without saying or implying that it is permissible to use the services accessed by this routine. If you plan to use this in any sort of commercial environment, you may need to actually get a license and/or pay some money to whichever services you use. Whitepages.com, for example, has a commercial product that they sell to companies that do many lookups. While I doubt anyone running Asterisk AT HOME will get in trouble for doing an occasional lookup, the situation may be much different if you implement this routine in a business or corporate setting. I am not a lawyer, so I cannot tell you what your obligations may or may not be.

(Specific note regarding Whitepages.com – I think that if you buy the commercial product, you can get the results in XML format, which would be far more reliable and could potentially decrease the lookup time by a couple of seconds per lookup, which might make a big difference if you were running something like a call center. Right now the modified routine won’t use the XML files because I have no idea what format Whitepages.com uses, but if you do, it would be fairly easy to add a subroutine to parse whatever their XML format is. Again, if you are running any kind of call center environment, you definitely should contact Whitepages.com to see how you can use their service in the most efficient and legal manner.)

2) This code works FOR ME as of the day I posted it, under very limited testing. It may not work if the services change how they display their results. It may not work if you encounter an unusual listing. I do NOT offer any guarantees of any sort as to how it will work for you, or that it will work for you at all. I will also add that I’ve been messing with Perl for all of a month or two and I am a slow learner, so you may see better ways to do things in the code – I don’t know about the original author and his code, but I assure you that I will NOT be offended by any suggestions for improvement to the parts I wrote (or modified). Note that I may fix bugs in this routine or add additional services if I find them, but don’t use this routine in any situation where it could cost you money if it doesn’t work, without doing your own testing. THERE IS NO WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, ON THIS ROUTINE.

By downloading and/or using the modified calleridname.agi routine, you agree that you have read and will observe the above-mentioned caveats. It will be available for download for a limited time at this location. Ward, feel free to move it to your site and change the link (assuming the original author has no objections).

One thing I do NOT do here, but that probably should be done in any commercial operation, is to cache the results of a lookup for a period of time (say one week) so you don’t make repeated requests to get the same data. I’m afraid I don’t know Perl well enough to do that, but if anyone does, please feel free to add it in. And one final note, this routine is intended for use primarily in the U.S. and Canada, but in searching for alternative reverse-lookup sites I did stumble across this page, which may be of interest to anyone in Germany (or that wants to get German caller ID information).

Enter: $Sugarcrm=’1′; under $Asteridex

## i also remarked the lines below:
#if(substr($callerid,0,1) eq ‘1’){
#$callerid=substr($callerid,1);
#}

#if(substr($callerid,0,2) eq ‘+1’){
#$callerid=substr($callerid,2);
#}

#$calleridfull =~ s/[,"‘]+/ /g;

###### now the real stuff ###

create the following section:
##

sub sugarcrm_lookup {
my $callerid = shift @_;
my $dbh = DBI->connect("dbi:mysql:sugarcrm","root","passw0rd") or die("Connect failed");
#my $sql = "select * from contacts where phone_work = ‘$callerid'";
#return $sql;
# [contacts.id -> accounts_contacts.contact_id] mit [accounts_contacts.account_id->accounts.id] get [accounts.name]
#my $sth = $dbh->prepare("select * from contacts where phone_work = ‘$callerid’ OR phone_home = ‘$callerid’ OR phone_mobile = ‘$callerid’ OR phone_other = ‘$callerid'") or die("Prepare failed.");
my $sth = $dbh->prepare(" SELECT c.first_name,c.last_name, if(a.name IS NULL,"unknown",a.name) AS "company"
FROM contacts c
LEFT JOIN accounts_contacts ac ON ac.contact_id=c.id
LEFT JOIN accounts a ON a.id=ac.account_id
WHERE c.phone_work like ‘$callerid’ OR c.phone_home like ‘$callerid’
OR c.phone_mobile like ‘$callerid’ OR c.phone_other like ‘$callerid'")
or return "FAILED";
$sth->execute;
if($sth->rows == 0)
{
$dbh->disconnect;
return "null";
}
else
{
my $resptr = $sth->fetchrow_hashref();
my $clidname = $resptr->{"first_name"}." ".$resptr->{"last_name"}." @".$resptr->{"company"};
$dbh->disconnect;
# $clidname = trim ($clidname);
return $clidname;
}

$dbh->disconnect;
return "disconnect";
}

##

have fun!

[WM: Fantastic! Can’t wait to try it. Thanks for sharing it with all of us!]

and does anyone know if there’s a way to lookup canadian phone numbers, google and att only have a US database. i’m looking for a canadian database as well. thanks

[WM: Can’t help much on Canadian phone numbers. As for NPA-NXX, we already have converted the data to MySQL in preparation for our upcoming article. Anyone that wants to get a head start and roll your own is welcome to use the database. You can download it from here: npanxx.zip. Just share your work here and save us all a little time.

[WM: It’s already on my TO-DO list. So hang in there until we get past our move, and we’ll cover it with an NPA-NXX database as well.]

Anyone thinking the same as me ?