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

[Stefan Saraev]

-----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:guaraldi at gmail.com]
To: FreeRadius users mailing list
[mailto:freeradius-users at 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 <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
> >
> -
> List info/subscribe/unsubscribe? See
> http://www.freeradius.org/list/users.html
>