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 "file_util.h"
26 #include "sprintf_alloc.h"
27 #include "libbb/libbb.h"
30 * Returns number of the number of packages depending on the packages provided by this package.
31 * Every package implicitly provides itself.
34 pkg_has_installed_dependents(pkg_t
*pkg
, abstract_pkg_t
*** pdependents
)
36 int nprovides
= pkg
->provides_count
;
37 abstract_pkg_t
**provides
= pkg
->provides
;
38 unsigned int n_installed_dependents
= 0;
40 for (i
= 0; i
< nprovides
; i
++) {
41 abstract_pkg_t
*providee
= provides
[i
];
42 abstract_pkg_t
**dependers
= providee
->depended_upon_by
;
43 abstract_pkg_t
*dep_ab_pkg
;
44 if (dependers
== NULL
)
46 while ((dep_ab_pkg
= *dependers
++) != NULL
) {
47 if (dep_ab_pkg
->state_status
== SS_INSTALLED
){
48 n_installed_dependents
++;
53 /* if caller requested the set of installed dependents */
56 abstract_pkg_t
**dependents
= xcalloc((n_installed_dependents
+1), sizeof(abstract_pkg_t
*));
58 *pdependents
= dependents
;
59 for (i
= 0; i
< nprovides
; i
++) {
60 abstract_pkg_t
*providee
= provides
[i
];
61 abstract_pkg_t
**dependers
= providee
->depended_upon_by
;
62 abstract_pkg_t
*dep_ab_pkg
;
63 if (dependers
== NULL
)
65 while ((dep_ab_pkg
= *dependers
++) != NULL
) {
66 if (dep_ab_pkg
->state_status
== SS_INSTALLED
&& !(dep_ab_pkg
->state_flag
& SF_MARKED
)) {
67 dependents
[p
++] = dep_ab_pkg
;
68 dep_ab_pkg
->state_flag
|= SF_MARKED
;
73 /* now clear the marks */
74 for (i
= 0; i
< p
; i
++) {
75 abstract_pkg_t
*dep_ab_pkg
= dependents
[i
];
76 dep_ab_pkg
->state_flag
&= ~SF_MARKED
;
79 return n_installed_dependents
;
83 opkg_remove_dependent_pkgs(pkg_t
*pkg
, abstract_pkg_t
**dependents
)
88 pkg_vec_t
*dependent_pkgs
;
89 abstract_pkg_t
* ab_pkg
;
91 if((ab_pkg
= pkg
->parent
) == NULL
){
92 opkg_msg(ERROR
, "Internal error: pkg %s isn't in hash table\n",
97 if (dependents
== NULL
)
100 // here i am using the dependencies_checked
101 if (ab_pkg
->dependencies_checked
== 2) // variable to make out whether this package
102 return 0; // has already been encountered in the process
103 // of marking packages for removal - Karthik
104 ab_pkg
->dependencies_checked
= 2;
108 dependent_pkgs
= pkg_vec_alloc();
110 while (dependents
[i
] != NULL
) {
111 abstract_pkg_t
*dep_ab_pkg
= dependents
[i
];
113 if (dep_ab_pkg
->dependencies_checked
== 2){
117 if (dep_ab_pkg
->state_status
== SS_INSTALLED
) {
118 for (a
= 0; a
< dep_ab_pkg
->pkgs
->len
; a
++) {
119 pkg_t
*dep_pkg
= dep_ab_pkg
->pkgs
->pkgs
[a
];
120 if (dep_pkg
->state_status
== SS_INSTALLED
) {
121 pkg_vec_insert(dependent_pkgs
, dep_pkg
);
127 /* 1 - to keep track of visited ab_pkgs when checking for possiblility of a broken removal of pkgs.
128 * 2 - to keep track of pkgs whose deps have been checked alrdy - Karthik */
132 pkg_vec_free(dependent_pkgs
);
138 for (i
= 0; i
< dependent_pkgs
->len
; i
++) {
139 err
= opkg_remove_pkg(dependent_pkgs
->pkgs
[i
],0);
141 pkg_vec_free(dependent_pkgs
);
145 pkg_vec_free(dependent_pkgs
);
150 print_dependents_warning(pkg_t
*pkg
, abstract_pkg_t
**dependents
)
152 abstract_pkg_t
*dep_ab_pkg
;
153 opkg_msg(ERROR
, "Package %s is depended upon by packages:\n", pkg
->name
);
154 while ((dep_ab_pkg
= *dependents
++) != NULL
) {
155 if (dep_ab_pkg
->state_status
== SS_INSTALLED
)
156 opkg_msg(ERROR
, "\t%s\n", dep_ab_pkg
->name
);
158 opkg_msg(ERROR
, "These might cease to work if package %s is removed.\n\n",
160 opkg_msg(ERROR
, "Force removal of this package with --force-depends.\n");
161 opkg_msg(ERROR
, "Force removal of this package and its dependents\n");
162 opkg_msg(ERROR
, "with --force-removal-of-dependent-packages.\n");
166 * Find and remove packages that were autoinstalled and are orphaned
167 * by the removal of pkg.
170 remove_autoinstalled(pkg_t
*pkg
)
176 struct compound_depend
*cdep
;
177 abstract_pkg_t
**dependents
;
179 int count
= pkg
->pre_depends_count
+
181 pkg
->recommends_count
+
184 for (i
=0; i
<count
; i
++) {
185 cdep
= &pkg
->depends
[i
];
186 if (cdep
->type
!= PREDEPEND
187 && cdep
->type
!= DEPEND
188 && cdep
->type
!= RECOMMEND
)
190 for (j
=0; j
<cdep
->possibility_count
; j
++) {
191 p
= pkg_hash_fetch_installed_by_name(
192 cdep
->possibilities
[j
]->pkg
->name
);
194 /* If the package is not installed, this could have
195 * been a circular dependency and the package has
196 * already been removed.
201 if (!p
->auto_installed
)
204 n_deps
= pkg_has_installed_dependents(p
, &dependents
);
206 opkg_msg(NOTICE
, "%s was autoinstalled and is "
207 "now orphaned, removing.\n",
209 if (opkg_remove_pkg(p
, 0) != 0) {
213 opkg_msg(INFO
, "%s was autoinstalled and is "
214 "still required by %d "
215 "installed packages.\n",
227 opkg_remove_pkg(pkg_t
*pkg
, int from_upgrade
)
230 abstract_pkg_t
*parent_pkg
= NULL
;
233 * If called from an upgrade and not from a normal remove,
234 * ignore the essential flag.
236 if (pkg
->essential
&& !from_upgrade
) {
237 if (conf
->force_removal_of_essential_packages
) {
239 "Removing essential package %s under your coercion.\n"
240 "\tIf your system breaks, you get to keep both pieces\n",
243 opkg_msg(NOTICE
, "Refusing to remove essential package %s.\n"
244 "\tRemoving an essential package may lead to an unusable system, but if\n"
245 "\tyou enjoy that kind of pain, you can force opkg to proceed against\n"
246 "\tits will with the option: --force-removal-of-essential-packages\n",
252 if ((parent_pkg
= pkg
->parent
) == NULL
)
255 /* only attempt to remove dependent installed packages if
256 * force_depends is not specified or the package is being
259 if (!conf
->force_depends
260 && !(pkg
->state_flag
& SF_REPLACE
)) {
261 abstract_pkg_t
**dependents
;
262 int has_installed_dependents
=
263 pkg_has_installed_dependents(pkg
, &dependents
);
265 if (has_installed_dependents
) {
267 * if this package is depended upon by others, then either we should
268 * not remove it or we should remove it and all of its dependents
271 if (!conf
->force_removal_of_dependent_packages
) {
272 print_dependents_warning(pkg
, dependents
);
277 /* remove packages depending on this package - Karthik */
278 err
= opkg_remove_dependent_pkgs(pkg
, dependents
);
288 if (from_upgrade
== 0) {
289 opkg_msg(NOTICE
, "Removing package %s from %s...\n",
290 pkg
->name
, pkg
->dest
->name
);
292 pkg
->state_flag
|= SF_FILELIST_CHANGED
;
294 pkg
->state_want
= SW_DEINSTALL
;
295 opkg_state_changed
++;
297 if (pkg_run_script(pkg
, "prerm", "remove") != 0) {
298 if (!conf
->force_remove
) {
299 opkg_msg(ERROR
, "not removing package \"%s\", "
300 "prerm script failed\n", pkg
->name
);
301 opkg_msg(NOTICE
, "You can force removal of packages with failed "
302 "prerm scripts with the option: \n"
303 "\t--force-remove\n");
308 /* DPKG_INCOMPATIBILITY: dpkg is slightly different here. It
309 maintains an empty filelist rather than deleting it. That seems
310 like a big pain, and I don't see that that should make a big
311 difference, but for anyone who wants tighter compatibility,
312 feel free to fix this. */
313 remove_data_files_and_list(pkg
);
315 err
= pkg_run_script(pkg
, "postrm", "remove");
317 remove_maintainer_scripts(pkg
);
318 pkg
->state_status
= SS_NOT_INSTALLED
;
321 parent_pkg
->state_status
= SS_NOT_INSTALLED
;
323 /* remove autoinstalled packages that are orphaned by the removal of this one */
324 if (conf
->autoremove
) {
325 if (remove_autoinstalled(pkg
) != 0) {
333 remove_data_files_and_list(pkg_t
*pkg
)
335 str_list_t installed_dirs
;
336 str_list_t
*installed_files
;
337 str_list_elt_t
*iter
;
339 conffile_t
*conffile
;
344 installed_files
= pkg_get_installed_files(pkg
);
345 if (installed_files
== NULL
) {
346 opkg_msg(ERROR
, "Failed to determine installed "
347 "files for %s. None removed.\n", pkg
->name
);
351 str_list_init(&installed_dirs
);
353 /* don't include trailing slash */
354 if (conf
->offline_root
)
355 rootdirlen
= strlen(conf
->offline_root
);
357 for (iter
= str_list_first(installed_files
); iter
; iter
= str_list_next(installed_files
, iter
)) {
358 file_name
= (char *)iter
->data
;
360 owner
= file_hash_get_file_owner(file_name
);
362 /* File may have been claimed by another package. */
365 if (file_is_dir(file_name
)) {
366 str_list_append(&installed_dirs
, file_name
);
370 conffile
= pkg_get_conffile(pkg
, file_name
+rootdirlen
);
372 if (conffile_has_been_modified(conffile
)) {
373 opkg_msg(NOTICE
, "Not deleting modified conffile %s.\n",
379 if (!conf
->noaction
) {
380 opkg_msg(INFO
, "Deleting %s.\n", file_name
);
383 opkg_msg(INFO
, "Not deleting %s. (noaction)\n",
386 file_hash_remove(file_name
);
389 /* Remove empty directories */
390 if (!conf
->noaction
) {
393 for (iter
= str_list_first(&installed_dirs
); iter
; 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", file_name
);
399 str_list_remove(&installed_dirs
, &iter
);
402 } while (removed_a_dir
);
405 pkg_free_installed_files(pkg
);
406 pkg_remove_installed_files_list(pkg
);
408 /* Don't print warning for dirs that are provided by other packages */
409 for (iter
= str_list_first(&installed_dirs
); iter
; iter
= str_list_next(&installed_dirs
, iter
)) {
410 file_name
= (char *)iter
->data
;
412 owner
= file_hash_get_file_owner(file_name
);
416 str_list_remove(&installed_dirs
, &iter
);
421 while (!void_list_empty(&installed_dirs
)) {
422 iter
= str_list_pop(&installed_dirs
);
426 str_list_deinit(&installed_dirs
);
430 remove_maintainer_scripts(pkg_t
*pkg
)
439 sprintf_alloc(&globpattern
, "%s/%s.*",
440 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
]);