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.
423 lines
10 KiB
423 lines
10 KiB
/*
|
|
** Copyright (C) 1999,2000 Toivo Pedaste <toivo@ucs.uwa.edu.au>
|
|
**
|
|
*/
|
|
|
|
/*
|
|
** 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.
|
|
**
|
|
** This program 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 General Public License for more details.
|
|
**
|
|
** You should have received a copy of the GNU General Public License
|
|
** along with this program in a file called COPYING; if not, write to
|
|
** the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
|
|
** MA 02110-1301, USA.
|
|
*/
|
|
|
|
/*
|
|
** Bug reports and questions can be sent to kde-devel@kde.org
|
|
*/
|
|
|
|
#include "../config.h"
|
|
|
|
#include <unistd.h>
|
|
#include <sys/types.h>
|
|
#include <sys/stat.h>
|
|
#include <fcntl.h>
|
|
#include <ctype.h>
|
|
|
|
#include <setjmp.h>
|
|
|
|
#include <tqdir.h>
|
|
#include <tqfileinfo.h>
|
|
|
|
#include <kurl.h>
|
|
#include <kglobal.h>
|
|
#include <kiconloader.h>
|
|
|
|
#include "packageInfo.h"
|
|
#include "kissInterface.h"
|
|
#include "updateLoc.h"
|
|
#include "kpackage.h"
|
|
#include "managementWidget.h"
|
|
#include "utils.h"
|
|
#include "options.h"
|
|
#include "cache.h"
|
|
#include <klocale.h>
|
|
|
|
|
|
extern KApplication *app;
|
|
|
|
//////////////////////////////////////////////////////////////////////////////
|
|
//////////////////////////////////////////////////////////////////////////////
|
|
KISS::KISS():pkgInterface()
|
|
{
|
|
head = "KISS";
|
|
name = i18n("KISS");
|
|
icon = "kiss";
|
|
|
|
pict = UserIcon(icon);
|
|
updated_pict = UserIcon("kupdated");
|
|
new_pict = UserIcon("knew");
|
|
|
|
packagePattern = "*.installer";
|
|
typeID = "/kiss";
|
|
|
|
locatedialog = new Locations(i18n("Location of KISS Packages"));
|
|
locatedialog->dLocations(2, 6, this, i18n("Folders", "F"),
|
|
"KISS", "*.installer",
|
|
i18n("Location of Folders Containing KISS Packages"));
|
|
|
|
connect(locatedialog,TQT_SIGNAL(returnVal(LcacheObj *)),
|
|
this,TQT_SLOT(setAvail(LcacheObj *)));
|
|
locatedialog->apply_slot();
|
|
|
|
queryMsg = i18n("Querying KISS package list: ");
|
|
procMsg = i18n("KPackage: Waiting on KISS");
|
|
|
|
param paramsInst[] = {
|
|
param(0,FALSE,FALSE,0)
|
|
};
|
|
|
|
param paramsUninst[] = {
|
|
param(0,FALSE,FALSE,0)
|
|
};
|
|
hasProgram = ifExe("kiss");
|
|
}
|
|
|
|
//////////////////////////////////////////////////////////////////////////////
|
|
//////////////////////////////////////////////////////////////////////////////
|
|
KISS::~KISS()
|
|
{
|
|
}
|
|
|
|
//////////////////////////////////////////////////////////////////////////////
|
|
// check if kiss file
|
|
bool KISS::isType(char *buf, const TQString &)
|
|
{
|
|
if (hasProgram) {
|
|
TQString tmp = buf;
|
|
if (tmp.tqfind("perl",0,false) >= 0)
|
|
return true;
|
|
else
|
|
return false;
|
|
} else {
|
|
return false;
|
|
}
|
|
}
|
|
|
|
bool KISS::parseName(const TQString& name, TQString *n, TQString *v)
|
|
{
|
|
int d1, d2, s1;
|
|
|
|
s1 = name.tqfindRev('.');
|
|
if (s1 > 0) {
|
|
d2 = name.tqfindRev('-',s1-1);
|
|
if (d2 > 0) {
|
|
d1 = name.tqfindRev('_',d2-1);
|
|
if (d1 < 0)
|
|
d1 = d2;
|
|
*n = name.left(d1);
|
|
*v = name.mid(d1+1,s1-d1-1);
|
|
return TRUE;
|
|
}
|
|
}
|
|
return FALSE;
|
|
}
|
|
|
|
void KISS::listInstalledPackages(TQPtrList<packageInfo> *pki)
|
|
{
|
|
TQString vb;
|
|
packageInfo *p;
|
|
|
|
TQString sline = i18n("Querying KISS package list: ");
|
|
|
|
reader.setup("kiss");
|
|
*reader.proc << "-qq";
|
|
if (!reader.start(0,FALSE))
|
|
return;
|
|
|
|
kpackage->settqStatus(sline);
|
|
kpackage->setPercent(0);
|
|
|
|
vb = "" ;
|
|
|
|
int sc, sp = 0;
|
|
while ((sc = reader.buf.tqfind("\n\n",sp)) >= 0) {
|
|
if (sc+1 == (signed int)reader.buf.length())
|
|
break;
|
|
p = collectInfo(reader.buf.mid(sp,sc-sp).ascii());
|
|
if (p) {
|
|
if (!p->pkgInsert(pki, typeID, TRUE)) {
|
|
delete p;
|
|
}
|
|
}
|
|
sp = sc + 2;
|
|
}
|
|
|
|
kpackage->setPercent(100);
|
|
}
|
|
|
|
//////////////////////////////////////////////////////////////////////////////
|
|
//////////////////////////////////////////////////////////////////////////////
|
|
// mode: i = query installed u = query uninstalled
|
|
packageInfo *KISS::getPackageInfo(char mode, const TQString &name, const TQString &)
|
|
{
|
|
packageInfo *pki = 0;
|
|
TQString vb,search;
|
|
|
|
switch(mode)
|
|
{
|
|
////////////////////////////////////////////////////////////////////////
|
|
// query an installed package!
|
|
case 'i':
|
|
reader.setup("kiss");
|
|
*reader.proc << "-q" << name;
|
|
if (reader.start(0,FALSE)) {
|
|
reader.buf += "package: " + name + "\n";
|
|
pki = collectInfo(reader.buf.ascii());
|
|
}
|
|
break;
|
|
|
|
////////////////////////////////////////////////////////////////////
|
|
// query an uninstalled package
|
|
case 'u':
|
|
reader.setup("perl");
|
|
*reader.proc << name << "-q";
|
|
if (reader.start(0,TRUE)) {
|
|
pki = collectInfo(reader.buf.ascii());
|
|
|
|
TQFileInfo fi(name);
|
|
TQString s;
|
|
s.setNum(fi.size());
|
|
pki->info.insert("file-size", s);
|
|
}
|
|
break;
|
|
}
|
|
return pki;
|
|
}
|
|
|
|
|
|
//////////////////////////////////////////////////////////////////////////////
|
|
//////////////////////////////////////////////////////////////////////////////
|
|
packageInfo *KISS::collectInfo(const char *_inp)
|
|
{
|
|
TQMap<TQString, TQString> a;
|
|
|
|
char *str, *xstr;
|
|
TQString qstr;
|
|
|
|
char *inp = qstrdup(_inp);
|
|
str = strtok(inp,"\n");
|
|
do {
|
|
xstr = strchr(str,':');
|
|
if (*str == ' ')
|
|
str++;
|
|
if (!strncmp("package",str,7))
|
|
break;
|
|
} while ((str = strtok(NULL,"\n")));
|
|
|
|
// parse 'name: text' elements
|
|
|
|
if (str) {
|
|
do {
|
|
if (str[0] == 0)
|
|
break;
|
|
|
|
xstr = strchr(str,':');
|
|
if (xstr) {
|
|
*xstr++ = 0;
|
|
xstr++;
|
|
|
|
for( int i = 0; str[ i ] != '\0'; ++i )
|
|
str[ i ] = tolower( str[ i ] );
|
|
|
|
if (*str == ' ')
|
|
str++;
|
|
|
|
if (!strcmp("package",str)) {
|
|
a.insert("name", xstr);
|
|
} else if (!strcmp("name",str)) {
|
|
a.insert("summary", xstr);
|
|
} else if (!strcmp("section",str)) {
|
|
a.insert("group", xstr);
|
|
} else if (!strcmp("size",str)) {
|
|
a.insert("file-size", xstr);
|
|
} else if (!strcmp("installed-size",str)) {
|
|
TQString str = xstr;
|
|
a.insert("size", str + "000");
|
|
} else {
|
|
a.insert(str, xstr);
|
|
}
|
|
}
|
|
} while ((str = strtok(NULL,"\n")));
|
|
}
|
|
|
|
packageInfo *i = new packageInfo(a,this);
|
|
i->packageState = packageInfo::INSTALLED;
|
|
i->fixup();
|
|
delete [] inp;
|
|
return i;
|
|
|
|
}
|
|
|
|
//////////////////////////////////////////////////////////////////////////////
|
|
|
|
TQStringList KISS::getChangeLog(packageInfo *) {
|
|
return 0;
|
|
}
|
|
|
|
|
|
bool KISS::filesTab(packageInfo *) {
|
|
return TRUE;
|
|
}
|
|
|
|
bool KISS::changeTab(packageInfo *) {
|
|
return FALSE;
|
|
}
|
|
|
|
//////////////////////////////////////////////////////////////////////////////
|
|
TQStringList KISS::getFileList(packageInfo *p)
|
|
{
|
|
TQString vb, fn;
|
|
TQString name;
|
|
char mode;
|
|
|
|
fn = p->getFilename();
|
|
if(!fn.isEmpty())
|
|
mode = 'u';
|
|
else
|
|
mode = 'i';
|
|
|
|
TQStringList filelist;
|
|
|
|
switch(mode)
|
|
{
|
|
////////////////////////////////////////////////////////////////////////
|
|
// query an installed package!
|
|
case 'i':
|
|
name = p->getProperty("name");
|
|
|
|
reader.setup("kiss");
|
|
*reader.proc << "-f" << name;
|
|
if (reader.start(0,FALSE)) {
|
|
char *buffer = qstrdup(reader.buf.ascii());
|
|
char *str = strtok(buffer,"\n");
|
|
if (str) {
|
|
do {
|
|
filelist.append(str);
|
|
} while ((str = strtok(NULL,"\n")));
|
|
}
|
|
delete [] buffer;
|
|
}
|
|
break;
|
|
|
|
////////////////////////////////////////////////////////////////////
|
|
// query an uninstalled package
|
|
case 'u':
|
|
reader.setup("perl");
|
|
*reader.proc << fn << "-f";
|
|
if (reader.start(0,TRUE)) {
|
|
char *buffer = qstrdup(reader.buf.ascii());
|
|
char *str = strtok(buffer,"\n");
|
|
if (str) {
|
|
do {
|
|
filelist.append(strdup(str));
|
|
} while ((str = strtok(NULL,"\n")));
|
|
}
|
|
delete [] buffer;
|
|
}
|
|
break;
|
|
}
|
|
|
|
return filelist;
|
|
}
|
|
|
|
//////////////////////////////////////////////////////////////////////////////
|
|
// Call the script to install packages setting parameters
|
|
// to kiss dependent on flags
|
|
//////////////////////////////////////////////////////////////////////////////
|
|
TQString KISS::uninstall(int uninstallFlags, TQPtrList<packageInfo> *plist, bool &test)
|
|
{
|
|
TQString packs;
|
|
packageInfo *pk;
|
|
|
|
for (pk = plist->first(); pk != 0; pk = plist->next()) {
|
|
packs = pk->getProperty("name");
|
|
doUninstall(uninstallFlags, packs, test);
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
TQString KISS::doUninstall(int, const TQString &packs, bool &)
|
|
{
|
|
return "kiss -d " + packs;
|
|
}
|
|
|
|
//////////////////////////////////////////////////////////////////////////////
|
|
// Call the script to install packages setting parameters
|
|
// to kiss dependent on flags, returning whether everyting worked
|
|
//////////////////////////////////////////////////////////////////////////////
|
|
TQString KISS::install(int installFlags, TQPtrList<packageInfo> *plist, bool &test)
|
|
{
|
|
packageInfo *pk;
|
|
int i = 0;
|
|
for (pk = plist->first(); pk != 0; pk = plist->next()) {
|
|
TQString fname = pk->fetchFilename();
|
|
if (!fname.isEmpty()) {
|
|
doInstall(installFlags, fname, test);
|
|
i++;
|
|
}
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
TQString KISS::doInstall(int, const TQString &packs, bool &)
|
|
{
|
|
return "perl " + packs;
|
|
}
|
|
|
|
//////////////////////////////////////////////////////////////////////////////
|
|
//////////////////////////////////////////////////////////////////////////////
|
|
TQStringList KISS::FindFile(const TQString &name, bool)
|
|
{
|
|
TQString s = "kiss -p ";
|
|
s += name;
|
|
|
|
TQStringList filelist;
|
|
// filelist = kpty->run(s);
|
|
|
|
// for ( TQStringList::Iterator it = filelist.begin(); it != filelist.end(); ++it ) {
|
|
// *it = *it + '\t' + name ;
|
|
// }
|
|
|
|
return filelist;
|
|
}
|
|
|
|
|
|
//////////////////////////////////////////////////////////////////////////////
|
|
//////////////////////////////////////////////////////////////////////////////
|
|
void KISS::setLocation()
|
|
{
|
|
locatedialog->restore();
|
|
}
|
|
|
|
//////////////////////////////////////////////////////////////////////////////
|
|
//////////////////////////////////////////////////////////////////////////////
|
|
void KISS::setAvail(LcacheObj *slist)
|
|
{
|
|
if (packageLoc)
|
|
delete packageLoc;
|
|
packageLoc = slist;
|
|
}
|
|
|
|
//////////////////////////////////////////////////////////////////////////////
|
|
//////////////////////////////////////////////////////////////////////////////
|
|
#include "kissInterface.moc"
|