return;

}

"cd_002" {

set DestPromptFlag 0;

act_GetDestination;

return;

}

"cd_004" {

set destination [infotag get evt_dcdigits];

puts " ************dest_number = $destination";

aaa authorize $account $pin "" $destination leg_incoming;

return;

}

default {

incr NumDestPrompt;

set DestPromptFlag 2;

act_GetDestination;

return;

}

}

    return;

    }

Процедура act_GotDestination будет выполняться в соответствии с FSM-переходом:

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

Она проверяет статус завершения события ev_collect digits_done. В случае неустраивающего нас статуса вызывает функцию act_GetDestination, установив предварительно переменную DestPromptFlag в значение, которое укажет функции act_GetDestination, какой именно звуковой файл следует проиграть, и, как всегда, следует проверка, не превышен ли счетчик максимально допустимых попыток ввести информацию. При устраивающем нас номере телефона, введенном пользователем (статус «cd_004» – совпадение с планом набора) с помощью команды:

aaa authorize $account $pin "" $destination leg_incoming;

RADIUS-серверу будет отправлен запрос на авторизацию звонка. По завершении авторизации скрипт получит событие ev_authorize_done, которое согласно определенному нами FSM-переходу:

set ivr_fsm(DESTSELECTION,ev_authorize_done) "act_CallAuthorize same_state";

обработает процедура act_CallAuthorize:

proc act_CallAuthorize { } {

    global NumDestPrompt;

    global DestPromptFlag;

    global WarnTime;

    global NoPlayWarn;

    global NoTimeLimit;

    global creditTime;

    global retryCnt;