perl - 将变量从 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'};

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