Displaying 1 result from an estimated 1 matches for "init_agi".
2007 Sep 14
2
AGI script fails on IAX channels (from call file).
...ata[0];
my $mymax = $mydata[1];
if ($DEBUG == 1 ) {
print DEBUGOUT "Getting data \n";
}
print "GET DATA $myfile 15000 $mymax \n";
my $result = <STDIN>;
&checkresult($result);
$result =~ /result=(-?\d+)/;
return $1;
}
########### init_agi ###############
# Use this to initialize the AGI #
# variable #
# #
####################################
sub init_agi {
while(<STDIN>) {
chomp;
last unless length($_);
if (/^agi_(\w+)\:\s+(.*)$/) {...