#!/usr/bin/perl -w

# Some vestige of local delivery
# For another method, have a look at Mail::LocalDelivery

use strict;
use Net::POP3;
use Mail::Box;
use Mail::Box::Manager;
use Mail::Message;
use Mail::Message::Construct;

# Use ~/.netrc to determine pop3 login and password

use vars qw($host $localmailbase $foldername);
use vars qw($pop3);
use vars qw($mgr $folder);

$host = 'hera.informatik.uni-frankfurt.de';
$localmailbase = "/home/corion/mail/";
$foldername = "informatik";

$mgr = Mail::Box::Manager->new(folderdir => $localmailbase,
                               default_folder_type => 'maildir',
                               );
$folder = $mgr->open( folder => $foldername, access => 'rw', create => 1 );
die "Couldn't open mailfolder '$foldername' : $!\n" unless $folder;

print "Using folder ",$folder->name,"\n";
my %messageIDs;
%messageIDs = map { $_->get("Message-ID"), $_ } ($folder->messages);

$pop3 = Net::POP3->new($host);
my $total = $pop3->login;
die "Error logging into $host" unless defined $total;

# No news is good news
exit unless $total > 0;

my $firstunread = $pop3->last() +1;

for my $message ($firstunread..$total) {
  print "Message $message\n";
  my $message_lines = $pop3->get($message);
  #local *F;
  #open F, "< inmail" or die "Couldn't read test message 'inmail' : $!\n";
  #my $message_store = Mail::Message->read(\*F);
  my $message_store = Mail::Message->read($message_lines);
  if ($message_store) {
    if (defined $messageIDs{$message_store->get("Message-ID")}) {
      print "Duplicate, rejected ",$message_store->get("subject"),"\n";
    } else {
      print "Subject:",$message_store->get("subject"),"\n";
      $folder->addMessage( $message_store );
    };
  };
  #close F;
};

die "Couldn't save '$foldername' : $!\n" unless $folder = $folder->write();
$mgr->close($folder);