Subversion Repositories wimsdev

!read scripts/check.class

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

quser=!translate internal ./;,?* to $         $ in $quser
!if $ $ isin $quser
 quser=
!endif

!if $quser=$empty
 :baduser
 error=bad user
 !exit
!endif

!if $quser=supervisor
 deffile=supervisor
!else
 deffile=.users/$quser
!endif

userdeffile=wimshome/log/classes/$qclass/$deffile

test=!defof user_exists in $userdeffile
!if $test!=yes
 !goto baduser
!endif