You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
88 lines
3.6 KiB
88 lines
3.6 KiB
/***************************************************************************
|
|
FilterPlain.cpp - Plain mail import
|
|
-------------------
|
|
begin : Fri Jun 14 2002
|
|
copyright : (C) 2002 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 <libgen.h>
|
|
|
|
#include "filter_plain.h"
|
|
|
|
|
|
FilterPlain::FilterPlain() :
|
|
Filter(i18n("Import Plain Text Emails"),
|
|
"Laurence Anderson <p>( Filter accelerated by Danny Kukawka )</p>",
|
|
i18n("<p>Select the directory containing the emails on your system. "
|
|
"The emails are placed in a folder with the same name as the "
|
|
"directory they were in, prefixed by PLAIN-</p>"
|
|
"<p>This filter will import all .msg, .eml and .txt emails.</p>"))
|
|
{}
|
|
|
|
FilterPlain::~FilterPlain()
|
|
{
|
|
}
|
|
|
|
void FilterPlain::import(FilterInfo *info)
|
|
{
|
|
// Select directory containing plain text emails
|
|
TQString mailDir = KFileDialog::getExistingDirectory(TQDir::homeDirPath(),info->parent());
|
|
if (mailDir.isEmpty()) { // No directory selected
|
|
info->alert(i18n("No directory selected."));
|
|
return;
|
|
}
|
|
TQDir dir (mailDir);
|
|
TQStringList files = dir.entryList("*.[eE][mM][lL]; *.[tT][xX][tT]; *.[mM][sS][gG]", TQDir::Files, TQDir::Name);
|
|
|
|
// Count total number of files to be processed
|
|
info->addLog(i18n("Counting files..."));
|
|
int totalFiles = files.count();
|
|
int currentFile = 0;
|
|
|
|
info->addLog(i18n("Importing new mail files..."));
|
|
for ( TQStringList::Iterator mailFile = files.begin(); mailFile != files.end(); ++mailFile ) {
|
|
info->setFrom(*mailFile);
|
|
info->setTo(dir.dirName());
|
|
info->setCurrent(0);
|
|
|
|
/* 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) {
|
|
if(! addMessage( info, "PLAIN-" + dir.dirName(), dir.filePath(*mailFile) )) {
|
|
info->addLog( i18n("Could not import %1").arg( *mailFile ) );
|
|
}
|
|
} else {
|
|
if( ! addMessage_fastImport( info, "PLAIN-" + dir.dirName(), dir.filePath(*mailFile) )) {
|
|
info->addLog( i18n("Could not import %1").arg( *mailFile ) );
|
|
}
|
|
}
|
|
|
|
info->setCurrent(100);
|
|
info->setOverall(100 * ++currentFile/ totalFiles);
|
|
if ( info->shouldTerminate() ) break;
|
|
}
|
|
|
|
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."));
|
|
|
|
count_duplicates = 0;
|
|
}
|