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

18 Sep 2009


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