[Asterisk-Users] Telemarketer screening

[Walt Reed]

On Tue, Aug 24, 2004 at 03:34:34PM +1000, david kwok said:
> I have been bugging by a telemarketer who does not take any cue at all.
> 
> So I look up the Asterisk Handbook and send his call with the respect 
> caller id to my voicemail.
> 
> Has any one implemented any of this feature with database for more 
> caller ids to be included??

Yep. I have a database of "idiots" that just don't get a clue. I also
force 800 numbers or no callerID to hit "5", which has eliminated
virtually all telemarketing calls (it's amazing how many ignore the
DoNotCall list. I got tired of reporting them.) Seems that the
autodialers don't pass on that critical bit of information... :-)

I've been thinking of handling all sorts of callers specially. * makes
this so easy!

; house line
exten => s,1,NoOp(${CALLERID})
; check for callerID. If none,  make them hit 5. 
exten => s,2,GotoIf($["${CALLERIDNUM}" = ""]?s|1000)
; Is the person calling an idiot?
exten => s,3,DBGet(temp=idiot/${CALLERIDNUM})
exten => s,4,Goto(s,2001) ; Yep, he's an idiot.

; Credit Services - a totally clueless company
; that won't take "wrong number" for an answer
exten => s,104,GotoIf($["${CALLERIDNUM:0:3}" = "8006848429"]?s|2100)
; If 800 type number, make them hit 5. 
exten => s,105,GotoIf($["${CALLERIDNUM:0:3}" = "800"]?s|1000)
exten => s,106,GotoIf($["${CALLERIDNUM:0:3}" = "866"]?s|1000)
exten => s,107,GotoIf($["${CALLERIDNUM:0:3}" = "888"]?s|1000)
exten => s,108,GotoIf($["${CALLERIDNUM:0:3}" = "877"]?s|1000)
exten => s,109,Goto(s|200)
; All special cases handled. 
; Replace callerID name for well known numbers to be more descriptive
exten => s,200,LookupCIDName
; If daytime, ring through
;   Note: should do DB lookup to bypass time restrictions for 
;   family / friends...
exten => s,201,GotoIfTime(7:00-21:00|*|*|*?5|1)
; else make them hit 5 if after hours...
exten => s,202,Goto(s|1000)

exten => s,1000,Background(press5formadsorwalt)

; Idiots here:
exten => s,2001,Playtones(info)
exten => s,2002,Wait,1
exten => s,2003,Playback(discon-or-out-of-service)
exten => s,2004,Congestion

; Cred Services - because the clueless don't give up
exten => s,2100,Answer
; Play nasty message endlessly...
exten => s,2101,Wait(1)
exten => s,2102,Playback(cred-services)
exten => s,2103,Goto(2101)

exten => 5,1,Dial(SIP/604&SIP/602,25,tr)
exten => 5,2,Background(reached-reeds)
exten => 5,3,Background(press-1-leave-msg)
exten => 5,102,Background(reached-reeds)
exten => 5,103,Background(press-1-leave-msg)

exten => o,1,Background(invalid)
exten => o,2,Goto(8,1)
exten => i,1,Background(invalid)
exten => i,2,Goto(8,1)
exten => t,1,Playback(vm-goodbye)
exten => t,2,Hangup