Subversion Repositories wimsdev

Rev

Rev 5262 | Rev 11137 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5262 Rev 7403
Line 63... Line 63...
63 
!endif
 63 
!endif
64 
!exit
 64 
!exit
65 
:ldap
 65 
:ldap
66 
 
 66 
 
67 
!if $ldap_uid!=$ldap_login and $ldap_login notsametext $empty
 67 
!if $ldap_uid!=$ldap_login and $ldap_login notsametext $empty
68 
 !set login=!sh ldapsearch -x -LLL -t -H ldap://$ldap_auth:$ldap_port -b "$ldap_base" $ldap_uid="$login" $ldap_login | grep -v "^[d]n:"
68 
 !set login=!sh ldapsearch -x -LLL -t -H ldap://$ldap_auth:$ldap_port -b "$ldap_base" $ldap_uid="$login" $ldap_login | grep -v "^[d]n:"
69 
 !set login=!replace internal : by = in $login
 69 
 !set login=!replace internal : by = in $login
70 
 !set login=!getopt $ldap_login in $login
 70 
 !set login=!getopt $ldap_login in $login
71 
 !set login=!text select $char_alnum in $login
 71 
 !set login=!text select $char_alnum in $login
72 
 !set login=!char 1 to $[$login_max -$limit] of $login
 72 
 !set login=!char 1 to $[$login_max -$limit] of $login
- 
 
 73 
 !set login_char=!charcnt $login
- 
 
 74 
 !if $login_char=3
- 
 
 75 
   !set login=$(login)0
- 
 
 76 
 !endif
73 
!endif
 77 
!endif
74 
 
 - 
 
75 
!if $login=$empty
 78 
!if $login=$empty
76 
  error=login_empty
 79 
  error=login_empty
77 
  !exit
 80 
  !exit
78 
!endif
 81 
!endif