URL: https://www.opennet.me/cgi-bin/openforum/vsluhboard.cgi
Форум: vsluhforumID1
Нить номер: 81368
[ Назад ]
Исходное сообщение
"Asterisk agi-perl Radius"
Отправлено vyaches , 28-Июл-08 12:16 
Здравствуйте.
На ОC FreeBSD 6.2 запущен asterisk-1.4.21.1. Необходимо сделать аутентификацию sip клиентов через Radius. Настроил, как написано на сайте http://www.voip-info.org/wiki/index.php?page_id=1780. Но из скрипта на Radius не приходит пароль клиента.
Не пойму как в agi-perl скрипт вытащить значение secret клиента из файла sip.conf?
спасибо
Содержание
Сообщения в этом обсуждении
"Asterisk agi-perl Radius"
Отправлено ALex_hha , 28-Июл-08 18:24 
>Здравствуйте.
>На ОC FreeBSD 6.2 запущен asterisk-1.4.21.1. Необходимо сделать аутентификацию sip клиентов через
>Radius. Настроил, как написано на сайте http://www.voip-info.org/wiki/index.php?page_id=1780. Но из скрипта на
>Radius не приходит пароль клиента.
>Не пойму как в agi-perl скрипт вытащить значение secret клиента из файла
>sip.conf?
>спасибо

http://www.voip-info.org/wiki/view/Asterisk%3A%3Ac...

#!/usr/bin/perl
use Asterisk::config;

my $sip_conf = new Asterisk::config(file=>'/etc/sip.conf');

$allow = $sip_conf->fetch_values_arrayref(section=>'general',key=>'allow');
print $allow->[0];

Думаю принцип понятен.

"Asterisk agi-perl Radius"
Отправлено vyaches , 29-Июл-08 09:29 
>[оверквотинг удален]
>
>#!/usr/bin/perl
>use Asterisk::config;
>
>my $sip_conf = new Asterisk::config(file=>'/etc/sip.conf');
>
>$allow = $sip_conf->fetch_values_arrayref(section=>'general',key=>'allow');
>print $allow->[0];
>
>Думаю принцип понятен.

да, спасибо! оригинально