1 files changed, 546 insertions, 0 deletions
diff --git a/wizards/scalixwizard.cpp b/wizards/scalixwizard.cpp
new file mode 100644
index 000000000..058ff84dd
--- /dev/null
+++ b/wizards/scalixwizard.cpp
@@ -0,0 +1,546 @@
+/*
+    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 <qapplication.h>
+#include <qcheckbox.h>
+#include <qhbuttongroup.h>
+#include <qlabel.h>
+#include <qlayout.h>
+#include <qwhatsthis.h>
+
+#include <unistd.h>
+
+class SetupLDAPSearchAccount : public KConfigPropagator::Change
+{
+  public:
+    SetupLDAPSearchAccount()
+      : KConfigPropagator::Change( i18n("Setup LDAP Search Account") )
+    {
+    }
+
+    void apply()
+    {
+      const QString host = ScalixConfig::self()->server();
+
+      QString 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( QString("SelectedHost%1").arg(i) ) == host )
+          hasMyServer = true;
+      if ( !hasMyServer ) {
+        c.writeEntry( "NumSelectedHosts", selHosts + 1 );
+        c.writeEntry( QString("SelectedHost%1").arg(selHosts), host);
+        c.writeEntry( QString("SelectedBase%1").arg(selHosts), basedn);
+        c.writeEntry( QString("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()
+    {
+      QMessageBox *msg = new QMessageBox( qApp->mainWidget() );
+      msg->setText( "Preparing initial synchronization with Scalix server..." );
+      msg->show();
+      qApp->processEvents();
+      sleep( 1 );
+      qApp->processEvents();
+
+      QString error;
+      QCString dcopService;
+      int result = KDCOPServiceStarter::self()->
+        findServiceFor( "DCOP/ResourceBackend/IMAP", QString::null,
+                        QString::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
+      QStringList list;
+      while ( list.isEmpty() ) {
+        ref.call( "accounts()" ).get( list );
+      }
+
+      ref.call( "checkAccount(QString)", i18n( "Scalix Server" ) );
+
+      // ugly hack, but kmail needs a second before accepting the second dcop call
+      sleep( 5 );
+      ref.call( "checkAccount(QString)", 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 )
+{
+  QFrame *page = createWizardPage( i18n("Scalix Server") );
+
+  QGridLayout *topLayout = new QGridLayout( page );
+  topLayout->setSpacing( spacingHint() );
+
+  QLabel *label = new QLabel( i18n( "Full name:" ), page );
+  topLayout->addWidget( label, 0, 0 );
+  mRealNameEdit = new KLineEdit( page );
+  topLayout->addWidget( mRealNameEdit, 0, 1 );
+  label->setBuddy( mRealNameEdit );
+  QWhatsThis::add( mRealNameEdit, i18n( "Your full name. "
+                                        "Example: <i>Joe User</i>" ) );
+
+  label = new QLabel( i18n( "Email address:" ), page );
+  topLayout->addWidget( label, 1, 0 );
+  mEMailEdit = new KLineEdit( page );
+  topLayout->addWidget( mEMailEdit, 1, 1 );
+  label->setBuddy( mEMailEdit );
+  QWhatsThis::add( mEMailEdit, i18n( "Your email address on the Scalix Server. "
+                                     "Example: <i>name@crossplatform.com</i>" ) );
+
+  label = new QLabel( i18n( "Server:" ), page );
+  topLayout->addWidget( label, 2, 0 );
+  mServerEdit = new KLineEdit( page );
+  topLayout->addWidget( mServerEdit, 2, 1 );
+  label->setBuddy( mServerEdit );
+  QWhatsThis::add( mServerEdit, i18n( "The name or IP of the Scalix Server. "
+                                      "Example: <i>scalix.domain.com</i>" ) );
+
+  label = new QLabel( i18n("Username:"), page );
+  topLayout->addWidget( label, 3, 0 );
+  mUserEdit = new KLineEdit( page );
+  topLayout->addWidget( mUserEdit, 3, 1 );
+  label->setBuddy( mUserEdit );
+  QWhatsThis::add( mUserEdit, i18n( "The user respectively login name. "
+                                    "Example: <i>joe</i>" ) );
+
+  label = new QLabel( i18n("Password:"), page );
+  topLayout->addWidget( label, 4, 0 );
+  mPasswordEdit = new KLineEdit( page );
+  mPasswordEdit->setEchoMode( KLineEdit::Password );
+  topLayout->addWidget( mPasswordEdit, 4, 1 );
+  label->setBuddy( mPasswordEdit );
+  QWhatsThis::add( mPasswordEdit, i18n( "The password to your login." ) );
+
+  mSavePasswordCheck = new QCheckBox( i18n("Save password"), page );
+  topLayout->addMultiCellWidget( mSavePasswordCheck, 5, 5, 0, 1 );
+  QWhatsThis::add( mSavePasswordCheck, i18n( "Shall the password be saved in KWallet?." ) );
+
+  label = new QLabel( 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 );
+  QWhatsThis::add( mSecurity, i18n( "Choose the encryption type that is supported by your server." ) );
+
+  label = new QLabel( 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 );
+  QWhatsThis::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( QSize( 600, 300 ) );
+}
+
+ScalixWizard::~ScalixWizard()
+{
+}
+
+QString 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 QString::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;
+  }
+}