contrib/package/asterisk-xip/files/macros/clock.conf

   1 ; Talking clock by Michael Geddes
   2 ; Borrowed from bits here and there.
   3 [macro-talkingclock] ; (TimeFormat, DateFormat, Zone)
   4 exten => s,1,Answer
   5 exten => s,n,set(tcTimeFormat=${ARG1})
   6 exten => s,n,GotoIf($["${tcTimeFormat}" = ""]?:tfOK)
   7 exten => s,n,set(tcTimeFormat=HM\'vm-and\'S\'seconds\')
   8 exten => s,n(tfOK),set(tcDateFormat=${ARG2})
   9 exten => s,n,GotoIf($["${tcDateFormat}" = ""]?:dfOK)
  10 exten => s,n,set(tcDateFormat=AdBY)
  11 exten => s,n(dfOK),set(tcZone=${ARG3})
  12 exten => s,n,GotoIf($["${tcZone}" = ""]?:znOK)
  13 exten => s,n,set(tcZone=${TalkingClockZone})
  14 exten => s,n(znOK),SayUnixTime(,${tcZone},${tcDateFormat})
  15 exten => s,n(again),Wait(2)
  16 exten => s,n,Set(FutureTime=$[${EPOCH} + 6])
  17 exten => s,n,Playback(misc/at-tone-time-exactly)
  18 exten => s,n,SayUnixTime(${FutureTime},${tcZone},${tcTimeFormat})
  19 ; Wait to say the beep.
  20 exten => s,n(waitforit),noop
  21 exten => s,n,GotoIf($[ ${EPOCH} < ${FutureTime} ]?waitforit:)
  22 exten => s,n,playback(beep)
  23 exten => s,n,goto(again)