Subversion Repositories wimsdev

Rev

Rev 15295 | Rev 15325 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 15295 Rev 15324
Line 10... Line 10...
10 
!endif
 10 
!endif
11 
 
 11 
 
12 
n=!recordcnt wimshome/log/.developers
 12 
n=!recordcnt wimshome/log/.developers
13 
!for i=1 to $n
 13 
!for i=1 to $n
14 
  r=!record $i of wimshome/log/.developers
 14 
  r=!record $i of wimshome/log/.developers
15 
  passwc=!passcrypt $passwd
 - 
 
16 
  !distribute lines $r into ll,pp,nn,ee
 15 
  !distribute lines $r into ll,pp,nn,ee
- 
 
 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
- 
 
 27 
  !endif
17 
  !if $ll=$login
 28 
  !if $ll=$login
18 
    pp=!passcrypt $pp
 29 
    password_check=!passcheck $passwd and $pp
19 
    !if $pp=$passwc
 30 
    !if $password_check=yes
20 
      auth_login=$ll
 31 
      auth_login=$ll
21 
      auth_passwd=$pp
 32 
      auth_passwd=$pp
22 
      auth_name=$nn
 33 
      auth_name=$nn
23 
      auth_email=$ee
 34 
      auth_email=$ee
24 
      wims_module_log=auth $login
 35 
      wims_module_log=auth $login