spk annotate spk-rm @ rev 19
add: spk and some improvments
author | Christophe Lincoln <pankso@slitaz.org> |
---|---|
date | Tue May 15 14:20:23 2012 +0200 (2012-05-15) |
parents | c4f1fc1c761a |
children | daf5adaaa87b |
rev | line source |
---|---|
pankso@8 | 1 #!/bin/sh |
pankso@8 | 2 # |
pankso@8 | 3 # Spk-rm - Remove SliTaz packages. Read the README before adding or |
pankso@8 | 4 # modifing any code in spk! |
pankso@8 | 5 # |
pankso@8 | 6 # Copyright (C) SliTaz GNU/Linux - BSD License |
pankso@8 | 7 # Author: See AUTHORS files |
pankso@8 | 8 # |
pankso@19 | 9 . /usr/lib/slitaz/libspk.sh |
pankso@8 | 10 |
pankso@8 | 11 # |
pankso@8 | 12 # Functions |
pankso@8 | 13 # |
pankso@8 | 14 |
pankso@8 | 15 # Help and usage |
pankso@8 | 16 usage() { |
pankso@8 | 17 name=$(basename $0) |
pankso@8 | 18 cat << EOT |
pankso@8 | 19 |
pankso@10 | 20 $(boldify $(gettext "Usage:")) $name [packages|--options] |
pankso@8 | 21 |
pankso@15 | 22 $(gettext "Remove installed packages and ther dependencies") |
pankso@15 | 23 |
pankso@8 | 24 $(boldify $(gettext "Options:")) |
pankso@13 | 25 --confirm $(gettext "Ask before removing any packages") |
pankso@17 | 26 --root $(gettext "Set the root file system path") |
pankso@13 | 27 --verbose $(gettext "Be more verbose when removing files") |
pankso@8 | 28 |
pankso@8 | 29 $(boldify $(gettext "Examples:")) |
pankso@13 | 30 $name package1 package2 packagesN |
pankso@13 | 31 $name package1 --confirm --verbose |
pankso@8 | 32 |
pankso@8 | 33 EOT |
pankso@8 | 34 exit 0 |
pankso@8 | 35 } |
pankso@8 | 36 |
pankso@13 | 37 # Avoid dirname errors by checking for argument anf then remove file and |
pankso@13 | 38 # empty directory. Usage: remove_file file |
pankso@13 | 39 remove_file() { |
pankso@13 | 40 [ "$1" ] || return |
pankso@13 | 41 local dir |
pankso@13 | 42 rm -f $1 2>/dev/null |
pankso@13 | 43 dir="$1" |
pankso@13 | 44 while [ "$dir" != "/" ]; do |
pankso@13 | 45 dir="$(dirname $dir)" |
pankso@13 | 46 rmdir $dir 2> /dev/null || break |
pankso@13 | 47 done |
pankso@13 | 48 } |
pankso@13 | 49 |
pankso@13 | 50 # Remove a single package |
pankso@13 | 51 remove() { |
pankso@13 | 52 altered="" |
pankso@17 | 53 for i in $(cd $installed ; ls); do |
pankso@17 | 54 [ -f $installed/$i/receipt ] || continue |
pankso@13 | 55 unset_receipt |
pankso@17 | 56 . $installed/$i/receipt |
pankso@13 | 57 case " $(echo $DEPENDS) " in |
pankso@13 | 58 *\ $pkg\ *) altered="$altered $i" ;; |
pankso@13 | 59 esac |
pankso@13 | 60 done |
pankso@13 | 61 unset_receipt |
pankso@17 | 62 . $installed/$pkg/receipt |
pankso@13 | 63 |
pankso@13 | 64 if [ -n "$altered" ]; then |
pankso@13 | 65 eval_gettext "The following packages depend on \$PACKAGE:"; echo |
pankso@13 | 66 for i in $altered; do |
pankso@13 | 67 echo " $i" |
pankso@13 | 68 done |
pankso@13 | 69 fi |
pankso@17 | 70 refresh=$(cd $installed ; grep -sl ^$PACKAGE$ */modifiers) |
pankso@13 | 71 if [ -n "$refresh" ]; then |
pankso@13 | 72 eval_gettext "The following packages have been modified by \$PACKAGE:"; echo |
pankso@13 | 73 for i in $refresh; do |
pankso@13 | 74 echo " ${i%/modifiers}" |
pankso@13 | 75 done |
pankso@13 | 76 fi |
pankso@13 | 77 |
pankso@13 | 78 # Do we have packages depending on $pkg ? |
pankso@13 | 79 if [ "$altered" ]; then |
pankso@13 | 80 if [ "$confirm" ]; then |
pankso@13 | 81 gettext "Remove packages depending on:"; echo -n " $PACKAGE" |
pankso@13 | 82 if ! confirm; then |
pankso@13 | 83 gettext "Keeping packages depending on:"; echo " $PACKAGE" |
pankso@13 | 84 echo -e "\n" && continue |
pankso@13 | 85 fi |
pankso@13 | 86 fi |
pankso@13 | 87 for i in $altered; do |
pankso@17 | 88 if [ -d "$installed/$i" ]; then |
pankso@13 | 89 # TODO: use spk-rm |
pankso@13 | 90 echo "tazpkg remove $i --root=$root" |
pankso@13 | 91 fi |
pankso@13 | 92 done |
pankso@13 | 93 fi |
pankso@13 | 94 |
pankso@13 | 95 # Handle pre_remove |
pankso@17 | 96 if grep -q ^pre_remove $installed/$PACKAGE/receipt; then |
pankso@13 | 97 pre_remove $root |
pankso@13 | 98 fi |
pankso@13 | 99 |
pankso@13 | 100 # Remove all files |
pankso@13 | 101 gettext "Removing all installed files..." |
pankso@13 | 102 [ "$verbose" ] && newline |
pankso@17 | 103 if [ -f $installed/$PACKAGE/modifiers ]; then |
pankso@17 | 104 for file in `cat $installed/$PACKAGE/files.list` |
pankso@13 | 105 do |
pankso@17 | 106 for mod in `cat $installed/$PACKAGE/modifiers` |
pankso@13 | 107 do |
pankso@17 | 108 [ -f $installed/$mod/files.list ] && \ |
pankso@17 | 109 [ $(grep "^$(echo $file | grepesc)$" $installed/$mod/files.list | wc -l) -gt 1 ] \ |
pankso@13 | 110 && continue 2 |
pankso@13 | 111 done |
pankso@17 | 112 [ "$verbose" ] && (gettext "Removing:"; echo -n " ${root}${file}") |
pankso@13 | 113 remove_file ${root}${file} |
pankso@13 | 114 done |
pankso@13 | 115 else |
pankso@17 | 116 for file in $(cat $installed/$PACKAGE/files.list) |
pankso@13 | 117 do |
pankso@17 | 118 [ "$verbose" ] && (gettext "Removing:"; echo -n " ${root}${file}") |
pankso@13 | 119 remove_file ${root}${file} |
pankso@13 | 120 [ "$verbose" ] && status |
pankso@13 | 121 done |
pankso@13 | 122 fi |
pankso@17 | 123 [ ! "$verbose" ] && status |
pankso@13 | 124 |
pankso@13 | 125 # Handle post_remove |
pankso@17 | 126 if grep -q ^post_remove $installed/$PACKAGE/receipt; then |
pankso@13 | 127 post_remove $root |
pankso@13 | 128 fi |
pankso@13 | 129 |
pankso@13 | 130 # Remove package receipt. |
pankso@13 | 131 gettext "Removing package receipt..." |
pankso@17 | 132 rm -rf $installed/$PACKAGE |
pankso@13 | 133 status |
pankso@13 | 134 sed -i "/ $PACKAGE-$VERSION$EXTRAVERSION$/d" \ |
pankso@13 | 135 ${root}${PKGS_DB}/installed.$SUM 2> /dev/null |
pankso@13 | 136 |
pankso@13 | 137 # Mofified ? |
pankso@13 | 138 if [ "$refresh" ]; then |
pankso@13 | 139 if [ "$confirm" ]; then |
pankso@13 | 140 gettext "Reinstall packages modified by:"; echo " $PACKAGE" |
pankso@13 | 141 if ! confirm; then |
pankso@13 | 142 gettext "Keeping packages modified by:"; echo " $PACKAGE" |
pankso@13 | 143 echo -e "\n" && continue |
pankso@13 | 144 fi |
pankso@13 | 145 fi |
pankso@13 | 146 for i in $refresh; do |
pankso@17 | 147 if [ $(wc -l < $installed/$i) -gt 1 ]; then |
pankso@13 | 148 gettext "For reinstallation check:"; echo " $installed/$i" |
pankso@13 | 149 continue |
pankso@13 | 150 fi |
pankso@13 | 151 # TODO: use spk-add |
pankso@17 | 152 rm -r $installed/$i |
pankso@13 | 153 tazpkg -gi ${i%/modifiers} --forced --root=$root |
pankso@13 | 154 done |
pankso@13 | 155 fi |
pankso@13 | 156 } |
pankso@13 | 157 |
pankso@8 | 158 # |
pankso@10 | 159 # Commands and exit |
pankso@8 | 160 # |
pankso@8 | 161 |
pankso@8 | 162 case "$1" in |
pankso@15 | 163 ""|*usage|*help) usage ;; |
pankso@8 | 164 esac |
pankso@10 | 165 |
pankso@10 | 166 # |
pankso@10 | 167 # Handle packages |
pankso@10 | 168 # |
pankso@10 | 169 |
pankso@19 | 170 : ${count=0} |
pankso@10 | 171 check_root |
pankso@10 | 172 |
pankso@10 | 173 for pkg in $@ |
pankso@10 | 174 do |
pankso@13 | 175 # Skip options |
pankso@13 | 176 case "$pkg" in |
pankso@13 | 177 --*) continue |
pankso@13 | 178 esac |
pankso@13 | 179 # Be sure package is installed |
pankso@17 | 180 if [ ! -f "$installed/$pkg/receipt" ]; then |
pankso@13 | 181 echo -n "$(boldify "$pkg") " |
pankso@13 | 182 gettext "package is not installed"; newline |
pankso@13 | 183 continue |
pankso@13 | 184 fi |
pankso@10 | 185 count=$(($count + 1)) |
pankso@13 | 186 [ "$count" == 1 ] && newline |
pankso@13 | 187 boldify $(gettext "Removing"; echo " $pkg") |
pankso@10 | 188 separator |
pankso@17 | 189 [ "$verbose" ] && echo "DB: $installed" |
pankso@10 | 190 # Handle --confirm |
pankso@10 | 191 if [ "$confirm" ]; then |
pankso@10 | 192 gettext "Confirm uninstallation of"; echo -n " $pkg:" |
pankso@10 | 193 if ! confirm; then |
paul@12 | 194 gettext "Uninstallation cancelled" |
pankso@13 | 195 echo -e "\n" && continue |
pankso@10 | 196 fi |
pankso@10 | 197 fi |
pankso@13 | 198 remove |
pankso@13 | 199 separator |
pankso@13 | 200 echo "" && log "Removed package: $pkg" |
pankso@10 | 201 done |
pankso@8 | 202 exit 0 |