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

Для любителей просто поболтать

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

Сообщение skoltogyan » 29 мар 2018, 14:08

Из 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)
skoltogyan
 
Сообщения: 1940
Зарегистрирован: 12 июл 2002, 19:39
Откуда: Украина, Донецк

Вернуться в Флейм

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2