Пишем голосовое IVR меню на языке TCL, с использованием Cisco IVR API

Это старая версия документа!

Сегодня речь о голосовом меню (IVR) для маршрутизаторов Cisco, которое мы будем писать на языке TCL, и подключать на Cisco 3845.

Cisco начиная с версии IOS 12 поддерживает как VXML так и TCL скрипты для работы с голосовым меню. Однако, в отличии от VXML, скрипты на TCL имеют гораздо больше возможностей взаимодействия с Cisco IVR API. Так же существует возможность подключать гибридные IVR скрипты, со встроенными кусками VXML кода внутри TCL скрипта.

Все документы, связанные с IVR от Cisco, которые мне довелось получить можно скачать здесь.

Первое это FSM переходы.
Finite-State Machines — абстрактный автомат, число возможных внутренних состояний которого конечно.
Выглядит это примерно так:

set ivr_fsm(CALLCOMES,ev_setup_indication) "act_Setup same_state"

Переходов таких может быть сколько угодно, и расположены они в конце TCL скрипта.

Давайте разберемся, что это вообще такое.
Общий синтаксис этой команды таков:

set array(CURRSTATE, curr_event) “act_proc NEXTSTATE”

где:\ array – это имя FSM массива.
CURRSTATE – имя текущего состояния, при котором получено событие curr_event .
act_proc – имя функции, которую необходимо выполнить при поступлении события curr_event .
NEXTSTATE – имя состояния, которое установится после выполнения act_proc .

Другими словами, FSM это маркер, по которому Cisco сравнивает полученное от API событие с curr_event и текущий статус с CURRSTATE, если в каком либо FSM переходе они описаны, вызывается процедура act_proc и состояние изменяется на NEXTSTATE.

Самое главное в этом — это то, что текущее событие и состояние сравниваются со всеми описанными FSM переходами одновременно. Т.е. для Cisco не имеет значения порядок, в котором расположены FSM переходы, все они обрабатываются асинхронно.

Второй момент, это сами функции, которые должны быть описаны до инициализации скрипта.

Назначение всех команд и состояний подробно описано в файле tcl_ivr_2.0_programming_guide, который вы можете скачать здесь, я поподробнее остановлюсь только на тех, которые буду использовать непосредственно в скрипте

Начало любого TCL IVR скрипта содержит процедуру init , в моем примере эта функция выглядит так:

proc init { } {
    puts "\n proc Init start"
    global param
}

Здесь по сути выполняется вывод на экран командой puts «…» и определение глобальной переменной param

Инициализация скрипта происходит после описания всех функций, и начинается с запуска функции init . На этом простые вещи закончились, дальше все гораздо интереснее.

Последней исполняемой строкой скрипта должна быть строка определения стартового FSM перехода и стартового состояния. В нашем случае это:

fsm define ivr_fsm CALLCOMES

Это значит, что имя FSM массива задано как ivr_fsm, и стартовое состояние CALLCOMES. С инициализацией закончим, дальше будет понятнее, что происходит (я надеюсь).

proc Play_Welcome { } {
    puts "\n\n IVR - proc Play_Welcome start \n\n"
    global playng_files
    global param
    global pattern
    global numbers
    global workingtime

    #Вызываем процедуру, где описаны все переменные
    init_perCallVars

    #Получаем время
    GetDate

    #В зависимости рабочее сейчас время или нет, устанавливаем приветствие
    if {$workingtime} {
    set after_welcome $playng_files(takenumber)
    } else {
    set after_welcome $playng_files(noworking)
    }

    #Устанавливаем параметры подключения входящего вызова
    set param(interruptPrompt) true
    set param(abortKey) *
    set param(terminationKey) #

    #Подключаем входящий вызов
    leg setupack leg_incoming
    leg proceeding leg_incoming
    leg connect leg_incoming

    #Запускаем процедуру сбора нажатых цифр со стороны звонящего
    leg collectdigits leg_incoming param pattern

    #Запускаем проигрыш файлов звонящему абоненту, после их окончания
    #начнет действовать таймер param(interDigitTimeout), по истечении которого
    #Произойдет событие ev_collectdigits_done
    media play leg_incoming %s500 $playng_files(welcome) $after_welcome $playng_files(onhold)

    #Запускаем таймер, по истечении которого произойдет событие ev_named_timer
    timer start named_timer $numbers(waiting_time) t1
}

Здесь довольно подробно все описано.

Результатом выполнения данной процедуры будет подключение входящей линии к Cisco за счет команд //**leg setupack, leg proceeding, leg connect,**//  и проигрыш музыкальных файлов по очереди во входящую линию за счет команды //**media play leg_incoming**// .
Тут же запускается процесс сбора нажатых клавиш **//leg collectdigit//**  и таймер командой //**timer start**// .

И проверяется рабочее сейчас время или нет, вызывая функцию //**GetDate**// :
proc GetDate { } {
    global workingtime

    #Час
    set houris [clock format [clock seconds] -format %H]
    #День недели
    set dayis [clock format [clock seconds] -format %A]
    #Проверяем рабочее время
    if {$houris> 17 || $houris <8 || $dayis=="Sunday" || $dayis=="Saturday"} {
    set workingtime 0
    } else {
    set workingtime 1
    }
}

В зависимости от того рабочее время или нет мы меняем музыкальный файл, который будет проигран звонящему абоненту.\

Так как стартовое состояние задано в нашем случае как fsm define ivr_fsm CALLCOMES , в него попадают сразу 3 FSM:

''set ivr_fsm(CALLCOMES,ev_setup_indication)    "Play_Welcome,   same_state"
set ivr_fsm(CALLCOMES,ev_collectdigits_done)  "CheckDestanation,  same_state"
set ivr_fsm(CALLCOMES,ev_named_timer)          "GoToReception,      same_state"
''

Событие ev_setup_indication произойдет при поступлении звонка, и будет запущена процедура Play_Welcome , в которой описан старт процесса сбора нажатых цифр и старт таймера.

После окончания проигрывания музыки абоненту, начнется обратный отчет таймера, который задается параметром param(initialDigitTimeout) (который можно было задать чуть выше строкой set param(initialDigitTimeout) 15 и установить значение 15 секунд), т.к. он у нас не указан, его стандартное значение 10 секунд, после чего скрипт получит событие ev_collectdigits_done , при наступлении которого, как мы описали в FSM переходе, будет выполнена функция CheckDestanation .

Таймер, запущенный в Play_Welcome командой:

''#Тип таймера named_timer, длительность, взята из переменной numbers(waiting_time), имя таймера t1
timer start named_timer $numbers(waiting_time) t1
''

После своего окончания сгенерирует событие ev_named_timer , которое будет обработано следующим FSM переходом:

''set ivr_fsm(CALLCOMES,ev_named_timer)   "GoToReception,      same_state"
''

и вызовется процедура GoToReception .

''proc CheckDestanation { } {
    puts "\n\n IVR - proc CheckDestanation start \n\n"
    global playng_files
    global numbers
    global digit
    #Останавливаем проигрыш медиа
    media stop leg_incoming

    #Определяем значение переменным
    set status [infotag get evt_status]
    set digit [infotag get evt_dcdigits]

    #Сравниваем полученные цифры и статусы
    #Если введенная цифра соответствует той, что задана в $numbers(fast_reception),
    #изменяем  digit  на номер ресепшн и передаем $digit в функцию CheckCallersAndConnect,
    # предварительно изменив статус на CALLCONNECTED,
    # благодаря которому, при наступлении события ev_setup_done (подключение к номеру секретаря)
    # будет отработана процедура CallIsConnect
    if {$digit == $numbers(fast_reception)} {
   puts "\n\n IVR - proc CheckDestanation digit = $digit\nGoing to next reception \n\n"
        fsm setstate CALLCONNECTED
        set digit $numbers(reception)
        #Передаем $digit в функцию CheckCallersAndConnect
        CheckCallersAndConnect $digit
    #Если введенная цифра соответствует той, что задана в $numbers(fast_ckp), подключаем на ЦКП
    #через CheckCallersAndConnect
    } elseif {$digit == $numbers(fast_ckp)} {
        puts "\n\n IVR - proc CheckDestanation digit = $digit\nGoing to next CKP \n\n"
        fsm setstate CALLCONNECTED
        set digit $numbers(ckp)
        #Передаем $digit в функцию CheckCallersAndConnect
        CheckCallersAndConnect $digit
    #Если введенная цифра соответствует той, что задана в $numbers(fast_fax), подключаем на факс
    #через CheckCallersAndConnect
    } elseif {$digit == $numbers(fast_fax)} {
        puts "\n\n IVR - proc CheckDestanation digit = $digit\nGoing to next fax \n\n"
        fsm setstate CALLCONNECTED
        set digit $numbers(fax)
        #Передаем $digit в функцию CheckCallersAndConnect
        CheckCallersAndConnect $digit
    #Если статус = cd_004 (введены корректные цифры номера) - подключаем к нужному номеру
    #через CheckCallersAndConnect
    } elseif {$status == "cd_004"} {
        puts "\n\n IVR - proc CheckDestanation status = $status digit = $digit \n\n"
        fsm setstate CALLCONNECTED
        #Передаем $digit в функцию CheckCallersAndConnect
        CheckCallersAndConnect $digit
    #Если статус = cd_005 (совпадение с dial plan) - подключаем к нужному номеру
    #через CheckCallersAndConnect
    } elseif {$status == "cd_005"} {
        puts "\n\n IVR - proc CheckDestanation status = $status digit = $digit \n\n"
        fsm setstate CALLCONNECTED
        #Передаем $digit в функцию CheckCallersAndConnect
        CheckCallersAndConnect $digit
    #Если статус = cd_006 (набран не существующий номер) - играем в линию $playng_files(noexist)
    # и изменяем статус на TORECEPTION, при действии которого и наступлении события
    #ev_media_done (конец проигрывания звукового файла) вызовется процедура Play_TakeNumber
    } elseif {$status == "cd_006"} {
        puts "\n\n IVR - proc CheckDestanation status = $status digit = $digit \n\n"
        fsm setstate TRYAGAIN
        media play leg_incoming $playng_files(noexist)
    #Во всех остальных случаях изменяем статус на TORECEPTION, при действии которого
    #и наступлении события ev_media_done (конец проигрывания звукового файла) вызовется
    #процедура GoToReception
    } else {
        #Проигрываем "Ваш вызов переадресовывается на секретаря"
        fsm setstate TORECEPTION
        media play leg_incoming $playng_files(toreception)
        puts "\n\n IVR - proc CheckDestanation status = $status \n\n"
    }
}
''


</file>

В процедуре CheckDestanation, которая будет вызвана после набора номера звонящим абонентом, мы сравниваем полученные при наборе цифры с настройками и переводим скрипт в соответствующее состояние командой //**fsm setstate**// .\
\
Все состояния, попавшие в функцию, попадают под следующие FSM переходы:

<code>''set ivr_fsm(CALLCONNECTED,ev_setup_done)   "CallIsConnect,  same_state"
set ivr_fsm(TORECEPTION,ev_media_done)   "GoToReception,  same_state"
set ivr_fsm(TRYAGAIN,ev_media_done)           "Play_TakeNumber,  TRYING"
set ivr_fsm(TRYING,ev_collectdigits_done)  "CheckDestanation,  same_state"
set ivr_fsm(TRYING,ev_named_timer)   "GoToReception,  same_state"
''

Давайте по порядку.\

1) Итак, изначально функция CheckDestanation вызывается после окончания процедуры сбора нажатия клавиш.
2) Информацию о нажатых клавишах мы записываем в переменную digit с помощью команды set digit [infotag get evt_dcdigits]
Аналогично записываем состояние линии в переменную status
3) Затем сравниваем полученные результаты с заданными переменными и изменяем состояние скрипта при совпадении:

''if {$digit == $numbers(fast_reception)} {
 puts "\n\n IVR - proc CheckDestanation digit = $digit\nGoing to next reception \n\n"
 fsm setstate CALLCONNECTED
 leg setup $numbers(reception) callinfo leg_incoming
}
''

''proc CheckCallersAndConnect {digit} {
 puts "\n\n IVR - proc CheckCallersAndConnect start \n\n"

 set callernumber [infotag get leg_ani]

 switch $callernumber {
  "9120000000" {set callInfo(displayInfo) "Director(mobile)"}
  "9130000000" {set callInfo(displayInfo) "Buhgalter(mobile)"}
  default {}
 }
 puts "\n\n IVR - caller is $callernumber connect with $digit\n\n"

 leg setup $digit callInfo leg_incoming
}
''

Данная функция позволяет изменить поле, отвечающее за написание имени звонящего. Просто ради эстетики, будет приятнее, когда на телефоне будет написан не только номер но и ID абонента. После изменения ID абонента происходит подключение линии к требуемому номеру.

''proc CallIsConnect { } {
    puts "\n\n IVR - proc CallIsConnect start \n\n"
    global playng_files

    #Определяем чему равен status
    set status [infotag get evt_status]

    #Если статус равен ls_000 (успешное соединение с требуемым номером), изменяем состояние на CALLACTIVE
    if {$status == "ls_000"} {
    fsm setstate CALLACTIVE

    #Если статус равен ls_002 (никто не ответил на звонок), запускаем процедуру запроса номера
    } elseif {$status == "ls_002"} {
   fsm setstate TRYAGAIN
        media play leg_incoming $playng_files(noanswer)
    #Если статус - неверный номер, запускаем процедуру запроса номера
    } elseif {$status == "ls_004" || $status == "ls_005" || $status == "ls_006"} {
        fsm setstate TRYAGAIN
        media play leg_incoming $playng_files(noexist)
    #Если статус равен ls_007 (абонент занят), запускаем процедуру запроса номера
    } elseif {$status == "ls_007"} {
        fsm setstate TRYAGAIN
        media play leg_incoming $playng_files(busy)
    }
}
''


</file>

Данная функция вызывается следующим FSM переходом:
<code>


''set ivr_fsm(CALLCONNECTED,ev_setup_done)   "CallIsConnect,  same_state"
''

Событие ev_setup_done наступает после подключения звонящего к требуемой линии.

''proc Play_TakeNumber { } {
    puts "\n\n IVR - proc Play_TakeNumber start \n\n"
    global playng_files
    global numbers
    global param
    global pattern

    #Проверяем какой раз абонент пытается набрать номер
    if {$numbers(cur_try) <= $numbers(max_try)} {
    puts "\n\n IVR - proc Play_TakeNumber current try is: $numbers(cur_try) \n\n"
    incr numbers(cur_try)

    #Запускаем процедуру сбора нажатых цифр со стороны звонящего
    leg collectdigits leg_incoming param pattern

    #Запускаем проигрыш файлов
    media play leg_incoming $playng_files(takenumber)

    #Запускаем таймер, по истечении которого произойдет событие ev_named_timer
    timer start named_timer $numbers(waiting_time) t1

    #Если попытка больше чем $numbers(max_try) - разъединяем
    } else {
   fsm setstate CALLDISCONNECTED
        media play leg_incoming $playng_files(callafter)
    }
}
''


</file>

Данная функция проверяет какой раз ошибается звонящий, и если значение меньше чем **//$numbers(max_try)//**  просит ввести номер еще раз.\
\
Данная функция вызывается следующими **FSM**:
<code>''set ivr_fsm(TRYAGAIN,ev_media_done)   "Play_TakeNumber,     TRYING"
set ivr_fsm(TRYING,ev_collectdigits_done)            "CheckDestanation,     same_state"
set ivr_fsm(TRYING,ev_named_timer)                "GoToReception,             same_state"
''

''proc AbortCall { } {
 puts "\n\n IVR - proc AbortCall start \n\n"
 call close
}
''

Вызывается следующими FSM:

''set ivr_fsm(any_state,ev_disconnected)   "AbortCall,   same_state"
set ivr_fsm(CALLACTIVE,ev_disconnected)     "AbortCall,  CALLDISCONNECTED"
set ivr_fsm(CALLDISCONNECTED,ev_disconnected)   "AbortCall,  same_state"
set ivr_fsm(CALLDISCONNECTED,ev_media_done)    "AbortCall,  same_state"
set ivr_fsm(CALLDISCONNECTED,ev_disconnect_done)  "AbortCall,  same_state"
''

Подключение на маршрутизаторе Cisco проходит в 2 этапа.
Первое, что нужно сделать это определить application:

''application
 service voicemunu flash:voicemenu.tcl
  param allowed_pattern 5[5-7]..
  param fastto_reception 1
  param reception_number 5501
  param fastto_ckp 2
  param ckp_number 5604
  param fastto_fax 3
  param fax_number 5555
  param waiting_time 20
  param max_try 3
  param file_noanswer flash:en_noanswer.au
  param file_after flash:en_after.au
  param file_noexist flash:en_noexist.au
  param file_busy flash:en_busy.au
  param file_welcome flash:en_welcome.au
  param file_onhold flash:music-on-hold.au
  param file_noworking flash:en_takenumber2.au
  param file_takenumber flash:en_takenumber2.au
''


</file>

**Второе**, подключить //**service**//  к **//dial-peer//** :
<code>''dial-peer voice 200 pots
 description -= ISP Beeline - INcoming call to number 3300100 =-
 service voicemunu
 incoming called-number 3300100
''

Таким образом, при поступлении звонка на номер 3300100, произойдет вызов нашего голосового меню voicemunu .

Выше были рассмотрены только основные функции скрипта, далее полный текст, имейте в виду, это практически самый простой вариант:

####################################################### # Cisco IVR TCL script by Konovalov D.A. v.2 ####################################################### # # Для дебага скрипта # debug voip application script # Более полный дебага (не рекомендуется, может привести к перегрузке) # debug voip ivr # # Скрипт должен быть запущен со следующими параметрами: # param allowed_pattern 5[5-7].. # param fastto_reception 1 # param reception_number 5501 # param fastto_ckp 2 # param ckp_number 5604 # param fastto_fax 3 # param fax_number 5555 # param waiting_time 20 # param max_try 3 # param file_welcome flash:en_welcome.au # param file_takenumber flash:en_takenumber.au # param file_after flash:en_after.au # param file_busy flash:en_busy.au # param file_noexist flash:en_noexist.au # param file_noanswer flash:en_noanswer.au # param file_onhold flash:music-on-hold.au # param file_noworking flash:music-on-hold.au #Процедура инициализации скрипта proc init { } { puts «\n proc Init start» global param } #Процедура с переменными proc init_perCallVars { } { global pattern global numbers global playng_files #####Допустимая нумерация #Если в параметрах скрипта не указана допустимая нумерация, будет установлено значение …. - 4 любых цифры if {[infotag get cfg_avpair_exists allowed_pattern]} { set pattern(1) [string trim [infotag get cfg_avpair allowed_pattern]] puts «\n\n IVR - Allowed pattern set as: $pattern(1) \n\n» } else { set pattern(1) …. puts «\n\n IVR - Allowed pattern set as DEFAULT: $pattern(1) \n\n» } #####Номера #Секретарь. Если в параметрах скрипта не указан номер секретаря, номер будет установлен в 0000 if {[infotag get cfg_avpair_exists reception_number]} { set numbers(reception) [string trim [infotag get cfg_avpair reception_number]] puts «\n\n IVR - reception number set as: $numbers(reception) \n\n» } else { set numbers(reception) 0000 puts «\n\n IVR - reception number set as DEFAULT: $numbers(reception) \n\n» } #ЦКП if {[infotag get cfg_avpair_exists ckp_number]} { set numbers(ckp) [string trim [infotag get cfg_avpair ckp_number]] puts «\n\n IVR - ckp number set as: $numbers(ckp) \n\n» } else { set numbers(ckp) 0000 puts «\n\n IVR - ckp number set as DEFAULT: $numbers(ckp) \n\n» } #Факс if {[infotag get cfg_avpair_exists fax_number]} { set numbers(fax) [string trim [infotag get cfg_avpair fax_number]] puts «\n\n IVR - fax number set as: $numbers(fax) \n\n» } else { set numbers(fax) 0000 puts «\n\n IVR - fax number set as DEFAULT: $numbers(fax) \n\n» } #Быстрый перевод на Ресепшн if {[infotag get cfg_avpair_exists fastto_reception]} { set numbers(fast_reception) [string trim [infotag get cfg_avpair fastto_reception]] puts «\n\n IVR - fast to reception set as: $numbers(fast_reception) \n\n» } else { set numbers(fast_reception) 1 puts «\n\n IVR - fast to reception set as DEFAULT: $numbers(fast_reception) \n\n» } #Быстрый перевод на ЦКП if {[infotag get cfg_avpair_exists fastto_ckp]} { set numbers(fast_ckp) [string trim [infotag get cfg_avpair fastto_ckp]] puts «\n\n IVR - fast to ckp set as: $numbers(fast_ckp) \n\n» } else { set numbers(fast_ckp) 2 puts «\n\n IVR - fast to ckp set as DEFAULT: $numbers(fast_ckp) \n\n» } #Быстрый перевод на факс if {[infotag get cfg_avpair_exists fastto_fax]} { set numbers(fast_fax) [string trim [infotag get cfg_avpair fastto_fax]] puts «\n\n IVR - fast to fax set as: $numbers(fast_fax) \n\n» } else { set numbers(fast_fax) 3 puts «\n\n IVR - fast to fax set as DEFAULT: $numbers(fast_fax) \n\n» } #Время ожидания введения номера (должно быть больше времени проигрыша всех файлов приветствия) if {[infotag get cfg_avpair_exists waiting_time]} { set numbers(waiting_time) [string trim [infotag get cfg_avpair waiting_time]] puts «\n\n IVR - wait number set as: $numbers(waiting_time) \n\n» } else { set numbers(waiting_time) 10 puts «\n\n IVR - wait number set as DEFAULT: $numbers(waiting_time) \n\n» } #Количество попыток ввести правильный номер, прежде чем звонок будет переведен на секретаря if {[infotag get cfg_avpair_exists max_try]} { set numbers(max_try) [string trim [infotag get cfg_avpair max_try]] puts «\n\n IVR - max try set as: $numbers(max_try) \n\n» set numbers(cur_try) 0 } else { set numbers(max_try) 5 puts «\n\n IVR - max try set as DEFAULT: $numbers(max_try) \n\n» set numbers(cur_try) 0 } #####Музыкальные файлы, которые будут проигрываться #Файл приветствия if {[infotag get cfg_avpair_exists file_welcome]} { set playng_files(welcome) [string trim [infotag get cfg_avpair file_welcome]] puts «\n\n IVR - file_welcome set as: $playng_files(welcome) \n\n» } else { #Если файл не найден, он будет заменен на тишину в 1мс set playng_files(welcome) %s1 puts «\n\n IVR - file_welcome set as DEFAULT: $playng_files(welcome) \n\n» } #Файл запроса ввести требуемый номер if {[infotag get cfg_avpair_exists file_takenumber]} { set playng_files(takenumber) [string trim [infotag get cfg_avpair file_takenumber]] puts «\n\n IVR - file_takenumber set as: $playng_files(takenumber) \n\n» } else { #Если файл не найден, он будет заменен на тишину в 1мс set playng_files(takenumber) %s1 puts «\n\n IVR - file_takenumber set as DEFAULT: $playng_files(takenumber) \n\n» } #Файл «Пожалуйста перезвоните позднее» if {[infotag get cfg_avpair_exists file_after]} { set playng_files(callafter) [string trim [infotag get cfg_avpair file_after]] puts «\n\n IVR - file_after set as: $playng_files(callafter) \n\n» } else { #Если файл не найден, он будет заменен на тишину в 1мс set playng_files(callafter) %s1 puts «\n\n IVR - file_after set as DEFAULT: $playng_files(callafter) \n\n» } #Файл «Номер занят» if {[infotag get cfg_avpair_exists file_busy]} { set playng_files(busy) [string trim [infotag get cfg_avpair file_busy]] puts «\n\n IVR - file_busy set as: $playng_files(busy) \n\n» } else { #Если файл не найден, он будет заменен на тишину в 1мс set playng_files(busy) %s1 puts «\n\n IVR - file_busy set as DEFAULT: $playng_files(busy) \n\n» } #Файл «Номер не существует» if {[infotag get cfg_avpair_exists file_noexist]} { set playng_files(noexist) [string trim [infotag get cfg_avpair file_noexist]] puts «\n\n IVR - file_noexist set as: $playng_files(noexist) \n\n» } else { #Если файл не найден, он будет заменен на тишину в 1мс set playng_files(noexist) %s1 puts «\n\n IVR - file_noexist set as DEFAULT: $playng_files(noexist) \n\n» } #Файл «Соеденяю с секретарем/оператором» if {[infotag get cfg_avpair_exists file_toreception]} { set playng_files(toreception) [string trim [infotag get cfg_avpair file_toreception]] puts «\n\n IVR - file_toreception set as: $playng_files(toreception) \n\n» } else { #Если файл не найден, он будет заменен на тишину в 1мс set playng_files(toreception) %s1 puts «\n\n IVR - file_toreception set as DEFAULT: $playng_files(toreception) \n\n» } #Файл «Номер не отвечает, перезвоните позднее» if {[infotag get cfg_avpair_exists file_noanswer]} { set playng_files(noanswer) [string trim [infotag get cfg_avpair file_noanswer]] puts «\n\n IVR - file_noanswer set as: $playng_files(noanswer) \n\n» } else { #Если файл не найден, он будет заменен на тишину в 1мс set playng_files(noanswer) %s1 puts «\n\n IVR - file_noanswer set as DEFAULT: $playng_files(noanswer) \n\n» } #Файл музыки, которая будет проигрываться при ожидании if {[infotag get cfg_avpair_exists file_onhold]} { set playng_files(onhold) [string trim [infotag get cfg_avpair file_onhold]] puts «\n\n IVR - file_onhold set as: $playng_files(onhold) \n\n» } else { #Если файл не найден, он будет заменен на тишину в 1мс set playng_files(onhold) %s1 puts «\n\n IVR - file_onhold set as DEFAULT: $playng_files(onhold) \n\n» } #Файл музыки, которая будет проигрываться В нерабочее время if {[infotag get cfg_avpair_exists file_noworking]} { set playng_files(noworking) [string trim [infotag get cfg_avpair file_noworking]] puts «\n\n IVR - file_noworking set as: $playng_files(noworking) \n\n» } else { #Если файл не найден, он будет заменен на тишину в 1мс set playng_files(noworking) %s1 puts «\n\n IVR - file_noworking set as DEFAULT: $playng_files(noworking) \n\n» } } proc GetDate { } { global workingtime #Час set houris [clock format [clock seconds] -format %H] #День недели set dayis [clock format [clock seconds] -format %A] #Проверяем рабочее время if {$houris > 17 || $houris < 8 || $dayis==«Sunday» || $dayis==«Saturday»} { set workingtime 0 } else { set workingtime 1 } } #Процедура проигрыша приветствия proc Play_Welcome { } { puts «\n\n IVR - proc Play_Welcome start \n\n» global playng_files global param global pattern global numbers global workingtime #Вызываем процедуру, где описаны все переменные init_perCallVars #Получаем время GetDate #В зависимости рабочее сейчас время или нет, устанавливаем приветствие if {$workingtime} { set after_welcome $playng_files(takenumber) } else { set after_welcome $playng_files(noworking) } #Устанавливаем параметры подключения входящего вызова set param(interruptPrompt) true set param(abortKey) * set param(terminationKey) # #Подключаем входящий вызов leg setupack leg_incoming leg proceeding leg_incoming leg connect leg_incoming #Запускаем процедуру сбора нажатых цифр со стороны звонящего leg collectdigits leg_incoming param pattern #Запускаем проигрыш файлов звонящему абоненту, после их окончания начнет #действовать таймер param(interDigitTimeout), по истечении которого #будет событие ev_collectdigits_done media play leg_incoming %s500 $playng_files(welcome) $after_welcome $playng_files(onhold) #Запускаем таймер, по истечении которого произойдет событие ev_named_timer timer start named_timer $numbers(waiting_time) t1 } #Процедура запроса ввести номер proc Play_TakeNumber { } { puts «\n\n IVR - proc Play_TakeNumber start \n\n» global playng_files global numbers global param global pattern #Проверяем какой раз абонент пытается набрать номер if {$numbers(cur_try) ⇐ $numbers(max_try)} { puts «\n\n IVR - proc Play_TakeNumber current try is: $numbers(cur_try) \n\n» incr numbers(cur_try) #Запускаем процедуру сбора нажатых цифр со стороны звонящего leg collectdigits leg_incoming param pattern #Запускаем проигрыш файлов media play leg_incoming $playng_files(takenumber) #Запускаем таймер, по истечении которого произойдет событие ev_named_timer timer start named_timer $numbers(waiting_time) t1 #Если попытка больше чем $numbers(max_try) - разъединяем } else { fsm setstate CALLDISCONNECTED media play leg_incoming $playng_files(callafter) } } #Процедура перевода звонка на секретаря proc GoToReception { } { puts «\n\n IVR - proc GoToReception start \n\n» global numbers #Останавливаем проигрыш медиа media stop leg_incoming #Меняем состояние fsm setstate CALLCONNECTED set digit $numbers(reception) #Передаем $digit в функцию CheckCallersAndConnect CheckCallersAndConnect $digit } #Здесь проверяем введенные или не введенные звонящим цифры proc CheckDestanation { } { puts «\n\n IVR - proc CheckDestanation start \n\n» global playng_files global numbers global digit #Останавливаем проигрыш медиа media stop leg_incoming #Определяем значение переменным set status [infotag get evt_status] set digit [infotag get evt_dcdigits] #Сравниваем полученные цифры и статусы #Если введенная цифра соответствует той, что задана в $numbers(fast_reception), #изменяем digit на номер ресепшн и передаем $digit в функцию CheckCallersAndConnect, # предварительно изменив статус на CALLCONNECTED, # благодаря которому, при наступлении события ev_setup_done (подключение к номеру секретаря) # будет отработана процедура CallIsConnect if {$digit == $numbers(fast_reception)} { puts «\n\n IVR - proc CheckDestanation digit = $digit\nGoing to next reception \n\n» fsm setstate CALLCONNECTED set digit $numbers(reception) #Передаем $digit в функцию CheckCallersAndConnect CheckCallersAndConnect $digit #Если введенная цифра соответствует той, что задана в $numbers(fast_ckp), подключаем на ЦКП #через CheckCallersAndConnect } elseif {$digit == $numbers(fast_ckp)} { puts «\n\n IVR - proc CheckDestanation digit = $digit\nGoing to next CKP \n\n» fsm setstate CALLCONNECTED set digit $numbers(ckp) #Передаем $digit в функцию CheckCallersAndConnect CheckCallersAndConnect $digit #Если введенная цифра соответствует той, что задана в $numbers(fast_fax), подключаем на факс #через CheckCallersAndConnect } elseif {$digit == $numbers(fast_fax)} { puts «\n\n IVR - proc CheckDestanation digit = $digit\nGoing to next fax \n\n» fsm setstate CALLCONNECTED set digit $numbers(fax) #Передаем $digit в функцию CheckCallersAndConnect CheckCallersAndConnect $digit #Если статус = cd_004 (введены корректные цифры номера) - подключаем к нужному номеру #через CheckCallersAndConnect } elseif {$status == «cd_004»} { puts «\n\n IVR - proc CheckDestanation status = $status digit = $digit \n\n» fsm setstate CALLCONNECTED #Передаем $digit в функцию CheckCallersAndConnect CheckCallersAndConnect $digit #Если статус = cd_005 (совпадение с dial plan) - подключаем к нужному номеру #через CheckCallersAndConnect } elseif {$status == «cd_005»} { puts «\n\n IVR - proc CheckDestanation status = $status digit = $digit \n\n» fsm setstate CALLCONNECTED #Передаем $digit в функцию CheckCallersAndConnect CheckCallersAndConnect $digit #Если статус = cd_006 (набран не существующий номер) - играем в линию $playng_files(noexist) #и изменяем статус на TRYAGAIN, при действии которого и наступлении события ev_media_done #(конец проигрывания звукового файла) вызовется процедура Play_TakeNumber } elseif {$status == «cd_006»} { puts «\n\n IVR - proc CheckDestanation status = $status digit = $digit \n\n» fsm setstate TRYAGAIN media play leg_incoming $playng_files(noexist) #Во всех остальных случаях изменяем статус на TORECEPTION, при действии которого и #наступлении события ev_media_done (конец проигрывания звукового файла) вызовется процедура GoToReception } else { #Проигрываем «Ваш вызов переадресовывается на секретаря» fsm setstate TORECEPTION media play leg_incoming $playng_files(toreception) puts «\n\n IVR - proc CheckDestanation status = $status \n\n» } } #Проверяем звонящего, если совпадает, будем менять отображаемое имя proc CheckCallersAndConnect {digit} { puts «\n\n IVR - proc CheckCallersAndConnect start \n\n» set callernumber [infotag get leg_ani] switch $callernumber { «9120000000» {set callInfo(displayInfo) «Director(mobile)»} «9130000000» {set callInfo(displayInfo) «Buhgalter(mobile)»} default {} } leg setup $digit callInfo leg_incoming } #Процедура проверки состоянии линии после подключения звонящего к требуемому номеру proc CallIsConnect { } { puts «\n\n IVR - proc CallIsConnect start \n\n» global playng_files #Определяем чему равен status set status [infotag get evt_status] #Если статус равен ls_000 (успешное соединение с требуемым номером), изменяем состояние на CALLACTIVE if {$status == «ls_000»} { fsm setstate CALLACTIVE #Если статус равен ls_002 (никто не ответил на звонок), запускаем процедуру запроса номера } elseif {$status == «ls_002»} { fsm setstate TRYAGAIN media play leg_incoming $playng_files(noanswer) #Если статус - неверный номер, запускаем процедуру запроса номера } elseif {$status == «ls_004» || $status == «ls_005» || $status == «ls_006»} { fsm setstate TRYAGAIN media play leg_incoming $playng_files(noexist) #Если статус равен ls_007 (абонент занят), запускаем процедуру запроса номера } elseif {$status == «ls_007»} { fsm setstate TRYAGAIN media play leg_incoming $playng_files(busy) } } #Процедура прерывания звонка proc AbortCall { } { puts «\n\n IVR - proc AbortCall start \n\n» call close } #Исполнение скрипта init #init_perCallVars #Это набор состояний и возникающих при данных состояних событий #По сути именно это и описывает работу скрипта #Если в любом состоянии возникнет событие отключения ev_disconnected, вызвать AbortCall set ivr_fsm(any_state,ev_disconnected) «AbortCall, same_state» #Если в состоянии CALLCOMES возникнет событие ev_setup_indication (входящий вызов) #запускается Play_Welcome, и состояние меняется на same_state (т.е. остается прежним) set ivr_fsm(CALLCOMES,ev_setup_indication) «Play_Welcome, same_state» #Если в состоянии CALLCOMES возникнет событие ev_collectdigits_done (закончен ввод цифр) #запускается CheckDestanation, и состояние остается прежним set ivr_fsm(CALLCOMES,ev_collectdigits_done) «CheckDestanation, same_state» #Если в состоянии CALLCOMES возникнет событие ev_named_timer (закончился таймер ожидания ввода цифр) #запускается GoToReception, и состояние остается прежним set ivr_fsm(CALLCOMES,ev_named_timer) «GoToReception, same_state» #Если в состоянии TORECEPTION возникнет событие ev_media_done (закончился проигрыш файла) #запускается GoToReception, и состояние остается прежним set ivr_fsm(TORECEPTION,ev_media_done) «GoToReception, same_state» #Данные настройки описывают поведение скрипта при ошибке в номере set ivr_fsm(TRYAGAIN,ev_media_done) «Play_TakeNumber, TRYING» set ivr_fsm(TRYING,ev_collectdigits_done) «CheckDestanation, same_state» set ivr_fsm(TRYING,ev_named_timer) «GoToReception, same_state» #Если в состоянии CALLCONNECTED возникнет событие ev_setup_done #(установлено/неустановлено соединение с требуемым номером) запускается CallIsConnect, и состояние остается прежним set ivr_fsm(CALLCONNECTED,ev_setup_done) «CallIsConnect, same_state» #Эти события отрабатывают отключение линии set ivr_fsm(CALLACTIVE,ev_disconnected) «AbortCall, CALLDISCONNECTED» set ivr_fsm(CALLDISCONNECTED,ev_disconnected) «AbortCall, same_state» set ivr_fsm(CALLDISCONNECTED,ev_media_done) «AbortCall, same_state» set ivr_fsm(CALLDISCONNECTED,ev_disconnect_done) «AbortCall, same_state» fsm define ivr_fsm CALLCOMES ''Источник https://habr.com/ru/articles/265453/