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.
22 #include "opkg_message.h"
23 #include "opkg_remove.h"
25 #include "pkg_alternatives.h"
26 #include "file_util.h"
27 #include "sprintf_alloc.h"
28 #include "libbb/libbb.h"
31 * Returns number of the number of packages depending on the packages provided by this package.
32 * Every package implicitly provides itself.
34 int pkg_has_installed_dependents(pkg_t
* pkg
, abstract_pkg_t
*** pdependents
)
36 abstract_pkg_t
**provider
, **provides
= pkg_get_ptr(pkg
, PKG_PROVIDES
);
37 unsigned int i
, n_installed_dependents
= 0;
41 while (provider
&& *provider
) {
42 abstract_pkg_t
*providee
= *provider
++;
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
=
58 xcalloc((n_installed_dependents
+ 1),
59 sizeof(abstract_pkg_t
*));
62 *pdependents
= dependents
;
64 while (provider
&& *provider
) {
65 abstract_pkg_t
*providee
= *provider
++;
66 abstract_pkg_t
**dependers
= providee
->depended_upon_by
;
67 abstract_pkg_t
*dep_ab_pkg
;
68 if (dependers
== NULL
)
70 while ((dep_ab_pkg
= *dependers
++) != NULL
) {
71 if (dep_ab_pkg
->state_status
== SS_INSTALLED
72 && !(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 static int opkg_remove_dependent_pkgs(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 opkg_msg(ERROR
, "Internal error: pkg %s isn't in hash table\n",
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 pkg_vec_free(dependent_pkgs
);
142 for (i
= 0; i
< dependent_pkgs
->len
; i
++) {
143 err
= opkg_remove_pkg(dependent_pkgs
->pkgs
[i
], 0);
148 pkg_vec_free(dependent_pkgs
);
152 static void print_dependents_warning(pkg_t
* pkg
, abstract_pkg_t
** dependents
)
154 abstract_pkg_t
*dep_ab_pkg
;
155 opkg_msg(ERROR
, "Package %s is depended upon by packages:\n",
157 while ((dep_ab_pkg
= *dependents
++) != NULL
) {
158 if (dep_ab_pkg
->state_status
== SS_INSTALLED
)
159 opkg_msg(ERROR
, "\t%s\n", dep_ab_pkg
->name
);
162 "These might cease to work if package %s is removed.\n\n",
165 "Force removal of this package with --force-depends.\n");
166 opkg_msg(ERROR
, "Force removal of this package and its dependents\n");
167 opkg_msg(ERROR
, "with --force-removal-of-dependent-packages.\n");
171 * Find and remove packages that were autoinstalled and are orphaned
172 * by the removal of pkg.
174 static int remove_autoinstalled(pkg_t
* pkg
)
180 struct compound_depend
*cdep
;
181 abstract_pkg_t
**dependents
;
183 for (cdep
= pkg_get_ptr(pkg
, PKG_DEPENDS
); cdep
&& cdep
->type
; cdep
++) {
184 if (cdep
->type
!= PREDEPEND
185 && cdep
->type
!= DEPEND
&& cdep
->type
!= RECOMMEND
)
187 for (j
= 0; j
< cdep
->possibility_count
; j
++) {
188 p
= pkg_hash_fetch_installed_by_name(cdep
->
192 /* If the package is not installed, this could have
193 * been a circular dependency and the package has
194 * already been removed.
199 if (!p
->auto_installed
)
202 n_deps
= pkg_has_installed_dependents(p
, &dependents
);
204 opkg_msg(NOTICE
, "%s was autoinstalled and is "
205 "now orphaned, removing.\n", p
->name
);
206 if (opkg_remove_pkg(p
, 0) != 0) {
210 opkg_msg(INFO
, "%s was autoinstalled and is "
211 "still required by %d "
212 "installed packages.\n",
223 int opkg_remove_pkg(pkg_t
* pkg
, int from_upgrade
)
226 abstract_pkg_t
*parent_pkg
= NULL
;
229 * If called from an upgrade and not from a normal remove,
230 * ignore the essential flag.
232 if (pkg
->essential
&& !from_upgrade
) {
233 if (conf
->force_removal_of_essential_packages
) {
235 "Removing essential package %s under your coercion.\n"
236 "\tIf your system breaks, you get to keep both pieces\n",
240 "Refusing to remove essential package %s.\n"
241 "\tRemoving an essential package may lead to an unusable system, but if\n"
242 "\tyou enjoy that kind of pain, you can force opkg to proceed against\n"
243 "\tits will with the option: --force-removal-of-essential-packages\n",
249 if ((parent_pkg
= pkg
->parent
) == NULL
)
252 /* only attempt to remove dependent installed packages if
253 * force_depends is not specified or the package is being
256 if (!conf
->force_depends
&& !(pkg
->state_flag
& SF_REPLACE
)) {
257 abstract_pkg_t
**dependents
;
258 int has_installed_dependents
=
259 pkg_has_installed_dependents(pkg
, &dependents
);
261 if (has_installed_dependents
) {
263 * if this package is depended upon by others, then either we should
264 * not remove it or we should remove it and all of its dependents
267 if (!conf
->force_removal_of_dependent_packages
) {
268 print_dependents_warning(pkg
, dependents
);
273 /* remove packages depending on this package - Karthik */
274 err
= opkg_remove_dependent_pkgs(pkg
, dependents
);
284 if (from_upgrade
== 0) {
285 opkg_msg(NOTICE
, "Removing package %s from %s...\n",
286 pkg
->name
, pkg
->dest
->name
);
288 pkg
->state_flag
|= SF_FILELIST_CHANGED
;
290 pkg
->state_want
= SW_DEINSTALL
;
291 opkg_state_changed
++;
293 if (pkg_run_script(pkg
, "prerm", "remove") != 0) {
294 if (!conf
->force_remove
) {
295 opkg_msg(ERROR
, "not removing package \"%s\", "
296 "prerm script failed\n", pkg
->name
);
298 "You can force removal of packages with failed "
299 "prerm scripts with the option: \n"
300 "\t--force-remove\n");
305 /* DPKG_INCOMPATIBILITY: dpkg is slightly different here. It
306 maintains an empty filelist rather than deleting it. That seems
307 like a big pain, and I don't see that that should make a big
308 difference, but for anyone who wants tighter compatibility,
309 feel free to fix this. */
310 remove_data_files_and_list(pkg
);
312 err
= pkg_run_script(pkg
, "postrm", "remove");
314 remove_maintainer_scripts(pkg
);
315 pkg
->state_status
= SS_NOT_INSTALLED
;
316 pkg_alternatives_update(pkg
);
319 parent_pkg
->state_status
= SS_NOT_INSTALLED
;
321 /* remove autoinstalled packages that are orphaned by the removal of this one */
322 if (conf
->autoremove
) {
323 if (remove_autoinstalled(pkg
) != 0) {
330 void remove_data_files_and_list(pkg_t
* pkg
)
332 str_list_t installed_dirs
;
333 str_list_t
*installed_files
;
334 str_list_elt_t
*iter
;
336 conffile_t
*conffile
;
341 installed_files
= pkg_get_installed_files(pkg
);
342 if (installed_files
== NULL
) {
343 opkg_msg(ERROR
, "Failed to determine installed "
344 "files for %s. None removed.\n", pkg
->name
);
348 str_list_init(&installed_dirs
);
350 /* don't include trailing slash */
351 if (conf
->offline_root
)
352 rootdirlen
= strlen(conf
->offline_root
);
354 for (iter
= str_list_first(installed_files
); iter
;
355 iter
= str_list_next(installed_files
, iter
)) {
356 file_name
= (char *)iter
->data
;
358 owner
= file_hash_get_file_owner(file_name
);
360 /* File may have been claimed by another package. */
363 if (file_is_dir(file_name
)) {
364 str_list_append(&installed_dirs
, file_name
);
368 conffile
= pkg_get_conffile(pkg
, file_name
+ rootdirlen
);
370 if (conffile_has_been_modified(conffile
)) {
372 "Not deleting modified conffile %s.\n",
378 if (!conf
->noaction
) {
379 opkg_msg(INFO
, "Deleting %s.\n", file_name
);
382 opkg_msg(INFO
, "Not deleting %s. (noaction)\n",
385 file_hash_remove(file_name
);
388 /* Remove empty directories */
389 if (!conf
->noaction
) {
392 for (iter
= str_list_first(&installed_dirs
); iter
;
393 iter
= str_list_next(&installed_dirs
, iter
)) {
394 file_name
= (char *)iter
->data
;
396 if (rmdir(file_name
) == 0) {
397 opkg_msg(INFO
, "Deleting %s.\n",
400 str_list_remove(&installed_dirs
, &iter
);
403 } while (removed_a_dir
);
406 pkg_free_installed_files(pkg
);
407 pkg_remove_installed_files_list(pkg
);
409 /* Don't print warning for dirs that are provided by other packages */
410 for (iter
= str_list_first(&installed_dirs
); iter
;
411 iter
= str_list_next(&installed_dirs
, iter
)) {
412 file_name
= (char *)iter
->data
;
414 owner
= file_hash_get_file_owner(file_name
);
418 str_list_remove(&installed_dirs
, &iter
);
423 while (!void_list_empty(&installed_dirs
)) {
424 iter
= str_list_pop(&installed_dirs
);
428 str_list_deinit(&installed_dirs
);
431 void remove_maintainer_scripts(pkg_t
* pkg
)
440 sprintf_alloc(&globpattern
, "%s/%s.*", pkg
->dest
->info_dir
, pkg
->name
);
442 err
= glob(globpattern
, 0, NULL
, &globbuf
);
447 for (i
= 0; i
< globbuf
.gl_pathc
; i
++) {
448 opkg_msg(INFO
, "Deleting %s.\n", globbuf
.gl_pathv
[i
]);
449 unlink(globbuf
.gl_pathv
[i
]);