如何使用Perl在AGI中转发当前的Asterisk调用？

Question

我有一个基于星号的PBX，我已经能够从PBX的Web控制面板成功运行AGI脚本。

因为我从Perl调用了AGI（我还不知道）... ... 星号命令如下所示：

    print "SET CALLERID $newcid \"\"\n";

到目前为止，我不希望需要进行任何数据库查找等。我只想设置来电显示（我已经可以做） - 然后将呼叫转发给特定号码。

有人能告诉我如何使用上面显示的执行星号命令的AGI / perl样式转发当前的呼叫吗？

仅供参考：我看过一些使用以下格式的例子：

    Exten => blah blah....

但是，我不知道如何将其转换为AGI / perl格式。

Answer 1

print "EXEC DIAL \"Zap/1/5551234567\"\n";

或者，如果您使用Asterisk::AGI，

$AGI->exec("DIAL", "Zap/1/5551234567");