Subversion Repositories wimsdev

allow=-_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789

devname=!trim $devname

devemail=!nospace $devemail

devlogin=!nospace $devlogin

devpasswd=!nospace $devpasswd

ltest=!text select $allow in $devlogin

ptest=!text select $allow in $devpasswd

login=$devlogin

name=$devname

email=$devemail

!if $ltest!=$devlogin or $devlogin=$empty

  badfield=login

  !exit

!endif

!if $ptest!=$devpasswd

  badfield=password

  !exit

!endif

!if $devname=$empty

  badfield=name

  !exit

!endif

!if @ notin $devemail

  badfield=email

  !exit

!endif

!if $devno=0

  !if $ptest=$empty

    badfield=password

    !exit

  !endif

  !if $devlogin iswordof $devlist

    badfield=exist

    !exit

  !endif

  devpasswd=!passcrypt $devpasswd

  !appendfile wimshome/log/.developers :$devlogin\

$devpasswd\

$devname\

$devemail

!else

  devpasswd=!passcrypt $devpasswd

  oldpasswd=!line 2 of $(drec$devno)

  !if _* notin _$oldpasswd

    oldpasswd=!passcrypt $oldpasswd

  !endif

  !default devpasswd=$oldpasswd

  drec$devno=$devlogin\

$devpasswd\

$devname\

$devemail

  !read developer/devheader.proc

  !for d=1 to $devcnt

    !appendfile wimshome/log/.developers :$(drec$d)

  !next d

!endif

job2=first

!read developer.proc