| 1 |
#!/usr/bin/perl -w |
| 2 |
|
| 3 |
# "Simple but Perfect" mbox to Maildir converter v0.3 |
| 4 |
# Copyright (C) 2001-2003 Philip Mak <pmak@aaanime.net> |
| 5 |
# |
| 6 |
# This program is free software; you can redistribute it and/or |
| 7 |
# modify it under the terms of the GNU General Public License |
| 8 |
# as published by the Free Software Foundation; either version 2 |
| 9 |
# of the License, or (at your option) any later version. |
| 10 |
# |
| 11 |
# This program is distributed in the hope that it will be useful, |
| 12 |
# but WITHOUT ANY WARRANTY; without even the implied warranty of |
| 13 |
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| 14 |
# GNU General Public License for more details. |
| 15 |
# |
| 16 |
# You should have received a copy of the GNU General Public License |
| 17 |
# along with this program; if not, write to the Free Software |
| 18 |
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. |
| 19 |
|
| 20 |
|
| 21 |
use strict; |
| 22 |
use Date::Parse qw( str2time ); |
| 23 |
|
| 24 |
#### Settings |
| 25 |
# This will be used to set the file time (needed for courier-imap and some others) |
| 26 |
# $datestyle = "date": extract date from the "Date: " header |
| 27 |
# $datestyle = "from": extract date from the "From " mbox header |
| 28 |
my $datestyle = "from"; |
| 29 |
|
| 30 |
# Use maildir++ format (append the message size to the filename) |
| 31 |
my $maildirplus = 0; |
| 32 |
#### |
| 33 |
|
| 34 |
|
| 35 |
# Get the hostname |
| 36 |
my $hostname = `hostname`; |
| 37 |
chomp ($hostname); |
| 38 |
|
| 39 |
# check for valid arguments |
| 40 |
my ($maildir) = @ARGV; |
| 41 |
if (!$maildir) { |
| 42 |
print STDERR "Usage: perfect_maildir ~/Maildir < mbox\n"; |
| 43 |
exit 1; |
| 44 |
} elsif (! -d $maildir) { |
| 45 |
print STDERR "Cannot open $maildir\n"; |
| 46 |
exit 1; |
| 47 |
} |
| 48 |
|
| 49 |
# check for writable maildir |
| 50 |
unless (-w "$maildir/cur") { |
| 51 |
print STDERR "Cannot write to $maildir/cur\n"; |
| 52 |
exit 1; |
| 53 |
} |
| 54 |
unless (-w "$maildir/new") { |
| 55 |
print STDERR "Cannot write to $maildir/new\n"; |
| 56 |
exit 1; |
| 57 |
} |
| 58 |
|
| 59 |
my $num = 0; |
| 60 |
my $time = time; |
| 61 |
my $date; |
| 62 |
my $delivered_time; |
| 63 |
|
| 64 |
repeat: |
| 65 |
|
| 66 |
# read header |
| 67 |
my $headers = ''; |
| 68 |
my $flags = ''; |
| 69 |
my $subject = ''; |
| 70 |
while (my $line = <STDIN>) { |
| 71 |
# detect end of headers |
| 72 |
last if $line eq "\n"; |
| 73 |
|
| 74 |
if ($datestyle eq "from") { |
| 75 |
# Get date from the "From " line (this should appears here for the first message only) |
| 76 |
$date = $1 if $line =~ /^From [^ ^\t]+[ \t]+(.{24})/; |
| 77 |
} elsif ($datestyle eq "date") { |
| 78 |
# Get date from the "Date: " header |
| 79 |
$date = $1 if $line =~ /^Date: (.*)$/; |
| 80 |
} |
| 81 |
# strip "From" line from header |
| 82 |
$headers .= $line unless $line =~ /^From ./; |
| 83 |
|
| 84 |
# detect flags |
| 85 |
$flags .= $1 if $line =~ /^Status: ([A-Z]+)/; |
| 86 |
$flags .= $1 if $line =~ /^X-Status: ([A-Z]+)/; |
| 87 |
$subject = $1 if $line =~ /^Subject: (.*)$/; |
| 88 |
} |
| 89 |
|
| 90 |
$num++; |
| 91 |
|
| 92 |
if ($datestyle =~ /(from|date)/) { |
| 93 |
$delivered_time = str2time("$date"); |
| 94 |
} else { |
| 95 |
$delivered_time = $time; |
| 96 |
} |
| 97 |
|
| 98 |
# open output file |
| 99 |
my $file; |
| 100 |
if ($flags =~ /O/) { |
| 101 |
$file = sprintf( "%s%05d%s", "$maildir/cur/$delivered_time.", $num, ".$hostname" ); |
| 102 |
my $extra = ''; |
| 103 |
$extra .= 'F' if $flags =~ /F/; # flagged |
| 104 |
$extra .= 'R' if $flags =~ /A/; # replied |
| 105 |
$extra .= 'S' if (($flags =~ /R/) || ($flags =~ /O/)); # seen |
| 106 |
$extra .= 'T' if $flags =~ /D/; # trashed |
| 107 |
$file .= ":2,$extra" if $extra; |
| 108 |
} else { |
| 109 |
$file = sprintf( "%s%05d%s", "$maildir/new/$delivered_time.", $num, ".$hostname" ); |
| 110 |
} |
| 111 |
|
| 112 |
# filter out the "DON'T DELETE THIS MESSAGE -- FOLDER INTERNAL DATA" message or the message doesn't exists |
| 113 |
if (($num == 1 and $subject eq "DON'T DELETE THIS MESSAGE -- FOLDER INTERNAL DATA") || (!$headers)) { |
| 114 |
$file = '/dev/null'; |
| 115 |
$num--; |
| 116 |
} |
| 117 |
|
| 118 |
open(FILE, ">$file"); |
| 119 |
print FILE "$headers\n"; |
| 120 |
while (my $line = <STDIN>) { |
| 121 |
if ($datestyle eq "from") { |
| 122 |
# Get date from the "From " line (this should appears here for the first message only) |
| 123 |
$date = $1 if $line =~ /^From [^ ^\t]+[ \t]+(.{24})/; |
| 124 |
} |
| 125 |
# End of current message |
| 126 |
last if ($line =~ /^From ./); |
| 127 |
|
| 128 |
# unescape "From" |
| 129 |
$line =~ s/^>From (.)/From $1/; |
| 130 |
|
| 131 |
print FILE $line; |
| 132 |
} |
| 133 |
close(FILE); |
| 134 |
|
| 135 |
utime( $time, $delivered_time, $file ) if ($datestyle =~ /(from|date)/); |
| 136 |
|
| 137 |
if ($maildirplus) { |
| 138 |
my $size = -s $file; |
| 139 |
my $mdplusfile = $file; |
| 140 |
$mdplusfile =~ s/\.$hostname/.$hostname,S=$size/; |
| 141 |
rename $file,$mdplusfile; |
| 142 |
} |
| 143 |
|
| 144 |
goto repeat unless eof(STDIN); |
| 145 |
|
| 146 |
my $elapsed = time - $time; |
| 147 |
print "Inserted $num messages into maildir $maildir in $elapsed seconds\n"; |
Parent Directory
| 
Revision Log
| 
Revision Graph
