#!/bin/mksh
#
# markus schnalke <meillo@marmaro.de>
# 2016-03


tmp="`mktemp`"
export MMHC=`mktemp`
trap 'rm -f "$tmp" "$MMHC"' 0 1 2 15

start=2013-01-01
end=`date +%Y-%m`-01

months={`seq -s, ${start%%-*} ${end%%-*}`}-{`seq -s, -f%02.0f 1 12`}-01
months="`echo $months | tr ' ' '\n' | sed -n "/$start/,/$end/p" | xargs`"

folder +l/inetbib >/dev/null 

prev="`date -R -d ${months%% *}`"
for i in ${months#* } ; do
	month="`date -d "$prev" +%Y-%m`"
	d="`date -R -d "$i"`"
	nmails="`pisc -seq stats -after "$prev" -and -before "$d" | wc -l`"
	njobs="`scan stats | egrep -i 'stellena|ausbildung' | egrep -vi 're:|aw:' | wc -l`"
	procent="`echo "scale=0; 100 * $njobs / $nmails" | bc -ql`"
	printf "%s\t%d\t%d\t%d\n" "$month" "$nmails" "$njobs" "$procent"
	prev="$d"
done | tee "$tmp"

test $# -ne 1 && exit

gnuplot <<!
	set terminal png size 1000,500 
	set output '$1'

	set style data histograms
	set style histogram cluster gap 1
	set style fill solid border -1
	set boxwidth 0.9

	set yrange [0:400]
	set ytics textcolor rgb "blue"
	set y2range [0:100]
	set y2tics textcolor rgb "red"
	set tics nomirror
	set xtics rotate by 90 offset 0,-3
	set bmargin 5
	set tics out
	set grid y
	set key left top

	set title 'Anteil der Job-Mails auf der Inetbib-Mailingliste'

	plot '$tmp' using 2:xtic(1) ti 'Mails gesamt' lc rgb "blue", \
		'' u 3 ti 'Job-Mails' lc rgb "skyblue", \
		'' u 4 ti 'Anteil (%)' axis x1y2 lc rgb "red" lw 3 with lines
!