Hi,
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/Dumper.so' for module
Data::Dumper: /usr/lib64/perl5/auto/Data/Dumper/Dumper.so: undefined
symbol: Perl_sv_cmp at /usr/lib64/perl5/XSLoader.pm line 70.
--
Fajar
-
List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html
