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