Rev 23 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 23 | reyssat | 1 | |
| 2 | !if $code=$empty |
||
| 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 |
||
| 10 | !else |
||
| 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 |
||
| 18 | !endif |
||
| 19 |