leg collectdigits leg_incoming param; #For long pound

return;

}

"ls_007" {

set DestPromptFlag 0;

set SetupDone 0;

media play leg_incoming _dest_busy.au;

leg collectdigits leg_incoming ParamForDest;

fsm setstate DESTSELECTION;

return;

}

default {

set DestPromptFlag 0;

set SetupDone 0;

media play leg_incoming _dest_unreachable.au %s200 _enter_dest.au;

leg collectdigits leg_incoming ParamForDest;

fsm setstate DESTSELECTION;

return;

}

}

    return;

    }

Процедура act_CallSetupDone получает статус завершения процесса установки соединения и при удачном соединении (статус «ls_000»), если не установлена переменная NoTimeLimit, сигнализирующая о неограниченном времени звонка, переводит звонок в состояние CALLACTIVE или CALLLASTACTIVE, в зависимости от оставшегося времени, и с помощью команды timer start «заводит» таймер, при срабатывании которого скрипт получит сообщение ev_leg_timer, который будет обработан FSM-переходами:

set ivr_fsm(CALLACTIVE,ev_leg_timer) "act_ActiveTimer CALLWARN";

или

set ivr_fsm(CALLLASTACTIVE,ev_leg_timer) "act_LastActiveTimer same_state";

Время таймера рассчитывается как разность значений переменной, полученной от RADIUS-сервера h323-credit-time, и глобальной переменной WarnTime, проинициализированной в функции init.

Также мы опять вводим приятную возможность для клиента – прервать разговор в любой момент путем длительного (более 300ms) нажатия и удерживания клавиши с изображением решетки. В этот момент скрипт получит событие ev_digit_end, которое обработает FSM-переход:

set ivr_fsm(CALLACTIVE,ev_digit_end) "act_LongPound CONNDESTROY";

При неуспешном завершении процесса установки соединения процедура act_CallSetupDone проиграет клиенту соответствующее сообщение об ошибке, предложение ввести новый номер телефона назначения и перейдет в состояние DESTSELECTION, а согласно FSM-переходу:

set ivr_fsm(DESTSELECTION,ev_collectdigits_done) "act_GotDestination same_state";

после окончания проигрывания файлов при получении события ev_collectdigits_done будет вызвана функция act_Got Destination:

proc act_PlayDestReturnCode {return_code} {

    switch $return_code {