Subversion Repositories wimsdev

Rev

Rev 5400 | Rev 12720 | 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\
5654 bpr 20
$npwd\
21
\
5350 guerimand 22
 
5654 bpr 23
 
24
!! the empty line before must be leaved
5350 guerimand 25
   !else
26
    step=0
27
   !endif
28
 !endif
29
!endif