Страница 1 из 1

Из perl c Asterisk по AMI кто-то реально ковырялся ?

СообщениеДобавлено: 29 мар 2018, 14:08
skoltogyan
Из perl c Asterisk по AMI кто-то реально ковырялся ?
никак не получается поулчить ответ на команду( простейшее действие вродебы), текст скрипта ниже

#!/usr/bin/perl -w
use strict;
use diagnostics;
use Asterisk::AMI;

my $astman = Asterisk::AMI->new(
PeerAddr => 'a.b.c.d',
PeerPort => '5038',
Username => 'testadmin',
Secret => 'qwerty',
Events => 'off'
);
die "Unable to connect to Asterisk" unless ($astman);

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

print $response;

на выходе получаю такое :
HASH(0x49b4b0)