lists@justinawilliams.com wrote:
I am not really up with perl... Is there any way that perl can rewrite the request and take out either the . or : or - between characters as well as make everything lower case?
so that the calling-station-id request would be 00197da6ad06 not 00:19:7d:a6:ad:06 or 00-19-7d-a6-ad-06 or 0019.7da6.ad06
I have some unlang action for this that I use: --------- if ( Calling-Station-Id =~ /^([0-9a-f]{2}).?([0-9a-f]{2}).?([0-9a-f]{2}).?([0-9a-f]{2}).?([0-9a-f]{2}).?([0-9a-f]{2})$/i ) { update request { Calling-Station-Id := "%{1}-%{2}-%{3}-%{4}-%{5}-%{6}" } update control { Tmp-String-0 := "%{1}%{2}%{3}%{4}%{5}%{6}" } } if ( Called-Station-Id =~ /^([0-9a-f]{2}).?([0-9a-f]{2}).?([0-9a-f]{2}).?([0-9a-f]{2}).?([0-9a-f]{2}).?([0-9a-f]{2})$/i ) { update request { Called-Station-Id := "%{1}-%{2}-%{3}-%{4}-%{5}-%{6}" } } ------- It seems to be RFCy if you keep with 00-11-22-33-44-55 as the style for MAC addresses, so outside FreeRADIUS it's stored in the RFC-manner[1] and for where I need to do 'fun' stuff[1] with it internally I use the Tmp-String-X family of internal variables. Cheers Alex [1] LDAP lookups for example, such as cn=001122334455 -- Alexander Clouter .sigmonster says: Do not use the blue keys on this terminal.