Subversion Repositories wimsdev

Rev

Rev 14572 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
14297 guerimand 1
!! activate freework
2
 
3
!! --- testing if erasable
4
!read proc/iserasable.proc $freework
5
!if $erasable=no
6
  error=noterasable
7
  job=configfw
8
  !changeto $job.proc
9
!endif
10
 
11
!if $nbfreework=1
12
  !sh rm -f $wims_home/log/classes/$wims_class/freeworks/.freework$freework >/dev/null\
16425 guerimand 13
    rm -rf $wims_home/log/classes/$wims_class/freeworksdata/$freework >/dev/null\
14
    $wims_home/log/classes/$wims_class/freeworks/.Wfreework$freework >/dev/null\
14297 guerimand 15
    rm -f $wims_home/log/classes/$wims_class/freeworks/.freeworks >/dev/null\
16
    touch $wims_home/log/classes/$wims_class/freeworks/.freeworks
17
!else
18
  !sh cd $wims_home/log/classes/$wims_class/freeworks/;\
14572 bpr 19
    rm -f .freework$freework >/dev/null\
16425 guerimand 20
    rm -f .Wfreework$freework >/dev/null\
14572 bpr 21
    rm -rf $freework >/dev/null\
22
    rm -rf $wims_home/log/classes/$wims_class/freeworksdata/$freework >/dev/null\
23
    n=$[$freework+1];\
24
    while [ $$n -le $nbfreework ]; do\
25
      mv .freework$$n .freework$$(($$n-1)) >/dev/null\
16425 guerimand 26
      mv .Wfreework$$n .Wfreework$$(($$n-1)) >/dev/null\
14572 bpr 27
      mv $wims_home/log/classes/$wims_class/freeworksdata/$$n $wims_home/log/classes/$wims_class/freeworksdata/$$(($$n-1)) >/dev/null\
28
      mv $wims_home/log/classes/$wims_class/freeworks/$$n $wims_home/log/classes/$wims_class/freeworks/$$(($$n-1)) >/dev/null\
29
      n=$$(($$n+1))\
30
    done
14297 guerimand 31
  data=$empty
32
  !for k=1 to $nbfreework
33
    rec=!record $k of wimshome/log/classes/$wims_class/freeworks/.freeworks
34
    !if $k!=$freework
35
      data=$data\
36
:$rec
37
    !endif
38
  !next k
39
  !filewrite wimshome/log/classes/$wims_class/freeworks/.freeworks $data
40
!endif
41
nbfreework=!recordcnt wimshome/log/classes/$wims_class/freeworks/.freeworks
42
success=gooderase
14305 guerimand 43
!restart module=home