Subversion Repositories wimsdev

Rev

Rev 15326 | 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
15295 bpr 5 
  !if $login$passwd!=$empty
6 
    error=bad_auth
7 
  !endif
8 
  login=
9 
  !exit
23 reyssat 10 
!endif
11 
 
12 
n=!recordcnt wimshome/log/.developers
13 
!for i=1 to $n
15295 bpr 14 
  r=!record $i of wimshome/log/.developers
15 
  !distribute lines $r into ll,pp,nn,ee
15325 bpr 16 
!!  !if _* notin _$pp
17 
!!      pp=!passcrypt $pp
18 
!!      content=$pp\n$nn\n$ee
19 
!!      !sh cd $wims_home/log\
20 
!! awk 'BEGIN {a=0}; \
21 
!!	/^:/ {a=0}; \
22 
!!	/^:$ll$$/ {a=1}; \
23 
!!	a==0 {print}; \
24 
!!	a==1 {print; print "$content"; a=2}; \
25 
!!' .developers >.dev \
26 
!! mv -f .dev .developers
15326 bpr 27 
!!  !endif
15295 bpr 28 
  !if $ll=$login
15327 bpr 29 
    pp=!passcrypt $pp
15324 bpr 30 
    password_check=!passcheck $passwd and $pp
31 
    !if $password_check=yes
15295 bpr 32 
      auth_login=$ll
33 
      auth_passwd=$pp
34 
      auth_name=$nn
35 
      auth_email=$ee
36 
      wims_module_log=auth $login
37 
      sesdir=!translate internal _ to $ $ in $wims_sesdir
38 
      sesdir=!word 1 of $sesdir
39 
      !setdef wims_developer=$login\
40 
          wims_name=$auth_name\
41 
          wims_devfirstname=$(auth_name[1])\
42 
          wims_devlastname=$(auth_name[2])\
43 
          wims_email=$auth_email\
10432 bpr 44 
        in wimshome/$sesdir/var.stat
15295 bpr 45 
      !if $wims_class!=$empty and $wims_user!=$empty
46 
       !setdef !set wims_developer=$login,$pp in $userdef
47 
      !endif
48 
      devdir=modules/devel/$auth_login
49 
      job=modname
50 
      !changeto $job.proc
51 
    !endif
23 reyssat 52 
  !endif
53 
!next i
54 
 
55 
error=bad_auth
56 
login=