<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">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">cnsad.ads.nint.org:3268</a>, authentication 0<br>rlm_ldap: bind as <a href="http://bckup@ads.nint.org/3MFmqw_6f">bckup@ads.nint.org/3MFmqw_6f</a> to <a href="http://cnsad.ads.nint.org:3268">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>