0

extensions.confAGI を実行しているコールを取得できますが、Perl スクリプトがループを実行している間、ダイヤル プランを実行し続けることができません。

そのため、通話がダイヤルされたときにバックグラウンドでこの AGI を実行する必要があります。

めちゃくちゃになっている私のAGIの部分：

{
    my $linestatus = $agi->channel_status();

    ###THIS PART NEEDS TO LOOP UNTIL $linestatus == 6
    ###But It is also stopping the number from dialling.
    do{
    }
    until($linestatus == 6);

    my $query  = $collection->insert({
        caller     => $num,
        callername => $name,
        linestatus => $linestatus,
        extension  => $ext,
        call_start => $time }, {safe => 1});

    $agi->verbose("ANSWERED\n", 1);
}

私のextensions.confダイヤル プラン:

exten => _08.,1,AGI(bTel.agi)
exten => _08.,n,Dial(SIP/61${EXTEN:1}@SIPINTERNAL,,tTor)
exten => _08.,n,Hungup
4

1 に答える 1

3

もしも

do{
}
until($linestatus == 6);

はコードの逐語的なコピーであり、$linestatusその値がループ内で変更されないため、間違った状態で開始するとループを終了できません。

代わりに、次の行に沿ってコードを使用します

my $linestatus;
do {
    $linestatus = $agi->channel_status();
    sleep 1;  # or some other delay
} until (defined $linestatus && $linestatus == 6);
于 2013-08-02T17:20:27.633 に答える