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