1 files changed, 403 insertions, 0 deletions

diff --git a/kcontrol/tdeio/useragentdlg.cpp b/kcontrol/tdeio/useragentdlg.cpp
new file mode 100644
index 000000000..67f13bf8b
--- /dev/null
+++ b/kcontrol/tdeio/useragentdlg.cpp
@@ -0,0 +1,403 @@
+/*
+   Original Authors:
+   Copyright (c) Kalle Dalheimer 1997
+   Copyright (c) David Faure <faure@kde.org> 1998
+   Copyright (c) Dirk Mueller <mueller@kde.org> 2000
+
+   Completely re-written by:
+   Copyright (C) 2000- Dawit Alemayehu <adawit@kde.org>
+
+   This library is free software; you can redistribute it and/or
+   modify it under the terms of the GNU General Public License (GPL)
+   version 2 as published by the Free Software Foundation.
+
+   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 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 <tqvbox.h>
+#include <tqlayout.h>
+#include <tqcheckbox.h>
+#include <tqlineedit.h>
+#include <tqtooltip.h>
+#include <tqwhatsthis.h>
+#include <tqpushbutton.h>
+#include <tqvbuttongroup.h>
+
+#include <kdebug.h>
+#include <tdeconfig.h>
+#include <klocale.h>
+#include <klistview.h>
+#include <kmessagebox.h>
+#include <ksimpleconfig.h>
+#include <tdeio/http_slave_defaults.h>
+
+#include "ksaveioconfig.h"
+#include "fakeuaprovider.h"
+#include "uagentproviderdlg.h"
+
+#include "useragentdlg.h"
+#include "useragentdlg_ui.h"
+
+UserAgentDlg::UserAgentDlg( TQWidget * parent )
+             :TDECModule( parent, "kcmtdeio" )
+{
+  TQVBoxLayout *mainLayout = new TQVBoxLayout(this, 0, KDialog::spacingHint());
+
+  dlg = new UserAgentDlgUI (this);
+  mainLayout->addWidget(dlg);
+
+  dlg->lvDomainPolicyList->setSorting(0);
+
+  connect( dlg->cbSendUAString, TQT_SIGNAL(clicked()), TQT_SLOT(configChanged()) );
+
+  connect( dlg->gbDefaultId, TQT_SIGNAL(clicked(int)),
+           TQT_SLOT(changeDefaultUAModifiers(int)));
+
+  connect( dlg->lvDomainPolicyList, TQT_SIGNAL(selectionChanged()),
+           TQT_SLOT(selectionChanged()) );
+  connect( dlg->lvDomainPolicyList, TQT_SIGNAL(doubleClicked (TQListViewItem *)),
+           TQT_SLOT(changePressed()) );
+  connect( dlg->lvDomainPolicyList, TQT_SIGNAL( returnPressed ( TQListViewItem * ) ),
+           TQT_SLOT( changePressed() ));
+
+  connect( dlg->pbNew, TQT_SIGNAL(clicked()), TQT_SLOT( addPressed() ) );
+  connect( dlg->pbChange, TQT_SIGNAL( clicked() ), TQT_SLOT( changePressed() ) );
+  connect( dlg->pbDelete, TQT_SIGNAL( clicked() ), TQT_SLOT( deletePressed() ) );
+  connect( dlg->pbDeleteAll, TQT_SIGNAL( clicked() ), TQT_SLOT( deleteAllPressed() ) );
+
+  load();
+}
+
+UserAgentDlg::~UserAgentDlg()
+{
+    delete m_provider;
+    delete m_config;
+}
+
+void UserAgentDlg::load()
+{
+  d_itemsSelected = 0;
+  dlg->lvDomainPolicyList->clear();
+
+  m_config = new TDEConfig("tdeio_httprc", false, false);
+  m_provider = new FakeUASProvider();
+
+  TQStringList list = m_config->groupList();
+  for ( TQStringList::Iterator it = list.begin(); it != list.end(); ++it )
+  {
+      if ( (*it) == "<default>")
+         continue;
+      TQString domain = *it;
+      m_config->setGroup(*it);
+      TQString agentStr = m_config->readEntry("UserAgent");
+      if (!agentStr.isEmpty())
+      {
+         TQString realName = m_provider->aliasStr(agentStr);
+         (void) new TQListViewItem( dlg->lvDomainPolicyList, domain.lower(), realName, agentStr );
+      }
+  }
+
+  // Update buttons and checkboxes...
+  m_config->setGroup(TQString::null);
+  bool b = m_config->readBoolEntry("SendUserAgent", true);
+  dlg->cbSendUAString->setChecked( b );
+  m_ua_keys = m_config->readEntry("UserAgentKeys", DEFAULT_USER_AGENT_KEYS).lower();
+  dlg->leDefaultId->setSqueezedText( KProtocolManager::defaultUserAgent( m_ua_keys ) );
+  dlg->cbOS->setChecked( m_ua_keys.contains('o') );
+  dlg->cbOSVersion->setChecked( m_ua_keys.contains('v') );
+  dlg->cbOSVersion->setEnabled( m_ua_keys.contains('o') );
+  dlg->cbPlatform->setChecked( m_ua_keys.contains('p') );
+  dlg->cbProcessorType->setChecked( m_ua_keys.contains('m') );
+  dlg->cbLanguage->setChecked( m_ua_keys.contains('l') );
+  updateButtons();
+  emit changed( false );
+}
+
+void UserAgentDlg::updateButtons()
+{
+  bool hasItems = dlg->lvDomainPolicyList->childCount() > 0;
+
+  dlg->pbChange->setEnabled ((hasItems && d_itemsSelected == 1));
+  dlg->pbDelete->setEnabled ((hasItems && d_itemsSelected > 0));
+  dlg->pbDeleteAll->setEnabled ( hasItems );
+}
+
+void UserAgentDlg::defaults()
+{
+  dlg->lvDomainPolicyList->clear();
+  m_ua_keys = DEFAULT_USER_AGENT_KEYS;
+  dlg->leDefaultId->setSqueezedText( KProtocolManager::defaultUserAgent(m_ua_keys) );
+  dlg->cbOS->setChecked( m_ua_keys.contains('o') );
+  dlg->cbOSVersion->setChecked( m_ua_keys.contains('v') );
+  dlg->cbOSVersion->setEnabled( m_ua_keys.contains('o') );
+  dlg->cbPlatform->setChecked( m_ua_keys.contains('p') );
+  dlg->cbProcessorType->setChecked( m_ua_keys.contains('m') );
+  dlg->cbLanguage->setChecked( m_ua_keys.contains('l') );
+  dlg->cbSendUAString->setChecked( true );
+  updateButtons();
+  configChanged();
+}
+
+void UserAgentDlg::save()
+{
+  TQStringList deleteList;
+
+  // This is tricky because we have to take care to delete entries
+  // as well.
+  TQStringList list = m_config->groupList();
+  for ( TQStringList::Iterator it = list.begin(); it != list.end(); ++it )
+  {
+      if ( (*it) == "<default>")
+         continue;
+      TQString domain = *it;
+      m_config->setGroup(*it);
+      if (m_config->hasKey("UserAgent"))
+         deleteList.append(*it);
+  }
+
+  TQListViewItem* it = dlg->lvDomainPolicyList->firstChild();
+  while(it)
+  {
+    TQString domain = it->text(0);
+    if (domain[0] == '.')
+      domain = domain.mid(1);
+    TQString userAgent = it->text(2);
+    m_config->setGroup(domain);
+    m_config->writeEntry("UserAgent", userAgent);
+    deleteList.remove(domain);
+
+    it = it->nextSibling();
+  }
+
+  m_config->setGroup(TQString::null);
+  m_config->writeEntry("SendUserAgent", dlg->cbSendUAString->isChecked());
+  m_config->writeEntry("UserAgentKeys", m_ua_keys );
+  m_config->sync();
+
+  // Delete all entries from deleteList.
+  if (!deleteList.isEmpty())
+  {
+     // Remove entries from local file.
+     KSimpleConfig cfg("tdeio_httprc");
+     for ( TQStringList::Iterator it = deleteList.begin();
+           it != deleteList.end(); ++it )
+     {
+        cfg.setGroup(*it);
+        cfg.deleteEntry("UserAgent", false);
+        cfg.deleteGroup(*it, false); // Delete if empty.
+     }
+     cfg.sync();
+
+     m_config->reparseConfiguration();
+     // Check everything is gone, reset to blank otherwise.
+     for ( TQStringList::Iterator it = deleteList.begin();
+           it != deleteList.end(); ++it )
+     {
+        m_config->setGroup(*it);
+        if (m_config->hasKey("UserAgent"))
+           m_config->writeEntry("UserAgent", TQString::null);
+     }
+     m_config->sync();
+  }
+
+  KSaveIOConfig::updateRunningIOSlaves (this);
+
+  emit changed( false );
+}
+
+bool UserAgentDlg::handleDuplicate( const TQString& site,
+                                        const TQString& identity,
+                                        const TQString& alias )
+{
+  TQListViewItem* item = dlg->lvDomainPolicyList->firstChild();
+  while ( item != 0 )
+  {
+    if ( item->text(0) == site )
+    {
+      TQString msg = i18n("<qt><center>Found an existing identification for"
+                         "<br/><b>%1</b><br/>"
+                         "Do you want to replace it?</center>"
+                         "</qt>").arg(site);
+      int res = KMessageBox::warningContinueCancel(this, msg,
+                                          i18n("Duplicate Identification"),
+                                          i18n("Replace"));
+      if ( res == KMessageBox::Continue )
+      {
+        item->setText(0, site);
+        item->setText(1, identity);
+        item->setText(2, alias);
+        configChanged();
+      }
+      return true;
+    }
+    item = item->nextSibling();
+  }
+  return false;
+}
+
+void UserAgentDlg::addPressed()
+{
+  UAProviderDlg pdlg ( i18n("Add Identification"), this, m_provider );
+
+  if ( pdlg.exec() == TQDialog::Accepted )
+  {
+    if ( !handleDuplicate( pdlg.siteName(), pdlg.identity(), pdlg.alias() ) )
+    {
+      TQListViewItem* index = new TQListViewItem( dlg->lvDomainPolicyList,
+                                                pdlg.siteName(),
+                                                pdlg.identity(),
+                                                pdlg.alias() );
+      dlg->lvDomainPolicyList->sort();
+      dlg->lvDomainPolicyList->setCurrentItem( index );
+      configChanged();
+    }
+  }
+}
+
+void UserAgentDlg::changePressed()
+{
+  UAProviderDlg pdlg ( i18n("Modify Identification"), this, m_provider );
+
+  TQListViewItem *index = dlg->lvDomainPolicyList->currentItem();
+
+  if(!index)
+    return;
+
+  TQString old_site = index->text(0);
+  pdlg.setSiteName( old_site );
+  pdlg.setIdentity( index->text(1) );
+
+  if ( pdlg.exec() == TQDialog::Accepted )
+  {
+    TQString new_site = pdlg.siteName();
+    if ( new_site == old_site ||
+         !handleDuplicate( new_site, pdlg.identity(), pdlg.alias() ) )
+    {
+      index->setText( 0, new_site );
+      index->setText( 1, pdlg.identity() );
+      index->setText( 2, pdlg.alias() );
+      configChanged();
+    }
+  }
+}
+
+void UserAgentDlg::deletePressed()
+{
+  TQListViewItem* item;
+  TQListViewItem* nextItem = 0;
+
+  item = dlg->lvDomainPolicyList->firstChild ();
+
+  while (item != 0L)
+  {
+    if (dlg->lvDomainPolicyList->isSelected (item))
+    {
+      nextItem = item->itemBelow();
+      if ( !nextItem )
+        nextItem = item->itemAbove();
+
+      delete item;
+      item = nextItem;
+    }
+    else
+    {
+      item = item->itemBelow();
+    }
+  }
+
+  if (nextItem)
+    dlg->lvDomainPolicyList->setSelected (nextItem, true);
+
+  updateButtons();
+  configChanged();
+}
+
+void UserAgentDlg::deleteAllPressed()
+{
+  dlg->lvDomainPolicyList->clear();
+  updateButtons();
+  configChanged();
+}
+
+void UserAgentDlg::configChanged()
+{
+  emit changed ( true );
+}
+
+void UserAgentDlg::changeDefaultUAModifiers( int )
+{
+  m_ua_keys = ":"; // Make sure it's not empty
+
+  if ( dlg->cbOS->isChecked() )
+     m_ua_keys += 'o';
+
+  if ( dlg->cbOSVersion->isChecked() )
+     m_ua_keys += 'v';
+
+  if ( dlg->cbPlatform->isChecked() )
+     m_ua_keys += 'p';
+
+  if ( dlg->cbProcessorType->isChecked() )
+     m_ua_keys += 'm';
+
+  if ( dlg->cbLanguage->isChecked() )
+     m_ua_keys += 'l';
+
+  dlg->cbOSVersion->setEnabled(m_ua_keys.contains('o'));
+
+  TQString modVal = KProtocolManager::defaultUserAgent( m_ua_keys );
+  if ( dlg->leDefaultId->text() != modVal )
+  {
+    dlg->leDefaultId->setSqueezedText(modVal);
+    configChanged();
+  }
+}
+
+void UserAgentDlg::selectionChanged ()
+{
+  TQListViewItem* item;
+
+  d_itemsSelected = 0;
+  item = dlg->lvDomainPolicyList->firstChild ();
+
+  while (item != 0L)
+  {
+    if (dlg->lvDomainPolicyList->isSelected (item))
+      d_itemsSelected++;
+    item = item->nextSibling ();
+  }
+
+  updateButtons ();
+}
+
+TQString UserAgentDlg::quickHelp() const
+{
+  return i18n( "<h1>Browser Identification</h1> "
+               "The browser-identification module allows you to have full "
+               "control over how Konqueror will identify itself to web "
+               "sites you browse."
+               "<P>This ability to fake identification is necessary because "
+               "some web sites do not display properly when they detect that "
+               "they are not talking to current versions of either Netscape "
+               "Navigator or Internet Explorer, even if the browser actually "
+               "supports all the necessary features to render those pages "
+               "properly. "
+               "For such sites, you can use this feature to try to browse "
+               "them. Please understand that this might not always work, since "
+               "such sites might be using non-standard web protocols and or "
+               "specifications."
+               "<P><u>NOTE:</u> To obtain specific help on a particular section "
+               "of the dialog box, simply click on the quick help button on "
+               "the window title bar, then click on the section "
+               "for which you are seeking help." );
+}
+
+#include "useragentdlg.moc"