Subversion Repositories wimsdev

# GetServerstat
# Fournit des statistiques sur le serveur
# version, adresse, etc...
# provides server informations
# option=
# class : number of class of each level
# user : number of user of each level
# classgeoloc : geoloc file of class
# servergeoloc : geoloc of the server
# Usage :
# /wims.cgi?module=adm/raw&job=getserverstat&option=

!bound option within class,user,classgeoloc,servergeoloc default $empty
!if $option!=$empty
  ty=!positionof item $option in class,user,classgeoloc,servergeoloc
  file=!item $ty of stat.class,stat.user,class.geoloc,server.geoloc
  !let test=!fileexists wimshome/log/stat/$file
  !if $test=yes
    !if $ty>2
      !sh mkdir -p $wims_home/$wims_sesdir/getfile/stat;\
          ln -s -f $wims_home/log/stat/$file $wims_home/$wims_sesdir/getfile/stat/$file;
    !else
      !sh mkdir -p $wims_home/$wims_sesdir/getfile/stat;
      a=!record -1 of wimshome/log/stat/$file
      b=!word 2 to -1 of $a
      a=!word 1 of $a
      !writefile wimshome/$wims_sesdir/getfile/stat/$file $a\
$b
    !endif
  !else
    ident_type=wims
    error=nofile
  !endif
!else
  ident_type=wims
  error=badoption
!endif
fname = $wims_sesdir/getfile/stat/$file