[say-digits]
;
; Usage: exten => 666,n,Gosub(say-digits,504-555-0666,1)
;
; This subroutine uses SayDigits to read numbers. A dash specifies a .5
; second delay.  Please send changes/patches/suggestions to
; eric@fnords.org.  This file is licensed under the GPLv3.
; See http://www.gnu.org/licenses/gpl-3.0.txt for the full text of the
; license.
;
exten => _X.,1,Set(INDEX=0)
exten => _X.,n,While($[${INDEX} < ${LEN(${EXTEN})}])
exten => _X.,n,GosubIf($["${EXTEN:${INDEX}:1}" = "-"]?wait:say)
exten => _X.,n,Set(INDEX=$[${INDEX} + 1])
exten => _X.,n,EndWhile
exten => _X.,n,Return
exten => _X.,n(say),SayDigits(${EXTEN:${INDEX}:1})
exten => _X.,n,Return
exten => _X.,n(wait),Wait(.5)
exten => _X.,n,Return