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 |
|
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 |