Subversion Repositories wimsdev

Rev

Rev 14537 | Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
14297 guerimand 1
!! reactive a freework which is perime
2
 
3
!! --- testing if freework is perime
4
!if $activetest!=2
5
  error=fwnotperime
6
  job=configfw
7
  !changeto $job.proc
8
!endif
9
 
10
!! testing for enough class capacity
11
!readproc adm/class/quotafree.proc
12
!read adm/du $wims_home/log/classes/$wims_class/freeworksdata/$k_/work
13
nbuser=!recordcnt wimshome/log/classes/$wims_class/.userlist
14
need=$[$nbuser*$sizelimitfile*0.25-$du]
15
!if $quota_free-$need <10
16
  error=notenoughfreespace
17
  job=configfw
18
  !changeto $job.proc
19
!endif
20
 
21
!! change statut
22
activetest=1
23
update_content=1\
24
$class_expiration\
25
$title\
26
$desc\
27
$comment\
28
$type\
29
$deadline.$timedeadline\
30
$soldate.$timesoldate\
31
$sizelimitfile
32
update_field=$freework
33
update_nbline=10
34
!read adm/uprecord wimshome/log/classes/$wims_class/freeworks/.freeworks
35
 
36
success=goodstatut
37
!if $back=1
38
  !restart module=home
39
!else
40
  job=configfw
41
  !reset back
42
  !changeto $job.proc
43
!endif
44
 
45