perl examples

[Alex Sharaz]

On 8 Apr 2013, at 14:24, A.L.M.Buxey at lboro.ac.uk wrote:

> Hi,
> 
>> In post-auth I want to 
>> 
>> extract the nas-ip address and calling station-id of the client device
>> open a db connection and perform a query that'll let me  decide what vlan-id to send back in the access-accept packet
>> write radius attributes into the access-accept reply
> 
> one more comment...for somethign so 'trivial' I would seriously
> consider using unlang to do this anyway eg
> 
> update reply {
> 		Tunnel-Private-Group-ID ="%{sql:SELECT vlan from authtable where NAS='%{NAS-IP-Address}' and csi='%{Calling-Station-Id}'}"
>               Tunnel-Medium-Type = IEEE-802
>               Tunnel-Type = VLAN
>               }
> 
> ..or such…
> 
looks neat, but getting the vlan associated with the switch and the calling station id isn't that simple.  but I'll have a look anyway

Rgds
Alex

> alan
> -
> List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html