Subversion Repositories wimsdev

Rev

Rev 50 | Rev 10432 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
23 reyssat 1
!if $wims_developer=$empty
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
    wims_developer=$login
12
    !read adm/getdeveloper
13
    !if $dv_tit=
14
      login=
15
      wims_developer=
16
      passwd=
17
      !exit
18
    !else
19
      passwc=!passcrypt $passwd
20
      pp=!passcrypt $dv_ps
21
      !if $pp=$passwc
22
        auth_login=$dv_tit
23
        auth_passwd=$pp
24
        auth_name=$dv_name
25
        auth_email=$dv_email
26
        wims_module_log=auth $login
27
        sesdir=!translate internal _ to $ $ in $wims_sesdir
28
        sesdir=!word 1 of $sesdir
29
        !setdef wims_developer=$login in wimshome/$sesdir/var.stat
50 bpr 30
 !!       !if $wims_class!=$empty and $wims_user!=$empty
31
 !!        !setdef !set wims_developer=$login,$pp in $userdef 
32
 !!       !endif
33
        devdir=modules/devel/$wims_developer
23 reyssat 34
        savedpasswd=$pp
35
        savedlogin=$auth_login
36
        !default execut=0
37
      !else
38
        wims_developer=
39
      !endif
40
   !endif
41
!endif
42