Date:2012-04-06 19:15:28 (7 years 5 months ago)
Author:Werner Almesberger
Commit:1b9eddfe72f86d904c8513e77e9eb14137d103ee
Message:ircstat/: end of March 2012 update (and new script to plot mailing lists)

Files: ircstat/ML (2 diffs)
ircstat/README (1 diff)
ircstat/mlstat (1 diff)
ircstat/stat (1 diff)

Change Details

ircstat/ML
33     Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec
442009 85 141 137 157 99 145
552010 180 180 263 214 412 218 492 295 260 132 116 174
62011 150 155 125 108 71 127 49 106 129 69 71 36
72012 39 20
62011 150 155 125 108 71 127 49 106 129 69 71 33
72012 39 20 38
88
99http://lists.milkymist.org/pipermail/devel-milkymist.org/
1010
...... 
12122009 3 8 15 27 33 14 24 14
13132010 29 28 36 28 22 25 35 14 27 39 17 12
14142011 61 43 59 81 17 48 43 35 24 78 116 183
152012 52 67
152012 52 67 48
ircstat/README
1These are the scripts and data files used for the monthly statistics
2of the principal IRC channels and mailing lists statistics associated
3with the Qi-Hardware project.
4
5Monthly process:
6
7IRC:
8
9./collect
10./stat
11display out.png
12qippl out.png stat/irc-qihw-MMYY.png
13
14Mailing lists:
15
16# update ML from archive pages
17./mlstat
18qippl out.png stat/ml-qihw-MMYY.png
19
20MMYY is the last full month covered.
21
22
ircstat/mlstat
1#!/bin/sh
2list=
3while read l; do
4    case "$l" in
5    *qi-hardware*)
6        list=q;;
7    *milkymist*)
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
22done <ML
23
24N=3
25t=
26>_out
27n=0
28off=2
29for y in 10 11 12; 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
45done
46
47gnuplot -persist <<EOF
48set xtics ($t)
49set grid xtics
50set title "Traffic on the Qi-Hardware Mailing Lists"
51set xlabel "Month"
52set ylabel "Traffic (kbytes gzip'ed)"
53plot "_out" using (\$1) with lines title "qi-hardware" lw 2, \
54  "_out" using (\$2) with lines title "milkymist" lw 2, \
55  "_out" using :(\$1+\$2) with lines title "Both" lw 2
56set term png
57set output "out.png"
58replot
59EOF
ircstat/stat
33M=en.qi-hardware.com/mmlogs/milkymist
44# Saving to: `en.qi-hardware.com/irclogs/qi-hardware_2010-06-11.log.html'
55
6N=2
6N=3
77t=
88>_out
99n=0
10off=2
1011for y in 10 11 12; do
1112    for m in 1 2 3 4 5 6 7 8 9 10 11 12; do
1213        mm=`printf "%02d" $m`

Archive Download the corresponding diff file

Branches:
master



interactive