tazpkg view modules/remove @ rev 846

Remove "busybox" "prefixes" (thanks llev)
We used "busybox wget", etc. to be sure we called Busybox's "wget", not any other "wget". Workaround already done in "getenv" module.
author Aleksej Bobylev <al.bobylev@gmail.com>
date Fri Oct 09 13:14:01 2015 +0300 (2015-10-09)
parents a02e36d44d06
children b6daeaa95431
line source
1 #!/bin/sh
2 # TazPkg - Tiny autonomous zone packages manager, hg.slitaz.org/tazpkg
3 # remove - TazPkg module
4 # Remove packages
5
6
7 # Connect function libraries
8 . /lib/libtaz.sh
9
10 # Get TazPkg working environment
11 . @@MODULES@@/getenv
12
13
14
15
16 remove_with_path() {
17 # Avoid dirname errors by checking for argument.
18 [ -n "$1" ] || return
19
20 local dir
21 rm -f $1 2>/dev/null
22 dir="$1"
23 while [ "$dir" != "/" ]; do
24 dir="$(dirname "$dir")"
25 rmdir "$dir" 2>/dev/null || break
26 done
27 }
28
29
30 grepesc() {
31 sed 's/\[/\\[/g'
32 }
33
34
35 # Log activity
36
37 log_pkg() {
38 [ -w "$LOG" ] &&
39 echo "$(date +'%F %T') - $1 - $PACKAGE ($VERSION$EXTRAVERSION)" >> "$LOG"
40 }
41
42
43 # Interactive mode
44
45 im() { tty -s; }
46
47
48 # Block of receipt function callers
49 # Why? "Bad" receipt sourcing can redefine some vital TazPkg variables.
50 # Few receipts function should be patched now.
51
52 # Input: $1 = path to the receipt to be processed
53
54 call_pre_remove() {
55 local tmp
56 if grep -q '^pre_remove()' "$1"; then
57 action 'Execute pre-remove commands...'
58 tmp="$(mktemp)"
59 cp "$1" "$tmp"
60 sed -i 's|$1/*$INSTALLED|$INSTALLED|g' "$tmp"
61 ( . "$tmp"; pre_remove "$root" )
62 status
63 rm "$tmp"
64 fi
65 }
66
67 call_post_remove() {
68 local tmp
69 if grep -q '^post_remove()' "$1"; then
70 action 'Execute post-remove commands...'
71 tmp="$(mktemp)"
72 cp "$1" "$tmp"
73 sed -i 's|$1/*$INSTALLED|$INSTALLED|g' "$tmp"
74 ( . "$tmp"; post_remove "$root" )
75 status
76 rm "$tmp"
77 fi
78 }
79
80
81
82
83 PACKAGE="$1"
84
85 if [ ! -f "$INSTALLED/$PACKAGE/receipt" ]; then
86 newline; _ 'Package "%s" is not installed.' "$PACKAGE"
87 exit 1
88 fi
89
90 . "$INSTALLED/$PACKAGE/receipt"
91
92 # Info #1: dependent packages (to be processed later)
93 ALTERED="$(awk -F$'\t' -vp=" $PACKAGE " 'index(" " $8 " ", p) { printf " %s\n", $1 }' "$PKGS_DB/installed.info")"
94
95 if [ -n "$ALTERED" ]; then
96 _ 'The following packages depend on package "%s":' "$PACKAGE"
97 echo "$ALTERED"
98 fi
99
100 # Info #2: changed packages (to be processed later)
101 REFRESH=$(cd "$INSTALLED"; grep -sl "^$PACKAGE$" */modifiers)
102
103 if [ -n "$REFRESH" ]; then
104 _ 'The following packages have been modified by package "%s":' "$PACKAGE"
105 for i in $REFRESH; do
106 echo " ${i%/modifiers}"
107 done
108 fi
109
110 # Confirmation
111 if im && [ -z "$auto" ]; then
112 confirm "$(_ 'Remove package "%s" (%s)? (y/N)' "$PACKAGE" "$VERSION$EXTRAVERSION")"
113 if [ "$?" -ne 0 ]; then
114 newline; _ 'Uninstallation of package "%s" cancelled.' "$PACKAGE"
115 exit 0
116 fi
117 fi
118 # We are here: non-interactive mode, or --auto, or answer 'y'
119
120 # Removing package
121 title 'Removing package "%s"' "$PACKAGE"
122
123 # [1/4] Pre-remove commands
124 call_pre_remove "$INSTALLED/$PACKAGE/receipt"
125
126
127 # [2/4] Removing files
128 action 'Removing all files installed...'
129 if [ -f "$INSTALLED/$PACKAGE/modifiers" ]; then
130 for file in $(cat "$INSTALLED/$PACKAGE/files.list"); do
131 for mod in $(cat "$INSTALLED/$PACKAGE/modifiers"); do
132 [ -f "$INSTALLED/$mod/files.list" ] && \
133 [ $(grep "^$(echo $file | grepesc)$" "$INSTALLED/$mod/files.list" | wc -l) -gt 1 ] && \
134 continue 2
135 done
136 [ -n "$debug" ] && echo "remove_with_path $root$file"
137 remove_with_path $root$file
138 done
139 else
140 for file in $(cat "$INSTALLED/$PACKAGE/files.list"); do
141 [ -n "$debug" ] && echo "remove_with_path $root$file"
142 remove_with_path $root$file
143 done
144 fi
145 status
146
147 # [3/4] Post-remove commands
148 call_post_remove "$INSTALLED/$PACKAGE/receipt"
149
150 # [4/4] Remove package receipt and remove it from databases
151 action 'Removing package receipt...'
152 rm -rf "$INSTALLED/$PACKAGE"
153 sed -i "/ $PACKAGE-$VERSION$EXTRAVERSION.tazpkg$/d" "$PKGS_DB/installed.$SUM"
154 sed -i "/^$PACKAGE /d" "$PKGS_DB/installed.info"
155 status
156
157 footer "$(_ 'Package "%s" (%s) removed.' "$PACKAGE" "$VERSION$EXTRAVERSION")"
158
159 # Log this activity
160 log_pkg Removed
161
162 # Stop if non-interactive mode and no --auto option
163 if ! im && [ -z "$auto" ]; then exit 0; fi
164
165 # Process dependent packages
166 if [ -n "$ALTERED" ]; then
167 if [ -n "$auto" ]; then
168 answer=0
169 else
170 confirm "$(_ 'Remove packages depending on package "%s"? (y/N)' "$PACKAGE")"
171 answer=$?
172 fi
173 if [ "$answer" -eq 0 ]; then
174 for i in $ALTERED; do
175 if [ -d "$INSTALLED/$i" ]; then
176 tazpkg remove $i
177 fi
178 done
179 fi
180 fi
181
182 # Process changed packages
183 if [ -n "$REFRESH" ]; then
184 if [ -n "$auto" ]; then
185 answer=0
186 else
187 confirm "$(_ 'Reinstall packages modified by package "%s"? (y/N)' "$PACKAGE")"
188 answer=$?
189 fi
190 if [ "$answer" -eq 0 ]; then
191 for i in $REFRESH; do
192 if [ "$(wc -l < "$INSTALLED/$i")" -gt 1 ]; then
193 _ 'Check %s for reinstallation' "$INSTALLED/$i"
194 continue
195 fi
196 rm -r "$INSTALLED/$i"
197 tazpkg get-install ${i%/modifiers} --forced
198 done
199 fi
200 fi
201