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/wizards/scalixwizard.cpp

547 lines
17 KiB

/*
This file is part of kdepim.
Copyright (c) 2004 Cornelius Schumacher <schumacher@kde.org>
Copyright (c) 2004 Daniel Molkentin <molkentin@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.
*/
#include "scalixwizard.h"
#include "scalixconfig.h"
#include "scalixkmailchanges.h"
#include "kresources/scalix/kcal/resourcescalix.h"
#include "kresources/scalix/kabc/resourcescalix.h"
#include <libkcal/resourcecalendar.h>
#include <kabc/resource.h>
#include <dcopref.h>
#include <kcombobox.h>
#include <kdcopservicestarter.h>
#include <klineedit.h>
#include <klocale.h>
#include <kmessagebox.h>
#include <kstringhandler.h>
#include <tqapplication.h>
#include <tqcheckbox.h>
#include <tqhbuttongroup.h>
#include <tqlabel.h>
#include <tqlayout.h>
#include <tqwhatsthis.h>
#include <unistd.h>
class SetupLDAPSearchAccount : public KConfigPropagator::Change
{
public:
SetupLDAPSearchAccount()
: KConfigPropagator::Change( i18n("Setup LDAP Search Account") )
{
}
void apply()
{
const TQString host = ScalixConfig::self()->server();
TQString basedn( "o=Scalix" );
{ // while we're here, write default domain
KConfig c( "kmailrc" );
c.setGroup( "General" );
c.writeEntry( "Default domain", basedn );
}
// Set the changes
KConfig c( "kabldaprc" );
c.setGroup( "LDAP" );
bool hasMyServer = false;
uint selHosts = c.readNumEntry("NumSelectedHosts", 0);
for ( uint i = 0 ; i < selHosts && !hasMyServer; ++i )
if ( c.readEntry( TQString("SelectedHost%1").arg(i) ) == host )
hasMyServer = true;
if ( !hasMyServer ) {
c.writeEntry( "NumSelectedHosts", selHosts + 1 );
c.writeEntry( TQString("SelectedHost%1").arg(selHosts), host);
c.writeEntry( TQString("SelectedBase%1").arg(selHosts), basedn);
c.writeEntry( TQString("SelectedPort%1").arg(selHosts), "389");
}
}
};
class SetupScalixAdmin : public KConfigPropagator::Change
{
public:
SetupScalixAdmin()
: KConfigPropagator::Change( i18n( "Setup ScalixAdmin Account" ) )
{
}
void apply()
{
KConfig c( "scalixadminrc" );
c.setGroup( "Account" );
c.writeEntry( "user", ScalixConfig::self()->user() );
c.writeEntry( "pass", KStringHandler::obscure( ScalixConfig::self()->password() ) );
c.writeEntry( "host", ScalixConfig::self()->server() );
if ( ScalixConfig::self()->security() == ScalixConfig::None )
c.writeEntry( "port", 143 );
else
c.writeEntry( "port", 993 );
switch ( ScalixConfig::self()->security() ) {
case ScalixConfig::None:
c.writeEntry( "use-ssl", "false" );
c.writeEntry( "use-tls", "false" );
break;
case ScalixConfig::TLS:
c.writeEntry( "use-ssl", "false" );
c.writeEntry( "use-tls", "true" );
break;
case ScalixConfig::SSL:
c.writeEntry( "use-ssl", "true" );
c.writeEntry( "use-tls", "false" );
break;
}
switch ( ScalixConfig::self()->authentication() ) {
case ScalixConfig::Password:
c.writeEntry( "auth", "*" );
break;
case ScalixConfig::NTLM_SPA:
c.writeEntry( "auth", "NTLM" );
break;
case ScalixConfig::GSSAPI:
c.writeEntry( "auth", "GSSAPI" );
break;
case ScalixConfig::DIGEST_MD5:
c.writeEntry( "auth", "DIGEST-MD5" );
break;
case ScalixConfig::CRAM_MD5:
c.writeEntry( "auth", "CRAM-MD5" );
break;
}
c.setGroup( "LDAP" );
c.writeEntry( "host", ScalixConfig::self()->server() );
c.writeEntry( "port", "389" );
c.writeEntry( "base", "o=Scalix" );
c.writeEntry( "bindDn", "" );
c.writeEntry( "password", "" );
}
};
class CreateCalendarImapResource : public KConfigPropagator::Change
{
public:
CreateCalendarImapResource()
: KConfigPropagator::Change( i18n("Create Calendar IMAP Resource") )
{
}
void apply()
{
KCal::CalendarResourceManager m( "calendar" );
m.readConfig();
KCal::ResourceScalix *r = new KCal::ResourceScalix( 0 );
r->setResourceName( i18n("Scalix Server") );
m.add( r );
m.setStandardResource( r );
m.writeConfig();
}
};
class CreateContactImapResource : public KConfigPropagator::Change
{
public:
CreateContactImapResource()
: KConfigPropagator::Change( i18n("Create Contact IMAP Resource") )
{
}
void apply()
{
KRES::Manager<KABC::Resource> m( "contact" );
m.readConfig();
KABC::ResourceScalix *r = new KABC::ResourceScalix( 0 );
r->setResourceName( i18n("Scalix Server") );
m.add( r );
m.setStandardResource( r );
m.writeConfig();
}
};
class SynchronizeScalixAccount : public KConfigPropagator::Change
{
public:
SynchronizeScalixAccount()
: KConfigPropagator::Change( i18n("Synchronize Scalix Account") )
{
}
void apply()
{
TQMessageBox *msg = new TQMessageBox( qApp->mainWidget() );
msg->setText( "Preparing initial synchronization with Scalix server..." );
msg->show();
qApp->processEvents();
sleep( 1 );
qApp->processEvents();
TQString error;
TQCString dcopService;
int result = KDCOPServiceStarter::self()->
findServiceFor( "DCOP/ResourceBackend/IMAP", TQString::null,
TQString::null, &error, &dcopService );
if ( result != 0 ) {
KMessageBox::error( 0, i18n( "Unable to start KMail to trigger initial synchronization with Scalix server" ) );
delete msg;
return;
}
DCOPRef ref( dcopService, "KMailIface" );
// loop until dcop iface is set up correctly
TQStringList list;
while ( list.isEmpty() ) {
ref.call( "accounts()" ).get( list );
}
ref.call( "checkAccount(TQString)", i18n( "Scalix Server" ) );
// ugly hack, but kmail needs a second before accepting the second dcop call
sleep( 5 );
ref.call( "checkAccount(TQString)", i18n( "Scalix Server" ) );
delete msg;
}
};
class ScalixPropagator : public KConfigPropagator
{
public:
ScalixPropagator()
: KConfigPropagator( ScalixConfig::self(), "scalix.kcfg" )
{
}
protected:
void addKorganizerChanges( Change::List &changes )
{
KURL freeBusyBaseUrl = "scalix://" + ScalixConfig::self()->server() + "/freebusy/";
freeBusyBaseUrl.setUser( ScalixConfig::self()->user() );
ChangeConfig *c = new ChangeConfig;
c->file = "korganizerrc";
c->group = "FreeBusy";
c->name = "FreeBusyRetrieveUrl";
c->value = freeBusyBaseUrl.url() + ScalixConfig::self()->eMail();
changes.append( c );
c = new ChangeConfig;
c->file = "korganizerrc";
c->group = "FreeBusy";
c->name = "FreeBusyRetrieveUser";
c->value = ScalixConfig::self()->user();
changes.append( c );
c = new ChangeConfig;
c->file = "korganizerrc";
c->group = "FreeBusy";
c->name = "FreeBusyRetrievePassword";
c->value = ScalixConfig::self()->password();
changes.append( c );
c = new ChangeConfig;
c->file = "korganizerrc";
c->group = "FreeBusy";
c->name = "FreeBusyPublishUrl";
c->value = freeBusyBaseUrl.url() + "Calendar/" + ScalixConfig::self()->eMail();
changes.append( c );
c = new ChangeConfig;
c->file = "korganizerrc";
c->group = "FreeBusy";
c->name = "FreeBusyPublishUser";
c->value = ScalixConfig::self()->user();
changes.append( c );
c = new ChangeConfig;
c->file = "korganizerrc";
c->group = "FreeBusy";
c->name = "FreeBusyPublishPassword";
c->value = ScalixConfig::self()->password();
changes.append( c );
// Use full email address for retrieval of free/busy lists
c = new ChangeConfig;
c->file = "korganizerrc";
c->group = "FreeBusy";
c->name = "FreeBusyFullDomainRetrieval";
c->value = "true";
changes.append( c );
// Disable hostname checking
c = new ChangeConfig;
c->file = "korganizerrc";
c->group = "FreeBusy";
c->name = "FreeBusyCheckHostname";
c->value = "false";
changes.append( c );
// Enable automatic retrieval
c = new ChangeConfig;
c->file = "korganizerrc";
c->group = "FreeBusy";
c->name = "FreeBusyRetrieveAuto";
c->value = "true";
changes.append( c );
c = new ChangeConfig;
c->file = "korganizerrc";
c->group = "Group Scheduling";
c->name = "Use Groupware Communication";
c->value = "true";
changes.append( c );
// Use identity "from control center", i.e. from emaildefaults
c = new ChangeConfig;
c->file = "korganizerrc";
c->group = "Personal Settings";
c->name = "Use Control Center Email";
c->value = "true";
changes.append( c );
}
virtual void addCustomChanges( Change::List &changes )
{
addKorganizerChanges( changes );
// KMail cruft has been outsourced to kolabkmailchanges.cpp
createKMailChanges( changes );
changes.append( new SetupLDAPSearchAccount );
KCal::CalendarResourceManager m( "calendar" );
m.readConfig();
KCal::CalendarResourceManager::Iterator it;
for ( it = m.begin(); it != m.end(); ++it ) {
if ( (*it)->type() == "scalix" ) break;
}
if ( it == m.end() ) {
changes.append( new CreateCalendarImapResource );
changes.append( new CreateContactImapResource );
}
changes.append( new SetupScalixAdmin );
changes.append( new SynchronizeScalixAccount );
}
};
ScalixWizard::ScalixWizard() : KConfigWizard( new ScalixPropagator )
{
TQFrame *page = createWizardPage( i18n("Scalix Server") );
TQGridLayout *topLayout = new TQGridLayout( page );
topLayout->setSpacing( spacingHint() );
TQLabel *label = new TQLabel( i18n( "Full name:" ), page );
topLayout->addWidget( label, 0, 0 );
mRealNameEdit = new KLineEdit( page );
topLayout->addWidget( mRealNameEdit, 0, 1 );
label->setBuddy( mRealNameEdit );
TQWhatsThis::add( mRealNameEdit, i18n( "Your full name. "
"Example: <i>Joe User</i>" ) );
label = new TQLabel( i18n( "Email address:" ), page );
topLayout->addWidget( label, 1, 0 );
mEMailEdit = new KLineEdit( page );
topLayout->addWidget( mEMailEdit, 1, 1 );
label->setBuddy( mEMailEdit );
TQWhatsThis::add( mEMailEdit, i18n( "Your email address on the Scalix Server. "
"Example: <i>name@crossplatform.com</i>" ) );
label = new TQLabel( i18n( "Server:" ), page );
topLayout->addWidget( label, 2, 0 );
mServerEdit = new KLineEdit( page );
topLayout->addWidget( mServerEdit, 2, 1 );
label->setBuddy( mServerEdit );
TQWhatsThis::add( mServerEdit, i18n( "The name or IP of the Scalix Server. "
"Example: <i>scalix.domain.com</i>" ) );
label = new TQLabel( i18n("Username:"), page );
topLayout->addWidget( label, 3, 0 );
mUserEdit = new KLineEdit( page );
topLayout->addWidget( mUserEdit, 3, 1 );
label->setBuddy( mUserEdit );
TQWhatsThis::add( mUserEdit, i18n( "The user respectively login name. "
"Example: <i>joe</i>" ) );
label = new TQLabel( i18n("Password:"), page );
topLayout->addWidget( label, 4, 0 );
mPasswordEdit = new KLineEdit( page );
mPasswordEdit->setEchoMode( KLineEdit::Password );
topLayout->addWidget( mPasswordEdit, 4, 1 );
label->setBuddy( mPasswordEdit );
TQWhatsThis::add( mPasswordEdit, i18n( "The password to your login." ) );
mSavePasswordCheck = new TQCheckBox( i18n("Save password"), page );
topLayout->addMultiCellWidget( mSavePasswordCheck, 5, 5, 0, 1 );
TQWhatsThis::add( mSavePasswordCheck, i18n( "Shall the password be saved in KWallet?." ) );
label = new TQLabel( i18n( "Use Secure Connection:" ), page );
topLayout->addWidget( label, 6, 0 );
mSecurity = new KComboBox( page );
mSecurity->insertItem( i18n( "No encryption" ) );
mSecurity->insertItem( i18n( "TLS encryption" ) );
mSecurity->insertItem( i18n( "SSL encryption" ) );
topLayout->addWidget( mSecurity, 6, 1 );
label->setBuddy( mSecurity );
TQWhatsThis::add( mSecurity, i18n( "Choose the encryption type that is supported by your server." ) );
label = new TQLabel( i18n( "Authentication Type:" ), page );
topLayout->addWidget( label, 7, 0 );
mAuthentication = new KComboBox( page );
mAuthentication->insertItem( i18n( "Password" ) );
mAuthentication->insertItem( i18n( "NTLM / SPA" ) );
mAuthentication->insertItem( i18n( "GSSAPI" ) );
mAuthentication->insertItem( i18n( "DIGEST-MD5" ) );
mAuthentication->insertItem( i18n( "CRAM-MD5" ) );
topLayout->addWidget( mAuthentication, 7, 1 );
label->setBuddy( mAuthentication );
TQWhatsThis::add( mAuthentication, i18n( "Choose the authentication type that is supported by your server." ) );
topLayout->setRowStretch( 8, 1 );
//DF: I don't see the point in showing the user those pages.
//They are very 'internal' and of no use to anyone other than developers.
//(This is even more true for the rules page. The changes page is sort of OK)
setupRulesPage();
setupChangesPage();
setInitialSize( TQSize( 600, 300 ) );
}
ScalixWizard::~ScalixWizard()
{
}
TQString ScalixWizard::validate()
{
if ( mRealNameEdit->text().isEmpty() ||
mEMailEdit->text().isEmpty() ||
mServerEdit->text().isEmpty() ||
mUserEdit->text().isEmpty() ||
mPasswordEdit->text().isEmpty() )
return i18n( "Please fill in all fields." );
return TQString::null;
}
void ScalixWizard::usrReadConfig()
{
mRealNameEdit->setText( ScalixConfig::self()->realName() );
mEMailEdit->setText( ScalixConfig::self()->eMail() );
mServerEdit->setText( ScalixConfig::self()->server() );
mUserEdit->setText( ScalixConfig::self()->user() );
mPasswordEdit->setText( ScalixConfig::self()->password() );
mSavePasswordCheck->setChecked( ScalixConfig::self()->savePassword() );
switch ( ScalixConfig::self()->security() ) {
default:
case ScalixConfig::None:
mSecurity->setCurrentItem( 0 );
break;
case ScalixConfig::TLS:
mSecurity->setCurrentItem( 1 );
break;
case ScalixConfig::SSL:
mSecurity->setCurrentItem( 2 );
break;
}
switch ( ScalixConfig::self()->authentication() ) {
default:
case ScalixConfig::Password:
mAuthentication->setCurrentItem( 0 );
break;
case ScalixConfig::NTLM_SPA:
mAuthentication->setCurrentItem( 1 );
break;
case ScalixConfig::GSSAPI:
mAuthentication->setCurrentItem( 2 );
break;
case ScalixConfig::DIGEST_MD5:
mAuthentication->setCurrentItem( 3 );
break;
case ScalixConfig::CRAM_MD5:
mAuthentication->setCurrentItem( 4 );
break;
}
}
void ScalixWizard::usrWriteConfig()
{
ScalixConfig::self()->setRealName( mRealNameEdit->text() );
ScalixConfig::self()->setEMail( mEMailEdit->text() );
ScalixConfig::self()->setServer( mServerEdit->text() );
ScalixConfig::self()->setUser( mUserEdit->text() );
ScalixConfig::self()->setPassword( mPasswordEdit->text() );
ScalixConfig::self()->setSavePassword( mSavePasswordCheck->isChecked() );
switch ( mSecurity->currentItem() ) {
default:
case 0:
ScalixConfig::self()->setSecurity( ScalixConfig::None );
break;
case 1:
ScalixConfig::self()->setSecurity( ScalixConfig::TLS );
break;
case 2:
ScalixConfig::self()->setSecurity( ScalixConfig::SSL );
break;
}
switch ( mAuthentication->currentItem() ) {
default:
case 0:
ScalixConfig::self()->setAuthentication( ScalixConfig::Password );
break;
case 1:
ScalixConfig::self()->setAuthentication( ScalixConfig::NTLM_SPA );
break;
case 2:
ScalixConfig::self()->setAuthentication( ScalixConfig::GSSAPI );
break;
case 3:
ScalixConfig::self()->setAuthentication( ScalixConfig::DIGEST_MD5 );
break;
case 4:
ScalixConfig::self()->setAuthentication( ScalixConfig::CRAM_MD5 );
break;
}
}