From 460c52653ab0dcca6f19a4f492ed2c5e4e963ab0 Mon Sep 17 00:00:00 2001 From: toma Date: Wed, 25 Nov 2009 17:56:58 +0000 Subject: Copy the KDE 3.5 branch to branches/trinity for new KDE 3.5 features. BUG:215923 git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/kdepim@1054174 283d02a7-25f6-0310-bc7c-ecb5cbfe19da --- kmailcvt/filter_thunderbird.cxx | 234 ++++++++++++++++++++++++++++++++++++++++ 1 file changed, 234 insertions(+) create mode 100644 kmailcvt/filter_thunderbird.cxx (limited to 'kmailcvt/filter_thunderbird.cxx') diff --git a/kmailcvt/filter_thunderbird.cxx b/kmailcvt/filter_thunderbird.cxx new file mode 100644 index 000000000..e5d71564c --- /dev/null +++ b/kmailcvt/filter_thunderbird.cxx @@ -0,0 +1,234 @@ +/*************************************************************************** + filter_thunderbird.cxx - Thunderbird mail import + ------------------- + begin : Januar 26 2005 + copyright : (C) 2005 by Danny Kukawka + email : danny.kukawka@web.de + ***************************************************************************/ + +/*************************************************************************** + * * + * This program is free software; you can redistribute it and/or modify * + * it under the terms of the GNU General Public License as published by * + * the Free Software Foundation; either version 2 of the License, or * + * (at your option) any later version. * + * * + ***************************************************************************/ + +#include "filter_thunderbird.hxx" + +#include +#include +#include +#include + + +/** Default constructor. */ +FilterThunderbird::FilterThunderbird(void) : + Filter(i18n("Import Thunderbird/Mozilla Local Mails and Folder Structure"), + "Danny Kukawka", + i18n("

Thunderbird/Mozilla import filter

" + "

Select your base Thunderbird/Mozilla mailfolder" + " (usually ~/.thunderbird/*.default/Mail/Local Folders/).

" + "

Note: Never choose a Folder which does not contain mbox-files (for example," + " a maildir): if you do, you will get many new folders.

" + "

Since it is possible to recreate the folder structure, the folders " + "will be stored under: \"Thunderbird-Import\".

")) +{} + +/** Destructor. */ +FilterThunderbird::~FilterThunderbird(void) +{ + endImport(); +} + +/** Recursive import of Evolution's mboxes. */ +void FilterThunderbird::import(FilterInfo *info) +{ + /** + * We ask the user to choose Evolution's root directory. + * This should be usually ~/.thunderbird/xxxx.default/Mail/Local Folders/ + */ + QString thunderDir = QDir::homeDirPath() + "/.thunderbird/"; + QDir d( thunderDir ); + if ( !d.exists() ) { + thunderDir = QDir::homeDirPath(); + } + + KFileDialog *kfd; + kfd = new KFileDialog( thunderDir, "", 0, "kfiledialog", true ); + kfd->setMode(KFile::Directory | KFile::LocalOnly); + kfd->exec(); + mailDir = kfd->selectedFile(); + + if (mailDir.isEmpty()) { + info->alert(i18n("No directory selected.")); + } + /** + * If the user only select homedir no import needed because + * there should be no files and we surely import wrong files. + */ + else if ( mailDir == QDir::homeDirPath() || mailDir == (QDir::homeDirPath() + "/")) { + info->addLog(i18n("No files found for import.")); + } else { + info->setOverall(0); + + /** Recursive import of the MailArchives */ + QDir dir(mailDir); + QStringList rootSubDirs = dir.entryList("[^\\.]*", QDir::Dirs, QDir::Name); // Removal of . and .. + int currentDir = 1, numSubDirs = rootSubDirs.size(); + for(QStringList::Iterator filename = rootSubDirs.begin() ; filename != rootSubDirs.end() ; ++filename, ++currentDir) { + if(info->shouldTerminate()) break; + importDirContents(info, dir.filePath(*filename), *filename, *filename); + info->setOverall((int) ((float) currentDir / numSubDirs * 100)); + } + + /** import last but not least all archives from the root-dir */ + QDir importDir (mailDir); + QStringList files = importDir.entryList("[^\\.]*", QDir::Files, QDir::Name); + for ( QStringList::Iterator mailFile = files.begin(); mailFile != files.end(); ++mailFile) { + if(info->shouldTerminate()) break; + QString temp_mailfile = *mailFile; + if (temp_mailfile.endsWith(".msf") || temp_mailfile.endsWith("msgFilterRules.dat")) {} + else { + info->addLog( i18n("Start import file %1...").arg( temp_mailfile ) ); + importMBox(info, mailDir + temp_mailfile , temp_mailfile, QString::null); + } + } + + info->addLog( i18n("Finished importing emails from %1").arg( mailDir )); + if(count_duplicates > 0) { + info->addLog( i18n("1 duplicate message not imported", "%n duplicate messages not imported", count_duplicates)); + } + } + if (info->shouldTerminate()) info->addLog( i18n("Finished import, canceled by user.")); + info->setCurrent(100); + info->setOverall(100); +} + +/** + * Import of a directory contents. + * @param info Information storage for the operation. + * @param dirName The name of the directory to import. + * @param KMailRootDir The directory's root directory in KMail's folder structure. + * @param KMailSubDir The directory's direct ancestor in KMail's folder structure. + */ +void FilterThunderbird::importDirContents(FilterInfo *info, const QString& dirName, const QString& KMailRootDir, const QString& KMailSubDir) +{ + if(info->shouldTerminate()) return; + /** Here Import all archives in the current dir */ + QDir dir(dirName); + + QDir importDir (dirName); + QStringList files = importDir.entryList("[^\\.]*", QDir::Files, QDir::Name); + for ( QStringList::Iterator mailFile = files.begin(); mailFile != files.end(); ++mailFile) { + if(info->shouldTerminate()) break; + QString temp_mailfile = *mailFile; + if (temp_mailfile.endsWith(".msf") || temp_mailfile.endsWith("msgFilterRules.dat")) {} + else { + info->addLog( i18n("Start import file %1...").arg( temp_mailfile ) ); + importMBox(info, (dirName + "/" + temp_mailfile) , KMailRootDir, KMailSubDir); + } + } + + /** If there are subfolders, we import them one by one */ + QDir subfolders(dirName); + QStringList subDirs = subfolders.entryList("[^\\.]*", QDir::Dirs, QDir::Name); + for(QStringList::Iterator filename = subDirs.begin() ; filename != subDirs.end() ; ++filename) { + if(info->shouldTerminate()) break; + QString kSubDir; + if(!KMailSubDir.isNull()) { + kSubDir = KMailSubDir + "/" + *filename; + } else { + kSubDir = *filename; + } + importDirContents(info, subfolders.filePath(*filename), KMailRootDir, kSubDir); + } +} + +/** + * Import of a MBox file. + * @param info Information storage for the operation. + * @param dirName The MBox's name. + * @param KMailRootDir The directory's root directory in KMail's folder structure. + * @param KMailSubDir The directory's equivalent in KMail's folder structure. * + */ +void FilterThunderbird::importMBox(FilterInfo *info, const QString& mboxName, const QString& rootDir, const QString& targetDir) +{ + QFile mbox(mboxName); + bool first_msg = true; + if (!mbox.open(IO_ReadOnly)) { + info->alert(i18n("Unable to open %1, skipping").arg(mboxName)); + } else { + QFileInfo filenameInfo(mboxName); + + info->setCurrent(0); + if( mboxName.length() > 20 ) { + QString tmp_info = mboxName; + tmp_info = tmp_info.replace( mailDir, "../" ); + if (tmp_info.contains(".sbd")) + tmp_info.remove(".sbd"); + info->setFrom( tmp_info ); + } else + info->setFrom(mboxName); + if(targetDir.contains(".sbd")) { + QString tmp_info = targetDir; + tmp_info.remove(".sbd"); + info->setTo(tmp_info); + } else + info->setTo(targetDir); + + QByteArray input(MAX_LINE); + long l = 0; + + while (!mbox.atEnd()) { + KTempFile tmp; + /** @todo check if the file is really a mbox, maybe search for 'from' string at start */ + /* comment by Danny: + * Don't use QTextStream to read from mbox, etter use QDataStream. QTextStream only + * support Unicode/Latin1/Locale. So you lost information from emails with + * charset!=Unicode/Latin1/Locale (e.g. KOI8-R) and Content-Transfer-Encoding != base64 + * (e.g. 8Bit). It also not help to convert the QTextStream to Unicode. By this you + * get Unicode/UTF-email but KMail can't detect the correct charset. + */ + QCString seperate; + + if(!first_msg) + tmp.file()->writeBlock( input, l ); + l = mbox.readLine( input.data(),MAX_LINE); // read the first line, prevent "From " + tmp.file()->writeBlock( input, l ); + + while ( ! mbox.atEnd() && (l = mbox.readLine(input.data(),MAX_LINE)) && ((seperate = input.data()).left(5) != "From ")) { + tmp.file()->writeBlock( input, l ); + } + tmp.close(); + first_msg = false; + + QString destFolder; + QString _targetDir = targetDir; + if(!targetDir.isNull()) { + if(_targetDir.contains(".sbd")) + _targetDir.remove(".sbd"); + destFolder += "Thunderbird-Import/" + _targetDir + "/" + filenameInfo.baseName(TRUE);// mboxName; + } else { + destFolder = "Thunderbird-Import/" + rootDir; + if(destFolder.contains(".sbd")) + destFolder.remove(".sbd"); + } + + if(info->removeDupMsg) + addMessage( info, destFolder, tmp.name() ); + else + addMessage_fastImport( info, destFolder, tmp.name() ); + + tmp.unlink(); + int currentPercentage = (int) (((float) mbox.at() / filenameInfo.size()) * 100); + info->setCurrent(currentPercentage); + if (info->shouldTerminate()) { + mbox.close(); + return; + } + } + mbox.close(); + } +} -- cgit v1.2.1