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 |