spk annotate spk-add @ rev 98

Tiny edits
author Paul Issott <paul@slitaz.org>
date Fri Jun 01 23:34:10 2012 +0100 (2012-06-01)
parents 1433c665171e
children 37137af42a77
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
pankso@55 174 echo -n "NOTE: confirm: spk-rm $name ???"; read
meshca@44 175 fi
meshca@44 176 done
pankso@38 177 fi
pankso@38 178 done
pankso@23 179
pankso@34 180 cd $tmpdir || exit 1
pankso@55 181 cp receipt files.list $package_dir || exit 1
pankso@33 182
pankso@26 183 # Copy the description if found.
pankso@26 184 [ -f "description.txt" ] && cp description.txt $package_dir
pankso@23 185
pankso@26 186 # Pre install commands.
pankso@26 187 if grep -q ^pre_install $package_dir/receipt; then
pankso@34 188 pre_install $root
pankso@26 189 fi
pankso@23 190
pankso@26 191 # Handle Config Files from receipt
pankso@26 192 if [ -n "$CONFIG_FILES" ]; then
pankso@26 193 cd $fs || exit 1
pankso@26 194 # save 'official' configuration files
pankso@26 195 eval_gettext "Saving configuration files for \$package_name... "
pankso@23 196
pankso@26 197 local confs
pankso@26 198 for i in $CONFIG_FILES; do
pankso@26 199 confs="$confs $(find ${i#/} -type f 2> /dev/null)"
pankso@26 200 done
pankso@23 201
pankso@34 202 echo $confs | cpio -o -H newc --quiet | gzip -9 > \
pankso@34 203 $package_dir/volatile.cpio.gz
pankso@23 204
pankso@26 205 # keep user configuration files
pankso@34 206 for configfile in $confs; do
pankso@34 207 [ -e $configfile ] || continue
pankso@34 208 cp -a $configfile fs/$configfile
pankso@26 209 done
pankso@26 210 status
pankso@26 211 cd - >/dev/null
pankso@26 212 fi
pankso@66 213 # Merge package FS with $root
pankso@66 214 nb=$(cat files.list | wc -l)
pankso@66 215 gettext "Installing files:"; echo -n " $nb"
pankso@34 216 cp -a fs/* $root/
pankso@26 217 status
pankso@26 218
pankso@26 219 # Remove old config files
pankso@32 220 if [ "$files_to_remove" ]; then
pankso@66 221 gettext "Removing old files..."
pankso@26 222 for file in $files_to_remove; do
pankso@32 223 if [ "$verbose" ]; then
pankso@32 224 gettext "Removing:"; echo " ${root}${file}"
pankso@32 225 fi
pankso@32 226 remove_with_path ${root}${file}
pankso@26 227 done
meshca@11 228 status
pankso@26 229 fi
pankso@26 230 cd - >/dev/null
pankso@23 231
meshca@11 232 # Remove the temporary directory.
pankso@66 233 if [ "$verbose" ]; then
pankso@66 234 gettext "Removing all tmp files... "
pankso@66 235 rm -rf $tmpdir && status
pankso@66 236 else
pankso@66 237 rm -rf $tmpdir
pankso@66 238 fi
pankso@23 239
meshca@11 240 # Post install commands.
meshca@11 241 if grep -q ^post_install $package_dir/receipt; then
pankso@34 242 post_install $root
meshca@11 243 fi
pankso@23 244
meshca@11 245 # Update-desktop-database if needed.
meshca@11 246 if [ "$(fgrep .desktop $package_dir/files.list | fgrep /usr/share/applications/)" ]; then
meshca@11 247 updatedesktopdb=yes
meshca@11 248 fi
meshca@11 249 # Update-mime-database if needed.
meshca@11 250 if [ "$(fgrep /usr/share/mime $package_dir/files.list)" ]; then
meshca@11 251 updatemimedb=yes
meshca@11 252 fi
meshca@11 253 # Update-icon-database
meshca@11 254 if [ "$(fgrep /usr/share/icon/hicolor $package_dir/files.list)" ]; then
meshca@11 255 updateicondb=yes
meshca@11 256 fi
meshca@11 257 # Compile glib schemas if needed.
meshca@11 258 if [ "$(fgrep /usr/share/glib-2.0/schemas $package_dir/files.list)" ]; then
meshca@11 259 compile_schemas=yes
meshca@11 260 fi
meshca@11 261 # Update depmod list
meshca@11 262 if [ "$(fgrep /lib/modules $package_dir/files.list)" ]; then
meshca@11 263 updatedepmod=yes
meshca@11 264 fi
meshca@11 265 separator
pankso@57 266 echo -n "$package_name ${VERSION}${EXTRAVERSION} "
pankso@57 267 gettext "is installed"; newline
meshca@11 268 newline
meshca@11 269 }
meshca@11 270
meshca@11 271 # Install .tazpkg packages.
meshca@11 272 # Parameters: package_file
pankso@28 273 install_local() {
meshca@11 274 package_file="$1"
pankso@55 275 #check_valid_tazpkg $package_file
pankso@55 276 if [ -f "$package_file" ]; then
pankso@55 277 if [ $(dirname $package_file) == "." ]; then
pankso@55 278 package_file=$(pwd)/$package_file
pankso@55 279 fi
pankso@55 280 debug "package file: $package_file"
pankso@55 281 else
pankso@55 282 gettext "Unable to find:"; echo " $package_file"
pankso@55 283 exit 1
pankso@55 284 fi
pankso@55 285
pankso@55 286 # Get package name now to check if installed
pankso@55 287 mkdir -p $tmpdir
pankso@55 288 extract_receipt $tmpdir $package_file
pankso@55 289 source $tmpdir/receipt
pankso@55 290 [ "$forced" ] || check_installed $PACKAGE
pankso@56 291 [ "$count" == "1" ] && newline
meshca@11 292 install_package $package_file
pankso@29 293 update_databases
meshca@11 294 }
meshca@11 295
meshca@11 296 # Download and install a package. TODO: Handle Undigest Mirrors
meshca@11 297 # Parameters: package_name
pankso@28 298 install_web() {
meshca@11 299 local package_name="$1"
meshca@11 300
meshca@11 301 # Check if get-Package
pankso@67 302 #if mirrored_pkg get-$package_name; then
pankso@67 303 #package_name="get-$package_name"
pankso@67 304 #exec=true
pankso@67 305 #fi
meshca@11 306
meshca@11 307 # Check if package is mirrored
pankso@68 308 mirrored_pkg $package_name
pankso@68 309 if [ ! "$mirrored" ]; then
pankso@63 310 gettext "Could not find package on mirror:"
pankso@63 311 boldify " $package_name" && exit 1
meshca@11 312 fi
meshca@11 313
pankso@66 314 # We want: package-version.tazpkg
pankso@91 315 local package_full=$(full_package ${package_name})
pankso@91 316
pankso@91 317 # Add architecture string to package full name
pankso@91 318 case "$SLITAZ_ARCH" in
pankso@91 319 arm|x86_64)
pankso@91 320 pkgarch="-${SLITAZ_ARCH}.tazpkg"
pankso@91 321 package_full=$(echo $package_full | sed s/.tazpkg/$pkgarch/) ;;
pankso@91 322 esac
pankso@23 323
paul@98 324 # Lets fetch the package by download()
pankso@68 325 [ "$count" == 1 ] && newline
pankso@67 326 debug "spk-add package: $package_name"
pankso@67 327 download "$package_full" $mirror
pankso@68 328 cd $CACHE_DIR
pankso@23 329
pankso@55 330 # Create package path early to avoid dependencies loop
pankso@55 331 mkdir -p $tmpdir
pankso@66 332 extract_receipt $tmpdir "$CACHE_DIR/$package_full"
pankso@55 333 source $tmpdir/receipt
pankso@55 334
pankso@66 335 install_package "$CACHE_DIR/$package_full"
pankso@23 336
pankso@63 337 #[ "$exec" ] && chroot $root/ $package_name
pankso@63 338 [ "$exec" ] && $package_name $root
pankso@29 339 update_databases
pankso@68 340 unset_mirrored
meshca@11 341 }
meshca@11 342
pankso@53 343 # Install all missing deps of a package.
pankso@53 344 # Usage: install_deps package DEPENDS
meshca@11 345 install_deps() {
meshca@11 346 local package=$1
meshca@11 347 shift
meshca@11 348 local deps="$@"
pankso@53 349 for pkgorg in $deps; do
pankso@53 350 local pkg=$(equivalent_pkg $pkgorg)
pankso@53 351 # Check if package is not installed
pankso@53 352 if [ ! -d "$installed/$pkg" ]; then
pankso@66 353 if [ ! -f "$pkgsdesc" ]; then
pankso@80 354 spk-up --list
meshca@11 355 fi
pankso@53 356 spk-add $pkg
pankso@53 357 fi
pankso@53 358 done
meshca@11 359 }
meshca@11 360
pankso@30 361 #
pankso@30 362 # Commands and exit
pankso@30 363 #
pankso@30 364
pankso@30 365 case "$1" in
pankso@30 366 ""|*usage|*help) usage ;;
meshca@11 367 esac
pankso@24 368
pankso@28 369 #
pankso@28 370 # Handle packages: package package.tazpkg ... packageN packageN.tazpkg
pankso@28 371 #
pankso@28 372
pankso@51 373 : ${count=0}
pankso@28 374 check_root
pankso@28 375
pankso@24 376 for pkg in $@
pankso@24 377 do
pankso@28 378 case "$pkg" in
pankso@30 379 *.tazpkg|*.spk)
pankso@56 380 count=$(($count + 1))
meshca@70 381 install_local $pkg | log_install $pkg;;
pankso@55 382 *.deb|.rmp)
pankso@55 383 echo "TODO: spk-convert then install" ;;
pankso@55 384 *.*) gettext "WARNING: Not a valid package:"; echo " $pkg" ;;
pankso@30 385 --*) continue ;;
pankso@30 386 *)
pankso@30 387 [ "$forced" ] || check_installed $pkg
pankso@39 388 count=$(($count + 1))
meshca@70 389 install_web $pkg | log_install $pkg;;
pankso@28 390 esac
pankso@24 391 done
pankso@56 392
pankso@56 393 # Show all new counted packages in verbose mode
pankso@56 394 if [ "$verbose" ]; then
meshca@69 395 gettext "Handled packages:"; colorize 34 " $count"
pankso@56 396 fi
pankso@56 397
pankso@24 398 exit 0