Subversion Repositories wimsdev

Rev

Rev 12498 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 12498 Rev 15324
Line 30... Line 30...
30 
    passcnt<4 or $passcnt>16
 30 
    passcnt<4 or $passcnt>16
31 
    error=bad_pass
 31 
    error=bad_pass
32 
    !exit
 32 
    !exit
33 
  !endif
 33 
  !endif
34 
  passchange=yes
 34 
  passchange=yes
35 
  p_passwd=$p_pass1
 35 
  p_passwd=!passcrypt $p_pass1
36 
!else
 36 
!else
37 
  p_passwd=$a_passwd
 37 
  p_passwd=!passcrypt $a_passwd
38 
!endif
 38 
!endif
39 
 
 39 
 
40 
!if $p_name=$auth_name and $p_email=$auth_email and $passchange!=yes
 40 
!if $p_name=$auth_name and $p_email=$auth_email and $passchange!=yes
41 
  !exit
 41 
  !exit
42 
!endif
 42 
!endif
Line 49... Line 49...
49 
	/^:$auth_login$$/ {a=1}; \
 49 
	/^:$auth_login$$/ {a=1}; \
50 
	a==0 {print}; \
 50 
	a==0 {print}; \
51 
	a==1 {print; print "$content"; a=2}; \
 51 
	a==1 {print; print "$content"; a=2}; \
52 
' .developers >.dev \
 52 
' .developers >.dev \
53 
 mv -f .dev .developers
 53 
 mv -f .dev .developers
54 
 
 - 
 
55 
 
 54 
 
56 
n=!recordcnt wimshome/log/.developers
 55 
n=!recordcnt wimshome/log/.developers
57 
!for i=1 to $n
 56 
!for i=1 to $n
58 
  r=!record $i of wimshome/log/.developers
 57 
  r=!record $i of wimshome/log/.developers
59 
  !distribute lines $r into ll,pp,nn,ee
 58 
  !distribute lines $r into ll,pp,nn,ee