[RADIATOR] preClientHook problem using ClientListSQL from version 3.15 to version 4.3.1

[Dario Aguilar]

Hi, first of all I want to clarify that I am a new user of Radiator and my
knowledge of Perl language is very poor. We are trying to move from version
3.15 to 4.3.1 and some problems a problem appered to us with the old Global
"preClientHook" statement in the new version. How should I call
PreClientHook.cfg to work in using ClientListSQL ?. I´ve already finish
reading the revision history of versions 4.3 and 4.3.1 and the reference
manual but I still have very clear how to implement this in our server. 

Our radius.conf looks something like this: 
------------------------------------------------------------- 
<ClientListSQL> 
        DBSource                dbi:Oracle:%{GlobalVar:DBInstance} 
        DBUsername              %{GlobalVar:DBUsername} 
        DBAuth                  %{GlobalVar:DBAuth} 
        DBSource                dbi:Oracle:%{GlobalVar:DBInstance} 
        DBUsername              %{GlobalVar:DBUsername} 
        DBAuth                  %{GlobalVar:DBAuth} 
        GetClientQuery          SELECT nas_ip_address,secret from
tbl_radclient WHERE nas_ip_address IS NOT NULL and secret IS NOT NULL 
        BackupFilename
%D/clientlist.%{GlobalVar:CodeType}.%{GlobalVar:IpAddress}.dat 
        RefreshPeriod           3600 
        Timeout                 2 
        FailureBackoffTime      0 
        ConnectionHook file:"%D/ConnectionHook.cfg" 
</ClientListSQL> 

PreClientHook file:"%D/PreClientHook.cfg" 
------------------------------------------------- 

PreClientHook.cfg----->>> 

sub { 
        my $p=${$_[0]}; 
        my $nasip=$p->get_attr('NAS-IP-Address'); 
        my $ip=&Radius::Util::format_special('%c', $p); 
        my $nasport=$p->get_attr('NAS-Port'); 
        my $callid=$p->get_attr('Calling-Station-Id'); 

        &main::log($main::LOG_DEBUG,'Into PreClientHook'); 
        &main::log($main::LOG_DEBUG,"NASIP=[$nasip] NASPORT=[$nasport]
SOURCE_IP=[$ip] CallId=[$callid]"); 
         if($ip ne '192.168.0.1' and $ip ne '192.168.0.2') { 
                $p->change_attr('NAS-IP-Address',$ip) if $nasip ne $ip; 
        } 

        $p->add_attr('NAS-Port',$callid) unless defined $nasport; 
        $p->delete_attr('State'); 
        if ($p->code eq 'Accounting-Request' &&
$p->get_attr('Acct-Status-Type') eq 'Stop') { 
                my %ascend2ietf = ( 
                        'remoteEndHungup'       => 'User-Request', 
                        'pppRcvTerminate'       => 'User-Request', 
                        'sessTimeOut'           => 'Session-Timeout', 
                        '240'                   => 'Host-Request', 
                ); 

                my $ascend_disconnect_cause =
$p->get_attr('Ascend-Disconnect-Cause'); 
                if($ascend_disconnect_cause) { 
                        my $newval=$ascend2ietf{$ascend_disconnect_cause}; 
                        $newval='Lost-Carrier' 
                                unless defined $newval; 
                        $p->change_attr('Acct-Terminate-Cause', $newval); 
                } 
        } 
} 
------------------------------------------- 

thanks, 
Dario Aguilar

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://www.open.com.au/pipermail/radiator/attachments/20090107/e569d11e/attachment.html>