-----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 that _should_ work for you:
- -- cut -- use vars qw(%RAD_REQUEST %RAD_REPLY %RAD_CHECK); sub authorize { $RAD_REQUEST{'Calling-Station-Id'} = uc($RAD_REQUEST{'Calling-Station-Id'}); } sub preacct { $RAD_REQUEST{'Calling-Station-Id'} = uc($RAD_REQUEST{'Calling-Station-Id'}); } - -- cut -- and add "perl" in preacct { } section after preprocess in radiusd.conf - ----------------- Regards Stefan Saraev Link+ Ltd. +359 899 19 15 34 - ----- Original Message ----- From: Hilton Guaraldi [mailto:guara...@gmail.com] To: FreeRadius users mailing list [mailto:freeradius-us...@lists.freeradius.org] Sent: Fri, 18 Sep 2009 20:12:34 +0300 Subject: Re: Lower case to Upper case in Calling-Station-Id at policy.conf -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.9 (GNU/Linux) iEYEARECAAYFAkqz14AACgkQRAN48r0+OnqSKQCghcDigoyUZFXMTvsLDFJ6lMMg +fwAoIyDW+Ik5UVhoGih0AOIHOGqZBrv =2IlH -----END PGP SIGNATURE----- > Ok... > > I tried $RAD_REQUEST{'Calling-Station-Id'} = > uc($RAD_REQUEST{'Calling-Station-Id'}). > I guess in the sub authorize of example.pl ..............The only file > I saw sub authorize in... > If I am wrong, please help me what is the correct file! > > Running radiusd -X nothing happens in MAC address. If it is > 00-18-e7-41-ad-c2, it remains the same, not 00-18-E7-41-AD-C2, :-( > > Must I "include" example.pl to radius in order to do > $RAD_REQUEST{'Calling-Station-Id'} = > uc($RAD_REQUEST{'Calling-Station-Id'}) work? > > Guaraldi > > > 2009/9/18 Alexander Clouter <a...@digriz.org.uk>: > > Hi, > > > > Hilton Guaraldi <guara...@gmail.com> wrote: > >> > >> How can I use uc function below in order to change lower case to upper > case? > >> > >> Ex. 00-18-e7-41-ad-c2 ---> 00-18-E7-41-AD-C2 > >> > >> In the policy.conf: > >> > > When I last nosied through the source code there is no way. I normally > > make sure all the polies are case insensitive *in* FreeRADIUS and when > > things get spat out to my SQL server I slip 'lower(...)' around the MAC > > addresses going in that direction. > > > > The only other way is to have a Perl script doing the work for you, but > > as you can use case insensitive regex to replace string matching, I > > would say it is not worth it. > > > > Cheers > > > > -- > > Alexander Clouter > > .sigmonster says: Idleness is the holiday of fools. > > > > - > > List info/subscribe/unsubscribe? See > http://www.freeradius.org/list/users.html > > > - > List info/subscribe/unsubscribe? See > http://www.freeradius.org/list/users.html > - List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html