Hi, It´s me again... I updated to 2.1.6. Example.pl with $RAD_REQUEST{'Calling-Station-Id'} = uc($RAD_REQUEST{'Calling-Station-Id'}); line in sub authorize. Perl module under authorize in default file like this:
authorize { preprocess ... sql ... perl ----> After SQL? ... } When I start the command radiusd -X a new problem again..... :-( I guess I am getting crazy :-), but I have a lot of patience... Can't load '/usr/lib/perl5/5.10.0/i586-linux-thread-multi/auto/Data/Dumper/Dumper.so' for module Data::Dumper: /usr/lib/perl5/5.10.0/i586-linux-thread-multi/auto/Data/Dumper/Dumper.so: undefined symbol: Perl_sv_cmp at /usr/lib/perl5/5.10.0/i586-linux-thread-multi/XSLoader.pm line 64. at /usr/lib/perl5/5.10.0/i586-linux-thread-multi/Data/Dumper.pm line 36 Compilation failed in require at /etc/raddb/example.pl line 30. BEGIN failed--compilation aborted at /etc/raddb/example.pl line 30. rlm_perl: perl_parse failed: /etc/raddb/example.pl not found or has syntax errors. /etc/raddb/modules/perl[7]: Instantiation failed for module "perl" /etc/raddb/sites-enabled/default[187]: Failed to find module "perl". /etc/raddb/sites-enabled/default[62]: Errors parsing authorize section. Errors initializing modules A little piece of example.pl with line 30... use strict; # use ... # This is very important ! Without this script will not get the filled hashesh from main. use vars qw(%RAD_REQUEST %RAD_REPLY %RAD_CHECK); use Data::Dumper; <------------ Here is the line 30... # This is hash wich hold original request from radius #my %RAD_REQUEST; # In this hash you add values that will be returned to NAS. #my %RAD_REPLY; #This is for check items #my %RAD_CHECK; How can I resolve this new problem? Guaraldi 2009/9/18 Ivan Kalik <t...@kalik.net>: > You should upgrade to current version. Many improvements were made to perl > module since 2.1.1. > > You can add perl to modules directory in 2.1.1. You have example on the wiki: > > http://wiki.freeradius.org/Rlm_perl > > Ivan Kalik > Kalik Informatika ISP > >> 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