0.8.11claws148
[claws.git] / tools / convert_mbox.pl
1 #!/usr/bin/perl
2 # convert_mbox.pl
3 # perl script to convert mbox file to files in a new MH directory
4 # aka another mbox -> MH conversion tool
5 # 29 April 2003  
6 # Fred Marton <Fred.Marton@uni-bayreuth.de>
7 #
8 # Note: Running this with the -w flag generates the following warnings:
9 # Scalar value @word[1] better written as $word[1] at /path/to/convert_mbox.pl line 44
10 # Scalar value @word[0] better written as $word[1] at /path/to/convert_mbox.pl line 46
11 # Making these changes requires further changes in the script
12 # that results in much longer run-times.  
13 #
14 # Copyright © 2003 Fred Marton
15
16 # This program is free software; you can redistribute it and/or
17 # modify it under the terms of the GNU General Public License
18 # as published by the Free Software Foundation; either version 2
19 # of the License, or (at your option) any later version.
20
21 # This program is distributed in the hope that it will be useful,
22 # but WITHOUT ANY WARRANTY; without even the implied warranty of
23 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
24 # GNU General Public License for more details.
25
26 # You should have received a copy of the GNU General Public License
27 # along with this program; if not, write to the Free Software
28 # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
29 # 02111-1307, USA.
30
31 # check for both arguments
32 &usage if ($#ARGV < 1);
33 $mbox =  $ARGV[0];
34 $mh = $ARGV[1];
35 # check to make sure there isn't something named MH already
36 if (-e $mh) {
37    die (" The directory \"$mh\" already exists.  Exiting.\n");
38 }
39 else {
40    mkdir $mh;
41 }
42 # start numbering
43 $i = 0;
44 # open the mbox file
45 open (IN, $mbox);
46 while ($line = <IN>) {
47 # check for the beginning of an e-mail
48    @word = split(/ /m,$line);
49 # ignore the MAILER-DAEMON message from pine
50    if (@word[1] ne "MAILER-DAEMON") {
51 # start a new file
52       if (@word[0] eq "From") {
53          $i++;
54          close (OUT);
55          open (OUT, ">$mh/$i");
56          print OUT $line;
57       }
58       else {
59 # continue the file
60          print OUT $line;
61       }
62    }
63 }
64 close (OUT);
65 close (IN);
66 # and we're done
67 print "\n If it isn't there already, please move the directory \"$mh\"\n"
68     . " into your MH directory and rebuild your folder tree.\n\n";
69
70 sub usage
71 {
72    die ( " usage: convert_mbox.pl MBOX MH_DIR\n");
73 }