Rev 5350 | Rev 5654 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 5350 | guerimand | 1 | !read wimshome/log/classes/$class/.def |
| 2 | !default step=0 |
||
| 3 | |||
| 4 | !if $step=1 |
||
| 5 | tmp=!defof user_exists\ |
||
| 6 | user_email in wimshome/log/classes/$class/.users/$auth_user |
||
| 7 | !distribute line $tmp into u,m |
||
| 8 | !if $u!=yes or $m=$empty |
||
| 9 | error=bad_loginmail |
||
| 10 | step=0 |
||
| 11 | !exit |
||
| 12 | !else |
||
| 13 | npwd=!randint 111111,999999 |
||
| 14 | !read adm/class/authdelay |
||
| 15 | npwdc=!passcrypt $npwd |
||
| 16 | !if $delay!=bad |
||
| 5400 | bpr | 17 | !setdef !set user_password=$npwdc in wimshome/log/classes/$class/.users/$auth_user |
| 5350 | guerimand | 18 | !mailto $m\ |
| 19 | $wims_name_n_forgetpwd\ |
||
| 20 | $npwd |
||
| 21 | |||
| 22 | !else |
||
| 23 | step=0 |
||
| 24 | !endif |
||
| 25 | !endif |
||
| 26 | !endif |