From 1b9eddfe72f86d904c8513e77e9eb14137d103ee Mon Sep 17 00:00:00 2001
From: Werner Almesberger <werner@almesberger.net>
Date: Fri, 6 Apr 2012 14:15:28 -0300
Subject: [PATCH] ircstat/: end of March 2012 update (and new script to plot
 mailing lists)

---
 ircstat/ML     |  6 ++---
 ircstat/README | 22 +++++++++++++++++++
 ircstat/mlstat | 59 ++++++++++++++++++++++++++++++++++++++++++++++++++
 ircstat/stat   |  3 ++-
 4 files changed, 86 insertions(+), 4 deletions(-)
 create mode 100644 ircstat/README
 create mode 100755 ircstat/mlstat

diff --git a/ircstat/ML b/ircstat/ML
index 138a91a..4e4a3c9 100644
--- a/ircstat/ML
+++ b/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
-2012  39  20
+2011 150 155 125 108  71 127  49 106 129  69  71  33
+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
diff --git a/ircstat/README b/ircstat/README
new file mode 100644
index 0000000..fdf32be
--- /dev/null
+++ b/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.
+
+
diff --git a/ircstat/mlstat b/ircstat/mlstat
new file mode 100755
index 0000000..e590134
--- /dev/null
+++ b/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
diff --git a/ircstat/stat b/ircstat/stat
index 9bf3bd8..ed99c8d 100755
--- a/ircstat/stat
+++ b/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`