Subversion Repositories wimsdev

!if $wims_user!=supervisor
  !exit
!endif
etest=!record 0 of wimshome/log/classes/$wims_class/.parmreg/$getuser.exam
!distribute words $etest into ehost,esession,etime,esheet
!if $esheet!=$empty
  etest=!record 0 of wimshome/sessions/$esession/var.stat
  !if $etime<$wims_nowseconds or $etest=$empty
    !sh rm -f $wims_home/log/classes/$wims_class/.parmreg/$getuser.exam
    !reset ehost,esession,etime,esheet
  !else
    eremain=$[rint(($etime-$wims_nowseconds)/60)]
  !endif
!endif