asterisk.ru

Код: Выделить всё

#!/usr/bin/perl

use Asterisk::AGI;
use strict;

my $AGI = new Asterisk::AGI;
my %input = $AGI->ReadParse();

$AGI->answer();

$AGI->set_music('on');

my $result = '';
my $timeout = 600;
my $start_time = time;

while ( 1 ) {
        my $ch = $AGI->wait_for_digit( $timeout * 1000 );

        if ( $ch <= 0 ) {
                last;
        } else {
                $ch = chr($ch);
                if ( $ch eq '#' ) {
                        last;
                } else {
                        $result .= $ch;
                }
        }
        $AGI->verbose( "Result: $result" );
        last if time - $start_time > $timeout;
}

$AGI->set_music('off');

$AGI->say_digits($result);