Subversion Repositories wimsdev

nowtime=$wims_now
start10=!date -d '10 minutes ago' '+%Y%m%d.%H:%M:%S'
start30=!date -d '30 minutes ago' '+%Y%m%d.%H:%M:%S'
start1h=!date -d '1 hours ago' '+%Y%m%d.%H:%M:%S'
start3h=!date -d '3 hours ago' '+%Y%m%d.%H:%M:%S'

ses=!sh cat $wims_home/log/access.log.old1 $wims_home/log/access.log 2>/dev/null |\
 awk '$$1 >= "$start10" && ! /_error/ {print substr($$2,1,4)" "$$3" "$$5" "$$6}' |\
 sort -r |\
 awk '{if (x[$$1] == "") {x[$$1] = 1};  print x[$$1]" "$$0; x[$$1] += 1;}'|\
 sort -n -r|\
 awk '{if (y[$$2] != "") {next}  print $$0; y[$$2] = 1;}'|\
 sort  -n  

load=!sh uptime
load=!word -3 to -1 of $load
load=!translate , to $ $ in $load
!distribute words $load into load1,load5,load15
!if $load15!=$empty
 load1=$[$load1*100]
 load5=$[$load5*100]
 load15=$[$load15*100]
 !if NaN isin $load1 $load5 $load15
  !reset load1,load5,load15
 !endif
!endif

sessions=!sh ls $wims_home/sessions | grep -v '\-' | grep -v '[a-z]'
sessions=!words2items $sessions
sss=
!for s in $sessions
 S=!char -4 to -1 of $s
 sss=!append line $S:$s to $sss
!next s
!writefile wimshome/$wims_sesdir/lastses $sss
!sh $wims_home/bin/dicsort $wims_home/$wims_sesdir/lastses
dictionary=$wims_home/$wims_sesdir/lastses.sorted
translator_unknown=leave
translator_switch=leavelines
ses=!exec translator $ses

accesscnt=!sh cat $wims_home/log/access.log.old1 $wims_home/log/access.log 2>/dev/null |\
 awk 'BEGIN {a1=0; a2=0; a3=0; a4=0;};\
        $$1 >= "$start10" {a1++};\
        $$1 >= "$start30" {a2++};\
        $$1 >= "$start1h" {a3++};\
        $$1 >= "$start3h" {a4++};\
        END {print a1" "a2" "a3" "a4};'

!distribute words $accesscnt into access10m, access30m, access1h, access3h