| index : pacman | |
| Archlinux32 fork of pacman | gitolite user |
| summaryrefslogtreecommitdiff |
| -rw-r--r-- | lib/libalpm/remove.c | 259 |
diff --git a/lib/libalpm/remove.c b/lib/libalpm/remove.c new file mode 100644 index 00000000..c53ffa4d --- /dev/null +++ b/lib/libalpm/remove.c @@ -0,0 +1,259 @@ +/* + * remove.c + * + * Copyright (c) 2002-2005 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> +#include <zlib.h> +#include <libtar.h> +/* pacman */ +#include "util.h" +#include "error.h" +#include "rpmvercmp.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(pmdb_t *db, pmtrans_t *trans, char *name) +{ + pmpkg_t *info; + + ASSERT(db != NULL, PM_RET_ERR(PM_ERR_DB_NULL, -1)); + ASSERT(trans != NULL, PM_RET_ERR(PM_ERR_TRANS_NULL, -1)); + ASSERT(name != NULL, PM_RET_ERR(PM_ERR_WRONG_ARGS, -1)); + + if((info = db_scan(db, name, INFRQ_ALL)) == NULL) { + _alpm_log(PM_LOG_ERROR, "could not find %s in database", name); + PM_RET_ERR(PM_ERR_PKG_NOT_FOUND, -1); + } + trans->packages = pm_list_add(trans->packages, info); + + return(0); +} + +int remove_prepare(pmdb_t *db, pmtrans_t *trans, PMList **data) +{ + pmpkg_t *info; + PMList *lp; + + ASSERT(db != NULL, PM_RET_ERR(PM_ERR_DB_NULL, -1)); + ASSERT(trans != NULL, PM_RET_ERR(PM_ERR_TRANS_NULL, -1)); + ASSERT(data != NULL, PM_RET_ERR(PM_ERR_WRONG_ARGS, -1)); + + if(!(trans->flags & (PM_TRANS_FLAG_NODEPS)) && (trans->type != PM_TRANS_TYPE_UPGRADE)) { + TRANS_CB(trans, PM_TRANS_CB_DEPS_START, NULL, NULL); + + if((lp = checkdeps(db, trans->type, trans->packages)) != NULL) { + if(trans->flags & PM_TRANS_FLAG_CASCADE) { + while(lp) { + PMList *j; + for(j = lp; j; j = j->next) { + pmdepmissing_t* miss = (pmdepmissing_t*)j->data; + info = db_scan(db, miss->depend.name, INFRQ_ALL); + if(!pkg_isin(info, trans->packages)) { + trans->packages = pm_list_add(trans->packages, info); + } + } + FREELIST(lp); + lp = checkdeps(db, trans->type, trans->packages); + } + } else { + *data = lp; + PM_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); + } + + TRANS_CB(trans, PM_TRANS_CB_DEPS_DONE, NULL, NULL); + } + + return(0); +} + +int remove_commit(pmdb_t *db, pmtrans_t *trans) +{ + pmpkg_t *info; + struct stat buf; + PMList *targ, *lp; + char line[PATH_MAX+1]; + + ASSERT(db != NULL, PM_RET_ERR(PM_ERR_DB_NULL, -1)); + ASSERT(trans != NULL, PM_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) { + TRANS_CB(trans, PM_TRANS_CB_REMOVE_START, info, NULL); + + /* run the pre-remove scriptlet if it exists */ + snprintf(pm_install, PATH_MAX, "%s%s/%s/%s-%s/install", handle->root, handle->dbpath, db->treename, info->name, info->version); + _alpm_runscriptlet(handle->root, pm_install, "pre_remove", info->version, NULL); + } + + if(!(trans->flags & PM_TRANS_FLAG_DBONLY)) { + /* iterate through the list backwards, unlinking files */ + for(lp = pm_list_last(info->files); lp; lp = lp->prev) { + char *newpath = NULL; + int nb = 0; + if(_alpm_needbackup(lp->data, info->backup)) { + nb = 1; + } + if(!nb && trans->type == PM_TRANS_TYPE_UPGRADE) { + /* check noupgrade */ + if(pm_list_is_strin(lp->data, handle->noupgrade)) { + nb = 1; + } + } + snprintf(line, PATH_MAX, "%s%s", handle->root, (char*)lp->data); + if(lstat(line, &buf)) { + _alpm_log(PM_LOG_ERROR, "file %s does not exist", line); + continue; + } + if(S_ISDIR(buf.st_mode)) { + _alpm_log(PM_LOG_DEBUG, "removing directory %s", line); + if(rmdir(line)) { + /* this is okay, other packages are probably using it. */ + } + } 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)) { + newpath = (char*)realloc(newpath, strlen(line)+strlen(".pacsave")+1); + sprintf(newpath, "%s.pacsave", line); + rename(line, newpath); + _alpm_log(PM_LOG_WARNING, "%s saved as %s", line, newpath); + alpm_logaction("%s saved as %s", line, newpath); + } else { + _alpm_log(PM_LOG_DEBUG, "unlinking %s", line); + if(unlink(line)) { + _alpm_log(PM_LOG_ERROR, "cannot remove file %s", line); + } + } + } + } else { + _alpm_log(PM_LOG_DEBUG, "unlinking %s", line); + if(unlink(line)) { + _alpm_log(PM_LOG_ERROR, "cannot remove file %s", line); + } + } + } + } + } + + if(trans->type != PM_TRANS_TYPE_UPGRADE) { + char pm_install[PATH_MAX]; + + /* run the post-remove script if it exists */ + snprintf(pm_install, PATH_MAX, "%s%s/%s/%s-%s/install", handle->root, handle->dbpath, db->treename, info->name, info->version); + _alpm_runscriptlet(handle->root, pm_install, "post_remove", info->version, NULL); + } + + /* remove the package from the database */ + if(db_remove(db, info) == -1) { + _alpm_log(PM_LOG_ERROR, "failed to remove database entry %s/%s-%s", db->path, info->name, info->version); + } + + /* update dependency packages' REQUIREDBY fields */ + for(lp = info->depends; lp; lp = lp->next) { + PMList *last, *j; + pmpkg_t *depinfo = NULL; + pmdepend_t depend; + + splitdep((char*)lp->data, &depend); + + depinfo = db_scan(db, depend.name, INFRQ_DESC|INFRQ_DEPENDS); + 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_scan(db, provides->data, INFRQ_DEPENDS); + FREELIST(provides); + if(depinfo == NULL) { + /* wtf */ + continue; + } + } else { + continue; + } + } + /* splice out this entry from requiredby */ + last = pm_list_last(depinfo->requiredby); + /* ORE - use list_remove here? */ + for(j = depinfo->requiredby; j; j = j->next) { + if(!strcmp((char*)j->data, info->name)) { + if(j == depinfo->requiredby) { + depinfo->requiredby = j->next; + } + if(j->prev) j->prev->next = j->next; + if(j->next) j->next->prev = j->prev; + /* free the spliced node */ + j->prev = j->next = NULL; + FREELIST(j); + break; + } + } + db_write(db, depinfo, INFRQ_DEPENDS); + FREEPKG(depinfo); + } + + if(trans->type != PM_TRANS_TYPE_UPGRADE) { + TRANS_CB(trans, PM_TRANS_CB_REMOVE_DONE, info, NULL); + alpm_logaction("removed %s (%s)", info->name, info->version); + } + } + + /* run ldconfig if it exists */ + _alpm_log(PM_LOG_FLOW2, "running \"%ssbin/ldconfig -r %s\"", handle->root, handle->root); + _alpm_ldconfig(handle->root); + + /* cache needs to be rebuilt */ + db_free_pkgcache(db); + + return(0); +} + +/* vim: set ts=2 sw=2 noet: */ |