1 files changed, 157 insertions, 0 deletions
diff --git a/kmailcvt/filter_lnotes.cpp b/kmailcvt/filter_lnotes.cpp
new file mode 100644
index 00000000..7733c1c1
--- /dev/null
+++ b/kmailcvt/filter_lnotes.cpp
@@ -0,0 +1,157 @@
+/***************************************************************************
+             filter_lnotes.cpp  -  Lotus Notes Structured Text mail import
+                             -------------------
+    begin                : Wed Feb 16, 2005
+    copyright            : (C) 2005 by Robert Rockers
+    email                : tdeconfigure@rockerssoft.com
+ ***************************************************************************/
+
+/***************************************************************************
+ *                                                                         *
+ *   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 <tqfileinfo.h>
+
+#include "filter_lnotes.h"
+
+/** Default constructor. */
+FilterLNotes::FilterLNotes() :
+        Filter( i18n("Import Lotus Notes Emails"),
+                "Robert Rockers",
+                i18n("<p><b>Lotus Notes Structured Text mail import filter</b></p>"
+                     "<p>This filter will import Structured Text files from an exported Lotus Notes email "
+                     "client into KMail. Use this filter if you want to import mails from Lotus or other "
+                     "mailers that use the Lotus Notes Structured Text format.</p>"
+                     "<p><b>Note:</b> Since it is possible to recreate the folder structure, the imported "
+                     "messages will be stored in subfolders under: \"LNotes-Import\", in your local folder, "
+                     "named using the names of the files the messages came from.</p>"))
+{}
+
+/** Destructor. */
+FilterLNotes::~FilterLNotes() {
+}
+
+/**
+ * Recursive import of The Bat! maildir.
+ * @param info Information storage for the operation.
+ */
+void FilterLNotes::import(FilterInfo *info) {
+
+    inf = info;
+    currentFile = 1;
+    totalFiles = 0;
+
+    TQStringList filenames = KFileDialog::getOpenFileNames( TQDir::homeDirPath(), "*|" + i18n("All Files (*)"),
+                                                           inf->parent() );
+    totalFiles = filenames.count();
+    inf->setOverall(0);
+
+    // See filter_mbox.cpp for better reference.
+    for ( TQStringList::Iterator filename = filenames.begin(); filename != filenames.end(); ++filename ) {
+
+        ++currentFile;
+        info->addLog( i18n("Importing emails from %1").arg(*filename) );
+        ImportLNotes( *filename );
+        inf->setOverall( 100 * currentFile / totalFiles );
+        if ( info->shouldTerminate() )
+            break;
+    }
+}
+
+/**
+ * Import the files within a Folder.
+ * @param file The name of the file to import.
+ */
+void FilterLNotes::ImportLNotes(const TQString& file) {
+
+    // See Filter_pmail.cpp for better reference
+
+    // Format of a Lotus Notes 5 Structured Text Document w form feed
+    // Each email begins with a custom Header Principal:
+    // The Message ends with a 0c character
+
+    // open the message
+    TQFile f(file);
+
+    if (! f.open( IO_ReadOnly ) ) {
+        inf->alert( i18n("Unable to open %1, skipping").arg( file ) );
+    } else {
+
+        int ch = 0;
+        int state = 0;
+        int n = 0;
+        KTempFile *tempfile = 0;
+
+        // Get folder name
+        TQFileInfo filenameInfo( file );
+        TQString folder("LNotes-Import/" + filenameInfo.baseName(TRUE));
+        inf->setTo(folder);
+
+        // State machine to read the data in. The fgetc usage is probably terribly slow ...
+        while ((ch = f.getch()) >= 0) {
+            switch (state) {
+                    // new message state
+                case 0:
+                    // open temp output file
+                    tempfile = new KTempFile;
+                    state = 1;
+                    inf->setCurrent(i18n("Message %1").arg(n++));
+                    if ( inf->shouldTerminate() )
+                        return;
+                    // fall through
+
+                    // inside a message state
+                case 1:
+                    if (ch == 0x0c) {
+                        // close file, send it
+                        tempfile->close();
+
+                        if(inf->removeDupMsg)
+                            addMessage( inf, folder, tempfile->name() );
+                        else
+                            addMessage_fastImport( inf, folder, tempfile->name() );
+
+                        tempfile->unlink();
+                        state = 0;
+
+                        int currentPercentage = (int) ( ( (float) f.at() / filenameInfo.size() ) * 100 );
+                        inf->setCurrent( currentPercentage );
+                        if ( inf->shouldTerminate() )
+                            return;
+
+                        break;
+                    }
+                    if (ch == 0x0d) {
+                        break;
+                    }
+                    tempfile->file()->putch(ch);
+                    break;
+            }
+        }
+
+        // did Folder end without 0x1a at the end?
+        if (state != 0) {
+            tempfile->close();
+
+            if(inf->removeDupMsg)
+                addMessage( inf, folder, tempfile->name() );
+            else
+                addMessage_fastImport( inf, folder, tempfile->name() );
+
+            tempfile->unlink();
+            delete tempfile;
+        }
+        f.close();
+    }
+}