mirror of
git://projects.qi-hardware.com/wernermisc.git
synced 2024-11-15 12:34:05 +02:00
45 lines
1.2 KiB
Plaintext
45 lines
1.2 KiB
Plaintext
|
#!/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'
|
||
|
|
|
||
|
|
N=2
|
||
|
|
t=
|
||
|
|
>_out
|
||
|
|
n=0
|
||
|
|
for y in 10 11; 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
|
||
|
|
|
||
|
|
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 "_out" using (\$1/1000) with lines title "#qi-hardware" lw 2, \
|
||
|
|
"_out" using (\$2/1000) with lines title "#milkymist" lw 2, \
|
||
|
|
"_out" using :((\$1+\$2)/1000) with lines title "Both"
|
||
|
|
set term png
|
||
|
|
set output "out.png"
|
||
|
|
replot
|
||
|
|
EOF
|