Thanks Saraev, Again, a new problem emerged... :-( In /etc/raddb/modules I do not see perl module... :-(
I am running opensuse 11.1 and freeradius 2.1.1-1.27 from opensuse repository. Is there a way to get this problem solved, i.e. , perl module missing in modules subdirectory? Is there a way to supply it? Guaraldi 2009/9/18 Stefan Saraev <s...@link.bg>: > -----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 > - List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html