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.
kpilot/conduits/popmail/popmail-conduit.cc

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 <textstream.h>
#include <textcodec.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::currentDateTime();
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::currentDateTime();
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;
}