Subversion Repositories wimsdev

Rev

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

Rev 11137 Rev 11431
Line 20... Line 20...
20 
  !if $ldap_id!=$empty and $meth_ !=$empty
 20 
  !if $ldap_id!=$empty and $meth_ !=$empty
21 
    !goto ldap
 21 
    !goto ldap
22 
    !exit
 22 
    !exit
23 
  !endif
 23 
  !endif
24 
!endif
 24 
!endif
25 
 
 - 
 
26 
 
 25 
 
27 
!set login=!text select $char_alnum in $login
 26 
!set login=!text select $char_alnum in $login
28 
!set login=!char 1 to $[$login_max -$limit] of $login
 27 
!set login=!char 1 to $[$login_max -$limit] of $login
29 
!set tmp=!charcnt $login
 - 
 
30 
!if $tmp<$login_min
 - 
 
31 
  !set tmp=!makelist 0 for x=1 to $login_min-$tmp
 - 
 
32 
  !set tmp=!items2words $tmp
 - 
 
33 
  !set login=!nospace $login$tmp
 - 
 
34 
  !reset tmp
 - 
 
35 
!endif
 - 
 
36 
!!set cl=!replace internal / by , in $cl
 28 
!!set cl=!replace internal / by , in $cl
37 
!set cl=$(cl[1])
 29 
!set cl=$(cl[1])
38 
!if $cl=$empty
 30 
!if $cl=$empty
39 
  !reset login
 31 
  !reset login
40 
  !exit
 32 
  !exit