Subversion Repositories wimsdev

sdir=$wims_home/$wims_sesdir

cdir=$wims_home/log/classes/$wims_class

nbexo=!recordcnt wimshome/log/classes/$wims_class/freeworks/.Wfreework$freework

!bound exolog between 1 and $nbexo default $empty

!if $exolog=$empty

  error=exolog-noexo

  job=student

  !changeto var.proc

!endif

!! ------ no register if exercise already exists

test=!fileexists wimshome/log/classes/$wims_class/freeworksdata/$freework/work/$(wims_user)-wimsexo/$exolog

!if $test=yes

  error=exolog-exoexists

  job=student

  !changeto var.proc

!endif

!! ------- check of good exercise parameters (peut-être un truc dans le c pour le faire à voir)

data=!record $exolog of wimshome/log/classes/$wims_class/freeworks/.Wfreework$freework

!distribute line $data into modu,para,bla,bla

para=wims_freework=$freework,$exolog&$para

exec=!defof w_module\

w_module_init_parm\

w_module_score in wimshome/$wims_sesdir/exolog

!distribute line $exec into modu2,para2,score

!if $score<$wims_fwminscore

  error=exolog-badscore

  job=student

  !changeto var.proc

!endif

!if $modu2 notsametext $modu or $para2 notsametext $para

  error=exolog-badparameter

  job=student

  !changeto var.proc

!endif

!sh mkdir -p $cdir/freeworksdata/$freework/work/$(wims_user)-wimsexo;\

    mv $sdir/exolog $cdir/freeworksdata/$freework/work/$(wims_user)-wimsexo/$exolog;

!! replace the name of images by rename by the true name when saving

rename_list =!record 0 of wimshome/$wims_sesdir/.rename

rename_list_cnt=!linecnt $rename_list

!for l=1 to $rename_list_cnt

  rename_l=!line $l of $rename_list

  rename_l=!replace internal : by , in $rename_l

  rename_l=!replace internal ? by \? in $rename_l

  !sh perl -np -i -e 's:$(rename_l[2]):$(rename_l[1]):g' $cdir/freeworksdata/$freework/work/$(wims_user)-wimsexo/$exolog

!next l

wims_fwlistexo=!listcomplement $exolog in $wims_fwlistexo

!setdef wims_fwlistexo=$wims_fwlistexo in wimshome/sessions/$wims_session/var.stat

job=student

!changeto var.proc