Tagged attributes problem and rlm_perl in FreeRADIUS 2.1.4

[Alexandr Kovalenko]

Hello!

I've already asked about the very same problem with tagged attributes
and rlm_perl in FreeRADIUS 1.1.7, and Ivan Kalik <tnt at kalik.net> told
me that he tested it on 2.1.4, so I've upgraded to new version:

FreeRADIUS Version 2.1.4, for host i386-portbld-freebsd7.1, built on
Apr 16 2009 at 10:42:09

But the problem persist. But now it became even worse, it does not
authorize even for the first time.

Log file attached. If I uncomment $RAD_REPLY{'ERX-Service-Activate:2'}
= "deny" line in code radiusd just dies. When it is commented radiusd
returns attributes ERX-Service-Activate and ERX-Service-Statistics
without tag.

Thanks in advance for help.

Code snippet of my rlm_perl authorize( ) function:

    if (($RAD_REQUEST{'User-Name'} eq 'admin') and
($RAD_REQUEST{'User-Password'} eq 'test')) {
        %RAD_REPLY = undef;
        $RAD_REPLY{'ERX-Service-Activate:1'} = "telesys";
        $RAD_REPLY{'ERX-Service-Statistics:1'}[0] = "time-volume";
        $RAD_REPLY{'ERX-Qos-Parameters'}[0] = "internet_tr_value 2097152";
        $RAD_REPLY{'ERX-Qos-Parameters'}[1] = "internet_tr_value_in 2097152";
#        $RAD_REPLY{'ERX-Service-Activate:2'} = "deny";
        $RAD_REPLY{'ERX-Qos-Profile-Name'} = "SP_Tele_Internet";
        $RAD_REPLY{'Framed-IP-Address'} = '10.0.112.2';
        $RAD_REPLY{'Framed-IP-Netmask'}= "255.255.255.255";
        $RAD_REPLY{'ERX-Primary-DNS'} = "77.91.190.21";
        $RAD_REPLY{'ERX-Secondary-DNS'} = "77.91.190.24";
        return RLM_MODULE_OK;
    } else {
        return RLM_MODULE_REJECT;
    };

-- 
Alexandr Kovalenko
http://uafug.org.ua/
-------------- next part --------------
A non-text attachment was scrubbed...
Name: radiusd.log
Type: application/octet-stream
Size: 20914 bytes
Desc: not available
URL: <http://lists.freeradius.org/pipermail/freeradius-users/attachments/20090416/1321cdbc/attachment.obj>