1 files changed, 153 insertions, 0 deletions
diff --git a/tderesources/exchange/resourceexchangeconfig.cpp b/tderesources/exchange/resourceexchangeconfig.cpp
new file mode 100644
index 000000000..36774901b
--- /dev/null
+++ b/tderesources/exchange/resourceexchangeconfig.cpp
@@ -0,0 +1,153 @@
+/*
+    This file is part of libkpimexchange.
+    Copyright (c) 2002 Tobias Koenig <[email protected]>
+    Copyright (c) 2002 Jan-Pascal van Best <[email protected]>
+
+    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 <tqlabel.h>
+#include <tqlayout.h>
+
+#include <klocale.h>
+#include <kdebug.h>
+#include <kstandarddirs.h>
+#include <kmessagebox.h>
+
+#include "exchangeaccount.h"
+#include "resourceexchangeconfig.h"
+#include "resourceexchange.h"
+
+using namespace KCal;
+
+ResourceExchangeConfig::ResourceExchangeConfig( TQWidget* parent,  const char* name )
+    : KRES::ConfigWidget( parent, name )
+{
+  resize( 245, 115 );
+  TQGridLayout *mainLayout = new TQGridLayout( this, 8, 3 );
+
+  TQLabel *label = new TQLabel( i18n( "Host:" ), this );
+  mHostEdit = new KLineEdit( this );
+  mainLayout->addWidget( label, 1, 0 );
+  mainLayout->addWidget( mHostEdit, 1, 1 );
+
+  label = new TQLabel( i18n( "Port:" ), this );
+  mPortEdit = new KLineEdit( this );
+  mainLayout->addWidget( label, 2, 0 );
+  mainLayout->addWidget( mPortEdit, 2, 1 );
+
+  label = new TQLabel( i18n( "Account:" ), this );
+  mAccountEdit = new KLineEdit( this );
+  mainLayout->addWidget( label, 3, 0 );
+  mainLayout->addWidget( mAccountEdit, 3, 1 );
+
+  label = new TQLabel( i18n( "Password:" ), this );
+  mPasswordEdit = new KLineEdit( this );
+  mPasswordEdit->setEchoMode( TQLineEdit::Password );
+  mainLayout->addWidget( label, 4, 0 );
+  mainLayout->addWidget( mPasswordEdit, 4, 1 );
+
+  mAutoMailbox = new TQCheckBox( i18n( "Determine mailbox &automatically" ), this );
+  mainLayout->addMultiCellWidget( mAutoMailbox, 5, 5, 0, 1 );
+  connect( mAutoMailbox, TQT_SIGNAL(toggled(bool)), this, TQT_SLOT(slotToggleAuto(bool)) );
+
+  mMailboxEdit = new KLineEdit( this );
+  mainLayout->addWidget( new TQLabel( i18n( "Mailbox URL:" ), this ), 6, 0 );
+  mainLayout->addWidget( mMailboxEdit, 6, 1 );
+
+  mTryFindMailbox = new TQPushButton( i18n( "&Find" ), this );
+  mainLayout->addWidget( mTryFindMailbox, 6, 2 );
+  connect( mTryFindMailbox, TQT_SIGNAL(clicked()), this, TQT_SLOT(slotFindClicked()) );
+
+  label = new TQLabel( i18n( "Cache timeout:" ), this );
+  mCacheEdit = new KIntNumInput( this );
+  connect(mCacheEdit, TQT_SIGNAL(valueChanged( int )), TQT_SLOT(slotCacheEditChanged( int )));
+  mCacheEdit->setMinValue( 0 );
+  mainLayout->addWidget( label, 7, 0 );
+  mainLayout->addWidget( mCacheEdit, 7, 1 );
+}
+
+void ResourceExchangeConfig::loadSettings( KRES::Resource *resource )
+{
+  ResourceExchange* res = dynamic_cast<ResourceExchange*>( resource );
+  if (res) {
+    mHostEdit->setText( res->mAccount->host() );
+    mPortEdit->setText( res->mAccount->port() );
+    mAccountEdit->setText( res->mAccount->account() );
+    mPasswordEdit->setText( res->mAccount->password() );
+    mAutoMailbox->setChecked( res->mAutoMailbox );
+    mMailboxEdit->setText( res->mAccount->mailbox() );
+    mCacheEdit->setValue( res->mCachedSeconds );
+  } else
+    kdDebug(5700) << "ERROR: ResourceExchangeConfig::loadSettings(): no ResourceExchange, cast failed" << endl;
+}
+
+void ResourceExchangeConfig::saveSettings( KRES::Resource *resource )
+{
+  kdDebug() << "Saving settings to resource " << resource->resourceName() << endl;
+  ResourceExchange* res = dynamic_cast<ResourceExchange*>( resource );
+  if (res) {
+    if ( mAutoMailbox->isChecked() ) {
+      mMailboxEdit->setText( TQString() );
+      slotFindClicked();
+      if ( mMailboxEdit->text().isNull() ) {
+        kdWarning() << "Could not find Exchange mailbox URL, incomplete settings!" << endl;
+      }
+    }
+    res->mAutoMailbox = mAutoMailbox->isChecked();
+
+    res->mAccount->setHost(mHostEdit->text());
+    res->mAccount->setPort(mPortEdit->text());
+    res->mAccount->setAccount(mAccountEdit->text());
+    res->mAccount->setPassword(mPasswordEdit->text());
+    res->mAccount->setMailbox( mMailboxEdit->text() );
+    res->mCachedSeconds = mCacheEdit->value();
+  } else
+    kdDebug(5700) << "ERROR: ResourceExchangeConfig::saveSettings(): no ResourceExchange, cast failed" << endl;
+}
+
+void ResourceExchangeConfig::slotToggleAuto( bool on )
+{
+  mMailboxEdit->setEnabled( ! on );
+//  mTryFindMailbox->setEnabled( ! on );
+}
+
+void ResourceExchangeConfig::slotUserChanged( const TQString& /*text*/ )
+{
+//  if ( mMailboxEqualsUser->isChecked() ) {
+//    mMailboxEdit->setText( "webdav://" + mHostEdit->text() + "/exchange/" + text );
+//  }
+}
+
+void ResourceExchangeConfig::slotFindClicked()
+{
+  TQString mailbox = KPIM::ExchangeAccount::tryFindMailbox(
+      mHostEdit->text(), mPortEdit->text(),
+      mAccountEdit->text(), mPasswordEdit->text() );
+
+  if ( mailbox.isNull() ) {
+    KMessageBox::sorry( this, i18n( "Could not determine mailbox URL, please check your account settings." ) );
+  } else {
+    mMailboxEdit->setText( mailbox );
+  }
+}
+
+void ResourceExchangeConfig::slotCacheEditChanged( int value )
+{
+  mCacheEdit->setSuffix( i18n(" second", " seconds", value) );
+}
+
+#include "resourceexchangeconfig.moc"