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

!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=!passcrypt $p_pass1

!else

  p_passwd=!passcrypt $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

!next i

!if $passchange=yes

  wims_module_log $auth_login change password.

!else

  wims_module_log $auth_login change properties.

!endif