Subversion Repositories wimsdev

# Add a subclass under the current superclass.
# Calling parameter: subclass address under the superclass.

!if $wims_superclass=$empty or $wims_user!=supervisor or $wims_read_parm=$empty
  !exit
!endif

classdir=wimshome/log/classes/$wims_superclass
userdir=$classdir/.users
s_=$sup

!if $pass!=$empty
  pass=!text select $char_passwd in $pass
  passlen=!charcnt $pass
  !if $passlen<$passwd_min or $passlen>$passwd_max or $pass != $pass2
    error=bad_password
    !exit
  !endif
!else
  pass=!defof class_password in $classdir/$wims_read_parm/.def
!endif

!if $passs!=$empty
  passs=!text select $char_passwd in $passs
  passlen=!charcnt $passs
  !if $passlen<$passwd_min or $passlen>$passwd_max or $passs != $passs2
    error=bad_password
    !exit
  !endif
!else
  passs=!defof user_password in $classdir/$wims_read_parm/supervisor
!endif

1=!defof user_exists in $userdir/$s_
2=!defof class_defined in $classdir/$wims_read_parm/.def
!if $2!=yes
  error=mod_not_exist
  !exit
!endif
!if $1!=yes
  s_=supervisor
!else
  1=!defof user_supervisable in $userdir/$s_
  !if $1!=yes
    name=$s_
    error=not_supervisable
    !exit
  !endif
!endif
!read adm/class/userdef classes,$wims_superclass,$s_
cadd_Supervisor=$s_
tmp=!defof user_firstname,user_lastname,user_email in $userdef
!distribute item $tmp into sadd_firstname,sadd_lastname,sadd_email,sadd_password
cadd_email=$sadd_email
cadd_password=$pass
sadd_password=$passs
modclass_slist=!listunion firstname,lastname,email and $modclass_slist

!read adm/gateway/delsup $wims_read_parm
!if $s_!=supervisor
  suplist=!defof user_supervise in $userdir/$s_
  suplist=!listunion $suplist and $wims_superclass/$wims_read_parm
  !setdef !set user_supervise=$suplist in $userdir/$s_
!endif

!read adm/class/modclass $wims_superclass/$wims_read_parm

!if $error!=$empty
  !exit
!endif