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.
tdepim/kresources/slox/sloxaccounts.cpp

223 lines
6.3 KiB

/*
This file is part of kdepim.
Copyright (c) 2004 Cornelius Schumacher <schumacher@kde.org>
Copyright (c) 2005 Volker Krause <volker.krause@rwth-aachen.de>
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
*/
#include "sloxaccounts.h"
#include "sloxbase.h"
#include "webdavhandler.h"
#include <libkcal/freebusyurlstore.h>
#include <kstaticdeleter.h>
#include <kdebug.h>
#include <kstandarddirs.h>
#include <kio/job.h>
#include <kio/davjob.h>
#include <kstringhandler.h>
#include <kconfig.h>
#include <tqfile.h>
#include <tqdom.h>
#include <tqstring.h>
SloxAccounts::SloxAccounts( SloxBase *res, const KURL &baseUrl )
: mBaseUrl( baseUrl ), mRes( res )
{
kdDebug() << "SloxAccounts(): " << baseUrl << endl;
mDownloadJob = 0;
TQString server = mBaseUrl.host();
TQStringList l = TQStringList::split( '.', server );
if ( l.count() < 2 ) mDomain = server;
else mDomain = l[ l.count() - 2 ] + "." + l[ l.count() - 1 ];
readAccounts();
}
SloxAccounts::~SloxAccounts()
{
kdDebug() << "~SloxAccounts()" << endl;
if ( mDownloadJob ) mDownloadJob->kill();
}
void SloxAccounts::insertUser( const TQString &id, const KABC::Addressee &a )
{
kdDebug() << "SloxAccount::insertUser() " << id << endl;
mUsers.tqreplace( id, a );
TQString email = a.preferredEmail();
TQString url = "http://" + mBaseUrl.host() + "/servlet/webdav.freebusy?username=";
url += id + "&server=" + mDomain;
KCal::FreeBusyUrlStore::self()->writeUrl( email, url );
}
KABC::Addressee SloxAccounts::lookupUser( const TQString &id )
{
TQMap<TQString, KABC::Addressee>::ConstIterator it;
it = mUsers.tqfind( id );
if ( it == mUsers.end() ) {
requestAccounts();
return KABC::Addressee();
} else {
return *it;
}
}
TQString SloxAccounts::lookupId( const TQString &email )
{
kdDebug() << "SloxAccounts::lookupId() " << email << endl;
TQMap<TQString, KABC::Addressee>::ConstIterator it;
for( it = mUsers.begin(); it != mUsers.end(); ++it ) {
kdDebug() << "PREF: " << (*it).preferredEmail() << endl;
kdDebug() << "KEY: " << it.key() << endl;
if ( (*it).preferredEmail() == email ) return it.key();
}
requestAccounts();
int pos = email.tqfind( '@' );
if ( pos < 0 ) return email;
else return email.left( pos );
}
void SloxAccounts::requestAccounts()
{
kdDebug() << "SloxAccounts::requestAccounts()" << endl;
if ( mDownloadJob ) {
kdDebug() << "SloxAccount::requestAccounts(): Download still in progress"
<< endl;
return;
}
if ( mRes->resType() == "slox" ) {
KURL url = mBaseUrl;
url.addPath( "/servlet/webdav.groupuser" );
url.setQuery( "?user=*&group=*&groupres=*&res=*&details=t" );
kdDebug() << "SloxAccounts::requestAccounts() URL: " << url << endl;
mDownloadJob = KIO::file_copy( url, cacheFile(), -1, true, false, false );
} else if ( mRes->resType() == "ox" ) {
KURL url = mBaseUrl;
url.setPath( "/servlet/webdav.groupuser/" );
TQDomDocument doc;
TQDomElement root = WebdavHandler::addDavElement( doc, doc, "proptqfind" );
TQDomElement prop = WebdavHandler::addDavElement( doc, root, "prop" );
WebdavHandler::addSloxElement( mRes, doc, prop, "user", "*" );
WebdavHandler::addSloxElement( mRes, doc, prop, "group", "*" );
WebdavHandler::addSloxElement( mRes, doc, prop, "resource", "*" );
WebdavHandler::addSloxElement( mRes, doc, prop, "resourcegroup", "*" );
kdDebug() << k_funcinfo << doc.toString( 2 ) << endl;
mDownloadJob = KIO::davPropFind( url, doc, "0", false );
}
connect( mDownloadJob, TQT_SIGNAL( result( KIO::Job * ) ),
TQT_SLOT( slotResult( KIO::Job * ) ) );
}
void SloxAccounts::slotResult( KIO::Job *job )
{
kdDebug() << "SloxAccounts::slotResult()" << endl;
if ( job->error() ) {
job->showErrorDialog( 0 );
} else {
if ( mRes->resType() == "ox" ) {
TQFile f( cacheFile() );
if ( !f.open( IO_WriteOnly ) ) {
kdWarning() << "Unable to open '" << cacheFile() << "'" << endl;
return;
}
TQTextStream stream ( &f );
stream << static_cast<KIO::DavJob*>( mDownloadJob )->response();
f.close();
}
readAccounts();
}
mDownloadJob = 0;
}
TQString SloxAccounts::cacheFile() const
{
TQString host = mBaseUrl.host();
TQString file = locateLocal( "cache", "slox/accounts_" + host );
kdDebug() << "SloxAccounts::cacheFile(): " << file << endl;
return file;
}
void SloxAccounts::readAccounts()
{
kdDebug() << "SloxAccounts::readAccounts()" << endl;
TQFile f( cacheFile() );
if ( !f.open( IO_ReadOnly ) ) {
kdDebug() << "Unable to open '" << cacheFile() << "'" << endl;
requestAccounts();
return;
}
TQDomDocument doc;
doc.setContent( &f );
// kdDebug() << "SLOX ACCOUNTS: " << doc.toString( 2 ) << endl;
TQDomElement docElement = doc.documentElement();
mUsers.clear();
TQDomNodeList nodes = doc.elementsByTagName( mRes->resType() == "ox" ? "ox:user" : "user" );
for( uint i = 0; i < nodes.count(); ++i ) {
TQDomElement element = nodes.item(i).toElement();
TQString id;
KABC::Addressee a;
TQDomNode n;
for( n = element.firstChild(); !n.isNull(); n = n.nextSibling() ) {
TQDomElement e = n.toElement();
TQString tag = e.tagName();
// remove XML namespace
tag = tag.right( tag.length() - ( tag.tqfind( ':' ) + 1 ) );
TQString value = e.text();
if ( tag == "uid" ) id = value;
else if ( tag == "mail" ) a.insertEmail( value, true );
else if ( tag == "forename" ) a.setGivenName( value );
else if ( tag == "surename" ) a.setFamilyName( value );
}
// kdDebug() << "MAIL: " << a.preferredEmail() << endl;
insertUser( id, a );
}
}
#include "sloxaccounts.moc"