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.
417 lines
8.6 KiB
417 lines
8.6 KiB
/* KPilot
|
|
**
|
|
** Copyright (C) 1998-2001 Dan Pilone
|
|
** Copyright (C) 1999,2000 Michael Kropfberger
|
|
**
|
|
** This file is part of the popmail conduit, a conduit for KPilot that
|
|
** synchronises the Pilot's email application with the outside world,
|
|
** which currently means:
|
|
** -- sendmail or SMTP for outgoing mail
|
|
** -- POP or mbox for incoming mail
|
|
*/
|
|
|
|
/*
|
|
** 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.
|
|
**
|
|
** This program is distributed in the hope that it will be useful,
|
|
** but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
** GNU General Public License for more details.
|
|
**
|
|
** You should have received a copy of the GNU General Public License
|
|
** along with this program in a file called COPYING; if not, write to
|
|
** the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
|
|
** MA 02110-1301, USA.
|
|
*/
|
|
|
|
/*
|
|
** Bug reports and questions can be sent to kde-pim@kde.org
|
|
*/
|
|
|
|
#include "options.h"
|
|
#include "popmail-conduit.h"
|
|
|
|
extern "C"
|
|
{
|
|
|
|
unsigned long version_conduit_popmail = Pilot::PLUGIN_API;
|
|
|
|
}
|
|
|
|
#include <tqsocket.h>
|
|
#include <tqregexp.h>
|
|
|
|
|
|
#include <sys/types.h>
|
|
#include <sys/socket.h>
|
|
#include <sys/utsname.h>
|
|
#include <ctype.h>
|
|
|
|
#include <unistd.h>
|
|
#include <errno.h>
|
|
|
|
#include <time.h> // Needed by pilot-link include
|
|
#include <pi-version.h>
|
|
#if PILOT_LINK_MAJOR < 10
|
|
#include <pi-config.h>
|
|
#endif
|
|
#include <pi-mail.h>
|
|
|
|
#include <tqdir.h>
|
|
#include <tqtextstream.h>
|
|
#include <tqtextcodec.h>
|
|
|
|
#include <kapplication.h>
|
|
#include <kmessagebox.h>
|
|
#include <ksock.h>
|
|
#include <kconfig.h>
|
|
#include <ksimpleconfig.h>
|
|
#include <dcopclient.h>
|
|
#include <ktempfile.h>
|
|
|
|
#include "pilotRecord.h"
|
|
#include "pilotSerialDatabase.h"
|
|
|
|
#include "popmailSettings.h"
|
|
#include "setupDialog.h"
|
|
|
|
static TQString DATE_FORMAT("ddd, d MMM yyyy hh:mm:ss");
|
|
|
|
PopMailConduit::PopMailConduit(KPilotLink *d,
|
|
const char *n,
|
|
const TQStringList &l) :
|
|
ConduitAction(d,n,l)
|
|
{
|
|
FUNCTIONSETUP;
|
|
fConduitName=i18n("KMail");
|
|
}
|
|
|
|
PopMailConduit::~PopMailConduit()
|
|
{
|
|
FUNCTIONSETUP;
|
|
}
|
|
|
|
void PopMailConduit::doSync()
|
|
{
|
|
FUNCTIONSETUP;
|
|
|
|
int sent_count=0;
|
|
int mode=MailConduitSettings::syncOutgoing();
|
|
|
|
DEBUGKPILOT << fname
|
|
<< ": Outgoing mail disposition "
|
|
<< mode << endl;
|
|
|
|
if(mode)
|
|
{
|
|
sent_count=sendPendingMail(mode);
|
|
}
|
|
|
|
if (sent_count>0)
|
|
{
|
|
if (sent_count>0)
|
|
{
|
|
addSyncLogEntry(i18n("Sent one message",
|
|
"Sent %n messages",sent_count));
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
// additional changes by Michael Kropfberger
|
|
int PopMailConduit::sendPendingMail(int mode)
|
|
{
|
|
FUNCTIONSETUP;
|
|
int count=0;
|
|
|
|
if (mode==PopMailWidgetConfig::SendKMail)
|
|
{
|
|
count=sendViaKMail();
|
|
}
|
|
|
|
if (count == 0)
|
|
{
|
|
WARNINGKPILOT << "Mail was not sent at all!" << endl;
|
|
emit logError(i18n("No mail was sent."));
|
|
}
|
|
else if (count < 0)
|
|
{
|
|
WARNINGKPILOT
|
|
<< "Mail sending returned error " << count
|
|
<< endl;
|
|
emit logError(i18n("No mail could be sent."));
|
|
}
|
|
else
|
|
{
|
|
DEBUGKPILOT << fname
|
|
<< ": Sent "
|
|
<< count
|
|
<< " messages"
|
|
<< endl;
|
|
}
|
|
|
|
return count;
|
|
}
|
|
|
|
|
|
TQString PopMailConduit::getKMailOutbox() const
|
|
{
|
|
FUNCTIONSETUP;
|
|
|
|
// Default to "outbox" with newer KMails.
|
|
KSimpleConfig c(CSL1("kmailrc"),true);
|
|
c.setGroup("General");
|
|
|
|
TQString outbox = c.readEntry("outboxFolder");
|
|
if (outbox.isEmpty())
|
|
{
|
|
outbox = MailConduitSettings::outboxFolder();
|
|
}
|
|
|
|
if (outbox.isEmpty()) outbox=CSL1("outbox");
|
|
|
|
return outbox;
|
|
}
|
|
|
|
/*
|
|
* This function uses KMail's DCOP interface to put all the
|
|
* outgoing mail into the outbox.
|
|
*/
|
|
int PopMailConduit::sendViaKMail()
|
|
{
|
|
FUNCTIONSETUP;
|
|
int count=0;
|
|
TQString kmailOutboxName = getKMailOutbox();
|
|
|
|
DCOPClient *dcopptr = KApplication::kApplication()->dcopClient();
|
|
if (!dcopptr)
|
|
{
|
|
WARNINGKPILOT << "Cannot get DCOP client."
|
|
<< endl;
|
|
KMessageBox::error(0L,
|
|
i18n("Could not connect to DCOP server for "
|
|
"the KMail connection."),
|
|
i18n("Error Sending Mail"));
|
|
return -1;
|
|
}
|
|
|
|
if (!dcopptr->isAttached())
|
|
{
|
|
dcopptr->attach();
|
|
}
|
|
|
|
while (PilotRecord *pilotRec = fDatabase->readNextRecInCategory(1))
|
|
{
|
|
DEBUGKPILOT << fname
|
|
<< ": Reading "
|
|
<< count + 1
|
|
<< "th message"
|
|
<< endl;
|
|
|
|
if (pilotRec->isDeleted() || pilotRec->isArchived())
|
|
{
|
|
DEBUGKPILOT << fname
|
|
<< ": Skipping record."
|
|
<< endl;
|
|
continue;
|
|
}
|
|
|
|
struct Mail theMail;
|
|
KTempFile t;
|
|
t.setAutoDelete(true);
|
|
|
|
if (t.status())
|
|
{
|
|
WARNINGKPILOT << "Cannot open temp file." << endl;
|
|
KMessageBox::error(0L,
|
|
i18n("Cannot open temporary file to store "
|
|
"mail from Pilot in."),
|
|
i18n("Error Sending Mail"));
|
|
continue;
|
|
}
|
|
|
|
FILE *sendf = t.fstream();
|
|
|
|
if (!sendf)
|
|
{
|
|
WARNINGKPILOT
|
|
<< "Cannot open temporary file for writing!" << endl;
|
|
KMessageBox::error(0L,
|
|
i18n("Cannot open temporary file to store "
|
|
"mail from Pilot in."),
|
|
i18n("Error Sending Mail"));
|
|
continue;
|
|
}
|
|
|
|
unpack_Mail(&theMail,
|
|
(unsigned char*)pilotRec->data(),
|
|
pilotRec->size());
|
|
writeMessageToFile(sendf, theMail);
|
|
|
|
|
|
TQByteArray data,returnValue;
|
|
TQCString returnType;
|
|
TQDataStream arg(data,IO_WriteOnly);
|
|
|
|
arg << kmailOutboxName << t.name() << CSL1("N") ;
|
|
|
|
if (!dcopptr->call("kmail",
|
|
"KMailIface",
|
|
"dcopAddMessage(TQString,TQString,TQString)",
|
|
data,
|
|
returnType,
|
|
returnValue,
|
|
true))
|
|
{
|
|
WARNINGKPILOT << "DCOP call failed." << endl;
|
|
|
|
KMessageBox::error(0L,
|
|
i18n("DCOP connection with KMail failed."),
|
|
i18n("Error Sending Mail"));
|
|
continue;
|
|
}
|
|
|
|
DEBUGKPILOT << fname
|
|
<< ": DCOP call returned "
|
|
<< returnType
|
|
<< " of "
|
|
<< (const char *)returnValue
|
|
<< endl;
|
|
|
|
// Mark it as filed...
|
|
pilotRec->setCategory(3);
|
|
pilotRec->setModified( false );
|
|
fDatabase->writeRecord(pilotRec);
|
|
delete pilotRec;
|
|
// This is ok since we got the mail with unpack mail..
|
|
free_Mail(&theMail);
|
|
|
|
count++;
|
|
}
|
|
|
|
return count;
|
|
}
|
|
|
|
// From pilot-link-0.8.7 by Kenneth Albanowski
|
|
// additional changes by Michael Kropfberger
|
|
|
|
void PopMailConduit::writeMessageToFile(FILE* sendf, struct Mail& theMail)
|
|
{
|
|
FUNCTIONSETUP;
|
|
|
|
TQTextStream mailPipe(sendf, IO_WriteOnly);
|
|
|
|
TQString fromAddress = MailConduitSettings::emailAddress();
|
|
mailPipe << "From: " << fromAddress << "\r\n";
|
|
mailPipe << "To: " << theMail.to << "\r\n";
|
|
if(theMail.cc)
|
|
mailPipe << "Cc: " << theMail.cc << "\r\n";
|
|
if(theMail.bcc)
|
|
mailPipe << "Bcc: " << theMail.bcc << "\r\n";
|
|
if(theMail.replyTo)
|
|
mailPipe << "Reply-To: " << theMail.replyTo << "\r\n";
|
|
if(theMail.subject)
|
|
mailPipe << "Subject: " << theMail.subject << "\r\n";
|
|
|
|
// if our struct indicates that it's dated, then use the date it
|
|
// holds. otherwise, provide current date. either way, we need to
|
|
// have a date...
|
|
TQDateTime date = TQDateTime::tqcurrentDateTime();
|
|
if (theMail.dated)
|
|
{
|
|
date = readTm(theMail.date);
|
|
}
|
|
|
|
TQString dateString = date.toString(DATE_FORMAT);
|
|
|
|
mailPipe << "Date: " << dateString << "\r\n";
|
|
|
|
mailPipe << "X-mailer: " << "Popmail-Conduit " << KPILOT_VERSION << "\r\n";
|
|
mailPipe << "\r\n";
|
|
|
|
|
|
DEBUGKPILOT << fname << ": To: " << theMail.to << endl;
|
|
|
|
|
|
if(theMail.body)
|
|
{
|
|
DEBUGKPILOT << fname << ": Sent body." << endl;
|
|
mailPipe << theMail.body << "\r\n";
|
|
}
|
|
|
|
//insert the real signature file from disk
|
|
TQString signature = MailConduitSettings::signature();
|
|
if(!signature.isEmpty())
|
|
{
|
|
DEBUGKPILOT << fname << ": Reading signature" << endl;
|
|
|
|
TQFile f(signature);
|
|
if ( f.open(IO_ReadOnly) )
|
|
{ // file opened successfully
|
|
mailPipe << "-- \r\n";
|
|
TQTextStream t( &f ); // use a text stream
|
|
while ( !t.eof() )
|
|
{ // until end of file...
|
|
mailPipe << t.readLine() << "\r\n";
|
|
}
|
|
f.close();
|
|
}
|
|
}
|
|
mailPipe << "\r\n";
|
|
|
|
DEBUGKPILOT << fname << ": Done" << endl;
|
|
}
|
|
|
|
|
|
/* virtual */ void PopMailConduit::doTest()
|
|
{
|
|
FUNCTIONSETUP;
|
|
|
|
TQString outbox = getKMailOutbox();
|
|
|
|
DEBUGKPILOT << fname
|
|
<< ": KMail's outbox is "
|
|
<< outbox
|
|
<< endl;
|
|
|
|
TQDateTime date = TQDateTime::tqcurrentDateTime();
|
|
TQString dateString = date.toString(DATE_FORMAT);
|
|
|
|
DEBUGKPILOT << fname << ": Date format example: [" << dateString
|
|
<< "]" << endl;
|
|
}
|
|
|
|
/* virtual */ bool PopMailConduit::exec()
|
|
{
|
|
FUNCTIONSETUP;
|
|
|
|
if (syncMode().isTest())
|
|
{
|
|
doTest();
|
|
}
|
|
else if (syncMode() == SyncMode::eBackup)
|
|
{
|
|
emit logError(i18n("Cannot perform backup of mail database"));
|
|
}
|
|
else
|
|
{
|
|
fDatabase = deviceLink()->database( CSL1("MailDB") );
|
|
|
|
if (!fDatabase || !fDatabase->isOpen())
|
|
{
|
|
emit logError(i18n("Unable to open mail database on handheld"));
|
|
KPILOT_DELETE(fDatabase);
|
|
return false;
|
|
}
|
|
|
|
doSync();
|
|
fDatabase->resetSyncFlags();
|
|
KPILOT_DELETE(fDatabase);
|
|
}
|
|
delayDone();
|
|
return true;
|
|
}
|