ircstat/: end of March 2012 update (and new script to plot mailing lists)

ircstat/ML

@@ -3,8 +3,8 @@ http://lists.en.qi-hardware.com/pipermail/discussion/
      Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec
 2009                          85 141 137 157  99 145
 2010 180 180 263 214 412 218 492 295 260 132 116 174
-2011 150 155 125 108  71 127  49 106 129  69  71  36
+2011 150 155 125 108  71 127  49 106 129  69  71  33
-2012  39  20
+2012  39  20  38
 
 http://lists.milkymist.org/pipermail/devel-milkymist.org/
 
@@ -12,4 +12,4 @@ http://lists.milkymist.org/pipermail/devel-milkymist.org/
 2009                   3   8  15  27  33  14  24  14
 2010  29  28  36  28  22  25  35  14  27  39  17  12
 2011  61  43  59  81  17  48  43  35  24  78 116 183
-2012  52  67
+2012  52  67  48

ircstat/README

@@ -0,0 +1,22 @@
+These are the scripts and data files used for the monthly statistics
+of the principal IRC channels and mailing lists statistics associated
+with the Qi-Hardware project.
+
+Monthly process:
+
+IRC:
+
+./collect
+./stat
+display out.png
+qippl out.png stat/irc-qihw-MMYY.png
+
+Mailing lists:
+
+# update ML from archive pages
+./mlstat
+qippl out.png stat/ml-qihw-MMYY.png
+
+MMYY is the last full month covered.
+
+

ircstat/mlstat

@@ -0,0 +1,59 @@
+#!/bin/sh
+list=
+while read l; do
+	case "$l" in
+	*qi-hardware*)
+		list=q;;
+	*milkymist*)
+		list=m;;
+	20*)	set -- `echo "$l" | sed "s/    /   -/g"`
+		y=$1
+		for m in 1 2 3 4 5 6 7 8 9 10 11 12; do
+			shift
+			[ "$1" ] || break
+			if [ "$1" = - ]; then
+				v=
+			else
+				v=$1
+			fi
+			eval ${list}_${y}_${m}=$v
+		done
+	esac
+done <ML
+
+N=3
+t=
+>_out
+n=0
+off=2
+for y in 10 11 12; do
+	for m in 1 2 3 4 5 6 7 8 9 10 11 12; do
+		mm=`printf "%02d" $m`
+		qn=`eval echo \\$q_20${y}_${m}`
+		mn=`eval echo \\$m_20${y}_${m}`
+		[ -z "$qn" -a -z "$mn" ] && 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
+		echo ${qn:-0} ${mn:-0} >>_out
+		n=`expr $n + 1`
+	done
+done
+
+gnuplot -persist <<EOF
+set xtics ($t)
+set grid xtics
+set title "Traffic on the Qi-Hardware Mailing Lists"
+set xlabel "Month"
+set ylabel "Traffic (kbytes gzip'ed)"
+plot "_out" using (\$1) with lines title "qi-hardware" lw 2, \
+  "_out" using (\$2) with lines title "milkymist" lw 2, \
+  "_out" using :(\$1+\$2) with lines title "Both" lw 2
+set term png
+set output "out.png"
+replot
+EOF

ircstat/stat

@@ -3,10 +3,11 @@ 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
+N=3
 t=
 >_out
 n=0
+off=2
 for y in 10 11 12; do
 	for m in 1 2 3 4 5 6 7 8 9 10 11 12; do
 		mm=`printf "%02d" $m`