Выполнение произвольной команды dialplan

Question

В ходе отрабатывания IVR при определенном донаборе запускался скрипт для 
проигрывания случайного музыкального файла из определенной директории.
Текст:
exten => 1,n,Set(FILE=${SHELL( perl -e '$_=( sort {rand(12)<=>rand(12)} 
glob("/var/lib/asterisk/sounds/*.*") )[0]\;chomp\; 
s#\.(\w+)$##\; print' )})
exten => 2,n,Playback(${FILE})

 

Answer 1

Для решения задачи достаточно в CFE последовательно применить модули command

 

В качестве команд указать:

В первом блоке:

Set(FILE=${SHELL( perl -e '$_=( sort {rand(12)<=>rand(12)} 
glob("/var/lib/asterisk/sounds/*.*") )[0]\;chomp\; 
s#\.(\w+)$##\; print' )})

 

Во втором блоке

Playback(${FILE})