2007-02-25 [paul] 2.7.2cvs72
authorPaul Mangan <paul@claws-mail.org>
Sun, 25 Feb 2007 10:53:57 +0000 (10:53 +0000)
committerPaul Mangan <paul@claws-mail.org>
Sun, 25 Feb 2007 10:53:57 +0000 (10:53 +0000)
* tools/Makefile.am
* tools/README
* tools/kmail-mailbox2claws-mail.pl  **ADDED**
* tools/maildir2claws-mail.pl  **REMOVED**
renamed the script, fixed a couple bugs

ChangeLog
PATCHSETS
configure.ac
tools/Makefile.am
tools/README
tools/kmail-mailbox2claws-mail.pl [moved from tools/maildir2claws-mail.pl with 85% similarity]

index 5d7b7e5eade29b438cc957776e532fd131c0bb98..204dc40bfaa44f4ec347cacbbdd534959ce7a780 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2007-02-25 [paul]      2.7.2cvs72
+
+       * tools/Makefile.am
+       * tools/README
+       * tools/kmail-mailbox2claws-mail.pl  **ADDED**
+       * tools/maildir2claws-mail.pl  **REMOVED**
+               renamed the script, fixed a couple bugs
+
 2007-02-23 [colin]     2.7.2cvs71
 
        * src/addressbook.c
index 8faa7eba9df82311ddd2b5af9906969de1fa169e..8aae7e91cb40500dbbfee9d99003bdefa5635d7a 100644 (file)
--- a/PATCHSETS
+++ b/PATCHSETS
 ( cvs diff -u -r 1.207.2.149 -r 1.207.2.150 src/folderview.c;  cvs diff -u -r 1.1.2.43 -r 1.1.2.44 src/imap_gtk.c;  ) > 2.7.2cvs69.patchset
 ( cvs diff -u -r 1.115.2.138 -r 1.115.2.139 src/main.c;  cvs diff -u -r 1.7.2.9 -r 1.7.2.10 src/main.h;  cvs diff -u -r 1.14.2.51 -r 1.14.2.52 src/plugins/trayicon/trayicon.c;  ) > 2.7.2cvs70.patchset
 ( cvs diff -u -r 1.60.2.82 -r 1.60.2.83 src/addressbook.c;  ) > 2.7.2cvs71.patchset
+( cvs diff -u -r 1.25.2.16 -r 1.25.2.17 tools/Makefile.am;  cvs diff -u -r 1.30.2.16 -r 1.30.2.17 tools/README;  diff -u /dev/null tools/kmail-mailbox2claws-mail.pl;  cvs diff -u -r -1.1.2.3 -r -1.1.2.4 tools/maildir2claws-mail.pl;  ) > 2.7.2cvs72.patchset
index 4d142a4fe88000b0d7e3cd1953946b9c166f53e6..90dc4cf9a34bb9dfb5418c9f3eef3f6b2fbb480b 100644 (file)
@@ -11,7 +11,7 @@ MINOR_VERSION=7
 MICRO_VERSION=2
 INTERFACE_AGE=0
 BINARY_AGE=0
-EXTRA_VERSION=71
+EXTRA_VERSION=72
 EXTRA_RELEASE=
 EXTRA_GTK2_VERSION=
 
index 0c54a3b127a8616c5a6ba8fb441ddeeec62edd62..5e0c9f09ef9355596a8f1a8dc1c764d8d096082e 100644 (file)
@@ -13,7 +13,7 @@ EXTRA_TOOLS = \
        google_search.pl \
        kmail2claws-mail.pl \
        kmail2claws-mail_v2.pl \
-       maildir2claws-mail.pl \
+       kmail-mailbox2claws-mail.pl \
        multiwebsearch.pl \
        nautilus2claws-mail.sh \
        outlook2claws-mail.pl \
index ee38543d05ba115df338e4ebcb82be5b2a89f3f1..e385ba262e24462943d329370d5c8f1afbf7fc90 100644 (file)
@@ -24,7 +24,7 @@ Addressbook conversion:
 Mailbox conversion:
   calypso_convert.pl            Import mbox files with attachments from Calypso
   convert_mbox.pl              Import mbox files
-  maildir2claws-mail.pl                Convert a maildir mailbox to MH format
+  kmail-mailbox2claws-mail.pl  Convert a kmail mailbox to a Claws Mail mailbox
   tbird2claws.py               Integrate a Thunderbird folder tree into Claws
 
 Other tools:
@@ -342,11 +342,10 @@ Mailbox conversion
 
   Contact: Fred Marton <Fred.Marton@uni-bayreuth.de>
 
-* maildir2claws-mail.pl
+* kmail-mailbox2claws-mail.pl
 
   WHAT IT DOES
-       This perl script converts a mailbox in maildir format into
-       Claws Mail' MH format.
+       This perl script converts a kmail mailbox  into Claws Mail' mailbox.
   
   HOW TO USE IT
   
@@ -354,13 +353,12 @@ Mailbox conversion
        
        Run the script using:
         
-               perl maildir2claws-mail.pl --kmaildir=mail_folder_name
+               kmail-mailbox2claws-mail.pl --kmaildir=/full/path/to/kmail/mailbox
                
        Start Claws Mail and right-click the toplevel mailbox, i.e
        "Mailbox (MH)", and select 'Rebuild folder tree'.
        You may also need to run '/File/Folder/Check for new messages
        in all folders'
-       Your maildir directory will be backed-up.
        
        Additional options:
                --debug         debug mode
similarity index 85%
rename from tools/maildir2claws-mail.pl
rename to tools/kmail-mailbox2claws-mail.pl
index eecdb9d520ee481e55b93f7d3ab2c27621417c7b..b39a070a650731661a659e91b79bc01ca8052764 100644 (file)
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 #  * This file is free software; you can redistribute it and/or modify it
 #  * under the terms of the GNU General Public License as published by
 #  * along with this program; if not, write to the Free Software
 #  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
 #  *
-#  * Copyright 2003 Paul Mangan <paul@claws-mail.org>
+#  * Copyright 2003-2007 Paul Mangan <paul@claws-mail.org>
 #  *
+#  * 2007-02-25: several fixes for kmail 1.9.6
+#               --kmaildir now expects the full path
+#               renamed from maildir2claws-mail.pl to kmail-mailbox2claws-mail.pl
 #  * 2003-10-01: add --debug and --dry-run options
 #  * 2003-09-30: updated/improved by Matthias Förste <itsjustme@users.sourceforge.net>
 #  * 2003-05-27: version one
 
-## script name : maildir2sylpheed.pl
+## script name : kmail-mailbox2claws-mail.pl
 
 ## script purpose : convert a Kmail mailbox into a Claws Mail mailbox
 
-## USAGE: maildir2claws-mail.pl --kmaildir=Mail
+## USAGE: kmail-mailbox2claws-mail.pl --kmaildir=/full/path/to/kmail/mailbox
 
-## tested with Kmail version 1.5.2
+## tested with Kmail version 1.9.6
 
 use strict;
 
@@ -41,7 +44,6 @@ my $PRETEND = '';
 my $DEBUG = '';
 
 my $claws_tmpdir = "$ENV{HOME}/claws_tmp";
-my $kmail_olddir = "$ENV{HOME}/kmail_junk";
 
 GetOptions("kmaildir=s" => \$kmaildir,
           "help"       => \$iNeedHelp,
@@ -53,12 +55,10 @@ if ($kmaildir eq "" || $iNeedHelp) {
                print "No directory name given\n";
        }
        print "Use the following format:\n";
-       print "\tmaildir2claws-mail.pl --kmaildir=mail_folder_name\n\n";
-       print "For example: 'Mail'\n";
+       print "\tkmail-mailbox2claws-mail.pl --kmaildir=full-path-to-kmail-dir\n\n";
        exit;
 }
 
-$kmaildir = "$ENV{PWD}/$kmaildir" unless '/' eq substr($kmaildir,0,1);
 
 my $count = 1;
 my $MAIL_dir = "$kmaildir";
@@ -74,7 +74,6 @@ if (-d $MAIL_dir) {
 
 unless ($PRETEND) {
        mkdir("$claws_tmpdir", 0755);
-       system("mv $kmaildir $kmail_olddir");
        system("mv $claws_tmpdir $ENV{HOME}/Mail");
 
        print "\n\nSucessfully converted mailbox \"$MAIL_dir\"\n";
@@ -82,8 +81,6 @@ unless ($PRETEND) {
        print "select \"Rebuild folder tree\"\n";
        print "You may also need to run \"/File/Folder/Check for ";
        print "new messages in all folders\"\n\n";
-       print "Your kmail directories have been backed-up to\n";
-       print "$kmail_olddir\n\n";
 }
 
 print "\n";
@@ -107,7 +104,7 @@ sub process_dir() {
            $direc !~ m/^inbox$/) {
                my $tmpdir = $direc;
                $tmpdir =~ s/^$MAIL_dir//;
-               $tmpdir =~ s/^sent-mail$/sent/;
+               $tmpdir =~ s/\/sent-mail$/sent/;
                $tmpdir =~ s/\/cur$//;
                $tmpdir =~ s/\/new$//;
                $tmpdir =~ s/^\///;
@@ -128,6 +125,8 @@ sub process_file {
        my $nfile;
        my $tmpfile = $file;
 
+       $tmpfile =~ s|^$kmaildir||;
+
        if ($tmpfile =~ m/\/cur\// || 
            $tmpfile =~ m/\/new\//) {
 
@@ -139,13 +138,12 @@ sub process_file {
                push(@spl_str, "$count");
 
                foreach my $spl_str (@spl_str) {
-                       $spl_str =~ s/^\.//;
                        $spl_str =~ s/\.directory$//;
+                       $spl_str =~ s/^\.//;
                        $spl_str =~ s/^sent-mail$/sent/;
                }
-
                $nfile = join("/", @spl_str);
-               $nfile =~ s|$kmaildir|$claws_tmpdir/|;
+               $nfile = $claws_tmpdir.$nfile;
        }
 
        if (-e "$file" && $nfile ne "") {