将变量从Asterisk Dialplan传递到AGI perl脚本

Question

我正在尝试使用AGI将一个变量从Asterisk Dialplan传递给一个perl脚本。我现在对此感到非常困惑，不知道它到底是如何工作的。现在在我的拨号方案中，我有这个：

exten=>1122,1,Answer
exten=>1122,n,Read(digit)
exten=>1122,n,agi(/home/steve/Desktop/testperlping.pl,${digit})
exten=>1122,n,Hangup()

我希望用户拨打分机1122，然后输入1-10之间的号码，并使用AGI将他们输入的号码传递给perl。

我的perl脚本如下所示：

#!/usr/bin/perl -w
$|=1;

use Net::Ping;
use Asterisk::AGI;

$AGI = new Asterisk::AGI;

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

***I think I need something here***

$AGI->verbose("$numbertheytypedintophone"); #This will display the entered number back to the CLI.

任何帮助都将不胜感激。

Answer 1

我使用Asterisk：：FastAGI(推荐用于perl集成)，代码如下：

my $dst = $self->param('dst');

对于Asterisk::AGI，它是(我刚刚阅读了AGI.pm源代码)：

my $digits=$input{'arg_1'};

我强烈建议你阅读模块的源代码，如果你有任何问题，将会更快。