Subversion Repositories wimsdev

Rev

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

Rev Author Line No. Line
23 reyssat 1
 
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
 
12
n=!recordcnt wimshome/log/.developers
13
!for i=1 to $n
14
 r=!record $i of wimshome/log/.developers
15
 passwc=!passcrypt $passwd
16
 !distribute lines $r into ll,pp,nn,ee
17
 pp=!passcrypt $pp
18
 !if $ll=$login and $pp=$passwc
19
  auth_login=$ll
20
  auth_passwd=$pp
21
  auth_name=$nn
22
  auth_email=$ee
23
  wims_module_log=auth $login
24
  sesdir=!translate internal _ to $ $ in $wims_sesdir
25
  sesdir=!word 1 of $sesdir
10432 bpr 26
        !setdef wims_developer=$login\
27
        wims_name=$auth_name\
28
        wims_devfirstname=$(auth_name[1])\
29
        wims_devlastname=$(auth_name[2])\
30
        wims_email=$auth_email\
31
        in wimshome/$sesdir/var.stat
23 reyssat 32
  !if $wims_class!=$empty and $wims_user!=$empty
33
   !setdef !set wims_developer=$login,$pp in $userdef
34
  !endif
35
  devdir=modules/devel/$auth_login
36
  job=modname
37
  !changeto $job.proc
38
 !endif
39
!next i
40
 
41
error=bad_auth
42
login=
43