Subversion Repositories wimsdev

!! define variables :
!! quota_total : deprecated use wims_class_quota instead ?
!! quota_free : actual free space of the class
!! quota_used : actual used space 
!! quota_reserved : actual reserved space for some activity (active freework ...)
!! auth_upload : yes if class capacity is ok (else no)
!! wims_read_parm is proc or html (proc make calcul and html show result on page)

!if $wims_read_parm=html
  !goto html
!else
  !goto proc
!endif

:proc
!! ---- calcul
!read adm/du $wims_home/log/classes/$wims_class
!if $class_type=$empty
  class_type=!defof class_type in wimshome/log/classes/$wims_class/.def
!endif
!if $class_type iswordof 2 4 and $wims_superclass_quota!=$empty
  quota_total=$wims_superclass_quota
!else
  quota_total=$wims_class_quota
!endif
quota_used=$du
!! -------------------- calculate space reserved
quota_reserved=0
!! ------- space reserved for active freework of type>=2
nb_=!recordcnt wimshome/log/classes/$wims_class/freeworks/.freeworks
nbuser_=!recordcnt wimshome/log/classes/$wims_class/.userlist
!for k_=1 to $nb_
  dt_=!record $k_ of wimshome/log/classes/$wims_class/freeworks/.freeworks
  !distribute line $dt_ into s_,bl,bl,bl,bl,t_,bl,bl,c_
  !if $s_=1 and $t_>=2
    !read adm/du $wims_home/log/classes/$wims_class/freeworksdata/$k_/work
    quota_reserved=$[$quota_reserved+$nbuser_*$c_*0.25-$du]
  !endif
!next k_

quota_reserved=$[min($quota_reserved,$wims_class_quota-$quota_used)]
!! -------------------- end reserved calculation
quota_free=$[$quota_total-$quota_used-$quota_reserved]

!if $quota_free<5
  auth_upload=no
!else
  auth_upload=yes
!endif

!exit

:html
   !readproc adm/class/classlang lang/scriptadmclass.phtml adm_class_quotafree
   <center>
   <label for="freespace">$(name_availablespace[1]) ($wims_class_quota $name_mega)</label>
   <canvas id="freespace" width="700" height="50">
     $(name_availablespace[1]) : $wims_class_quota  $name_mega ($(name_availablespace[2]): $quota_used $name_mega ; $(name_availablespace[4]): $quota_reserved $name_mega ; $(name_availablespace[3]): $quota_free $name_mega ).
   </canvas>
  !set x1=$[floor(($quota_used)/$wims_class_quota*700)]
  !set x2=$[floor(($quota_reserved)/$wims_class_quota*700)]
  <script type="application/javascript">
    function draw() {
      var canvas = document.getElementById("freespace");
      if (canvas.getContext) {
        var ctx = canvas.getContext("2d");

        ctx.fillStyle = 'red';
        ctx.fillRect(1,1,$x1,24);
        ctx.fillRect(100,30,10,10);
        !if $quota_reserved >0
          ctx.fillStyle = 'yellow';
          ctx.fillRect($x1,1,$x2,24);
          ctx.fillRect(250,30,10,10);
        !endif
        ctx.fillStyle = 'green';
        ctx.fillRect($[1+$x1+$x2],1,$[700-$x1-$X2],24);
        ctx.fillRect(400,30,10,10);
        ctx.fillStyle = 'black';
        ctx.strokeRect(0, 0, 700, 24);
        ctx.fillText('$(name_availablespace[2])',120,40);
        ctx.fillText('$quota_used',$[floor($x1/2)],15);
        ctx.fillText('$(name_availablespace[3])',420,40);
        ctx.fillText('$quota_free',$[floor((700+$x1+$x2)/2)],15);
        !if $quota_reserved>0
          ctx.fillText('$(name_availablespace[4])',270,40);
          ctx.fillText('$quota_reserved',$[floor($x1+($x2)/2)],15);
        !endif

      }
    }
    draw();
   </script>
   </center>

!exit