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);
144 pkg_vec_free(dependent_pkgs
);
149 print_dependents_warning(pkg_t
*pkg
, abstract_pkg_t
**dependents
)
151 abstract_pkg_t
*dep_ab_pkg
;
152 opkg_msg(ERROR
, "Package %s is depended upon by packages:\n", pkg
->name
);
153 while ((dep_ab_pkg
= *dependents
++) != NULL
) {
154 if (dep_ab_pkg
->state_status
== SS_INSTALLED
)
155 opkg_msg(ERROR
, "\t%s\n", dep_ab_pkg
->name
);
157 opkg_msg(ERROR
, "These might cease to work if package %s is removed.\n\n",
159 opkg_msg(ERROR
, "Force removal of this package with --force-depends.\n");
160 opkg_msg(ERROR
, "Force removal of this package and its dependents\n");
161 opkg_msg(ERROR
, "with --force-removal-of-dependent-packages.\n");
165 * Find and remove packages that were autoinstalled and are orphaned
166 * by the removal of pkg.
169 remove_autoinstalled(pkg_t
*pkg
)
175 struct compound_depend
*cdep
;
176 abstract_pkg_t
**dependents
;
178 int count
= pkg
->pre_depends_count
+
180 pkg
->recommends_count
+
183 for (i
=0; i
<count
; i
++) {
184 cdep
= &pkg
->depends
[i
];
185 if (cdep
->type
!= PREDEPEND
186 && cdep
->type
!= DEPEND
187 && cdep
->type
!= RECOMMEND
)
189 for (j
=0; j
<cdep
->possibility_count
; j
++) {
190 p
= pkg_hash_fetch_installed_by_name(
191 cdep
->possibilities
[j
]->pkg
->name
);
193 /* If the package is not installed, this could have
194 * been a circular dependency and the package has
195 * already been removed.
200 if (!p
->auto_installed
)
203 n_deps
= pkg_has_installed_dependents(p
, &dependents
);
205 opkg_msg(NOTICE
, "%s was autoinstalled and is "
206 "now orphaned, removing.\n",
208 if (opkg_remove_pkg(p
, 0) != 0) {
212 opkg_msg(INFO
, "%s was autoinstalled and is "
213 "still required by %d "
214 "installed packages.\n",
226 opkg_remove_pkg(pkg_t
*pkg
, int from_upgrade
)
229 abstract_pkg_t
*parent_pkg
= NULL
;
232 * If called from an upgrade and not from a normal remove,
233 * ignore the essential flag.
235 if (pkg
->essential
&& !from_upgrade
) {
236 if (conf
->force_removal_of_essential_packages
) {
238 "Removing essential package %s under your coercion.\n"
239 "\tIf your system breaks, you get to keep both pieces\n",
242 opkg_msg(NOTICE
, "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",
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(pkg
, &dependents
);
264 if (has_installed_dependents
) {
266 * if this package is depended upon 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 print_dependents_warning(pkg
, dependents
);
276 /* remove packages depending on this package - Karthik */
277 err
= opkg_remove_dependent_pkgs(pkg
, dependents
);
287 if (from_upgrade
== 0) {
288 opkg_msg(NOTICE
, "Removing package %s from %s...\n",
289 pkg
->name
, pkg
->dest
->name
);
291 pkg
->state_flag
|= SF_FILELIST_CHANGED
;
293 pkg
->state_want
= SW_DEINSTALL
;
294 opkg_state_changed
++;
296 if (pkg_run_script(pkg
, "prerm", "remove") != 0) {
297 if (!conf
->force_remove
) {
298 opkg_msg(ERROR
, "not removing package \"%s\", "
299 "prerm script failed\n", pkg
->name
);
300 opkg_msg(NOTICE
, "You can force removal of packages with failed "
301 "prerm scripts with the option: \n"
302 "\t--force-remove\n");
307 /* DPKG_INCOMPATIBILITY: dpkg is slightly different here. It
308 maintains an empty filelist rather than deleting it. That seems
309 like a big pain, and I don't see that that should make a big
310 difference, but for anyone who wants tighter compatibility,
311 feel free to fix this. */
312 remove_data_files_and_list(pkg
);
314 err
= pkg_run_script(pkg
, "postrm", "remove");
316 remove_maintainer_scripts(pkg
);
317 pkg
->state_status
= SS_NOT_INSTALLED
;
320 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 if (remove_autoinstalled(pkg
) != 0) {
332 remove_data_files_and_list(pkg_t
*pkg
)
334 str_list_t installed_dirs
;
335 str_list_t
*installed_files
;
336 str_list_elt_t
*iter
;
338 conffile_t
*conffile
;
343 installed_files
= pkg_get_installed_files(pkg
);
344 if (installed_files
== NULL
) {
345 opkg_msg(ERROR
, "Failed to determine installed "
346 "files for %s. None removed.\n", pkg
->name
);
350 str_list_init(&installed_dirs
);
352 /* don't include trailing slash */
353 if (conf
->offline_root
)
354 rootdirlen
= strlen(conf
->offline_root
);
356 for (iter
= str_list_first(installed_files
); iter
; iter
= str_list_next(installed_files
, iter
)) {
357 file_name
= (char *)iter
->data
;
359 owner
= file_hash_get_file_owner(file_name
);
361 /* File may have been claimed by another package. */
364 if (file_is_dir(file_name
)) {
365 str_list_append(&installed_dirs
, file_name
);
369 conffile
= pkg_get_conffile(pkg
, file_name
+rootdirlen
);
371 if (conffile_has_been_modified(conffile
)) {
372 opkg_msg(NOTICE
, "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
; iter
= str_list_next(&installed_dirs
, iter
)) {
393 file_name
= (char *)iter
->data
;
395 if (rmdir(file_name
) == 0) {
396 opkg_msg(INFO
, "Deleting %s.\n", file_name
);
398 str_list_remove(&installed_dirs
, &iter
);
401 } while (removed_a_dir
);
404 pkg_free_installed_files(pkg
);
405 pkg_remove_installed_files_list(pkg
);
407 /* Don't print warning for dirs that are provided by other packages */
408 for (iter
= str_list_first(&installed_dirs
); iter
; iter
= str_list_next(&installed_dirs
, iter
)) {
409 file_name
= (char *)iter
->data
;
411 owner
= file_hash_get_file_owner(file_name
);
415 str_list_remove(&installed_dirs
, &iter
);
420 while (!void_list_empty(&installed_dirs
)) {
421 iter
= str_list_pop(&installed_dirs
);
425 str_list_deinit(&installed_dirs
);
429 remove_maintainer_scripts(pkg_t
*pkg
)
438 sprintf_alloc(&globpattern
, "%s/%s.*",
439 pkg
->dest
->info_dir
, pkg
->name
);
441 err
= glob(globpattern
, 0, NULL
, &globbuf
);
446 for (i
= 0; i
< globbuf
.gl_pathc
; i
++) {
447 opkg_msg(INFO
, "Deleting %s.\n", globbuf
.gl_pathv
[i
]);
448 unlink(globbuf
.gl_pathv
[i
]);