#!/usr/bin/perl -w
# -*- cperl -*-

# Okay, nothin' fancy, just grab my mail and store it on disk:
use Mail::POP3Client;
use DateTime;
use DateTime::Format::Mail;
use File::Spec::Functions;
my $basedir = '/home/nathan/mail-proxy/store';
my $EOL = "\015\012"; $|=1;

my $pop = new Mail::POP3Client( USER     => "jonadab",
                                PASSWORD => "[secret]",
                                HOST     => "mail.bright.net" );
$pop->Connect();

my $cnt = $pop->Count();
if ($cnt) {
  print "The server has $cnt messages for me.\n";
  my $now = DateTime->now();
  my $nowdir = catfile($basedir, $now->ymd() . '_' . $now->hour() . '_
+' . $now->minute() . '_' . $now->second());
  my $nowrcvd = DateTime::Format::Mail->new()->format_datetime($now);
  while (-e $nowdir) { my @c = qw(hai lou qan xi cho nau); $nowdir .= 
+$c[rand @c]; }
  mkdir $nowdir;
  for my $num (1..$cnt) {
    my $file = catfile($nowdir, $num);
    my $content = $pop->Retrieve($num);
    if ($content) {
      if (open MAIL, '>', $file) {
        print "."; print "\n" if not $num % 60;
        print MAIL "Received: from mail.bright.net by $0; $now$EOL";
        print MAIL $content;
        close MAIL;
        $pop->Delete($num);
      } else {
        print "!"; print "\n" if not $num % 60;
      }
    } else {
      print "o"; print "\n" if not $num % 60;
    }
  }
  $pop->Close();
  print "\n\n";
}
[download]