Subversion Repositories wimsdev

n=!recordcnt wimshome/log/.developers
!for i=1 to $n
  r=!record $i of wimshome/log/.developers
  !distribute lines $r into ll,pp,nn,ee
  !if $ll=$auth_login
   a_passwd=$pp
   auth_name=$nn
   auth_email=$ee
   !break
  !endif
 !endif
!next i

!if $confirm=$empty
 !exit
!endif

p_name=!trim $p_name
p_email=!trim $p_email
p_pass1=!trim $p_pass1
p_pass2=!trim $p_pass2

!if $p_name=$empty or @ notin $p_email
 !exit
!endif

!if $p_pass1!=$empty
 passcheck=!text select $alnum in $p_pass1
 passcnt=!charcnt $passcheck
 !if $passcheck!=$p_pass1 or $p_pass1!=$p_pass2 or \
        passcnt<4 or $passcnt>16
  error=bad_pass
  !exit
 !endif
 passchange=yes
 p_passwd=$p_pass1
!else
 p_passwd=$a_passwd
!endif

!if $p_name=$auth_name and $p_email=$auth_email and $passchange!=yes
 !exit
!endif

content=$p_passwd\n$p_name\n$p_email

!sh cd $wims_home/log\
 awk 'BEGIN {a=0}; \
        /^:/ {a=0}; \
        /^:$auth_login$$/ {a=1}; \
        a==0 {print}; \
        a==1 {print; print "$content"; a=2}; \
' .developers >.dev \
 mv -f .dev .developers
  

n=!recordcnt wimshome/log/.developers
!for i=1 to $n
  r=!record $i of wimshome/log/.developers
  !distribute lines $r into ll,pp,nn,ee
  !if $ll=$auth_login
   auth_name=$nn
   auth_email=$ee
   !break
  !endif
 !endif
!next i

!if $passchange=yes
 wims_module_log $auth_login change password.
!else
 wims_module_log $auth_login change properties.
!endif