Subversion Repositories wimsdev

!if $code=$empty
  code=!randint 10^8,10^9
  sup_email=!defof class_email in wimshome/log/classes/$wims_class/.def
  !if $sup_email=$empty
    auth=no
  !else
    !read scripts/mail.phtml
  !endif
!else
  repcode=!word 1 of $repcode
  !if $repcode!=$code
    auth=no
  !else
    auth=yes
  !endif
  !writefile wimshome/$wims_sesdir/auth.supervisor $auth
!endif