mirror of
git://projects.qi-hardware.com/wernermisc.git
synced 2024-11-24 21:17:09 +02:00
62aa854036
The "stat" script always cuts off the last month, so in order to show December 2012, we already need January 2013.
60 lines
1.3 KiB
Bash
Executable File
60 lines
1.3 KiB
Bash
Executable File
#!/bin/sh
|
|
Q=en.qi-hardware.com/irclogs/qi-hardware
|
|
M=en.qi-hardware.com/mmlogs/milkymist
|
|
# Saving to: `en.qi-hardware.com/irclogs/qi-hardware_2010-06-11.log.html'
|
|
|
|
all=false
|
|
case "$1" in
|
|
-a) all=true;;
|
|
"") break;;
|
|
*) echo "usage: $0 [-a]" 1>&2
|
|
exit 1;;
|
|
esac
|
|
|
|
N=3
|
|
t=
|
|
>_out
|
|
n=0
|
|
off=2
|
|
for y in 10 11 12 13; do
|
|
for m in 1 2 3 4 5 6 7 8 9 10 11 12; do
|
|
mm=`printf "%02d" $m`
|
|
[ "`echo ${Q}_20${y}-${mm}-*`" = "${Q}_20${y}-${mm}-*" ] &&
|
|
[ "`echo ${M}_20${y}-${mm}-*`" = "${M}_20${y}-${mm}-*" ] &&
|
|
continue
|
|
if [ `expr $n % $N` = 0 ]; then
|
|
[ "$t" ] && t=$t,
|
|
t="$t \"$m/$y\" $n"
|
|
else
|
|
t="$t, \"\" $n"
|
|
fi
|
|
# cat ${Q}_20${y}-${mm}-*.log.html | gzip -9 | wc -c >>_out
|
|
qn=`sed 's/<[^>]*>/ /g' ${Q}_20${y}-${mm}-*.log.html |
|
|
gzip -9 | wc -c`
|
|
mn=`sed 's/<[^>]*>/ /g' ${M}_20${y}-${mm}-*.log.html |
|
|
gzip -9 | wc -c`
|
|
echo $qn $mn >>_out
|
|
n=`expr $n + 1`
|
|
done
|
|
done
|
|
|
|
if $all; then
|
|
src=_out
|
|
else
|
|
src="<sed '\$d' _out"
|
|
fi
|
|
|
|
gnuplot -persist <<EOF
|
|
set xtics ($t)
|
|
set grid xtics
|
|
set title "Traffic on the Qi-Hardware IRC channels"
|
|
set xlabel "Month"
|
|
set ylabel "Traffic (kbytes gzip'ed)"
|
|
plot "$src" using (\$1/1000) with lines title "#qi-hardware" lw 2, \
|
|
"$src" using (\$2/1000) with lines title "#milkymist" lw 2, \
|
|
"$src" using :((\$1+\$2)/1000) with lines title "Both" lw 2
|
|
set term png
|
|
set output "out.png"
|
|
replot
|
|
EOF
|