Rev 10432 | Rev 15324 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 10432 | Rev 15295 | ||
|---|---|---|---|
| Line 4... | Line 4... | ||
| 4 | !if $login=$empty or $passwd=$empty |
4 | !if $login=$empty or $passwd=$empty |
| 5 | !if $login$passwd!=$empty |
5 | !if $login$passwd!=$empty |
| 6 | error=bad_auth |
6 | error=bad_auth |
| 7 | !endif |
7 | !endif |
| 8 | login= |
8 | login= |
| 9 | !exit |
9 | !exit |
| 10 | !endif |
10 | !endif |
| 11 | 11 | ||
| 12 | n=!recordcnt wimshome/log/.developers |
12 | n=!recordcnt wimshome/log/.developers |
| 13 | !for i=1 to $n |
13 | !for i=1 to $n |
| 14 | r=!record $i of wimshome/log/.developers |
14 | r=!record $i of wimshome/log/.developers |
| 15 | passwc=!passcrypt $passwd |
15 | passwc=!passcrypt $passwd |
| 16 | !distribute lines $r into ll,pp,nn,ee |
16 | !distribute lines $r into ll,pp,nn,ee |
| - | 17 | !if $ll=$login |
|
| 17 | pp=!passcrypt $pp |
18 | pp=!passcrypt $pp |
| 18 |
|
19 | !if $pp=$passwc |
| 19 | auth_login=$ll |
20 | auth_login=$ll |
| 20 | auth_passwd=$pp |
21 | auth_passwd=$pp |
| 21 | auth_name=$nn |
22 | auth_name=$nn |
| 22 | auth_email=$ee |
23 | auth_email=$ee |
| 23 | wims_module_log=auth $login |
24 | wims_module_log=auth $login |
| 24 | sesdir=!translate internal _ to $ $ in $wims_sesdir |
25 | sesdir=!translate internal _ to $ $ in $wims_sesdir |
| 25 | sesdir=!word 1 of $sesdir |
26 | sesdir=!word 1 of $sesdir |
| 26 |
|
27 | !setdef wims_developer=$login\ |
| 27 | wims_name=$auth_name\ |
28 | wims_name=$auth_name\ |
| 28 | wims_devfirstname=$(auth_name[1])\ |
29 | wims_devfirstname=$(auth_name[1])\ |
| 29 | wims_devlastname=$(auth_name[2])\ |
30 | wims_devlastname=$(auth_name[2])\ |
| 30 | wims_email=$auth_email\ |
31 | wims_email=$auth_email\ |
| 31 | in wimshome/$sesdir/var.stat |
32 | in wimshome/$sesdir/var.stat |
| 32 | !if $wims_class!=$empty and $wims_user!=$empty |
33 | !if $wims_class!=$empty and $wims_user!=$empty |
| 33 | !setdef !set wims_developer=$login,$pp in $userdef |
34 | !setdef !set wims_developer=$login,$pp in $userdef |
| - | 35 | !endif |
|
| - | 36 | devdir=modules/devel/$auth_login |
|
| - | 37 | job=modname |
|
| - | 38 | !changeto $job.proc |
|
| - | 39 | !endif |
|
| 34 | !endif |
40 | !endif |
| 35 | devdir=modules/devel/$auth_login |
- | |
| 36 | job=modname |
- | |
| 37 | !changeto $job.proc |
- | |
| 38 | !endif |
- | |
| 39 | !next i |
41 | !next i |
| 40 | 42 | ||
| 41 | error=bad_auth |
43 | error=bad_auth |
| 42 | login= |
44 | login= |
| 43 | - | ||