perl dynamic expansion in unlang?

Fajar A. Nugraha list at
Fri Mar 18 17:39:07 CET 2011


Is there an example for dynamic expansion with perl in unlang?
Something like this, but using perl instead of regex and SQL:

if ("%{request:User-Name}" =~ /^(.*)@/) {
	update reply {
		Reply-Message := "%{sql:select(concat('Stripped-User-Name:
','%{1}',', random value: ',rand()))}"

On a side note, in RHEL6's freeradius-perl RPM, rlm_perl is unusable:
Can't load '/usr/lib64/perl5/auto/Data/Dumper/' for module
Data::Dumper: /usr/lib64/perl5/auto/Data/Dumper/ undefined
symbol: Perl_sv_cmp at /usr/lib64/perl5/ line 70.


More information about the Freeradius-Users mailing list