1 files changed, 390 insertions, 0 deletions
diff --git a/wizards/egroupwarewizard.cpp b/wizards/egroupwarewizard.cpp
new file mode 100644
index 000000000..75898ead3
--- /dev/null
+++ b/wizards/egroupwarewizard.cpp
@@ -0,0 +1,390 @@
+/*
+    This file is part of kdepim.
+
+    Copyright (c) 2004 Tobias Koenig <tokoe@kde.org>
+
+    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 "egroupwarewizard.h"
+#include "egroupwareconfig.h"
+
+#include "kresources/egroupware/kabc_egroupwareprefs.h"
+#include "kresources/egroupware/kabc_resourcexmlrpc.h"
+#include "kresources/egroupware/kcal_egroupwareprefs.h"
+#include "kresources/egroupware/kcal_resourcexmlrpc.h"
+#include "kresources/egroupware/knotes_egroupwareprefs.h"
+#include "kresources/egroupware/knotes_resourcexmlrpc.h"
+
+#include <libkcal/resourcecalendar.h>
+
+#include <klineedit.h>
+#include <klocale.h>
+#include <kmessagebox.h>
+
+#include <qcheckbox.h>
+#include <qlabel.h>
+#include <qlayout.h>
+#include <qwhatsthis.h>
+
+
+static QString createURL( const QString &server, bool useSSL, const QString &location )
+{
+  KURL url;
+
+  if ( useSSL )
+    url.setProtocol( "https" );
+  else
+    url.setProtocol( "http" );
+
+  url.setHost( server );
+  url.setPath( "/" + location );
+
+  return url.url();
+}
+
+class CreateEGroupwareKabcResource : public KConfigPropagator::Change
+{
+  public:
+    CreateEGroupwareKabcResource()
+      : KConfigPropagator::Change( i18n("Create eGroupware Addressbook Resource") )
+    {
+    }
+
+    void apply()
+    {
+      kdDebug() << "Create eGroupware Addressbook Resource" << endl;
+
+      KRES::Manager<KABC::Resource> manager( "contact" );
+      manager.readConfig();
+
+      QString url = createURL( EGroupwareConfig::self()->server(), EGroupwareConfig::self()->useSSLConnection(), EGroupwareConfig::self()->xmlrpc_location() );
+
+      KABC::ResourceXMLRPC *resource = new KABC::ResourceXMLRPC( url, EGroupwareConfig::self()->domain(),
+                                                                 EGroupwareConfig::self()->user(),
+                                                                 EGroupwareConfig::self()->password() );
+      resource->setResourceName( i18n( "eGroupware" ) );
+      manager.add( resource );
+      manager.writeConfig();
+    }
+};
+
+// TODO: fix the i18n strings after freeze...
+class ChangeEGroupwareKabcResource : public KConfigPropagator::Change
+{
+  public:
+    ChangeEGroupwareKabcResource( const QString &identifier )
+      : KConfigPropagator::Change( i18n("Create eGroupware Addressbook Resource") ),
+        mIdentifier( identifier )
+    {
+    }
+
+    void apply()
+    {
+      kdDebug() << "Change eGroupware Addressbook Resource" << endl;
+
+      KRES::Manager<KABC::Resource> manager( "contact" );
+      manager.readConfig();
+
+      KRES::Manager<KABC::Resource>::Iterator it;
+      for ( it = manager.begin(); it != manager.end(); ++it ) {
+        if ( (*it)->identifier() == mIdentifier ) {
+          KABC::ResourceXMLRPC *resource = static_cast<KABC::ResourceXMLRPC*>( *it );
+
+          resource->prefs()->setUrl( createURL( EGroupwareConfig::self()->server(),
+          EGroupwareConfig::self()->useSSLConnection(), EGroupwareConfig::self()->xmlrpc_location() ) );
+          resource->prefs()->setDomain( EGroupwareConfig::self()->domain() );
+          resource->prefs()->setUser( EGroupwareConfig::self()->user() );
+          resource->prefs()->setPassword( EGroupwareConfig::self()->password() );
+
+          manager.change( resource );
+          manager.writeConfig();
+          return;
+        }
+      }
+    }
+
+  private:
+    QString mIdentifier;
+};
+
+class CreateEGroupwareKcalResource : public KConfigPropagator::Change
+{
+  public:
+    CreateEGroupwareKcalResource()
+      : KConfigPropagator::Change( i18n( "Create eGroupware Calendar Resource" ) )
+    {
+    }
+
+    void apply()
+    {
+      kdDebug() << "Create eGroupware Calendar Resource" << endl;
+
+      KCal::CalendarResourceManager manager( "calendar" );
+      manager.readConfig();
+
+      KCal::ResourceXMLRPC *resource = new KCal::ResourceXMLRPC();
+      resource->setResourceName( i18n( "eGroupware" ) );
+      resource->prefs()->setUrl( createURL( EGroupwareConfig::self()->server(), EGroupwareConfig::self()->useSSLConnection(), EGroupwareConfig::self()->xmlrpc_location() ) );
+      resource->prefs()->setDomain( EGroupwareConfig::self()->domain() );
+      resource->prefs()->setUser( EGroupwareConfig::self()->user() );
+      resource->prefs()->setPassword( EGroupwareConfig::self()->password() );
+      manager.add( resource );
+      manager.writeConfig();
+    }
+};
+
+class ChangeEGroupwareKcalResource : public KConfigPropagator::Change
+{
+  public:
+    ChangeEGroupwareKcalResource( const QString &identifier )
+      : KConfigPropagator::Change( i18n( "Create eGroupware Calendar Resource" ) ),
+        mIdentifier( identifier )
+    {
+    }
+
+    void apply()
+    {
+      kdDebug() << "Change eGroupware Calendar Resource" << endl;
+
+      KCal::CalendarResourceManager manager( "calendar" );
+      manager.readConfig();
+
+      KCal::CalendarResourceManager::Iterator it;
+      for ( it = manager.begin(); it != manager.end(); ++it ) {
+        if ( (*it)->identifier() == mIdentifier ) {
+          KCal::ResourceXMLRPC *resource = static_cast<KCal::ResourceXMLRPC*>( *it );
+
+          resource->prefs()->setUrl( createURL( EGroupwareConfig::self()->server(),
+          EGroupwareConfig::self()->useSSLConnection(), EGroupwareConfig::self()->xmlrpc_location() ) );
+          resource->prefs()->setDomain( EGroupwareConfig::self()->domain() );
+          resource->prefs()->setUser( EGroupwareConfig::self()->user() );
+          resource->prefs()->setPassword( EGroupwareConfig::self()->password() );
+
+          manager.change( resource );
+          manager.writeConfig();
+          return;
+        }
+      }
+    }
+
+  private:
+    QString mIdentifier;
+};
+
+class CreateEGroupwareKnotesResource : public KConfigPropagator::Change
+{
+  public:
+    CreateEGroupwareKnotesResource()
+      : KConfigPropagator::Change( i18n("Create eGroupware Notes Resource") )
+    {
+    }
+
+    void apply()
+    {
+      kdDebug() << "Create eGroupware notes Resource" << endl;
+
+      KRES::Manager<ResourceNotes> manager( "notes" );
+      manager.readConfig();
+
+      QString url = createURL( EGroupwareConfig::self()->server(), EGroupwareConfig::self()->useSSLConnection(), EGroupwareConfig::self()->xmlrpc_location() );
+
+      KNotes::ResourceXMLRPC *resource = new KNotes::ResourceXMLRPC();
+      resource->setResourceName( i18n( "eGroupware" ) );
+      resource->prefs()->setUrl( createURL( EGroupwareConfig::self()->server(), EGroupwareConfig::self()->useSSLConnection(), EGroupwareConfig::self()->xmlrpc_location() ) );
+      resource->prefs()->setDomain( EGroupwareConfig::self()->domain() );
+      resource->prefs()->setUser( EGroupwareConfig::self()->user() );
+      resource->prefs()->setPassword( EGroupwareConfig::self()->password() );
+      manager.add( resource );
+      manager.writeConfig();
+    }
+};
+
+class ChangeEGroupwareKnotesResource : public KConfigPropagator::Change
+{
+  public:
+    ChangeEGroupwareKnotesResource( const QString &identifier )
+      : KConfigPropagator::Change( i18n("Create eGroupware Notes Resource") ),
+        mIdentifier( identifier )
+    {
+    }
+
+    void apply()
+    {
+      kdDebug() << "Change eGroupware Notes Resource" << endl;
+
+      KRES::Manager<ResourceNotes> manager( "notes" );
+      manager.readConfig();
+
+      KRES::Manager<ResourceNotes>::Iterator it;
+      for ( it = manager.begin(); it != manager.end(); ++it ) {
+        if ( (*it)->identifier() == mIdentifier ) {
+          KNotes::ResourceXMLRPC *resource = static_cast<KNotes::ResourceXMLRPC*>( *it );
+
+          resource->prefs()->setUrl( createURL( EGroupwareConfig::self()->server(),
+          EGroupwareConfig::self()->useSSLConnection(), EGroupwareConfig::self()->xmlrpc_location() ) );
+          resource->prefs()->setDomain( EGroupwareConfig::self()->domain() );
+          resource->prefs()->setUser( EGroupwareConfig::self()->user() );
+          resource->prefs()->setPassword( EGroupwareConfig::self()->password() );
+
+          manager.change( resource );
+          manager.writeConfig();
+          return;
+        }
+      }
+    }
+
+  private:
+    QString mIdentifier;
+};
+
+class EGroupwarePropagator : public KConfigPropagator
+{
+  public:
+    EGroupwarePropagator()
+      : KConfigPropagator( EGroupwareConfig::self(), "egroupware.kcfg" )
+    {
+    }
+
+  protected:
+    void addCustomChanges( Change::List &changes )
+    {
+      KCal::CalendarResourceManager kcalManager( "calendar" );
+      kcalManager.readConfig();
+      KCal::CalendarResourceManager::Iterator kcalIt;
+      for ( kcalIt = kcalManager.begin(); kcalIt != kcalManager.end(); ++kcalIt ) {
+        if ( (*kcalIt)->type() == "xmlrpc" ) break;
+      }
+      if ( kcalIt == kcalManager.end() ) {
+        changes.append( new CreateEGroupwareKcalResource );
+      } else {
+        changes.append( new ChangeEGroupwareKcalResource( (*kcalIt)->identifier() ) );
+      }
+
+      KRES::Manager<KABC::Resource> kabcManager( "contact" );
+      kabcManager.readConfig();
+      KRES::Manager<KABC::Resource>::Iterator kabcIt;
+      for ( kabcIt = kabcManager.begin(); kabcIt != kabcManager.end(); ++kabcIt ) {
+        if ( (*kabcIt)->type() == "xmlrpc" ) break;
+      }
+      if ( kabcIt == kabcManager.end() ) {
+        changes.append( new CreateEGroupwareKabcResource );
+      } else {
+        changes.append( new ChangeEGroupwareKabcResource( (*kabcIt)->identifier() ) );
+      }
+
+      KRES::Manager<ResourceNotes> knotesManager( "notes" );
+      knotesManager.readConfig();
+      KRES::Manager<ResourceNotes>::Iterator knotesIt;
+      for ( knotesIt = knotesManager.begin(); knotesIt != knotesManager.end(); ++knotesIt ) {
+        if ( (*knotesIt)->type() == "xmlrpc" ) break;
+      }
+      if ( knotesIt == knotesManager.end() ) {
+        changes.append( new CreateEGroupwareKnotesResource );
+      } else {
+        changes.append( new ChangeEGroupwareKnotesResource( (*knotesIt)->identifier() ) );
+      }
+    }
+};
+
+EGroupwareWizard::EGroupwareWizard() : KConfigWizard( new EGroupwarePropagator )
+{
+  QFrame *page = createWizardPage( i18n( "eGroupware Server" ) );
+
+  QGridLayout *topLayout = new QGridLayout( page );
+  topLayout->setSpacing( spacingHint() );
+
+  QLabel *label = new QLabel( i18n( "&Server name:" ), page );
+  topLayout->addWidget( label, 0, 0 );
+  mServerEdit = new KLineEdit( page );
+  label->setBuddy( mServerEdit );
+  topLayout->addWidget( mServerEdit, 0, 1 );
+
+  label = new QLabel( i18n( "&Domain name:" ), page );
+  topLayout->addWidget( label, 1, 0 );
+  mDomainEdit = new KLineEdit( page );
+  label->setBuddy( mDomainEdit );
+  topLayout->addWidget( mDomainEdit, 1, 1 );
+
+  label = new QLabel( i18n( "&Username:" ), page );
+  topLayout->addWidget( label, 2, 0 );
+  mUserEdit = new KLineEdit( page );
+  label->setBuddy( mUserEdit );
+  topLayout->addWidget( mUserEdit, 2, 1 );
+
+  label = new QLabel( i18n( "&Password:" ), page );
+  topLayout->addWidget( label, 3, 0 );
+  mPasswordEdit = new KLineEdit( page );
+  mPasswordEdit->setEchoMode( KLineEdit::Password );
+  label->setBuddy( mPasswordEdit );
+  topLayout->addWidget( mPasswordEdit, 3, 1 );
+
+  label = new QLabel( i18n( "&Location xmlrpc.php on server:" ), page );
+  topLayout->addWidget( label, 4, 0 );
+  mXMLRPC = new KLineEdit( page );
+  mXMLRPC->setMinimumWidth( 175 );
+  label->setBuddy( mXMLRPC );
+  topLayout->addWidget( mXMLRPC, 4, 1 );
+  QWhatsThis::add( label, i18n( "Some servers may not have the xmlrpc.php file in the 'egroupware' folder of the server. With this option it is possible to eventually change the path to that file. For most servers, the default value is OK." ) );
+
+  mUseSSLConnectionCheck = new QCheckBox( i18n( "Use SS&L connection" ), page );
+  topLayout->addMultiCellWidget( mUseSSLConnectionCheck, 5, 5, 0, 1 );
+
+  topLayout->setRowStretch( 6, 1 );
+
+  setupRulesPage();
+  setupChangesPage();
+
+  resize( sizeHint() );
+}
+
+EGroupwareWizard::~EGroupwareWizard()
+{
+}
+
+QString EGroupwareWizard::validate()
+{
+  if( !mXMLRPC->text().endsWith( "xmlrpc.php" ) )
+    return i18n( "Invalid path to xmlrpc.php entered." );
+
+  if( mServerEdit->text().isEmpty() ||
+      mDomainEdit->text().isEmpty() ||
+      mUserEdit->text().isEmpty() ||
+      mPasswordEdit->text().isEmpty() ||
+      mXMLRPC->text().isEmpty() )
+    return i18n( "Please fill in all fields." );
+
+  return QString::null;
+}
+
+void EGroupwareWizard::usrReadConfig()
+{
+  mServerEdit->setText( EGroupwareConfig::self()->server() );
+  mDomainEdit->setText( EGroupwareConfig::self()->domain() );
+  mUserEdit->setText( EGroupwareConfig::self()->user() );
+  mPasswordEdit->setText( EGroupwareConfig::self()->password() );
+  mXMLRPC->setText( EGroupwareConfig::self()->xmlrpc_location() );
+  mUseSSLConnectionCheck->setChecked( EGroupwareConfig::self()->useSSLConnection() );
+}
+
+void EGroupwareWizard::usrWriteConfig()
+{
+  EGroupwareConfig::self()->setServer( mServerEdit->text() );
+  EGroupwareConfig::self()->setDomain( mDomainEdit->text() );
+  EGroupwareConfig::self()->setUser( mUserEdit->text() );
+  EGroupwareConfig::self()->setPassword( mPasswordEdit->text() );
+  EGroupwareConfig::self()->setXmlrpc_location( mXMLRPC->text() );
+  EGroupwareConfig::self()->setUseSSLConnection( mUseSSLConnectionCheck->isChecked() );
+}