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.
650 lines
16 KiB
650 lines
16 KiB
/* This file is part of the KDE project
|
|
Copyright (C) 2004 Frans Englich <frans.englich@telia.com>
|
|
Copyright (C) 2003 Matthias Kretz <kretz@kde.org>
|
|
|
|
This library is free software; you can redistribute it and/or
|
|
modify it under the terms of the GNU Library General Public
|
|
License 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 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 <tqapplication.h>
|
|
#include <tqcursor.h>
|
|
#include <tqdatastream.h>
|
|
#include <tqevent.h>
|
|
#include <tqfileinfo.h>
|
|
#include <tqframe.h>
|
|
#include <tqlabel.h>
|
|
#include <tqlayout.h>
|
|
#include <tqpoint.h>
|
|
#include <tqscrollview.h>
|
|
#include <tqtextstream.h>
|
|
#include <tqvbox.h>
|
|
#include <tqwhatsthis.h>
|
|
#include <tqwidget.h>
|
|
|
|
#include <dcopclient.h>
|
|
#include <qxembed.h>
|
|
|
|
#include <kapplication.h>
|
|
#include <kaboutdata.h>
|
|
#include <kcmodule.h>
|
|
#include <kcmoduleinfo.h>
|
|
#include <kcmoduleloader.h>
|
|
#include <kdebug.h>
|
|
#include <kdialog.h>
|
|
#include <klocale.h>
|
|
#include <kprocess.h>
|
|
#include <kservice.h>
|
|
#include <kstandarddirs.h>
|
|
#include <kuser.h>
|
|
|
|
#include <X11/Xlib.h>
|
|
|
|
#include "kcmoduleproxy.h"
|
|
#include "kcmoduleproxyIface.h"
|
|
#include "kcmoduleproxyIfaceImpl.h"
|
|
|
|
/***************************************************************/
|
|
class KCModuleProxy::KCModuleProxyPrivate
|
|
{
|
|
public:
|
|
KCModuleProxyPrivate( const KCModuleInfo & info )
|
|
: args( 0 )
|
|
, kcm( 0 )
|
|
//, view( 0 )
|
|
, embedWidget( 0 )
|
|
, rootProcess ( 0 )
|
|
, embedFrame ( 0 )
|
|
, dcopObject( 0 )
|
|
, dcopClient( 0 )
|
|
, topLayout( 0 )
|
|
, rootCommunicator( 0 )
|
|
, rootInfo( 0 )
|
|
, modInfo( info )
|
|
, withFallback( false )
|
|
, changed( false )
|
|
, rootMode( false )
|
|
, bogusOccupier( false )
|
|
, isInitialized( false )
|
|
{}
|
|
|
|
~KCModuleProxyPrivate()
|
|
{
|
|
delete rootInfo; // Delete before embedWidget!
|
|
delete embedWidget; // Delete before embedFrame!
|
|
delete embedFrame;
|
|
delete dcopClient;
|
|
delete dcopObject;
|
|
delete rootCommunicator;
|
|
delete rootProcess;
|
|
delete kcm;
|
|
}
|
|
|
|
TQStringList args;
|
|
KCModule *kcm;
|
|
QXEmbed *embedWidget;
|
|
KProcess *rootProcess;
|
|
TQVBox *embedFrame;
|
|
KCModuleProxyIfaceImpl *dcopObject;
|
|
DCOPClient *dcopClient;
|
|
TQVBoxLayout *topLayout; /* Contains TQScrollView view, and root stuff */
|
|
KCModuleProxyRootCommunicatorImpl *rootCommunicator;
|
|
TQLabel *rootInfo;
|
|
TQCString dcopName;
|
|
KCModuleInfo modInfo;
|
|
bool withFallback;
|
|
bool changed;
|
|
bool rootMode;
|
|
bool bogusOccupier;
|
|
bool isInitialized;
|
|
};
|
|
/***************************************************************/
|
|
|
|
|
|
|
|
/*
|
|
TODO:
|
|
|
|
- How KCModuleProxy behaves wrt memory leaks and behavior, when exiting
|
|
from root mode is not tested, because no code make use of it. It needs
|
|
work, if it should be used.
|
|
|
|
- Should write a document which outlines test cases, to avoid
|
|
regressions. This class is a hazard.
|
|
|
|
- Two Layout problems in runAsRoot:
|
|
* lblBusy doesn't show
|
|
* d->kcm/d->rootInfo doesn't get it right when the user
|
|
presses cancel in the tdesu dialog
|
|
|
|
- Resizing horizontally is contrained; minimum size is set somewhere.
|
|
It appears to be somehow derived from the module's size.
|
|
|
|
- Prettify: set icon in KCMultiDialog.
|
|
|
|
- Perhaps it's possible to link against tdesu such that
|
|
the dialog is in process?
|
|
|
|
*/
|
|
/***************************************************************/
|
|
KCModule * KCModuleProxy::realModule() const
|
|
{
|
|
|
|
/*
|
|
* Note, don't call any function that calls realModule() since
|
|
* that leads to an infinite loop.
|
|
*/
|
|
|
|
kdDebug(711) << k_funcinfo << endl;
|
|
|
|
/* Already loaded */
|
|
if( d->kcm )
|
|
return d->kcm;
|
|
|
|
/* /We/ have no kcm, but kcmshell running with root prevs does.. */
|
|
if( d->rootMode )
|
|
return 0;
|
|
|
|
TQApplication::setOverrideCursor( Qt::WaitCursor );
|
|
|
|
KCModuleProxy * that = const_cast<KCModuleProxy*>( this );
|
|
|
|
if( !d->isInitialized )
|
|
{
|
|
d->dcopName = TQString(moduleInfo().handle().prepend("KCModuleProxy-")).utf8();
|
|
d->topLayout = new TQVBoxLayout( that, 0, 0, "topLayout" );
|
|
|
|
d->isInitialized = true;
|
|
}
|
|
|
|
if( !d->dcopClient )
|
|
d->dcopClient = new DCOPClient();
|
|
|
|
if( !d->dcopClient->isRegistered() )
|
|
d->dcopClient->registerAs( d->dcopName, false );
|
|
|
|
d->dcopClient->setAcceptCalls( true );
|
|
|
|
if( d->dcopClient->appId() == d->dcopName || d->bogusOccupier )
|
|
{ /* We got the name we requested, because no one was before us,
|
|
* or, it was an random application which had picked that name */
|
|
kdDebug(711) << "Module not already loaded, loading module" << endl;
|
|
|
|
d->dcopObject = new KCModuleProxyIfaceImpl( d->dcopName, that );
|
|
|
|
d->kcm = KCModuleLoader::loadModule( moduleInfo(), KCModuleLoader::Inline, d->withFallback,
|
|
that, name(), d->args );
|
|
|
|
connect( d->kcm, TQT_SIGNAL( changed( bool ) ),
|
|
TQT_SLOT(moduleChanged(bool)) );
|
|
connect( d->kcm, TQT_SIGNAL( destroyed() ),
|
|
TQT_SLOT( moduleDestroyed() ) );
|
|
connect( d->kcm, TQT_SIGNAL(quickHelpChanged()),
|
|
TQT_SIGNAL(quickHelpChanged()));
|
|
TQWhatsThis::add( that, d->kcm->quickHelp() );
|
|
|
|
d->topLayout->addWidget( d->kcm );
|
|
|
|
if ( !d->rootInfo && /* If it's already done */
|
|
moduleInfo().needsRootPrivileges() /* root, anyone? */ &&
|
|
!KUser().isSuperUser() ) /* Not necessary if we're root */
|
|
{
|
|
|
|
d->rootInfo = new TQLabel( that, "rootInfo" );
|
|
d->topLayout->insertWidget( 0, d->rootInfo );
|
|
|
|
d->rootInfo->setFrameShape(TQFrame::Box);
|
|
d->rootInfo->setFrameShadow(TQFrame::Raised);
|
|
|
|
const TQString msg = d->kcm->rootOnlyMsg();
|
|
if( msg.isEmpty() )
|
|
d->rootInfo->setText(i18n(
|
|
"<b>Changes in this section requires root access.</b><br />"
|
|
"Click the \"Administrator Mode\" button to "
|
|
"allow modifications."));
|
|
else
|
|
d->rootInfo->setText(msg);
|
|
|
|
TQWhatsThis::add( d->rootInfo, i18n(
|
|
"This section requires special permissions, probably "
|
|
"for system-wide changes; therefore, it is "
|
|
"required that you provide the root password to be "
|
|
"able to change the module's properties. If "
|
|
"you do not provide the password, the module will be "
|
|
"disabled."));
|
|
}
|
|
}
|
|
else
|
|
{
|
|
kdDebug(711) << "Module already loaded, loading KCMError" << endl;
|
|
|
|
d->dcopClient->detach();
|
|
/* Re-register as anonymous */
|
|
d->dcopClient->attach();
|
|
|
|
d->dcopClient->setNotifications( true );
|
|
connect( d->dcopClient, TQT_SIGNAL( applicationRemoved( const TQCString& )),
|
|
TQT_SLOT( applicationRemoved( const TQCString& )));
|
|
|
|
/* Figure out the name of where the module is already loaded */
|
|
TQByteArray replyData, data;
|
|
TQCString replyType;
|
|
TQString result;
|
|
TQDataStream arg, stream( replyData, IO_ReadOnly );
|
|
|
|
if( d->dcopClient->call( d->dcopName, d->dcopName, "applicationName()",
|
|
data, replyType, replyData ))
|
|
{
|
|
stream >> result;
|
|
|
|
d->kcm = KCModuleLoader::reportError( KCModuleLoader::Inline,
|
|
i18n( "Argument is application name", "This configuration section is "
|
|
"already opened in %1" ).arg( result ), " ", that );
|
|
|
|
d->topLayout->addWidget( d->kcm );
|
|
}
|
|
else
|
|
{
|
|
kdDebug(711) << "Calling KCModuleProxy's DCOP interface for fetching the name failed." << endl;
|
|
d->bogusOccupier = true;
|
|
TQApplication::restoreOverrideCursor();
|
|
return realModule();
|
|
}
|
|
}
|
|
|
|
TQApplication::restoreOverrideCursor();
|
|
|
|
return d->kcm;
|
|
}
|
|
|
|
void KCModuleProxy::applicationRemoved( const TQCString& app )
|
|
{
|
|
if( app == d->dcopName )
|
|
{
|
|
/* Violence: Get rid of KCMError & CO, so that
|
|
* realModule() attempts to reload the module */
|
|
delete d->kcm;
|
|
d->kcm = 0;
|
|
d->dcopClient->setNotifications( false );
|
|
realModule();
|
|
d->kcm->show();
|
|
}
|
|
}
|
|
|
|
void KCModuleProxy::showEvent( TQShowEvent * ev )
|
|
{
|
|
|
|
kdDebug(711) << k_funcinfo << endl;
|
|
( void )realModule();
|
|
|
|
/* We have no kcm, if we're in root mode */
|
|
if( d->kcm )
|
|
d->kcm->show();
|
|
|
|
TQWidget::showEvent( ev );
|
|
|
|
}
|
|
|
|
void KCModuleProxy::runAsRoot()
|
|
{
|
|
if ( !moduleInfo().needsRootPrivileges() )
|
|
return;
|
|
|
|
TQApplication::setOverrideCursor( Qt::WaitCursor );
|
|
|
|
delete d->rootProcess;
|
|
delete d->embedWidget;
|
|
delete d->embedFrame;
|
|
|
|
d->embedFrame = new TQVBox( this, "embedFrame" );
|
|
d->embedFrame->setFrameStyle( TQFrame::Box | TQFrame::Raised );
|
|
|
|
TQPalette pal( red );
|
|
pal.setColor( TQColorGroup::Background,
|
|
colorGroup().background() );
|
|
d->embedFrame->setPalette( pal );
|
|
d->embedFrame->setLineWidth( 2 );
|
|
d->embedFrame->setMidLineWidth( 2 );
|
|
d->topLayout->addWidget(d->embedFrame,1);
|
|
|
|
d->embedWidget = new QXEmbed( d->embedFrame, "embedWidget" );
|
|
|
|
d->embedFrame->show();
|
|
|
|
TQLabel *lblBusy = new TQLabel(i18n("<big>Loading...</big>"), d->embedWidget, "lblBusy" );
|
|
lblBusy->setTextFormat(RichText);
|
|
lblBusy->setAlignment(AlignCenter);
|
|
lblBusy->setGeometry(0,0, d->kcm->width(), d->kcm->height());
|
|
lblBusy->show();
|
|
|
|
deleteClient();
|
|
/* The DCOP registration is now gone, and it will occur again when kcmshell soon
|
|
* registers. Here's a race condition in other words, but how likely is that?
|
|
*
|
|
* - It's a user initiated action, which means the user have to do weird stuff, very
|
|
* quick.
|
|
* - If the user _do_ manage to fsck up, the code will recover gracefully, see realModule().
|
|
*
|
|
* So no worry. At the end of this function, communication with
|
|
* the DCOP object is established.
|
|
*/
|
|
|
|
/* Prepare the process to run the kcmshell */
|
|
TQString cmd = moduleInfo().service()->exec().stripWhiteSpace();
|
|
if (cmd.left(5) == "tdesu")
|
|
{
|
|
cmd = TQString(cmd.remove(0,5)).stripWhiteSpace();
|
|
|
|
/* Remove all tdesu switches */
|
|
while( cmd.length() > 1 && cmd[ 0 ] == '-' )
|
|
cmd = TQString(cmd.remove( 0, cmd.find( ' ' ) )).stripWhiteSpace();
|
|
}
|
|
|
|
if (cmd.left(8) == "kcmshell")
|
|
cmd = TQString(cmd.remove(0,8)).stripWhiteSpace();
|
|
|
|
/* Run the process */
|
|
TQString tdesu = KStandardDirs::findExe("tdesu");
|
|
if (!tdesu.isEmpty())
|
|
{
|
|
|
|
d->rootProcess = new KProcess;
|
|
|
|
*d->rootProcess << tdesu;
|
|
*d->rootProcess << "--nonewdcop" << "-n" << "-d" << TQString( "-i%1" ).arg(moduleInfo().icon());
|
|
|
|
*d->rootProcess << TQString("%1 %2 --embed-proxy %3 --lang %4").arg(locate("exe", "kcmshell"))
|
|
.arg(cmd).arg(d->embedWidget->winId()).arg(KGlobal::locale()->language());
|
|
|
|
connect(d->rootProcess, TQT_SIGNAL(processExited(KProcess*)), TQT_SLOT(rootExited()));
|
|
|
|
if ( !d->rootProcess->start( KProcess::NotifyOnExit ))
|
|
{
|
|
d->rootMode = false;
|
|
rootExited();
|
|
}
|
|
else
|
|
{
|
|
d->rootMode = true;
|
|
kapp->dcopClient();
|
|
d->rootCommunicator = new KCModuleProxyRootCommunicatorImpl( d->dcopName + "-RootCommunicator", this );
|
|
}
|
|
|
|
delete lblBusy;
|
|
TQApplication::restoreOverrideCursor();
|
|
return;
|
|
}
|
|
|
|
/* Clean up in case of failure */
|
|
delete d->embedWidget;
|
|
d->embedWidget = 0;
|
|
delete d->embedFrame;
|
|
d->embedFrame = 0;
|
|
|
|
TQApplication::restoreOverrideCursor();
|
|
}
|
|
|
|
void KCModuleProxy::rootExited()
|
|
{
|
|
kdDebug(711) << k_funcinfo << endl;
|
|
|
|
if ( d->embedWidget->embeddedWinId() )
|
|
XDestroyWindow(qt_xdisplay(), d->embedWidget->embeddedWinId());
|
|
|
|
delete d->embedWidget;
|
|
d->embedWidget = 0;
|
|
|
|
delete d->rootProcess;
|
|
d->rootProcess = 0;
|
|
|
|
delete d->embedFrame;
|
|
d->embedFrame=0;
|
|
|
|
delete d->rootCommunicator;
|
|
d->rootCommunicator = 0;
|
|
|
|
/* Such that the "ordinary" module loads again */
|
|
d->rootMode = false;
|
|
|
|
d->topLayout->invalidate();
|
|
|
|
TQShowEvent ev;
|
|
showEvent( &ev );
|
|
|
|
moduleChanged( false );
|
|
emit childClosed();
|
|
}
|
|
|
|
KCModuleProxy::~KCModuleProxy()
|
|
{
|
|
deleteClient();
|
|
KCModuleLoader::unloadModule(moduleInfo());
|
|
|
|
delete d;
|
|
}
|
|
|
|
void KCModuleProxy::deleteClient()
|
|
{
|
|
if( d->embedWidget )
|
|
XKillClient(qt_xdisplay(), d->embedWidget->embeddedWinId());
|
|
|
|
|
|
delete d->kcm;
|
|
d->kcm = 0;
|
|
|
|
delete d->dcopObject;
|
|
d->dcopObject = 0;
|
|
|
|
if( d->dcopClient && !d->dcopClient->detach() )
|
|
kdDebug(711) << "Unregistering from DCOP failed." << endl;
|
|
|
|
delete d->dcopClient;
|
|
d->dcopClient = 0;
|
|
|
|
kapp->syncX();
|
|
|
|
}
|
|
|
|
void KCModuleProxy::moduleChanged( bool c )
|
|
{
|
|
if( d->changed == c )
|
|
return;
|
|
|
|
d->changed = c;
|
|
emit changed( c );
|
|
emit changed( this );
|
|
}
|
|
|
|
void KCModuleProxy::moduleDestroyed()
|
|
{
|
|
d->kcm = 0;
|
|
}
|
|
|
|
KCModuleProxy::KCModuleProxy( const KService::Ptr & service, bool withFallback,
|
|
TQWidget * parent, const char * name, const TQStringList & args)
|
|
: TQWidget( parent, name )
|
|
{
|
|
init( KCModuleInfo( service ));
|
|
d->args = args;
|
|
d->withFallback = withFallback;
|
|
}
|
|
|
|
KCModuleProxy::KCModuleProxy( const KCModuleInfo & info, bool withFallback,
|
|
TQWidget * parent, const char * name, const TQStringList & args )
|
|
: TQWidget( parent, name )
|
|
{
|
|
init( info );
|
|
d->args = args;
|
|
d->withFallback = withFallback;
|
|
}
|
|
|
|
KCModuleProxy::KCModuleProxy( const TQString& serviceName, bool withFallback,
|
|
TQWidget * parent, const char * name,
|
|
const TQStringList & args)
|
|
: TQWidget( parent, name )
|
|
{
|
|
init( KCModuleInfo( serviceName ));
|
|
d->args = args;
|
|
d->withFallback = withFallback;
|
|
}
|
|
|
|
void KCModuleProxy::init( const KCModuleInfo& info )
|
|
{
|
|
kdDebug(711) << k_funcinfo << endl;
|
|
|
|
d = new KCModuleProxyPrivate( info );
|
|
|
|
/* This is all we do for now; all the heavy work is
|
|
* done in realModule(). It's called when the module
|
|
* _actually_ is needed, in for example showEvent().
|
|
* The module is loaded "on demand" -- lazy loading.
|
|
*/
|
|
|
|
}
|
|
|
|
void KCModuleProxy::load()
|
|
{
|
|
|
|
if( d->rootMode )
|
|
callRootModule( "load()" );
|
|
else if( realModule() )
|
|
{
|
|
d->kcm->load();
|
|
moduleChanged( false );
|
|
}
|
|
}
|
|
|
|
void KCModuleProxy::save()
|
|
{
|
|
if( d->rootMode )
|
|
callRootModule( "save()" );
|
|
else if( d->changed && realModule() )
|
|
{
|
|
d->kcm->save();
|
|
moduleChanged( false );
|
|
}
|
|
}
|
|
|
|
void KCModuleProxy::callRootModule( const TQCString& function )
|
|
{
|
|
TQByteArray sendData, replyData;
|
|
TQCString replyType;
|
|
|
|
/* Note, we don't use d->dcopClient here, because it's used for
|
|
* the loaded module(and it's not "us" when this function is called) */
|
|
if( !kapp->dcopClient()->call( d->dcopName, d->dcopName, function, sendData,
|
|
replyType, replyData, true, -1 ))
|
|
kdDebug(711) << "Calling function '" << function << "' failed." << endl;
|
|
|
|
}
|
|
|
|
void KCModuleProxy::defaults()
|
|
{
|
|
if( d->rootMode )
|
|
callRootModule( "defaults()" );
|
|
if( realModule() )
|
|
d->kcm->defaults();
|
|
}
|
|
|
|
TQString KCModuleProxy::quickHelp() const
|
|
{
|
|
|
|
if( !d->rootMode )
|
|
return realModule() ? realModule()->quickHelp() : TQString::null;
|
|
else
|
|
{
|
|
TQByteArray data, replyData;
|
|
TQCString replyType;
|
|
|
|
if (kapp->dcopClient()->call(d->dcopName, d->dcopName, "quickHelp()",
|
|
data, replyType, replyData))
|
|
kdDebug(711) << "Calling DCOP function bool changed() failed." << endl;
|
|
else
|
|
{
|
|
TQDataStream reply(replyData, IO_ReadOnly);
|
|
if (replyType == "TQString")
|
|
{
|
|
TQString result;
|
|
reply >> result;
|
|
return result;
|
|
}
|
|
else
|
|
kdDebug(711) << "DCOP function changed() returned mumbo jumbo." << endl;
|
|
}
|
|
return TQString::null;
|
|
}
|
|
}
|
|
|
|
const KAboutData * KCModuleProxy::aboutData() const
|
|
{
|
|
if( !d->rootMode )
|
|
return realModule() ? realModule()->aboutData() : 0;
|
|
else
|
|
/* This needs fixing, perhaps cache a KAboutData copy
|
|
* while in root mode? */
|
|
return 0;
|
|
|
|
|
|
}
|
|
|
|
int KCModuleProxy::buttons() const
|
|
{
|
|
return realModule() ? realModule()->buttons() :
|
|
KCModule::Help | KCModule::Default | KCModule::Apply ;
|
|
}
|
|
|
|
TQString KCModuleProxy::rootOnlyMsg() const
|
|
{
|
|
return realModule() ? realModule()->rootOnlyMsg() : TQString::null;
|
|
}
|
|
|
|
bool KCModuleProxy::useRootOnlyMsg() const
|
|
{
|
|
return realModule() ? realModule()->useRootOnlyMsg() : true;
|
|
}
|
|
|
|
KInstance * KCModuleProxy::instance() const
|
|
{
|
|
return realModule() ? realModule()->instance() : 0;
|
|
}
|
|
|
|
bool KCModuleProxy::changed() const
|
|
{
|
|
return d->changed;
|
|
}
|
|
|
|
const KCModuleInfo& KCModuleProxy::moduleInfo() const
|
|
{
|
|
return d->modInfo;
|
|
}
|
|
|
|
bool KCModuleProxy::rootMode() const
|
|
{
|
|
return d->rootMode;
|
|
}
|
|
|
|
TQCString KCModuleProxy::dcopName() const
|
|
{
|
|
return d->dcopName;
|
|
}
|
|
|
|
void KCModuleProxy::emitQuickHelpChanged()
|
|
{
|
|
emit quickHelpChanged();
|
|
}
|
|
|
|
/***************************************************************/
|
|
#include "kcmoduleproxy.moc"
|
|
|
|
// vim: sw=4 ts=4 noet
|