spk annotate spk-add @ rev 107

libspk.sh: Add extract_librarylist function. This is for my cookutils to extract the library.list file in tazpkg packages. Its not used in anything yet so it shouldn't break anything.
author Christopher Rogers <slaxemulator@gmail.com>
date Tue Jun 05 14:17:08 2012 +0000 (2012-06-05)
parents 0df5690de5fd
children d95be6d0e9b7
rev   line source
pankso@27 1 #!/bin/sh
meshca@11 2 #
pankso@23 3 # Spk-add - Install SliTaz packages. Read the README before adding or
pankso@23 4 # modifing any code in spk!
pankso@23 5 #
pankso@23 6 # Copyright (C) SliTaz GNU/Linux - BSD License
pankso@23 7 # Author: See AUTHORS files
pankso@23 8 #
pankso@50 9 . /usr/lib/slitaz/libspk.sh
meshca@11 10
pankso@23 11 #
pankso@23 12 # Functions
pankso@23 13 #
pankso@23 14
pankso@23 15 # Help and usage
pankso@23 16 usage() {
pankso@23 17 name=$(basename $0)
pankso@23 18 cat << EOT
pankso@23 19
pankso@23 20 $(boldify $(gettext "Usage:")) $name [packages|--options]
pankso@23 21
pankso@23 22 $(gettext "Install SliTaz Packages")
pankso@23 23
pankso@23 24 $(boldify $(gettext "Options:"))
pankso@30 25 --forced $(gettext "Force package reinstallation")
pankso@30 26 --root= $(gettext "Set the root file system path")
paul@98 27 --nodeps $(gettext "Don't resolve packages dependencies")
mojo@79 28 --debug $(gettext "Display some useful debug information")
pankso@23 29
pankso@23 30 $(boldify $(gettext "Examples:"))
pankso@23 31 $name package1 package2 packageN
pankso@23 32
pankso@23 33 EOT
pankso@23 34 exit 0
pankso@23 35 }
meshca@11 36
pankso@57 37 # Log install messages
meshca@70 38 # Parameters: package
pankso@57 39 log_install() {
meshca@70 40 local pkg=$1
pankso@57 41 debug "log_install: $logdir/$pkg/install.log"
pankso@57 42 mkdir -p $logdir/$pkg
pankso@57 43 tee $logdir/$pkg/install.log
pankso@57 44 }
pankso@57 45
pankso@29 46 # Update system databases
pankso@29 47 update_databases() {
pankso@34 48 if [ -f $root/usr/bin/update-desktop-database ] && [ -n "$updatedesktopdb" ]; then
pankso@34 49 chroot "$root/" /usr/bin/update-desktop-database /usr/share/applications 2>/dev/null
pankso@29 50 fi
pankso@29 51 # Mimetypes
pankso@34 52 if [ -f $root/usr/bin/update-mime-database ] && [ -n "$updatemimedb" ]; then
pankso@34 53 chroot "$root/" /usr/bin/update-mime-database /usr/share/mime
pankso@29 54 fi
pankso@29 55 # Icons
pankso@34 56 if [ -f $root/usr/bin/gtk-update-icon-cache ] && [ -n "$updateicondb" ]; then
pankso@34 57 chroot "$root/" /usr/bin/gtk-update-icon-cache /usr/share/icons/hicolor
pankso@29 58 fi
pankso@29 59 # Glib schemas
pankso@34 60 if [ -f $root/usr/bin/glib-compile-schemas ] && [ -n "$compile_schemas" ]; then
pankso@34 61 chroot "$root/" /usr/bin/glib-compile-schemas /usr/share/glib-2.0/schemas
pankso@29 62 fi
pankso@29 63 # Kernel modules
pankso@34 64 if [ -f $root/sbin/depmod ] && [ -n "$updatedepmod" ]; then
pankso@34 65 chroot "$root/" /sbin/depmod -a
pankso@29 66 fi
pankso@29 67 }
pankso@29 68
meshca@11 69 # This function installs a package in the rootfs.
meshca@11 70 # Parameters: package_name package_file
pankso@23 71 install_package() {
meshca@11 72 local package_file=$1
pankso@23 73
meshca@11 74 # Set by receipt: pre_depends() DEPENDS SELF_INSTALL CONFIG_FILES post_install()
pankso@23 75
meshca@11 76 local package_name=$PACKAGE
meshca@11 77 local package_dir="$installed/$package_name"
pankso@55 78 mkdir -p $package_dir || exit 1
meshca@11 79
meshca@11 80 # Run pre_depends from receipt if it exists
pankso@34 81 if grep -q ^pre_depends $tmpdir/receipt; then
pankso@34 82 pre_depends $root
meshca@11 83 fi
meshca@11 84
pankso@96 85 # Resolve package deps. Disable with: --nodeps
pankso@96 86 if missing_deps $package_name $DEPENDS && [ ! "$nodeps" ]; then
pankso@53 87 if [ "$confirm" ]; then
pankso@53 88 gettext "Install missing dependencies"
pankso@53 89 if ! confirm; then
pankso@53 90 gettext "WARNING: Any dependencies installed"; newline
pankso@96 91 else
pankso@96 92 install_deps $package_name $DEPENDS
pankso@53 93 fi
pankso@96 94 else
pankso@96 95 # Default is to install all missing deps
pankso@53 96 install_deps $package_name $DEPENDS
meshca@73 97 fi
pankso@53 98 else
pankso@53 99 newline
meshca@11 100 fi
pankso@23 101
pankso@57 102 boldify $(gettext "Adding"; echo " $package_name")
meshca@11 103 separator
pankso@66 104 gettext "Copying package..."
pankso@66 105 cp $package_file $tmpdir && status
pankso@89 106 cd $tmpdir
pankso@23 107
pankso@50 108 # Add package checksum to $installed.$SUM
pankso@53 109 if [ "$verbose" ]; then
pankso@53 110 gettext "Incrementing:"; echo -n " $(basename $installed.$SUM)"
pankso@53 111 fi
pankso@80 112 sed -i "/ $PACKAGE-$VERSION*/"d $installed.$SUM 2>/dev/null
pankso@50 113 $CHECKSUM $(basename $package_file) >> $installed.$SUM
pankso@50 114 [ "$verbose" ] && status
pankso@50 115
meshca@73 116 # Remove receipt that will be overwritten by extraction
meshca@73 117 rm $tmpdir/receipt
pankso@78 118
meshca@11 119 # Extract Package
pankso@80 120 #debug "extract_package $package_file $tmpdir"
meshca@71 121 extract_package $package_file $tmpdir
pankso@89 122
pankso@89 123 # Handle cross compiled packages
pankso@89 124 case "$SLITAZ_ARCH" in
pankso@89 125 arm|x86_64) arch="-${SLITAZ_ARCH}" ;;
pankso@89 126 esac
pankso@91 127 tmpdir="$tmpdir/$PACKAGE-${VERSION}${arch}"
pankso@23 128
meshca@11 129 # Get files to remove if upgrading
meshca@11 130 local files_to_remove
meshca@11 131 if [ -f $package_dir/files.list ]; then
pankso@32 132 for file in $(cat $package_dir/files.list)
pankso@32 133 do
pankso@54 134 grep -q "^$(echo $file | grepesc)$" $tmpdir/files.list && continue
pankso@32 135 local modifiers=$(cat $package_dir/modifiers 2> /dev/null; \
pankso@37 136 fgrep -sl $package_dir */modifiers | cut -d/ -f1)
meshca@11 137 for i in modifiers; do
pankso@54 138 grep -qs "^$(echo $file | grepesc)$" $i/files.list && continue 2
meshca@11 139 done
meshca@11 140 files_to_remove="$files_to_remove $file"
meshca@11 141 done
meshca@11 142 fi
meshca@43 143 debug "file_to_remove: $files_to_remove"
pankso@23 144
pankso@38 145 # Create list of all possibly modified files
meshca@11 146 local file_list
pankso@34 147 for i in $(fgrep -v [ $tmpdir/files.list); do
pankso@34 148 [ -e "${root}${i}" ] || continue
pankso@34 149 [ -d "${root}${i}" ] && continue
meshca@11 150 file_list="$file_list $i"
meshca@11 151 done
pankso@50 152
meshca@43 153 debug "file_list is set"
pankso@23 154
pankso@37 155 # Check possibly modified files against other packages files.list
meshca@43 156 debug "check modified files"
pankso@38 157 for file in $file_list
pankso@38 158 do
pankso@55 159 local filegrep=$(egrep ^${file}$ $installed/*/files.list)
pankso@38 160 if [ "$filegrep" ]; then
pankso@38 161 local list=$(echo $filegrep | cut -d ":" -f 1)
pankso@55 162 local count=0
meshca@44 163 for pkg_file in $list; do
meshca@44 164 local name=$(basename $(dirname $pkg_file))
pankso@55 165 [ "$package_name" == "$name" ] && continue 2
pankso@55 166 count=$(($count +1))
pankso@55 167 [ "$count" == "1" ] && gettext "Modified package:"; \
meshca@69 168 colorize 31 " $name"
pankso@55 169 gettext "Overwriting file:"; echo " $file"
pankso@55 170 # If confirm is set, ask to remove. Do we want that ?
pankso@55 171 # If gawk is installed for example we will never remove Busybox
pankso@55 172 # Use CONFLICTS receipt variable to avoid
pankso@55 173 if [ "$confirm" ]; then
meshca@100 174 echo -n "NOTE: confirm: spk-rm $name ???";
meshca@100 175 if ! confirm; then
meshca@100 176 exit 1
meshca@100 177 fi
meshca@44 178 fi
meshca@44 179 done
pankso@38 180 fi
pankso@38 181 done
pankso@23 182
pankso@34 183 cd $tmpdir || exit 1
pankso@55 184 cp receipt files.list $package_dir || exit 1
pankso@33 185
pankso@26 186 # Copy the description if found.
pankso@26 187 [ -f "description.txt" ] && cp description.txt $package_dir
pankso@23 188
pankso@26 189 # Pre install commands.
pankso@26 190 if grep -q ^pre_install $package_dir/receipt; then
pankso@34 191 pre_install $root
pankso@26 192 fi
pankso@23 193
pankso@26 194 # Handle Config Files from receipt
pankso@26 195 if [ -n "$CONFIG_FILES" ]; then
pankso@26 196 cd $fs || exit 1
pankso@26 197 # save 'official' configuration files
pankso@26 198 eval_gettext "Saving configuration files for \$package_name... "
pankso@23 199
pankso@26 200 local confs
pankso@26 201 for i in $CONFIG_FILES; do
pankso@26 202 confs="$confs $(find ${i#/} -type f 2> /dev/null)"
pankso@26 203 done
pankso@23 204
pankso@34 205 echo $confs | cpio -o -H newc --quiet | gzip -9 > \
pankso@34 206 $package_dir/volatile.cpio.gz
pankso@23 207
pankso@26 208 # keep user configuration files
pankso@34 209 for configfile in $confs; do
pankso@34 210 [ -e $configfile ] || continue
pankso@34 211 cp -a $configfile fs/$configfile
pankso@26 212 done
pankso@26 213 status
pankso@26 214 cd - >/dev/null
pankso@26 215 fi
pankso@66 216 # Merge package FS with $root
pankso@66 217 nb=$(cat files.list | wc -l)
pankso@66 218 gettext "Installing files:"; echo -n " $nb"
pankso@34 219 cp -a fs/* $root/
pankso@26 220 status
pankso@26 221
pankso@26 222 # Remove old config files
pankso@32 223 if [ "$files_to_remove" ]; then
pankso@66 224 gettext "Removing old files..."
pankso@26 225 for file in $files_to_remove; do
pankso@32 226 if [ "$verbose" ]; then
pankso@32 227 gettext "Removing:"; echo " ${root}${file}"
pankso@32 228 fi
pankso@32 229 remove_with_path ${root}${file}
pankso@26 230 done
meshca@11 231 status
pankso@26 232 fi
pankso@26 233 cd - >/dev/null
pankso@23 234
meshca@11 235 # Remove the temporary directory.
pankso@66 236 if [ "$verbose" ]; then
pankso@66 237 gettext "Removing all tmp files... "
pankso@66 238 rm -rf $tmpdir && status
pankso@66 239 else
pankso@66 240 rm -rf $tmpdir
pankso@66 241 fi
pankso@23 242
meshca@11 243 # Post install commands.
meshca@11 244 if grep -q ^post_install $package_dir/receipt; then
pankso@34 245 post_install $root
meshca@11 246 fi
pankso@23 247
meshca@11 248 # Update-desktop-database if needed.
meshca@11 249 if [ "$(fgrep .desktop $package_dir/files.list | fgrep /usr/share/applications/)" ]; then
meshca@11 250 updatedesktopdb=yes
meshca@11 251 fi
meshca@11 252 # Update-mime-database if needed.
meshca@11 253 if [ "$(fgrep /usr/share/mime $package_dir/files.list)" ]; then
meshca@11 254 updatemimedb=yes
meshca@11 255 fi
meshca@11 256 # Update-icon-database
meshca@11 257 if [ "$(fgrep /usr/share/icon/hicolor $package_dir/files.list)" ]; then
meshca@11 258 updateicondb=yes
meshca@11 259 fi
meshca@11 260 # Compile glib schemas if needed.
meshca@11 261 if [ "$(fgrep /usr/share/glib-2.0/schemas $package_dir/files.list)" ]; then
meshca@11 262 compile_schemas=yes
meshca@11 263 fi
meshca@11 264 # Update depmod list
meshca@11 265 if [ "$(fgrep /lib/modules $package_dir/files.list)" ]; then
meshca@11 266 updatedepmod=yes
meshca@11 267 fi
meshca@11 268 separator
pankso@57 269 echo -n "$package_name ${VERSION}${EXTRAVERSION} "
pankso@57 270 gettext "is installed"; newline
meshca@11 271 newline
meshca@11 272 }
meshca@11 273
meshca@11 274 # Install .tazpkg packages.
meshca@11 275 # Parameters: package_file
pankso@28 276 install_local() {
meshca@100 277 local package_file="$1"
pankso@55 278 #check_valid_tazpkg $package_file
pankso@55 279 if [ -f "$package_file" ]; then
pankso@55 280 if [ $(dirname $package_file) == "." ]; then
pankso@55 281 package_file=$(pwd)/$package_file
pankso@55 282 fi
pankso@55 283 debug "package file: $package_file"
pankso@55 284 else
pankso@55 285 gettext "Unable to find:"; echo " $package_file"
pankso@55 286 exit 1
pankso@55 287 fi
pankso@55 288
pankso@55 289 # Get package name now to check if installed
pankso@55 290 mkdir -p $tmpdir
pankso@55 291 extract_receipt $tmpdir $package_file
pankso@55 292 source $tmpdir/receipt
pankso@55 293 [ "$forced" ] || check_installed $PACKAGE
pankso@56 294 [ "$count" == "1" ] && newline
meshca@11 295 install_package $package_file
pankso@29 296 update_databases
meshca@11 297 }
meshca@11 298
meshca@11 299 # Download and install a package. TODO: Handle Undigest Mirrors
meshca@11 300 # Parameters: package_name
pankso@28 301 install_web() {
meshca@11 302 local package_name="$1"
meshca@11 303
meshca@11 304 # Check if get-Package
pankso@67 305 #if mirrored_pkg get-$package_name; then
pankso@67 306 #package_name="get-$package_name"
pankso@67 307 #exec=true
pankso@67 308 #fi
meshca@11 309
meshca@11 310 # Check if package is mirrored
pankso@68 311 mirrored_pkg $package_name
pankso@68 312 if [ ! "$mirrored" ]; then
pankso@63 313 gettext "Could not find package on mirror:"
pankso@63 314 boldify " $package_name" && exit 1
meshca@11 315 fi
meshca@11 316
pankso@66 317 # We want: package-version.tazpkg
pankso@91 318 local package_full=$(full_package ${package_name})
pankso@91 319
pankso@91 320 # Add architecture string to package full name
pankso@91 321 case "$SLITAZ_ARCH" in
pankso@91 322 arm|x86_64)
pankso@91 323 pkgarch="-${SLITAZ_ARCH}.tazpkg"
pankso@91 324 package_full=$(echo $package_full | sed s/.tazpkg/$pkgarch/) ;;
pankso@91 325 esac
pankso@23 326
paul@98 327 # Lets fetch the package by download()
pankso@68 328 [ "$count" == 1 ] && newline
pankso@67 329 debug "spk-add package: $package_name"
pankso@67 330 download "$package_full" $mirror
pankso@68 331 cd $CACHE_DIR
pankso@23 332
pankso@55 333 # Create package path early to avoid dependencies loop
pankso@55 334 mkdir -p $tmpdir
pankso@66 335 extract_receipt $tmpdir "$CACHE_DIR/$package_full"
pankso@55 336 source $tmpdir/receipt
pankso@55 337
pankso@66 338 install_package "$CACHE_DIR/$package_full"
pankso@23 339
pankso@63 340 #[ "$exec" ] && chroot $root/ $package_name
pankso@63 341 [ "$exec" ] && $package_name $root
pankso@29 342 update_databases
pankso@68 343 unset_mirrored
meshca@11 344 }
meshca@11 345
pankso@53 346 # Install all missing deps of a package.
pankso@53 347 # Usage: install_deps package DEPENDS
meshca@11 348 install_deps() {
meshca@11 349 local package=$1
meshca@11 350 shift
meshca@11 351 local deps="$@"
pankso@53 352 for pkgorg in $deps; do
pankso@53 353 local pkg=$(equivalent_pkg $pkgorg)
pankso@53 354 # Check if package is not installed
pankso@53 355 if [ ! -d "$installed/$pkg" ]; then
pankso@66 356 if [ ! -f "$pkgsdesc" ]; then
pankso@80 357 spk-up --list
meshca@11 358 fi
pankso@53 359 spk-add $pkg
pankso@53 360 fi
pankso@53 361 done
meshca@11 362 }
meshca@11 363
pankso@30 364 #
pankso@30 365 # Commands and exit
pankso@30 366 #
pankso@30 367
pankso@30 368 case "$1" in
pankso@30 369 ""|*usage|*help) usage ;;
meshca@11 370 esac
pankso@24 371
pankso@28 372 #
pankso@28 373 # Handle packages: package package.tazpkg ... packageN packageN.tazpkg
pankso@28 374 #
pankso@28 375
pankso@51 376 : ${count=0}
pankso@28 377 check_root
pankso@28 378
pankso@24 379 for pkg in $@
pankso@24 380 do
pankso@28 381 case "$pkg" in
pankso@30 382 *.tazpkg|*.spk)
pankso@56 383 count=$(($count + 1))
meshca@70 384 install_local $pkg | log_install $pkg;;
meshca@100 385 *.deb|.rpm)
pankso@55 386 echo "TODO: spk-convert then install" ;;
pankso@55 387 *.*) gettext "WARNING: Not a valid package:"; echo " $pkg" ;;
pankso@30 388 --*) continue ;;
pankso@30 389 *)
pankso@30 390 [ "$forced" ] || check_installed $pkg
pankso@39 391 count=$(($count + 1))
meshca@70 392 install_web $pkg | log_install $pkg;;
pankso@28 393 esac
pankso@24 394 done
pankso@56 395
pankso@56 396 # Show all new counted packages in verbose mode
pankso@56 397 if [ "$verbose" ]; then
meshca@69 398 gettext "Handled packages:"; colorize 34 " $count"
pankso@56 399 fi
pankso@56 400
pankso@24 401 exit 0