<div dir="ltr">Nobody :(  have any tidbits to help me isolate this, obviously its not the perl script but what is altering the username.<br><br>Thanks<br><br><div class="gmail_quote">---------- Forwarded message ----------<br>
From: <b class="gmail_sendername">Charlie B</b> <span dir="ltr"><<a href="mailto:cbwonderboy@gmail.com">cbwonderboy@gmail.com</a>></span><br>Date: Thu, Sep 18, 2008 at 10:52 AM<br>Subject: rlm-perl lc usernames<br>To: <a href="mailto:freeradius-users@lists.freeradius.org">freeradius-users@lists.freeradius.org</a><br>
<br><br><div dir="ltr">Hello,<br><br>Anyone can help me with this perl script (at bottom) which seem to be causing more than a simple lc, it seems to move the first character to the end...<br><br><br>rlm_perl: Added pair User-Name = *****\\raduser<br>

rlm_perl: Added pair EAP-Message = 0x02020011014e494e545c52616455736572<br>rlm_perl: Added pair NAS-IP-Address = <a href="http://10.0.1.9" target="_blank">10.0.1.9</a><br>rlm_perl: Added pair NAS-Port = 50117<br>rlm_perl: Added pair Framed-MTU = 1500<br>

perl_pool total/active/spare [32/0/32]<br>Unreserve perl at address 0x2471050<br>++[perl] returns ok<br>++[chap] returns noop<br>++[mschap] returns noop<br>    rlm_realm: No '@' in User-Name = "****\ aduserr", looking up realm NULL<br>

    rlm_realm: No such realm "NULL"<br>++[suffix] returns noop<br>  rlm_eap: EAP packet type response id 2 length 17<br>  rlm_eap: No EAP Start, assuming it's an on-going EAP conversation<br>++[eap] returns updated<br>

rlm_ldap: Entering ldap_groupcmp()<br>        expand: dc=ads,dc=nint,dc=org -> dc=ads,dc=nint,dc=org<br>        expand: (sAMAccountname=%{mschap:User-Name:-%{User-Name}}) -> (sAMAccountname= aduserr)<br>rlm_ldap: ldap_get_conn: Checking Id: 0<br>

rlm_ldap: ldap_get_conn: Got Id: 0<br>rlm_ldap: attempting LDAP reconnection<br>rlm_ldap: (re)connect to <a href="http://cnsad.ads.nint.org:3268" target="_blank">cnsad.ads.nint.org:3268</a>, authentication 0<br>rlm_ldap: bind as <a href="http://bckup@ads.nint.org/3MFmqw_6f" target="_blank">bckup@ads.nint.org/3MFmqw_6f</a> to <a href="http://cnsad.ads.nint.org:3268" target="_blank">cnsad.ads.nint.org:3268</a><br>

rlm_ldap: waiting for bind result ...<br>rlm_ldap: Bind was successful<br>rlm_ldap: performing search in dc=ads,dc=nint,dc=org, with filter (sAMAccountname= aduserr)<br><br><br><br>perl-tolower.pl (found on forum)<br>use strict;<br>

use vars qw(%RAD_REQUEST %RAD_REPLY %RAD_CHECK);<br>#<br># This the remapping of return values<br>#<br><br>use constant RLM_MODULE_REJECT=> 0;# /* immediately reject the request */<br>use constant RLM_MODULE_FAIL=> 1;# /* module failed, don't reply */<br>

use constant RLM_MODULE_OK=> 2;# /* the module is OK, continue */<br>use constant RLM_MODULE_HANDLED=> 3;# /* the module handled the request, so stop. */<br>use constant RLM_MODULE_INVALID=> 4;# /* the module considers therequest invalid. */<br>

use constant RLM_MODULE_USERLOCK=> 5;# /* reject the request (useris locked out) */<br>use constant RLM_MODULE_NOTFOUND=> 6;# /* user not found */<br>use constant RLM_MODULE_NOOP=> 7;# /* module succeeded withoutdoing anything */<br>

use constant RLM_MODULE_UPDATED=> 8;# /* OK (pairs modified) */<br>use constant RLM_MODULE_NUMCODES=> 9;# /* How many return codes there are */<br><br>sub authorize {<br>        $RAD_REQUEST{'User-Name'} = lc($RAD_REQUEST{'User-Name'});<br>

        return RLM_MODULE_OK;<br>}<br><br>sub preacct {<br>        $RAD_REQUEST{'User-Name'} = lc($RAD_REQUEST{'User-Name'});<br>        return RLM_MODULE_OK;<br>}<br><br><br>Thanks<br></div>
</div><br></div>