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

[Stefan Saraev]

-----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
>