Fwd: rlm-perl lc usernames

[Charlie B]

Hello Ivan,

How do I get it to spit it out after the change?

I can get it prior to:
rlm_perl: RAD_REQUEST: NAS-Port-Type = Ethernet
rlm_perl: RAD_REQUEST: Service-Type = Framed-User
rlm_perl: RAD_REQUEST: Calling-Station-Id = 00-15-C5-02-39-99
rlm_perl: RAD_REQUEST: Called-Station-Id = 00-13-19-EE-6F-11
rlm_perl: RAD_REQUEST: Message-Authenticator =
0x9356400ae43f29bc1d837fc8768f4b0b
rlm_perl: RAD_REQUEST: User-Name = nint\\raduser
rlm_perl: RAD_REQUEST: EAP-Message = 0x02020011014e494e545c72616475736572
rlm_perl: RAD_REQUEST: NAS-IP-Address = 10.0.1.9
rlm_perl: RAD_REQUEST: NAS-Port = 50117
rlm_perl: RAD_REQUEST: Framed-MTU = 1500
rlm_perl: Added pair NAS-Port-Type = Ethernet
rlm_perl: Added pair Service-Type = Framed-User
rlm_perl: Added pair Calling-Station-Id = 00-15-C5-02-39-99
rlm_perl: Added pair Called-Station-Id = 00-13-19-EE-6F-11
rlm_perl: Added pair Message-Authenticator =
0x9356400ae43f29bc1d837fc8768f4b0b
rlm_perl: Added pair User-Name = nint\\raduser
rlm_perl: Added pair EAP-Message = 0x02020011014e494e545c72616475736572
rlm_perl: Added pair NAS-IP-Address = 10.0.1.9
rlm_perl: Added pair NAS-Port = 50117
rlm_perl: Added pair Framed-MTU = 1500
perl_pool total/active/spare [32/0/32]
Unreserve perl at address 0x10c91d0
++[perl] returns ok
++[chap] returns noop
++[mschap] returns noop
    rlm_realm: No '@' in User-Name = "nint\ aduserr", looking up realm NULL



Added to perl script:

sub authorize {
        $RAD_REQUEST{'User-Name'} = lc($RAD_REQUEST{'User-Name'});
        &log_request_attributes;
        return RLM_MODULE_OK;
}

sub log_request_attributes {
        # This shouldn't be done in production environments!
        # This is only meant for debugging!
        for (keys %RAD_REQUEST) {
                &radiusd::radlog(0, "RAD_REQUEST: $_ = $RAD_REQUEST{$_}");
        }
}
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.freeradius.org/pipermail/freeradius-users/attachments/20080922/90f06c34/attachment.html>