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.
75 lines
2.2 KiB
75 lines
2.2 KiB
/*
|
|
This program is free software; you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation; either version 2 of the License, or
|
|
(at your option) any later version.
|
|
*/
|
|
|
|
/*
|
|
Copyright (C) 2003 Dario Abatianni <eisfuchs@tigress.com>
|
|
Copyright (C) 2004 Peter Simonsson <psn@linux.se>
|
|
*/
|
|
|
|
#include "scriptlauncher.h"
|
|
#include "channel.h"
|
|
#include "konversationapplication.h"
|
|
#include "server.h"
|
|
|
|
#include <tqstringlist.h>
|
|
#include <tqfile.h>
|
|
#include <tqfileinfo.h>
|
|
|
|
#include <kdebug.h>
|
|
#include <kstandarddirs.h>
|
|
#include <kprocess.h>
|
|
#include <dcopclient.h>
|
|
|
|
|
|
ScriptLauncher::ScriptLauncher(Server* server)
|
|
: TQObject(server)
|
|
{
|
|
m_server = server;
|
|
}
|
|
|
|
ScriptLauncher::~ScriptLauncher()
|
|
{
|
|
}
|
|
|
|
void ScriptLauncher::launchScript(const TQString& target, const TQString ¶meter)
|
|
{
|
|
TDEStandardDirs kstddir;
|
|
// TQString scriptPath(kstddir.saveLocation("data",TQString("konversation/scripts")));
|
|
TDEProcess process;
|
|
|
|
// send the script all the information it will need
|
|
TQStringList parameterList=TQStringList::split(' ',parameter);
|
|
|
|
// find script path (could be installed for all users in $TDEDIR/share/apps/ or
|
|
// for one user alone in $HOME/.trinity/share/apps/
|
|
TQString scriptPath(kstddir.findResource("data","konversation/scripts/"+parameterList[0]));
|
|
|
|
process << scriptPath // script path and name
|
|
<< kapp->dcopClient()->appId() // our dcop port
|
|
<< TQString::number(m_server->connectionId()) // the server we are connected to
|
|
<< target; // the target where the call came from
|
|
|
|
// send remaining parameters to the script
|
|
for(unsigned int index=1;index<parameterList.count();index++)
|
|
process << parameterList[index];
|
|
|
|
TQFileInfo fileInfo(scriptPath);
|
|
|
|
process.setWorkingDirectory(fileInfo.dirPath());
|
|
if(process.start()==false)
|
|
{
|
|
TQFile file(parameterList[0]);
|
|
if(!file.exists()) emit scriptNotFound(file.name());
|
|
else emit scriptExecutionError(file.name());
|
|
}
|
|
|
|
// to free the script's stdin, otherwise backticks won't work
|
|
process.detach();
|
|
}
|
|
|
|
#include "scriptlauncher.moc"
|