и выполнение будет передано процедуре act_PlayDisconnect, которая сообщит клиенту о завершение его звонка и переведет скрипт в состояние CALLDISCONNECT:

proc act_PlayDisconnect { } {

    media play leg_incoming _disconnected.au

    fsm setstate CALLDISCONNECT;

    return;

    }

proc act_CallWarnDestroy { } {

    global WarnTime;

    media play leg_incoming _you_have.au %t$WarnTime;

    return;

    }

Процедуре act_CallWarnDestroy управление передается согласно FSM:

set ivr_fsm(CALLWARN,ev_destroy_done) "act_CallWarnDestroy same_state";

В ее задачи входит сообщить клиенту, что до конца его разговора осталось $WarnTime секунд. Когда это сообщение будет проиграно, скрипт получит событие ev_media_done и FSM-переход:

set ivr_fsm(CALLWARN,ev_media_done) "act_CallWarnMedia CALLLASTACTIVE";

позаботится о том, чтобы воcстановить канал между сторонами звонка, запустив функцию act_CallWarnMedia, и переведет звонок в состояние CALLLASTACTIVE:

proc act_CallWarnMedia { } {

    global incoming;

    global outgoing;

    connection create $incoming $outgoing;

    return;

    }

proc act_LongPound { } {

    if {[infotag get evt_digit] != "#"} {

fsm setstate same_state;

return;

 }

    set duration [infotag get evt_digit_duration];

    if {$duration < 300} {

fsm setstate same_state;

return;