Asterisk AGI（Perl 脚本） - 有时脚本会忽略所有键

Question

我是 Asterisk (VoIP) 的新手，对 UNIX/Perl 还是比较陌生。我是从一位离开公司的同事那里接手的，所以我一开始并没有设置，我只需要进行一些更改。

我遇到了一个问题，我使用 get_data() 来获取用户的键盘输入，但是键被忽略并且 get_data() 函数只是超时。我一直试图缩小它发生的确切时间，但每次我认为我已经将它缩小到“它只在我......时发生”时，我再试一次并且它有效。大约 75% 的时间都会出现这个问题，由于我缺乏使用 Asterisk 的经验，我不知道是什么原因造成的。

下面是我测试并重现问题的代码的摘录。在$demoFlag = $AGI->get_data("demoFlag", 10000, 1); 流式传输“thankyouforcalling”文件后，就会发现该问题。有谁知道可能导致这种情况的原因是什么？谢谢！

basic.pl:

#!/usr/bin/perl
use Asterisk::AGI;
use LWP::Simple;
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;

my $AGI = new Asterisk::AGI;
my %input = $AGI->ReadParse();
my $loop, $env, $demoFlag, $user_id, $password, $type, $mac;
@types = ("", "u", "s");
@environments = ("prod", "test");

($seconds, $minutes, $hours, $day, $month, $year) = localtime();
$year += 1900;
$month += 1;
$date = sprintf("%04d-%02d-%02d %02d:%02d:%02d", $year, $month, $day, $hours,    $minutes, $seconds);
$AGI->verbose("Call Received from ". $input{'callerid'} ." ${date}");

$lrepeat = 1;
while ($lrepeat == 1)
{
    $env = 0;
    $AGI->stream_file('thankyouforcalling');

    do
    {
        $loop = 0;
        $demoFlag = $AGI->get_data("demoFlag", 10000, 1);   # 1 = yes, 2 = no

        if ($demoFlag != 1 && $demoFlag != 2)
        {
            $AGI->stream_file("invalidKey");
            $loop = 1;
        }
    } while ($loop);

    if ($demoFlag == 2)
    {
        do
        {
            $loop = 0;
            $user_id = $AGI->get_data("userid", 10000, 6);

            if (length($user_id) != 6)
            {
                $AGI->stream_file("invalidEntry");
                $loop = 1;
            }
        } while ($loop);

        do
        {
            $loop = 0;
            $password = $AGI->get_data("password", 10000, 6);

            if (length($password) != 6)
            {
                $AGI->stream_file("invalidEntry");
                $loop = 1;
            }
        } while ($loop);
    }

    do
    {
        $loop = 0;  
        $type = $AGI->get_data("type", 10000, 1);   # 1 = UNIQUE, 2 = SERIAL

        if ($type != 1 && $type != 2)
        {
            $AGI->stream_file("invalidKey");
            $loop = 1;
        }
    } while ($loop);

    do
    {
        $loop = 0;
        my $file;

        if ($type == 1) { $file = "uniqueID"; }
        else { $file = "serial" }

        $mac = $AGI->get_data($file, 10000, 6);

        if (length($mac) != 6)
        {
            $AGI->stream_file("invalidEntry");
            $loop = 1;
        }
    } while ($loop);

    $lrepeat = 0;
}

$AGI->stream_file('greatAgreatday');
$AGI->hangup();
exit(0);

Answer 1

在任何 get_data 之前添加以下行。 它应该工作。 $AGI->get_data("silence/1",5,1);

-考斯图布

Answer 2

这很可能是 Asterisk 和您的呼叫者子集之间的 DTMF 设置问题。

如果脚本总是对您有效，而对其他人总是失败，那么几乎可以肯定是 DTMF 设置问题。如果您使用 SIP 通道接听电话，则 DTMF 设置在 sip.conf 中设置（我认为现在还有 sip_users.conf 或其他内容）。

如果脚本偶尔对所有调用者都失败，那么它会变得更加棘手。如果 SIP 呼叫者使用带内 DTMF，即按键是在呼叫音频中发送的，那么 Asterisk 将通过尝试识别流中的信号来提取它们。很多事情都可能为此带来麻烦，但我首先要寻找的是任何丢弃的 RTP 数据包，也许您的网络在脚本失败的同时变得特别繁忙。

如果您的电话是通过 ISDN 打进来的，那么您可以享受上述优惠。