#! /bin/sh
case $# in
	1)	;;
	*)	echo Usage: "$0" month-number 1>&2
		exit 1
		;;
esac
case "$1" in
	1|01|jan|Jan|JAN)	m=01 ;;
	2|02|feb|Feb|FEB)	m=02 ;;
	3|03|mar|Mar|MAR)	m=03 ;;
	4|04|apr|Apr|APR)	m=04 ;;
	5|05|may|May|MAY)	m=05 ;;
	6|06|jun|Jun|JUN)	m=06 ;;
	7|07|jul|Jul|JUL)	m=07 ;;
	8|08|aug|Aug|AUG)	m=08 ;;
	9|09|sep|Sep|SEP)	m=09 ;;
	10|oct|Oct|OCT)		m=10 ;;
	11|nov|Nov|NOV)		m=11 ;;
	12|dec|Dec|DEC)		m=12 ;;
	*)			echo Usage: "$0" month-number 1>&2
				exit 1
				;;
esac
mdb=`conf -p db -config .mouse/config.db`
adb=`conf -p db -config .anne/config.cur.db`
jdb=`conf -p db -config .joint/config.db`
pid=$$
t=/tmp/mr.$pid
touch $t.x
rm -f $t.*
trap 'touch '$t'.x; rm -f '$t'.*; exit' 0 1 2 15
if sslock $adb $pid; then :; else exit 1; fi
< $adb select -date gelt $m\01 @+1m -and -not -flag A > $t.a
ssunlock $adb
if sslock $mdb $pid; then :; else ssunlock $adb; exit 1; fi
< $mdb select -date gelt $m\01 @+1m -and -not -flag A > $t.m
ssunlock $mdb
if sslock $jdb $pid; then :; else ssunlock $adb; ssunlock $mdb; exit 1; fi
< $jdb select -date gelt $m\01 @+1m -and -not -flag A > $t.j
ssunlock $jdb
cat $t.a $t.m |
	((select -split 3 -cat out.bas.res.taxes -or -cat out.ex.other.membership | report out 5 > $t.o.a) 3>&1) |
	((select -split 3 -cat out.bas.res -or -cat out.bas.medical -or -cat out.bas.other -or -cat out.ex.medical -or -cat 'out.ex.serv.safety deposit box' -or -cat out.ex.other.rrsp | report out 4 > $t.o.b) 3>&1) |
	((select -split 3 -cat out | report out 3 > $t.o.c) 3>&1) |
	((select -split 3 -cat in | report in 3 > $t.i) 3>&1) |
	select -to rrsp-hbp > $t.rrsp
sort < $t.o.a
sort < $t.o.b
sort < $t.o.c
#cat $t.a $t.m | select -cat out | report out 2
cat $t.a $t.m | select -cat out | report out 1
cat $t.rrsp | report transaction 1 | sed -e 's/^transaction/rrsp-hbp/'
cat $t.a $t.m | select -cat in | report in 2
cat $t.a $t.m | select -cat in | report in 1
< $t.j totals | sed -n -e /tbill-virtual/d -e /tbill/p | sort