Re: [Asterisk-Users] AGI.pm wait_for_digit() not working for me!!!

[Andy Powell]

Ok,

the first think to do is check the permissions on the conf-background.agi ..asterisk 
needs to be able to run it ...

The code I've listed below works fine for me:

#!/usr/bin/perl

use Asterisk::AGI;

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

$soundpath = /var/lib/asterisk/sounds/;
$timeout = 10;


while(1)
{
$input = chr($AGI-wait_for_digit($timeout));

if ($input eq *)
{
$AGI-stream_file($soundpath/banana-phone-song);
}

if ($input eq 1)
{
exit 0;
}

}




*** REPLY SEPARATOR  ***

On 11/05/2004 at 10:52 Atif wrote:

Hello everybody!!!



I really need your help guys, I am using the AGI mode in meetme
application,
and  I want that AGI should wait for an input from the client/user i.e. a
digit and then proceed, but I have used that AGI function
agi-wait_for_digit(), but no usemy agi just passes, or ignores this
function,

where AGI should stop here and wait for the input



.my extension in my dialplan.

exten = 21,1,answer

exten = 21,2,meetme(21|pb)



..and here is my AGI...

#!/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/mycall;

$dstfile=/var/spool/asterisk/outgoing/mycall;

open(MYCALL,$srcfile) || die Cant't open file :$srcfile
$!\n;

print MYCALL Channel:IAX2/bali:[EMAIL PROTECTED]/[EMAIL PROTECTED];

print MYCALL MaxRetries:2\n;

print MYCALL RetryTime:60\n;

print MYCALL WaitTime:30\n;

print MYCALL Context:atif\n;

print MYCALL Extension:22\n;

print MYCALL Priority:1\n;

close MYCALL;

#   cp($srcfile,$dstfile);

print STDERR dialing complete...\n;

}


___
Asterisk-Users mailing list
[EMAIL PROTECTED]
http://lists.digium.com/mailman/listinfo/asterisk-users
To UNSUBSCRIBE or update options visit:
   http://lists.digium.com/mailman/listinfo/asterisk-users


___
Asterisk-Users mailing list
[EMAIL PROTECTED]
http://lists.digium.com/mailman/listinfo/asterisk-users
To UNSUBSCRIBE or update options visit:
   http://lists.digium.com/mailman/listinfo/asterisk-users

RE: [Asterisk-Users] AGI.pm?

[John Laur]

 I've seen references to this module in the mailing list archives, but
it
 isn't in the 0.4.0 tarball, nor is it in CVS. I can roll my own and
was
 planning to do so anyhow, but that doesn't seem to make a lot of sense
 if it already exists. Am I not looking somewhere I should be looking?
Most
 of the Google hits just point to the mailing list.

The asterisk-perl tools written by James Golovich are at:

http://asterisk.gnuinter.net/

The following modules are available:

Asterisk::Outgoing - manipulate spool files for pbx_spool
Asterisk::Manager  - talk to the manager interface
Asterisk::AGI  - helpful routines to simplify writing AGI's

For those of you using it, but not checking the site regularly, version
0.07 was released recently on 09-Jul to fix bugs, add a new AGI command,
and add MD5 authentication to the Asterisk::Manager.

Also note that I'm just posting this for the benefit of the list
readers. I don't have anything to do with the software itself other than
that I am a happy user. Asterisk::Manager rocks!

John



___
Asterisk-Users mailing list
[EMAIL PROTECTED]
http://lists.digium.com/mailman/listinfo/asterisk-users