Звездочка :: AMI модуль - PullRequest
Новая
       49

Звездочка :: AMI модуль

0 голосов
/ 31 мая 2011

Я изучаю модуль Asterisk :: AMI в Perl для подключения к Asterisk. При запуске следующей программы я не могу подключиться к звездочке. Кто-нибудь может дать мне решение этой проблемы? 

use Asterisk::AMI;
my $astman = Asterisk::AMI->new(PeerAddr        =>      '127.0.0.1', #Remote host address
                                PeerPort        =>      '5038',      #Remote host port
                                                                     #AMI is available on TCP port 5038 if you enable it in manager.conf. 
                                Username        =>      'admin',     #Username to access the AMI

                                Secret          =>      'supersecret' #Secret used to connect to AMI
                                );

die "Unable to connect to asterisk" unless ($astman);

my $action = $astman->({ Action => 'Command',
                         Command => 'sip show peers'
                       });

print $action;

Заранее спасибо.

Ответы [ 3 ]

2 голосов
/ 31 мая 2011

Ваш скрипт должен показывать ошибки / предупреждения, если вы включаете: 

use warnings;

в начале вашего скрипта.

1 голос
/ 08 сентября 2011

Я проходил через ту же проблему. Потом я обнаружил, что мне нужно настроить пользователя в файле /etc/asterisk/manager.conf

Как в этом примере http://www.voip -info.org / wiki / view / Asterisk + config + manager.conf

вы получите успех;

0 голосов
/ 01 августа 2014

Здесь вам не хватает запятой:
'$ action = $ astman -> ({...'
должно быть
'$ action = $ astman-> send_action({... '

...