Subversion Repositories wimsdev

Rev

Rev 2477 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
23 reyssat 1 
 
2 
!if $code=$empty
12411 bpr 3 
  code=!randint 10^8,10^9
4 
  sup_email=!defof class_email in wimshome/log/classes/$wims_class/.def
5 
  !if $sup_email=$empty
6 
    auth=no
7 
  !else
8 
    !read scripts/mail.phtml
9 
  !endif
23 reyssat 10 
!else
12411 bpr 11 
  repcode=!word 1 of $repcode
12 
  !if $repcode!=$code
13 
    auth=no
14 
  !else
15 
    auth=yes
16 
  !endif
17 
  !writefile wimshome/$wims_sesdir/auth.supervisor $auth
23 reyssat 18 
!endif