Marlon Filter System

[special]

exten => _444592.,1,Gosub(filter,3455,1)
exten => _444592.,2,Dial(IAX2/sb32/${EXTEN}@Guyana_IN)

exten => _175592.,1,Gosub(filter,3455,1)
exten => _175592.,2,Dial(IAX2/sb32/${EXTEN}@Guyana_IN)


exten => _732592.,1,Gosub(filter,3455,1)

exten => _732592.,2,Dial(IAX2/hp/${EXTEN}@Guyana_IN)


exten => _753592.,1,Gosub(filter,3455,1)
exten => _753592.,2,Dial(IAX2/raspberry-pi1/${EXTEN}@Guyana_IN)


exten => _764592.,1,Gosub(filter,3455,1)
exten => _764592.,2,Dial(IAX2/hp/${EXTEN}@Guyana_IN)


exten=>h,1,ExecIf($[${CDR(duration)}<20]?System(echo ${CDR(duration)}  ${CDR(dst):3}  ${CALLERID(num)} ${STRFTIME(${EPOCH},,%C%y%m%d%H%M%S)} >>/root/badcalls.conf))
exten=>h,2,ExecIf($[${CDR(duration)}>=30]?System(echo  ${CDR(dst):3}   >>/root/goodcalls.conf))
exten=>h,3,Verbose( call duration ${CDR(duration)})



[filter]
exten=>3455,1,Noop()
exten=>3455,2,Set(BAN=${SHELL(cat /root/blacklisted.conf | grep -w -F  ${CDR(dst):3}  | wc -l)})
same=>n,GotoIf($[${BAN}>0]?bad)
exten=>3455,3,Set(RESULT=${SHELL(cat /root/badcalls.conf | grep -w -F  ${CDR(dst):3}  | wc -l)})
same=>n,verbose( this is the  ${RESULT})
same=>n,GotoIf($[${RESULT}>2]?bad:good)
same=>n(bad),Verbose( dropping the call)
same=>n,Hangup()
same=>n(good),verbose(Good call)
same => n,Return