spk annotate spk-add @ rev 135

Add spk-find, update doc
author Christophe Lincoln <pankso@slitaz.org>
date Sat Mar 29 01:54:30 2014 +0100 (2014-03-29)
parents 365a7811faf7
children 2a83ddd0845a
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
paul@131 4 # modifying 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
slaxemulator@123 117 [ -f $tmpdir/receipt ] && 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@120 229 #remove_file ${root}${file}
pankso@120 230 rm -f ${root}${file} 2>/dev/null
pankso@120 231 rmdir ${root}${file} 2> /dev/null
pankso@26 232 done
meshca@11 233 status
pankso@26 234 fi
pankso@26 235 cd - >/dev/null
pankso@23 236
meshca@11 237 # Remove the temporary directory.
pankso@66 238 if [ "$verbose" ]; then
pankso@66 239 gettext "Removing all tmp files... "
pankso@66 240 rm -rf $tmpdir && status
pankso@66 241 else
pankso@66 242 rm -rf $tmpdir
pankso@66 243 fi
pankso@23 244
meshca@11 245 # Post install commands.
meshca@11 246 if grep -q ^post_install $package_dir/receipt; then
pankso@34 247 post_install $root
meshca@11 248 fi
pankso@23 249
meshca@11 250 # Update-desktop-database if needed.
meshca@11 251 if [ "$(fgrep .desktop $package_dir/files.list | fgrep /usr/share/applications/)" ]; then
meshca@11 252 updatedesktopdb=yes
meshca@11 253 fi
meshca@11 254 # Update-mime-database if needed.
meshca@11 255 if [ "$(fgrep /usr/share/mime $package_dir/files.list)" ]; then
meshca@11 256 updatemimedb=yes
meshca@11 257 fi
meshca@11 258 # Update-icon-database
meshca@11 259 if [ "$(fgrep /usr/share/icon/hicolor $package_dir/files.list)" ]; then
meshca@11 260 updateicondb=yes
meshca@11 261 fi
meshca@11 262 # Compile glib schemas if needed.
meshca@11 263 if [ "$(fgrep /usr/share/glib-2.0/schemas $package_dir/files.list)" ]; then
meshca@11 264 compile_schemas=yes
meshca@11 265 fi
meshca@11 266 # Update depmod list
meshca@11 267 if [ "$(fgrep /lib/modules $package_dir/files.list)" ]; then
meshca@11 268 updatedepmod=yes
meshca@11 269 fi
meshca@11 270 separator
pankso@57 271 echo -n "$package_name ${VERSION}${EXTRAVERSION} "
pankso@57 272 gettext "is installed"; newline
meshca@11 273 newline
meshca@11 274 }
meshca@11 275
meshca@11 276 # Install .tazpkg packages.
meshca@11 277 # Parameters: package_file
pankso@28 278 install_local() {
meshca@100 279 local package_file="$1"
pankso@55 280 #check_valid_tazpkg $package_file
pankso@55 281 if [ -f "$package_file" ]; then
pankso@55 282 if [ $(dirname $package_file) == "." ]; then
pankso@55 283 package_file=$(pwd)/$package_file
pankso@55 284 fi
pankso@55 285 debug "package file: $package_file"
pankso@55 286 else
pankso@55 287 gettext "Unable to find:"; echo " $package_file"
pankso@55 288 exit 1
pankso@55 289 fi
pankso@55 290
pankso@55 291 # Get package name now to check if installed
pankso@55 292 mkdir -p $tmpdir
pankso@55 293 extract_receipt $tmpdir $package_file
pankso@55 294 source $tmpdir/receipt
pankso@55 295 [ "$forced" ] || check_installed $PACKAGE
pankso@56 296 [ "$count" == "1" ] && newline
meshca@11 297 install_package $package_file
pankso@29 298 update_databases
meshca@11 299 }
meshca@11 300
meshca@11 301 # Download and install a package. TODO: Handle Undigest Mirrors
meshca@11 302 # Parameters: package_name
pankso@28 303 install_web() {
meshca@11 304 local package_name="$1"
meshca@11 305
meshca@11 306 # Check if get-Package
pankso@67 307 #if mirrored_pkg get-$package_name; then
pankso@67 308 #package_name="get-$package_name"
pankso@67 309 #exec=true
pankso@67 310 #fi
meshca@11 311
meshca@11 312 # Check if package is mirrored
pankso@68 313 mirrored_pkg $package_name
pankso@68 314 if [ ! "$mirrored" ]; then
pankso@63 315 gettext "Could not find package on mirror:"
pankso@63 316 boldify " $package_name" && exit 1
meshca@11 317 fi
meshca@11 318
pankso@66 319 # We want: package-version.tazpkg
pankso@91 320 local package_full=$(full_package ${package_name})
pankso@91 321
pankso@91 322 # Add architecture string to package full name
pankso@91 323 case "$SLITAZ_ARCH" in
pankso@91 324 arm|x86_64)
pankso@91 325 pkgarch="-${SLITAZ_ARCH}.tazpkg"
pankso@91 326 package_full=$(echo $package_full | sed s/.tazpkg/$pkgarch/) ;;
pankso@91 327 esac
pankso@23 328
paul@98 329 # Lets fetch the package by download()
pankso@68 330 [ "$count" == 1 ] && newline
pankso@67 331 debug "spk-add package: $package_name"
pankso@67 332 download "$package_full" $mirror
pankso@68 333 cd $CACHE_DIR
pankso@23 334
pankso@55 335 # Create package path early to avoid dependencies loop
pankso@55 336 mkdir -p $tmpdir
pankso@66 337 extract_receipt $tmpdir "$CACHE_DIR/$package_full"
pankso@55 338 source $tmpdir/receipt
pankso@55 339
pankso@66 340 install_package "$CACHE_DIR/$package_full"
pankso@23 341
pankso@63 342 #[ "$exec" ] && chroot $root/ $package_name
pankso@63 343 [ "$exec" ] && $package_name $root
pankso@29 344 update_databases
pankso@68 345 unset_mirrored
meshca@11 346 }
meshca@11 347
pankso@53 348 # Install all missing deps of a package.
pankso@53 349 # Usage: install_deps package DEPENDS
meshca@11 350 install_deps() {
meshca@11 351 local package=$1
meshca@11 352 shift
meshca@11 353 local deps="$@"
pankso@53 354 for pkgorg in $deps; do
pankso@53 355 local pkg=$(equivalent_pkg $pkgorg)
pankso@53 356 # Check if package is not installed
pankso@53 357 if [ ! -d "$installed/$pkg" ]; then
pankso@66 358 if [ ! -f "$pkgsdesc" ]; then
pankso@80 359 spk-up --list
meshca@11 360 fi
pankso@53 361 spk-add $pkg
pankso@53 362 fi
pankso@53 363 done
meshca@11 364 }
meshca@11 365
pankso@30 366 #
pankso@30 367 # Commands and exit
pankso@30 368 #
pankso@30 369
pankso@30 370 case "$1" in
pankso@30 371 ""|*usage|*help) usage ;;
meshca@11 372 esac
pankso@24 373
pankso@28 374 #
pankso@28 375 # Handle packages: package package.tazpkg ... packageN packageN.tazpkg
pankso@28 376 #
pankso@28 377
pankso@51 378 : ${count=0}
pankso@28 379 check_root
pankso@28 380
pankso@24 381 for pkg in $@
pankso@24 382 do
pankso@28 383 case "$pkg" in
pankso@30 384 *.tazpkg|*.spk)
pankso@56 385 count=$(($count + 1))
pankso@135 386 install_local $pkg | log_install $pkg ;;
meshca@100 387 *.deb|.rpm)
pankso@55 388 echo "TODO: spk-convert then install" ;;
pankso@55 389 *.*) gettext "WARNING: Not a valid package:"; echo " $pkg" ;;
pankso@30 390 --*) continue ;;
pankso@30 391 *)
pankso@30 392 [ "$forced" ] || check_installed $pkg
pankso@39 393 count=$(($count + 1))
pankso@135 394 install_web $pkg | log_install $pkg ;;
pankso@28 395 esac
pankso@24 396 done
pankso@56 397
pankso@56 398 # Show all new counted packages in verbose mode
pankso@56 399 if [ "$verbose" ]; then
meshca@69 400 gettext "Handled packages:"; colorize 34 " $count"
pankso@56 401 fi
pankso@56 402
pankso@24 403 exit 0