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/konqueror/remoteencodingplugin/kremoteencodingplugin.cpp

267 lines
7.2 KiB

/*
Copyright (c) 2003 Thiago Macieira <thiago.macieira@kdemail.net>
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License (LGPL) 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.
*/
/*
* This code is largely based on the UserAgent changer plugin (uachanger)
* Copyright © 2001 Dawit Alemayehu <adawit@kde.org>
* Distributed under the same terms.
*/
#include <kdebug.h>
#include <kaction.h>
#include <klocale.h>
#include <kglobal.h>
#include <kconfig.h>
#include <kcharsets.h>
#include <kpopupmenu.h>
#include <dcopclient.h>
#include <kgenericfactory.h>
#include <kprotocolmanager.h>
#include <kprotocolinfo.h>
#include <kio/slaveconfig.h>
#include <konq_dirpart.h>
#include <kparts/browserextension.h>
#include "kremoteencodingplugin.h"
#define DATA_KEY TQString::tqfromLatin1("Charset")
KRemoteEncodingPlugin::KRemoteEncodingPlugin(TQObject * parent,
const char *name,
const TQStringList &)
: KParts::Plugin(parent, name), m_loaded(false), m_idDefault(0)
{
m_menu = new KActionMenu(i18n("Select Remote Charset"), "charset",
actionCollection(), "changeremoteencoding");
connect(m_menu->popupMenu(), TQT_SIGNAL(aboutToShow()),
this, TQT_SLOT(slotAboutToShow()));
m_menu->setEnabled(false);
m_menu->setDelayed(false);
m_part = tqt_dynamic_cast<KonqDirPart*>(parent);
if (m_part)
// if parent is not a KonqDirPart, our menu will never show
TQObject::connect(m_part, TQT_SIGNAL(aboutToOpenURL()),
this, TQT_SLOT(slotAboutToOpenURL()));
}
KRemoteEncodingPlugin::~KRemoteEncodingPlugin()
{
}
void
KRemoteEncodingPlugin::slotReload()
{
loadSettings();
}
void
KRemoteEncodingPlugin::loadSettings()
{
m_loaded = true;
m_encodingDescriptions = KGlobal::charsets()->descriptiveEncodingNames();
fillMenu();
}
void
KRemoteEncodingPlugin::slotAboutToOpenURL()
{
KURL oldURL = m_currentURL;
m_currentURL = m_part->url();
if (m_currentURL.protocol() != oldURL.protocol())
{
// This plugin works on ftp, fish, etc.
// everything whose type is T_FILESYSTEM except for local files
if (!m_currentURL.isLocalFile() &&
KProtocolInfo::outputType(m_currentURL) == KProtocolInfo::T_FILESYSTEM)
{
m_menu->setEnabled(true);
loadSettings();
}
else
m_menu->setEnabled(false);
return;
}
if (m_currentURL.host() != oldURL.host())
updateMenu();
}
void
KRemoteEncodingPlugin::fillMenu()
{
KPopupMenu *menu = m_menu->popupMenu();
menu->clear();
TQStringList::ConstIterator it;
int count = 0;
for (it = m_encodingDescriptions.begin(); it != m_encodingDescriptions.end(); ++it)
menu->insertItem(*it, this, TQT_SLOT(slotItemSelected(int)), 0, ++count);
menu->insertSeparator();
menu->insertItem(i18n("Reload"), this, TQT_SLOT(slotReload()), 0, ++count);
menu->insertItem(i18n("Default"), this, TQT_SLOT(slotDefault()), 0, ++count);
m_idDefault = count;
}
void
KRemoteEncodingPlugin::updateMenu()
{
if (!m_loaded)
loadSettings();
// uncheck everything
for (unsigned i = 0; i < m_menu->popupMenu()->count(); i++)
m_menu->popupMenu()->setItemChecked(m_menu->popupMenu()->idAt(i), false);
TQString charset = KIO::SlaveConfig::self()->configData(m_currentURL.protocol(), m_currentURL.host(),
DATA_KEY);
if (!charset.isEmpty())
{
int id = 1;
TQStringList::Iterator it;
for (it = m_encodingDescriptions.begin(); it != m_encodingDescriptions.end(); ++it, ++id)
if ((*it).tqfind(charset) != -1)
break;
kdDebug() << k_funcinfo << "URL=" << m_currentURL << " charset=" << charset << endl;
if (it == m_encodingDescriptions.end())
kdWarning() << k_funcinfo << "could not find entry for charset=" << charset << endl;
else
m_menu->popupMenu()->setItemChecked(id, true);
}
else
m_menu->popupMenu()->setItemChecked(m_idDefault, true);
}
void
KRemoteEncodingPlugin::slotAboutToShow()
{
if (!m_loaded)
loadSettings();
updateMenu();
}
void
KRemoteEncodingPlugin::slotItemSelected(int id)
{
KConfig config(("kio_" + m_currentURL.protocol() + "rc").latin1());
TQString host = m_currentURL.host();
if (!m_menu->popupMenu()->isItemChecked(id))
{
TQString charset = KGlobal::charsets()->encodingForName(m_encodingDescriptions[id - 1]);
config.setGroup(host);
config.writeEntry(DATA_KEY, charset);
config.sync();
// Update the io-slaves...
updateBrowser();
}
}
void
KRemoteEncodingPlugin::slotDefault()
{
// We have no choice but delete all higher domain level
// settings here since it affects what will be matched.
KConfig config(("kio_" + m_currentURL.protocol() + "rc").latin1());
TQStringList partList = TQStringList::split('.', m_currentURL.host(), false);
if (!partList.isEmpty())
{
partList.remove(partList.begin());
TQStringList domains;
// Remove the exact name match...
domains << m_currentURL.host();
while (partList.count())
{
if (partList.count() == 2)
if (partList[0].length() <= 2 && partList[1].length() == 2)
break;
if (partList.count() == 1)
break;
domains << partList.join(".");
partList.remove(partList.begin());
}
for (TQStringList::Iterator it = domains.begin(); it != domains.end();
it++)
{
kdDebug() << k_funcinfo << "Domain to remove: " << *it << endl;
if (config.hasGroup(*it))
config.deleteGroup(*it);
else if (config.hasKey(*it))
config.deleteEntry(*it);
}
}
config.sync();
// Update the io-slaves.
updateBrowser();
}
void
KRemoteEncodingPlugin::updateBrowser()
{
// Inform running io-slaves about the change...
DCOPClient *client = new DCOPClient();
if (!client->attach())
kdDebug() << "Can't connect with DCOP server." << endl;
TQByteArray data;
TQDataStream stream(data, IO_WriteOnly);
stream << TQString::null;
// use call to make sure reparsing is done before reloading the url
QCStringList apps = client->registeredApplications();
for( QCStringList::ConstIterator it = apps.begin();
it != apps.end();
++it )
{
TQCString rtype;
TQByteArray rdata;
client->call( *it, "KIO::Scheduler", "reparseSlaveConfiguration(TQString)",
data, rtype, rdata);
}
delete client;
// Reload the page with the new charset
KParts::URLArgs args = m_part->extension()->urlArgs();
args.reload = true;
m_part->extension()->setURLArgs(args);
m_part->openURL(m_currentURL);
}
typedef KGenericFactory < KRemoteEncodingPlugin > KRemoteEncodingPluginFactory;
K_EXPORT_COMPONENT_FACTORY(konq_remoteencoding,
KRemoteEncodingPluginFactory("kremoteencodingplugin"))
#include "kremoteencodingplugin.moc"