#!/bin/sh
# bin eaddress-sort -i "-vD" -- \
# eaddress-sort -- finds older mail and sorts mail by the date sent and the mailing list or the best from address
revision='$Revision: 1.6 $'; version(){ cat <<VRS
$pgm $2
Copyright (C) 2003 by Richard Hawes <rhawes@dma.org>
This is free software; see the GNU General Public License version 2
or later for copying conditions.  There is NO warranty.
VRS
false;
}

help() { cat <<HLP
usage: $pgm -[$one] [ -d directory | -f find_options ] maildir_folder . . .
options:
	-V	print version information and exit
	-H	print help and exit
	-D	debug mode
	-d	directory	(SRTR_DIR)
	-f	find options	(SORT_FIND)
	-v	verbose

sources $sorter_cfg for:
MAILDIR		path for relative mail folder names
		(== "$MAILDIR")
SORT_FIND	find options	(== "$SORT_FIND")
SRTR_DIR	directory for storing \`mailbox'.gz folders (== "$SRTR_DIR")
SRTR_LOGFILE	relative path name for log	(== "$SRTR_LOGFILE")
UMASK		file creation mask (== `umask`)

sorts email in \`maildir' folder into SRTR_DIR/\`mailbox'.gz folders by
the date sent and the email address of mailing list (if detected)
or the best from address

depends on eaddress-sorter and procmail-lib
HLP
false;
}

error() { warn "$@"; false; }

false() { return 1;}

log_mail() {
	[ "$*" ]&&
	echo "$pgm: $*" >> "$SRTR_LOGFILE"
}

sort_mail() {
	local file;

### Filter files into $SRTR_DIR/YYYY-MM/(mail_list_addr|best_from_addr)
	while read -r file; do
		[ "$file" ]&& [ -f "$file" ]|| continue;
		$sorter_pgm "$SRTR_DIR" <"$file"&&
		[ -z "$SORT_DEBUG" ]&&
		log_mail $(rm -f $verb "$file")
	done
}

warn() { echo $pgm:\ "$@">&2;}

readonly sorter_cfg="$HOME/.${sorter_pgm}" sorter_pgm=eaddress-sorter;

yyyy_mm=`date +%Y-%m`;

# default values
MAILDIR=$HOME/Mail
SRTR_DIR=Year-Mo_From
SRTR_LOGFILE=log/sorter.$yyyy_mm;
SORT_FIND="-mtime +7";
UMASK=077;

[ ! -f "$sorter_cfg" ]||
. "$sorter_cfg"|| exit;

pgm=eaddress-sort
one="DHVv"
umask $UMASK;

while getopts "d:f:S:$one" option;do case "$option" in
	H) help;;
	V) version $revision;;
	S) set $OPTARG;;
	D) SORT_DEBUG=y;;
	d) SRTR_DIR="$OPTARG";;
	f) SORT_FIND="$OPTARG";;
	v) verb=-v;;
	\?) false;;
	*) false;;
esac|| exit; done
shift $(($OPTIND-1));

hash $sorter_pgm|| exit;

[ "$MAILDIR" ]|| error "MAILDIR variable is null"|| exit;
cd "$MAILDIR"|| exit;
[ "$SRTR_LOGFILE" ]|| error "SRTR_LOGFILE variable is null"|| exit;
[ -d "$SRTR_DIR" ]|| mkdir -p $verb "$SRTR_DIR"|| exit

if [ "$SORT_DEBUG" ]; then
	SRTR_LOGFILE="${SRTR_LOGFILE}.debug"
fi

while [ $# -gt 0 ]; do
	[ -d "$1/cur" ]&&
	find "$1/cur" $SORT_FIND | sort_mail;
	shift
done;