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
!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
  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