Subversion Repositories wimsdev

examtest=!sh cat $wims_home/$wims_sesdir/examreg.* 2>/dev/null
!if $examtest!=$empty
  et=!words2items $examtest
  !for i in $et
    !if $i>0
      error=in_exam
      type=none
      !exit
    !endif
  !next
!endif

!if $wims_user=supervisor
  nam=sup
!else
  nam=part
!endif
!read adm/class/userdef classes,$wims_class,$wims_realuser
!set user_supervisable=!defof user_supervisable in $userdef
!if $user_supervisable=yes
  !set user_supervise=!defof user_supervise in $userdef
!endif
!if $wims_user=supervisor
  !set user_supervise=!append item $wims_class to $user_supervise
!endif
!set user_participate=!defof user_participate in $userdef

neib=!defof n_$nam in wimshome/log/classes/$wims_class/neighbors
pass=!defof user_password in $userdef
pass=!word 1 of $pass

directlist=

!if $pass!=$empty
  !for c in $neib
    t=!defof n_$nam in wimshome/log/classes/$c/neighbors
    !read adm/class/userdef classes,$c,$wims_user
    np=!defof user_password in $userdef
    !! both should be crypten
    !! what happens if they were crypten in different ways ?
    !! hope not !
    np=!word 1 of $np
    np=!passcrypt $np
    passc=!passcrypt $pass
    !if $wims_class isitemof $t and $np=$passc
      !if $auth_method isitemof $auth_method_list
        directlist=!append item $c $user_auth_external to $directlist
      !else
        directlist=!append item $c $wims_user to $directlist
      !endif
    !endif
  !next c
!endif

directlist=!append item $directlist to $wims_otherclass
directlist=!listuniq $directlist
directlist=!listcomplement $wims_class $wims_user in $directlist
directlist=!nonempty items $directlist
directlist=!sort items $directlist
directcnt=!itemcnt $directlist
!if $directcnt>0
!!! should be commented
  current_pass=$pass
!endif