#!/bin/sh

MIRRORDIR=~/p6_mailboxes

# only keep 1 month of mailboxes
/usr/sbin/tmpwatch -m 720 $MIRRORDIR

mailsum download --nntp \
	-s nntp.perl.org \
	-g perl.perl6.users \
	-g perl.perl6.compiler \
	-g perl.perl6.language \
	-g perl.perl6.internals \
	-f '2 weeks ago' -r \
	-o $MIRRORDIR/"p6_`date +'%Y-%m-%d_%H-%M'`.mbox" \
	`find $MIRRORDIR -type f -name '*.mbox'` \
	>~/.mirror_nntp.log #2>&1

find $MIRRORDIR -size 0 | xargs rm -f