my $email = <STDIN>;
# rip subject out of email
# we cheat for now; this isn't correct at all.
- my ($subject) = $email =~ /^Subject:\s+(.+)/;
+ my ($subject) = $email =~ /^Subject:\s*(.+)/i;
$subject = decode_rfc1522($subject);
$subject =~ s/\n//g;
# create a queue entry
my @queue;
while (defined($entry = $dir->read)) {
#valid queue entries are entirely numeric
+ print STDERR "Dealing with $entry\n" if $DEBUG;
last if not defined $entry;
next if $entry !~ /^\d+$/;
# they're also just readable files