#!/usr/bin/env perl

use strict;
use POSIX qw/strftime/;

my $time = time - 60 * 60 * 24;
my $file = strftime ("%Y-%m-%d", localtime ($time));

system ("gzip /home/tskirvin/.procmail/*/$file > /dev/null");

foreach my $dir ( qw( /home/tskirvin/.procmail/backup 
                      /home/tskirvin/.procmail/spam
                      /home/tskirvin/.procmail/mod-reject
                      /home/tskirvin/.procmail/logs ) ) {
    if (-d $dir) { 
        system ("cd $dir; echo $dir; /home/tskirvin/.config/bin/mailmove");
    }
}