#!/bin/ksh

YEARS="2004"
MONTHS="Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec"
PATH="/usr/ucb:${PATH}"

folder +.archive

cd /u9/psionic/mail/.archive

for y in $YEARS; do
	set -- $MONTHS
	while [ $# -gt 0 ]; do
		M1=$1
		Y1=$y
		M2=$2
		Y2=$y

		if [ -z $M2 ]; then 
			# case month == Dec and we don't have a "next" month in the list
			# -before should be Jan of the next year
			M2="Jan" 
			Y2=$(($y + 1))
		fi

		TAR="$M1.$Y1.tar"
		echo -n "${TAR}: "
		echo -n " scanning..."
		FILES=`pick -before "1 $M2 $Y2 00:00:00" -and -after "1 $M1 $Y1 00:00:00" 2>&1`
		if [ $? -ne 0 ]; then
 			echo " no email this month."
		else 
			echo -n " tarring..."
			if [ -f "$TAR.bz2" ]; then
				echo -n "(appending)"
				bunzip2 ${TAR}.bz2
				tar -Af $TAR $FILES
			else
				echo -n "(creating)"
				tar -cf $TAR $FILES
			fi
			echo -n " bzipping..."
			bzip2 $TAR
			echo " - " `echo $FILES | wc -w | awk {'print $1'}` "mail"
		fi
		shift
	done
done