Subversion Repositories wimsdev

Rev

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

Rev 15324 Rev 15325
Line 11... Line 11...
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 
  !distribute lines $r into ll,pp,nn,ee
 15 
  !distribute lines $r into ll,pp,nn,ee
16 
  !if _* notin _$pp
 16 
!!  !if _* notin _$pp
17 
      pp=!passcrypt $pp
 17 
!!      pp=!passcrypt $pp
18 
      content=$pp\n$nn\n$ee
 18 
!!      content=$pp\n$nn\n$ee
19 
      !sh cd $wims_home/log\
 19 
!!      !sh cd $wims_home/log\
20 
 awk 'BEGIN {a=0}; \
 20 
!! awk 'BEGIN {a=0}; \
21 
	/^:/ {a=0}; \
 21 
!!	/^:/ {a=0}; \
22 
	/^:$ll$$/ {a=1}; \
 22 
!!	/^:$ll$$/ {a=1}; \
23 
	a==0 {print}; \
 23 
!!	a==0 {print}; \
24 
	a==1 {print; print "$content"; a=2}; \
 24 
!!	a==1 {print; print "$content"; a=2}; \
25 
' .developers >.dev \
 25 
!!' .developers >.dev \
26 
 mv -f .dev .developers
 26 
!! mv -f .dev .developers
27 
  !endif
 27 
  !endif
28 
  !if $ll=$login
 28 
  !if $ll=$login
29 
    password_check=!passcheck $passwd and $pp
 29 
    password_check=!passcheck $passwd and $pp
30 
    !if $password_check=yes
 30 
    !if $password_check=yes
31 
      auth_login=$ll
 31 
      auth_login=$ll