#!/usr/bin/perl
# $Id: spamscan.pl,v 1.1 2004/01/31 00:17:04 sra Exp $
#
# Summarize the contents of /var/spool/spam.
# Maybe add cleanup actions to this at some later date.

use strict;
use Mail::Folder::Maildir;
use Date::Parse;
use Date::Format;

my $maildir = "/var/spool/spam";

my $f = Mail::Folder->new(maildir => $maildir)
    or die("Couldn't open $maildir");

for my $m (sort { $a <=> $b } $f->message_list) {
    chomp(my ($date, $from, $to, $subject) = $f->get_fields($m, qw(date from to subject)));
    $date = time2str("%Y%m%d%H%M%S", str2time($date));
    printf("%s | %-50.50s | %-70.70s\n", $date, $from, $subject);
}

$f->close;