Displaying 1 result from an estimated 1 matches for "receive_char".
2004 May 10
1
AGI.pm wait_for_digit() not working for me!!!
...usr/bin/perl -w
#use strict;
$aginame="conf-background.agi";
use File::Copy cp;
use Asterisk::AGI;
$AGI = new Asterisk::AGI;
my %input = $AGI->ReadParse();
$char=0;
#while(1)
{
#$AGI->exec('WaitExten','25000');
#$char = $AGI->receive_char('600');
$char=chr($AGI->wait_for_digit('600'));
print STDERR "input form rec char : $char\n";
if($char eq "*")
{
print STDERR "Dialing your number\n";
$srcfile="/tmp/myc...