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.
425 lines
13 KiB
425 lines
13 KiB
/***************************************************************************
|
|
scripttreeview.cpp - description
|
|
-------------------
|
|
begin : Thu Sep 16 2003
|
|
copyright : (C) 2003-2004 by Andras Mantia <amantia@kde.org>
|
|
***************************************************************************/
|
|
|
|
/***************************************************************************
|
|
* *
|
|
* 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; version 2 of the License. *
|
|
* *
|
|
***************************************************************************/
|
|
//kde includes
|
|
#include <kapplication.h>
|
|
#include <kiconloader.h>
|
|
#include <klocale.h>
|
|
#include <kmessagebox.h>
|
|
#include <kpopupmenu.h>
|
|
#include <kprocess.h>
|
|
#include <krun.h>
|
|
#include <kstandarddirs.h>
|
|
#include <ktar.h>
|
|
#include <ktempdir.h>
|
|
#include <ktempfile.h>
|
|
#include <kurl.h>
|
|
#include <kdebug.h>
|
|
|
|
//qt includes
|
|
#include <tqdir.h>
|
|
#include <tqdom.h>
|
|
#include <tqfile.h>
|
|
#include <tqfileinfo.h>
|
|
#include <tqlabel.h>
|
|
#include <tqlineedit.h>
|
|
#include <tqregexp.h>
|
|
#include <tqstringlist.h>
|
|
#include <tqtextedit.h>
|
|
|
|
//other includes
|
|
#include <libxml/xmlmemory.h>
|
|
#include <libxml/debugXML.h>
|
|
#include <libxml/HTMLtree.h>
|
|
#include <libxml/xmlIO.h>
|
|
#include <libxml/xinclude.h>
|
|
#include <libxml/catalog.h>
|
|
#include <libxslt/xslt.h>
|
|
#include <libxslt/xsltInternals.h>
|
|
#include <libxslt/transform.h>
|
|
#include <libxslt/xsltutils.h>
|
|
|
|
//app includes
|
|
#include "scripttreeview.h"
|
|
#include "resource.h"
|
|
#include "quantacommon.h"
|
|
#include "tagmaildlg.h"
|
|
|
|
extern int xmlLoadExtDtdDefaultValue;
|
|
|
|
ScriptTreeView::ScriptTreeView(TQWidget *tqparent, const char *name )
|
|
: BaseTreeView(tqparent,name)
|
|
{
|
|
setSaveOpenFolder(true);
|
|
addColumn(i18n("Scripts"), -1);
|
|
addColumn("");
|
|
|
|
KURL url;
|
|
url.setPath(qConfig.globalDataDir + resourceDir + "scripts/");
|
|
|
|
BaseTreeBranch *m_globalDir;
|
|
m_globalDir = new BaseTreeBranch(this, url, i18n("Global Scripts"), SmallIcon("run"), true);
|
|
addBranch(m_globalDir);
|
|
|
|
url.setPath(locateLocal("data", resourceDir + "scripts/"));
|
|
|
|
BaseTreeBranch *m_localDir;
|
|
m_localDir = new BaseTreeBranch(this, url, i18n("Local Scripts"), SmallIcon("run"), true);
|
|
addBranch(m_localDir);
|
|
|
|
// here you define which files should not be visible for the users
|
|
const TQString excludeString = ".*\\.info$|.*\\.css$|.*\\.xsl$";
|
|
m_globalDir->excludeFilterRx.setPattern(excludeString);
|
|
m_localDir->excludeFilterRx.setPattern(excludeString);
|
|
|
|
m_fileMenu = new KPopupMenu(this);
|
|
m_fileMenu->insertItem(SmallIcon("info"), i18n("&Description"), this, TQT_SLOT(slotProperties()));
|
|
m_fileMenu->insertItem(SmallIcon("run"), i18n("&Run Script"), this, TQT_SLOT(slotRun()));
|
|
m_fileMenu->insertSeparator();
|
|
m_fileMenu->insertItem(i18n("&Edit Script"), this, TQT_SLOT(slotEditScript()));
|
|
m_fileMenu->insertItem(i18n("Edit in &Quanta"), this, TQT_SLOT(slotEditInQuanta()));
|
|
m_fileMenu->insertItem(i18n("Edi&t Description"), this, TQT_SLOT(slotEditDescription()));
|
|
m_fileMenu->insertSeparator();
|
|
m_fileMenu->insertItem(UserIcon("ball"), i18n("&Assign Action"), this, TQT_SLOT(slotAssignAction()));
|
|
m_fileMenu->insertItem(SmallIcon("mail_send"), i18n("&Send in Email..."), this, TQT_SLOT(slotSendScriptInMail()));
|
|
m_fileMenu->insertItem(SmallIcon("network"), i18n("&Upload Script..."), this, TQT_SLOT(slotUploadScript()));
|
|
|
|
m_folderMenu = new KPopupMenu(this);
|
|
m_downloadMenuId = m_folderMenu->insertItem(SmallIcon("network"), i18n("&Download Script..."), this, TQT_SIGNAL(downloadScript()));
|
|
|
|
|
|
connect(this, TQT_SIGNAL(contextMenu(KListView*, TQListViewItem*, const TQPoint&)),
|
|
this, TQT_SLOT(slotMenu(KListView*, TQListViewItem*, const TQPoint&)));
|
|
|
|
restoreLayout( kapp->config(), className() );
|
|
// the restored size of the first column might be too large for the current content
|
|
// we set it to 10 and the listview will adjust it to the size of the largest entry
|
|
setColumnWidth(0, 10);
|
|
}
|
|
|
|
ScriptTreeView::~ScriptTreeView()
|
|
{
|
|
}
|
|
|
|
void ScriptTreeView::slotMenu(KListView *, TQListViewItem *item, const TQPoint &point)
|
|
{
|
|
if (!item)
|
|
{
|
|
m_folderMenu->setItemVisible(m_downloadMenuId, true);
|
|
m_folderMenu->popup(point);
|
|
return;
|
|
}
|
|
setSelected(item, true);
|
|
|
|
KFileTreeViewItem *curItem = currentKFileTreeViewItem();
|
|
if (!curItem->isDir())
|
|
{
|
|
m_fileMenu->popup(point);
|
|
} else
|
|
{
|
|
if (curItem == curItem->branch()->root())
|
|
{
|
|
m_folderMenu->setItemVisible(m_downloadMenuId, true);
|
|
} else
|
|
{
|
|
m_folderMenu->setItemVisible(m_downloadMenuId, false);
|
|
}
|
|
m_folderMenu->popup(point);
|
|
}
|
|
}
|
|
|
|
void ScriptTreeView::slotSelectFile(TQListViewItem *item)
|
|
{
|
|
if (item) {
|
|
if ( !currentKFileTreeViewItem()->isDir() )
|
|
{
|
|
KURL urlToOpen = infoFile(currentURL(), true);
|
|
emit openFileInPreview(urlToOpen);
|
|
}
|
|
}
|
|
}
|
|
|
|
void ScriptTreeView::slotEditDescription()
|
|
{
|
|
if ( !currentKFileTreeViewItem()->isDir() )
|
|
{
|
|
KURL urlToOpen = infoFile(currentURL());
|
|
emit showPreviewWidget(false);
|
|
emit openFile(urlToOpen);
|
|
}
|
|
}
|
|
|
|
void ScriptTreeView::slotEditScript()
|
|
{
|
|
if ( !currentKFileTreeViewItem()->isDir() )
|
|
{
|
|
emit showPreviewWidget(false);
|
|
KURL urlToOpen = currentURL();
|
|
KURL infoUrl = infoFile(urlToOpen);
|
|
TQString editApp = infoOptionValue(infoUrl, "editor");
|
|
if (editApp.isEmpty())
|
|
emit openFile(urlToOpen);
|
|
else
|
|
{
|
|
KProcess *proc = new KProcess();
|
|
*proc << editApp << urlToOpen.path();
|
|
proc->start(KProcess::DontCare);
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
void ScriptTreeView::slotRun()
|
|
{
|
|
if ( !currentKFileTreeViewItem()->isDir() )
|
|
{
|
|
KURL urlToOpen = currentURL();
|
|
KURL infoUrl = infoFile(urlToOpen);
|
|
TQString execApp = infoOptionValue(infoUrl, "interpreter");
|
|
if (execApp.isEmpty())
|
|
{
|
|
KURL::List list;
|
|
list.append(urlToOpen);
|
|
KRun::displayOpenWithDialog(list);
|
|
}
|
|
else
|
|
{
|
|
KProcess *proc = new KProcess();
|
|
TQStringList argsList = TQStringList::split(' ', execApp);
|
|
*proc << argsList;
|
|
*proc << urlToOpen.path();
|
|
proc->start(KProcess::DontCare);
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
void ScriptTreeView::slotEditInQuanta()
|
|
{
|
|
if ( !currentKFileTreeViewItem()->isDir() )
|
|
{
|
|
KURL urlToOpen = currentURL();
|
|
emit showPreviewWidget(false);
|
|
emit openFile(urlToOpen);
|
|
}
|
|
}
|
|
|
|
void ScriptTreeView::slotAssignAction()
|
|
{
|
|
if ( !currentKFileTreeViewItem()->isDir() )
|
|
{
|
|
KURL url = currentURL();
|
|
KURL infoURL = infoFile(url);
|
|
TQString execApp = infoOptionValue(infoURL, "interpreter");
|
|
if (execApp.isEmpty())
|
|
execApp = "sh";
|
|
url.setPath(url.path().tqreplace(locateLocal("data", resourceDir + "scripts/"), "%scriptdir/"));
|
|
url.setPath(url.path().tqreplace(qConfig.globalDataDir + resourceDir + "scripts/", "%scriptdir/"));
|
|
emit assignActionToScript(url, execApp);
|
|
}
|
|
}
|
|
|
|
TQString ScriptTreeView::createScriptTarball()
|
|
{
|
|
KURL url = currentURL();
|
|
KURL infoURL = infoFile(url);
|
|
|
|
KTempDir* tempDir = new KTempDir(tmpDir);
|
|
tempDir->setAutoDelete(true);
|
|
tempDirList.append(tempDir);
|
|
TQString tempFileName=tempDir->name() + url.fileName() + ".tgz";
|
|
|
|
//pack the .tag files and the description.rc into a .tgz file
|
|
KTar tar(tempFileName, "application/x-gzip");
|
|
tar.open(IO_WriteOnly);
|
|
|
|
KURL::List files;
|
|
files.append(url);
|
|
files.append(infoURL);
|
|
files.append(KURL().fromPathOrURL(qConfig.globalDataDir + resourceDir + "scripts/info.xsl"));
|
|
for ( KURL::List::Iterator it_f = files.begin(); it_f != files.end(); ++it_f )
|
|
{
|
|
TQFile file((*it_f).path());
|
|
file.open(IO_ReadOnly);
|
|
TQByteArray bArray = file.readAll();
|
|
tar.writeFile((*it_f).fileName(), "user", "group", bArray.size(), bArray.data());
|
|
file.close();
|
|
}
|
|
tar.close();
|
|
|
|
return tempFileName;
|
|
}
|
|
|
|
void ScriptTreeView::slotSendScriptInMail()
|
|
{
|
|
if ( !currentKFileTreeViewItem()->isDir() )
|
|
{
|
|
|
|
TQStringList attachmentFile;
|
|
attachmentFile += createScriptTarball();
|
|
|
|
TagMailDlg *mailDlg = new TagMailDlg( this, i18n("Send script in email").ascii() );
|
|
TQString toStr;
|
|
TQString message = i18n("Hi,\n This is a Quanta Plus [http://quanta.kdewebdev.org] script tarball.\n\nHave fun.\n");
|
|
TQString titleStr;
|
|
TQString subjectStr;
|
|
|
|
mailDlg->TitleLabel->setText(i18n("Content:"));
|
|
/* mailDlg->titleEdit->setFixedHeight(60);
|
|
mailDlg->titleEdit->setVScrollBarMode(TQTextEdit::Auto);
|
|
mailDlg->titleEdit->setHScrollBarMode(TQTextEdit::Auto);*/
|
|
if ( mailDlg->exec() )
|
|
{
|
|
if ( !mailDlg->lineEmail->text().isEmpty())
|
|
{
|
|
toStr = mailDlg->lineEmail->text();
|
|
subjectStr = (mailDlg->lineSubject->text().isEmpty())?i18n("Quanta Plus Script"):mailDlg->lineSubject->text();
|
|
if ( !mailDlg->titleEdit->text().isEmpty())
|
|
message = mailDlg->titleEdit->text();
|
|
} else
|
|
{
|
|
KMessageBox::error(this,i18n("No destination address was specified.\n Sending is aborted."),i18n("Error Sending Email"));
|
|
delete mailDlg;
|
|
return;
|
|
}
|
|
kapp->invokeMailer(toStr, TQString(), TQString(), subjectStr, message, TQString(), attachmentFile);
|
|
}
|
|
delete mailDlg;
|
|
|
|
}
|
|
}
|
|
|
|
void ScriptTreeView::slotUploadScript()
|
|
{
|
|
if ( !currentKFileTreeViewItem()->isDir() )
|
|
{
|
|
TQString fileName = createScriptTarball();
|
|
emit uploadScript(fileName);
|
|
}
|
|
}
|
|
|
|
KURL ScriptTreeView::infoFile(const KURL& url, bool htmlVersion)
|
|
{
|
|
KURL returnUrl = url;
|
|
TQString fileName = returnUrl.fileName();
|
|
//fileName.truncate(fileName.length() - TQFileInfo(fileName).extension().length() - 1);
|
|
fileName.append(".info");
|
|
returnUrl.setFileName(fileName);
|
|
if (!TQFileInfo(returnUrl.path()).exists())
|
|
{
|
|
TQFile f(returnUrl.path());
|
|
if (f.open(IO_WriteOnly))
|
|
{
|
|
TQTextStream str(&f);
|
|
str.setEncoding(TQTextStream::UnicodeUTF8);
|
|
str << "<?xml version=\"1.0\" encoding=\"UTF-8\"?>" << endl;
|
|
str << "<?xml-stylesheet type=\"text/xsl\" href=\"info.xsl\" ?>" << endl;
|
|
str << "<!DOCTYPE QuantaScriptInfo>" << endl;
|
|
str << "<INFO>" << endl;
|
|
str << " <options editor=\"\" interpreter=\"\" />" << endl;
|
|
str << " <name>" << url.fileName() << "</name>" << endl;
|
|
str << " <author></author>" << endl;
|
|
str << " <email></email>" << endl;
|
|
str << " <website></website>" << endl;
|
|
str << " <version></version>" << endl;
|
|
str << " <license></license>" << endl;
|
|
str << " <about></about>" << endl;
|
|
str << "</INFO>" << endl;
|
|
f.close();
|
|
}
|
|
}
|
|
|
|
if (htmlVersion)
|
|
{
|
|
KTempFile *tempInfoFile = 0L;
|
|
if (!TQFileInfo(returnUrl.path()).exists())
|
|
{
|
|
tempInfoFile = new KTempFile(tmpDir);
|
|
tempInfoFile->setAutoDelete(true);
|
|
returnUrl = KURL::fromPathOrURL(tempInfoFile->name());
|
|
TQTextStream str(tempInfoFile->file());
|
|
str.setEncoding(TQTextStream::UnicodeUTF8);
|
|
str << "<?xml version=\"1.0\" encoding=\"UTF-8\"?>" << endl;
|
|
str << "<?xml-stylesheet type=\"text/xsl\" href=\"info.xsl\" ?>" << endl;
|
|
str << "<!DOCTYPE QuantaScriptInfo>" << endl;
|
|
str << "<INFO>" << endl;
|
|
str << " <options editor=\"\" interpreter=\"\" />" << endl;
|
|
str << " <name>" << url.fileName() << "</name>" << endl;
|
|
str << " <author></author>" << endl;
|
|
str << " <email></email>" << endl;
|
|
str << " <website></website>" << endl;
|
|
str << " <version></version>" << endl;
|
|
str << " <license></license>" << endl;
|
|
str << " <about></about>" << endl;
|
|
str << "</INFO>" << endl;
|
|
tempInfoFile->close();
|
|
tempFileList.append(tempInfoFile);
|
|
}
|
|
KTempFile *tempFile = new KTempFile(tmpDir);
|
|
tempFile->setAutoDelete(true);
|
|
//apply the stylesheet
|
|
xsltStylesheetPtr cur = NULL;
|
|
xmlDocPtr doc, res;
|
|
xmlSubstituteEntitiesDefault(1);
|
|
xmlLoadExtDtdDefaultValue = 1;
|
|
TQString xslFile = qConfig.globalDataDir + resourceDir + "scripts/info.xsl";
|
|
cur = xsltParseStylesheetFile(xmlCharStrndup(xslFile.utf8(), xslFile.utf8().length()));
|
|
doc = xmlParseFile(returnUrl.path().utf8());
|
|
res = xsltApplyStylesheet(cur, doc, 0);
|
|
xsltSaveResultToFile(tempFile->fstream(), res, cur);
|
|
|
|
xsltFreeStylesheet(cur);
|
|
xmlFreeDoc(res);
|
|
xmlFreeDoc(doc);
|
|
|
|
xsltCleanupGlobals();
|
|
xmlCleanupParser();
|
|
tempFile->close();
|
|
|
|
tempFileList.append(tempFile);
|
|
return KURL().fromPathOrURL(tempFile->name());
|
|
} else
|
|
return returnUrl;
|
|
}
|
|
|
|
TQString ScriptTreeView::infoOptionValue(const KURL& infoURL, const TQString& optionName)
|
|
{
|
|
TQString value;
|
|
TQFile f(infoURL.path());
|
|
if (f.open(IO_ReadOnly))
|
|
{
|
|
TQDomDocument doc;
|
|
doc.setContent(&f);
|
|
f.close();
|
|
TQDomNodeList nodes = doc.elementsByTagName("options");
|
|
if (nodes.count() > 0)
|
|
{
|
|
TQDomElement el = nodes.item(0).toElement();
|
|
value = el.attribute(optionName);
|
|
}
|
|
}
|
|
return value;
|
|
}
|
|
|
|
|
|
void ScriptTreeView::slotProperties()
|
|
{
|
|
KFileTreeViewItem *item = currentKFileTreeViewItem();
|
|
if (item)
|
|
slotSelectFile(item);
|
|
}
|
|
|
|
|
|
#include "scripttreeview.moc"
|