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.
tdeadmin/kpackage/kissInterface.cpp

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.find("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.findRev('.');
if (s1 > 0) {
d2 = name.findRev('-',s1-1);
if (d2 > 0) {
d1 = name.findRev('_',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->setStatus(sline);
kpackage->setPercent(0);
vb = "" ;
int sc, sp = 0;
while ((sc = reader.buf.find("\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 = tqstrdup(_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 = tqstrdup(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 = tqstrdup(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"