[disa]
include => disa-verified

exten => s, 1, AGI(disa,${CALLERIDNUM})   ;this agi verfies if the users are authorized(for personal use)
exten => s, 2, NoOp(${ERG})								;show me the answer the agi sent
exten => s, 3, GotoIf($["${ERG}" = "0"]?disa-verified|s|100:)
exten => s, 4, AGI(disa-usergroup1,${CALLERIDNUM}) ;this agi verfies if the users are authorized(for users belonging to usergroup1)
exten => s, 5, NoOp(${ERG})
exten => s, 6, GotoIf($["${ERG}" = "0"]?disa-verified|s|200:)
exten => s, 7, SetAccount(00000000000001)						;if the calleridnum is in no list, give him a chance to authorize
exten => s, 8, Set(TIMEOUT(digit)=5)
exten => s, 9, Set(TIMEOUT(response)=15)
exten => s, 10, Authenticate(5678345)
exten => s, 11, DISA(no-password|disa2)


[disa-verified]
exten => s, 200, SetAccount(123456789)      ;Accountnumber of usergroup1
exten => s, 201, Set(TIMEOUT(digit)=5)
exten => s, 202, Set(TIMEOUT(response)=15)
exten => s, 203, DISA(no-password|disa2)

[disa2]
;========================================

exten => _X., 1, NoOp(${EXTEN})									;Added on 24.11.2005 due to errorenous records(cut offs)
exten => _X., 2, AGI(disacut,${EXTEN})					;agi to cut away * and # dialed by mistake
exten => _X., 3, GotoIf($["${CALLERIDNUM:0:1}" = "0"]?100:)
exten => _X., 4, GotoIf($["${CALLINGPRES}" = "33"]?200:)
exten => _X., 5, GotoIf($["${EXTEN:0:5}" = "43650"]?200:)
exten => _X., 6, GotoIf($["${EXTEN:0:4}" = "0650"]?200:)		;these calls will be sent with a prohib presbit
exten => _X., 7, SetCIDNum(${CALLERIDNUM})		;i know this is useless, used to be something different earlier
exten => _X., 8, SetCDRUserField(${MODCLI})   ;MODCLI received from agi disacut(without # and *) for proper cdr's
exten => _X., 9, Set(FROM_EXTEN=${EXTEN})			;another relict from earlier days
exten => _X., 10, NoOp(${EXTEN})							;show me again what the user has dialed! added on 24.11.2005
exten => _X., 11, Dial(Zap/G1/${MODCLI}|120|gH)	;dial whatever disacut gives us
exten => _X., 12, GotoIf($["${DIALSTATUS}" != "ANSWER"]?s-${DIALSTATUS}|1)	;if the call failed, play some sounds and get back to authentication
exten => _X., 13, Playback(beep)
exten => _X., 14, Goto(disa,s,1)
exten => _X., 15, Hangup

exten => _X., 200, SetCallerPres(prohib)
exten => _X., 201, NoOp(${CALLINGPRES})					;relict
exten => _X., 202, SetCIDNum(${CALLERIDNUM})		;relict
exten => _X., 203, SetCDRUserField(${MODCLI})		;MODCLI received from agi disacut(without # and *) for proper cdr's
exten => _X., 204, Set(FROM_EXTEN=${MODCLI})		;relict
exten => _X., 205, NoOp(${EXTEN})								;show me what the user has dialed! added on 24.11.2005
exten => _X., 206, Dial(Zap/G1/${MODCLI}|120|gH)	;dial whatever disacut gives us
exten => _X., 207, Set(FROM_EXTEN=${EXTEN})				;relict
exten => _X., 208, GotoIf($["${DIALSTATUS}" != "ANSWER"]?s-${DIALSTATUS}|1) ;if the call failed, play some sounds and get back to authentication
exten => _X., 209, Playback(beep)
exten => _X., 210, Goto(disa,s,1)
exten => _X., 211, Hangup

exten => s-NOANSWER, 1, Zapateller
exten => s-NOANSWER, 2, Playback(that-is-not-rec-phn-num)
exten => s-NOANSWER, 3, Playback(please-try-again)
exten => s-NOANSWER, 4, Goto(disa,s,1)
exten => s-NOANSWER, 5, Hangup

exten => s-BUSY, 1, Playtones(Congestion)
exten => s-BUSY, 2, Wait(5)
exten => s-BUSY, 3, Playback(the-number-u-dialed)
exten => s-BUSY, 4, Playback(is-curntly-busy)
exten => s-BUSY, 5, Playback(please-try-again)
exten => s-BUSY, 6, Goto(disa,s,1)

exten => s-CONGESTION, 1, Playtones(Congestion)
exten => s-CONGESTION, 2, Wait(2)
exten => s-CONGESTION, 3, Playback(the-number-u-dialed)
exten => s-CONGESTION, 4, Playback(is-curntly-busy)
exten => s-CONGESTION, 5, Playback(please-try-again)
exten => s-CONGESTION, 6, Goto(disa,s,1)

exten => s-CANCEL, 1, Playback(please-try-again)
exten => s-CANCEL, 2, Goto(disa,s,1)
exten => s-CANCEL, 3, Hangup


;===================================================================