Lower case to Upper case in Calling-Station-Id at policy.conf

Hilton Guaraldi guaraldi at gmail.com
Fri Sep 18 21:12:41 CEST 2009


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 <seo at 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:guaraldi at gmail.com]
> To: FreeRadius users mailing list
> [mailto:freeradius-users at 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 <alex at digriz.org.uk>:
>> > Hi,
>> >
>> > Hilton Guaraldi <guaraldi at 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
>



More information about the Freeradius-Users mailing list