Subversion Repositories wimsdev

Rev

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

Rev 879 Rev 880
Line 82... Line 82...
82
!for t in lastname, firstname, password, email
82
!for t in lastname, firstname, password, email
83
 sadd_$t=$(user_$t)
83
 sadd_$t=$(user_$t)
84
!next t
84
!next t
85
 
85
 
86
!if $passs!=$empty
86
!if $passs!=$empty
-
 
87
 c=!char 1 of $passs
-
 
88
 !if $c=* and $wims_priv_cryptpass=allow
87
 passs=!text select */$char_passwd in $passs
89
  p=!text select */$char_passwd in $passs
-
 
90
 !else
-
 
91
  p=!text select $char_passwd in $passs
-
 
92
 !endif
88
 passlen=!charcnt $passs
93
 passlen=!charcnt $passs
89
 !if $passlen<$passwd_min or $passlen>$passwd_max or $passs != $passs2
94
 !if $passlen<$passwd_min or $passlen>$passwd_max or $passs != $passs2
90
  error=bad_password
95
  error=bad_password
91
  !exit
96
  !exit
92
 !endif
97
 !endif