Rev 2544 | Rev 12520 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 2544 | bpr | 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 |
||
| 10432 | bpr | 29 | !setdef wims_developer=$login\ |
| 30 | wims_name=$auth_name\ |
||
| 31 | wims_devfirstname=$(auth_name[1])\ |
||
| 32 | wims_devlastname=$(auth_name[2])\ |
||
| 33 | wims_devemail=$auth_email\ |
||
| 34 | in wimshome/$sesdir/var.stat |
||
| 2544 | bpr | 35 | !if $wims_class!=$empty and $wims_user!=$empty |
| 10432 | bpr | 36 | !setdef !set wims_developer=$login,$pp in $userdef |
| 2544 | bpr | 37 | !endif |
| 38 | devdir=modules/devel/$auth_login |
||
| 39 | savedpasswd=$pp |
||
| 40 | savedlogin=$auth_login |
||
| 41 | !else |
||
| 42 | wims_developer= |
||
| 43 | !endif |
||
| 44 | !endif |
||
| 45 | !endif |