Subversion Repositories wimsdev

Rev

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
     login=!word 1 of $login
2
  login=!word 1 of $login
3
     passwd=!word 1 of $passwd
3
  passwd=!word 1 of $passwd
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
-
 
8
      login=
-
 
9
      !exit
-
 
10
    !endif
7
    !endif
-
 
8
    login=
-
 
9
    !exit
-
 
10
  !endif
11
    wims_developer=$login
11
  wims_developer=$login
12
    !read adm/getdeveloper
12
  !read adm/getdeveloper
13
    !if $dv_tit=
13
  !if $dv_tit=
14
      login=
14
    login=
15
      wims_developer=
15
    wims_developer=
16
      passwd=
16
    passwd=
17
      !exit
17
    !exit
18
    !else
18
  !else
19
      pp=!passcrypt $dv_ps
19
    pp=!passcrypt $dv_ps
20
      pass_check=!passcheck $passwd and $pp
20
    pass_check=!passcheck $passwd and $pp
21
      !if $pass_check=yes
21
    !if $pass_check=yes
22
        auth_login=$dv_tit
22
      auth_login=$dv_tit
23
        auth_passwd=$pp
23
      auth_passwd=$pp
24
        auth_name=$dv_name
24
      auth_name=$dv_name
25
        auth_email=$dv_email
25
      auth_email=$dv_email
26
        wims_module_log=auth $login
26
      wims_module_log=auth $login
27
        sesdir=!translate internal _ to $ $ in $wims_sesdir
27
      sesdir=!translate internal _ to $ $ in $wims_sesdir
28
        sesdir=!word 1 of $sesdir
28
      sesdir=!word 1 of $sesdir
29
        !setdef wims_developer=$login\
29
      !setdef wims_developer=$login\
30
        wims_name=$auth_name\
30
      wims_name=$auth_name\
31
        wims_devfirstname=$(auth_name[1])\
31
      wims_devfirstname=$(auth_name[1])\
32
        wims_devlastname=$(auth_name[2])\
32
      wims_devlastname=$(auth_name[2])\
33
        wims_devemail=$auth_email\
33
      wims_devemail=$auth_email\
34
        in wimshome/$sesdir/var.stat
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
        devdir=modules/devel/$wims_developer
38
      devdir=modules/devel/$wims_developer
39
        savedpasswd=$pp
39
      savedpasswd=$pp
40
        savedlogin=$auth_login
40
      savedlogin=$auth_login
41
        !default execut=0
41
      !default execut=0
42
      !else
42
    !else
43
        wims_developer=
43
      wims_developer=
44
      !endif
44
    !endif
45
   !endif
45
  !endif
46
!endif
46
!endif