Subversion Repositories wimsdev

# GetModule use statistic
# Permet d'obtenir les infos d'utilisation concernant les modules pédagogiques sur une durée spécifiée par "option" (quatre choix :
                - day un jour
                - week une semaine
                - month un mois
                - year un an
                

!if $ident_type=$empty and $format != $empty
        ident_type=$format
!endif

badchars=!text select ?*#~!@ in $option
!if .. isin $option or $badchars!=$empty
 error=illegal file name
 !exit
!endif

!bound option within day,week,month,year default year

test=!fileexists wimshome/log/account/00access.act
!if $test!=yes
  error=nostat
  !exit
!endif

end=!char 1 to 8 of $wims_now

!sh cd $wims_home/log/account/;\
    end=$end;\
    start=`date -d "1 $option ago" '+%Y%m%d'`;\
    ll=`ls [EHLUct]* | grep -v 'classes@' | sed 's/\...$$//g' | sort | uniq`;\
    export ll start end;\
    $wims_home/bin/modstat | awk '$$1>0{print $$0}' >$wims_home/sessions/$wims_session/modstat.mod          

fname=sessions/$wims_session/modstat.mod