;# // BEGIN Wolfram Alpha
; Wolfram Alpha Dialplan Interface for Incredible PBX 13-13 servers
; Before use, enter your Wolfram Alpha App ID in /var/lib/asterisk/agi-bin/wolfram.sh
; See the Nerd Vittles tutorial for details: http://nerdvittles.com/?p=798
exten => 4747,1,Answer()
exten => 4747,n,Wait(1)
exten => 4747,n,flite("After the beep, Say your command, then Press the pound key.")
exten => 4747,n,Set(RANDFILE=${RAND(8000,8599)})
exten => 4747,n,Record(/tmp/${RANDFILE}.wav,3,10)
exten => 4747,n,Flite("I think you said:")
exten => 4747,n,Playback(/tmp/${RANDFILE})
exten => 4747,n,Flite("If this is correct. press 1.")
exten => 4747,n,Read(MYCHOICE,beep,1)
exten => 4747,n,GotoIf($["foo${MYCHOICE}" = "foo1"]?wolfproceed:wolfdone)
exten => 4747,n(wolfproceed),Flite("One moment please while we contact wolfrum alpha.")
exten => 4747,n,AGI(wolfram.sh,${RANDFILE})
exten => 4747,n,Set(foo=${FILE(/tmp/results.txt)})
exten => 4747,n,flite("${foo}")
exten => 4747,n(wolfdone),flite("Have a nice day! Good bye.")
exten => 4747,n,hangup
;# // END Wolfram Alpha
