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
2544 bpr 1 
!if $wims_developer=$empty
12520 bpr 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
2544 bpr 7 
    !endif
12520 bpr 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\
30 
      wims_name=$auth_name\
31 
      wims_devfirstname=$(auth_name[1])\
32 
      wims_devlastname=$(auth_name[2])\
33 
      wims_devemail=$auth_email\
10432 bpr 34 
        in wimshome/$sesdir/var.stat
12520 bpr 35 
      !if $wims_class!=$empty and $wims_user!=$empty
36 
        !setdef !set wims_developer=$login,$pp in $userdef
2544 bpr 37 
      !endif
12520 bpr 38 
      devdir=modules/devel/$auth_login
39 
      savedpasswd=$pp
40 
      savedlogin=$auth_login
41 
    !else
42 
      wims_developer=
43 
    !endif
44 
  !endif
2544 bpr 45 
!endif