Subversion Repositories wimsdev

!read wimshome/log/classes/$class/.def

!default step=0

!if $step=1

 tmp=!defof user_exists\

user_email in wimshome/log/classes/$class/.users/$auth_user

 !distribute line $tmp into u,m

 !if $u!=yes or $m=$empty

  error=bad_loginmail

  step=0

  !exit

 !else

   npwd=!randint 111111,999999

   !read adm/class/authdelay

   npwdc=!passcrypt $npwd

   !if $delay!=bad

    !setdef !set user_password=$npwdc in wimshome/log/classes/$class/.users/$auth_user

    !mailto $m\

$wims_name_n_forgetpwd\

$npwd\

\

!! the empty line before must be leaved

   !else

    step=0

   !endif

 !endif

!endif