Subversion Repositories wimsdev

Rev

Rev 10432 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 10432 Rev 12520
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
 7 
    !endif
8 
      login=
 8 
    login=
9 
      !exit
 9 
    !exit
10 
    !endif
 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 
      passwc=!passcrypt $passwd
 19 
    passwc=!passcrypt $passwd
20 
      pp=!passcrypt $dv_ps
 20 
    pp=!passcrypt $dv_ps
21 
      !if $pp=$passwc
 21 
    !if $pp=$passwc
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
 - 
 
38 
        devdir=modules/devel/$auth_login
 - 
 
39 
        savedpasswd=$pp
 - 
 
40 
        savedlogin=$auth_login
 - 
 
41 
      !else
 - 
 
42 
        wims_developer=
 - 
 
43 
      !endif
 37 
      !endif
- 
 
 38 
      devdir=modules/devel/$auth_login
- 
 
 39 
      savedpasswd=$pp
- 
 
 40 
      savedlogin=$auth_login
- 
 
 41 
    !else
- 
 
 42 
      wims_developer=
44 
   !endif
 43 
    !endif
- 
 
 44 
  !endif
45 
!endif
 45 
!endif