-#!/usr/bin/perl
+#!/usr/bin/perl -w
-# "Simple but Perfect" mbox to Maildir converter v0.2
+# "Simple but Perfect" mbox to Maildir converter v0.3
# Copyright (C) 2001-2003 Philip Mak <pmak@aaanime.net>
#
# This program is free software; you can redistribute it and/or
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
-# Get the hostname
+use strict;
+use Date::Parse qw( str2time );
+
+#### Settings
+# This will be used to set the file time (needed for courier-imap and some others)
+# $datestyle = "date": extract date from the "Date: " header
+# $datestyle = "from": extract date from the "From " mbox header
+my $datestyle = "from";
+
+# Use maildir++ format (append the message size to the filename)
+my $maildirplus = 0;
+####
+
+
+# Get the hostname
my $hostname = `hostname`;
chomp ($hostname);
# check for valid arguments
-
my ($maildir) = @ARGV;
if (!$maildir) {
print STDERR "Usage: perfect_maildir ~/Maildir < mbox\n";
exit 1;
+} elsif (! -d $maildir) {
+ print STDERR "Cannot open $maildir\n";
+ exit 1;
}
# check for writable maildir
my $num = 0;
my $time = time;
+my $date;
+my $delivered_time;
repeat:
# detect end of headers
last if $line eq "\n";
+ if ($datestyle eq "from") {
+ # Get date from the "From " line (this should appears here for the first message only)
+ $date = $1 if $line =~ /^From [^ ^\t]+[ \t]+(.{24})/;
+ } elsif ($datestyle eq "date") {
+ # Get date from the "Date: " header
+ $date = $1 if $line =~ /^Date: (.*)$/;
+ }
# strip "From" line from header
$headers .= $line unless $line =~ /^From ./;
$num++;
+if ($datestyle =~ /(from|date)/) {
+ $delivered_time = str2time("$date");
+} else {
+ $delivered_time = $time;
+}
+
# open output file
my $file;
if ($flags =~ /O/) {
- $file = "$maildir/cur/$time.$num.$hostname";
+ $file = sprintf( "%s%05d%s", "$maildir/cur/$delivered_time.", $num, ".$hostname" );
my $extra = '';
$extra .= 'F' if $flags =~ /F/; # flagged
$extra .= 'R' if $flags =~ /A/; # replied
$extra .= 'T' if $flags =~ /D/; # trashed
$file .= ":2,$extra" if $extra;
} else {
- $file = "$maildir/new/$time.$num.$hostname";
+ $file = sprintf( "%s%05d%s", "$maildir/new/$delivered_time.", $num, ".$hostname" );
}
# filter out the "DON'T DELETE THIS MESSAGE -- FOLDER INTERNAL DATA" message or the message doesn't exists
open(FILE, ">$file");
print FILE "$headers\n";
while (my $line = <STDIN>) {
- # detect end of message
- last if $line =~ /^From ./;
+ if ($datestyle eq "from") {
+ # Get date from the "From " line (this should appears here for the first message only)
+ $date = $1 if $line =~ /^From [^ ^\t]+[ \t]+(.{24})/;
+ }
+ # End of current message
+ last if ($line =~ /^From ./);
# unescape "From"
$line =~ s/^>From (.)/From $1/;
print FILE $line;
}
close(FILE);
+
+utime( $time, $delivered_time, $file ) if ($datestyle =~ /(from|date)/);
+
+if ($maildirplus) {
+ my $size = -s $file;
+ my $mdplusfile = $file;
+ $mdplusfile =~ s/\.$hostname/.$hostname,S=$size/;
+ rename $file,$mdplusfile;
+}
+
goto repeat unless eof(STDIN);
my $elapsed = time - $time;