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.
2373 lines
90 KiB
2373 lines
90 KiB
/*
|
|
This file is part of KMail.
|
|
|
|
Copyright (c) 2003 Steffen Hansen <steffen@klaralvdalens-datakonsult.se>
|
|
Copyright (c) 2003 - 2004 Bo Thorsen <bo@sonofthor.dk>
|
|
Copyright (c) 2004 Till Adam <adam@kde.org>
|
|
|
|
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.
|
|
*/
|
|
|
|
#ifdef HAVE_CONFIG_H
|
|
#include <config.h>
|
|
#endif
|
|
|
|
#include "kmailicalifaceimpl.h"
|
|
#include "kmfolder.h"
|
|
#include "kmfoldertree.h"
|
|
#include "kmfolderdir.h"
|
|
#include "kmgroupware.h"
|
|
#include "kmfoldermgr.h"
|
|
#include "kmcommands.h"
|
|
#include "kmfolderindex.h"
|
|
#include "kmmsgdict.h"
|
|
#include "kmmsgpart.h"
|
|
using KMail::AccountManager;
|
|
#include "kmfolderimap.h"
|
|
#include "globalsettings.h"
|
|
#include "accountmanager.h"
|
|
#include "kmfoldercachedimap.h"
|
|
#include "kmacctcachedimap.h"
|
|
#include "acljobs.h"
|
|
|
|
#include "scalix.h"
|
|
|
|
#include <mimelib/enum.h>
|
|
#include <mimelib/utility.h>
|
|
#include <mimelib/body.h>
|
|
#include <mimelib/mimepp.h>
|
|
|
|
#include <tqfile.h>
|
|
#include <tqmap.h>
|
|
#include <tqtextcodec.h>
|
|
|
|
#include <kdebug.h>
|
|
#include <kiconloader.h>
|
|
#include <kinputdialog.h>
|
|
#include <dcopclient.h>
|
|
#include <kmessagebox.h>
|
|
#include <tdeconfig.h>
|
|
#include <kurl.h>
|
|
#include <ktempfile.h>
|
|
|
|
using namespace KMail;
|
|
|
|
TQMap<TQString, TQString> *KMailICalIfaceImpl::mSubResourceUINamesMap = new TQMap<TQString, TQString>;
|
|
|
|
// Local helper methods
|
|
static void vPartMicroParser( const TQString& str, TQString& s );
|
|
static void reloadFolderTree();
|
|
|
|
// The index in this array is the KMail::FolderContentsType enum
|
|
static const struct {
|
|
const char* contentsTypeStr; // the string used in the DCOP interface
|
|
const char* mimetype;
|
|
KFolderTreeItem::Type treeItemType;
|
|
const char* annotation;
|
|
const char* translatedName;
|
|
} s_folderContentsType[] = {
|
|
{ "Mail", "application/x-vnd.kolab.mail", KFolderTreeItem::Other, "mail", I18N_NOOP( "Mail" ) },
|
|
{ "Calendar", "application/x-vnd.kolab.event", KFolderTreeItem::Calendar, "event", I18N_NOOP( "Calendar" ) },
|
|
{ "Contact", "application/x-vnd.kolab.contact", KFolderTreeItem::Contacts, "contact", I18N_NOOP( "Contacts" ) },
|
|
{ "Note", "application/x-vnd.kolab.note", KFolderTreeItem::Notes, "note", I18N_NOOP( "Notes" ) },
|
|
{ "Task", "application/x-vnd.kolab.task", KFolderTreeItem::Tasks, "task", I18N_NOOP( "Tasks" ) },
|
|
{ "Journal", "application/x-vnd.kolab.journal", KFolderTreeItem::Journals, "journal", I18N_NOOP( "Journal" ) }
|
|
};
|
|
|
|
static TQString folderContentsType( KMail::FolderContentsType type )
|
|
{
|
|
return s_folderContentsType[type].contentsTypeStr;
|
|
}
|
|
|
|
static TQString folderKolabMimeType( KMail::FolderContentsType type )
|
|
{
|
|
return s_folderContentsType[type].mimetype;
|
|
}
|
|
|
|
KMailICalIfaceImpl::StorageFormat KMailICalIfaceImpl::globalStorageFormat() const {
|
|
return GlobalSettings::self()->theIMAPResourceStorageFormat()
|
|
== GlobalSettings::EnumTheIMAPResourceStorageFormat::XML ? StorageXML : StorageIcalVcard;
|
|
}
|
|
|
|
static KMail::FolderContentsType folderContentsType( const TQString& type )
|
|
{
|
|
for ( uint i = 0 ; i < sizeof s_folderContentsType / sizeof *s_folderContentsType; ++i )
|
|
if ( type == s_folderContentsType[i].contentsTypeStr )
|
|
return static_cast<KMail::FolderContentsType>( i );
|
|
return KMail::ContentsTypeMail;
|
|
}
|
|
|
|
static TQString localizedDefaultFolderName( KMail::FolderContentsType type )
|
|
{
|
|
return i18n( s_folderContentsType[type].translatedName );
|
|
}
|
|
|
|
const char* KMailICalIfaceImpl::annotationForContentsType( KMail::FolderContentsType type )
|
|
{
|
|
return s_folderContentsType[type].annotation;
|
|
}
|
|
|
|
ExtraFolder::ExtraFolder( KMFolder* f )
|
|
: folder( f )
|
|
{
|
|
folder->open("kmailicaliface::extrafolder");
|
|
}
|
|
|
|
ExtraFolder::~ExtraFolder()
|
|
{
|
|
if ( folder )
|
|
folder->close("kmailicaliface::extrafolder");
|
|
}
|
|
|
|
|
|
/*
|
|
This interface has three parts to it - libkcal interface;
|
|
kmail interface; and helper functions.
|
|
|
|
The libkcal interface and the kmail interface have the same three
|
|
methods: add, delete and refresh. The only difference is that the
|
|
libkcal interface is used from the IMAP resource in libkcal and
|
|
the kmail interface is used from the groupware object in kmail.
|
|
*/
|
|
|
|
KMailICalIfaceImpl::KMailICalIfaceImpl()
|
|
: DCOPObject( "KMailICalIface" ), TQObject( 0, "KMailICalIfaceImpl" ),
|
|
mContacts( 0 ), mCalendar( 0 ), mNotes( 0 ), mTasks( 0 ), mJournals( 0 ),
|
|
mFolderLanguage( 0 ), mFolderParentDir( 0 ), mFolderType( KMFolderTypeUnknown ),
|
|
mUseResourceIMAP( false ), mResourceQuiet( false ), mHideFolders( true )
|
|
{
|
|
// Listen to config changes
|
|
connect( kmkernel, TQT_SIGNAL( configChanged() ), this, TQT_SLOT( readConfig() ) );
|
|
connect( kmkernel, TQT_SIGNAL( folderRemoved( KMFolder* ) ),
|
|
this, TQT_SLOT( slotFolderRemoved( KMFolder* ) ) );
|
|
|
|
mExtraFolders.setAutoDelete( true );
|
|
mAccumulators.setAutoDelete( true );
|
|
}
|
|
|
|
|
|
/* libkcal part of the interface, called from the resources using this
|
|
* when incidences are added or deleted */
|
|
|
|
// Helper function to find an attachment of a given mimetype
|
|
// Can't use KMMessage::findDwBodyPart since it only works with known mimetypes.
|
|
static DwBodyPart* findBodyPartByMimeType( const KMMessage& msg, const char* sType, const char* sSubtype, bool startsWith = false )
|
|
{
|
|
// quickly searching for our message part: since Kolab parts are
|
|
// top-level parts we do *not* have to travel into embedded multiparts
|
|
DwBodyPart* part = msg.getFirstDwBodyPart();
|
|
while( part ){
|
|
// kdDebug() << part->Headers().ContentType().TypeStr().c_str() << " "
|
|
// << part->Headers().ContentType().SubtypeStr().c_str() << endl;
|
|
if ( part->hasHeaders() ) {
|
|
DwMediaType& contentType = part->Headers().ContentType();
|
|
if ( startsWith ) {
|
|
if ( contentType.TypeStr() == sType
|
|
&& TQString( contentType.SubtypeStr().c_str() ).startsWith( sSubtype ) )
|
|
return part;
|
|
}
|
|
else
|
|
if ( contentType.TypeStr() == sType
|
|
&& contentType.SubtypeStr() == sSubtype )
|
|
return part;
|
|
}
|
|
part = part->Next();
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
// Helper function to find an attachment with a given filename
|
|
static DwBodyPart* findBodyPart( const KMMessage& msg, const TQString& attachmentName )
|
|
{
|
|
// quickly searching for our message part: since Kolab parts are
|
|
// top-level parts we do *not* have to travel into embedded multiparts
|
|
for ( DwBodyPart* part = msg.getFirstDwBodyPart(); part; part = part->Next() ) {
|
|
//kdDebug(5006) << "findBodyPart: - " << part->Headers().ContentDisposition().Filename().c_str() << endl;
|
|
if ( part->hasHeaders()
|
|
&& attachmentName == part->Headers().ContentDisposition().Filename().c_str() )
|
|
return part;
|
|
if ( part->hasHeaders() && attachmentName == part->Headers().ContentType().Name().c_str() )
|
|
return part;
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
#if 0
|
|
static void debugBodyParts( const char* foo, const KMMessage& msg )
|
|
{
|
|
kdDebug(5006) << "--debugBodyParts " << foo << "--" << endl;
|
|
for ( DwBodyPart* part = msg.getFirstDwBodyPart(); part; part = part->Next() ) {
|
|
if ( part->hasHeaders() ) {
|
|
kdDebug(5006) << " bodypart: " << part << endl;
|
|
kdDebug(5006) << " " << part->Headers().AsString().c_str() << endl;
|
|
}
|
|
else
|
|
kdDebug(5006) << " part " << part << " has no headers" << endl;
|
|
}
|
|
}
|
|
#else
|
|
inline static void debugBodyParts( const char*, const KMMessage& ) {}
|
|
#endif
|
|
|
|
|
|
// Add (or overwrite, resp.) an attachment in an existing mail,
|
|
// attachments must be local files, they are identified by their names.
|
|
// If lookupByName if false the attachment to replace is looked up by mimetype.
|
|
// return value: wrong if attachment could not be added/updated
|
|
bool KMailICalIfaceImpl::updateAttachment( KMMessage& msg,
|
|
const TQString& attachmentURL,
|
|
const TQString& attachmentName,
|
|
const TQString& attachmentMimetype,
|
|
bool lookupByName )
|
|
{
|
|
kdDebug(5006) << "KMailICalIfaceImpl::updateAttachment( " << attachmentURL << " )" << endl;
|
|
|
|
bool bOK = false;
|
|
|
|
KURL url( attachmentURL );
|
|
if ( url.isValid() && url.isLocalFile() ) {
|
|
const TQString fileName( url.path() );
|
|
TQFile file( fileName );
|
|
if( file.open( IO_ReadOnly ) ) {
|
|
TQByteArray rawData = file.readAll();
|
|
file.close();
|
|
|
|
// create the new message part with data read from temp file
|
|
KMMessagePart msgPart;
|
|
msgPart.setName( attachmentName );
|
|
|
|
const int iSlash = attachmentMimetype.find('/');
|
|
const TQCString sType = attachmentMimetype.left( iSlash ).latin1();
|
|
const TQCString sSubtype = attachmentMimetype.mid( iSlash+1 ).latin1();
|
|
msgPart.setTypeStr( sType );
|
|
msgPart.setSubtypeStr( sSubtype );
|
|
TQCString ctd("attachment;\n filename=\"");
|
|
ctd.append( attachmentName.latin1() );
|
|
ctd.append("\"");
|
|
msgPart.setContentDisposition( ctd );
|
|
TQValueList<int> dummy;
|
|
msgPart.setBodyAndGuessCte( rawData, dummy );
|
|
msgPart.setPartSpecifier( fileName );
|
|
|
|
DwBodyPart* newPart = msg.createDWBodyPart( &msgPart );
|
|
// This whole method is a bit special. We mix code for writing and code for reading.
|
|
// E.g. we need to parse the content-disposition again for ContentDisposition().Filename()
|
|
// to work later on.
|
|
newPart->Headers().ContentDisposition().Parse();
|
|
|
|
DwBodyPart* part = lookupByName ? findBodyPart( msg, attachmentName )
|
|
: findBodyPartByMimeType( msg, sType, sSubtype );
|
|
if ( part ) {
|
|
// Make sure the replacing body part is pointing
|
|
// to the same next part as the original body part.
|
|
newPart->SetNext( part->Next() );
|
|
// call DwBodyPart::operator =
|
|
// which calls DwEntity::operator =
|
|
*part = *newPart;
|
|
delete newPart;
|
|
msg.setNeedsAssembly();
|
|
kdDebug(5006) << "Attachment " << attachmentName << " updated." << endl;
|
|
} else {
|
|
msg.addDwBodyPart( newPart );
|
|
kdDebug(5006) << "Attachment " << attachmentName << " added." << endl;
|
|
}
|
|
bOK = true;
|
|
}else{
|
|
kdDebug(5006) << "Attachment " << attachmentURL << " can not be read." << endl;
|
|
}
|
|
}else{
|
|
kdDebug(5006) << "Attachment " << attachmentURL << " not a local file." << endl;
|
|
}
|
|
|
|
return bOK;
|
|
}
|
|
|
|
// Look for the attachment with the right mimetype
|
|
bool KMailICalIfaceImpl::kolabXMLFoundAndDecoded( const KMMessage& msg, const TQString& mimetype, TQString& s )
|
|
{
|
|
const int iSlash = mimetype.find('/');
|
|
const TQCString sType = mimetype.left( iSlash ).latin1();
|
|
const TQCString sSubtype = mimetype.mid( iSlash+1 ).latin1();
|
|
DwBodyPart* part = findBodyPartByMimeType( msg, sType, sSubtype, true /* starts with sSubtype, to accept application/x-vnd.kolab.contact.distlist */ );
|
|
if ( part ) {
|
|
KMMessagePart msgPart;
|
|
KMMessage::bodyPart(part, &msgPart);
|
|
s = msgPart.bodyToUnicode( TQTextCodec::codecForName( "utf8" ) );
|
|
return true;
|
|
}
|
|
return false;
|
|
}
|
|
|
|
// Delete an attachment in an existing mail.
|
|
// return value: wrong if attachment could not be deleted
|
|
//
|
|
// This code could be optimized: for now we just replace
|
|
// the attachment by an empty dummy attachment since Mimelib
|
|
// does not provide an option for deleting attachments yet.
|
|
bool KMailICalIfaceImpl::deleteAttachment( KMMessage& msg,
|
|
const TQString& attachmentName )
|
|
{
|
|
kdDebug(5006) << "KMailICalIfaceImpl::deleteAttachment( " << attachmentName << " )" << endl;
|
|
|
|
bool bOK = false;
|
|
|
|
// quickly searching for our message part: since Kolab parts are
|
|
// top-level parts we do *not* have to travel into embedded multiparts
|
|
DwBodyPart* part = findBodyPart( msg, attachmentName );
|
|
if ( part ) {
|
|
msg.getTopLevelPart()->Body().RemoveBodyPart( part );
|
|
delete part;
|
|
msg.setNeedsAssembly();
|
|
kdDebug(5006) << "Attachment deleted." << endl;
|
|
bOK = true;
|
|
}
|
|
|
|
if( !bOK ){
|
|
kdDebug(5006) << "Attachment " << attachmentName << " not found." << endl;
|
|
}
|
|
|
|
return bOK;
|
|
}
|
|
|
|
static void setIcalVcardContentTypeHeader( KMMessage *msg, KMail::FolderContentsType t, KMFolder *folder )
|
|
{
|
|
KMAcctCachedImap::GroupwareType groupwareType = KMAcctCachedImap::GroupwareKolab;
|
|
|
|
KMFolderCachedImap *imapFolder = dynamic_cast<KMFolderCachedImap*>( folder->storage() );
|
|
if ( imapFolder )
|
|
groupwareType = imapFolder->account()->groupwareType();
|
|
|
|
msg->setType( DwMime::kTypeText );
|
|
if ( t == KMail::ContentsTypeCalendar || t == KMail::ContentsTypeTask
|
|
|| t == KMail::ContentsTypeJournal ) {
|
|
msg->setSubtype( DwMime::kSubtypeVCal );
|
|
|
|
if ( groupwareType == KMAcctCachedImap::GroupwareKolab )
|
|
msg->setHeaderField("Content-Type",
|
|
"text/calendar; method=REQUEST; charset=\"utf-8\"");
|
|
else if ( groupwareType == KMAcctCachedImap::GroupwareScalix )
|
|
msg->setHeaderField("Content-Type",
|
|
"text/calendar; method=PUBLISH; charset=\"UTF-8\"");
|
|
|
|
} else if ( t == KMail::ContentsTypeContact ) {
|
|
msg->setSubtype( DwMime::kSubtypeXVCard );
|
|
if ( groupwareType == KMAcctCachedImap::GroupwareKolab )
|
|
msg->setHeaderField( "Content-Type", "Text/X-VCard; charset=\"utf-8\"" );
|
|
else if ( groupwareType == KMAcctCachedImap::GroupwareScalix )
|
|
msg->setHeaderField( "Content-Type", "application/scalix-properties; charset=\"UTF-8\"" );
|
|
} else {
|
|
kdWarning(5006) << k_funcinfo << "Attempt to write non-groupware contents to folder" << endl;
|
|
}
|
|
}
|
|
|
|
static void setXMLContentTypeHeader( KMMessage *msg, const TQString plainTextBody )
|
|
{
|
|
// add a first body part to be displayed by all mailer
|
|
// than can NOT display Kolab data: no matter if these
|
|
// mailers are MIME compliant or not
|
|
KMMessagePart firstPart;
|
|
firstPart.setType( DwMime::kTypeText );
|
|
firstPart.setSubtype( DwMime::kSubtypePlain );
|
|
msg->removeHeaderField( "Content-Type" );
|
|
msg->setType( DwMime::kTypeMultipart );
|
|
msg->setSubtype( DwMime::kSubtypeMixed );
|
|
msg->headers().ContentType().CreateBoundary( 0 );
|
|
msg->headers().ContentType().Assemble();
|
|
firstPart.setBodyFromUnicode( plainTextBody );
|
|
msg->addBodyPart( &firstPart );
|
|
}
|
|
|
|
// Store a new entry that was received from the resource
|
|
TQ_UINT32 KMailICalIfaceImpl::addIncidenceKolab( KMFolder& folder,
|
|
const TQString& subject,
|
|
const TQString& plainTextBody,
|
|
const TQMap<TQCString, TQString>& customHeaders,
|
|
const TQStringList& attachmentURLs,
|
|
const TQStringList& attachmentNames,
|
|
const TQStringList& attachmentMimetypes )
|
|
{
|
|
kdDebug(5006) << "KMailICalIfaceImpl::addIncidenceKolab( " << attachmentNames << " )" << endl;
|
|
|
|
TQ_UINT32 sernum = 0;
|
|
bool bAttachOK = true;
|
|
|
|
// Make a new message for the incidence
|
|
KMMessage* msg = new KMMessage();
|
|
msg->initHeader();
|
|
msg->setSubject( subject );
|
|
msg->setAutomaticFields( true );
|
|
|
|
TQMap<TQCString, TQString>::ConstIterator ith = customHeaders.begin();
|
|
const TQMap<TQCString, TQString>::ConstIterator ithEnd = customHeaders.end();
|
|
for ( ; ith != ithEnd ; ++ith ) {
|
|
msg->setHeaderField( ith.key(), ith.data() );
|
|
}
|
|
// In case of the ical format, simply add the plain text content with the
|
|
// right content type
|
|
if ( storageFormat( &folder ) == StorageXML ) {
|
|
setXMLContentTypeHeader( msg, plainTextBody );
|
|
} else if ( storageFormat( &folder ) == StorageIcalVcard ) {
|
|
const KMail::FolderContentsType t = folder.storage()->contentsType();
|
|
setIcalVcardContentTypeHeader( msg, t, &folder );
|
|
msg->setBodyEncoded( plainTextBody.utf8() );
|
|
} else {
|
|
kdWarning(5006) << k_funcinfo << "Attempt to write to folder with unknown storage type" << endl;
|
|
}
|
|
|
|
Q_ASSERT( attachmentMimetypes.count() == attachmentURLs.count() );
|
|
Q_ASSERT( attachmentNames.count() == attachmentURLs.count() );
|
|
// Add all attachments by reading them from their temp. files
|
|
TQStringList::ConstIterator itmime = attachmentMimetypes.begin();
|
|
TQStringList::ConstIterator iturl = attachmentURLs.begin();
|
|
for( TQStringList::ConstIterator itname = attachmentNames.begin();
|
|
itname != attachmentNames.end()
|
|
&& itmime != attachmentMimetypes.end()
|
|
&& iturl != attachmentURLs.end();
|
|
++itname, ++iturl, ++itmime ){
|
|
bool byname = !(*itmime).startsWith( "application/x-vnd.kolab." );
|
|
if( !updateAttachment( *msg, *iturl, *itname, *itmime, byname ) ){
|
|
kdWarning(5006) << "Attachment error, can not add Incidence." << endl;
|
|
bAttachOK = false;
|
|
break;
|
|
}
|
|
}
|
|
|
|
if( bAttachOK ){
|
|
// Mark the message as read and store it in the folder
|
|
msg->cleanupHeader();
|
|
//debugBodyParts( "after cleanup", *msg );
|
|
msg->touch();
|
|
if ( folder.addMsg( msg ) == 0 )
|
|
// Message stored
|
|
sernum = msg->getMsgSerNum();
|
|
kdDebug(5006) << "addIncidenceKolab(): Message done and saved. Sernum: "
|
|
<< sernum << endl;
|
|
|
|
//debugBodyParts( "after addMsg", *msg );
|
|
addFolderChange( &folder, Contents );
|
|
syncFolder( &folder );
|
|
} else
|
|
kdError(5006) << "addIncidenceKolab(): Message *NOT* saved!\n";
|
|
|
|
return sernum;
|
|
}
|
|
|
|
bool KMailICalIfaceImpl::deleteIncidenceKolab( const TQString& resource,
|
|
TQ_UINT32 sernum )
|
|
{
|
|
// Find the message from the serial number and delete it.
|
|
if( !mUseResourceIMAP )
|
|
return false;
|
|
|
|
kdDebug(5006) << "KMailICalIfaceImpl::deleteIncidenceKolab( "
|
|
<< resource << ", " << sernum << ")\n";
|
|
|
|
// Find the folder
|
|
KMFolder* f = findResourceFolder( resource );
|
|
if( !f ) {
|
|
kdError(5006) << "deleteIncidenceKolab(" << resource << ") : Not an IMAP resource folder" << endl;
|
|
return false;
|
|
}
|
|
|
|
bool rc = false;
|
|
|
|
KMMessage* msg = findMessageBySerNum( sernum, f );
|
|
if( msg ) {
|
|
// Message found - delete it and return happy
|
|
deleteMsg( msg );
|
|
syncFolder( f );
|
|
rc = true;
|
|
} else {
|
|
kdDebug(5006) << "Message not found, cannot remove serNum " << sernum << endl;
|
|
}
|
|
return rc;
|
|
}
|
|
|
|
|
|
int KMailICalIfaceImpl::incidencesKolabCount( const TQString& mimetype,
|
|
const TQString& resource )
|
|
{
|
|
Q_UNUSED( mimetype ); // honouring that would be too slow...
|
|
|
|
if( !mUseResourceIMAP )
|
|
return 0;
|
|
|
|
KMFolder* f = findResourceFolder( resource );
|
|
if( !f ) {
|
|
kdError(5006) << "incidencesKolab(" << resource << ") : Not an IMAP resource folder" << endl;
|
|
return 0;
|
|
}
|
|
|
|
f->open("kolabcount");
|
|
int n = f->count();
|
|
f->close("kolabcount");
|
|
kdDebug(5006) << "KMailICalIfaceImpl::incidencesKolabCount( "
|
|
<< resource << " ) returned " << n << endl;
|
|
return n;
|
|
}
|
|
|
|
TQMap<TQ_UINT32, TQString> KMailICalIfaceImpl::incidencesKolab( const TQString& mimetype,
|
|
const TQString& resource,
|
|
int startIndex,
|
|
int nbMessages )
|
|
{
|
|
/// Get the mimetype attachments from this folder. Returns a
|
|
/// TQMap with serialNumber/attachment pairs.
|
|
/// (serial numbers of the mail are provided for easier later update)
|
|
|
|
TQMap<TQ_UINT32, TQString> aMap;
|
|
if( !mUseResourceIMAP )
|
|
return aMap;
|
|
|
|
KMFolder* f = findResourceFolder( resource );
|
|
if( !f ) {
|
|
kdError(5006) << "incidencesKolab(" << resource << ") : Not an IMAP resource folder" << endl;
|
|
return aMap;
|
|
}
|
|
|
|
f->open( "incidences" );
|
|
|
|
kdDebug(5006) << k_funcinfo << "Getting incidences (" << mimetype << ") for folder " << f->label()
|
|
<< ", starting with index " << startIndex << ", " << nbMessages << " messages." << endl;
|
|
kdDebug(5006) << "The folder has " << f->count() << " messages." << endl;
|
|
|
|
int stopIndex = nbMessages == -1 ? f->count() :
|
|
TQMIN( f->count(), startIndex + nbMessages );
|
|
|
|
for(int i = startIndex; i < stopIndex; ++i) {
|
|
#if 0
|
|
bool unget = !f->isMessage(i);
|
|
KMMessage* msg = f->getMsg( i );
|
|
#else // faster
|
|
KMMessage* msg = f->storage()->readTemporaryMsg(i);
|
|
#endif
|
|
if ( msg ) {
|
|
const int iSlash = mimetype.find('/');
|
|
const TQCString sType = mimetype.left( iSlash ).latin1();
|
|
const TQCString sSubtype = mimetype.mid( iSlash+1 ).latin1();
|
|
if ( sType.isEmpty() || sSubtype.isEmpty() ) {
|
|
kdError(5006) << mimetype << " not an type/subtype combination" << endl;
|
|
} else {
|
|
DwBodyPart* dwPart = findBodyPartByMimeType( *msg, sType, sSubtype );
|
|
if ( dwPart ) {
|
|
KMMessagePart msgPart;
|
|
KMMessage::bodyPart(dwPart, &msgPart);
|
|
aMap.insert(msg->getMsgSerNum(), msgPart.bodyToUnicode( TQTextCodec::codecForName( "utf8" ) ));
|
|
} else {
|
|
// Check if the whole message has the right types. This is what
|
|
// happens in the case of ical storage, where the whole mail is
|
|
// the data
|
|
const TQCString type( msg->typeStr() );
|
|
const TQCString subtype( msg->subtypeStr() );
|
|
if (type.lower() == sType && subtype.lower() == sSubtype ) {
|
|
aMap.insert( msg->getMsgSerNum(), msg->bodyToUnicode() );
|
|
}
|
|
// This is *not* an error: it may be that not all of the messages
|
|
// have a message part that is matching the wanted MIME type
|
|
}
|
|
}
|
|
#if 0
|
|
if( unget ) f->unGetMsg(i);
|
|
#else
|
|
delete msg;
|
|
#endif
|
|
} else {
|
|
kdDebug(5006) << k_funcinfo << " Unable to retrieve message " << i << " for incidence!" << endl;
|
|
}
|
|
}
|
|
f->close( "incidences" );
|
|
return aMap;
|
|
}
|
|
|
|
|
|
/* Called when a message that was downloaded from an online imap folder
|
|
* arrives. Needed when listing incidences on online account folders. */
|
|
// TODO: Till, port me
|
|
void KMailICalIfaceImpl::slotMessageRetrieved( KMMessage* msg )
|
|
{
|
|
if( !msg ) return;
|
|
|
|
KMFolder *parent = msg->parent();
|
|
Q_ASSERT( parent );
|
|
TQ_UINT32 sernum = msg->getMsgSerNum();
|
|
|
|
// do we have an accumulator for this folder?
|
|
Accumulator *ac = mAccumulators.find( parent->location() );
|
|
if( ac ) {
|
|
TQString s;
|
|
if ( !vPartFoundAndDecoded( msg, s ) ) return;
|
|
TQString uid( "UID" );
|
|
vPartMicroParser( s, uid );
|
|
const TQ_UINT32 sernum = msg->getMsgSerNum();
|
|
mUIDToSerNum.insert( uid, sernum );
|
|
ac->add( s );
|
|
if( ac->isFull() ) {
|
|
/* if this was the last one we were waiting for, tell the resource
|
|
* about the new incidences and clean up. */
|
|
//asyncLoadResult( ac->incidences, ac->type, ac->folder );
|
|
mAccumulators.remove( ac->folder ); // autodelete
|
|
}
|
|
} else {
|
|
/* We are not accumulating for this folder, so this one was added
|
|
* by KMail. Do your thang. */
|
|
slotIncidenceAdded( msg->parent(), msg->getMsgSerNum() );
|
|
}
|
|
|
|
if ( mTheUnGetMes.contains( sernum ) ) {
|
|
mTheUnGetMes.remove( sernum );
|
|
int i = 0;
|
|
KMFolder* folder = 0;
|
|
KMMsgDict::instance()->getLocation( sernum, &folder, &i );
|
|
folder->unGetMsg( i );
|
|
}
|
|
}
|
|
|
|
static int dimapAccountCount()
|
|
{
|
|
KMail::AccountManager *mgr = kmkernel->acctMgr();
|
|
KMAccount *account = mgr->first();
|
|
int count = 0;
|
|
while ( account ) {
|
|
if ( dynamic_cast<KMAcctCachedImap*>( account ) )
|
|
++count;
|
|
account = mgr->next();
|
|
}
|
|
return count;
|
|
}
|
|
|
|
int KMailICalIfaceImpl::dimapAccounts()
|
|
{
|
|
return dimapAccountCount();
|
|
}
|
|
|
|
static TQString subresourceLabelForPresentation( const KMFolder * folder )
|
|
{
|
|
if( KMailICalIfaceImpl::getResourceMap()->contains( folder->location() ) ) {
|
|
return folder->label();
|
|
}
|
|
|
|
TQString label = folder->prettyURL();
|
|
TQStringList parts = TQStringList::split( TQString::fromLatin1("/"), label );
|
|
|
|
// In the common special case of some other user's folder shared with us
|
|
// the url looks like "Server Name/user/$USERNAME/Folder/Name". Make
|
|
// those a bit nicer.
|
|
if ( parts[1] == TQString::fromLatin1("user") ) {
|
|
TQStringList remainder(parts);
|
|
remainder.pop_front();
|
|
remainder.pop_front();
|
|
remainder.pop_front();
|
|
label = i18n("%1's %2")
|
|
.arg( parts[2] )
|
|
.arg( remainder.join( TQString::fromLatin1("/") ) );
|
|
}
|
|
// Another special case is our own folders, under the imap INBOX, make
|
|
// those prettier too
|
|
const KMFolder *parent = folder;
|
|
while ( parent->parent() && parent->parent()->owner() ) {
|
|
parent = parent->parent()->owner();
|
|
if ( parent->isSystemFolder() ) {
|
|
TQStringList remainder(parts);
|
|
remainder.pop_front();
|
|
remainder.pop_front();
|
|
if ( dimapAccountCount() > 1 ) {
|
|
// Fix kolab issue 2531 folder->storage() )->account() can be null
|
|
if( folder->storage() && static_cast<const KMFolderCachedImap*>( folder->storage() )->account() ) {
|
|
label = i18n( "My %1 (%2)")
|
|
.arg( remainder.join( TQString::fromLatin1("/") ),
|
|
static_cast<const KMFolderCachedImap*>( folder->storage() )->account()->name() );
|
|
} else {
|
|
label = i18n("My %1")
|
|
.arg( remainder.join( TQString::fromLatin1("/") ) );
|
|
}
|
|
} else {
|
|
label = i18n("My %1")
|
|
.arg( remainder.join( TQString::fromLatin1("/") ) );
|
|
}
|
|
break;
|
|
}
|
|
}
|
|
return label;
|
|
}
|
|
|
|
/* list all available subresources */
|
|
TQValueList<KMailICalIfaceImpl::SubResource> KMailICalIfaceImpl::subresourcesKolab( const TQString& contentsType )
|
|
{
|
|
TQValueList<SubResource> subResources;
|
|
|
|
// Add the default one
|
|
KMFolder* f = folderFromType( contentsType, TQString() );
|
|
if ( f ) {
|
|
subResources.append( SubResource( f->location(), subresourceLabelForPresentation( f ),
|
|
f->isWritable(), folderIsAlarmRelevant( f ) ) );
|
|
kdDebug(5006) << "Adding(1) folder " << f->location() << " " <<
|
|
( !f->isWritable() ? "readonly" : "" ) << endl;
|
|
}
|
|
|
|
// get the extra ones
|
|
const KMail::FolderContentsType t = folderContentsType( contentsType );
|
|
TQDictIterator<ExtraFolder> it( mExtraFolders );
|
|
for ( ; it.current(); ++it ){
|
|
f = it.current()->folder;
|
|
if ( f && f->storage()->contentsType() == t ) {
|
|
subResources.append( SubResource( f->location(), subresourceLabelForPresentation( f ),
|
|
f->isWritable(), folderIsAlarmRelevant( f ) ) );
|
|
kdDebug(5006) << "Adding(2) folder " << f->location() << " " <<
|
|
( !f->isWritable() ? "readonly" : "" ) << endl;
|
|
}
|
|
}
|
|
|
|
if ( subResources.isEmpty() )
|
|
kdDebug(5006) << "subresourcesKolab: No folder found for " << contentsType << endl;
|
|
return subResources;
|
|
}
|
|
|
|
bool KMailICalIfaceImpl::triggerSync( const TQString& contentsType )
|
|
{
|
|
kdDebug(5006) << k_funcinfo << endl;
|
|
TQValueList<KMailICalIfaceImpl::SubResource> folderList = subresourcesKolab( contentsType );
|
|
for ( TQValueList<KMailICalIfaceImpl::SubResource>::const_iterator it( folderList.begin() ),
|
|
end( folderList.end() );
|
|
it != end ; ++it ) {
|
|
KMFolder * const f = findResourceFolder( (*it).location );
|
|
if ( !f ) continue;
|
|
if ( f->folderType() == KMFolderTypeImap || f->folderType() == KMFolderTypeCachedImap ) {
|
|
if ( !kmkernel->askToGoOnline() ) {
|
|
return false;
|
|
}
|
|
}
|
|
|
|
if ( f->folderType() == KMFolderTypeImap ) {
|
|
KMFolderImap *imap = static_cast<KMFolderImap*>( f->storage() );
|
|
imap->getAndCheckFolder();
|
|
} else if ( f->folderType() == KMFolderTypeCachedImap ) {
|
|
KMFolderCachedImap* cached = static_cast<KMFolderCachedImap*>( f->storage() );
|
|
if ( cached->account() ) {
|
|
cached->account()->processNewMailInFolder( f );
|
|
}
|
|
}
|
|
}
|
|
return true;
|
|
}
|
|
|
|
/* Used by the resource to query whether folders are writable. */
|
|
bool KMailICalIfaceImpl::isWritableFolder( const TQString& type,
|
|
const TQString& resource )
|
|
{
|
|
KMFolder* f = folderFromType( type, resource );
|
|
if ( !f )
|
|
// Definitely not writable
|
|
return false;
|
|
|
|
return f->isWritable();
|
|
}
|
|
|
|
/* Used by the resource to query the storage format of the folder. */
|
|
KMailICalIfaceImpl::StorageFormat KMailICalIfaceImpl::storageFormat( const TQString& resource )
|
|
{
|
|
StorageFormat format;
|
|
KMFolder* f = findResourceFolder( resource );
|
|
if ( f )
|
|
format = storageFormat( f );
|
|
else
|
|
format = globalStorageFormat();
|
|
return format;
|
|
}
|
|
|
|
/**
|
|
// This finds the message with serial number "sernum", sets the
|
|
// xml attachments to hold the contents of "xml", and updates all
|
|
// attachments.
|
|
// The mail can have additional attachments, and these are not
|
|
// touched! They belong to other clients - like Outlook
|
|
// So we delete all the attachments listed in the
|
|
// "deletedAttachments" arg, and then update/add all the attachments
|
|
// given by the urllist attachments.
|
|
|
|
// If the mail does not already exist, id will not be a valid serial
|
|
// number, and the mail is just added instead. In this case
|
|
// the deletedAttachments can be forgotten.
|
|
*/
|
|
TQ_UINT32 KMailICalIfaceImpl::update( 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 )
|
|
{
|
|
TQ_UINT32 rc = 0;
|
|
|
|
if( !mUseResourceIMAP )
|
|
return rc;
|
|
|
|
Q_ASSERT( !resource.isEmpty() );
|
|
|
|
kdDebug(5006) << "KMailICalIfaceImpl::update( " << resource << ", " << sernum << " )\n";
|
|
kdDebug(5006) << attachmentURLs << "\n";
|
|
kdDebug(5006) << attachmentMimetypes << "\n";
|
|
kdDebug(5006) << attachmentNames << "\n";
|
|
kdDebug(5006) << "deleted attachments:" << deletedAttachments << "\n";
|
|
|
|
// Find the folder
|
|
KMFolder* f = findResourceFolder( resource );
|
|
if( !f ) {
|
|
kdError(5006) << "update(" << resource << ") : Not an IMAP resource folder" << endl;
|
|
return rc;
|
|
}
|
|
|
|
f->open( "ifaceupdate" );
|
|
|
|
KMMessage* msg = 0;
|
|
if ( sernum != 0 ) {
|
|
msg = findMessageBySerNum( sernum, f );
|
|
if ( !msg ) return 0;
|
|
// Message found - make a copy and update it:
|
|
KMMessage* newMsg = new KMMessage( *msg );
|
|
newMsg->setSubject( subject );
|
|
TQMap<TQCString, TQString>::ConstIterator ith = customHeaders.begin();
|
|
const TQMap<TQCString, TQString>::ConstIterator ithEnd = customHeaders.begin();
|
|
for ( ; ith != ithEnd ; ++ith )
|
|
newMsg->setHeaderField( ith.key(), ith.data() );
|
|
newMsg->setParent( 0 ); // workaround strange line in KMMsgBase::assign. newMsg is not in any folder yet.
|
|
// Note that plainTextBody isn't used in this branch. We assume it's still valid from when the mail was created.
|
|
|
|
// Delete some attachments according to list
|
|
for( TQStringList::ConstIterator it = deletedAttachments.begin();
|
|
it != deletedAttachments.end();
|
|
++it ){
|
|
if( !deleteAttachment( *newMsg, *it ) ){
|
|
// Note: It is _not_ an error if an attachment was already deleted.
|
|
}
|
|
}
|
|
|
|
const KMail::FolderContentsType t = f->storage()->contentsType();
|
|
const TQCString type = msg->typeStr();
|
|
const TQCString subtype = msg->subtypeStr();
|
|
const bool messageWasIcalVcardFormat = ( type.lower() == "text" &&
|
|
( subtype.lower() == "calendar" || subtype.lower() == "x-vcard" ) );
|
|
|
|
if ( storageFormat( f ) == StorageIcalVcard ) {
|
|
//kdDebug(5006) << k_funcinfo << " StorageFormatIcalVcard " << endl;
|
|
if ( !messageWasIcalVcardFormat ) {
|
|
setIcalVcardContentTypeHeader( newMsg, t, f );
|
|
}
|
|
newMsg->setBodyEncoded( plainTextBody.utf8() );
|
|
} else if ( storageFormat( f ) == StorageXML ) {
|
|
if ( messageWasIcalVcardFormat ) {
|
|
// this was originally an ical event, but the folder changed to xml,
|
|
// convert
|
|
setXMLContentTypeHeader( newMsg, plainTextBody );
|
|
}
|
|
//kdDebug(5006) << k_funcinfo << " StorageFormatXML " << endl;
|
|
// Add all attachments by reading them from their temp. files
|
|
TQStringList::ConstIterator iturl = attachmentURLs.begin();
|
|
TQStringList::ConstIterator itmime = attachmentMimetypes.begin();
|
|
TQStringList::ConstIterator itname = attachmentNames.begin();
|
|
for( ;
|
|
iturl != attachmentURLs.end()
|
|
&& itmime != attachmentMimetypes.end()
|
|
&& itname != attachmentNames.end();
|
|
++iturl, ++itname, ++itmime ){
|
|
bool byname = !(*itmime).startsWith( "application/x-vnd.kolab." );
|
|
if( !updateAttachment( *newMsg, *iturl, *itname, *itmime, byname ) ){
|
|
kdDebug(5006) << "Attachment error, can not update attachment " << *iturl << endl;
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
|
|
//debugBodyParts( "in update, before cleanup", *newMsg );
|
|
|
|
// This is necessary for the headers to be readable later on
|
|
newMsg->cleanupHeader();
|
|
|
|
//debugBodyParts( "in update, after cleanup", *newMsg );
|
|
|
|
deleteMsg( msg );
|
|
if ( f->addMsg( newMsg ) == 0 ) {
|
|
// Message stored
|
|
rc = newMsg->getMsgSerNum();
|
|
kdDebug(5006) << "forget about " << sernum << ", it's " << rc << " now" << endl;
|
|
}
|
|
addFolderChange( f, Contents );
|
|
syncFolder( f );
|
|
} else {
|
|
// Message not found - store it newly
|
|
rc = addIncidenceKolab( *f, subject, plainTextBody, customHeaders,
|
|
attachmentURLs,
|
|
attachmentNames,
|
|
attachmentMimetypes );
|
|
}
|
|
|
|
f->close("ifaceupdate");
|
|
return rc;
|
|
}
|
|
|
|
KURL KMailICalIfaceImpl::getAttachment( const TQString& resource,
|
|
TQ_UINT32 sernum,
|
|
const TQString& filename )
|
|
{
|
|
// This finds the attachment with the filename, saves it to a
|
|
// temp file and returns a URL to it. It's up to the resource
|
|
// to delete the tmp file later.
|
|
if( !mUseResourceIMAP )
|
|
return KURL();
|
|
|
|
kdDebug(5006) << "KMailICalIfaceImpl::getAttachment( "
|
|
<< resource << ", " << sernum << ", " << filename << " )\n";
|
|
|
|
// Find the folder
|
|
KMFolder* f = findResourceFolder( resource );
|
|
if( !f ) {
|
|
kdError(5006) << "getAttachment(" << resource << ") : Not an IMAP resource folder" << endl;
|
|
return KURL();
|
|
}
|
|
if ( storageFormat( f ) != StorageXML ) {
|
|
kdError(5006) << "getAttachment(" << resource << ") : Folder has wrong storage format " << storageFormat( f ) << endl;
|
|
return KURL();
|
|
}
|
|
|
|
KURL url;
|
|
|
|
bool bOK = false;
|
|
bool quiet = mResourceQuiet;
|
|
mResourceQuiet = true;
|
|
|
|
KMMessage* msg = findMessageBySerNum( sernum, f );
|
|
if( msg ) {
|
|
// Message found - look for the attachment:
|
|
|
|
DwBodyPart* part = findBodyPart( *msg, filename );
|
|
if ( part ) {
|
|
// Save the contents of the attachment.
|
|
KMMessagePart aPart;
|
|
msg->bodyPart( part, &aPart );
|
|
TQByteArray rawData( aPart.bodyDecodedBinary() );
|
|
|
|
KTempFile file;
|
|
file.file()->writeBlock( rawData.data(), rawData.size() );
|
|
|
|
url.setPath( file.name() );
|
|
|
|
bOK = true;
|
|
}
|
|
|
|
if( !bOK ){
|
|
kdDebug(5006) << "Attachment " << filename << " not found." << endl;
|
|
}
|
|
}else{
|
|
kdDebug(5006) << "Message not found." << endl;
|
|
}
|
|
|
|
mResourceQuiet = quiet;
|
|
return url;
|
|
}
|
|
|
|
TQString KMailICalIfaceImpl::attachmentMimetype( const TQString & resource,
|
|
TQ_UINT32 sernum,
|
|
const TQString & filename )
|
|
{
|
|
if( !mUseResourceIMAP )
|
|
return TQString();
|
|
KMFolder* f = findResourceFolder( resource );
|
|
if( !f || storageFormat( f ) != StorageXML ) {
|
|
kdError(5006) << "attachmentMimetype(" << resource << ") : Wrong folder" << endl;
|
|
return TQString();
|
|
}
|
|
|
|
KMMessage* msg = findMessageBySerNum( sernum, f );
|
|
if( msg ) {
|
|
// Message found - look for the attachment:
|
|
DwBodyPart* part = findBodyPart( *msg, filename );
|
|
if ( part ) {
|
|
KMMessagePart kmPart;
|
|
msg->bodyPart( part, &kmPart );
|
|
return TQString( kmPart.typeStr() ) + "/" + TQString( kmPart.subtypeStr() );
|
|
} else {
|
|
kdDebug(5006) << "Attachment " << filename << " not found." << endl;
|
|
}
|
|
} else {
|
|
kdDebug(5006) << "Message not found." << endl;
|
|
}
|
|
|
|
return TQString();
|
|
}
|
|
|
|
TQStringList KMailICalIfaceImpl::listAttachments(const TQString & resource, TQ_UINT32 sernum)
|
|
{
|
|
TQStringList rv;
|
|
if( !mUseResourceIMAP )
|
|
return rv;
|
|
|
|
// Find the folder
|
|
KMFolder* f = findResourceFolder( resource );
|
|
if( !f ) {
|
|
kdError(5006) << "listAttachments(" << resource << ") : Not an IMAP resource folder" << endl;
|
|
return rv;
|
|
}
|
|
if ( storageFormat( f ) != StorageXML ) {
|
|
kdError(5006) << "listAttachment(" << resource << ") : Folder has wrong storage format " << storageFormat( f ) << endl;
|
|
return rv;
|
|
}
|
|
|
|
KMMessage* msg = findMessageBySerNum( sernum, f );
|
|
if( msg ) {
|
|
for ( DwBodyPart* part = msg->getFirstDwBodyPart(); part; part = part->Next() ) {
|
|
if ( part->hasHeaders() ) {
|
|
TQString name;
|
|
DwMediaType& contentType = part->Headers().ContentType();
|
|
if ( TQString( contentType.SubtypeStr().c_str() ).startsWith( "x-vnd.kolab." )
|
|
|| TQString( contentType.SubtypeStr().c_str() ).contains( "tnef" ) )
|
|
continue;
|
|
if ( !part->Headers().ContentDisposition().Filename().empty() )
|
|
name = part->Headers().ContentDisposition().Filename().c_str();
|
|
else if ( !contentType.Name().empty() )
|
|
name = contentType.Name().c_str();
|
|
if ( !name.isEmpty() )
|
|
rv.append( name );
|
|
}
|
|
}
|
|
} else {
|
|
kdDebug(5006) << "Message not found." << endl;
|
|
}
|
|
|
|
return rv;
|
|
}
|
|
|
|
|
|
// ============================================================================
|
|
|
|
/* KMail part of the interface. These slots are connected to the resource
|
|
* folders and inform us of folders or incidences in them changing, being
|
|
* added or going away. */
|
|
|
|
void KMailICalIfaceImpl::slotFolderRemoved( KMFolder* folder )
|
|
{
|
|
// pretend the folder just changed back to the mail type, which
|
|
// does the right thing, namely remove resource
|
|
folderContentsTypeChanged( folder, KMail::ContentsTypeMail );
|
|
TDEConfigGroup configGroup( kmkernel->config(), "GroupwareFolderInfo" );
|
|
configGroup.deleteEntry( folder->idString() + "-storageFormat" );
|
|
configGroup.deleteEntry( folder->idString() + "-changes" );
|
|
}
|
|
|
|
// KMail added a file to one of the groupware folders
|
|
void KMailICalIfaceImpl::slotIncidenceAdded( KMFolder* folder,
|
|
TQ_UINT32 sernum )
|
|
{
|
|
if( mResourceQuiet || !mUseResourceIMAP )
|
|
return;
|
|
|
|
// kdDebug(5006) << "KMailICalIfaceImpl::slotIncidenceAdded" << endl;
|
|
TQString type = folderContentsType( folder->storage()->contentsType() );
|
|
if( type.isEmpty() ) {
|
|
kdError(5006) << "Not an IMAP resource folder" << endl;
|
|
return;
|
|
}
|
|
// Get the index of the mail
|
|
int i = 0;
|
|
KMFolder* aFolder = 0;
|
|
KMMsgDict::instance()->getLocation( sernum, &aFolder, &i );
|
|
assert( folder == aFolder );
|
|
|
|
bool unget = !folder->isMessage( i );
|
|
TQString s;
|
|
TQString uid( "UID" );
|
|
KMMessage *msg = folder->getMsg( i );
|
|
if( !msg ) return;
|
|
if( msg->isComplete() ) {
|
|
|
|
bool ok = false;
|
|
StorageFormat format = storageFormat( folder );
|
|
switch( format ) {
|
|
case StorageIcalVcard:
|
|
// Read the iCal or vCard
|
|
ok = vPartFoundAndDecoded( msg, s );
|
|
if ( ok )
|
|
vPartMicroParser( s, uid );
|
|
break;
|
|
case StorageXML:
|
|
// Read the XML from the attachment with the given mimetype
|
|
if ( kolabXMLFoundAndDecoded( *msg,
|
|
folderKolabMimeType( folder->storage()->contentsType() ), s ) ) {
|
|
uid = msg->subject();
|
|
ok = true;
|
|
}
|
|
break;
|
|
}
|
|
if ( !ok ) {
|
|
if ( unget )
|
|
folder->unGetMsg( i );
|
|
return;
|
|
}
|
|
const TQ_UINT32 sernum = msg->getMsgSerNum();
|
|
mUIDToSerNum.insert( uid, sernum );
|
|
|
|
// tell the resource if we didn't trigger this ourselves
|
|
if ( mInTransit.contains( uid ) ) {
|
|
mInTransit.remove( uid );
|
|
}
|
|
incidenceAdded( type, folder->location(), sernum, format, s );
|
|
} else {
|
|
// go get the rest of it, then try again
|
|
// TODO: Till, port me
|
|
if ( unget ) mTheUnGetMes.insert( msg->getMsgSerNum(), true );
|
|
FolderJob *job = msg->parent()->createJob( msg );
|
|
connect( job, TQT_SIGNAL( messageRetrieved( KMMessage* ) ),
|
|
this, TQT_SLOT( slotMessageRetrieved( KMMessage* ) ) );
|
|
job->start();
|
|
return;
|
|
}
|
|
if( unget ) folder->unGetMsg(i);
|
|
}
|
|
|
|
// KMail deleted a file
|
|
void KMailICalIfaceImpl::slotIncidenceDeleted( KMFolder* folder,
|
|
TQ_UINT32 sernum )
|
|
{
|
|
if( mResourceQuiet || !mUseResourceIMAP )
|
|
return;
|
|
|
|
TQString type = folderContentsType( folder->storage()->contentsType() );
|
|
//kdDebug(5006) << folder << " " << type << " " << sernum << endl;
|
|
if( !type.isEmpty() ) {
|
|
// Get the index of the mail
|
|
int i = 0;
|
|
KMFolder* aFolder = 0;
|
|
KMMsgDict::instance()->getLocation( sernum, &aFolder, &i );
|
|
assert( folder == aFolder );
|
|
|
|
// Read the iCal or vCard
|
|
bool unget = !folder->isMessage( i );
|
|
TQString s;
|
|
bool ok = false;
|
|
KMMessage* msg = folder->getMsg( i );
|
|
TQString uid( "UID" );
|
|
switch( storageFormat( folder ) ) {
|
|
case StorageIcalVcard:
|
|
if( vPartFoundAndDecoded( msg, s ) ) {
|
|
vPartMicroParser( s, uid );
|
|
ok = true;
|
|
}
|
|
break;
|
|
case StorageXML:
|
|
if ( kolabXMLFoundAndDecoded( *msg, folderKolabMimeType( folder->storage()->contentsType() ), s ) ) {
|
|
uid = msg->subject();
|
|
ok = true;
|
|
}
|
|
break;
|
|
}
|
|
if ( ok ) {
|
|
kdDebug(5006) << "Emitting DCOP signal incidenceDeleted( "
|
|
<< type << ", " << folder->location() << ", " << uid
|
|
<< " )" << endl;
|
|
incidenceDeleted( type, folder->location(), uid );
|
|
}
|
|
if( unget ) folder->unGetMsg(i);
|
|
} else
|
|
kdError(5006) << "Not a groupware folder" << endl;
|
|
}
|
|
|
|
// KMail orders a refresh
|
|
void KMailICalIfaceImpl::slotRefresh( const TQString& type )
|
|
{
|
|
if( mUseResourceIMAP ) {
|
|
signalRefresh( type, TQString() /* PENDING(bo) folder->location() */ );
|
|
kdDebug(5006) << "Emitting DCOP signal signalRefresh( " << type << " )" << endl;
|
|
}
|
|
}
|
|
|
|
// This is among other things called when an expunge of a folder happens
|
|
void KMailICalIfaceImpl::slotRefreshFolder( KMFolder* folder)
|
|
{
|
|
// TODO: The resources would of course be better off, if only this
|
|
// folder would need refreshing. Currently it just orders a reload of
|
|
// the type of the folder
|
|
if( mUseResourceIMAP && folder ) {
|
|
if( folder == mCalendar || folder == mContacts
|
|
|| folder == mNotes || folder == mTasks
|
|
|| folder == mJournals || mExtraFolders.find( folder->location() ) ) {
|
|
// Refresh the folder of this type
|
|
KMail::FolderContentsType ct = folder->storage()->contentsType();
|
|
slotRefresh( s_folderContentsType[ct].contentsTypeStr );
|
|
}
|
|
}
|
|
}
|
|
|
|
/****************************
|
|
* The folder and message stuff code
|
|
*/
|
|
|
|
KMFolder* KMailICalIfaceImpl::folderFromType( const TQString& type,
|
|
const TQString& folder )
|
|
{
|
|
if( mUseResourceIMAP ) {
|
|
KMFolder* f = 0;
|
|
if ( !folder.isEmpty() ) {
|
|
f = extraFolder( type, folder );
|
|
if ( f )
|
|
return f;
|
|
}
|
|
|
|
if( type == "Calendar" ) f = mCalendar;
|
|
else if( type == "Contact" ) f = mContacts;
|
|
else if( type == "Note" ) f = mNotes;
|
|
else if( type == "Task" || type == "Todo" ) f = mTasks;
|
|
else if( type == "Journal" ) f = mJournals;
|
|
|
|
if ( f && ( folder.isEmpty() || folder == f->location() ) )
|
|
return f;
|
|
|
|
kdError(5006) << "No folder ( " << type << ", " << folder << " )\n";
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
|
|
// Returns true if folder is a resource folder. If the resource isn't enabled
|
|
// this always returns false
|
|
bool KMailICalIfaceImpl::isResourceFolder( KMFolder* folder ) const
|
|
{
|
|
return mUseResourceIMAP && folder &&
|
|
( isStandardResourceFolder( folder ) || mExtraFolders.find( folder->location() )!=0 );
|
|
}
|
|
|
|
bool KMailICalIfaceImpl::isStandardResourceFolder( KMFolder* folder ) const
|
|
{
|
|
return ( folder == mCalendar || folder == mTasks || folder == mJournals ||
|
|
folder == mNotes || folder == mContacts );
|
|
}
|
|
|
|
bool KMailICalIfaceImpl::hideResourceFolder( KMFolder* folder ) const
|
|
{
|
|
return mHideFolders && isResourceFolder( folder );
|
|
}
|
|
|
|
bool KMailICalIfaceImpl::hideResourceAccountRoot( KMFolder* folder ) const
|
|
{
|
|
KMFolderCachedImap *dimapFolder = dynamic_cast<KMFolderCachedImap*>( folder->storage() );
|
|
bool hide = dimapFolder && mHideFolders
|
|
&& (int)dimapFolder->account()->id() == GlobalSettings::self()->theIMAPResourceAccount()
|
|
&& GlobalSettings::self()->showOnlyGroupwareFoldersForGroupwareAccount();
|
|
return hide;
|
|
|
|
}
|
|
|
|
KFolderTreeItem::Type KMailICalIfaceImpl::folderType( KMFolder* folder ) const
|
|
{
|
|
if( mUseResourceIMAP && folder ) {
|
|
if( folder == mCalendar || folder == mContacts
|
|
|| folder == mNotes || folder == mTasks
|
|
|| folder == mJournals || mExtraFolders.find( folder->location() ) ) {
|
|
KMail::FolderContentsType ct = folder->storage()->contentsType();
|
|
return s_folderContentsType[ct].treeItemType;
|
|
}
|
|
}
|
|
|
|
return KFolderTreeItem::Other;
|
|
}
|
|
|
|
// Global tables of foldernames is different languages
|
|
// For now: 0->English, 1->German, 2->French, 3->Dutch
|
|
static TQMap<KFolderTreeItem::Type,TQString> folderNames[4];
|
|
TQString KMailICalIfaceImpl::folderName( KFolderTreeItem::Type type, int language ) const
|
|
{
|
|
// With the XML storage, folders are always (internally) named in English
|
|
if ( GlobalSettings::self()->theIMAPResourceStorageFormat() == GlobalSettings::EnumTheIMAPResourceStorageFormat::XML )
|
|
language = 0;
|
|
|
|
static bool folderNamesSet = false;
|
|
if( !folderNamesSet ) {
|
|
folderNamesSet = true;
|
|
/* NOTE: If you add something here, you also need to update
|
|
GroupwarePage in configuredialog.cpp */
|
|
|
|
// English
|
|
folderNames[0][KFolderTreeItem::Calendar] = TQString::fromLatin1("Calendar");
|
|
folderNames[0][KFolderTreeItem::Tasks] = TQString::fromLatin1("Tasks");
|
|
folderNames[0][KFolderTreeItem::Journals] = TQString::fromLatin1("Journal");
|
|
folderNames[0][KFolderTreeItem::Contacts] = TQString::fromLatin1("Contacts");
|
|
folderNames[0][KFolderTreeItem::Notes] = TQString::fromLatin1("Notes");
|
|
|
|
// German
|
|
folderNames[1][KFolderTreeItem::Calendar] = TQString::fromLatin1("Kalender");
|
|
folderNames[1][KFolderTreeItem::Tasks] = TQString::fromLatin1("Aufgaben");
|
|
folderNames[1][KFolderTreeItem::Journals] = TQString::fromLatin1("Journal");
|
|
folderNames[1][KFolderTreeItem::Contacts] = TQString::fromLatin1("Kontakte");
|
|
folderNames[1][KFolderTreeItem::Notes] = TQString::fromLatin1("Notizen");
|
|
|
|
// French
|
|
folderNames[2][KFolderTreeItem::Calendar] = TQString::fromLatin1("Calendrier");
|
|
// Tasks = Tâches (â == 0xE2 in latin1)
|
|
folderNames[2][KFolderTreeItem::Tasks] = TQString::fromLatin1("T\342ches");
|
|
folderNames[2][KFolderTreeItem::Journals] = TQString::fromLatin1("Journal");
|
|
folderNames[2][KFolderTreeItem::Contacts] = TQString::fromLatin1("Contacts");
|
|
folderNames[2][KFolderTreeItem::Notes] = TQString::fromLatin1("Notes");
|
|
|
|
// Dutch
|
|
folderNames[3][KFolderTreeItem::Calendar] = TQString::fromLatin1("Agenda");
|
|
folderNames[3][KFolderTreeItem::Tasks] = TQString::fromLatin1("Taken");
|
|
folderNames[3][KFolderTreeItem::Journals] = TQString::fromLatin1("Logboek");
|
|
folderNames[3][KFolderTreeItem::Contacts] = TQString::fromLatin1("Contactpersonen");
|
|
folderNames[3][KFolderTreeItem::Notes] = TQString::fromLatin1("Notities");
|
|
}
|
|
|
|
if( language < 0 || language > 3 ) {
|
|
return folderNames[mFolderLanguage][type];
|
|
}
|
|
else {
|
|
return folderNames[language][type];
|
|
}
|
|
}
|
|
|
|
|
|
// Find message matching a given UID
|
|
KMMessage *KMailICalIfaceImpl::findMessageByUID( const TQString& uid, KMFolder* folder )
|
|
{
|
|
if( !folder || !mUIDToSerNum.contains( uid ) ) return 0;
|
|
int i;
|
|
KMFolder *aFolder;
|
|
KMMsgDict::instance()->getLocation( mUIDToSerNum[uid], &aFolder, &i );
|
|
Q_ASSERT( aFolder == folder );
|
|
return folder->getMsg( i );
|
|
}
|
|
|
|
// Find message matching a given serial number
|
|
KMMessage *KMailICalIfaceImpl::findMessageBySerNum( TQ_UINT32 serNum, KMFolder* folder )
|
|
{
|
|
if( !folder ) return 0;
|
|
|
|
KMMessage *message = 0;
|
|
KMFolder* aFolder = 0;
|
|
int index;
|
|
KMMsgDict::instance()->getLocation( serNum, &aFolder, &index );
|
|
|
|
if( aFolder && aFolder != folder ) {
|
|
kdWarning(5006) << "findMessageBySerNum( " << serNum << " ) found it in folder " << aFolder->location() << ", expected " << folder->location() << endl;
|
|
} else {
|
|
if( aFolder )
|
|
message = aFolder->getMsg( index );
|
|
if (!message)
|
|
kdWarning(5006) << "findMessageBySerNum( " << serNum << " ) invalid serial number\n" << endl;
|
|
}
|
|
return message;
|
|
}
|
|
|
|
void KMailICalIfaceImpl::deleteMsg( KMMessage *msg )
|
|
{
|
|
if( !msg ) return;
|
|
// Commands are now delayed; can't use that anymore, we need immediate deletion
|
|
//( new KMDeleteMsgCommand( msg->parent(), msg ) )->start();
|
|
KMFolder *srcFolder = msg->parent();
|
|
int idx = srcFolder->find(msg);
|
|
assert(idx != -1);
|
|
// kill existing jobs since we are about to delete the message
|
|
srcFolder->ignoreJobsForMessage( msg );
|
|
if ( !msg->transferInProgress() ) {
|
|
srcFolder->removeMsg(idx);
|
|
delete msg;
|
|
} else {
|
|
kdDebug(5006) << k_funcinfo << "Message cannot be deleted now because it is currently in use " << msg << endl;
|
|
msg->deleteWhenUnused();
|
|
}
|
|
addFolderChange( srcFolder, Contents );
|
|
}
|
|
|
|
void KMailICalIfaceImpl::folderContentsTypeChanged( KMFolder* folder,
|
|
KMail::FolderContentsType contentsType )
|
|
{
|
|
if ( !mUseResourceIMAP )
|
|
return;
|
|
// kdDebug(5006) << "folderContentsTypeChanged( " << folder->name()
|
|
// << ", " << contentsType << ")\n";
|
|
|
|
// The builtins can't change type
|
|
if ( isStandardResourceFolder( folder ) )
|
|
return;
|
|
|
|
// Check if already know that 'extra folder'
|
|
const TQString location = folder->location();
|
|
ExtraFolder* ef = mExtraFolders.find( location );
|
|
if ( ef && ef->folder ) {
|
|
// Notify that the old folder resource is no longer available
|
|
subresourceDeleted(folderContentsType( folder->storage()->contentsType() ), location );
|
|
|
|
if ( contentsType == KMail::ContentsTypeMail ) {
|
|
// Delete the old entry, stop listening and stop here
|
|
mExtraFolders.remove( location );
|
|
folder->disconnect( this );
|
|
return;
|
|
}
|
|
// So the type changed to another groupware type, ok.
|
|
} else {
|
|
if ( ef && !ef->folder ) // deleted folder, clean up
|
|
mExtraFolders.remove( location );
|
|
if ( contentsType == KMail::ContentsTypeMail )
|
|
return;
|
|
|
|
//kdDebug(5006) << "registering " << location << " as extra folder" << endl;
|
|
// Make a new entry for the list
|
|
ef = new ExtraFolder( folder );
|
|
mExtraFolders.insert( location, ef );
|
|
|
|
FolderInfo info = readFolderInfo( folder );
|
|
mFolderInfoMap.insert( folder, info );
|
|
|
|
// Adjust the folder names of all foo.default folders.
|
|
// German users will get Kalender as the name of all default Calendar folders,
|
|
// including their own, so that the default calendar folder of their Japanese
|
|
// coworker appears as /user/hirohito/Kalender, although Hirohito sees his folder
|
|
// in Japanese. On the server the folders are always in English.
|
|
if ( folder->folderType() == KMFolderTypeCachedImap ) {
|
|
TQString annotation = static_cast<KMFolderCachedImap*>( folder->storage() )->annotationFolderType();
|
|
kdDebug(5006) << "folderContentsTypeChanged: " << folder->name() << " has annotation " << annotation << endl;
|
|
if ( annotation == TQString( s_folderContentsType[contentsType].annotation ) + ".default" )
|
|
folder->setLabel( localizedDefaultFolderName( contentsType ) );
|
|
}
|
|
|
|
connectFolder( folder );
|
|
}
|
|
// Tell about the new resource
|
|
subresourceAdded( folderContentsType( contentsType ), location, subresourceLabelForPresentation(folder),
|
|
folder->isWritable(), folderIsAlarmRelevant( folder ) );
|
|
}
|
|
|
|
KMFolder* KMailICalIfaceImpl::extraFolder( const TQString& type,
|
|
const TQString& folder )
|
|
{
|
|
// If an extra folder exists that matches the type and folder location,
|
|
// use that
|
|
int t = folderContentsType( type );
|
|
if ( t < 1 || t > 5 )
|
|
return 0;
|
|
|
|
ExtraFolder* ef = mExtraFolders.find( folder );
|
|
if ( ef && ef->folder && ef->folder->storage()->contentsType() == t )
|
|
return ef->folder;
|
|
|
|
return 0;
|
|
}
|
|
|
|
KMailICalIfaceImpl::StorageFormat KMailICalIfaceImpl::storageFormat( KMFolder* folder ) const
|
|
{
|
|
FolderInfoMap::ConstIterator it = mFolderInfoMap.find( folder );
|
|
if ( it != mFolderInfoMap.end() )
|
|
return (*it).mStorageFormat;
|
|
return globalStorageFormat();
|
|
}
|
|
|
|
void KMailICalIfaceImpl::setStorageFormat( KMFolder* folder, StorageFormat format )
|
|
{
|
|
FolderInfoMap::Iterator it = mFolderInfoMap.find( folder );
|
|
if ( it != mFolderInfoMap.end() ) {
|
|
(*it).mStorageFormat = format;
|
|
} else {
|
|
FolderInfo info( format, NoChange );
|
|
mFolderInfoMap.insert( folder, info );
|
|
}
|
|
TDEConfigGroup configGroup( kmkernel->config(), "GroupwareFolderInfo" );
|
|
configGroup.writeEntry( folder->idString() + "-storageFormat",
|
|
format == StorageXML ? "xml" : "icalvcard" );
|
|
}
|
|
|
|
void KMailICalIfaceImpl::addFolderChange( KMFolder* folder, FolderChanges changes )
|
|
{
|
|
FolderInfoMap::Iterator it = mFolderInfoMap.find( folder );
|
|
if ( it != mFolderInfoMap.end() ) {
|
|
(*it).mChanges = static_cast<FolderChanges>( (*it).mChanges | changes );
|
|
} else { // Otherwise, well, it's a folder we don't care about.
|
|
kdDebug(5006) << "addFolderChange: nothing known about folder " << folder->location() << endl;
|
|
}
|
|
TDEConfigGroup configGroup( kmkernel->config(), "GroupwareFolderInfo" );
|
|
configGroup.writeEntry( folder->idString() + "-changes", (*it).mChanges );
|
|
}
|
|
|
|
KMailICalIfaceImpl::FolderInfo KMailICalIfaceImpl::readFolderInfo( const KMFolder * const folder ) const
|
|
{
|
|
TDEConfigGroup configGroup( kmkernel->config(), "GroupwareFolderInfo" );
|
|
TQString str = configGroup.readEntry( folder->idString() + "-storageFormat", "unset" );
|
|
FolderInfo info;
|
|
if ( str == "unset" ) {
|
|
info.mStorageFormat = globalStorageFormat();
|
|
configGroup.writeEntry( folder->idString() + "-storageFormat",
|
|
info.mStorageFormat == StorageXML ? "xml" : "icalvcard" );
|
|
} else {
|
|
info.mStorageFormat = ( str == "xml" ) ? StorageXML : StorageIcalVcard;
|
|
}
|
|
info.mChanges = (FolderChanges) configGroup.readNumEntry( folder->idString() + "-changes" );
|
|
return info;
|
|
}
|
|
|
|
|
|
void KMailICalIfaceImpl::folderSynced( KMFolder* folder, const KURL& folderURL )
|
|
{
|
|
FolderInfoMap::Iterator it = mFolderInfoMap.find( folder );
|
|
if ( it != mFolderInfoMap.end() && (*it).mChanges ) {
|
|
handleFolderSynced( folder, folderURL, (*it).mChanges );
|
|
(*it).mChanges = NoChange;
|
|
}
|
|
}
|
|
|
|
void KMailICalIfaceImpl::handleFolderSynced( KMFolder* folder,
|
|
const KURL& folderURL,
|
|
int _changes )
|
|
{
|
|
// This is done here instead of in the resource, because
|
|
// there could be 0, 1, or N kolab resources at this point.
|
|
// We can hack the N case, but not the 0 case.
|
|
// So the idea of a DCOP signal for this wouldn't work.
|
|
if ( ( _changes & KMailICalIface::Contents ) ||
|
|
( _changes & KMailICalIface::ACL ) ) {
|
|
if ( storageFormat( folder ) == StorageXML && folder->storage()->contentsType() == KMail::ContentsTypeCalendar )
|
|
triggerKolabFreeBusy( folderURL );
|
|
}
|
|
}
|
|
|
|
void KMailICalIfaceImpl::folderDeletedOnServer( const KURL& folderURL )
|
|
{
|
|
triggerKolabFreeBusy( folderURL );
|
|
}
|
|
|
|
void KMailICalIfaceImpl::triggerKolabFreeBusy( const KURL& folderURL )
|
|
{
|
|
/* Steffen said: you must issue an authenticated HTTP GET request to
|
|
https://kolabserver/freebusy/trigger/user@domain/Folder/NestedFolder.pfb
|
|
(replace .pfb with .xpfb for extended fb lists). */
|
|
KURL httpURL( folderURL );
|
|
// Keep username ("user@domain"), pass, and host from the imap url
|
|
httpURL.setProtocol( "https" );
|
|
httpURL.setPort( 0 ); // remove imap port
|
|
|
|
// IMAP path is either /INBOX/<path> or /user/someone/<path>
|
|
TQString path = folderURL.path( -1 );
|
|
Q_ASSERT( path.startsWith( "/" ) );
|
|
int secondSlash = path.find( '/', 1 );
|
|
if ( secondSlash == -1 ) {
|
|
kdWarning() << "KCal::ResourceKolab::fromKMailFolderSynced path is too short: " << path << endl;
|
|
return;
|
|
}
|
|
if ( path.startsWith( "/INBOX/", false ) ) {
|
|
// If INBOX, replace it with the username (which is user@domain)
|
|
path = path.mid( secondSlash );
|
|
path.prepend( folderURL.user() );
|
|
} else {
|
|
// If user, just remove it. So we keep the IMAP-returned username.
|
|
// This assumes it's a known user on the same domain.
|
|
path = path.mid( secondSlash );
|
|
}
|
|
|
|
httpURL.setPath( "/freebusy/trigger/" + path + ".pfb" );
|
|
httpURL.setQuery( TQString() );
|
|
// Ensure that we encode everything with UTF8
|
|
httpURL = KURL( httpURL.url(0,106), 106 );
|
|
kdDebug() << "Triggering PFB update for " << folderURL << " : getting " << httpURL << endl;
|
|
// "Fire and forget". No need for error handling, nor for explicit deletion.
|
|
// Maybe we should try to prevent launching it if it's already running (for this URL) though.
|
|
/*TDEIO::Job* job =*/ TDEIO::get( httpURL, false, false /*no progress info*/ );
|
|
}
|
|
|
|
void KMailICalIfaceImpl::slotFolderPropertiesChanged( KMFolder* folder )
|
|
{
|
|
if ( isResourceFolder( folder ) ) {
|
|
const TQString location = folder->location();
|
|
const TQString contentsTypeStr = folderContentsType( folder->storage()->contentsType() );
|
|
subresourceDeleted( contentsTypeStr, location );
|
|
|
|
subresourceAdded( contentsTypeStr, location, subresourceLabelForPresentation( folder ),
|
|
folder->isWritable(), folderIsAlarmRelevant( folder ) );
|
|
}
|
|
}
|
|
|
|
// Must only be connected to a signal from KMFolder!
|
|
void KMailICalIfaceImpl::slotFolderRenamed()
|
|
{
|
|
const KMFolder* folder = static_cast<const KMFolder *>( sender() );
|
|
slotFolderPropertiesChanged( const_cast<KMFolder*>( folder ) );
|
|
}
|
|
|
|
void KMailICalIfaceImpl::slotFolderLocationChanged( const TQString &oldLocation,
|
|
const TQString &newLocation )
|
|
{
|
|
KMFolder *folder = findResourceFolder( oldLocation );
|
|
ExtraFolder* ef = mExtraFolders.find( oldLocation );
|
|
if ( ef ) {
|
|
// reuse the ExtraFolder entry, but adjust the key
|
|
mExtraFolders.setAutoDelete( false );
|
|
mExtraFolders.remove( oldLocation );
|
|
mExtraFolders.setAutoDelete( true );
|
|
mExtraFolders.insert( newLocation, ef );
|
|
}
|
|
if ( folder )
|
|
subresourceDeleted( folderContentsType( folder->storage()->contentsType() ), oldLocation );
|
|
|
|
}
|
|
|
|
KMFolder* KMailICalIfaceImpl::findResourceFolder( const TQString& resource )
|
|
{
|
|
// Try the standard folders
|
|
if( mCalendar && mCalendar->location() == resource )
|
|
return mCalendar;
|
|
if ( mContacts && mContacts->location() == resource )
|
|
return mContacts;
|
|
if ( mNotes && mNotes->location() == resource )
|
|
return mNotes;
|
|
if ( mTasks && mTasks->location() == resource )
|
|
return mTasks;
|
|
if ( mJournals && mJournals->location() == resource )
|
|
return mJournals;
|
|
|
|
// No luck. Try the extrafolders
|
|
ExtraFolder* ef = mExtraFolders.find( resource );
|
|
if ( ef )
|
|
return ef->folder;
|
|
|
|
// No luck at all
|
|
return 0;
|
|
}
|
|
|
|
void KMailICalIfaceImpl::changeResourceUIName( const TQString &folderPath, const TQString &newName )
|
|
{
|
|
kdDebug() << "Folder path " << folderPath << endl;
|
|
KMFolder *f = findResourceFolder( folderPath );
|
|
if ( f ) {
|
|
KMailICalIfaceImpl::getResourceMap()->insert( folderPath, newName );
|
|
kmkernel->folderMgr()->renameFolder( f, newName );
|
|
TDEConfigGroup configGroup( kmkernel->config(), "Resource UINames" );
|
|
configGroup.writeEntry( folderPath, newName );
|
|
}
|
|
}
|
|
|
|
// Builds a folder list from the dimap and the local folder list.
|
|
static void createFolderList( TQStringList &folderNames, TQValueList<TQGuardedPtr<KMFolder> > &folderList )
|
|
{
|
|
TQStringList dimapFolderNames;
|
|
TQStringList localFolderNames;
|
|
TQValueList<TQGuardedPtr<KMFolder> > dimapFolderList;
|
|
TQValueList<TQGuardedPtr<KMFolder> > localFolderList;
|
|
kmkernel->dimapFolderMgr()->createFolderList( &dimapFolderNames, &dimapFolderList );
|
|
kmkernel->folderMgr()->createFolderList( &localFolderNames, &localFolderList );
|
|
folderNames += dimapFolderNames;
|
|
folderNames += localFolderNames;
|
|
folderList += dimapFolderList;
|
|
folderList += localFolderList;
|
|
}
|
|
|
|
/****************************
|
|
* The config stuff
|
|
*/
|
|
|
|
void KMailICalIfaceImpl::readConfig()
|
|
{
|
|
bool enabled = GlobalSettings::self()->theIMAPResourceEnabled() &&
|
|
( GlobalSettings::self()->theIMAPResourceAccount() != 0 );
|
|
|
|
if( !enabled ) {
|
|
if( mUseResourceIMAP == true ) {
|
|
// Shutting down
|
|
mUseResourceIMAP = false;
|
|
cleanup();
|
|
reloadFolderTree();
|
|
}
|
|
return;
|
|
}
|
|
mUseResourceIMAP = enabled;
|
|
|
|
// Read remaining options
|
|
const bool hideFolders = GlobalSettings::self()->hideGroupwareFolders();
|
|
TQString parentName = GlobalSettings::self()->theIMAPResourceFolderParent();
|
|
|
|
// Find the folder parent
|
|
KMFolderDir* folderParentDir;
|
|
KMFolderType folderType;
|
|
KMFolder* folderParent = kmkernel->findFolderById( parentName );
|
|
if( folderParent == 0 ) {
|
|
// Parent folder not found. It was probably deleted. The user will have to
|
|
// configure things again.
|
|
kdDebug(5006) << "Groupware folder " << parentName << " not found. Groupware functionality disabled" << endl;
|
|
// Or maybe the inbox simply wasn't created on the first startup
|
|
KMAccount* account = kmkernel->acctMgr()->find( GlobalSettings::self()->theIMAPResourceAccount() );
|
|
Q_ASSERT( account );
|
|
if ( account ) {
|
|
// just in case we were connected already
|
|
disconnect( account, TQT_SIGNAL( finishedCheck( bool, CheckStatus ) ),
|
|
this, TQT_SLOT( slotCheckDone() ) );
|
|
connect( account, TQT_SIGNAL( finishedCheck( bool, CheckStatus ) ),
|
|
this, TQT_SLOT( slotCheckDone() ) );
|
|
}
|
|
mUseResourceIMAP = false;
|
|
// We can't really call cleanup(), if those folders were completely deleted.
|
|
mCalendar = 0;
|
|
mTasks = 0;
|
|
mJournals = 0;
|
|
mContacts = 0;
|
|
mNotes = 0;
|
|
return;
|
|
} else {
|
|
folderParentDir = folderParent->createChildFolder();
|
|
folderType = folderParent->folderType();
|
|
}
|
|
|
|
KMAcctCachedImap::GroupwareType groupwareType = dynamic_cast<KMFolderCachedImap *>( folderParent->storage() )->account()->groupwareType();
|
|
|
|
if ( groupwareType == KMAcctCachedImap::GroupwareKolab ) {
|
|
// Make sure the folder parent has the subdirs
|
|
// Globally there are 3 cases: nothing found, some stuff found by type/name heuristics, or everything found OK
|
|
bool noneFound = true;
|
|
bool mustFix = false; // true when at least one was found by heuristics
|
|
TQValueVector<StandardFolderSearchResult> results( KMail::ContentsTypeLast + 1 );
|
|
for ( int i = 0; i < KMail::ContentsTypeLast+1; ++i ) {
|
|
if ( i != KMail::ContentsTypeMail ) {
|
|
results[i] = findStandardResourceFolder( folderParentDir, static_cast<KMail::FolderContentsType>(i) );
|
|
if ( results[i].found == StandardFolderSearchResult::FoundAndStandard )
|
|
noneFound = false;
|
|
else if ( results[i].found == StandardFolderSearchResult::FoundByType ||
|
|
results[i].found == StandardFolderSearchResult::FoundByName ) {
|
|
mustFix = true;
|
|
noneFound = false;
|
|
} else // NotFound
|
|
mustFix = true;
|
|
}
|
|
}
|
|
|
|
// Check if something changed
|
|
if( mUseResourceIMAP && !noneFound && !mustFix && mFolderParentDir == folderParentDir
|
|
&& mFolderType == folderType ) {
|
|
// Nothing changed
|
|
if ( hideFolders != mHideFolders ) {
|
|
// Well, the folder hiding has changed
|
|
mHideFolders = hideFolders;
|
|
reloadFolderTree();
|
|
}
|
|
return;
|
|
}
|
|
|
|
if( noneFound || mustFix ) {
|
|
TQString msg;
|
|
TQString parentFolderName = folderParent != 0 ? folderParent->name() : folderParentDir->name();
|
|
if ( noneFound ) {
|
|
// No subfolder was found, so ask if we can make them
|
|
msg = i18n("KMail will now create the required groupware folders"
|
|
" as subfolders of %1; if you do not want this, cancel"
|
|
" and the IMAP resource will be disabled").arg(parentFolderName);
|
|
} else {
|
|
// Some subfolders were found, be more precise
|
|
TQString operations = "<ul>";
|
|
for ( int i = 0; i < KMail::ContentsTypeLast+1; ++i ) {
|
|
if ( i != KMail::ContentsTypeMail ) {
|
|
TQString typeName = localizedDefaultFolderName( static_cast<KMail::FolderContentsType>( i ) );
|
|
if ( results[i].found == StandardFolderSearchResult::NotFound )
|
|
operations += "<li>" + i18n( "%1: no folder found. It will be created." ).arg( typeName ) + "</li>";
|
|
else if ( results[i].found == StandardFolderSearchResult::FoundByType || results[i].found == StandardFolderSearchResult::FoundByName )
|
|
operations += "<li>" + i18n( "%1: found folder %2. It will be set as the main groupware folder." ).
|
|
arg( typeName ).arg( results[i].folder->label() ) + "</li>";
|
|
}
|
|
}
|
|
operations += "</ul>";
|
|
|
|
msg = i18n("<qt>KMail found the following groupware folders in %1 and needs to perform the following operations: %2"
|
|
"<br>If you do not want this, cancel"
|
|
" and the IMAP resource will be disabled").arg(parentFolderName, operations);
|
|
|
|
}
|
|
|
|
if( KMessageBox::questionYesNo( 0, msg,
|
|
i18n("Standard Groupware Folders"), KStdGuiItem::cont(), KStdGuiItem::cancel() ) == KMessageBox::No ) {
|
|
|
|
GlobalSettings::self()->setTheIMAPResourceEnabled( false );
|
|
mUseResourceIMAP = false;
|
|
mFolderParentDir = 0;
|
|
mFolderParent = 0;
|
|
reloadFolderTree();
|
|
return;
|
|
}
|
|
}
|
|
|
|
// Make the new settings work
|
|
mUseResourceIMAP = true;
|
|
mFolderLanguage = GlobalSettings::self()->theIMAPResourceFolderLanguage();
|
|
if( mFolderLanguage > 3 ) mFolderLanguage = 0;
|
|
mFolderParentDir = folderParentDir;
|
|
mFolderParent = folderParent;
|
|
mFolderType = folderType;
|
|
mHideFolders = hideFolders;
|
|
|
|
// Close the previous folders
|
|
cleanup();
|
|
|
|
// Set the new folders
|
|
mCalendar = initFolder( KMail::ContentsTypeCalendar );
|
|
mTasks = initFolder( KMail::ContentsTypeTask );
|
|
mJournals = initFolder( KMail::ContentsTypeJournal );
|
|
mContacts = initFolder( KMail::ContentsTypeContact );
|
|
mNotes = initFolder( KMail::ContentsTypeNote );
|
|
|
|
// Store final annotation (with .default) so that we won't ask again on next startup
|
|
if ( mCalendar->folderType() == KMFolderTypeCachedImap )
|
|
static_cast<KMFolderCachedImap *>( mCalendar->storage() )->updateAnnotationFolderType();
|
|
if ( mTasks->folderType() == KMFolderTypeCachedImap )
|
|
static_cast<KMFolderCachedImap *>( mTasks->storage() )->updateAnnotationFolderType();
|
|
if ( mJournals->folderType() == KMFolderTypeCachedImap )
|
|
static_cast<KMFolderCachedImap *>( mJournals->storage() )->updateAnnotationFolderType();
|
|
if ( mContacts->folderType() == KMFolderTypeCachedImap )
|
|
static_cast<KMFolderCachedImap *>( mContacts->storage() )->updateAnnotationFolderType();
|
|
if ( mNotes->folderType() == KMFolderTypeCachedImap )
|
|
static_cast<KMFolderCachedImap *>( mNotes->storage() )->updateAnnotationFolderType();
|
|
|
|
//kdDebug(5006) << k_funcinfo << "mCalendar=" << mCalendar << " " << mCalendar->location() << endl;
|
|
//kdDebug(5006) << k_funcinfo << "mContacts=" << mContacts << " " << mContacts->location() << endl;
|
|
//kdDebug(5006) << k_funcinfo << "mNotes=" << mNotes << " " << mNotes->location() << endl;
|
|
|
|
// Find all extra folders
|
|
TQStringList folderNames;
|
|
TQValueList<TQGuardedPtr<KMFolder> > folderList;
|
|
createFolderList( folderNames, folderList );
|
|
for( TQValueList<TQGuardedPtr<KMFolder> >::iterator it = folderList.begin();
|
|
it != folderList.end(); ++it )
|
|
{
|
|
FolderStorage *storage = (*it)->storage();
|
|
KMFolderCachedImap* dimapStorage = dynamic_cast<KMFolderCachedImap*>( storage );
|
|
if ( storage && storage->contentsType() != 0 ) {
|
|
if ( dimapStorage )
|
|
dimapStorage->updateAnnotationFolderType();
|
|
folderContentsTypeChanged( *it, storage->contentsType() );
|
|
}
|
|
}
|
|
|
|
// If we just created them, they might have been registered as extra folders temporarily.
|
|
// -> undo that.
|
|
mExtraFolders.remove( mCalendar->location() );
|
|
mExtraFolders.remove( mTasks->location() );
|
|
mExtraFolders.remove( mJournals->location() );
|
|
mExtraFolders.remove( mContacts->location() );
|
|
mExtraFolders.remove( mNotes->location() );
|
|
|
|
subresourceAdded( folderContentsType( KMail::ContentsTypeCalendar ), mCalendar->location(), mCalendar->label(), true, true );
|
|
subresourceAdded( folderContentsType( KMail::ContentsTypeTask ), mTasks->location(), mTasks->label(), true, true );
|
|
subresourceAdded( folderContentsType( KMail::ContentsTypeJournal ), mJournals->location(), mJournals->label(), true, false );
|
|
subresourceAdded( folderContentsType( KMail::ContentsTypeContact ), mContacts->location(), mContacts->label(), true, false );
|
|
subresourceAdded( folderContentsType( KMail::ContentsTypeNote ), mNotes->location(), mNotes->label(), true, false );
|
|
} else if ( groupwareType == KMAcctCachedImap::GroupwareScalix ) {
|
|
// Make the new settings work
|
|
mUseResourceIMAP = true;
|
|
mFolderParentDir = folderParentDir;
|
|
mFolderParent = folderParent;
|
|
mFolderType = folderType;
|
|
mHideFolders = false;
|
|
|
|
// Close the previous folders
|
|
cleanup();
|
|
|
|
// Set the new folders
|
|
mCalendar = initScalixFolder( KMail::ContentsTypeCalendar );
|
|
mTasks = initScalixFolder( KMail::ContentsTypeTask );
|
|
mJournals = 0;
|
|
mContacts = initScalixFolder( KMail::ContentsTypeContact );
|
|
mNotes = initScalixFolder( KMail::ContentsTypeNote );
|
|
|
|
// Store final annotation (with .default) so that we won't ask again on next startup
|
|
if ( mCalendar->folderType() == KMFolderTypeCachedImap )
|
|
static_cast<KMFolderCachedImap *>( mCalendar->storage() )->updateAnnotationFolderType();
|
|
if ( mTasks->folderType() == KMFolderTypeCachedImap )
|
|
static_cast<KMFolderCachedImap *>( mTasks->storage() )->updateAnnotationFolderType();
|
|
if ( mContacts->folderType() == KMFolderTypeCachedImap )
|
|
static_cast<KMFolderCachedImap *>( mContacts->storage() )->updateAnnotationFolderType();
|
|
if ( mNotes->folderType() == KMFolderTypeCachedImap )
|
|
static_cast<KMFolderCachedImap *>( mNotes->storage() )->updateAnnotationFolderType();
|
|
|
|
// BEGIN TILL TODO The below only uses the dimap folder manager, which
|
|
// will fail for all other folder types. Adjust.
|
|
|
|
kdDebug(5006) << k_funcinfo << "mCalendar=" << mCalendar << " " << mCalendar->location() << endl;
|
|
kdDebug(5006) << k_funcinfo << "mContacts=" << mContacts << " " << mContacts->location() << endl;
|
|
kdDebug(5006) << k_funcinfo << "mNotes=" << mNotes << " " << mNotes->location() << endl;
|
|
|
|
// Find all extra folders
|
|
TQStringList folderNames;
|
|
TQValueList<TQGuardedPtr<KMFolder> > folderList;
|
|
kmkernel->dimapFolderMgr()->createFolderList(&folderNames, &folderList);
|
|
TQValueList<TQGuardedPtr<KMFolder> >::iterator it;
|
|
for(it = folderList.begin(); it != folderList.end(); ++it)
|
|
{
|
|
FolderStorage *storage = (*it)->storage();
|
|
|
|
if ( (*it)->folderType() == KMFolderTypeCachedImap ) {
|
|
KMFolderCachedImap *imapFolder = static_cast<KMFolderCachedImap*>( storage );
|
|
|
|
const TQString attributes = imapFolder->folderAttributes();
|
|
if ( attributes.contains( "X-FolderClass" ) ) {
|
|
if ( !attributes.contains( "X-SpecialFolder" ) || (*it)->location().contains( "@" ) ) {
|
|
const Scalix::FolderAttributeParser parser( attributes );
|
|
if ( !parser.folderClass().isEmpty() ) {
|
|
FolderContentsType type = Scalix::Utils::scalixIdToContentsType( parser.folderClass() );
|
|
imapFolder->setContentsType( type );
|
|
folderContentsTypeChanged( *it, type );
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
// If we just created them, they might have been registered as extra folders temporarily.
|
|
// -> undo that.
|
|
mExtraFolders.remove( mCalendar->location() );
|
|
mExtraFolders.remove( mTasks->location() );
|
|
mExtraFolders.remove( mContacts->location() );
|
|
mExtraFolders.remove( mNotes->location() );
|
|
|
|
// END TILL TODO
|
|
|
|
subresourceAdded( folderContentsType( KMail::ContentsTypeCalendar ), mCalendar->location(), mCalendar->label(), true, true );
|
|
subresourceAdded( folderContentsType( KMail::ContentsTypeTask ), mTasks->location(), mTasks->label(), true, true );
|
|
subresourceAdded( folderContentsType( KMail::ContentsTypeContact ), mContacts->location(), mContacts->label(), true, false );
|
|
subresourceAdded( folderContentsType( KMail::ContentsTypeNote ), mNotes->location(), mNotes->label(), true, false );
|
|
}
|
|
|
|
TDEConfig *config = kmkernel->config();
|
|
config->setGroup("Resource UINames");
|
|
*KMailICalIfaceImpl::mSubResourceUINamesMap = config->entryMap( "Resource UINames" );
|
|
|
|
reloadFolderTree();
|
|
}
|
|
|
|
void KMailICalIfaceImpl::slotCheckDone()
|
|
{
|
|
TQString parentName = GlobalSettings::self()->theIMAPResourceFolderParent();
|
|
KMFolder* folderParent = kmkernel->findFolderById( parentName );
|
|
//kdDebug(5006) << k_funcinfo << " folderParent=" << folderParent << endl;
|
|
if ( folderParent ) // cool it exists now
|
|
{
|
|
KMAccount* account = kmkernel->acctMgr()->find( GlobalSettings::self()->theIMAPResourceAccount() );
|
|
if ( account )
|
|
disconnect( account, TQT_SIGNAL( finishedCheck( bool, CheckStatus ) ),
|
|
this, TQT_SLOT( slotCheckDone() ) );
|
|
readConfig();
|
|
}
|
|
}
|
|
|
|
KMFolder* KMailICalIfaceImpl::initFolder( KMail::FolderContentsType contentsType )
|
|
{
|
|
// Figure out what type of folder this is supposed to be
|
|
KMFolderType type = mFolderType;
|
|
if( type == KMFolderTypeUnknown ) type = KMFolderTypeMaildir;
|
|
|
|
KFolderTreeItem::Type itemType = s_folderContentsType[contentsType].treeItemType;
|
|
//kdDebug(5006) << "KMailICalIfaceImpl::initFolder " << folderName( itemType ) << endl;
|
|
|
|
// Find the folder
|
|
StandardFolderSearchResult result = findStandardResourceFolder( mFolderParentDir, contentsType );
|
|
|
|
// deal with multiple default groupware folders
|
|
if ( result.folders.count() > 1 && result.found == StandardFolderSearchResult::FoundAndStandard ) {
|
|
TQStringList labels;
|
|
for ( TQValueList<KMFolder*>::ConstIterator it = result.folders.begin(); it != result.folders.end(); ++it )
|
|
labels << (*it)->prettyURL();
|
|
const TQString selected = KInputDialog::getItem( i18n("Default folder"),
|
|
i18n("There are multiple %1 default folders, please choose one:")
|
|
.arg( localizedDefaultFolderName( contentsType ) ), labels );
|
|
if ( !selected.isEmpty() )
|
|
result.folder = result.folders[ labels.findIndex( selected ) ];
|
|
}
|
|
|
|
KMFolder* folder = result.folder;
|
|
|
|
if ( !folder ) {
|
|
// The folder isn't there yet - create it
|
|
folder =
|
|
mFolderParentDir->createFolder( localizedDefaultFolderName( contentsType ), false, type );
|
|
if( mFolderType == KMFolderTypeImap ) {
|
|
KMFolderImap* parentFolder = static_cast<KMFolderImap*>( mFolderParent->storage() );
|
|
parentFolder->createFolder( localizedDefaultFolderName( contentsType ) );
|
|
static_cast<KMFolderImap*>( folder->storage() )->setAccount( parentFolder->account() );
|
|
}
|
|
// Groupware folder created, use the global setting for storage format
|
|
setStorageFormat( folder, globalStorageFormat() );
|
|
} else {
|
|
FolderInfo info = readFolderInfo( folder );
|
|
mFolderInfoMap.insert( folder, info );
|
|
//kdDebug(5006) << "Found existing folder type " << itemType << " : " << folder->location() << endl;
|
|
}
|
|
|
|
if( folder->canAccess() != 0 ) {
|
|
KMessageBox::sorry(0, i18n("You do not have read/write permission to your %1 folder.")
|
|
.arg( folderName( itemType ) ) );
|
|
return 0;
|
|
}
|
|
folder->storage()->setContentsType( contentsType );
|
|
folder->setSystemFolder( true );
|
|
folder->storage()->writeConfig();
|
|
folder->open("ifacefolder");
|
|
connectFolder( folder );
|
|
return folder;
|
|
}
|
|
|
|
KMFolder* KMailICalIfaceImpl::initScalixFolder( KMail::FolderContentsType contentsType )
|
|
{
|
|
// Figure out what type of folder this is supposed to be
|
|
KMFolderType type = mFolderType;
|
|
if( type == KMFolderTypeUnknown ) type = KMFolderTypeMaildir;
|
|
|
|
KMFolder* folder = 0;
|
|
|
|
// Find all extra folders
|
|
TQStringList folderNames;
|
|
TQValueList<TQGuardedPtr<KMFolder> > folderList;
|
|
Q_ASSERT( kmkernel );
|
|
Q_ASSERT( kmkernel->dimapFolderMgr() );
|
|
kmkernel->dimapFolderMgr()->createFolderList(&folderNames, &folderList);
|
|
TQValueList<TQGuardedPtr<KMFolder> >::iterator it = folderList.begin();
|
|
for(; it != folderList.end(); ++it)
|
|
{
|
|
FolderStorage *storage = (*it)->storage();
|
|
|
|
if ( (*it)->folderType() == KMFolderTypeCachedImap ) {
|
|
KMFolderCachedImap *imapFolder = static_cast<KMFolderCachedImap*>( storage );
|
|
|
|
const TQString attributes = imapFolder->folderAttributes();
|
|
if ( attributes.contains( "X-SpecialFolder" ) ) {
|
|
const Scalix::FolderAttributeParser parser( attributes );
|
|
if ( contentsType == Scalix::Utils::scalixIdToContentsType( parser.folderClass() ) ) {
|
|
folder = *it;
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
if ( !folder ) {
|
|
return 0;
|
|
} else {
|
|
FolderInfo info = readFolderInfo( folder );
|
|
mFolderInfoMap.insert( folder, info );
|
|
//kdDebug(5006) << "Found existing folder type " << itemType << " : " << folder->location() << endl;
|
|
}
|
|
|
|
if( folder->canAccess() != 0 ) {
|
|
KMessageBox::sorry(0, i18n("You do not have read/write permission to your folder.") );
|
|
return 0;
|
|
}
|
|
folder->storage()->setContentsType( contentsType );
|
|
folder->setSystemFolder( true );
|
|
folder->storage()->writeConfig();
|
|
folder->open( "scalixfolder" );
|
|
connectFolder( folder );
|
|
return folder;
|
|
}
|
|
|
|
void KMailICalIfaceImpl::connectFolder( KMFolder* folder )
|
|
{
|
|
// avoid multiple connections
|
|
disconnect( folder, TQT_SIGNAL( msgAdded( KMFolder*, TQ_UINT32 ) ),
|
|
this, TQT_SLOT( slotIncidenceAdded( KMFolder*, TQ_UINT32 ) ) );
|
|
disconnect( folder, TQT_SIGNAL( msgRemoved( KMFolder*, TQ_UINT32 ) ),
|
|
this, TQT_SLOT( slotIncidenceDeleted( KMFolder*, TQ_UINT32 ) ) );
|
|
disconnect( folder, TQT_SIGNAL( expunged( KMFolder* ) ),
|
|
this, TQT_SLOT( slotRefreshFolder( KMFolder* ) ) );
|
|
disconnect( folder->storage(), TQT_SIGNAL( readOnlyChanged( KMFolder* ) ),
|
|
this, TQT_SLOT( slotFolderPropertiesChanged( KMFolder* ) ) );
|
|
disconnect( folder, TQT_SIGNAL( nameChanged() ),
|
|
this, TQT_SLOT( slotFolderRenamed() ) );
|
|
disconnect( folder->storage(), TQT_SIGNAL( locationChanged( const TQString&, const TQString&) ),
|
|
this, TQT_SLOT( slotFolderLocationChanged( const TQString&, const TQString&) ) );
|
|
|
|
// Setup the signals to listen for changes
|
|
connect( folder, TQT_SIGNAL( msgAdded( KMFolder*, TQ_UINT32 ) ),
|
|
this, TQT_SLOT( slotIncidenceAdded( KMFolder*, TQ_UINT32 ) ) );
|
|
connect( folder, TQT_SIGNAL( msgRemoved( KMFolder*, TQ_UINT32 ) ),
|
|
this, TQT_SLOT( slotIncidenceDeleted( KMFolder*, TQ_UINT32 ) ) );
|
|
connect( folder, TQT_SIGNAL( expunged( KMFolder* ) ),
|
|
this, TQT_SLOT( slotRefreshFolder( KMFolder* ) ) );
|
|
connect( folder->storage(), TQT_SIGNAL( readOnlyChanged( KMFolder* ) ),
|
|
this, TQT_SLOT( slotFolderPropertiesChanged( KMFolder* ) ) );
|
|
connect( folder, TQT_SIGNAL( nameChanged() ),
|
|
this, TQT_SLOT( slotFolderRenamed() ) );
|
|
connect( folder->storage(), TQT_SIGNAL( locationChanged( const TQString&, const TQString&) ),
|
|
this, TQT_SLOT( slotFolderLocationChanged( const TQString&, const TQString&) ) );
|
|
|
|
}
|
|
|
|
static void cleanupFolder( KMFolder* folder, KMailICalIfaceImpl* _this )
|
|
{
|
|
if( folder ) {
|
|
folder->setSystemFolder( false );
|
|
folder->disconnect( _this );
|
|
folder->close("ifacefolder");
|
|
}
|
|
}
|
|
|
|
void KMailICalIfaceImpl::cleanup()
|
|
{
|
|
cleanupFolder( mContacts, this );
|
|
cleanupFolder( mCalendar, this );
|
|
cleanupFolder( mNotes, this );
|
|
cleanupFolder( mTasks, this );
|
|
cleanupFolder( mJournals, this );
|
|
|
|
mContacts = mCalendar = mNotes = mTasks = mJournals = 0;
|
|
}
|
|
|
|
TQString KMailICalIfaceImpl::folderPixmap( KFolderTreeItem::Type type ) const
|
|
{
|
|
if( !mUseResourceIMAP )
|
|
return TQString();
|
|
|
|
if( type == KFolderTreeItem::Contacts )
|
|
return TQString::fromLatin1( "kmgroupware_folder_contacts" );
|
|
else if( type == KFolderTreeItem::Calendar )
|
|
return TQString::fromLatin1( "kmgroupware_folder_calendar" );
|
|
else if( type == KFolderTreeItem::Notes )
|
|
return TQString::fromLatin1( "kmgroupware_folder_notes" );
|
|
else if( type == KFolderTreeItem::Tasks )
|
|
return TQString::fromLatin1( "kmgroupware_folder_tasks" );
|
|
else if( type == KFolderTreeItem::Journals )
|
|
return TQString::fromLatin1( "kmgroupware_folder_journals" );
|
|
|
|
return TQString();
|
|
}
|
|
|
|
static void reloadFolderTree()
|
|
{
|
|
// Make the folder tree show the icons or not
|
|
kmkernel->folderMgr()->contentsChanged();
|
|
}
|
|
|
|
// This is a very light-weight and fast 'parser' to retrieve
|
|
// a data entry from a vCal taking continuation lines
|
|
// into account
|
|
static void vPartMicroParser( const TQString& str, TQString& s )
|
|
{
|
|
TQString line;
|
|
uint len = str.length();
|
|
|
|
for( uint i=0; i<len; ++i){
|
|
if( str[i] == '\r' || str[i] == '\n' ){
|
|
if( str[i] == '\r' )
|
|
++i;
|
|
if( i+1 < len && str[i+1] == ' ' ){
|
|
// found a continuation line, skip it's leading blanc
|
|
++i;
|
|
}else{
|
|
// found a logical line end, process the line
|
|
if( line.startsWith( s ) ) {
|
|
s = line.mid( s.length() + 1 );
|
|
return;
|
|
}
|
|
line = "";
|
|
}
|
|
} else {
|
|
line += str[i];
|
|
}
|
|
}
|
|
|
|
// Not found. Clear it
|
|
s.truncate(0);
|
|
}
|
|
|
|
// Returns the first child folder having the given annotation
|
|
static TQValueList<KMFolder*> findFolderByAnnotation( KMFolderDir* folderParentDir, const TQString& annotation )
|
|
{
|
|
TQValueList<KMFolder*> rv;
|
|
TQPtrListIterator<KMFolderNode> it( *folderParentDir );
|
|
for ( ; it.current(); ++it ) {
|
|
if ( !it.current()->isDir() ) {
|
|
KMFolder* folder = static_cast<KMFolder *>( it.current() );
|
|
if ( folder->folderType() == KMFolderTypeCachedImap ) {
|
|
TQString folderAnnotation = static_cast<KMFolderCachedImap*>( folder->storage() )->annotationFolderType();
|
|
//kdDebug(5006) << "findStandardResourceFolder: " << folder->name() << " has annotation " << folderAnnotation << endl;
|
|
if ( folderAnnotation == annotation )
|
|
rv.append( folder );
|
|
}
|
|
}
|
|
}
|
|
return rv;
|
|
}
|
|
|
|
KMailICalIfaceImpl::StandardFolderSearchResult KMailICalIfaceImpl::findStandardResourceFolder( KMFolderDir* folderParentDir, KMail::FolderContentsType contentsType )
|
|
{
|
|
if ( GlobalSettings::self()->theIMAPResourceStorageFormat() == GlobalSettings::EnumTheIMAPResourceStorageFormat::XML )
|
|
{
|
|
// Look for a folder with an annotation like "event.default"
|
|
TQValueList<KMFolder*> folders = findFolderByAnnotation( folderParentDir, TQString( s_folderContentsType[contentsType].annotation ) + ".default" );
|
|
if ( !folders.isEmpty() )
|
|
return StandardFolderSearchResult( folders, StandardFolderSearchResult::FoundAndStandard );
|
|
|
|
// Fallback: look for a folder with an annotation like "event"
|
|
folders = findFolderByAnnotation( folderParentDir, TQString( s_folderContentsType[contentsType].annotation ) );
|
|
if ( !folders.isEmpty() )
|
|
return StandardFolderSearchResult( folders, StandardFolderSearchResult::FoundByType );
|
|
|
|
// Fallback: look for the folder by name (we'll need to change its type)
|
|
KMFolderNode* node = folderParentDir->hasNamedFolder( localizedDefaultFolderName( contentsType ) );
|
|
if ( node && !node->isDir() )
|
|
return StandardFolderSearchResult( static_cast<KMFolder *>( node ), StandardFolderSearchResult::FoundByName );
|
|
|
|
kdDebug(5006) << "findStandardResourceFolder: found no resource folder for " << s_folderContentsType[contentsType].annotation << endl;
|
|
return StandardFolderSearchResult( 0, StandardFolderSearchResult::NotFound );
|
|
}
|
|
else // icalvcard: look up standard resource folders by name
|
|
{
|
|
KFolderTreeItem::Type itemType = s_folderContentsType[contentsType].treeItemType;
|
|
unsigned int folderLanguage = GlobalSettings::self()->theIMAPResourceFolderLanguage();
|
|
if( folderLanguage > 3 ) folderLanguage = 0;
|
|
KMFolderNode* node = folderParentDir->hasNamedFolder( folderName( itemType, folderLanguage ) );
|
|
if ( !node || node->isDir() )
|
|
return StandardFolderSearchResult( 0, StandardFolderSearchResult::NotFound );
|
|
return StandardFolderSearchResult( static_cast<KMFolder*>( node ), StandardFolderSearchResult::FoundAndStandard );
|
|
}
|
|
}
|
|
|
|
/* We treat all folders as relevant wrt alarms for which we have Administer
|
|
* rights or for which the "Incidences relevant for everyone" annotation has
|
|
* been set. It can be reasonably assumed that those are "ours". All local folders
|
|
* must be ours anyhow. */
|
|
bool KMailICalIfaceImpl::folderIsAlarmRelevant( const KMFolder *folder )
|
|
{
|
|
bool administerRights = true;
|
|
bool relevantForOwner = true;
|
|
bool relevantForEveryone = false;
|
|
if ( folder->folderType() == KMFolderTypeImap ) {
|
|
const KMFolderImap *imapFolder = static_cast<const KMFolderImap*>( folder->storage() );
|
|
administerRights =
|
|
imapFolder->userRightsState() != KMail::ACLJobs::Ok ||
|
|
imapFolder->userRights() & KMail::ACLJobs::Administer;
|
|
}
|
|
if ( folder->folderType() == KMFolderTypeCachedImap ) {
|
|
const KMFolderCachedImap *dimapFolder = static_cast<const KMFolderCachedImap*>( folder->storage() );
|
|
administerRights =
|
|
dimapFolder->userRightsState() != KMail::ACLJobs::Ok ||
|
|
dimapFolder->userRights() & KMail::ACLJobs::Administer;
|
|
relevantForOwner = !dimapFolder->alarmsBlocked() && ( dimapFolder->incidencesFor () == KMFolderCachedImap::IncForAdmins );
|
|
relevantForEveryone = !dimapFolder->alarmsBlocked() && ( dimapFolder->incidencesFor() == KMFolderCachedImap::IncForReaders );
|
|
}
|
|
#if 0
|
|
kdDebug(5006) << k_funcinfo << endl;
|
|
kdDebug(5006) << "Folder: " << folder->label() << " has administer rights: " << administerRights << endl;
|
|
kdDebug(5006) << "and is relevant for owner: " << relevantForOwner << endl;
|
|
kdDebug(5006) << "and relevant for everyone: " << relevantForEveryone << endl;
|
|
#endif
|
|
return ( administerRights && relevantForOwner ) || relevantForEveryone;
|
|
}
|
|
|
|
void KMailICalIfaceImpl::setResourceQuiet(bool q)
|
|
{
|
|
mResourceQuiet = q;
|
|
}
|
|
|
|
bool KMailICalIfaceImpl::isResourceQuiet() const
|
|
{
|
|
return mResourceQuiet;
|
|
}
|
|
|
|
|
|
bool KMailICalIfaceImpl::addSubresource( const TQString& resource,
|
|
const TQString& parent,
|
|
const TQString& contentsType )
|
|
{
|
|
kdDebug(5006) << "Adding subresource to parent: " << parent << " with name: " << resource << endl;
|
|
kdDebug(5006) << "contents type: " << contentsType << endl;
|
|
KMFolder *folder = findResourceFolder( parent );
|
|
KMFolderDir *parentFolderDir = !parent.isEmpty() && folder ? folder->createChildFolder(): mFolderParentDir;
|
|
if ( !parentFolderDir || parentFolderDir->hasNamedFolder( resource ) ) return false;
|
|
|
|
TQString msg;
|
|
if ( parentFolderDir->owner() && !parentFolderDir->owner()->isValidName( resource, msg ) ) {
|
|
KMessageBox::error( 0, msg );
|
|
return false;
|
|
}
|
|
|
|
KMFolderType type = mFolderType;
|
|
if( type == KMFolderTypeUnknown ) type = KMFolderTypeMaildir;
|
|
|
|
KMFolder* newFolder = parentFolderDir->createFolder( resource, false, type );
|
|
if ( !newFolder ) return false;
|
|
if( mFolderType == KMFolderTypeImap )
|
|
static_cast<KMFolderImap*>( folder->storage() )->createFolder( resource );
|
|
|
|
StorageFormat defaultFormat = GlobalSettings::self()->theIMAPResourceStorageFormat() == GlobalSettings::EnumTheIMAPResourceStorageFormat::XML ? StorageXML : StorageIcalVcard;
|
|
setStorageFormat( newFolder, folder ? storageFormat( folder ) : defaultFormat );
|
|
newFolder->storage()->setContentsType( folderContentsType( contentsType ) );
|
|
newFolder->storage()->writeConfig();
|
|
newFolder->open( "ical_subresource" );
|
|
connectFolder( newFolder );
|
|
reloadFolderTree();
|
|
|
|
return true;
|
|
}
|
|
|
|
bool KMailICalIfaceImpl::removeSubresource( const TQString& location )
|
|
{
|
|
kdDebug(5006) << k_funcinfo << endl;
|
|
|
|
KMFolder *folder = findResourceFolder( location );
|
|
|
|
// We don't allow the default folders to be deleted, so check for
|
|
// those first. It would be nicer to produce a more meaningful error,
|
|
// or prevent deletion of the builtin folders from the gui already.
|
|
if ( !folder || isStandardResourceFolder( folder ) )
|
|
return false;
|
|
|
|
// the folder will be removed, which implies closed, so make sure
|
|
// nothing is using it anymore first
|
|
subresourceDeleted( folderContentsType( folder->storage()->contentsType() ), location );
|
|
mExtraFolders.remove( location );
|
|
folder->disconnect( this );
|
|
|
|
if ( folder->folderType() == KMFolderTypeImap )
|
|
kmkernel->imapFolderMgr()->remove( folder );
|
|
else if ( folder->folderType() == KMFolderTypeCachedImap ) {
|
|
// Deleted by user -> tell the account (see KMFolderCachedImap::listDirectory2)
|
|
KMFolderCachedImap* storage = static_cast<KMFolderCachedImap*>( folder->storage() );
|
|
KMAcctCachedImap* acct = storage->account();
|
|
if ( acct )
|
|
acct->addDeletedFolder( folder );
|
|
kmkernel->dimapFolderMgr()->remove( folder );
|
|
}
|
|
return true;
|
|
}
|
|
|
|
void KMailICalIfaceImpl::syncFolder(KMFolder * folder) const
|
|
{
|
|
if ( kmkernel->isOffline() || !GlobalSettings::immediatlySyncDIMAPOnGroupwareChanges() )
|
|
return;
|
|
KMFolderCachedImap *dimapFolder = dynamic_cast<KMFolderCachedImap*>( folder->storage() );
|
|
if ( !dimapFolder )
|
|
return;
|
|
// check if the folder exists already, otherwise sync its parent as well to create it
|
|
if ( dimapFolder->imapPath().isEmpty() ) {
|
|
if ( folder->parent() && folder->parent()->owner() )
|
|
syncFolder( folder->parent()->owner() );
|
|
else
|
|
return;
|
|
}
|
|
dimapFolder->account()->processNewMailInFolder( folder );
|
|
}
|
|
|
|
#include "kmailicalifaceimpl.moc"
|