chiark / gitweb /
my-debmirror: drop d-i images
[bin.git] / perfect-maildir
1 #!/usr/bin/perl
2
3 # "Simple but Perfect" mbox to Maildir converter v0.1
4 # by Philip Mak <pmak@aaanime.net>
5
6 # Usage: perfect_maildir ~/Maildir < mbox
7
8 # Simple  - only converts one mbox (can use script in one-liners)
9 # Perfect - message Flags/X-Flags are converted; "^>From ." line is unescaped
10
11 # I wrote this script after being unsatisfied with existing mbox to
12 # maildir converters. By making it "Simple", code complexity is kept
13 # low thus making it easy to program and debug. At the same time,
14 # since it only converts one mbox at a time, it is perfect for use in
15 # a shell ``for'' loop (for example).
16
17 # As for being "Perfect", to the best of my knowledge this script does
18 # the conversion correctly in all cases; it will translate "Status"
19 # and "X-Status" fields into maildir info, and it correctly detects
20 # where messages begin and end. (This is only version 0.1 so I may
21 # have messed something up though. Please send me feedback!)
22
23 # NOTE: The MUA ``mutt'' has a bug/feature where in the message index,
24 # it claims that all maildir messages have 0 lines unless they have a
25 # "Lines:" header set. perfect_maildir does not attempt to add the
26 # "Lines:" header; you may want to reconfigure ``mutt' to display byte
27 # size instead of lines instead by adding the following line to your
28 # ~/.muttrc file:
29 #
30 # set index_format="%4C %Z %{%b %d} %-15.15L (%4c) %s"
31
32 # check for valid arguments
33 my ($maildir) = @ARGV;
34 if (!$maildir) {
35   print STDERR "Usage: perfect_maildir ~/Maildir < mbox\n";
36   exit 1;
37 }
38
39 # check for writable maildir
40 unless (-w "$maildir/cur") {
41   print STDERR "Cannot write to $maildir/cur\n";
42   exit 1;
43 }
44 unless (-w "$maildir/new") {
45   print STDERR "Cannot write to $maildir/new\n";
46   exit 1;
47 }
48
49 my $num = 0;
50 my $time = time;
51
52 repeat:
53
54 # read header
55 my $headers = '';
56 my $flags = '';
57 my $subject = '';
58 while (my $line = <STDIN>) {
59   # detect end of headers
60   last if $line eq "\n";
61
62   # strip "From" line from header
63   $headers .= $line unless $line =~ /^From ./;
64
65   # detect flags
66   $flags .= $1 if $line =~ /^Status: ([A-Z]+)/;
67   $flags .= $1 if $line =~ /^X-Status: ([A-Z]+)/;
68   $subject = $1 if $line =~ /^Subject: (.*)$/;
69 }
70 $num++;
71
72 # open output file
73 my $file;
74 if ($flags =~ /O/) {
75   $file = "$maildir/cur/$time.$num.$ENV{HOSTNAME}";
76   my $extra = '';
77   $extra .= 'F' if $flags =~ /F/; # flagged
78   $extra .= 'R' if $flags =~ /A/; # replied
79   $extra .= 'S' if $flags =~ /R/; # seen
80   $extra .= 'T' if $flags =~ /D/; # trashed
81   $file .= ":2,$extra" if $extra;
82 } else {
83   $file = "$maildir/new/$time.$num.$ENV{HOSTNAME}";
84 }
85
86 # filter out the "DON'T DELETE THIS MESSAGE -- FOLDER INTERNAL DATA" message
87 $file = '/dev/null' if ($num == 1 and $subject eq "DON'T DELETE THIS MESSAGE -- FOLDER INTERNAL DATA");
88
89 open(FILE, ">$file");
90 print FILE "$headers\n";
91 while (my $line = <STDIN>) {
92   # detect end of message
93   last if $line =~ /^From ./;
94
95   # unescape "From"
96   $line =~ s/^>From (.)/From $1/;
97
98   print FILE $line;
99 }
100 close(FILE);
101
102 goto repeat unless eof(STDIN);
103
104 my $elapsed = time - $time;
105 print "Inserted $num messages into maildir $maildir in $elapsed seconds\n";