Thank you Kalik, Saraev and Garber. I will upgrade my freeradius. Give a time to do this. I come back later with news...
Guaraldi 2009/9/18 Stefan Saraev <s...@link.bg>: > -----BEGIN PGP SIGNED MESSAGE----- > Hash: SHA1 > > http://wiki.freeradius.org/Rlm_perl > > radiusd.conf: > - -- cut -- > modules { > ... > perl { > module = /path/to/blah.pl > .... > } > } > ... > authorize { > preprocess > ... > sql > ... > perl > ... > } > ... > preacct { > preprocess > perl > ... > } > ... > - -- cut -- > > you need rlm_perl compiled and installed, check the documentation > > blah:pl > - --- 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 --- > > - ----------------- > 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 > 22:12:41 +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) > > iEYEARECAAYFAkqz7JoACgkQRAN48r0+OnrKsACgnvZ0Wri61AYc2q62zMHQNBnU > vrgAnjnrHYiPocolDZcO7BmDEwuyHyk8 > =eAsR > -----END PGP SIGNATURE----- > > >> 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 >> > > - > List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html > - List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html