spk annotate spk-rm @ rev 8
Add spk-rm (make it standard and then use it as skeleton for other tools), main spk tool will folow
| author | Christophe Lincoln <pankso@slitaz.org> |
|---|---|
| date | Fri May 11 17:04:26 2012 +0200 (2012-05-11) |
| parents | |
| children | 7cd8650b22ae |
| 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@8 | 9 #. /usr/lib/slitaz/libspk.sh |
| pankso@8 | 10 . lib/libspk.sh |
| pankso@8 | 11 |
| pankso@8 | 12 # |
| pankso@8 | 13 # Functions |
| pankso@8 | 14 # |
| pankso@8 | 15 |
| pankso@8 | 16 # Help and usage |
| pankso@8 | 17 usage() { |
| pankso@8 | 18 name=$(basename $0) |
| pankso@8 | 19 cat << EOT |
| pankso@8 | 20 |
| pankso@8 | 21 $(boldify $(gettext "Usage:")) [package|--option] [pkg2 ... pkgN|--opt2] |
| pankso@8 | 22 |
| pankso@8 | 23 $(boldify $(gettext "Options:")) |
| pankso@8 | 24 |
| pankso@8 | 25 $(boldify $(gettext "Examples:")) |
| pankso@8 | 26 |
| pankso@8 | 27 EOT |
| pankso@8 | 28 exit 0 |
| pankso@8 | 29 } |
| pankso@8 | 30 |
| pankso@8 | 31 # |
| pankso@8 | 32 # Commands |
| pankso@8 | 33 # |
| pankso@8 | 34 |
| pankso@8 | 35 case "$1" in |
| pankso@8 | 36 "") usage ;; |
| pankso@8 | 37 *) |
| pankso@8 | 38 count=0 |
| pankso@8 | 39 for pkg in $@ |
| pankso@8 | 40 do |
| pankso@8 | 41 [ -d "$installed/$pkg" ] || continue |
| pankso@8 | 42 count=$(($count + 1)) |
| pankso@8 | 43 [ "$count" == 1 ] && echo "" |
| pankso@8 | 44 gettext "Removing"; echo " $pkg" |
| pankso@8 | 45 separator |
| pankso@8 | 46 # Handle --confirm |
| pankso@8 | 47 if [ "$confirm" ]; then |
| pankso@8 | 48 gettext "Confirm uninstalltion of:"; echo " $pkg" |
| pankso@8 | 49 gettext "Anser [y|Y|yes] or [n|N|no] : " |
| pankso@8 | 50 # A read_anser function ? |
| pankso@8 | 51 read anser |
| pankso@8 | 52 case "$anser" in |
| pankso@8 | 53 y|Y|yes) ;; |
| pankso@8 | 54 *) |
| pankso@8 | 55 gettext "Uninstallation canceled" |
| pankso@8 | 56 echo -e "\n" && exit 0 ;; |
| pankso@8 | 57 esac |
| pankso@8 | 58 fi |
| pankso@8 | 59 gettext "TODO"; echo |
| pankso@8 | 60 done ;; |
| pankso@8 | 61 esac |
| pankso@8 | 62 exit 0 |