Subversion Repositories wimsdev

Rev

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

Rev 4828 Rev 7144
Line 107... Line 107...
107 
  !read var.auth
 107 
  !read var.auth
108 
  !if $error!=$empty
 108 
  !if $error!=$empty
109 
   !exit
 109 
   !exit
110 
  !endif
 110 
  !endif
111 
 !endif
 111 
 !endif
112 
 !read $userdef
 112 
 !defread $userdef
113 
 anc=!word 1 of $user_password
 113 
 anc=!word 1 of $user_password
114 
 anc=!passcrypt $anc
 114 
 anc=!passcrypt $anc
115 
 old=!passcrypt $old
 115 
 old=!passcrypt $old
116 
 !if $old!=$anc
 116 
 !if $old!=$anc
117 
  error=bad_user_password
 117 
  error=bad_user_password
Line 123... Line 123...
123 
 pw1=!passcrypt $pw1
 123 
 pw1=!passcrypt $pw1
124 
 !setdef !set user_password=$pw1 in $userdef
 124 
 !setdef !set user_password=$pw1 in $userdef
125 
 pass=!getdef user_password in $userdef
 125 
 pass=!getdef user_password in $userdef
126 
 !if $pass=$pw1
 126 
 !if $pass=$pw1
127 
  error=success
 127 
  error=success
128 
  wims_module_log=Change user password: $wims_user
 128 
  wims_module_log=Change user password: $wims_user $wims_realuser
129 
  !if $wims_user=supervisor
 129 
  !if $wims_user=supervisor
130 
   wims_class_log=change password by $wims_realuser
 130 
   wims_class_log=change password by $wims_realuser
131 
   !read lang/mail.proc.$moduclass_lang
 131 
   !read lang/mail.proc.$moduclass_lang
132 
  !endif
 132 
  !endif
133 
 !else
 133 
 !else