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.
tdewebdev/quanta/treeviews/scripttreeview.cpp

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"