Subversion Repositories wimsdev

Rev

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 
      pp=!passcrypt $dv_ps
15324 bpr 20 
      pass_check=!passcheck $passwd and $pp
21 
      !if $pass_check=yes
23 reyssat 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
10432 bpr 29 
        !setdef wims_developer=$login\
30 
        wims_name=$auth_name\
31 
        wims_devfirstname=$(auth_name[1])\
32 
        wims_devlastname=$(auth_name[2])\
33 
        wims_devemail=$auth_email\
34 
        in wimshome/$sesdir/var.stat
50 bpr 35 
 !!       !if $wims_class!=$empty and $wims_user!=$empty
10432 bpr 36 
 !!        !setdef !set wims_developer=$login,$pp in $userdef
50 bpr 37 
 !!       !endif
38 
        devdir=modules/devel/$wims_developer
23 reyssat 39 
        savedpasswd=$pp
40 
        savedlogin=$auth_login
41 
        !default execut=0
42 
      !else
43 
        wims_developer=
44 
      !endif
45 
   !endif
46 
!endif