ircstat/: IRC traffic analysis

ircstat/collect

@@ -0,0 +1,4 @@
+#!/bin/sh
+wget --mirror --no-parent -nv http://en.qi-hardware.com/irclogs/
+wget --mirror --no-parent -nv http://en.qi-hardware.com/mmlogs/
+

ircstat/stat

@@ -0,0 +1,44 @@
+#!/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