mirror of
https://github.com/moparisthebest/pacman
synced 2024-11-09 19:15:01 -05:00
316 lines
9.4 KiB
C
316 lines
9.4 KiB
C
/*
|
|
* remove.c
|
|
*
|
|
* Copyright (c) 2002-2006 by Judd Vinet <jvinet@zeroflux.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; 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; if not, write to the Free Software
|
|
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
|
|
* USA.
|
|
*/
|
|
|
|
#include "config.h"
|
|
#include <stdlib.h>
|
|
#include <errno.h>
|
|
#include <time.h>
|
|
#include <fcntl.h>
|
|
#include <string.h>
|
|
#ifdef CYGWIN
|
|
#include <limits.h> /* PATH_MAX */
|
|
#endif
|
|
#include <zlib.h>
|
|
#include <libtar.h>
|
|
/* pacman */
|
|
#include "util.h"
|
|
#include "error.h"
|
|
#include "versioncmp.h"
|
|
#include "md5.h"
|
|
#include "log.h"
|
|
#include "backup.h"
|
|
#include "package.h"
|
|
#include "db.h"
|
|
#include "cache.h"
|
|
#include "deps.h"
|
|
#include "provide.h"
|
|
#include "remove.h"
|
|
#include "handle.h"
|
|
#include "alpm.h"
|
|
|
|
extern pmhandle_t *handle;
|
|
|
|
int remove_loadtarget(pmtrans_t *trans, pmdb_t *db, char *name)
|
|
{
|
|
pmpkg_t *info;
|
|
|
|
ASSERT(db != NULL, RET_ERR(PM_ERR_DB_NULL, -1));
|
|
ASSERT(trans != NULL, RET_ERR(PM_ERR_TRANS_NULL, -1));
|
|
ASSERT(name != NULL, RET_ERR(PM_ERR_WRONG_ARGS, -1));
|
|
|
|
if(pkg_isin(name, trans->packages)) {
|
|
RET_ERR(PM_ERR_TRANS_DUP_TARGET, -1);
|
|
}
|
|
|
|
if((info = db_scan(db, name, INFRQ_ALL)) == NULL) {
|
|
_alpm_log(PM_LOG_ERROR, "could not find %s in database", name);
|
|
RET_ERR(PM_ERR_PKG_NOT_FOUND, -1);
|
|
}
|
|
|
|
_alpm_log(PM_LOG_FLOW2, "adding %s in the targets list", info->name);
|
|
trans->packages = pm_list_add(trans->packages, info);
|
|
|
|
return(0);
|
|
}
|
|
|
|
int remove_prepare(pmtrans_t *trans, pmdb_t *db, PMList **data)
|
|
{
|
|
PMList *lp;
|
|
|
|
ASSERT(db != NULL, RET_ERR(PM_ERR_DB_NULL, -1));
|
|
ASSERT(trans != NULL, RET_ERR(PM_ERR_TRANS_NULL, -1));
|
|
|
|
if(!(trans->flags & (PM_TRANS_FLAG_NODEPS)) && (trans->type != PM_TRANS_TYPE_UPGRADE)) {
|
|
EVENT(trans, PM_TRANS_EVT_CHECKDEPS_START, NULL, NULL);
|
|
|
|
_alpm_log(PM_LOG_FLOW1, "looking for unsatisfied dependencies");
|
|
lp = checkdeps(db, trans->type, trans->packages);
|
|
if(lp != NULL) {
|
|
if(trans->flags & PM_TRANS_FLAG_CASCADE) {
|
|
while(lp) {
|
|
PMList *i;
|
|
for(i = lp; i; i = i->next) {
|
|
pmdepmissing_t *miss = (pmdepmissing_t *)i->data;
|
|
pmpkg_t *info = db_scan(db, miss->depend.name, INFRQ_ALL);
|
|
if(info) {
|
|
_alpm_log(PM_LOG_FLOW2, "pulling %s in the targets list", info->name);
|
|
trans->packages = pm_list_add(trans->packages, info);
|
|
} else {
|
|
_alpm_log(PM_LOG_ERROR, "could not find %s in database -- skipping",
|
|
miss->depend.name);
|
|
}
|
|
}
|
|
FREELIST(lp);
|
|
lp = checkdeps(db, trans->type, trans->packages);
|
|
}
|
|
} else {
|
|
if(data) {
|
|
*data = lp;
|
|
} else {
|
|
FREELIST(lp);
|
|
}
|
|
RET_ERR(PM_ERR_UNSATISFIED_DEPS, -1);
|
|
}
|
|
}
|
|
|
|
if(trans->flags & PM_TRANS_FLAG_RECURSE) {
|
|
_alpm_log(PM_LOG_FLOW1, "finding removable dependencies");
|
|
trans->packages = removedeps(db, trans->packages);
|
|
}
|
|
|
|
/* re-order w.r.t. dependencies */
|
|
_alpm_log(PM_LOG_FLOW1, "sorting by dependencies");
|
|
lp = sortbydeps(trans->packages, PM_TRANS_TYPE_REMOVE);
|
|
/* free the old alltargs */
|
|
FREELISTPTR(trans->packages);
|
|
trans->packages = lp;
|
|
|
|
EVENT(trans, PM_TRANS_EVT_CHECKDEPS_DONE, NULL, NULL);
|
|
}
|
|
|
|
return(0);
|
|
}
|
|
|
|
/* Helper function for comparing strings
|
|
*/
|
|
static int str_cmp(const void *s1, const void *s2)
|
|
{
|
|
return(strcmp(s1, s2));
|
|
}
|
|
|
|
int remove_commit(pmtrans_t *trans, pmdb_t *db)
|
|
{
|
|
pmpkg_t *info;
|
|
struct stat buf;
|
|
PMList *targ, *lp;
|
|
char line[PATH_MAX+1];
|
|
|
|
ASSERT(db != NULL, RET_ERR(PM_ERR_DB_NULL, -1));
|
|
ASSERT(trans != NULL, RET_ERR(PM_ERR_TRANS_NULL, -1));
|
|
|
|
for(targ = trans->packages; targ; targ = targ->next) {
|
|
char pm_install[PATH_MAX];
|
|
info = (pmpkg_t*)targ->data;
|
|
|
|
if(trans->type != PM_TRANS_TYPE_UPGRADE) {
|
|
EVENT(trans, PM_TRANS_EVT_REMOVE_START, info, NULL);
|
|
_alpm_log(PM_LOG_FLOW1, "removing package %s-%s", info->name, info->version);
|
|
|
|
/* run the pre-remove scriptlet if it exists */
|
|
if(info->scriptlet) {
|
|
snprintf(pm_install, PATH_MAX, "%s/%s-%s/install", db->path, info->name, info->version);
|
|
_alpm_runscriptlet(handle->root, pm_install, "pre_remove", info->version, NULL);
|
|
}
|
|
}
|
|
|
|
if(!(trans->flags & PM_TRANS_FLAG_DBONLY)) {
|
|
_alpm_log(PM_LOG_FLOW1, "removing files");
|
|
|
|
/* iterate through the list backwards, unlinking files */
|
|
for(lp = _alpm_list_last(info->files); lp; lp = lp->prev) {
|
|
int nb = 0;
|
|
char *file = lp->data;
|
|
char *md5 = _alpm_needbackup(file, info->backup);
|
|
if(md5) {
|
|
nb = 1;
|
|
free(md5);
|
|
}
|
|
if(!nb && trans->type == PM_TRANS_TYPE_UPGRADE) {
|
|
/* check noupgrade */
|
|
if(pm_list_is_strin(file, handle->noupgrade)) {
|
|
nb = 1;
|
|
}
|
|
}
|
|
snprintf(line, PATH_MAX, "%s%s", handle->root, file);
|
|
if(lstat(line, &buf)) {
|
|
_alpm_log(PM_LOG_DEBUG, "file %s does not exist", file);
|
|
continue;
|
|
}
|
|
if(S_ISDIR(buf.st_mode)) {
|
|
if(rmdir(line)) {
|
|
/* this is okay, other packages are probably using it. */
|
|
_alpm_log(PM_LOG_DEBUG, "keeping directory %s", file);
|
|
} else {
|
|
_alpm_log(PM_LOG_FLOW2, "removing directory %s", file);
|
|
}
|
|
} else {
|
|
/* check the "skip list" before removing the file.
|
|
* see the big comment block in db_find_conflicts() for an
|
|
* explanation. */
|
|
int skipit = 0;
|
|
PMList *j;
|
|
for(j = trans->skiplist; j; j = j->next) {
|
|
if(!strcmp(file, (char*)j->data)) {
|
|
skipit = 1;
|
|
}
|
|
}
|
|
if(skipit) {
|
|
_alpm_log(PM_LOG_FLOW2, "skipping removal of %s as it has moved to another package",
|
|
file);
|
|
} else {
|
|
/* if the file is flagged, back it up to .pacsave */
|
|
if(nb) {
|
|
if(trans->type == PM_TRANS_TYPE_UPGRADE) {
|
|
/* we're upgrading so just leave the file as is. pacman_add() will handle it */
|
|
} else {
|
|
if(!(trans->flags & PM_TRANS_FLAG_NOSAVE)) {
|
|
char newpath[PATH_MAX];
|
|
snprintf(newpath, PATH_MAX, "%s.pacsave", line);
|
|
rename(line, newpath);
|
|
_alpm_log(PM_LOG_WARNING, "%s saved as %s", file, newpath);
|
|
alpm_logaction("%s saved as %s", line, newpath);
|
|
} else {
|
|
_alpm_log(PM_LOG_FLOW2, "unlinking %s", file);
|
|
if(unlink(line)) {
|
|
_alpm_log(PM_LOG_ERROR, "cannot remove file %s", file);
|
|
}
|
|
}
|
|
}
|
|
} else {
|
|
_alpm_log(PM_LOG_FLOW2, "unlinking %s", file);
|
|
if(unlink(line)) {
|
|
_alpm_log(PM_LOG_ERROR, "cannot remove file %s", file);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
if(trans->type != PM_TRANS_TYPE_UPGRADE) {
|
|
/* run the post-remove script if it exists */
|
|
if(info->scriptlet) {
|
|
char pm_install[PATH_MAX];
|
|
snprintf(pm_install, PATH_MAX, "%s/%s-%s/install", db->path, info->name, info->version);
|
|
_alpm_runscriptlet(handle->root, pm_install, "post_remove", info->version, NULL);
|
|
}
|
|
}
|
|
|
|
/* remove the package from the database */
|
|
_alpm_log(PM_LOG_FLOW1, "updating database");
|
|
_alpm_log(PM_LOG_FLOW2, "removing database entry '%s'", info->name);
|
|
if(db_remove(db, info) == -1) {
|
|
_alpm_log(PM_LOG_ERROR, "could not remove database entry %s-%s", info->name, info->version);
|
|
}
|
|
if(db_remove_pkgfromcache(db, info) == -1) {
|
|
_alpm_log(PM_LOG_ERROR, "could not remove entry '%s' from cache", info->name);
|
|
}
|
|
|
|
/* update dependency packages' REQUIREDBY fields */
|
|
_alpm_log(PM_LOG_FLOW2, "updating dependency packages 'requiredby' fields");
|
|
for(lp = info->depends; lp; lp = lp->next) {
|
|
pmpkg_t *depinfo = NULL;
|
|
pmdepend_t depend;
|
|
char *data;
|
|
if(splitdep((char*)lp->data, &depend)) {
|
|
continue;
|
|
}
|
|
/* if this dependency is in the transaction targets, no need to update
|
|
* its requiredby info: it is in the process of being removed (if not
|
|
* already done!)
|
|
*/
|
|
if(pkg_isin(depend.name, trans->packages)) {
|
|
continue;
|
|
}
|
|
depinfo = db_get_pkgfromcache(db, depend.name);
|
|
if(depinfo == NULL) {
|
|
/* look for a provides package */
|
|
PMList *provides = _alpm_db_whatprovides(db, depend.name);
|
|
if(provides) {
|
|
/* TODO: should check _all_ packages listed in provides, not just
|
|
* the first one.
|
|
*/
|
|
/* use the first one */
|
|
depinfo = db_get_pkgfromcache(db, ((pmpkg_t *)provides->data)->name);
|
|
FREELISTPTR(provides);
|
|
}
|
|
if(depinfo == NULL) {
|
|
_alpm_log(PM_LOG_ERROR, "could not find dependency '%s'", depend.name);
|
|
/* wtf */
|
|
continue;
|
|
}
|
|
}
|
|
/* splice out this entry from requiredby */
|
|
depinfo->requiredby = _alpm_list_remove(depinfo->requiredby, info->name, str_cmp, (void **)&data);
|
|
FREE(data);
|
|
_alpm_log(PM_LOG_DEBUG, "updating 'requiredby' field for package '%s'", depinfo->name);
|
|
if(db_write(db, depinfo, INFRQ_DEPENDS)) {
|
|
_alpm_log(PM_LOG_ERROR, "could not update 'requiredby' database entry %s-%s",
|
|
depinfo->name, depinfo->version);
|
|
}
|
|
}
|
|
|
|
if(trans->type != PM_TRANS_TYPE_UPGRADE) {
|
|
EVENT(trans, PM_TRANS_EVT_REMOVE_DONE, info, NULL);
|
|
}
|
|
}
|
|
|
|
/* run ldconfig if it exists */
|
|
if(trans->type != PM_TRANS_TYPE_UPGRADE) {
|
|
_alpm_log(PM_LOG_FLOW1, "running \"ldconfig -r %s\"", handle->root);
|
|
_alpm_ldconfig(handle->root);
|
|
}
|
|
|
|
return(0);
|
|
}
|
|
|
|
/* vim: set ts=2 sw=2 noet: */
|