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.
282 lines
11 KiB
282 lines
11 KiB
/*
|
|
This file is part of the scalix resource - based on the kolab resource.
|
|
|
|
Copyright (c) 2004 Bo Thorsen <bo@sonofthor.dk>
|
|
|
|
This library is free software; you can redistribute it and/or
|
|
modify it under the terms of the GNU Library General Public
|
|
License as published by the Free Software Foundation; either
|
|
version 2 of the License, or (at your option) any later version.
|
|
|
|
This library 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
|
|
Library General Public License for more details.
|
|
|
|
You should have received a copy of the GNU Library General Public License
|
|
along with this library; see the file COPYING.LIB. If not, write to
|
|
the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
|
|
Boston, MA 02110-1301, USA.
|
|
|
|
In addition, as a special exception, the copyright holders give
|
|
permission to link the code of this program with any edition of
|
|
the TQt library by Trolltech AS, Norway (or with modified versions
|
|
of TQt that use the same license as TQt), and distribute linked
|
|
combinations including the two. You must obey the GNU General
|
|
Public License in all respects for all of the code used other than
|
|
TQt. If you modify this file, you may extend this exception to
|
|
your version of the file, but you are not obligated to do so. If
|
|
you do not wish to do so, delete this exception statement from
|
|
your version.
|
|
*/
|
|
|
|
#include "kmailconnection.h"
|
|
#include "resourcescalixbase.h"
|
|
|
|
#include <kdebug.h>
|
|
#include <dcopclient.h>
|
|
#include <tdeapplication.h>
|
|
#include <kdcopservicestarter.h>
|
|
#include <tdelocale.h>
|
|
|
|
#include "kmailicalIface_stub.h"
|
|
|
|
|
|
using namespace Scalix;
|
|
|
|
|
|
KMailConnection::KMailConnection( ResourceScalixBase* resource,
|
|
const TQCString& objId )
|
|
: DCOPObject( objId ), mResource( resource ), mKMailIcalIfaceStub( 0 )
|
|
{
|
|
// Make the connection to KMail ready
|
|
mDCOPClient = new DCOPClient();
|
|
mDCOPClient->attach();
|
|
mDCOPClient->registerAs( objId, true );
|
|
|
|
kapp->dcopClient()->setNotifications( true );
|
|
connect( kapp->dcopClient(), TQT_SIGNAL( applicationRemoved( const TQCString& ) ),
|
|
this, TQT_SLOT( unregisteredFromDCOP( const TQCString& ) ) );
|
|
}
|
|
|
|
KMailConnection::~KMailConnection()
|
|
{
|
|
kapp->dcopClient()->setNotifications( false );
|
|
delete mKMailIcalIfaceStub;
|
|
mKMailIcalIfaceStub = 0;
|
|
delete mDCOPClient;
|
|
mDCOPClient = 0;
|
|
}
|
|
|
|
static const TQCString dcopObjectId = "KMailICalIface";
|
|
bool KMailConnection::connectToKMail()
|
|
{
|
|
if ( !mKMailIcalIfaceStub ) {
|
|
TQString error;
|
|
TQCString dcopService;
|
|
int result = KDCOPServiceStarter::self()->
|
|
findServiceFor( "DCOP/ResourceBackend/IMAP", TQString(),
|
|
TQString(), &error, &dcopService );
|
|
if ( result != 0 ) {
|
|
kdError(5650) << "Couldn't connect to the IMAP resource backend\n";
|
|
// TODO: You might want to show "error" (if not empty) here,
|
|
// using e.g. KMessageBox
|
|
return false;
|
|
}
|
|
|
|
mKMailIcalIfaceStub = new KMailICalIface_stub( kapp->dcopClient(),
|
|
dcopService, dcopObjectId );
|
|
|
|
// Attach to the KMail signals
|
|
if ( !connectKMailSignal( "incidenceAdded(TQString,TQString,TQ_UINT32,int,TQString)",
|
|
"fromKMailAddIncidence(TQString,TQString,TQ_UINT32,int,TQString)" ) )
|
|
kdError(5650) << "DCOP connection to incidenceAdded failed" << endl;
|
|
if ( !connectKMailSignal( "incidenceDeleted(TQString,TQString,TQString)",
|
|
"fromKMailDelIncidence(TQString,TQString,TQString)" ) )
|
|
kdError(5650) << "DCOP connection to incidenceDeleted failed" << endl;
|
|
if ( !connectKMailSignal( "signalRefresh(TQString,TQString)",
|
|
"fromKMailRefresh(TQString,TQString)" ) )
|
|
kdError(5650) << "DCOP connection to signalRefresh failed" << endl;
|
|
if ( !connectKMailSignal( "subresourceAdded( TQString, TQString, TQString )",
|
|
"fromKMailAddSubresource( TQString, TQString, TQString )" ) )
|
|
kdError(5650) << "DCOP connection to subresourceAdded failed" << endl;
|
|
if ( !connectKMailSignal( "subresourceDeleted(TQString,TQString)",
|
|
"fromKMailDelSubresource(TQString,TQString)" ) )
|
|
kdError(5650) << "DCOP connection to subresourceDeleted failed" << endl;
|
|
if ( !connectKMailSignal( "asyncLoadResult(TQMap<TQ_UINT32, TQString>, TQString, TQString)",
|
|
"fromKMailAsyncLoadResult(TQMap<TQ_UINT32, TQString>, TQString, TQString)" ) )
|
|
kdError(5650) << "DCOP connection to asyncLoadResult failed" << endl;
|
|
}
|
|
|
|
return ( mKMailIcalIfaceStub != 0 );
|
|
}
|
|
|
|
bool KMailConnection::fromKMailAddIncidence( const TQString& type,
|
|
const TQString& folder,
|
|
TQ_UINT32 sernum,
|
|
int format,
|
|
const TQString& data )
|
|
{
|
|
if ( format != KMailICalIface::StorageXML
|
|
&& format != KMailICalIface::StorageIcalVcard )
|
|
return false;
|
|
// kdDebug(5650) << "KMailConnection::fromKMailAddIncidence( " << type << ", "
|
|
// << folder << " ). iCal:\n" << ical << endl;
|
|
return mResource->fromKMailAddIncidence( type, folder, sernum, format, data );
|
|
}
|
|
|
|
void KMailConnection::fromKMailDelIncidence( const TQString& type,
|
|
const TQString& folder,
|
|
const TQString& xml )
|
|
{
|
|
// kdDebug(5650) << "KMailConnection::fromKMailDelIncidence( " << type << ", "
|
|
// << folder << ", " << uid << " )\n";
|
|
mResource->fromKMailDelIncidence( type, folder, xml );
|
|
}
|
|
|
|
void KMailConnection::fromKMailRefresh( const TQString& type, const TQString& folder )
|
|
{
|
|
// kdDebug(5650) << "KMailConnection::fromKMailRefresh( " << type << ", "
|
|
// << folder << " )\n";
|
|
mResource->fromKMailRefresh( type, folder );
|
|
}
|
|
|
|
void KMailConnection::fromKMailAddSubresource( const TQString& type,
|
|
const TQString& resource,
|
|
const TQString& label )
|
|
{
|
|
// kdDebug(5650) << "KMailConnection::fromKMailAddSubresource( " << type << ", "
|
|
// << resource << " )\n";
|
|
bool writable = true;
|
|
|
|
// TODO: This should be told by KMail right away
|
|
if ( connectToKMail() )
|
|
writable = mKMailIcalIfaceStub->isWritableFolder( type, resource );
|
|
|
|
mResource->fromKMailAddSubresource( type, resource, label, writable );
|
|
}
|
|
|
|
void KMailConnection::fromKMailDelSubresource( const TQString& type,
|
|
const TQString& resource )
|
|
{
|
|
// kdDebug(5650) << "KMailConnection::fromKMailDelSubresource( " << type << ", "
|
|
// << resource << " )\n";
|
|
mResource->fromKMailDelSubresource( type, resource );
|
|
}
|
|
|
|
void KMailConnection::fromKMailAsyncLoadResult( const TQMap<TQ_UINT32, TQString>& map,
|
|
const TQString& type,
|
|
const TQString& folder )
|
|
{
|
|
mResource->fromKMailAsyncLoadResult( map, type, folder );
|
|
}
|
|
|
|
bool KMailConnection::connectKMailSignal( const TQCString& signal,
|
|
const TQCString& method )
|
|
{
|
|
return connectDCOPSignal( "kmail", dcopObjectId, signal, method, false )
|
|
&& connectDCOPSignal( "kontact", dcopObjectId, signal, method, false );
|
|
}
|
|
|
|
bool KMailConnection::kmailSubresources( TQValueList<KMailICalIface::SubResource>& lst,
|
|
const TQString& contentsType )
|
|
{
|
|
if ( !connectToKMail() )
|
|
return false;
|
|
|
|
lst = mKMailIcalIfaceStub->subresourcesKolab( contentsType );
|
|
return mKMailIcalIfaceStub->ok();
|
|
}
|
|
|
|
bool KMailConnection::kmailIncidencesCount( int& count,
|
|
const TQString& mimetype,
|
|
const TQString& resource )
|
|
{
|
|
if ( !connectToKMail() )
|
|
return false;
|
|
|
|
count = mKMailIcalIfaceStub->incidencesKolabCount( mimetype, resource );
|
|
return mKMailIcalIfaceStub->ok();
|
|
}
|
|
|
|
bool KMailConnection::kmailIncidences( TQMap<TQ_UINT32, TQString>& lst,
|
|
const TQString& mimetype,
|
|
const TQString& resource,
|
|
int startIndex,
|
|
int nbMessages )
|
|
{
|
|
if ( !connectToKMail() )
|
|
return false;
|
|
|
|
lst = mKMailIcalIfaceStub->incidencesKolab( mimetype, resource, startIndex, nbMessages );
|
|
return mKMailIcalIfaceStub->ok();
|
|
}
|
|
|
|
|
|
bool KMailConnection::kmailGetAttachment( KURL& url,
|
|
const TQString& resource,
|
|
TQ_UINT32 sernum,
|
|
const TQString& filename )
|
|
{
|
|
if ( !connectToKMail() )
|
|
return false;
|
|
|
|
url = mKMailIcalIfaceStub->getAttachment( resource, sernum, filename );
|
|
return mKMailIcalIfaceStub->ok();
|
|
}
|
|
|
|
bool KMailConnection::kmailDeleteIncidence( const TQString& resource,
|
|
TQ_UINT32 sernum )
|
|
{
|
|
return connectToKMail()
|
|
&& mKMailIcalIfaceStub->deleteIncidenceKolab( resource, sernum )
|
|
&& mKMailIcalIfaceStub->ok();
|
|
}
|
|
|
|
bool KMailConnection::kmailUpdate( const TQString& resource,
|
|
TQ_UINT32& sernum,
|
|
const TQString& subject,
|
|
const TQString& plainTextBody,
|
|
const TQMap<TQCString, TQString>& customHeaders,
|
|
const TQStringList& attachmentURLs,
|
|
const TQStringList& attachmentMimetypes,
|
|
const TQStringList& attachmentNames,
|
|
const TQStringList& deletedAttachments )
|
|
{
|
|
//kdDebug(5006) << kdBacktrace() << endl;
|
|
if ( connectToKMail() ) {
|
|
sernum = mKMailIcalIfaceStub->update( resource, sernum, subject, plainTextBody, customHeaders,
|
|
attachmentURLs, attachmentMimetypes, attachmentNames,
|
|
deletedAttachments );
|
|
return sernum && mKMailIcalIfaceStub->ok();
|
|
} else
|
|
return false;
|
|
}
|
|
|
|
bool KMailConnection::kmailStorageFormat( KMailICalIface::StorageFormat& type,
|
|
const TQString& folder )
|
|
{
|
|
bool ok = connectToKMail();
|
|
type = mKMailIcalIfaceStub->storageFormat( folder );
|
|
return ok && mKMailIcalIfaceStub->ok();
|
|
}
|
|
|
|
|
|
bool KMailConnection::kmailTriggerSync( const TQString &contentsType )
|
|
{
|
|
bool ok = connectToKMail();
|
|
return ok && mKMailIcalIfaceStub->triggerSync( contentsType );
|
|
}
|
|
|
|
void KMailConnection::unregisteredFromDCOP( const TQCString& appId )
|
|
{
|
|
if ( mKMailIcalIfaceStub && mKMailIcalIfaceStub->app() == appId ) {
|
|
// Delete the stub so that the next time we need to talk to kmail,
|
|
// we'll know that we need to start a new one.
|
|
delete mKMailIcalIfaceStub;
|
|
mKMailIcalIfaceStub = 0;
|
|
}
|
|
}
|
|
|
|
#include "kmailconnection.moc"
|