tazpkg annotate tazpkg @ rev 845

install: rebuild fs/ tree respecting destination symlinks before installing files and folders to filesystem
author Aleksej Bobylev <al.bobylev@gmail.com>
date Tue Oct 06 15:46:41 2015 +0300 (2015-10-06)
parents 0560ba4306a1
children 8a73a58ed3cb
rev   line source
pankso@6 1 #!/bin/sh
pankso@646 2 #
al@795 3 # TazPkg - Tiny autonomous zone packages manager.
pankso@6 4 #
paul@662 5 # This is a lightweight packages manager for *.tazpkg files written in SHell
al@795 6 # script. It works well with Busybox ash shell and bash. TazPkg lets you
pankso@646 7 # list, install, remove, download or get information about a package. You
pankso@646 8 # can use 'tazpkg usage' to get a list of commands with short descriptions.
al@795 9 # TazPkg also resolves dependencies and can upgrade packages from a mirror.
pankso@6 10 #
al@757 11 # (C) 2007-2015 SliTaz - GNU General Public License v3.
pankso@6 12 #
al@633 13 # Authors: See the AUTHORS files
pankso@27 14 #
pankso@6 15
al@795 16
pankso@6 17 ####################
pankso@6 18 # Script variables #
pankso@6 19 ####################
pankso@6 20
slaxemulator@588 21 . /etc/slitaz/slitaz.conf
pankso@307 22 . /etc/slitaz/tazpkg.conf
pankso@6 23
pankso@590 24 . /lib/libtaz.sh
pankso@661 25 . /usr/lib/slitaz/libpkg.sh
al@825 26 . @@MODULES@@/find-depends
pankso@590 27
pankso@595 28 # Internationalization.
al@694 29 export TEXTDOMAIN='tazpkg'
al@707 30 _() { local T="$1"; shift; printf "$(gettext "$T")" "$@"; echo; }
al@707 31 _n() { local T="$1"; shift; printf "$(gettext "$T")" "$@"; }
al@707 32 _p() {
al@811 33 local S="$1" P="$2" N="$3"; shift 3;
al@707 34 printf "$(ngettext "$S" "$P" "$N")" "$@"; }
al@694 35
pankso@343 36
al@834 37
al@834 38
al@834 39 # Remove all --parameters from cmdline
al@834 40 #-------------------------------------
al@834 41 # (thanks to libtaz.sh all --parameters are already set to variables)
al@834 42
al@834 43 IFS=$'\n'
al@834 44 set -- $(echo "$*" | sed '/^--/d')
al@834 45 unset IFS
al@834 46
al@834 47
pankso@307 48 # Initialize some variables to use words rather than numbers for functions
pankso@307 49 # and actions.
al@804 50
al@804 51 COMMAND="$1"
al@804 52 PACKAGE="${2%/}"
al@812 53 PACKAGE_DIR="$(cd $(dirname "$PACKAGE" 2>/dev/null) 2>/dev/null; pwd)"
al@694 54 [ -n "$PACKAGE" ] && PACKAGE_FILE="$PACKAGE_DIR/${PACKAGE##*/}"
pascal@427 55 if [ -f "$PACKAGE" ]; then
pankso@10 56 # Set pkg basename for install, extract
al@812 57 PACKAGE="$(basename "$PACKAGE" .tazpkg 2>/dev/null)"
pankso@10 58 else
pankso@10 59 # Pkg name for remove, search and all other cmds
al@804 60 PACKAGE="${PACKAGE%.tazpkg}"
pankso@10 61 fi
al@804 62 TARGET_DIR="$3"
al@840 63 export TOP_DIR="$(pwd)"
al@804 64 TMP_DIR="/tmp/$RANDOM"
al@804 65 INSTALL_LIST=''
gokhlayeh@419 66 SAVE_CACHE_DIR="$CACHE_DIR"
pankso@6 67
pankso@6 68 # Path to tazpkg used dir and configuration files
al@804 69 MIRROR="$PKGS_DB/mirror"
al@840 70 BLOCKED="$PKGS_DB/blocked-packages.list"
al@840 71 UP_LIST="$PKGS_DB/packages.up"
slaxemulator@588 72 DEFAULT_MIRROR="$ONLINE_PKGS"
pankso@6 73
al@811 74 # TazPkg version
al@844 75 export VERSION=$(awk -F$'\t' '$1=="tazpkg"{print $2}' "$PKGS_DB/installed.info")
al@811 76 # User Agent
al@836 77 export UA="TazPkg-$VERSION"
al@811 78
al@844 79
pascal@515 80
al@694 81
pankso@6 82 ####################
pankso@6 83 # Script functions #
pankso@6 84 ####################
pankso@6 85
al@694 86
al@717 87 # Interactive mode
al@717 88
al@717 89 im() { tty -s; }
al@717 90
al@717 91
al@844 92 # Show debug messages
al@844 93 debug() { if [ -n "$debug" ]; then colorize 036 "$@" >&2; fi; }
al@844 94
al@844 95
paul@662 96 # Check if dir exists
al@694 97
al@803 98 check_dir() {
al@811 99 if [ ! -d "$1" ]; then
al@707 100 action 'Creating folder "%s"...' "$1"
al@707 101 mkdir -p "$1"
pankso@584 102 status
pankso@584 103 return 1
pankso@584 104 fi
pankso@584 105 }
pankso@584 106
al@694 107
al@803 108 # Check if the directories and files used by TazPkg exist.
al@803 109 # If not and user is root we create them.
al@803 110
al@803 111 check_base_dir() {
al@805 112 if [ "$(id -u)" == '0' ]; then
pankso@590 113 check_dir $1$CACHE_DIR
pankso@590 114 check_dir $1$INSTALLED
pankso@594 115 check_dir $1$SLITAZ_LOGS
al@700 116 if [ ! -f "$1$PKGS_DB/mirror" ]; then
al@700 117 echo "${DEFAULT_MIRROR%/}/" > $1$PKGS_DB/mirror
al@700 118 [ -n "$1" ] && cp $PKGS_DB/packages.* $1$PKGS_DB/
pankso@590 119 fi
pankso@590 120 fi
pankso@590 121 }
pankso@590 122 check_base_dir
pankso@590 123
al@694 124
al@694 125
al@844 126
al@844 127 # Check commandline for tazpkg syntax
al@844 128
al@844 129 check_cmd() {
al@844 130 for i in $@; do
al@844 131 case $i in
al@844 132 su)
al@844 133 check_root "$COMMAND"; continue;;
al@844 134 pkg)
al@844 135 [ -n "$PACKAGE" -o -n "$list" ] && continue
al@844 136 newline; _ 'Please specify a package name on the command line.';;
al@844 137 list)
al@844 138 [ -n "$PACKAGE" ] && continue
al@844 139 newline; _ 'Please specify a list name on the command line.';;
al@844 140 flavor)
al@844 141 [ -n "$PACKAGE" ] && continue
al@844 142 newline; _ 'Please specify a flavor name on the command line.';;
al@844 143 release)
al@844 144 [ -n "$PACKAGE" ] && continue
al@844 145 newline; _ 'Please specify a release name on the command line.';;
al@844 146 file)
al@844 147 [ -f "$PACKAGE_FILE" ] && continue
al@844 148 newline; _ 'Unable to find file "%s"' "$PACKAGE_FILE";;
al@844 149 dir)
al@844 150 [ -d "$TARGET_DIR" ] && continue
al@844 151 newline; _ 'Please specify an existing folder name on the command line.';;
al@844 152 pattern)
al@844 153 [ -n "$PACKAGE" ] && continue
al@844 154 newline; _ 'Please specify a pattern to search for.';;
al@844 155 receipt)
al@844 156 [ -f "$INSTALLED/$PACKAGE/receipt" ] && continue
al@844 157 newline; _ 'Unable to find the receipt "%s"' "$INSTALLED/$PACKAGE/receipt";;
al@844 158 esac
al@844 159 tazpkg -h "$COMMAND"
al@707 160 exit 1
al@842 161 done
gokhlayeh@386 162 }
gokhlayeh@386 163
al@694 164
al@844 165 # List support for getting/installing packages listed in the file
al@844 166 process_list() {
al@844 167 debug "\nprocess_list()\n list='$list'"
al@844 168 local tmp_list pkg
al@694 169
al@844 170 [ -z "$list" ] && return
al@844 171
al@844 172 tmp_list="$(mktemp)"
al@844 173 cp "$list" "$tmp_list"
al@844 174 debug " tmp_list='$tmp_list'"
al@844 175
al@844 176 # Upgrade tazpkg first. It may handle new features/formats...
al@844 177 # then upgrade essential packages early
al@844 178 debug ' process important packages...'
al@844 179 for pkg in busybox-pam busybox gcc-lib-base glibc-base slitaz-base-files tazpkg; do
al@844 180 debug " pkg='$pkg'"
al@844 181 pkg=$(grep "^$pkg" "$tmp_list")
al@844 182 [ -z "$pkg" ] && continue
al@844 183 # Specify here empty list to prevent looping while recursive calls
al@844 184 debug " tazpkg $COMMAND '$pkg' --list=''"
al@844 185 tazpkg $COMMAND "$pkg" --list=''
al@844 186 sed -i "/^$pkg$/d" "$tmp_list"
al@844 187 done
al@844 188
al@844 189 # Process the rest of the list
al@844 190 debug ' process the rest...'
al@844 191 for pkg in $(cat "$tmp_list"); do
al@844 192 debug "tazpkg $COMMAND '$pkg' --list=''"
al@844 193 tazpkg $COMMAND "$pkg" --list=''
al@844 194 done
al@844 195
al@844 196 # Clean
al@844 197 rm "$tmp_list"
al@844 198 debug ' END: process_list()'
pascal@110 199 }
pascal@110 200
al@694 201
al@694 202
pascal@110 203
al@844 204 # Shared functions
al@844 205 # ----------------
al@694 206
al@844 207 # Log TazPkg activity
al@694 208
al@803 209 log_pkg() {
pascal@207 210 local extra
al@694 211
al@804 212 [ "$1" == 'Installed' ] && \
al@827 213 extra=" - $(fgrep " $PACKAGE-$VERSION" $PKGS_DB/installed.$SUM | awk '{ print $1 }')"
al@694 214
al@804 215 [ -e "$LOG" ] || touch $LOG
al@804 216
al@804 217 [ -w "$LOG" ] &&
al@694 218 echo "$(date +'%F %T') - $1 - $PACKAGE ($VERSION$EXTRAVERSION)$extra" >> $LOG
pascal@183 219 }
pascal@183 220
al@694 221
pascal@297 222 # Extract a package with cpio and gzip/lzma.
al@694 223
al@803 224 extract_package() {
al@702 225 action 'Extracting package...'
al@813 226 cpio -idm --quiet < "${PACKAGE_FILE##*/}" && rm -f "${PACKAGE_FILE##*/}"
pascal@297 227 if [ -f fs.cpio.lzma ]; then
pascal@816 228 unlzma < fs.cpio.lzma | cpio -idm --quiet && rm fs.cpio.lzma
gokhlayeh@355 229 elif [ -f fs.cpio.gz ]; then
gokhlayeh@383 230 zcat fs.cpio.gz | cpio -idm --quiet && rm fs.cpio.gz
pascal@297 231 fi
al@814 232 status
pankso@6 233 }
pankso@6 234
al@694 235
al@844 236 # Translate category names (must be last in line)
pankso@598 237
al@844 238 translate_category() {
al@844 239 sed "s|base-system$|$(_ base-system)|g; s|x-window$|$(_ x-window)|g;
al@844 240 s|utilities$|$(_ utilities)|g; s|network$|$(_ network)|g;
al@844 241 s|graphics$|$(_ graphics)|g; s|multimedia$|$(_ multimedia)|g;
al@844 242 s|office$|$(_ office)|g; s|development$|$(_ development)|g;
al@844 243 s|system-tools$|$(_ system-tools)|g; s|security$|$(_ security)|g;
al@844 244 s|games$|$(_ games)|g; s|misc$|$(_ misc)|g; s|meta$|$(_ meta)|g;
al@844 245 s|non-free$|$(_ non-free)|g"
pascal@299 246 }
pascal@299 247
al@694 248
al@844 249 # If category is not one of those translated in native language, keep it
al@844 250 # untranslated. This allows both native and English language support.
al@844 251 # This also supports custom categories.
al@844 252 # And now we support spaces in translated categories
al@844 253
al@844 254 reverse_translate_category() {
al@844 255 echo "$cat_i18n" | awk "BEGIN{FS=\" \"}{if (/^$@ /) a=\$2}END{if (a==\"\") a=\"$@\"; print a}"
pascal@377 256 }
pascal@377 257
al@844 258 # END: Shared functions
slaxemulator@588 259
al@694 260
al@694 261
al@694 262
pankso@6 263 ###################
al@803 264 # TazPkg commands #
pankso@6 265 ###################
pankso@6 266
pankso@6 267 case "$COMMAND" in
al@842 268 call)
al@842 269 # Call internal tazpkg function from external tazpkg module or other script.
al@842 270 # Useful for functions sharing.
al@842 271 shift
al@842 272 # Check to call only tazpkg functions
al@842 273 fgrep -q "$1()" "$0" && $@
al@842 274 ;;
al@842 275
al@842 276
pankso@504 277 list|-l)
al@828 278 # Various lists
al@603 279 shift
al@701 280 case $1 in
al@844 281 b|blocked) @@MODULES@@/list blocked;;
al@828 282 c|cat|categories) @@MODULES@@/list categories;;
al@844 283 l|linked) @@MODULES@@/list linked;;
al@844 284 '') @@MODULES@@/list installed;;
al@840 285 *) @@MODULES@@/list installed_of_category "$@";;
pankso@53 286 esac
al@603 287 ;;
al@844 288 -lb) @@MODULES@@/list blocked;;
al@828 289 -lc) @@MODULES@@/list categories;;
al@844 290 -ll) @@MODULES@@/list linked;;
al@828 291
al@844 292 -lm|list-mirror) @@MODULES@@/list mirrored;;
al@844 293 -lf|list-files) check_cmd pkg; @@MODULES@@/list installed_files "$PACKAGE";;
al@844 294 -a|activity|log) @@MODULES@@/list activity;;
al@844 295 list-config) @@MODULES@@/list config_files "$2";;
al@844 296 list-suggested) @@MODULES@@/list suggested;;
al@828 297
al@828 298
al@844 299 # Information about package
al@828 300 info)
al@844 301 check_cmd pkg; @@MODULES@@/info "$2";;
al@694 302
al@694 303
al@811 304 desc|-d)
al@717 305 # Display package description
al@844 306 check_cmd pkg; @@MODULES@@/description "$2";;
al@694 307
al@694 308
al@844 309 search|-s|-si|-sl|-sm)
pankso@6 310 # Search for a package by pattern or name.
al@844 311 check_cmd pattern
al@834 312
al@840 313 # Extend short options to long analogs
al@844 314 for i in $@; do
al@844 315 case "$i" in
al@844 316 -i|-si) export installed='yes';;
al@844 317 -l|-sl) export list='yes';;
al@844 318 -m|-sm) export mirror='yes';;
al@844 319 esac
al@844 320 done
al@834 321
al@840 322 @@MODULES@@/search pkg "$2"
al@834 323 ;;
al@694 324
al@694 325
pankso@593 326 search-file|-sf)
pankso@12 327 # Search for a file by pattern or name in all files.list.
al@844 328 check_cmd pattern; @@MODULES@@/search file "$2";;
al@694 329
al@694 330
al@811 331 search-pkgname|-sp)
pankso@344 332 # Search for a package name
al@844 333 check_cmd pattern; @@MODULES@@/search file2 "$2";;
al@694 334
al@694 335
pankso@76 336 add-flavor)
pascal@74 337 # Install a set of packages from a flavor.
al@844 338 check_cmd su flavor; shift; @@MODULES@@/flavor $@;;
pankso@76 339 install-flavor)
pascal@74 340 # Install a set of packages from a flavor and purge other ones.
al@844 341 check_cmd su flavor; shift; purge='yes' @@MODULES@@/flavor $@;;
al@694 342
al@694 343
pankso@76 344 set-release)
paul@662 345 # Change current release and upgrade packages.
al@844 346 check_cmd su release
al@844 347 @@MODULES@@/set-release "$2";;
al@694 348
al@694 349
pankso@504 350 remove|-r)
pankso@6 351 # Remove packages.
al@844 352 check_cmd su pkg; shift; @@MODULES@@/remove $@;;
al@844 353 # TODO: remove multiple packages
al@694 354
al@694 355
pankso@600 356 extract|-e)
pankso@6 357 # Extract .tazpkg cpio archive into a directory.
al@844 358 check_cmd pkg file; shift; @@MODULES@@/extract $@;;
al@694 359
al@694 360
pascal@297 361 recompress)
pascal@297 362 # Recompress .tazpkg cpio archive with lzma.
al@844 363 check_cmd su pkg file; @@MODULES@@/recompress "$PACKAGE_FILE";;
al@694 364
al@694 365
pascal@139 366 repack-config)
pascal@137 367 # Create SliTaz package archive from configuration files.
al@844 368 check_cmd su; @@MODULES@@/repack-config;;
al@694 369
al@694 370
pascal@18 371 repack)
MikeDSmith25@135 372 # Create SliTaz package archive from an installed package.
al@844 373 check_cmd pkg receipt; shift; @@MODULES@@/repack $@;;
al@694 374
al@694 375
pankso@6 376 pack)
pankso@600 377 # Create SliTaz package archive using cpio and lzma.
pankso@600 378 # TODO: Cook also pack packages, we should share code in libpkg.sh
al@844 379 check_cmd pkg; shift; @@MODULES@@/pack $@;;
al@694 380
al@694 381
pankso@6 382 recharge)
al@803 383 # Recharge packages databases from a mirror.
pankso@581 384 #
al@694 385 # WARNING: The 'mirrors' file has all SliTaz mirrors but 'mirror'
paul@607 386 # must have only the chosen main mirror.
pankso@581 387 #
al@844 388 check_cmd su; shift; @@MODULES@@/recharge $@;;
al@694 389
al@694 390
al@603 391 up|upgrade)
paul@476 392 # This is the new way to upgrade packages making 'upgrade' and
pankso@466 393 # upgradeable out-of-date. This new way is much, much more faster!
paul@476 394 # Look into installed packages and get data from receipt, it is fast
paul@476 395 # and easy to handle vars after using only md5sum to compare packages
pankso@598 396 #
al@844 397 check_cmd su
al@691 398 for opt in $@; do
pankso@466 399 case "$opt" in
al@836 400 -i) export install='yes';;
al@836 401 -c) export check='yes';;
pankso@466 402 esac
pankso@466 403 done
al@834 404
al@836 405 @@MODULES@@/upgrade
al@834 406 ;;
al@694 407
al@694 408
pascal@152 409 bugs)
pascal@152 410 # Show known bugs in package(s)
al@844 411 shift; @@MODULES@@/bugs $@;;
al@694 412
al@694 413
pascal@25 414 check)
MikeDSmith25@135 415 # Check installed packages set.
al@844 416 shift; @@MODULES@@/check $@;;
pankso@598 417
pankso@598 418
al@840 419 block|-b|unblock|-u|chblock)
al@840 420 # Add/remove a pkg name to the list of blocked packages.
al@844 421 check_cmd su pkg; @@MODULES@@/block $@;;
al@694 422
al@694 423
al@785 424 get|-g)
al@603 425 # Download a package with wget.
al@844 426 check_cmd pkg; shift
al@844 427 # Get all the packages given on command line
al@844 428 export nocache='yes'
al@844 429 for i in $@; do
al@844 430 pkg="$(@@MODULES@@/get $i)" && _ 'Done: %s' "${pkg##*/}"
al@844 431 done
al@844 432 # Get all the packages listed in the file
al@844 433 process_list
al@844 434 ;;
pankso@598 435
pankso@598 436
al@844 437 install|-i)
al@844 438 # Install .tazpkg packages.
al@844 439 check_cmd su pkg file; shift
al@844 440 for i in $@; do
al@844 441 @@MODULES@@/install $i
al@844 442 done
al@844 443 # Install all the packages listed in the file
al@844 444 process_list
al@811 445 ;;
al@694 446
al@694 447
pankso@504 448 get-install|-gi)
pankso@6 449 # Download and install a package.
al@844 450 check_cmd su pkg; shift
al@844 451 # Get and install all the packages given on command line
al@844 452 for i in $@; do
al@844 453 pkg="$(@@MODULES@@/get $i)" && @@MODULES@@/install "$pkg"
al@844 454 done
al@844 455 # Get and install all the packages listed in the file
al@844 456 process_list
al@844 457 ;;
pankso@598 458
al@811 459
al@844 460 get-list|install-list|get-install-list)
al@844 461 # Install a set of packages from a list.
al@844 462 check_cmd su list file
al@844 463 COMMAND=${COMMAND%-list}
al@844 464 export list="$2"
al@844 465 process_list
al@844 466 ;;
al@694 467
al@694 468
pankso@504 469 clean-cache|-cc)
pankso@6 470 # Remove all downloaded packages.
al@844 471 check_cmd su; @@MODULES@@/cache clean;;
al@694 472
al@694 473
pascal@187 474 list-undigest)
al@840 475 # List undigest mirrors
al@844 476 @@MODULES@@/mirror list;;
pascal@187 477 remove-undigest)
al@840 478 # Remove undigest mirror
al@844 479 check_cmd su; shift; @@MODULES@@/mirror remove $@;;
al@840 480 add-undigest|setup-undigest)
al@840 481 # Add undigest mirror
al@844 482 check_cmd su; shift; @@MODULES@@/mirror add $@;;
al@840 483 setup-mirror|-sm)
al@840 484 # Change main mirror
al@844 485 check_cmd su; shift; @@MODULES@@/mirror setup $@;;
al@694 486
al@694 487
erjo@56 488 reconfigure)
erjo@56 489 # Replay post_install from receipt
al@844 490 check_cmd su pkg receipt; @@MODULES@@/reconfigure "$2";;
al@694 491
al@694 492
pankso@55 493 shell)
al@811 494 # TazPkg SHell
al@811 495 if [ "$(id -u)" -eq 0 ]; then
pankso@55 496 PROMPT="\\033[1;33mtazpkg\\033[0;39m# "
pankso@55 497 else
pankso@55 498 PROMPT="\\033[1;33mtazpkg\\033[0;39m> "
pankso@55 499 fi
al@834 500 if [ -z "$noheader" ]; then
pankso@55 501 clear
al@811 502 title 'TazPkg SHell.'
al@694 503 _ "Type 'usage' to list all available commands or 'quit' or 'q' to exit."
pankso@600 504 newline
pankso@55 505 fi
al@694 506 while true; do
pankso@55 507 echo -en "$PROMPT"; read cmd
pankso@55 508 case $cmd in
pankso@55 509 q|quit)
pankso@55 510 break ;;
pankso@55 511 shell)
al@811 512 _ 'You are already running a TazPkg SHell.' ;;
pankso@55 513 su)
pankso@55 514 su -c 'exec tazpkg shell --noheader' && break ;;
pankso@55 515 "")
pankso@55 516 continue ;;
pankso@55 517 *)
pankso@55 518 tazpkg $cmd ;;
pankso@55 519 esac
pankso@309 520 done ;;
al@694 521
al@694 522
pascal@205 523 depends)
paul@247 524 # Display dependencies tree
al@844 525 check_cmd pkg; shift; @@MODULES@@/depends depends $@;;
pascal@205 526 rdepends)
paul@247 527 # Display reverse dependencies tree
al@844 528 check_cmd pkg; shift; @@MODULES@@/depends rdepends $@;;
al@694 529
al@694 530
pankso@504 531 convert|-c)
pascal@262 532 # convert misc package format to .tazpkg
al@844 533 check_cmd file; shift; @@MODULES@@/convert $@;;
al@694 534
al@694 535
pascal@263 536 link)
al@840 537 # link a package from another SliTaz installation
al@844 538 check_cmd su pkg dir; shift; @@MODULES@@/link $@;;
al@694 539
al@694 540
al@811 541 help|-h)
al@811 542 # TazPkg help system
al@840 543 shift; @@MODULES@@/help $@
al@840 544 ;;
al@811 545
al@811 546
al@824 547 mkdb)
al@824 548 # Make TazPkg database
al@840 549 shift; @@MODULES@@/mkdb $@
al@840 550 ;;
al@824 551
al@824 552
al@820 553 '')
al@820 554 # Default to summary
al@840 555 @@MODULES@@/summary
al@820 556 ;;
al@820 557
al@820 558
pankso@6 559 usage|*)
pascal@119 560 # Print a short help or give usage for an unknown or empty command.
al@844 561 @@MODULES@@/help
al@844 562 ;;
pankso@6 563 esac
pankso@6 564
pankso@6 565 exit 0