Re: Forcing lowercase User-Name with rlm_perl

[Krzysztof Olędzki <krzysztof.oledzki@axelspringer.pl>]

On 2008-05-17 02:09, Chris wrote:
> I basically want User-Name to be forced to lowercase for the duration  
> of the request.
>
> I have done the following:
>
> modules {
> 	perl {
> 		module = my_perl_module.pm
> 	}
> }
>
> authorize {
> 	preprocess
> 	perl
> 	...
> }
>
> Pertinent contents of my_perl_module.pm:
>
> sub authorize {
>          $RAD_REQUEST{'User-Name'} =~ tr/A-Z/a-z/;
>          return RLM_MODULE_OK;
> }
>
>
> This seems to do what I want.  Is it the correct way to accomplish  
> this task?

 lc EXPR
 lc      Returns a lowercased version of EXPR.  This is the internal
         function implementing the "\L" escape in double-quoted strings.
         Respects current LC_CTYPE locale if "use locale" in force.  See
         perllocale and perlunicode for more details about locale and
         Unicode support.

         If EXPR is omitted, uses $_.


Best regards,

			Krzysztof Olędzki