#!/bin/sh

#
# удаление старых резервных копий
#
# способ хранения:			IMAP folder, mailbox, uw-imap
# средство копирования:			специальные роутеры
# средство сохранения копий писем:	пользовательский фильтр /home/backup/.forward:
#
# # Exim filter
#
# seen save Mail/$tod_logfile 640
# finish
#

max_age=8
user=backup
group=mail
homedir=/home/${user}
maildir=${homedir}/Mail
maildirlist=${homedir}/.mailboxlist
today=${maildir}/`date +"%Y%m%d"`

if [ ! -f ${today} ]; then
	touch ${today}
	chown ${user} ${today}
	chgrp ${group} ${today}
fi

rm -rf `ls -dr ${maildir}/2* | awk "{if(NR>${max_age})print \\$0}"`

perl -pi -e 's/^.+$//s if(/^Mail\/2/)' ${maildirlist}
ls -dr ${maildir}/2* | perl -pe 's/^.+?\/(Mail\/[^\/]+?)$/$1/' >>${maildirlist}