#! /bin/sh

user=dovecot
group=mail
maildir=/var/vmail/bsd.falbi.kiev.ua/corvax
maildirlist=${maildir}/.subscriptions
today=${maildir}/.backup.`date +"%Y%m%d"`
max_age=30

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

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

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