История изменений [назад]

Добрый день! Пытаюсь настроить аутентификацию через Radius. Аккаунтинг работает без проблем, а аутентификация не хочет! При чем ошибок не выдает вообще:

-- Executing [84956477777@sipauth:1] AGI("SIP/1001-00000004", "agi-rad-auth.agi,Mode=Account&Username= 1001 ") in new stack

-- Launched AGI Script /var/lib/asterisk/agi-bin/agi-rad-auth.agi

<sip 1001-00000004="">AGI Tx >> agirequest: agi-rad-auth.agi

<sip 1001-00000004="">AGI Tx >> agichannel: SIP/1001-00000004

<sip 1001-00000004="">AGI Tx >> agilanguage: en

... <sip 1001-00000004="">AGI Tx >> agiaccountcode:

<sip 1001-00000004="">AGI Tx >> agithreadid: 140464187651840

<sip 1001-00000004="">AGI Tx >> agiarg1: Mode=Account&Username= 1001

<sip 1001-00000004="">AGI Tx >>

-- <sip 1001-00000004="">AGI Script agi-rad-auth.agi completed, returning 0

Подскажите почему нет ответа через STDOUT (AGI Rx <<)??

Скрипт взят вот от сюда Вот его начало:

use Crypt::CBC; use Asterisk::AGI; use Authen::Radius; use Digest::MD5 qw(md5_hex);

my $return_code;

my $credittime = -1; my $timeout = -1; my $creditamount; my $hangup = 1; my $call_setup = 1;

$AGI = new Asterisk::AGI; my %input = $AGI->ReadParse();

return $todecode; $AGI->verbose("AGI Environment Dump:", 3); foreach my $i (sort keys %input) { $AGI->verbose(" -- $i = $input{$i}", 3); return $todecode; }

my %params; my(@pairs) = split(/[&;]/,$ARGV[0]); my($param,$value); foreach (@pairs) { ($param,$value) = split('=',$_,2); $param = unescape($param); $value = unescape($value); $params{$param}=$value; }

Все модули подгружены. На соседней машине этот же скрипт аутентификации работает. Не могу разобраться, ошибок вообще не выдает!

Помогите, пжл.

Добрый день! Пытаюсь настроить аутентификацию через Radius. Аккаунтинг работает без проблем, а аутентификация не хочет! При чем ошибок не выдает вообще:

Подскажите почему нет ответа через STDOUT (AGI Rx <<)??

Скрипт взят вот от сюда Вот его начало:

use Crypt::CBC;
use Asterisk::AGI;
use Authen::Radius;
use Digest::MD5 qw(md5_hex);
 
my $return_code;
 
my $credittime qw(md5_hex);

my $return_code;

my $credit_time = -1;
my $timeout = -1;
my $creditamount;
$credit_amount;
my $hangup = 1;
my $call_setup = 1;
 
1;

$AGI = new Asterisk::AGI;
my %input = $AGI->ReadParse();
 
$AGI->ReadParse();

return $todecode;
$AGI->verbose("AGI Environment Dump:", 3);
foreach my $i (sort keys %input) {
        $AGI->verbose(" -- $i = $input{$i}", 3);
return $todecode;
}
 
}



my %params;
my(@pairs) = split(/[&;]/,$ARGV[0]);
my($param,$value);
foreach (@pairs) {
    ($param,$value) = split('=',$_,2);
    $param = unescape($param);
    $value = unescape($value);
    $params{$param}=$value;
}}