Asterisk AGI Reverse Lookup

Perl script for Asterisk which lookups CID in internet and returns name and address if found. Currently there are 4 different sources included for Germany,Austria,Swiss.

The found name can be also stored in MySQL or Asterisk DB to speedup further lookups.

Script will also use tellows.de to get the spam score and you can decide yourself with the variable SPAMSCORE if you let the caller pass.

To use the script you will need to get HTML::TreeBuilder and Asterisk::AGI.
Store the script in the /var/lib/asterisk/agi-bin folder and put in dialplan something like:

exten => _X.,1,ExecIf($[${LEN(${DB(cidname/${CALLERID(num)})})} > 0]?SET(CALLERID(name)=${DB(cidname/${CALLERID(num)})}):AGI(reversecheck.agi,${CALLERID(num)}))
same => n,ExecIf($[${LEN(${RESULTREV})} > 0]?SET(CALLERID(name)=${RESULTREV}))
same => n,GotoIf($[${REGEX("[7-9]" ${SPAMSCORE})}]?spamtrap,${EXTEN},1)