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.
tdebase/kcontrol/kio/useragentdlg.cpp

404 lines
12 KiB

/*
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 <layout.h>
#include <tqcheckbox.h>
#include <tqlineedit.h>
#include <tqtooltip.h>
#include <tqwhatsthis.h>
#include <tqpushbutton.h>
#include <tqvbuttongroup.h>
#include <kdebug.h>
#include <kconfig.h>
#include <klocale.h>
#include <klistview.h>
#include <kmessagebox.h>
#include <ksimpleconfig.h>
#include <kio/http_slave_defaults.h>
#include "ksaveioconfig.h"
#include "fakeuaprovider.h"
#include "uagentproviderdlg.h"
#include "useragentdlg.h"
#include "useragentdlg_ui.h"
UserAgentDlg::UserAgentDlg( TQWidget * parent )
:KCModule( parent, "kcmkio" )
{
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 KConfig("kio_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("kio_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"