Hi All,
I’m just writing my first perl AGI script and cannot get it to do anything. I’m using Asterisk::AGI perl module.
#!/usr/bin/perl -w
use strict;
use Asterisk::AGI;
$|=1;
$AGI = new Asterisk::AGI;
my %input = $AGI->ReadParse(); #Read in the initial data
print STDERR “HEY I NEED SOME HELP”;
$AGI->answer();
$AGI->say_digits($input{callerid});
$AGI->hangup();
On the asterisk CLI i’ve got agi debug on too. So the call just sits there until timeout. No saydigits, no hangup, and to my surprise no “HEY I NEED SOME HELP\n” on the CLI!!
Even the agi-test.agi that uses this perl module doesn’t have the STDERR messages output to the CLI.
I need a little explanation with this. I’m not a perl programmer but have lots of PHP java experience. and NO! i’m not using those languages - this is how I’m going to learn perl (finally!)
