1 /* opkg_remove.c - the opkg package management system
5 Copyright (C) 2001 University of Southern California
7 This program is free software; you can redistribute it and/or
8 modify it under the terms of the GNU General Public License as
9 published by the Free Software Foundation; either version 2, or (at
10 your option) any later version.
12 This program is distributed in the hope that it will be useful, but
13 WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 General Public License for more details.
19 #include "opkg_message.h"
23 #include "opkg_remove.h"
24 #include "opkg_error.h"
27 #include "file_util.h"
28 #include "sprintf_alloc.h"
32 * Returns number of the number of packages depending on the packages provided by this package.
33 * Every package implicitly provides itself.
35 int pkg_has_installed_dependents(opkg_conf_t *conf, abstract_pkg_t *parent_apkg, pkg_t *pkg, abstract_pkg_t *** pdependents)
37 int nprovides = pkg->provides_count;
38 abstract_pkg_t **provides = pkg->provides;
39 int n_installed_dependents = 0;
41 for (i = 0; i <= nprovides; i++) {
42 abstract_pkg_t *providee = provides[i];
43 abstract_pkg_t **dependers = providee->depended_upon_by;
44 abstract_pkg_t *dep_ab_pkg;
45 if (dependers == NULL)
47 while ((dep_ab_pkg = *dependers++) != NULL) {
48 if (dep_ab_pkg->state_status == SS_INSTALLED){
49 n_installed_dependents++;
54 /* if caller requested the set of installed dependents */
57 abstract_pkg_t **dependents = (abstract_pkg_t **)calloc((n_installed_dependents+1), sizeof(abstract_pkg_t *));
59 if ( dependents == NULL ){
60 fprintf(stderr,"%s Unable to allocate memory. REPORT THIS BUG IN BUGZILLA PLEASE\n", __FUNCTION__);
64 *pdependents = dependents;
65 for (i = 0; i <= nprovides; i++) {
66 abstract_pkg_t *providee = provides[i];
67 abstract_pkg_t **dependers = providee->depended_upon_by;
68 abstract_pkg_t *dep_ab_pkg;
69 if (dependers == NULL)
71 while ((dep_ab_pkg = *dependers++) != NULL) {
72 if (dep_ab_pkg->state_status == SS_INSTALLED && !(dep_ab_pkg->state_flag & SF_MARKED)) {
73 dependents[p++] = dep_ab_pkg;
74 dep_ab_pkg->state_flag |= SF_MARKED;
79 /* now clear the marks */
80 for (i = 0; i < p; i++) {
81 abstract_pkg_t *dep_ab_pkg = dependents[i];
82 dep_ab_pkg->state_flag &= ~SF_MARKED;
85 return n_installed_dependents;
88 int opkg_remove_dependent_pkgs (opkg_conf_t *conf, pkg_t *pkg, abstract_pkg_t **dependents)
93 pkg_vec_t *dependent_pkgs;
94 abstract_pkg_t * ab_pkg;
96 if((ab_pkg = pkg->parent) == NULL){
97 fprintf(stderr, "%s: unable to get dependent pkgs. pkg %s isn't in hash table\n",
98 __FUNCTION__, pkg->name);
102 if (dependents == NULL)
105 // here i am using the dependencies_checked
106 if (ab_pkg->dependencies_checked == 2) // variable to make out whether this package
107 return 0; // has already been encountered in the process
108 // of marking packages for removal - Karthik
109 ab_pkg->dependencies_checked = 2;
113 dependent_pkgs = pkg_vec_alloc();
115 while (dependents [i] != NULL) {
116 abstract_pkg_t *dep_ab_pkg = dependents[i];
118 if (dep_ab_pkg->dependencies_checked == 2){
122 if (dep_ab_pkg->state_status == SS_INSTALLED) {
123 for (a = 0; a < dep_ab_pkg->pkgs->len; a++) {
124 pkg_t *dep_pkg = dep_ab_pkg->pkgs->pkgs[a];
125 if (dep_pkg->state_status == SS_INSTALLED) {
126 pkg_vec_insert(dependent_pkgs, dep_pkg);
132 /* 1 - to keep track of visited ab_pkgs when checking for possiblility of a broken removal of pkgs.
133 * 2 - to keep track of pkgs whose deps have been checked alrdy - Karthik */
137 free(dependent_pkgs);
143 for (i = 0; i < dependent_pkgs->len; i++) {
144 err = opkg_remove_pkg(conf, dependent_pkgs->pkgs[i],0);
148 free(dependent_pkgs);
152 static int user_prefers_removing_dependents(opkg_conf_t *conf, abstract_pkg_t *abpkg, pkg_t *pkg, abstract_pkg_t **dependents)
154 abstract_pkg_t *dep_ab_pkg;
155 opkg_message(conf, OPKG_ERROR, "Package %s is depended upon by packages:\n", pkg->name);
156 while ((dep_ab_pkg = *dependents++) != NULL) {
157 if (dep_ab_pkg->state_status == SS_INSTALLED)
158 opkg_message(conf, OPKG_ERROR, "\t%s\n", dep_ab_pkg->name);
160 opkg_message(conf, OPKG_ERROR, "These might cease to work if package %s is removed.\n\n", pkg->name);
161 opkg_message(conf, OPKG_ERROR, "");
162 opkg_message(conf, OPKG_ERROR, "You can force removal of this package with -force-depends.\n");
163 opkg_message(conf, OPKG_ERROR, "You can force removal of this package and its dependents\n");
164 opkg_message(conf, OPKG_ERROR, "with -force-removal-of-dependent-packages or -recursive\n");
165 opkg_message(conf, OPKG_ERROR, "or by setting option force_removal_of_dependent_packages\n");
166 opkg_message(conf, OPKG_ERROR, "in opkg.conf.\n");
170 static int remove_autoinstalled (opkg_conf_t *conf, pkg_t *pkg)
173 * find and remove packages that were autoinstalled and are orphaned by the removal of pkg
176 char *buffer, *d_str;
179 for (i = 0; i < pkg->depends_count; ++i)
183 d_str = pkg->depends_str[i];
184 buffer = calloc (1, strlen (d_str) + 1);
187 fprintf(stderr,"%s Unable to allocate memory.\n", __FUNCTION__);
191 while (d_str[x] != '\0' && d_str[x] != ' ')
193 buffer[x] = d_str[x];
197 buffer = realloc (buffer, strlen (buffer) + 1);
198 p = pkg_hash_fetch_installed_by_name (&conf->pkg_hash, buffer);
200 /* if the package is not installed, this could have been a circular
201 * depenancy and the package has already been removed */
205 if (p->auto_installed)
208 abstract_pkg_t **dependents;
210 deps = pkg_has_installed_dependents(conf, NULL, p, &dependents);
213 opkg_message (conf, OPKG_INFO,
214 "%s was autoinstalled but is now orphaned\n", buffer);
215 opkg_remove_pkg(conf, p,0);
218 opkg_message (conf, OPKG_INFO, "%s was autoinstalled and is still required by "
219 "%d installed packages\n", buffer, deps);
227 int opkg_remove_pkg(opkg_conf_t *conf, pkg_t *pkg,int message)
229 /* Actually, when "message == 1" I have been called from an upgrade, and not from a normal remove
230 thus I wan't check for essential, as I'm upgrading.
231 I hope it won't break anything :)
234 abstract_pkg_t *parent_pkg = NULL;
236 if (pkg->essential && !message) {
237 if (conf->force_removal_of_essential_packages) {
238 fprintf(stderr, "WARNING: Removing essential package %s under your coercion.\n"
239 "\tIf your system breaks, you get to keep both pieces\n",
242 fprintf(stderr, "ERROR: Refusing to remove essential package %s.\n"
243 "\tRemoving an essential package may lead to an unusable system, but if\n"
244 "\tyou enjoy that kind of pain, you can force opkg to proceed against\n"
245 "\tits will with the option: -force-removal-of-essential-packages\n",
247 return OPKG_PKG_IS_ESSENTIAL;
251 if ((parent_pkg = pkg->parent) == NULL)
254 /* only attempt to remove dependent installed packages if
255 * force_depends is not specified or the package is being
258 if (!conf->force_depends
259 && !(pkg->state_flag & SF_REPLACE)) {
260 abstract_pkg_t **dependents;
261 int has_installed_dependents =
262 pkg_has_installed_dependents(conf, parent_pkg, pkg, &dependents);
264 if (has_installed_dependents) {
266 * if this package is depended up by others, then either we should
267 * not remove it or we should remove it and all of its dependents
270 if (!conf->force_removal_of_dependent_packages
271 && !user_prefers_removing_dependents(conf, parent_pkg, pkg, dependents)) {
273 return OPKG_PKG_HAS_DEPENDENTS;
276 /* remove packages depending on this package - Karthik */
277 err = opkg_remove_dependent_pkgs (conf, pkg, dependents);
288 opkg_message (conf, OPKG_NOTICE,
289 "Removing package %s from %s...\n", pkg->name, pkg->dest->name);
292 pkg->state_flag |= SF_FILELIST_CHANGED;
294 pkg->state_want = SW_DEINSTALL;
295 opkg_state_changed++;
297 pkg_run_script(conf, pkg, "prerm", "remove");
299 /* DPKG_INCOMPATIBILITY: dpkg is slightly different here. It
300 maintains an empty filelist rather than deleting it. That seems
301 like a big pain, and I don't see that that should make a big
302 difference, but for anyone who wants tighter compatibility,
303 feel free to fix this. */
304 remove_data_files_and_list(conf, pkg);
306 pkg_run_script(conf, pkg, "postrm", "remove");
308 remove_maintainer_scripts_except_postrm(conf, pkg);
310 /* Aman Gupta - Since opkg is made for handheld devices with limited
311 * space, it doesn't make sense to leave extra configurations, files,
312 * and maintainer scripts left around. So, we make remove like purge,
313 * and take out all the crap :) */
315 remove_postrm(conf, pkg);
316 pkg->state_status = SS_NOT_INSTALLED;
319 parent_pkg->state_status = SS_NOT_INSTALLED;
322 /* remove autoinstalled packages that are orphaned by the removal of this one */
323 if (conf->autoremove)
324 remove_autoinstalled (conf, pkg);
331 int opkg_purge_pkg(opkg_conf_t *conf, pkg_t *pkg)
333 opkg_remove_pkg(conf, pkg,0);
337 int remove_data_files_and_list(opkg_conf_t *conf, pkg_t *pkg)
339 str_list_t installed_dirs;
340 str_list_t *installed_files;
341 str_list_elt_t *iter;
343 conffile_t *conffile;
347 str_list_init(&installed_dirs);
348 installed_files = pkg_get_installed_files(pkg);
350 for (iter = str_list_first(installed_files); iter; iter = str_list_next(installed_files, iter)) {
351 file_name = (char *)iter->data;
353 if (file_is_dir(file_name)) {
354 str_list_append(&installed_dirs, file_name);
358 conffile = pkg_get_conffile(pkg, file_name);
360 /* XXX: QUESTION: Is this right? I figure we only need to
361 save the conffile if it has been modified. Is that what
362 dpkg does? Or does dpkg preserve all conffiles? If so,
363 this seems like a better thing to do to conserve
365 if (conffile_has_been_modified(conf, conffile)) {
366 opkg_message (conf, OPKG_NOTICE,
367 " not deleting modified conffile %s\n", file_name);
373 opkg_message(conf, OPKG_INFO, " deleting %s (noaction=%d)\n", file_name, conf->noaction);
378 if (!conf->noaction) {
381 for (iter = str_list_first(&installed_dirs); iter; iter = str_list_next(&installed_dirs, iter)) {
382 file_name = (char *)iter->data;
384 if (rmdir(file_name) == 0) {
385 opkg_message(conf, OPKG_INFO, " deleting %s\n", file_name);
387 str_list_remove(&installed_dirs, &iter);
390 } while (removed_a_dir);
393 pkg_free_installed_files(pkg);
394 /* We have to remove the file list now, so that
395 find_pkg_owning_file does not always just report this package */
396 pkg_remove_installed_files_list(conf, pkg);
398 /* Don't print warning for dirs that are provided by other packages */
399 for (iter = str_list_first(&installed_dirs); iter; iter = str_list_next(&installed_dirs, iter)) {
400 file_name = (char *)iter->data;
402 owner = file_hash_get_file_owner(conf, file_name);
406 str_list_remove(&installed_dirs, &iter);
411 while (!void_list_empty(&installed_dirs)) {
412 iter = str_list_pop(&installed_dirs);
416 str_list_deinit(&installed_dirs);
421 int remove_maintainer_scripts_except_postrm(opkg_conf_t *conf, pkg_t *pkg)
427 if (conf->noaction) return 0;
429 sprintf_alloc(&globpattern, "%s/%s.*",
430 pkg->dest->info_dir, pkg->name);
431 err = glob(globpattern, 0, NULL, &globbuf);
437 for (i = 0; i < globbuf.gl_pathc; i++) {
438 if (str_ends_with(globbuf.gl_pathv[i], ".postrm")) {
441 opkg_message(conf, OPKG_INFO, " deleting %s\n", globbuf.gl_pathv[i]);
442 unlink(globbuf.gl_pathv[i]);
449 int remove_postrm(opkg_conf_t *conf, pkg_t *pkg)
451 char *postrm_file_name;
453 if (conf->noaction) return 0;
455 sprintf_alloc(&postrm_file_name, "%s/%s.postrm",
456 pkg->dest->info_dir, pkg->name);
457 unlink(postrm_file_name);
458 free(postrm_file_name);