/usr/lib/wims/bin/account.sh is in wims 1:4.08~dfsg1-1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 | #! /bin/sh
# logs and referer of documents, user and class connections in wims/log/...
# Now must be called from wimslogd and housekeep.daily.
if [ "$site_accounting" != "yes" ]; then exit; fi
# working directory. Changeable.
cd `dirname $0`/..
wims_home=`pwd`
tmpdir=$wims_home/tmp/log
cd log
if [ -z "$1" ]; then workday=`date -d "22 hours ago" '+%Y%m%d'`; else workday=$1;fi
test=`grep $workday account/00access.act | awk '{print $1}'`
if [ ! -z "$test" ]; then echo Accounting already done for $workday.; exit; fi
cat access.log* | grep $workday'\.' | grep -v 'devel/' | grep -v 'error' >$tmpdir/acctmp.log
cc=`grep -c . $tmpdir/acctmp.log`
cd=`cat $tmpdir/acctmp.log | awk '{print $3}' | sort | uniq | grep -c .`
cs=`cat session.log* | grep -c $workday`
if [ $cd -gt 0 ]; then
avcc=`expr $cc / $cd`
avcs=`expr $cs / $cd`
else
avcc=0
avcs=0
fi
echo "$workday $cc $cs $cd $avcc $avcs" >>account/00access.act
ml=`cat $tmpdir/acctmp.log | awk 'length($5) < 39 {print $5}' | grep / | sort | uniq`
for i in $ml
do
cc=`grep -c $i $tmpdir/acctmp.log`
cd=`grep $i $tmpdir/acctmp.log | awk '{print $3}' | sort | uniq | grep -c .`
j=`echo $i | tr '/' '@'`
if [ $cd -gt 0 ]; then
avcc=`expr $cc / $cd`
else
avcc=0
fi
echo "$workday $cc $cd $avcc" >>account/$j
done
# Document accounting
mkdir -p account/doc
list=`cat modules/adm/doc.* |\
awk '/^'$workday'\./ && $4=="read" {print $5" "$3}' |\
grep -v '/' |\
awk '$1<100000 {print}' | sort -n`
tot=`echo "$list" | awk '{print $1}' | sort -n | uniq`
for d in $tot
do
cc=`echo "$list" | grep -c '^'$d`
cd=`echo "$list" | grep '^'$d | awk '{print $2}' | sort | uniq | grep -c .`
if [ $cd -gt 0 ]; then
avcd=`expr $cc / $cd`
else
avcd=0
fi
echo "$workday $cc $cd $avcd" >>account/doc/$d
done
cc=`echo "$list" | grep -c .`
cd=`echo "$list" | awk '{print $2}' | sort | uniq | grep -c .`
if [ $cd -gt 0 ]; then
avcc=`expr $cc / $cd`
else
avcc=0
fi
echo "$workday $cc $cd $avcc" >>account/doc/0all
# clear unwanted module accounts
rm -f account/home account/adm@* account/devel@* account/classes@* account/help@* account/light >/dev/null 2>&1
# exit
# Now referer logs.
cat /tmp/referer-home.log | sort | uniq | grep 'http://' | grep -v 'wims\.unice\.fr' | sed 's!http://!!g' | awk -F '#' '{print $1}' >>referer.log
echo >/tmp/referer-home.log
cat referer.log* | grep $workday | awk '{print $3" "$4}' \
| sort | uniq | sort -k 1 >$tmpdir/acctmp.log
grep -v '??' $tmpdir/acctmp.log >referer/refuniq.log
a=`grep -c '??' $tmpdir/acctmp.log`
echo "$workday $a" >>referer/refauto.cnt
sed 's!?!/!g' referer/refuniq.log | awk -F/ '{print $1"/"$2}' > referer/refstem.log
awk -F/ '{print $1}' referer/refstem.log >referer/refsite.log
for s in stem uniq site
do
cat referer/ref$s.log | tr '\?' ' ' | awk '{print $2}' | uniq -c | sort -nr \
| awk '{print '$workday'" "$1" "$2}' >> referer/ref$s.cnt
done
rm -f $tmpdir/acctmp.log
month=`date -d $workday '+%m'`
day=`date -d $workday '+%d'`
year=`date -d $workday '+%Y'`
awk 'BEGIN {a=0.0};
substr($1,1,4)=="'$month$day'" {a=a+$3};
END {printf "'$year$month$day' %4d\n",int(a/0.288+0.5)};
' load-$year$month >>account/00load.avg
# user and class connection time accounting
ccsum_outdir=ccaccount
ccsum_date=$workday
rm -f $tmpdir/cc.log 2>/dev/null
[ -f $ccsum_outdir/done ] && grep '^'$ccsum_date $ccsum_outdir/done >/dev/null && exit
cat access.log access.log.old* 2>/dev/null | grep '^'$ccsum_date'.*,' | sort >$tmpdir/cc.log
if [ ! -s $tmpdir/cc.log ]; then exit; fi
export ccsum_outdir ccsum_date
../bin/ccsum $tmpdir/cc.log
rm -f $tmpdir/cc.log
|