summaryrefslogtreecommitdiffstats
path: root/kmailcvt/filter_mailapp.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'kmailcvt/filter_mailapp.cpp')
-rw-r--r--kmailcvt/filter_mailapp.cpp168
1 files changed, 168 insertions, 0 deletions
diff --git a/kmailcvt/filter_mailapp.cpp b/kmailcvt/filter_mailapp.cpp
new file mode 100644
index 000000000..1da632ec6
--- /dev/null
+++ b/kmailcvt/filter_mailapp.cpp
@@ -0,0 +1,168 @@
+/***************************************************************************
+ filter_mailapp.cpp - OS X Mail App import
+ -------------------
+ copyright : (C) 2004 by Chris Howells
+ email : howells@kde.org
+
+ Derived from code by:
+ copyright : (C) 2003 by Laurence Anderson
+ email : l.d.anderson@warwick.ac.uk
+
+ ***************************************************************************/
+
+/***************************************************************************
+ * *
+ * 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 <config.h>
+#include <tdelocale.h>
+#include <tdefiledialog.h>
+#include <tdetempfile.h>
+#include <kdebug.h>
+
+#include "filter_mailapp.h"
+
+FilterMailApp::FilterMailApp() :
+ Filter( i18n("Import From OS X Mail"),
+ "Chris Howells<br /><br />Filter accelerated by Danny Kukawka )",
+ i18n("<p><b>OS X Mail Import Filter</b></p>"
+ "<p>This filter imports e-mails from the Mail client in Apple Mac OS X.</p>"))
+{}
+
+FilterMailApp::~FilterMailApp()
+{
+}
+
+void FilterMailApp::import(FilterInfo *info)
+{
+ int currentFile = 1;
+ int overall_status = 0;
+ bool first_msg = true;
+
+ TQString directory = KFileDialog::getExistingDirectory( TQDir::homeDirPath(), info->parent() );
+
+ //tqDebug("starting by looking in directory: %s", directory.latin1());
+ if ( directory.isEmpty() ) {
+ info->addLog( i18n("No directory selected."));
+ info->addLog( i18n("No files found for import."));
+ } else {
+ info->setOverall(0);
+ traverseDirectory(info, directory);
+
+ for ( TQStringList::Iterator filename = mMboxFiles.begin(); filename != mMboxFiles.end(); ++filename, ++currentFile) {
+ if ( info->shouldTerminate() ) break;
+ TQFile mbox( *filename );
+ if (! mbox.open( IO_ReadOnly ) ) {
+ info->alert( i18n("Unable to open %1, skipping").arg( *filename ) );
+ } else {
+ TQFileInfo filenameInfo( *filename );
+ kdDebug() << "importing filename " << *filename << endl;
+ TQStringList name = TQStringList::split("/", *filename);
+ TQString folderName(name[name.count() - 2]);
+
+ info->setCurrent(0);
+ info->addLog( i18n("Importing emails from %1...").arg( *filename ) );
+ info->setFrom( *filename );
+ info->setTo( folderName );
+
+ TQByteArray input(MAX_LINE);
+ long l = 0;
+
+ while ( ! mbox.atEnd() ) {
+ KTempFile tmp;
+ /* comment by Danny:
+ * Don't use TQTextStream to read from mbox, etter use TQDataStream. TQTextStream 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 TQTextStream to Unicode. By this you
+ * get Unicode/UTF-email but KMail can't detect the correct charset.
+ */
+ TQCString 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;
+
+ // force stop if user chancel the import
+ if ( info->shouldTerminate() ) {
+ tmp.unlink();
+ break;
+ }
+
+ /* comment by Danny Kukawka:
+ * addMessage() == old function, need more time and check for duplicates
+ * addMessage_fastImport == new function, faster and no check for duplicates
+ */
+ if(info->removeDupMsg)
+ addMessage( info, folderName, tmp.name() );
+ else
+ addMessage_fastImport( info, folderName, tmp.name() );
+
+ tmp.unlink();
+
+ int currentPercentage = (int) ( ( (float) mbox.at() / filenameInfo.size() ) * 100 );
+ info->setCurrent( currentPercentage );
+ if (currentFile == 1)
+ overall_status = (int)( currentPercentage*((float)currentFile/mMboxFiles.count()));
+ else
+ overall_status = (int)(((currentFile-1)*(100.0/(float)mMboxFiles.count()))+(currentPercentage*(1.0/(float)mMboxFiles.count())));
+ info->setOverall( overall_status );
+ if ( info->shouldTerminate() ) break;
+ }
+
+ info->addLog( i18n("Finished importing emails from %1").arg( *filename ) );
+ if (count_duplicates > 0) {
+ info->addLog( i18n("1 duplicate message not imported to folder %1 in KMail",
+ "%n duplicate messages not imported to folder %1 in KMail", count_duplicates).arg(folderName));
+ }
+ count_duplicates = 0;
+ mbox.close();
+ }
+ }
+ }
+
+ if (info->shouldTerminate()) info->addLog( i18n("Finished import, canceled by user."));
+ info->setCurrent(100);
+ info->setOverall(100);
+}
+
+void FilterMailApp::traverseDirectory(FilterInfo *info, const TQString &dirName)
+{
+ TQDir dir(dirName);
+ dir.setFilter(TQDir::Dirs | TQDir::Files);
+
+ const TQFileInfoList *fileinfolist = dir.entryInfoList();
+ TQFileInfoListIterator it(*fileinfolist);
+ TQFileInfo *fi;
+
+ if ( info->shouldTerminate() ) return;
+
+ while ((fi = it.current())) {
+ if (fi->fileName() == "." || fi->fileName() == "..") {
+ ++it;
+ continue;
+ }
+ if (fi->isDir() && fi->isReadable()) {
+ traverseDirectory(info, fi->filePath());
+ } else {
+ if (!fi->isDir() && fi->fileName() == "mbox") {
+ kdDebug() << "adding the file " << fi->filePath() << endl;
+ mMboxFiles.append(fi->filePath());
+ }
+ }
+ ++it;
+ }
+}