Print out the username after it was altered. You have an example of writing to radlog in example.pl:
http://wiki.freeradius.org/Rlm_perl Than you will know it was(n't) perl. Ivan Kalik Kalik Informatika ISP Dana 19/9/2008, "Charlie B" <[EMAIL PROTECTED]> piše: >Nobody :( have any tidbits to help me isolate this, obviously its not the >perl script but what is altering the username. > >Thanks > >---------- Forwarded message ---------- >From: Charlie B <[EMAIL PROTECTED]> >Date: Thu, Sep 18, 2008 at 10:52 AM >Subject: rlm-perl lc usernames >To: freeradius-users@lists.freeradius.org > > >Hello, > >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... > > >rlm_perl: Added pair User-Name = *****\\raduser >rlm_perl: Added pair EAP-Message = 0x02020011014e494e545c52616455736572 >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 0x2471050 >++[perl] returns ok >++[chap] returns noop >++[mschap] returns noop > rlm_realm: No '@' in User-Name = "****\ aduserr", looking up realm NULL > rlm_realm: No such realm "NULL" >++[suffix] returns noop > rlm_eap: EAP packet type response id 2 length 17 > rlm_eap: No EAP Start, assuming it's an on-going EAP conversation >++[eap] returns updated >rlm_ldap: Entering ldap_groupcmp() > expand: dc=ads,dc=nint,dc=org -> dc=ads,dc=nint,dc=org > expand: (sAMAccountname=%{mschap:User-Name:-%{User-Name}}) -> >(sAMAccountname= aduserr) >rlm_ldap: ldap_get_conn: Checking Id: 0 >rlm_ldap: ldap_get_conn: Got Id: 0 >rlm_ldap: attempting LDAP reconnection >rlm_ldap: (re)connect to cnsad.ads.nint.org:3268, authentication 0 >rlm_ldap: bind as [EMAIL PROTECTED]/3MFmqw_6f to cnsad.ads.nint.org:3268 >rlm_ldap: waiting for bind result ... >rlm_ldap: Bind was successful >rlm_ldap: performing search in dc=ads,dc=nint,dc=org, with filter >(sAMAccountname= aduserr) > > > >perl-tolower.pl (found on forum) >use strict; >use vars qw(%RAD_REQUEST %RAD_REPLY %RAD_CHECK); ># ># This the remapping of return values ># > >use constant RLM_MODULE_REJECT=> 0;# /* immediately reject the request */ >use constant RLM_MODULE_FAIL=> 1;# /* module failed, don't reply */ >use constant RLM_MODULE_OK=> 2;# /* the module is OK, continue */ >use constant RLM_MODULE_HANDLED=> 3;# /* the module handled the request, so >stop. */ >use constant RLM_MODULE_INVALID=> 4;# /* the module considers therequest >invalid. */ >use constant RLM_MODULE_USERLOCK=> 5;# /* reject the request (useris locked >out) */ >use constant RLM_MODULE_NOTFOUND=> 6;# /* user not found */ >use constant RLM_MODULE_NOOP=> 7;# /* module succeeded withoutdoing anything >*/ >use constant RLM_MODULE_UPDATED=> 8;# /* OK (pairs modified) */ >use constant RLM_MODULE_NUMCODES=> 9;# /* How many return codes there are */ > >sub authorize { > $RAD_REQUEST{'User-Name'} = lc($RAD_REQUEST{'User-Name'}); > return RLM_MODULE_OK; >} > >sub preacct { > $RAD_REQUEST{'User-Name'} = lc($RAD_REQUEST{'User-Name'}); > return RLM_MODULE_OK; >} > > >Thanks > > - List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html