Werner's Miscellanea
Sign in or create your account | Project List | Help
Werner's Miscellanea Git Source Tree
Root/
Source at commit e0063a90c557863e7733660a44065c4c75874221 created 9 years 8 months ago. By Werner Almesberger, ircstat/ML: update for 2014-05 | |
---|---|
1 | #!/bin/sh |
2 | list= |
3 | while read l; do |
4 | case "$l" in |
5 | *qi-hardware*) |
6 | list=q;; |
7 | *serverraum*) |
8 | list=m;; |
9 | 20*) set -- `echo "$l" | sed "s/ / -/g"` |
10 | y=$1 |
11 | for m in 1 2 3 4 5 6 7 8 9 10 11 12; do |
12 | shift |
13 | [ "$1" ] || break |
14 | if [ "$1" = - ]; then |
15 | v= |
16 | else |
17 | v=$1 |
18 | fi |
19 | eval ${list}_${y}_${m}=$v |
20 | done |
21 | esac |
22 | done <ML |
23 | |
24 | N=4 |
25 | t= |
26 | >_out |
27 | n=0 |
28 | off=2 |
29 | for y in 10 11 12 13 14; do |
30 | for m in 1 2 3 4 5 6 7 8 9 10 11 12; do |
31 | mm=`printf "%02d" $m` |
32 | qn=`eval echo \\$q_20${y}_${m}` |
33 | mn=`eval echo \\$m_20${y}_${m}` |
34 | [ -z "$qn" -a -z "$mn" ] && continue |
35 | if [ `expr $n % $N` = 0 ]; then |
36 | [ "$t" ] && t=$t, |
37 | t="$t \"$m/$y\" $n" |
38 | else |
39 | t="$t, \"\" $n" |
40 | fi |
41 | # cat ${Q}_20${y}-${mm}-*.log.html | gzip -9 | wc -c >>_out |
42 | echo ${qn:-0} ${mn:-0} >>_out |
43 | n=`expr $n + 1` |
44 | done |
45 | done |
46 | |
47 | gnuplot -persist <<EOF |
48 | set xtics ($t) |
49 | set grid xtics |
50 | set title "Traffic on the Qi-Hardware Mailing Lists" |
51 | set xlabel "Month" |
52 | set ylabel "Traffic (kbytes gzip'ed)" |
53 | plot "_out" using (\$1) with lines title "qi-hardware" lw 2, \ |
54 | "_out" using (\$2) with lines title "m-labs" lw 2, \ |
55 | "_out" using :(\$1+\$2) with lines title "Both" lw 2 |
56 | set term png |
57 | set output "out.png" |
58 | replot |
59 | EOF |
60 |
Branches:
master