Rev 50 | Rev 10432 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 23 | reyssat | 1 | !if $wims_developer=$empty |
| 2 | login=!word 1 of $login |
||
| 3 | passwd=!word 1 of $passwd |
||
| 4 | !if $login=$empty or $passwd=$empty |
||
| 5 | !if $login$passwd!=$empty |
||
| 6 | error=bad_auth |
||
| 7 | !endif |
||
| 8 | login= |
||
| 9 | !exit |
||
| 10 | !endif |
||
| 11 | wims_developer=$login |
||
| 12 | !read adm/getdeveloper |
||
| 13 | !if $dv_tit= |
||
| 14 | login= |
||
| 15 | wims_developer= |
||
| 16 | passwd= |
||
| 17 | !exit |
||
| 18 | !else |
||
| 19 | passwc=!passcrypt $passwd |
||
| 20 | pp=!passcrypt $dv_ps |
||
| 21 | !if $pp=$passwc |
||
| 22 | auth_login=$dv_tit |
||
| 23 | auth_passwd=$pp |
||
| 24 | auth_name=$dv_name |
||
| 25 | auth_email=$dv_email |
||
| 26 | wims_module_log=auth $login |
||
| 27 | sesdir=!translate internal _ to $ $ in $wims_sesdir |
||
| 28 | sesdir=!word 1 of $sesdir |
||
| 29 | !setdef wims_developer=$login in wimshome/$sesdir/var.stat |
||
| 50 | bpr | 30 | !! !if $wims_class!=$empty and $wims_user!=$empty |
| 31 | !! !setdef !set wims_developer=$login,$pp in $userdef |
||
| 32 | !! !endif |
||
| 33 | devdir=modules/devel/$wims_developer |
||
| 23 | reyssat | 34 | savedpasswd=$pp |
| 35 | savedlogin=$auth_login |
||
| 36 | !default execut=0 |
||
| 37 | !else |
||
| 38 | wims_developer= |
||
| 39 | !endif |
||
| 40 | !endif |
||
| 41 | !endif |
||
| 42 |