Rev 15324 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 15324 | Rev 15890 | ||
---|---|---|---|
Line 1... | Line 1... | ||
1 | !if $wims_developer=$empty |
1 | !if $wims_developer=$empty |
2 |
|
2 | login=!word 1 of $login |
3 |
|
3 | passwd=!word 1 of $passwd |
4 |
|
4 | !if $login=$empty or $passwd=$empty |
5 |
|
5 | !if $login$passwd!=$empty |
6 |
|
6 | error=bad_auth |
7 | !endif |
- | |
8 | login= |
- | |
9 | !exit |
- | |
10 | !endif |
7 | !endif |
- | 8 | login= |
|
- | 9 | !exit |
|
- | 10 | !endif |
|
11 |
|
11 | wims_developer=$login |
12 |
|
12 | !read adm/getdeveloper |
13 |
|
13 | !if $dv_tit= |
14 |
|
14 | login= |
15 |
|
15 | wims_developer= |
16 |
|
16 | passwd= |
17 |
|
17 | !exit |
18 |
|
18 | !else |
19 |
|
19 | pp=!passcrypt $dv_ps |
20 |
|
20 | pass_check=!passcheck $passwd and $pp |
21 |
|
21 | !if $pass_check=yes |
22 |
|
22 | auth_login=$dv_tit |
23 |
|
23 | auth_passwd=$pp |
24 |
|
24 | auth_name=$dv_name |
25 |
|
25 | auth_email=$dv_email |
26 |
|
26 | wims_module_log=auth $login |
27 |
|
27 | sesdir=!translate internal _ to $ $ in $wims_sesdir |
28 |
|
28 | sesdir=!word 1 of $sesdir |
29 |
|
29 | !setdef wims_developer=$login\ |
30 |
|
30 | wims_name=$auth_name\ |
31 |
|
31 | wims_devfirstname=$(auth_name[1])\ |
32 |
|
32 | wims_devlastname=$(auth_name[2])\ |
33 |
|
33 | wims_devemail=$auth_email\ |
34 |
|
34 | in wimshome/$sesdir/var.stat |
35 | !! !if $wims_class!=$empty and $wims_user!=$empty |
35 | !! !if $wims_class!=$empty and $wims_user!=$empty |
36 | !! !setdef !set wims_developer=$login,$pp in $userdef |
36 | !! !setdef !set wims_developer=$login,$pp in $userdef |
37 | !! !endif |
37 | !! !endif |
38 |
|
38 | devdir=modules/devel/$wims_developer |
39 |
|
39 | savedpasswd=$pp |
40 |
|
40 | savedlogin=$auth_login |
41 |
|
41 | !default execut=0 |
42 |
|
42 | !else |
43 |
|
43 | wims_developer= |
44 |
|
44 | !endif |
45 |
|
45 | !endif |
46 | !endif |
46 | !endif |