AGI. Получение переменной DIALSTATUS
Всем привет.
Есть небольшой скрипт на перле, который просто, для проверки, звонит на определённый номер, а потом получает информацию о статусе звонка.
#!/usr/bin/perl
use Asterisk::AGI;
$AGI = new Asterisk::AGI;
my %input = $AGI->ReadParse();
open (TEST,">>/home/kesha/ast_test");
$AGI->exec("DIAL OH323/232313124\@212.1.71.99");
$status=$AGI->get_variable("DIALSTATUS");
print TEST $status;
close (TEST);
Я делаю следующее: звоню, запускается скрипт, мой собеседник поднимает трубку, мы разговариваем, потом он её первый ложит, заканчивая звонок - всё нормально: переменная $status="ANSWER", но когда я ложу трубку первый - $status="noresponse".
Почему всё так происходит и как это исправить?
Спасибо за помощь.
|
