tazpkg view tazpkg @ rev 603

**tazpkg**: add common output functions: action, title, footer; change the way category translate, localized categories can include spaces; implement boldify, emsg & confirm functions from new libtaz; rename log function to log_pkg; fix check_root invocation; fix convert_rpm function; implement plural i18n messages; list-mirror: --text|--txt|--raw|* produces same output; extract: check for errors in final message; list-config --box: do we need it?; repack-config: date/time in receipt in local format; '--help-up' changed to 'help-up' due to error with new libtaz. **tazpkg-box**: add i18n preamble; fix actions. **tazpkg-notify**: implement plural. **Makefile**: support new functions & tazpkg-box. **po/**: Make pot & msgmerge. Add Russian translation. Add Spanish translation for tazpkg-notify (thanks Kevin Fabian Quintero).
author Aleksej Bobylev <al.bobylev@gmail.com>
date Sat Jun 23 00:51:57 2012 +0000 (2012-06-23)
parents 88439461afd9
children abffa90b0dcb
line source
1 #!/bin/sh
2 # Tazpkg - Tiny autonomous zone packages manager.
3 #
4 # This is a lightwight packages manager for *.tazpkg files written in SHell
5 # script. It works well with Busybox ash shell and bash. Tazpkg lets you
6 # list, install, remove, download or get information about a package. You can
7 # use 'tazpkg usage' to get a list of commands with short descriptions. Tazpkg
8 # also resolves dependencies and can upgrade packages from a mirror.
9 #
10 # (C) 2007-2012 SliTaz - GNU General Public License v3.
11 #
12 # Authors : See the AUTHORS files
13 #
14
15 ####################
16 # Script variables #
17 ####################
18
19 # TazPKG version
20 VERSION=5.0
21
22 . /etc/slitaz/slitaz.conf
23 . /etc/slitaz/tazpkg.conf
24
25 . /lib/libtaz.sh
26
27 # Internationalization.
28 . /usr/bin/gettext.sh
29 TEXTDOMAIN='tazpkg'
30 export TEXTDOMAIN
31
32 #
33 # Functions set for translate categories
34 #
35 # No operations, only for xgettext collect
36 gettext_noop() {
37 gettext "base-system"; gettext "x-window"; gettext "utilities";
38 gettext "network"; gettext "graphics"; gettext "multimedia";
39 gettext "office"; gettext "development"; gettext "system-tools";
40 gettext "security"; gettext "games"; gettext "misc"; gettext "meta";
41 gettext "non-free"
42 }
43 # Make array of pre-translated categories
44 cat_i18n=""
45 for c in "base-system" "x-window" "utilities" "network" "graphics" "multimedia" "office" "development" "system-tools" "security" "games" "misc" "meta" "non-free"; do
46 cat_i18n="$cat_i18n
47 $(gettext "$c") $c"
48 done
49 # If category is not one of those translated in native language, keep it
50 # untranslated. This allows both native and english language support.
51 # This also supports custom categories.
52 # And now we support spaces in translated categories
53 reverse_translate_category()
54 {
55 echo "$cat_i18n" | awk "BEGIN{FS=\" \"}{if (/^$@ /) a=\$2}END{if (a==\"\") a=\"$@\"; print a}"
56 }
57
58 #
59 # Tazpkg output functions
60 #
61 # Print localized title
62 title() { newline; boldify "$(eval_gettext "$1")"; separator; }
63 # Print footer
64 footer() { separator; echo "$1"; newline; }
65 # Print current action in brown color (separate from any other msgs)
66 action() {
67 case $output in
68 raw|gtk|html) eval_gettext "$@" ;;
69 *) echo -ne "\033[0;33m"$(eval_gettext "$@")"\033[0m" ;;
70 esac
71 }
72
73 # Initialize some variables to use words rather than numbers for functions
74 # and actions.
75 COMMAND=$1
76 PACKAGE=${2%/}
77 PACKAGE_DIR="$(cd $(dirname $PACKAGE 2>/dev/null) 2>/dev/null; pwd)"
78 [ -n "$PACKAGE" ] &&
79 PACKAGE_FILE="$PACKAGE_DIR/${PACKAGE##*/}"
80 if [ -f "$PACKAGE" ]; then
81 # Set pkg basename for install, extract
82 PACKAGE=$(basename ${PACKAGE%.tazpkg} 2>/dev/null)
83 else
84 # Pkg name for remove, search and all other cmds
85 PACKAGE=${PACKAGE%.tazpkg}
86 fi
87 TARGET_DIR=$3
88 TOP_DIR=`pwd`
89 TMP_DIR=$tmp/$RANDOM
90 INSTALL_LIST=""
91 SAVE_CACHE_DIR="$CACHE_DIR"
92
93 # Path to tazpkg used dir and configuration files
94 MIRROR=$LOCALSTATE/mirror
95 BLOCKED=$LOCALSTATE/blocked-packages.list
96 UP_LIST=$LOCALSTATE/packages.up
97 DEFAULT_MIRROR="$ONLINE_PKGS"
98
99 # Need by check_depends
100 TMPLOCALSTATE=
101
102 ####################
103 # Script functions #
104 ####################
105
106 # Print the usage.
107 usage () {
108 cat << EOT
109
110 $(eval_gettext 'SliTaz package manager - Version: $VERSION')
111
112 $(boldify "$(gettext 'Usage:')")
113 $(gettext 'tazpkg [command] [package|dir|pattern|list|cat|--opt] [dir|--opt]')
114 $(boldify "$(gettext 'SHell:')") tazpkg shell
115
116 $(boldify "$(gettext 'Commands:')")
117 usage $(gettext 'Print this short usage.')
118 bugs $(gettext 'Show known bugs in packages.')
119 list|-l $(gettext 'List installed packages on the system by category or all.')
120 list-mirror|-lm $(gettext 'List all available packages on the mirror (--diff for new).')
121 info $(gettext 'Print information about a package.')
122 desc $(gettext 'Print description of a package (if it exists).')
123 list-files|-lf $(gettext 'List the files installed with a package.')
124 list-config $(gettext 'List the configuration files.')
125 search|-s $(gettext 'Search for a package by pattern or name (options: -i|-l|-m).')
126 search-pkgname $(gettext 'Search on mirror for package having a particular file.')
127 search-file|-sf $(gettext 'Search for file(s) in all installed packages files.')
128 install|-i $(gettext 'Install a local (*.tazpkg) package (--forced to force).')
129 install-list $(gettext 'Install all packages from a list of packages.')
130 remove|-r $(gettext 'Remove the specified package and all installed files.')
131 extract|-e $(gettext 'Extract a (*.tazpkg) package into a directory.')
132 pack $(gettext 'Pack an unpacked or prepared package tree.')
133 recharge $(gettext 'Recharge your packages.list from the mirror.')
134 up|help-up $(eval_gettext 'Check packages $CHECKSUM to list and install latest upgrades.')
135 repack $(gettext 'Create a package archive from an installed package.')
136 repack-config $(gettext 'Create a package archive with configuration files.')
137 recompress $(gettext 'Rebuild a package with a better compression ratio.')
138 block|unblock $(gettext 'Block an installed package version or unblock it for upgrade.')
139 get $(gettext 'Download a package into the current directory.')
140 get-install|-gi $(gettext 'Download and install a package from the mirror.')
141 get-install-list $(gettext 'Download and install a list of packages from the mirror.')
142 check $(gettext 'Verify consistency of installed packages.')
143 add-flavor $(gettext 'Install the flavor list of packages.')
144 install-flavor $(gettext 'Install the flavor list of packages and remove other ones.')
145 set-release $(gettext 'Change release and update packages.')
146 clean-cache|-cc $(gettext 'Clean all packages downloaded in cache directory.')
147 depends $(gettext 'Display dependencies tree.')
148 rdepends $(gettext 'Display reverse dependencies tree.')
149 convert $(gettext 'Convert a deb/rpm/tgz/arch package to a slitaz (.tazpkg).')
150 link $(gettext 'Link a package from another slitaz installation.')
151 setup-mirror|-sm $(gettext 'Change the mirror url configuration.')
152 list-undigest $(gettext 'List undigest mirrors.')
153 remove-undigest $(gettext 'Remove an undigest mirror.')
154 add-undigest $(gettext 'Add an undigest mirror.')
155 setup-undigest $(gettext 'Update an undigest mirror.')
156 reconfigure $(gettext 'Replay post install script from package.')
157
158 EOT
159 }
160
161 usage_up() {
162 cat << EOT
163 $(emsg "$(gettext '<b>Tazpkg usage for command up:</b> tazpkg up [--option]')")
164 * $(gettext 'Without options run in interactive mode and ask before install')
165
166 $(boldify "$(gettext 'Where options are:')")
167 --check |-c $(gettext 'Check only for available upgrades')
168 --recharge |-r $(gettext 'Force recharge of packages list and check')
169 --install |-i $(gettext 'Check for upgrades and install them all')
170
171 $(boldify "$(gettext 'Example:')")
172 tazpkg up --recharge --install
173 tazpkg up -c -r
174 EOT
175 }
176
177 # Check if dir exist
178 check_dir()
179 {
180 if ! [ -d "$1" ]; then
181 FOLDER=$1
182 action 'Creating $FOLDER...'
183 mkdir -p "$FOLDER"
184 status
185 return 1
186 fi
187 }
188
189 # Check if the directories and files used by Tazpkg
190 # exist. If not and user is root we create them.
191 check_base_dir()
192 {
193 if [ "$(id -u)" = "0" ]; then
194 check_dir $1$CACHE_DIR
195 check_dir $1$INSTALLED
196 check_dir $1$SLITAZ_LOGS
197 if [ ! -f "$1$LOCALSTATE/mirror" ]; then
198 echo "$DEFAULT_MIRROR" > $1$LOCALSTATE/mirror
199 [ -n "$1" ] && cp $LOCALSTATE/packages.* $1$LOCALSTATE/
200 fi
201 fi
202 }
203 check_base_dir
204
205 # Check for a package name on cmdline.
206 check_for_package_on_cmdline()
207 {
208 if [ -z "$PACKAGE" ]; then
209 newline
210 gettext "Please specify a package name on the command line."; echo
211 newline
212 exit 0
213 fi
214 }
215
216 # Check if the package (*.tazpkg) exists before installing or extracting.
217 check_for_package_file()
218 {
219 if [ ! -f "$PACKAGE_FILE" ]; then
220 newline
221 eval_gettext "Unable to find: \$PACKAGE_FILE"; echo
222 newline
223 exit 0
224 fi
225 }
226
227 # Check for the receipt of an installed package.
228 check_for_receipt()
229 {
230 if [ ! -f "$1$INSTALLED/$PACKAGE/receipt" ]; then
231 FS=$1
232 newline
233 eval_gettext "Unable to find the receipt: \$FS\$INSTALLED/\$PACKAGE/receipt"; echo
234 newline
235 exit 0
236 fi
237 }
238
239 # Get repositories priority using $LOCALSTATE/priority.
240 # In this files, undigest are called by their name and main mirror
241 # by main. Sort order : priority
242 look_for_priority()
243 {
244 [ -s $LOCALSTATE/priority ] && priority=$(cat $LOCALSTATE/priority)
245 for rep in main $(ls $LOCALSTATE/undigest 2>/dev/null); do
246 if [ ! -s $LOCALSTATE/priority ] || \
247 ! grep -q ^$rep$ $LOCALSTATE/priority; then
248 priority=$(echo -e "$priority\n$rep")
249 fi
250 done
251 priority=$(echo "$priority" | sed '/^$/d' | \
252 while read line; do
253 if [ "$line" = main ]; then
254 echo $LOCALSTATE
255 else
256 echo $LOCALSTATE/undigest/$line
257 fi
258 done)
259 }
260
261 # Get package name in a directory
262 package_fullname_in_dir()
263 {
264 [ -f $1/receipt ] || return
265 EXTRAVERSION=""
266 . $1/receipt
267 echo $PACKAGE-$VERSION$EXTRAVERSION
268 }
269
270 # Get package name that is already installed.
271 get_installed_package_pathname()
272 {
273 for i in $2$INSTALLED/${1%%-*}*; do
274 [ -d $i ] || continue
275 if [ "$1" = "$(package_fullname_in_dir $i)" ]; then
276 echo $i
277 return
278 fi
279 done
280 }
281
282 # Check if a package is already installed.
283 check_for_installed_package()
284 {
285 if [ -n "$(get_installed_package_pathname $PACKAGE $1)" ]; then
286 newline
287 eval_gettext "\$PACKAGE package is already installed. You can
288 use the --forced option to force installation or remove it and reinstall."; echo
289 newline
290 exit 0
291 fi
292 }
293
294 # Check for packages.list to download and install packages.
295 check_for_packages_list()
296 {
297 if [ ! -f "$LOCALSTATE/packages.list" ]; then
298 if test $(id -u) = 0 ; then
299 tazpkg recharge
300 else
301 newline
302 eval_gettext "Unable to find the list: \$LOCALSTATE/packages.list"; echo
303 gettext \
304 "You must probably run 'tazpkg recharge' as root to get the latest list of
305 packages available on the mirror."; echo
306 newline
307 exit 0
308 fi
309 fi
310 }
311
312 get_cache_dir()
313 {
314 echo $rep > $tmp/rep
315 if [ "$rep" = "$LOCALSTATE" ]; then
316 CACHE_DIR="$SAVE_CACHE_DIR/$SLITAZ_RELEASE/packages"
317 elif [ "${rep%-incoming}" = "$rep" ]; then
318 CACHE_DIR="$SAVE_CACHE_DIR/${rep##*/}/packages"
319 else
320 rep="${rep%-incoming}"
321 CACHE_DIR="$SAVE_CACHE_DIR/${rep##*/}/packages-incoming"
322 fi
323 [ -d "$CACHE_DIR" ] || mkdir -p $CACHE_DIR
324 echo $CACHE_DIR > $tmp/cachedir
325 }
326
327 # get an already installed package from packages.equiv
328 equivalent_pkg()
329 {
330 for i in $(grep -hs "^$1=" $LOCALSTATE/packages.equiv \
331 $LOCALSTATE/undigest/*/packages.equiv | sed "s/^$1=//"); do
332 if echo $i | fgrep -q : ; then
333 # format 'alternative:newname'
334 # if alternative is installed then substitute newname
335 if [ -f $2$INSTALLED/${i%:*}/receipt ]; then
336 # substitute package dependancy
337 echo ${i#*:}
338 return
339 fi
340 else
341 # if alternative is installed then nothing to install
342 if [ -f $2$INSTALLED/$i/receipt ]; then
343 # substitute installed package
344 echo $i
345 return
346 fi
347 fi
348 done
349 # if not found in packages.equiv then no substitution
350 echo $1
351 }
352
353 # get a virtual package from packages.equiv
354 virtual_pkg()
355 {
356 for i in $(for rep in $priority; do
357 grep -hs "^$1=" $rep/packages.equiv
358 done | sed "s/^$1=//"); do
359 if echo $i | fgrep -q : ; then
360 # format 'alternative:newname'
361 # if alternative is installed then substitute newname
362 if [ -f $2$INSTALLED/${i%:*}/receipt ]; then
363 # substitute package dependancy
364 echo ${i#*:}
365 return
366 fi
367 else
368 # unconditional substitution
369 echo $i
370 return
371 fi
372 done
373 }
374
375 # Get package filename available on the mirror
376 get_package_filename()
377 {
378 local pkg
379 for rep in $priority; do
380 pkg=$(grep -A 1 -sh "^$1$" $rep/packages.txt | tail -1 | \
381 sed 's/^ *//')
382 [ "$pkg" ] && pkg=$(grep -sh "^$1-$pkg" \
383 $rep/packages.list | head -1)
384
385 # Allow user to call a package with his version number.
386 [ "$pkg" ] || pkg=$(grep -sh "^$1$" $rep/packages.list | head -1)
387
388 [ "$pkg" ] || pkg=$(grep -sh "^$1-[0-9]" \
389 $rep/packages.list | head -1)
390 [ "$pkg" ] || pkg=$(grep -sh "^$1-.[\.0-9]" \
391 $rep/packages.list | head -1)
392 [ "$pkg" ] && get_cache_dir && break
393 done
394 if [ -z "$pkg" ]; then
395 # Check for vitual package
396 local equiv
397 equiv=$(virtual_pkg $1)
398 if [ "$equiv" != "$1" ]; then
399 PACKAGE=$equiv
400 get_package_filename $PACKAGE
401 return
402 fi
403 fi
404 echo $pkg
405 }
406
407 # Check for a package in packages.list. Used by get and get-install to grep
408 # package basename.
409 check_for_package_in_list()
410 {
411 local filename
412 local check_only
413 check_only="$1"
414 filename=$(get_package_filename $PACKAGE)
415 if [ "$filename" ]; then
416 PACKAGE=$filename
417 CACHE_DIR=$(cat $tmp/cachedir)
418 rep=$(cat $tmp/rep)
419 rm -f $tmp/rep $tmp/cachedir
420 else
421 newline
422 eval_gettext "Unable to find: \$PACKAGE in the mirrored packages list."; echo
423 newline
424 [ -n "$check_only" ] && return 1
425 exit 0
426 fi
427 }
428
429 # Log this activity
430 # (there log_pkg because we have log() in libtaz.sh)
431 log_pkg()
432 {
433 local extra
434 [ "$1" = "Installed" ] && \
435 extra=" - $(fgrep $PACKAGE-$VERSION $LOCALSTATE/installed.$SUM | awk '{ print $1 }')"
436 [ -e $LOG ] || touch $LOG
437 DATE=`date +'%F %T'`
438 [ -w $LOG ] &&
439 echo "$DATE - $1 - $PACKAGE ($VERSION$EXTRAVERSION)$extra" >> $LOG
440 }
441
442 # Download a file from this mirror
443 download_from()
444 {
445 local i
446 local mirrors
447 mirrors="$1"
448 shift
449 for i in $mirrors; do
450 case "$i" in
451 # Mirror URL can have a trailing slash or not.
452 http://*|ftp://*) wget -c ${i%/}/$@ && break ;;
453 *) ln -sf $i/$1 . && break ;;
454 esac
455 done
456 }
457
458 # Download a file trying all mirrors
459 download()
460 {
461 local i
462 case "$1" in
463 *.tazpkg)
464 for i in $priority ; do
465 grep -q "^${1%.tazpkg}$" $i/packages.list 2>/dev/null || continue
466 download_from "$(cat $i/mirror)" "$@" && return
467 done
468 esac
469 for i in $(cat `for rep in $priority; do echo $rep/mirror; done` \
470 2> /dev/null); do
471 download_from "$i" "$@" && break
472 done
473 }
474
475 # Extract a package with cpio and gzip/lzma.
476 extract_package()
477 {
478 action "Extracting \$PACKAGE..."
479 cpio -idm --quiet < ${PACKAGE_FILE##*/} && rm -f ${PACKAGE_FILE##*/}
480 status
481 if [ -f fs.cpio.lzma ]; then
482 action "Extracting the pseudo fs..."
483 unlzma -c fs.cpio.lzma | cpio -idm --quiet && rm fs.cpio.lzma
484 status
485 elif [ -f fs.cpio.gz ]; then
486 action "Extracting the pseudo fs..."
487 zcat fs.cpio.gz | cpio -idm --quiet && rm fs.cpio.gz
488 status
489 fi
490 }
491
492 remove_with_path()
493 {
494 # Avoid dirname errors by checking for argument.
495 [ "$1" ] || return
496
497 local dir
498 rm -f $1 2>/dev/null
499 dir="$1"
500 while [ "$dir" != "/" ]; do
501 dir="$(dirname $dir)"
502 rmdir $dir 2> /dev/null || break
503 done
504 }
505
506 grepesc()
507 {
508 sed 's/\[/\\[/g'
509 }
510
511 # This function installs a package in the rootfs.
512 install_package()
513 {
514 ROOT=$1
515 if [ -n "$ROOT" ]; then
516 # Get absolute path
517 ROOT=$(cd $ROOT; pwd)
518 fi
519 {
520 # Create package path early to avoid dependencies loop
521 mkdir -p $TMP_DIR
522 { cd $TMP_DIR ; cpio --quiet -i receipt > /dev/null 2>&1; } < $PACKAGE_FILE
523 . $TMP_DIR/receipt
524 if grep -q ^pre_depends $TMP_DIR/receipt; then
525 pre_depends $ROOT
526 fi
527 # Keep modifers and file list on upgrade
528 cp $ROOT$INSTALLED/$PACKAGE/modifiers \
529 $ROOT$INSTALLED/$PACKAGE/files.list $TMP_DIR 2> /dev/null
530 rm -rf $ROOT$INSTALLED/$PACKAGE 2> /dev/null
531 # Make the installed package data dir to store
532 # the receipt and the files list.
533 mkdir -p $ROOT$INSTALLED/$PACKAGE
534 cp $TMP_DIR/modifiers $ROOT$INSTALLED/$PACKAGE 2> /dev/null
535 cp $TMP_DIR/files.list $ROOT$INSTALLED/$PACKAGE 2> /dev/null
536 rm -rf $TMP_DIR 2> /dev/null
537 sed -i "/ $(basename $PACKAGE_FILE)$/d" \
538 $ROOT$LOCALSTATE/installed.$SUM 2> /dev/null
539 cd $(dirname $PACKAGE_FILE)
540 $CHECKSUM $(basename $PACKAGE_FILE) >> $ROOT$LOCALSTATE/installed.$SUM
541 }
542 # Resolve package deps.
543 check_for_deps $ROOT
544 if [ ! "$MISSING_PACKAGE" = "" ]; then
545 install_deps $ROOT
546 fi
547 mkdir -p $TMP_DIR
548 [ -n "$INSTALL_LIST" ] && echo "$PACKAGE_FILE" >> $ROOT$LOCALSTATE/$INSTALL_LIST-processed
549 title 'Installation of: $PACKAGE'
550 action "Copying \$PACKAGE..."
551 cp $PACKAGE_FILE $TMP_DIR
552 status
553 cd $TMP_DIR
554 extract_package
555 SELF_INSTALL=0
556 EXTRAVERSION=""
557 CONFIG_FILES=""
558 # Include temporary receipt to get the right variables.
559 . $PWD/receipt
560 cd $ROOT$INSTALLED
561 if [ $SELF_INSTALL -ne 0 -a -n "$ROOT" ]; then
562 action "Checking post install dependencies..."
563 [ -f $INSTALLED/$PACKAGE/receipt ]
564 if ! status; then
565 eval_gettext "Please run 'tazpkg install \$PACKAGE_FILE' in / and retry."; echo
566 rm -rf $TMP_DIR
567 exit 1
568 fi
569 fi
570 # Get files to remove if upgrading
571 if [ -f $PACKAGE/files.list ]; then
572 while read file; do
573 grep -q "^$(echo $file | grepesc)$" $TMP_DIR/files.list && continue
574 for i in $(cat $PACKAGE/modifiers 2> /dev/null ;
575 fgrep -sl $PACKAGE */modifiers | cut -d/ -f1 ); do
576 grep -qs "^$(echo $file | grepesc)$" $i/files.list && continue 2
577 done
578 echo $file
579 done < $PACKAGE/files.list > $TMP_DIR/files2remove.list
580 fi
581 # Remember modified packages
582 { check=false
583 for i in $(fgrep -v [ $TMP_DIR/files.list); do
584 [ -e "$ROOT$i" ] || continue
585 [ -d "$ROOT$i" ] && continue
586 echo "- $i"
587 check=true
588 done ;
589 $check && for i in *; do
590 [ "$i" == "$PACKAGE" ] && continue
591 [ -s $i/files.list ] || continue
592 awk "{ printf \"$i %s\\n\",\$1 }" < $i/files.list
593 done; } | awk '
594 {
595 if ($1 == "-" || file[$2] != "") {
596 file[$2] = file[$2] " " $1
597 if ($1 != "-") {
598 if (pkg[$1] == "") all = all " " $1
599 pkg[$1] = pkg[$1] " " $2
600 }
601 }
602 }
603 END {
604 for (i = split(all, p, " "); i > 0; i--)
605 for (j = split(pkg[p[i]], f, " "); j > 0; j--)
606 printf "%s %s\n",p[i],f[j];
607 }
608 ' | while read dir file; do
609 if grep -qs ^$dir$ $PACKAGE/modifiers; then
610 # Do not overload an overloaded file !
611 rm $TMP_DIR$file 2> /dev/null
612 continue
613 fi
614 grep -qs ^$PACKAGE$ $dir/modifiers && continue
615 if [ -s "$dir/volatile.cpio.gz" ]; then
616 # We can modify backed up files without notice
617 zcat $dir/volatile.cpio.gz | cpio -t --quiet | \
618 grep -q "^${file#/}$" && continue
619 fi
620 echo "$PACKAGE" >> $dir/modifiers
621 done
622
623 cd $TMP_DIR
624 cp receipt files.list $ROOT$INSTALLED/$PACKAGE
625 # Copy the description if found.
626 if [ -f "description.txt" ]; then
627 cp description.txt $ROOT$INSTALLED/$PACKAGE
628 fi
629 # Copy the md5sum if found.
630 if [ -f "$CHECKSUM" ]; then
631 cp $CHECKSUM $ROOT$INSTALLED/$PACKAGE
632 fi
633 # Pre install commands.
634 if grep -q ^pre_install $ROOT$INSTALLED/$PACKAGE/receipt; then
635 pre_install $ROOT
636 fi
637 if [ -n "$CONFIG_FILES" ]; then
638 # save 'official' configuration files
639 action "Saving configuration files for \$PACKAGE..."
640 for i in $CONFIG_FILES; do
641 { cd fs ; find ${i#/} -type f 2> /dev/null; cd ..; }
642 done | { cd fs ; cpio -o -H newc --quiet | gzip -9; cd ..; } > \
643 $ROOT$INSTALLED/$PACKAGE/volatile.cpio.gz
644 # keep user configuration files
645 for i in $CONFIG_FILES; do
646 { cd fs ; find ${i#/} -type f 2> /dev/null; cd ..; }
647 done | while read i; do
648 [ -e $ROOT/$i ] || continue
649 cp -a $ROOT/$i fs/$i
650 done
651 status
652 fi
653 action "Installing \$PACKAGE..."
654 cp -a fs/* $ROOT/
655 status
656 if [ -s files2remove.list ]; then
657 action "Removing old \$PACKAGE..."
658 while read file; do
659 remove_with_path $ROOT$file
660 done < files2remove.list
661 true
662 status
663 fi
664 # Remove the temporary random directory.
665 action "Removing all tmp files..."
666 cd .. && rm -rf $TMP_DIR
667 status
668 # Post install commands.
669 if grep -q ^post_install $ROOT$INSTALLED/$PACKAGE/receipt; then
670 post_install $ROOT
671 fi
672 # Update-desktop-database if needed.
673 if [ "$(fgrep .desktop $ROOT$INSTALLED/$PACKAGE/files.list | fgrep /usr/share/applications/)" ]; then
674 updatedesktopdb=yes
675 fi
676 # Update-mime-database if needed.
677 if [ "$(fgrep /usr/share/mime $ROOT$INSTALLED/$PACKAGE/files.list)" ]; then
678 updatemimedb=yes
679 fi
680 # Update-icon-database
681 if [ "$(fgrep /usr/share/icon/hicolor $ROOT$INSTALLED/$PACKAGE/files.list)" ]; then
682 updateicondb=yes
683 fi
684 # Compile glib schemas if needed.
685 if [ "$(fgrep /usr/share/glib-2.0/schemas $ROOT$INSTALLED/$PACKAGE/files.list)" ]; then
686 compile_schemas=yes
687 fi
688 # Update depmod list
689 if [ "$(fgrep /lib/modules $ROOT$INSTALLED/$PACKAGE/files.list)" ]; then
690 updatedepmod=yes
691 fi
692 cd $TOP_DIR
693 footer "$(eval_gettext '$PACKAGE ($VERSION$EXTRAVERSION) is installed.')"
694 # Log this activity
695 [ -n "$ROOT" ] || log_pkg Installed
696 }
697
698 # Check for loop in deps tree.
699 check_for_deps_loop()
700 {
701 local list
702 local pkg
703 local deps
704 pkg=$1
705 shift
706 [ -n "$1" ] || return
707 list=""
708 # Filter out already processed deps
709 for i in $@; do
710 case " $ALL_DEPS" in
711 *\ $i\ *);;
712 *) list="$list $i";;
713 esac
714 done
715 ALL_DEPS="$ALL_DEPS$list "
716 for i in $list; do
717 [ -f $i/receipt ] || continue
718 deps="$(DEPENDS=""; . $i/receipt; echo $DEPENDS)"
719 case " $deps " in
720 *\ $pkg\ *) echo -e "$MSG $i"; MSG="";;
721 *) check_for_deps_loop $pkg $deps;;
722 esac
723 done
724 }
725
726 # Check for missing deps listed in a receipt packages.
727 check_for_deps()
728 {
729 local saved;
730 saved=$PACKAGE
731 mkdir -p $TMP_DIR
732 { cd $TMP_DIR ; cpio --quiet -i receipt > /dev/null 2>&1; } < $PACKAGE_FILE
733 . $TMP_DIR/receipt
734 PACKAGE=$saved
735 rm -rf $TMP_DIR
736 for pkgorg in $DEPENDS
737 do
738 i=$(equivalent_pkg $pkgorg $1)
739 if [ ! -d "$1$INSTALLED/$i" ]; then
740 MISSING_PACKAGE=$i
741 deps=$(($deps+1))
742 elif [ ! -f "$1$INSTALLED/$i/receipt" ]; then
743 eval_gettext "WARNING Dependency loop between \$PACKAGE and \$i."; echo
744 fi
745 done
746 if [ ! "$MISSING_PACKAGE" = "" ]; then
747 emsg "$(eval_gettext '<b>Tracking dependencies for:</b> $PACKAGE')"
748 separator
749 for pkgorg in $DEPENDS
750 do
751 i=$(equivalent_pkg $pkgorg $1)
752 if [ ! -d "$1$INSTALLED/$i" ]; then
753 MISSING_PACKAGE=$i
754 eval_gettext "Missing: \$MISSING_PACKAGE"; echo
755 fi
756 done
757 separator
758 eval_ngettext \
759 "\$deps missing package to install." \
760 "\$deps missing packages to install." $deps; echo
761 fi
762 }
763
764 # Install all missing deps. Auto install or ask user then install all missing
765 # deps from local dir, cdrom, media or from the mirror. In case we want to
766 # install packages from local, we need a packages.list to find the version.
767 install_deps()
768 {
769 local root
770 root=""
771 [ -n "$1" ] && root="--root=$1"
772 if [ "$AUTO_INSTALL_DEPS" == "yes" ]; then
773 answer=0
774 else
775 newline
776 gettext "Install all missing dependencies" && confirm
777 answer=$?
778 newline
779 fi
780 if [ $answer = 0 ]; then
781 for pkgorg in $DEPENDS
782 do
783 pkg=$(equivalent_pkg $pkgorg $1)
784 if [ ! -d "$1$INSTALLED/$pkg" ]; then
785 local list
786 list="$INSTALL_LIST"
787 [ -n "$list" ] || list="$TOP_DIR/packages.list"
788 # We can install packages from a local dir by greping
789 # the TAZPKG_BASENAME in the local packages.list.
790 found=0
791 if [ -f "$list" ]; then
792 eval_gettext "Checking if \$pkg exists in local list..."; echo
793 mkdir $TMP_DIR
794 for i in $pkg-*.tazpkg; do
795 [ -f $i ] || continue
796 { cd $TMP_DIR ; cpio --quiet -i receipt > /dev/null 2>&1; } < $i
797 [ "$(. $TMP_DIR/receipt; echo $PACKAGE)" = "$pkg" ] || continue
798 if grep -q ^$(package_fullname_in_dir $TMP_DIR).tazpkg$ $list
799 then
800 found=1
801 tazpkg install $i $root --list=$list
802 break
803 fi
804 done
805 rm -rf $TMP_DIR
806 fi
807 # Install deps from the mirror.
808 if [ $found -eq 0 ]; then
809 if [ ! -f "$LOCALSTATE/packages.list" ]; then
810 tazpkg recharge
811 fi
812 tazpkg get-install $pkg $root
813 fi
814 fi
815 done
816 else
817 newline
818 eval_gettext \
819 "Leaving dependencies for \$PACKAGE unresolved.
820 The package is installed but will probably not work."; echo
821 newline
822 fi
823 }
824
825 # Search pattern in installed packages.
826 search_in_installed_packages()
827 {
828 gettext "Installed packages"; echo
829 separator
830 list=`ls -1 $INSTALLED | grep -i "$PATTERN"`
831 for pkg in $list
832 do
833 EXTRAVERSION=""
834 [ -f $INSTALLED/$pkg/receipt ] || continue
835 . $INSTALLED/$pkg/receipt
836 emsg "$PACKAGE<i 24> $VERSION$EXTRAVERSION<i 42> $(gettext $CATEGORY)"
837 packages=$(($packages+1))
838 done
839 # Set correct ending messages.
840 if [ "$packages" = "" ]; then
841 eval_gettext "0 installed packages found for: \$PATTERN"; echo
842 newline
843 else
844 footer "$(eval_ngettext \
845 '$packages installed package found for: $PATTERN' \
846 '$packages installed packages found for: $PATTERN' $packages)"
847 fi
848 }
849
850 # Search in packages.list for available pkgs.
851 search_in_packages_list()
852 {
853 gettext "Available packages name-version"; echo
854 separator
855 packages=0
856 for i in $LOCALSTATE/packages.list $LOCALSTATE/undigest/*/packages.list; do
857 grep -is "$PATTERN" $i
858 packages=$(($packages + `grep -is "$PATTERN" $i | wc -l`))
859 done
860 if [ ! -f "$LOCALSTATE/packages.list" ]; then
861 newline
862 gettext \
863 "No 'packages.list' found to check for mirrored packages. For more results,
864 please run 'tazpkg recharge' once as root before searching."; echo
865 newline
866 fi
867 if [ "$packages" = "0" ]; then
868 eval_gettext "0 available packages found for: \$PATTERN"; echo
869 newline
870 else
871 footer "$(eval_ngettext \
872 '$packages available package found for: $PATTERN' \
873 '$packages available packages found for: $PATTERN' $packages)"
874 fi
875 }
876
877 # search --mirror: Search in packages.txt for available pkgs and give more
878 # info than --list or default.
879 search_in_packages_txt()
880 {
881 gettext "Matching packages name with version and desc"; echo
882 separator
883 packages=0
884 for i in $LOCALSTATE/packages.txt $LOCALSTATE/undigest/*/packages.txt; do
885 grep -is -A 2 "^$PATTERN" $i
886 packages=$(($packages + `grep -is "^$PATTERN" $i | wc -l`))
887 done
888 if [ ! -f "$LOCALSTATE/packages.txt" ]; then
889 newline
890 gettext \
891 "No 'packages.txt' found to check for mirrored packages. For more results,
892 please run 'tazpkg recharge' once as root before searching."; echo
893 newline
894 fi
895 if [ "$packages" = "0" ]; then
896 eval_gettext "0 available packages found for: \$PATTERN"; echo
897 newline
898 else
899 footer "$(eval_ngettext \
900 '$packages available package found for: $PATTERN' \
901 '$packages available packages found for: $PATTERN' $packages)"
902 fi
903 }
904
905 # Install package-list from a flavor
906 install_flavor()
907 {
908 check_root $@
909
910 # Get repositories priority list.
911 look_for_priority
912
913 FLAVOR=$1
914 ARG=$2
915 mkdir -p $TMP_DIR
916 [ -f $FLAVOR.flavor ] && cp $FLAVOR.flavor $TMP_DIR
917 cd $TMP_DIR
918 if [ -f $FLAVOR.flavor ] || download $FLAVOR.flavor; then
919 zcat $FLAVOR.flavor | cpio --quiet -i >/dev/null
920 while read file; do
921 for pkg in $(ls -d $INSTALLED/${file%%-*}*); do
922 [ -f $pkg/receipt ] || continue
923 EXTRAVERSION=""
924 . $pkg/receipt
925 [ "$PACKAGE-$VERSION$EXTRAVERSION" = "$file" ] && break
926 done
927 [ "$PACKAGE-$VERSION$EXTRAVERSION" = "$file" ] && continue
928 cd $CACHE_DIR
929 download $file.tazpkg
930 cd $TMP_DIR
931 tazpkg install $CACHE_DIR/$file.tazpkg --forced
932 done < $FLAVOR.pkglist
933 [ -f $FLAVOR.nonfree ] && while read pkg; do
934 [ -d $INSTALLED/$pkg ] || continue
935 [ -d $INSTALLED/get-$pkg ] && tazpkg get-install get-$pkg
936 get-$pkg
937 done < $FLAVOR.nonfree
938 [ "$ARG" == "--purge" ] && for pkg in $(ls $INSTALLED); do
939 [ -f $INSTALLED/$pkg/receipt ] || continue
940 EXTRAVERSION=""
941 . $INSTALLED/$pkg/receipt
942 grep -q ^$PACKAGE-$VERSION$EXTRAVERSION$ $FLAVOR.pkglist && continue
943 grep -qs ^$PACKAGE$ $FLAVOR.nonfree && continue
944 tazpkg remove $PACKAGE
945 done
946 else
947 eval_gettext "Can't find flavor \$FLAVOR. Abort."; echo
948 fi
949 cd $TOP_DIR
950 rm -rf $TMP_DIR
951 }
952
953 # Update mirror urls
954 setup_mirror()
955 {
956 # Backup old list.
957 if [ -f "$1/mirror" ]; then
958 cp -f $1/mirror $1/mirror.bak
959 fi
960 title 'Current mirror(s)'
961 echo " `cat $1/mirror 2> /dev/null`"
962 gettext \
963 "Please enter URL of the new mirror (http, ftp or local path). You must specify
964 the complete address to the directory of the packages and packages.list file."; echo
965 newline
966 gettext "New mirror(s) URL: "
967 NEW_MIRROR_URL=$2
968 if [ -n "$NEW_MIRROR_URL" ]; then
969 echo $NEW_MIRROR_URL
970 else
971 read NEW_MIRROR_URL
972 fi
973 if [ "$NEW_MIRROR_URL" = "" ]; then
974 gettext "Nothing has been changed."; echo
975 else
976 eval_gettext "Setting mirror(s) to: \$NEW_MIRROR_URL"; echo
977 rm -f $1/mirror
978 for i in $NEW_MIRROR_URL; do
979 echo "$i" >> $1/mirror
980 done
981 fi
982 newline
983 }
984
985 # recursive dependencies scan
986 dep_scan()
987 {
988 for i in $1; do
989 case " $ALL_DEPS " in
990 *\ $i\ *) continue;;
991 esac
992 ALL_DEPS="$ALL_DEPS $i"
993 [ -n "$2" ] && echo "$2$i ($(fgrep -A 3 $i $LOCALSTATE/packages.txt \
994 | tail -1 | sed 's/.*(\([^ ]*\).*/\1/'))"
995 [ -f $i/receipt ] || continue
996 DEPENDS=""
997 . $i/receipt
998 [ -n "$DEPENDS" ] && dep_scan "$DEPENDS" "$2 "
999 done
1000 }
1001
1002 # recursive reverse dependencies scan
1003 rdep_scan()
1004 {
1005 SEARCH=$1
1006
1007 for i in * ; do
1008 DEPENDS=""
1009 . $i/receipt
1010 echo "$i $(echo $DEPENDS)"
1011 done | awk -v search=$SEARCH '
1012 function show_deps(deps, all_deps, pkg, space)
1013 {
1014 if (all_deps[pkg] == 1) return
1015 all_deps[pkg] = 1
1016 if (space != "") printf "%s %s\n",space,pkg
1017 for (i = 1, n = split(deps[pkg], mydeps, " "); i <= n; i++) {
1018 show_deps(deps, all_deps, mydeps[i],"==" space)
1019 }
1020 }
1021
1022 {
1023 all_deps[$1] = 0
1024 for (i = 2; i <= NF; i++)
1025 deps[$i] = deps[$i] " " $1
1026 }
1027
1028 END {
1029 show_deps(deps, all_deps, search, "")
1030 }
1031 ' | while read spc pkg; do
1032 echo -n $spc | sed 's/=/ /g'
1033 echo -n $pkg
1034 echo -n ' ('
1035 fgrep -A 3 $pkg $LOCALSTATE/packages.txt | tail -1 | \
1036 sed 's/.*(\([^ ]*\).*/\1)/'
1037 done
1038 }
1039
1040 # Check for ELF file
1041 is_elf()
1042 {
1043 [ "$(dd if=$1 bs=1 skip=1 count=3 2> /dev/null)" = "ELF" ]
1044 }
1045
1046 # Print shared library dependencies
1047 ldd()
1048 {
1049 LD_TRACE_LOADED_OBJECTS=1 /lib/ld*.so $1 2> /dev/null
1050 }
1051
1052 # search dependencies for files in $TMP_DIR/$file/fs
1053 find_depends()
1054 {
1055 DEFAULT_DEPENDS="glibc-base gcc-lib-base"
1056
1057 [ -n "$TMPLOCALSTATE" ] || TMPLOCALSTATE=$LOCALSTATE
1058 [ -f $TMPLOCALSTATE/files.list.lzma ] || tazpkg recharge > /dev/null
1059 for i in $TMPLOCALSTATE/files.list.lzma \
1060 $TMPLOCALSTATE/undigest/*/files.list.lzma ; do
1061 [ -f $i ] && lzma d $i -so >> $TMP_DIR/files.list
1062 done
1063 find $TMP_DIR/$file/fs -type f | while read chkfile ; do
1064 is_elf $chkfile || continue
1065 case "$chkfile" in
1066 *.o|*.ko|*.ko.gz) continue;;
1067 esac
1068 ldd $chkfile | while read lib rem; do
1069 case "$lib" in
1070 statically|linux-gate.so*|ld-*.so|*/ld-*.so)
1071 continue;;
1072 esac
1073 find $TMP_DIR/$file/fs | grep -q /$lib$ && continue
1074 for dep in $(fgrep $lib files.list | cut -d: -f1); do
1075 case " $DEFAULT_DEPENDS " in
1076 *\ $dep\ *) continue 2;;
1077 esac
1078 grep -qs "^$dep$" $TMP_DIR/depends && continue 2
1079 done
1080 if [ -n "$dep" ]; then
1081 echo "$dep" >> $TMP_DIR/depends
1082 else
1083 grep -qs ^$lib$ $TMP_DIR/unresolved ||
1084 echo "$lib" >> $TMP_DIR/unresolved
1085 fi
1086 done
1087 done
1088 spc=""
1089 cat $TMP_DIR/depends 2> /dev/null | sort | uniq | while read file; do
1090 echo -n "$spc$file"
1091 spc=" "
1092 done
1093 }
1094
1095 show_unresolved_lib()
1096 {
1097 if [ -s $TMP_DIR/unresolved ]; then
1098 echo -e "BUGS=\"`gettext \"No dependency for\"`" >> $1
1099 cat $TMP_DIR/unresolved | sort | uniq | while read file; do
1100 eval_gettext "WARNING: unknown dependency for \$lib"; echo
1101 echo -n " $file" >> $1
1102 done
1103 echo "\"" >> $1
1104 fi
1105 }
1106
1107 # convert a .ipk package to .tazpkg
1108 convert_ipk()
1109 {
1110 mkdir -p $TMP_DIR
1111 tar xOzf $PACKAGE_FILE ./control.tar.gz | tar xzf - -C $TMP_DIR
1112 package="$(grep ^Package $TMP_DIR/control | sed 's/.*: //')"
1113 version="$(grep ^Version $TMP_DIR/control | sed 's/.*: //')"
1114 maintainer="$(grep ^Maintainer $TMP_DIR/control | sed 's/.*: //')"
1115 target="$(grep ^Architecture $TMP_DIR/control | sed 's/.*: //')"
1116 descrip="$(grep ^Description $TMP_DIR/control | sed 's/.*: //')"
1117 url="http://openwrt.org/"
1118 case "$target" in
1119 i386|all)
1120 file=$package-$version
1121 mkdir -p $TMP_DIR/$file/fs
1122 tar xOzf $PACKAGE_FILE ./data.tar.gz | \
1123 tar xzf - -C $TMP_DIR/$file/fs
1124 cd $TMP_DIR
1125 cat > $file/receipt <<EOT
1126 # SliTaz package receipt.
1127 # generated by tazpkg from package $(basename $PACKAGE_FILE)
1128 PACKAGE="$package"
1129 VERSION="$version"
1130 CATEGORY="misc"
1131 SHORT_DESC="$descrip"
1132 WEB_SITE="$url"
1133 MAINTAINER="$maintainer"
1134 DEPENDS="$(find_depends)"
1135 EOT
1136 [ -s conffiles ] && cat >> $file/receipt <<EOT
1137 CONFIG_FILES="$(cat conffiles)"
1138 EOT
1139 show_unresolved_lib $file/receipt
1140 while read script func; do
1141 [ -s $script ] && cat >> $file/receipt <<EOT
1142
1143 $func()
1144 {
1145 $(cat $script)
1146 }
1147 EOT
1148 done <<EOT
1149 preinst pre_install
1150 postinst post_install
1151 prerm pre_remove
1152 postrm post_remove
1153 EOT
1154 awk '
1155 {
1156 if (/^ / && show) print substr($0,2);
1157 else show=0;
1158 if (/^Description/) show=1;
1159 }' < $TMP_DIR/control > $file/description.txt
1160 sed -i 's/^\.$//' $file/description.txt
1161 [ -s $file/description.txt ] || rm -f $file/description.txt
1162 tazpkg pack $file
1163 cd $TOP_DIR
1164 mv $TMP_DIR/$file.tazpkg .
1165 ;;
1166 *)
1167 eval_gettext "Invalid target: \$target (expected i386)"; echo
1168 ;;
1169 esac
1170 rm -rf $TMP_DIR
1171 }
1172
1173 # convert a .pkg.tar.gz/.apk package to .tazpkg
1174 convert_arch()
1175 {
1176 mkdir -p $TMP_DIR/fs
1177 tar xzf $PACKAGE_FILE -C $TMP_DIR/fs
1178 if [ -f $TMP_DIR/fs/.PKGINFO ]; then
1179 cd $TMP_DIR
1180 package="$(grep ^pkgname fs/.PKGINFO | sed 's/.*= //')"
1181 version="$(grep ^pkgver fs/.PKGINFO | sed 's/.*= //')"
1182 descrip="$(grep ^pkgdesc fs/.PKGINFO | sed 's/.*= //')"
1183 url="$(grep ^url fs/.PKGINFO | sed 's/.*= //')"
1184 maintainer="$(grep ^packager fs/.PKGINFO | sed 's/.*= //')"
1185 file=$package-$version
1186 mkdir $file
1187 mv fs $file
1188 cat > $file/receipt <<EOT
1189 # SliTaz package receipt.
1190 # generated by tazpkg from Archlinux package $(basename $PACKAGE_FILE)
1191 PACKAGE="$package"
1192 VERSION="$version"
1193 CATEGORY="misc"
1194 SHORT_DESC="$descrip"
1195 WEB_SITE="$url"
1196 MAINTAINER="$maintainer"
1197 DEPENDS="$(find_depends)"
1198 EOT
1199 show_unresolved_lib $file/receipt
1200 rm -f $file/fs/.[A-Z]*
1201 tazpkg pack $file
1202 mv $file.tazpkg $TOP_DIR
1203 else
1204 eval_gettext "\$PACKAGE_FILE does not look like an Archlinux/Alpine package!"; echo
1205 fi
1206 cd $TOP_DIR
1207 rm -rf $TMP_DIR
1208 }
1209
1210 # convert a .tgz package to .tazpkg
1211 convert_tgz()
1212 {
1213 package=$(basename $PACKAGE_FILE)
1214 IFS='-'
1215 set -- $package
1216 unset IFS
1217 package=$1
1218 version=$2
1219 file="$package-$version"
1220 mkdir -p $TMP_DIR/$file/fs
1221 tar xzf $PACKAGE_FILE -C $TMP_DIR/$file/fs
1222 cd $TMP_DIR
1223 if [ -d $file/fs/install ]; then
1224 descrip=$(grep ^$package $file/fs/install/slack-desc | \
1225 head -1 | sed 's/.*(\(.*\)).*/\1/')
1226 cat > $file/receipt <<EOT
1227 # SliTaz package receipt.
1228 # generated by tazpkg from slackware package $(basename $PACKAGE_FILE)
1229 PACKAGE="$package"
1230 VERSION="$version"
1231 CATEGORY="misc"
1232 SHORT_DESC="$descrip"
1233 WEB_SITE="http://www.slackware.com/packages/"
1234 MAINTAINER="nobody@slitaz.org"
1235 DEPENDS="$(find_depends)"
1236 EOT
1237 show_unresolved_lib $file/receipt
1238 [ -f $file/fs/install/doinst.sh ] && cat >> $file/receipt <<EOM
1239
1240 post_install()
1241 {
1242 chroot \$1/ sh - << EOT
1243 cd /
1244 $(cat $file/fs/install/doinst.sh | sed -e 's/\\/\\\\/g' | sed -e 's/\$/\\$/g')
1245 EOT
1246 }
1247 EOM
1248 grep ^$package $file/fs/install/slack-desc | \
1249 sed "s/^$package://" > $file/description.txt
1250 [ -s $file/description.txt ] || rm -f $file/description.txt
1251 rm -rf $file/fs/install
1252 tazpkg pack $file
1253 mv $file.tazpkg $TOP_DIR
1254 else
1255 eval_gettext "\$PACKAGE_FILE does not look like a Slackware package!"; echo
1256 fi
1257 cd $TOP_DIR
1258 rm -rf $TMP_DIR
1259 }
1260
1261 # convert a .deb package to .tazpkg
1262 convert_deb()
1263 {
1264 mkdir -p $TMP_DIR
1265 dpkg-deb -e $PACKAGE_FILE $TMP_DIR
1266 package=$(grep '^ *Package:' $TMP_DIR/control)
1267 package=$(echo ${package##*:})
1268 version=$(grep '^ *Version:' $TMP_DIR/control)
1269 version=$(echo ${version##*:})
1270 descrip=$(grep '^ *Description:' $TMP_DIR/control)
1271 descrip=$(echo ${descrip##*:})
1272 target="$(grep ^Architecture $TMP_DIR/control | sed 's/.*: //')"
1273 case "$target" in
1274 i386|all)
1275 file="$package-$version"
1276 mkdir -p $TMP_DIR/$file/fs/
1277 dpkg-deb -x $PACKAGE_FILE $TMP_DIR/$file/fs
1278 cd $TMP_DIR
1279 cat > $file/receipt <<EOT
1280 # SliTaz package receipt.
1281 # generated by tazpkg from debian package $(basename $PACKAGE_FILE)
1282 PACKAGE="$package"
1283 VERSION="$version"
1284 CATEGORY="misc"
1285 SHORT_DESC="$descrip"
1286 WEB_SITE="http://packages.debian.org/search?keywords=$package"
1287 MAINTAINER="nobody@slitaz.org"
1288 DEPENDS="$(find_depends)"
1289 EOT
1290 [ -s conffiles ] && cat >> $file/receipt <<EOT
1291 CONFIG_FILES="$(cat conffiles)"
1292 EOT
1293 show_unresolved_lib $file/receipt
1294 awk '
1295 {
1296 if (/^ / && show) print substr($0,2);
1297 else show=0;
1298 if (/^Description/) show=1;
1299 }' < $TMP_DIR/control > $file/description.txt
1300 sed -i 's/^\.$//' $file/description.txt
1301 [ -s $file/description.txt ] || rm -f $file/description.txt
1302 tazpkg pack $file
1303 mv $file.tazpkg $TOP_DIR
1304 ;;
1305 *)
1306 eval_gettext "Invalid target: \$target (expected i386)"; echo
1307 ;;
1308 esac
1309 cd $TOP_DIR
1310 rm -rf $TMP_DIR
1311 }
1312
1313 # convert a .rpm package to .tazpkg
1314 convert_rpm()
1315 {
1316 mkdir -p $TMP_DIR
1317 cp $PACKAGE_FILE $TMP_DIR
1318 PACKAGE_FILE=$TMP_DIR/$(basename $PACKAGE_FILE)
1319 rpm -qip $PACKAGE_FILE | awk -v pkg=$(basename $PACKAGE_FILE) '
1320 BEGIN {
1321 goturl=0;
1322 printf "# SliTaz package receipt.\n";
1323 printf "# generated by tazpkg from rpm package %s\n",pkg;
1324 }
1325 {
1326 if (/^Name/) { name=$3; printf "PACKAGE=\"%s\"\n",$3; }
1327 if (/^Version/) printf "VERSION=\"%s-",$3;
1328 if (/^Release/) printf "%s\"\n",$3;
1329 if (/^Summary/) printf "SHORT_DESC=\"%s\"\n",substr($0,15);
1330 if (/^URL/) { goturl=1; printf "WEB_SITE=\"%s\"\n",$3; }
1331 }
1332 END {
1333 if (goturl == 0)
1334 printf "WEB_SITE=\"http://rpmfind.net/linux/rpm2html/search.php?query=%s\"\n",name;
1335 printf "CATEGORY=\"misc\"\n";
1336 printf "MAINTAINER=\"nobody@slitaz.org\"\n";
1337 }
1338 ' > $TMP_DIR/receipt
1339 . $TMP_DIR/receipt
1340 file=$PACKAGE-$VERSION
1341 mkdir -p $TMP_DIR/$file/fs/
1342 mv $TMP_DIR/receipt $TMP_DIR/$file
1343 rpm -qip $PACKAGE_FILE | awk '
1344 BEGIN { show=0 }
1345 {
1346 if (show) print;
1347 if (/^Description/) show=1;
1348 }
1349 ' > $TMP_DIR/$file/description.txt
1350 cd $TMP_DIR/$file/fs/
1351 rpm2cpio $PACKAGE_FILE | cpio -idm --quiet
1352 cd ../..
1353 echo "DEPENDS=\"$(find_depends)\"" >> $TMP_DIR/$file/receipt
1354 show_unresolved_lib $TMP_DIR/$file/receipt
1355 tazpkg pack $file
1356 mv $file.tazpkg $TOP_DIR
1357 cd $TOP_DIR
1358 rm -rf $TMP_DIR
1359 }
1360
1361 update_desktop_database()
1362 {
1363 if [ -f $1/usr/bin/update-desktop-database ] && [ -n "$updatedesktopdb" ]; then
1364 chroot "$1/" /usr/bin/update-desktop-database /usr/share/applications 2>/dev/null
1365 fi
1366 }
1367
1368 update_mime_database()
1369 {
1370 if [ -f $1/usr/bin/update-mime-database ] && [ -n "$updatemimedb" ]; then
1371 chroot "$1/" /usr/bin/update-mime-database /usr/share/mime
1372 fi
1373 }
1374
1375 update_icon_database()
1376 {
1377 if [ -f $1/usr/bin/gtk-update-icon-cache ] && [ -n "$updateicondb" ]; then
1378 chroot "$1/" /usr/bin/gtk-update-icon-cache /usr/share/icons/hicolor
1379 fi
1380 }
1381
1382 compile_glib_schemas()
1383 {
1384 if [ -f $1/usr/bin/glib-compile-schemas ] && [ -n "$compile_schemas" ]; then
1385 chroot "$1/" /usr/bin/glib-compile-schemas /usr/share/glib-2.0/schemas
1386 fi
1387 }
1388
1389 update_kernel_modules()
1390 {
1391 if [ -f $1/sbin/depmod ] && [ -n "$updatedepmod" ]; then
1392 chroot "$1/" /sbin/depmod -a
1393 fi
1394 }
1395
1396 ###################
1397 # Tazpkg commands #
1398 ###################
1399
1400 case "$COMMAND" in
1401 list|-l)
1402 shift
1403 # List all installed packages or a specific category.
1404 if [ "$1" = "blocked" ]; then
1405 title 'Blocked packages'
1406 if [ -s "$BLOCKED" ];then
1407 cat $BLOCKED
1408 else
1409 gettext "No blocked packages found."; echo
1410 fi
1411 newline && exit 0
1412 fi
1413 # Display the list of categories.
1414 if [ "$1" = "cat" -o "$1" = "categories" ]; then
1415 title 'Packages categories'
1416 for i in $PKGS_CATEGORIES
1417 do
1418 gettext $i; echo
1419 categories=$(($categories+1))
1420 done
1421 footer "$(eval_ngettext \
1422 '$categories category' \
1423 '$categories categories' $categories)"; echo
1424 exit 0
1425 fi
1426 # Check for an asked category.
1427 ASKED_CATEGORY_I18N="$@"
1428 if [ -n "$ASKED_CATEGORY_I18N" ]; then
1429 ASKED_CATEGORY=$(reverse_translate_category "$ASKED_CATEGORY_I18N")
1430 title 'Installed packages of category: $ASKED_CATEGORY_I18N'
1431 for pkg in $INSTALLED/*
1432 do
1433 [ -f $pkg/receipt ] || continue
1434 EXTRAVERSION=""
1435 . $pkg/receipt
1436 if [ "$CATEGORY" == "$ASKED_CATEGORY" ]; then
1437 echo -e "$PACKAGE\033[24G $VERSION$EXTRAVERSION"
1438 packages=$(($packages+1))
1439 fi
1440 done
1441 footer "$(emsg $(eval_ngettext \
1442 '<c 32>$packages</c> package installed of category <c 34>$ASKED_CATEGORY_I18N</c>.' \
1443 '<c 32>$packages</c> packages installed of category <c 34>$ASKED_CATEGORY_I18N</c>.' \
1444 $packages))"; echo
1445 else
1446 # By default list all packages and versions.
1447 title 'List of all installed packages'
1448 for pkg in $INSTALLED/*
1449 do
1450 [ -f $pkg/receipt ] || continue
1451 EXTRAVERSION=""
1452 . $pkg/receipt
1453 echo -e "$PACKAGE\033[24G $VERSION$EXTRAVERSION\033[42G $(gettext $CATEGORY)"
1454 packages=$(($packages+1))
1455 done
1456 footer "$(emsg $(eval_ngettext \
1457 '<c 32>$packages</c> <b>package installed.</b>' \
1458 '<c 32>$packages</c> <b>packages installed.</b>' $packages))"
1459 fi ;;
1460 list-mirror|-lm)
1461 # List all available packages on the mirror. Option --diff displays
1462 # last mirrored packages diff (see recharge).
1463 check_for_packages_list
1464 case $2 in
1465 --diff)
1466 if [ -f "$LOCALSTATE/packages.diff" ]; then
1467 title 'Mirrored packages diff'
1468 cat $LOCALSTATE/packages.diff
1469 pkgs=`cat $LOCALSTATE/packages.diff | wc -l`
1470 footer "$(eval_ngettext \
1471 '$pkgs new package listed on the mirror.' \
1472 '$pkgs new packages listed on the mirror.' $pkgs)"
1473 else
1474 newline
1475 gettext "Unable to list anything, no packages.diff found."; echo
1476 gettext "Recharge your current list to create a first diff."; echo
1477 newline
1478 fi && exit 0 ;;
1479 --text|--txt|--raw|*)
1480 title 'List of available packages on the mirror'
1481 cat $LOCALSTATE/packages.txt ;;
1482 esac
1483 pkgs=$(cat $LOCALSTATE/packages.list | wc -l)
1484 footer "$(emsg $(eval_ngettext \
1485 '<c 32>$pkgs</c> package in the last recharged list.' \
1486 '<c 32>$pkgs</c> packages in the last recharged list.' $pkgs))"
1487 ;;
1488 list-files|-lf)
1489 # List files installed with the package.
1490 check_for_package_on_cmdline
1491 check_for_receipt
1492 title 'Installed files by: $PACKAGE'
1493 cat $INSTALLED/$PACKAGE/files.list | sort
1494 files=$(cat $INSTALLED/$PACKAGE/files.list | wc -l)
1495 footer "$(emsg $(eval_ngettext \
1496 '<c 32>$files</c> file installed with $PACKAGE' \
1497 '<c 32>$files</c> files installed with $PACKAGE' $files))"
1498 ;;
1499 info)
1500 # Information about package.
1501 check_for_package_on_cmdline
1502 check_for_receipt
1503 EXTRAVERSION=""
1504 . $INSTALLED/$PACKAGE/receipt
1505 title 'Tazpkg information'
1506 emsg "\
1507 <b>$(gettext 'Package :')</b> $PACKAGE
1508 <b>$(gettext 'Version :')</b> $VERSION$EXTRAVERSION
1509 <b>$(gettext 'Category :')</b> $(gettext $CATEGORY)
1510 <b>$(gettext 'Short desc :')</b> $SHORT_DESC
1511 <b>$(gettext 'Maintainer :')</b> $MAINTAINER"
1512 [ "$DEPENDS" ] && emsg "<b>$(gettext 'Depends :')</b> $DEPENDS"
1513 [ "$SUGGESTED" ] && emsg "<b>$(gettext 'Suggested :')</b> $SUGGESTED"
1514 [ "$BUILD_DEPENDS" ] && emsg "<b>$(gettext 'Build deps :')</b> $BUILD_DEPENDS"
1515 [ "$WANTED" ] && emsg "<b>$(gettext 'Wanted src :')</b> $WANTED"
1516 [ "$WEB_SITE" ] && emsg "<b>$(gettext 'Web site :')</b> $WEB_SITE"
1517 footer
1518 ;;
1519 desc)
1520 # Display package description.txt if available.
1521 if [ -f "$INSTALLED/$PACKAGE/description.txt" ]; then
1522 title 'Description of: $PACKAGE'
1523 cat $INSTALLED/$PACKAGE/description.txt
1524 footer
1525 else
1526 newline
1527 gettext "Sorry, no description available for this package."; echo
1528 newline
1529 fi ;;
1530 search|-s)
1531 # Search for a package by pattern or name.
1532 PATTERN="$2"
1533 if [ -z "$PATTERN" ]; then
1534 newline
1535 gettext "Please specify a pattern or package name to search for."; echo
1536 gettext "Example : 'tazpkg search paint'"; echo
1537 newline
1538 exit 0
1539 fi
1540 title 'Search result for: $PATTERN'
1541 # Default is to search in installed pkgs and the raw list.
1542 case $3 in
1543 -i|--installed)
1544 search_in_installed_packages ;;
1545 -l|--list)
1546 search_in_packages_list ;;
1547 -m|--mirror)
1548 search_in_packages_txt ;;
1549 *)
1550 search_in_installed_packages
1551 search_in_packages_list ;;
1552 esac ;;
1553 search-file|-sf)
1554 # Search for a file by pattern or name in all files.list.
1555 if [ -z "$2" ]; then
1556 newline
1557 gettext "Please specify a pattern or file name to search for."; echo
1558 gettext "Example : 'tazpkg search-file libnss'"; echo
1559 newline
1560 exit 0
1561 fi
1562 s_file="$2"
1563 title 'Search result for file $s_file'
1564
1565 if [ "$3" == "--mirror" ]; then
1566
1567 match=0
1568 for i in $LOCALSTATE/files.list.lzma \
1569 $LOCALSTATE/undigest/*/files.list.lzma; do
1570 [ -f $i ] || continue
1571 unlzma -c $i | grep -- ".*:.*$2" | awk '
1572 BEGIN { last="" }
1573 {
1574 pkg=substr($0,0,index($0,":")-1);
1575 file=substr($0,index($0,":")+2);
1576 if (last != pkg) {
1577 last = pkg;
1578 printf("\n%c[1mPackage %s:%c[0m\n",27,pkg,27);
1579 }
1580 printf("%s\n",file);
1581 }'
1582 match=$(($match + `unlzma -c $i | grep -- ".*:.*$2" | wc -l`))
1583 done
1584
1585 else
1586
1587 # Check all pkg files.list in search match which specify the package
1588 # name and the full path to the file(s).
1589 for pkg in $INSTALLED/*
1590 do
1591 if grep -qs "$2" $pkg/files.list; then
1592 . $pkg/receipt
1593 newline
1594 boldify "$(eval_gettext 'Package $PACKAGE:')"
1595 grep "$2" $pkg/files.list
1596 files=`grep $2 $pkg/files.list | wc -l`
1597 match=$(($match+$files))
1598 fi
1599 done
1600
1601 fi
1602 pkg=$2
1603 if [ "$match" = "" ]; then
1604 eval_gettext "0 file found for: \$pkg"; echo
1605 else
1606 footer "$(eval_ngettext \
1607 '$match file found for: $pkg' \
1608 '$match files found for: $pkg' $match)"
1609 fi
1610 ;;
1611 search-pkgname)
1612 # Search for a package name
1613 if [ -z "$2" ]; then
1614 newline
1615 gettext "Please specify a pattern or file name to search for."; echo
1616 gettext "Example : 'tazpkg search-pkgname libnss'"; echo
1617 newline
1618 exit 0
1619 fi
1620 s_pkg="$2"
1621 title 'Search result for package $s_pkg'
1622
1623 # Search for a file on mirror and output only the package name
1624 match=0
1625 for i in $LOCALSTATE/files.list.lzma \
1626 $LOCALSTATE/undigest/*/files.list.lzma; do
1627 [ -f $i ] || continue
1628 unlzma -c $i | grep -- ".*:.*$2" | cut -d: -f1 | uniq | awk '{ print $1 }'
1629 match=$(($match + `unlzma -c $i | grep -- ".*:.*$2" | cut -d: -f1 | uniq | wc -l`))
1630 done
1631 file=$2
1632 if [ "$match" = "0" ]; then
1633 eval_gettext "0 file found for: \$file"; echo
1634 newline
1635 else
1636 footer "$(eval_ngettext \
1637 '$match package found with file: $file' \
1638 '$match packages found with file: $file' $match)"
1639 fi
1640 ;;
1641 install|-i)
1642 # Install .tazpkg packages.
1643 check_root $@
1644 check_for_package_on_cmdline
1645 check_for_package_file
1646
1647 [ "$root" ] && ROOT="$root" && check_base_dir "$root"
1648 [ "$list" ] && INSTALL_LIST="$list"
1649 if [ "$rootconfig" ]; then
1650 if [ "$root" ]; then
1651 CACHE_DIR=$root/$CACHE_DIR
1652 SAVE_CACHE_DIR=$CACHE_DIR
1653 LOCALSTATE=$root/$LOCALSTATE
1654 else
1655 echo "rootconfig needs --root= option used." >&2
1656 exit 1
1657 fi
1658 fi
1659
1660 # Get repositories priority list.
1661 look_for_priority
1662
1663 # Check if forced install.
1664 if ! [ "$forced" ]; then
1665 check_for_installed_package $ROOT
1666 fi
1667 install_package $ROOT
1668 update_desktop_database $ROOT
1669 update_mime_database $ROOT
1670 update_icon_database $ROOT
1671 compile_glib_schemas $ROOT ;;
1672 install-list|get-install-list)
1673 # Install a set of packages from a list.
1674 check_root $@
1675 if [ -z "$2" ]; then
1676 newline
1677 gettext \
1678 "Please change directory (cd) to the packages repository and specify the
1679 list of packages to install. Example: tazpkg install-list packages.list"
1680 newline && exit 0
1681 fi
1682 # Check if the packages list exist.
1683 list_file=$2
1684 if [ ! -f "$list_file" ]; then
1685 eval_gettext "Unable to find: \$list_file"; echo
1686 exit 0
1687 else
1688 LIST=`cat $2`
1689 fi
1690
1691 # Remember processed list
1692 export INSTALL_LIST="$2"
1693
1694 # Set $COMMAND and install all packages.
1695 if [ "$1" = "get-install-list" ]; then
1696 COMMAND=get-install
1697 else
1698 COMMAND=install
1699 fi
1700 touch $2-processed
1701
1702 # Upgrade tazpkg first. It may handle new features/formats...
1703 # then upgrade essential packages early
1704 for pkg in busybox-pam busybox gcc-lib-base glibc-base \
1705 slitaz-base-files tazpkg ; do
1706 pkg=$(egrep $pkg-[0-9] $INSTALL_LIST)
1707 [ -n "$pkg" ] || continue
1708 eval_gettext "Adding implicit depends \$pkg..."; echo
1709 LIST="$pkg
1710 $LIST"
1711 done
1712
1713 for pkg in $LIST
1714 do
1715 grep -qs ^$pkg$ $2-processed && continue
1716 tazpkg $COMMAND $pkg --list=$2 "$3" "$4" "$5"
1717 done
1718 rm -f $2-processed ;;
1719 add-flavor)
1720 # Install a set of packages from a flavor.
1721 install_flavor $2 ;;
1722 install-flavor)
1723 # Install a set of packages from a flavor and purge other ones.
1724 install_flavor $2 --purge ;;
1725 set-release)
1726 # Change curent release and upgrade packages.
1727 RELEASE=$2
1728 if [ -z "$RELEASE" ]; then
1729 newline
1730 gettext "Please specify the release you want on the command line."; echo
1731 gettext "Example: tazpkg set-release cooking"; echo
1732 newline
1733 exit 0
1734 fi
1735 rm $LOCALSTATE/mirror
1736 echo "$RELEASE" > /etc/slitaz-release
1737 tazpkg recharge && tazpkg upgrade
1738
1739 # Install missing depends
1740 cd $INSTALLED
1741 for i in * ; do
1742 DEPENDS=""
1743 . $i/receipt
1744 for j in $DEPENDS ; do
1745 [ -d $j ] || tazpkg get-install $j
1746 done
1747 done ;;
1748 remove|-r)
1749 # Remove packages.
1750 check_root $@
1751 check_for_package_on_cmdline
1752
1753 [ "$root" ] && ROOT="$root"
1754 if [ ! -f "$ROOT$INSTALLED/$PACKAGE/receipt" ]; then
1755 newline
1756 eval_gettext "\$PACKAGE is not installed."; echo
1757 exit 0
1758 else
1759 ALTERED=""
1760 THE_PACKAGE=$PACKAGE # altered by receipt
1761 for i in $(cd $ROOT$INSTALLED ; ls); do
1762 [ -f $ROOT$INSTALLED/$i/receipt ] || continue
1763 DEPENDS=""
1764 . $ROOT$INSTALLED/$i/receipt
1765 case " $(echo $DEPENDS) " in
1766 *\ $THE_PACKAGE\ *) ALTERED="$ALTERED $i";;
1767 esac
1768 done
1769 EXTRAVERSION=""
1770 . $ROOT$INSTALLED/$THE_PACKAGE/receipt
1771 fi
1772 newline
1773 if [ -n "$ALTERED" ]; then
1774 eval_gettext "The following packages depend on \$PACKAGE:"; echo
1775 for i in $ALTERED; do
1776 echo " $i"
1777 done
1778 fi
1779 REFRESH=$(cd $ROOT$INSTALLED ; grep -sl ^$PACKAGE$ */modifiers)
1780 if [ -n "$REFRESH" ]; then
1781 eval_gettext "The following packages have been modified by \$PACKAGE:"; echo
1782 for i in $REFRESH; do
1783 echo " ${i%/modifiers}"
1784 done
1785 fi
1786 if [ "$auto" ]; then
1787 answer=0
1788 else
1789 eval_gettext "Remove \$PACKAGE (\$VERSION\$EXTRAVERSION)" && confirm
1790 answer=$?
1791 fi
1792 if [ $answer = 0 ]; then
1793 title 'Removing: $PACKAGE'
1794 # Pre remove commands.
1795 if grep -q ^pre_remove $ROOT$INSTALLED/$PACKAGE/receipt; then
1796 pre_remove $ROOT
1797 fi
1798 action "Removing all files installed..."
1799 if [ -f $ROOT$INSTALLED/$PACKAGE/modifiers ]; then
1800 for file in `cat $ROOT$INSTALLED/$PACKAGE/files.list`
1801 do
1802 for mod in `cat $ROOT$INSTALLED/$PACKAGE/modifiers`
1803 do
1804 [ -f $ROOT$INSTALLED/$mod/files.list ] && [ $(grep "^$(echo $file | grepesc)$" $ROOT$INSTALLED/$mod/files.list | wc -l) -gt 1 ] && continue 2
1805 done
1806 remove_with_path $ROOT$file
1807 done
1808 else
1809 for file in `cat $ROOT$INSTALLED/$PACKAGE/files.list`
1810 do
1811 remove_with_path $ROOT$file
1812 done
1813 fi
1814 status
1815 if grep -q ^post_remove $ROOT$INSTALLED/$PACKAGE/receipt; then
1816 post_remove $ROOT
1817 fi
1818 # Remove package receipt.
1819 action "Removing package receipt..."
1820 rm -rf $ROOT$INSTALLED/$PACKAGE
1821 status
1822 sed -i "/ $PACKAGE-$VERSION$EXTRAVERSION$/d" \
1823 $LOCALSTATE/installed.$SUM 2> /dev/null
1824 # Log this activity
1825 log_pkg Removed
1826 if [ "$ALTERED" ]; then
1827 if [ "$auto" ]; then
1828 answer=0
1829 else
1830 eval_gettext "Remove packages depending on \$PACKAGE" && confirm
1831 answer=$?
1832 fi
1833 if [ $answer = 0 ]; then
1834 for i in $ALTERED; do
1835 if [ -d "$ROOT$INSTALLED/$i" ]; then
1836 tazpkg remove $i $ROOTOPTS
1837 fi
1838 done
1839 fi
1840 fi
1841 if [ "$REFRESH" ]; then
1842 if [ "$auto" ]; then
1843 answer=0
1844 else
1845 eval_gettext "Reinstall packages modified by \$PACKAGE" && confirm
1846 answer=$?
1847 fi
1848 if [ $answer = 0 ]; then
1849 for i in $REFRESH; do
1850 if [ $(wc -l < $ROOT$INSTALLED/$i) -gt 1 ]; then
1851 eval_gettext "Check \$INSTALLED/\$i for reinstallation"; echo
1852 continue
1853 fi
1854 rm -r $ROOT$INSTALLED/$i
1855 tazpkg get-install ${i%/modifiers} $ROOTOPTS --forced
1856 done
1857 fi
1858 fi
1859 else
1860 newline
1861 eval_gettext "Uninstallation of \$PACKAGE cancelled."; echo
1862 fi
1863 newline ;;
1864 extract|-e)
1865 # Extract .tazpkg cpio archive into a directory.
1866 check_for_package_on_cmdline
1867 check_for_package_file
1868 title 'Extracting: $PACKAGE'
1869 # If no directory destination is found on the cmdline
1870 # we create one in the current dir using the package name.
1871 if [ -n "$TARGET_DIR" ]; then
1872 DESTDIR=$TARGET_DIR/$PACKAGE
1873 else
1874 DESTDIR=$PACKAGE
1875 fi
1876 mkdir -p $DESTDIR
1877 action "Copying original package..."
1878 cp $PACKAGE_FILE $DESTDIR
1879 status
1880 cd $DESTDIR
1881 extract_package
1882 [ -e "receipt" ] && footer "$(eval_gettext '$PACKAGE is extracted to: $DESTDIR')"
1883 ;;
1884 recompress)
1885 # Recompress .tazpkg cpio archive with lzma.
1886 check_for_package_on_cmdline
1887 check_for_package_file
1888 title 'Recompressing: $PACKAGE'
1889 mkdir -p $TMP_DIR
1890 action "Copying original package..."
1891 cp $PACKAGE_FILE $TMP_DIR
1892 status
1893 cd $TMP_DIR
1894 extract_package
1895 action "Recompressing the fs..."
1896 find fs | cpio -o -H newc --quiet | lzma e fs.cpio.lzma -si
1897 rm -rf fs
1898 status
1899 action "Creating new package..."
1900 find . -print | cpio -o -H newc --quiet > \
1901 $TOP_DIR/$(basename $PACKAGE_FILE).$$ && mv -f \
1902 $TOP_DIR/$(basename $PACKAGE_FILE).$$ \
1903 $TOP_DIR/$(basename $PACKAGE_FILE)
1904 status
1905 cd $TOP_DIR
1906 rm -rf $TMP_DIR
1907 separator; newline ;;
1908 list-config)
1909 # List configuration files installed.
1910 if [ "$2" = "--box" ]; then
1911 mkdir -p $TMP_DIR && cd $TMP_DIR
1912 FILES="$INSTALLED/*/volatile.cpio.gz"
1913 [ -n "$3" ] && FILES="$INSTALLED/$3/volatile.cpio.gz"
1914 for i in $FILES; do
1915 zcat $i | cpio -idm --quiet > /dev/null
1916 find * -type f 2>/dev/null | while read file; do
1917 if [ ! -e /$file ]; then
1918 echo -en "----------|----|----|`gettext \"File lost\"`"
1919 else
1920 echo -n "$(stat -c "%A|%U|%G|%s|" /$file)"
1921 cmp $file /$file > /dev/null 2>&1 || \
1922 echo -n "$(stat -c "%.16y" /$file)"
1923 fi
1924 echo "|/$file"
1925 done
1926 rm -rf *
1927 done
1928 cd $TOP_DIR
1929 rm -rf $TMP_DIR
1930 else
1931 title 'Configuration files'
1932 for i in $INSTALLED/*/volatile.cpio.gz; do
1933 [ -n "$2" -a "$i" != "$INSTALLED/$2/volatile.cpio.gz" ] && continue
1934 [ -f "$i" ] || continue
1935 zcat $i | cpio -t --quiet
1936 done | sed 's|^|/|' | sort
1937 separator
1938 newline
1939 fi ;;
1940 repack-config)
1941 # Create SliTaz package archive from configuration files.
1942 mkdir -p $TMP_DIR && cd $TMP_DIR
1943 CONFIG_VERSION=1.0
1944 mkdir config-$CONFIG_VERSION
1945 cd config-$CONFIG_VERSION
1946 for i in $INSTALLED/*/volatile.cpio.gz; do
1947 zcat $i | cpio -t --quiet
1948 done > files.list
1949 mkdir fs
1950 cd fs
1951 ( cd / ; cpio -o -H newc --quiet ) < ../files.list | cpio -idm --quiet > /dev/null
1952 mkdir -p etc/tazlito
1953 for i in $INSTALLED/*/receipt; do
1954 EXTRAVERSION=""
1955 . $i
1956 echo "$PACKAGE-$VERSION$EXTRAVERSION"
1957 done > etc/tazlito/config-packages.list
1958 cd ..
1959 echo "etc/tazlito/config-packages.list" >> files.list
1960 pkg_date=$(date +"%x %X")
1961 cat > receipt <<EOT
1962 # SliTaz package receipt.
1963
1964 PACKAGE="config"
1965 VERSION="$CONFIG_VERSION"
1966 CATEGORY="base-system"
1967 SHORT_DESC="$(eval_gettext 'User configuration backup on $pkg_date')"
1968 DEPENDS="$(ls $INSTALLED)"
1969 EOT
1970 cd ..
1971 tazpkg pack config-$CONFIG_VERSION
1972 cp config-$CONFIG_VERSION.tazpkg $TOP_DIR
1973 cd $TOP_DIR
1974 rm -rf $TMP_DIR
1975 ;;
1976 repack)
1977 # Create SliTaz package archive from an installed package.
1978 check_for_package_on_cmdline
1979 check_for_receipt
1980 EXTRAVERSION=""
1981 . $INSTALLED/$PACKAGE/receipt
1982 title 'Repacking: $PACKAGE-$VERSION$EXTRAVERSION.tazpkg'
1983 if grep -qs ^NO_REPACK= $INSTALLED/$PACKAGE/receipt; then
1984 eval_gettext "Can't repack \$PACKAGE"; echo
1985 exit 1
1986 fi
1987 if [ -s $INSTALLED/$PACKAGE/modifiers ]; then
1988 eval_gettext "Can't repack, \$PACKAGE files have been modified by:"; echo
1989 for i in $(cat $INSTALLED/$PACKAGE/modifiers); do
1990 echo " $i"
1991 done
1992 exit 1
1993 fi
1994 MISSING=""
1995 while read i; do
1996 [ -e "$i" ] && continue
1997 [ -L "$i" ] || MISSING="$MISSING\n $i"
1998 done < $INSTALLED/$PACKAGE/files.list
1999 if [ -n "$MISSING" ]; then
2000 gettext "Can't repack, the following files are lost:"
2001 echo -e "$MISSING"
2002 exit 1
2003 fi
2004 mkdir -p $TMP_DIR && cd $TMP_DIR
2005 FILES="fs.cpio.lzma\n"
2006 for i in $(ls $INSTALLED/$PACKAGE) ; do
2007 [ "$i" = "volatile.cpio.gz" ] && continue
2008 [ "$i" = "modifiers" ] && continue
2009 cp $INSTALLED/$PACKAGE/$i . && FILES="$FILES$i\n"
2010 done
2011 ln -s / rootfs
2012 mkdir tmp
2013 sed 's/^/rootfs/' < files.list | cpio -o -H newc --quiet |\
2014 { cd tmp ; cpio -idm --quiet >/dev/null; cd ..; }
2015 mv tmp/rootfs fs
2016 if [ -f $INSTALLED/$PACKAGE/volatile.cpio.gz ]; then
2017 zcat $INSTALLED/$PACKAGE/volatile.cpio.gz | \
2018 { cd fs; cpio -idm --quiet; cd ..; }
2019 fi
2020 if fgrep -q repack_cleanup $INSTALLED/$PACKAGE/receipt; then
2021 . $INSTALLED/$PACKAGE/receipt
2022 repack_cleanup fs
2023 fi
2024 if [ -f $INSTALLED/$PACKAGE/$CHECKSUM ]; then
2025 sed 's, , fs,' < $INSTALLED/$PACKAGE/$CHECKSUM | \
2026 $CHECKSUM -s -c || {
2027 eval_gettext "Can't repack, \$CHECKSUM error."; echo
2028 cd $TOP_DIR
2029 rm -rf $TMP_DIR
2030 exit 1
2031 }
2032 fi
2033 find fs | cpio -o -H newc --quiet | lzma e fs.cpio.lzma -si
2034 echo -e "$FILES" | cpio -o -H newc --quiet > \
2035 $TOP_DIR/$PACKAGE-$VERSION$EXTRAVERSION.tazpkg
2036 cd $TOP_DIR
2037 \rm -R $TMP_DIR
2038 eval_gettext "Package \$PACKAGE repacked successfully."; echo
2039 pkg_size=$(du -sh $PACKAGE-$VERSION$EXTRAVERSION.tazpkg)
2040 eval_gettext "Size: \$pkg_size"; echo
2041 newline ;;
2042 pack)
2043 # Create SliTaz package archive using cpio and lzma.
2044 # TODO: Cook also pack packages, we should share code in libpkg.sh
2045 check_for_package_on_cmdline
2046 cd $PACKAGE
2047 if [ ! -f "receipt" ]; then
2048 gettext "Receipt is missing. Please read the documentation."; echo
2049 exit 0
2050 else
2051 title 'Packing: $PACKAGE'
2052 # Create files.list with redirecting find outpout.
2053 action "Creating the list of files..."
2054 cd fs
2055 find . -type f -print > ../files.list
2056 find . -type l -print >> ../files.list
2057 cd .. && sed -i s/'^.'/''/ files.list
2058 status
2059 action "Creating \$CHECKSUM of files..."
2060 while read file; do
2061 [ -L "fs$file" ] && continue
2062 [ -f "fs$file" ] || continue
2063 case "$file" in
2064 /lib/modules/*/modules.*|*.pyc) continue;;
2065 esac
2066 $CHECKSUM "fs$file" | sed 's/ fs/ /'
2067 done < files.list > $CHECKSUM
2068 status
2069 UNPACKED_SIZE=$(du -chs fs receipt files.list $CHECKSUM \
2070 description.txt 2> /dev/null | awk \
2071 '{ sz=$1 } END { print sz }')
2072 # Build cpio archives.
2073 action "Compressing the fs..."
2074 find fs | cpio -o -H newc --quiet | lzma e fs.cpio.lzma -si
2075 rm -rf fs
2076 status
2077 PACKED_SIZE=$(du -chs fs.cpio.lzma receipt files.list \
2078 $CHECKSUM description.txt 2> /dev/null | awk \
2079 '{ sz=$1 } END { print sz }')
2080 action "Updating receipt sizes..."
2081 sed -i s/^PACKED_SIZE.*$// receipt
2082 sed -i s/^UNPACKED_SIZE.*$// receipt
2083 sed -i "s/^PACKAGE=/PACKED_SIZE=\"$PACKED_SIZE\"\nUNPACKED_SIZE=\"$UNPACKED_SIZE\"\nPACKAGE=/" receipt
2084 status
2085 action "Creating full cpio archive..."
2086 find . -print | cpio -o -H newc --quiet > ../$PACKAGE.tazpkg
2087 status
2088 action "Restoring original package tree..."
2089 unlzma -c fs.cpio.lzma | cpio -idm --quiet
2090 status
2091 rm fs.cpio.lzma && cd ..
2092 footer "$(eval_gettext 'Package $PACKAGE compressed successfully.')"
2093 pkg_size=$(du -sh $PACKAGE.tazpkg)
2094 eval_gettext "Size: \$pkg_size"; echo
2095 newline
2096 fi ;;
2097 recharge)
2098 # Recharge packages.list from a mirror.
2099 #
2100 # WARRNING: The mirrors file have all SliTaz mirrors but mirror
2101 # must have only the choosen main mirror.
2102 #
2103 check_root $@
2104
2105 ARG=$2
2106 if [ "$root" ]; then
2107 LOCALSTATE=$root$LOCALSTATE
2108 [ "${2#--}" != "$2" ] && ARG=$3
2109 fi
2110 if [ "$ARG" = main ]; then
2111 repository_to_recharge=$LOCALSTATE
2112 elif [ "$ARG" ]; then
2113 if [ -d "$LOCALSTATE/undigest/$ARG" ]; then
2114 repository_to_recharge=$LOCALSTATE/undigest/$ARG
2115 else
2116 repo="$LOCALSTATE/undigest/$ARG"
2117 eval_gettext "\$repo doesn't exist." >&2
2118 echo >&2
2119 exit 1
2120 fi
2121 else
2122 repository_to_recharge="$LOCALSTATE $LOCALSTATE/undigest/*"
2123 fi
2124 for path in $repository_to_recharge; do
2125 [ -f $path/mirror ] || continue
2126 cd $path
2127
2128 # Quietly check if recharging is needed.
2129 [ -f ID ] && mv ID ID.bak
2130 download_from "$(cat mirror)" ID >/dev/null 2>/dev/null
2131 if [ -f ID ] && fgrep -q `cat ID.bak 2>/dev/null || echo "null"` ID; then
2132 if [ "$path" = "$LOCALSTATE" ]; then
2133 repository_name=Main
2134 else
2135 base_path="$(basename $path)"
2136 repository_name="$(eval_gettext 'Undigest $base_path')"
2137 fi
2138 eval_gettext "\$repository_name is up to date."; echo
2139 rm ID.bak
2140 continue
2141 fi
2142
2143 # Don't let ID be a symlink when using local repository.
2144 if [ -f ID ]; then
2145 mv -f ID ID.bak
2146 cat ID.bak > ID
2147 rm ID.bak
2148 fi
2149
2150 newline
2151 if [ "$path" != "$LOCALSTATE" ]; then
2152 base_path="$(basename $path)"
2153 eval_gettext "Recharging undigest \$base_path:"; echo
2154 fi
2155
2156 if [ -f "packages.list" ]; then
2157 action "Creating backup of the last packages list..."
2158 for i in packages.desc packages.$SUM packages.txt \
2159 packages.list packages.equiv files.list.lzma \
2160 mirrors
2161 do
2162 mv -f $i $i.bak 2>/dev/null
2163 done
2164 status
2165 fi
2166
2167 for i in desc md5 txt list equiv; do
2168 download_from "$(cat mirror)" packages.$i
2169 done
2170 download_from "$(cat mirror)" files.list.lzma
2171 download_from "$(sed 's|packages/.*||' < mirror)" mirrors
2172
2173 if [ -f "packages.list.bak" ]; then
2174 diff -u packages.list.bak packages.list | grep ^+[a-z] > packages.diff
2175 sed -i s/+// packages.diff
2176 title 'Mirrored packages diff'
2177 cat packages.diff
2178 new_pkgs=`cat packages.diff | wc -l`
2179 if [ "$new_pkgs" != 0 ]; then
2180 footer "$(eval_ngettext \
2181 '$new_pkgs new package on the mirror.' \
2182 '$new_pkgs new packages on the mirror.' $new_pkgs)"
2183 else
2184 gettext "No new packages on the mirror."; echo
2185 newline
2186 fi
2187 else
2188 footer "$(gettext \
2189 'Last packages.list is ready to use. Note that next time you recharge the
2190 list, a list of differences will be displayed to show new and upgradeable
2191 packages.')"
2192 fi
2193 done ;;
2194 help-up)
2195 # Options available for the command: up
2196 newline; usage_up; newline
2197 exit 1
2198 ;;
2199 up|upgrade)
2200 #
2201 # This is the new way to upgrade packages making 'upgrade' and
2202 # upgradeable out-of-date. This new way is much, much more faster!
2203 # Look into installed packages and get data from receipt, it is fast
2204 # and easy to handle vars after using only md5sum to compare packages
2205 #
2206 for opt in $@
2207 do
2208 case "$opt" in
2209 --recharge|-r)
2210 tazpkg recharge ;;
2211 --install|-i)
2212 install="y" ;;
2213 --check|-c)
2214 install="n" ;;
2215 esac
2216 done
2217 time=$(date +%s)
2218 installed_sum=$LOCALSTATE/installed.$SUM
2219 look_for_priority
2220 for repo in $priority; do
2221 pkg_list=$repo/packages.list
2222 mtime=`find $pkg_list -mtime +7`
2223 if [ "$mtime" ]; then
2224 if [ "$repo" = "$LOCALSTATE" ]; then
2225 repo_name=main
2226 else
2227 repo_name="${repo##*/}"
2228 fi
2229 eval_gettext "\$pkg_list is older than one week... recharging"; echo
2230 tazpkg recharge $repo_name
2231 fi
2232 done
2233 emsg "<n><b>$(gettext 'Package')</b><i 28> $(gettext 'Version')<i 48> $(gettext 'Status')<->"
2234 cd $INSTALLED
2235 newline > $UP_LIST
2236 blocked_count=0
2237 for pkg in *
2238 do
2239 unset VERSION EXTRAVERSION
2240 . $pkg/receipt
2241 md5=$(fgrep " $PACKAGE-${VERSION}$EXTRAVERSION.tazpkg" \
2242 $installed_sum | awk '{print $1}')
2243 for repo in $priority; do
2244 pkg_desc=$repo/packages.desc
2245 pkg_list=$repo/packages.list
2246 pkg_sum=$repo/packages.$SUM
2247
2248 if ! fgrep -q "$md5 $PACKAGE-" $pkg_sum; then
2249 # Jump to next repository in priority if pkg doesn't exists
2250 # in this one.
2251 grep -q ^$PACKAGE- $pkg_list || continue
2252
2253 emsg -n "$PACKAGE<i 28> $VERSION"
2254
2255 # Skip pkgs listed in $LOCALSTATE/blocked-packages.list
2256 if $(grep -qs "^$PACKAGE" $BLOCKED); then
2257 blocked_count=$(($blocked_count + 1))
2258 emsg "<i 48><c 31> $(gettext 'Blocked')</c>"
2259 break
2260 fi
2261
2262 new=$(grep "^$PACKAGE |" $pkg_desc | awk '{print $3}')
2263
2264 if [ "$VERSION" == "$new" ]; then
2265 emsg "<i 48><c 34> $(gettext 'New build')</c>"
2266 else
2267 emsg "<i 48><c 32> $(eval_gettext 'New version $new')</c>"
2268 fi
2269 echo "$PACKAGE" >> $UP_LIST
2270 break
2271 fi
2272 done
2273 done
2274 sed -i /^$/d $UP_LIST
2275 upnb=$(cat $UP_LIST | wc -l)
2276 pkgs=$(ls | wc -l)
2277 time=$(($(date +%s) - $time))
2278 if [ "$upnb" = 0 ]; then
2279 install="n"
2280 gettext "System is up-to-date..."; echo
2281 newline
2282 fi
2283 footer "$(eval_ngettext \
2284 '$pkgs installed package scanned in ${time}s' \
2285 '$pkgs installed packages scanned in ${time}s' $pkgs)"
2286 if [ "$upnb" != 0 ]; then
2287 if [ "$blocked_count" -gt 0 ]; then
2288 blocks="("$(eval_ngettext '$blocked_count blocked' \
2289 '$blocked_count blocked' $blocked_count)")"
2290 fi
2291 boldify "$(eval_ngettext \
2292 'You have $upnb available upgrade $blocks' \
2293 'You have $upnb available upgrades $blocks' $upnb)"
2294 newline
2295 fi
2296 # Pkgs to upgrade ? Skip, let install them all or ask user
2297 [ "$install" == "n" ] && exit 0
2298 if [ "$upnb" -gt 0 ]; then
2299 if [ "$install" == "y" ]; then
2300 continue
2301 else
2302 gettext "Do you wish to install them now: y/n ? "
2303 read install
2304 fi
2305 case "$install" in
2306 y|Y|yes|YES|Yes)
2307 for pkg in $(cat $UP_LIST)
2308 do
2309 echo 'y' | tazpkg get-install $pkg --forced
2310 done
2311 # List is generated each time and must be cleaned so
2312 # tazpkg-notify dont find upgrade anymore.
2313 rm $UP_LIST && touch $UP_LIST ;;
2314 *)
2315 gettext "Leaving without any upgrades installed."; echo
2316 newline
2317 exit 0 ;;
2318 esac
2319 fi
2320 newline ;;
2321 bugs)
2322 # Show known bugs in package(s)
2323 cd $INSTALLED
2324 shift
2325 LIST=$@
2326 [ -n "$LIST" ] || LIST=`ls`
2327 MSG=$(gettext "No known bugs.")
2328 for PACKAGE in $LIST; do
2329 BUGS=""
2330 EXTRAVERSION=""
2331 . $PACKAGE/receipt
2332 if [ -n "$BUGS" ]; then
2333 MSG=$(gettext "Bug list completed")
2334 newline
2335 eval_gettext "Bugs in package \$PACKAGE version \$VERSION\$EXTRAVERSION:"; echo
2336 cat <<EOT
2337 $BUGS
2338 EOT
2339 fi
2340 done
2341 echo "$MSG" ;;
2342 check)
2343 # Check installed packages set.
2344 check_root $@
2345
2346 # Get repositories priority list.
2347 look_for_priority
2348
2349 cd $INSTALLED
2350 for PACKAGE in `ls`; do
2351 if [ ! -f $PACKAGE/receipt ]; then
2352 eval_gettext "The package \$PACKAGE installation has not completed"; echo
2353 continue
2354 fi
2355 DEPENDS=""
2356 EXTRAVERSION=""
2357 . $PACKAGE/receipt
2358 if [ -s $PACKAGE/modifiers ]; then
2359 eval_gettext \
2360 "The package \$PACKAGE-\$VERSION\$EXTRAVERSION has been modified by:"; echo
2361 for i in $(cat $PACKAGE/modifiers); do
2362 echo " $i"
2363 done
2364 fi
2365 MSG="$(eval_gettext 'Files lost from $PACKAGE-$VERSION$EXTRAVERSION:')\n"
2366 while read file; do
2367 [ -e "$file" ] && continue
2368 if [ -L "$file" ]; then
2369 MSG="$MSG $(gettext 'target of symlink')"
2370 fi
2371 echo -e "$MSG $file"
2372 MSG=""
2373 done < $PACKAGE/files.list
2374 MSG="$(eval_gettext 'Missing dependencies for $PACKAGE-$VERSION$EXTRAVERSION:')\n"
2375 for i in $DEPENDS; do
2376 [ -d $i ] && continue
2377 [ -d $(equivalent_pkg $i) ] && continue
2378 echo -e "$MSG $i"
2379 MSG=""
2380 done
2381 MSG="$(eval_gettext 'Dependencies loop between $PACKAGE and:')\n"
2382 ALL_DEPS=""
2383 check_for_deps_loop $PACKAGE $DEPENDS
2384 done
2385 gettext "Looking for known bugs..."; echo
2386 tazpkg bugs
2387 if [ "$PACKAGE_FILE" = "--full" ]; then
2388 for file in */$CHECKSUM; do
2389 CONFIG_FILES=""
2390 . $(dirname "$file")/receipt
2391 [ -s "$file" ] || continue
2392 while read md5 f; do
2393 [ -f $f ] || continue
2394 for i in $CONFIG_FILES; do
2395 case "$f" in
2396 $i|$i/*) continue 2;;
2397 esac
2398 done
2399 echo "$md5 $f"
2400 done < "$file" | $CHECKSUM -c - 2> /dev/null | \
2401 grep -v OK$ | sed 's/FAILED$/$CHECKSUM MISMATCH/'
2402 done
2403 FILES=" "
2404 for file in $(cat */files.list); do
2405 [ -d "$file" ] && continue
2406 case "$FILES" in *\ $file\ *) continue;; esac
2407 [ $(grep "^$(echo $file | grepesc)$" */files.list 2> /dev/null | \
2408 wc -l) -gt 1 ] || continue
2409 FILES="$FILES$file "
2410 eval_gettext "The following packages provide \$file:"; echo
2411 grep -l "^$(echo $file | grepesc)$" */files.list | while read f
2412 do
2413 pkg=${f%/files.list}
2414 if [ -f $pkg/modifiers ]; then
2415 overriders="$(cat $pkg/modifiers)"
2416 eval_gettext ' $pkg (overridden by $overriders)'
2417 else
2418 echo -n " $pkg"
2419 fi
2420 newline
2421 done
2422 done
2423 MSG="$(gettext 'No package has installed the following files:')\n"
2424 find /etc /bin /sbin /lib /usr /var/www \
2425 -not -type d 2> /dev/null | while read file; do
2426 case "$file" in *\[*) continue;; esac
2427 grep -q "^$(echo $file | grepesc)$" */files.list && continue
2428 echo -e "$MSG $file"
2429 MSG=""
2430 done
2431 fi
2432 gettext "Check completed."; echo ;;
2433 block)
2434 # Add a pkg name to the list of blocked packages.
2435 check_root $@
2436 check_for_package_on_cmdline
2437 newline
2438 if grep -qs "^$PACKAGE" $BLOCKED; then
2439 eval_gettext "\$PACKAGE is already in the blocked packages list."; echo
2440 newline
2441 exit 0
2442 else
2443 action "Add \$PACKAGE to: \$BLOCKED..."
2444 echo $PACKAGE >> $BLOCKED
2445 status
2446 # Log this activity
2447 . $INSTALLED/$PACKAGE/receipt
2448 log_pkg Blocked
2449 fi
2450 newline ;;
2451 unblock)
2452 # Remove a pkg name from the list of blocked packages.
2453 check_root $@
2454 check_for_package_on_cmdline
2455 newline
2456 if grep -qs "^$PACKAGE" $BLOCKED; then
2457 action "Removing \$PACKAGE from: \$BLOCKED..."
2458 sed -i s/$PACKAGE/''/ $BLOCKED
2459 sed -i '/^$/d' $BLOCKED
2460 status
2461 # Log this activity
2462 . $INSTALLED/$PACKAGE/receipt
2463 log_pkg Unblocked
2464 else
2465 eval_gettext "\$PACKAGE is not in the blocked packages list."; echo
2466 newline
2467 exit 0
2468 fi
2469 newline ;;
2470 get)
2471 # Download a package with wget.
2472 check_root $@
2473 check_for_package_on_cmdline
2474 check_for_packages_list
2475
2476 [ "$root" ] && ROOT="$root" && check_base_dir "$root"
2477 if [ "$rootconfig" ]; then
2478 if [ "$root" ]; then
2479 CACHE_DIR=$root/$CACHE_DIR
2480 SAVE_CACHE_DIR=$CACHE_DIR
2481 LOCALSTATE=$root/$LOCALSTATE
2482 else
2483 gettext "rootconfig needs --root= option used." >&2
2484 echo >&2
2485 exit 1
2486 fi
2487 fi
2488
2489 # Get repositories priority list.
2490 look_for_priority
2491
2492 CURRENT_DIR=$PWD
2493 check_for_package_in_list
2494 cd $CACHE_DIR
2495 if [ -f "$PACKAGE.tazpkg" ]; then
2496 eval_gettext "\$PACKAGE already in the cache: \$CACHE_DIR"; echo
2497 # Check package download was finished
2498 tail -c 2k $PACKAGE.tazpkg | fgrep -q 00000000TRAILER || {
2499 eval_gettext "Continuing \$PACKAGE download"; echo
2500 download $PACKAGE.tazpkg
2501 }
2502 if [ "$($CHECKSUM $PACKAGE.tazpkg)" != "$(fgrep " $PACKAGE.tazpkg" $rep/packages.$SUM)" ]; then
2503 rm -f $PACKAGE.tazpkg
2504 download $PACKAGE.tazpkg
2505 fi
2506 else
2507 download $PACKAGE.tazpkg
2508 fi
2509 PACKAGE_FILE=$CACHE_DIR/$PACKAGE.tazpkg
2510 cp -a $PACKAGE_FILE $CURRENT_DIR
2511 ;;
2512 get-install|-gi)
2513 # Download and install a package.
2514 check_root $@
2515 check_for_package_on_cmdline
2516 check_for_packages_list
2517
2518 DO_CHECK=""
2519 [ "$forced" ] && DO_CHECK=no
2520 [ "$root" ] && ROOT="$root" && check_base_dir "$root"
2521 [ "$list" ] && INSTALL_LIST="$list"
2522 if [ "$rootconfig" ]; then
2523 if [ "$root" ]; then
2524 CACHE_DIR=$root/$CACHE_DIR
2525 SAVE_CACHE_DIR=$CACHE_DIR
2526 LOCALSTATE=$root/$LOCALSTATE
2527 else
2528 gettext "rootconfig needs --root= option used." >&2
2529 echo >&2
2530 exit 1
2531 fi
2532 fi
2533
2534 # Get repositories priority list.
2535 look_for_priority
2536
2537 AUTOEXEC="no"
2538 if ! check_for_package_in_list check; then
2539 PACKAGE=get-$PACKAGE
2540 AUTOEXEC=$PACKAGE
2541 check_for_package_in_list
2542 if [ -n "$(get_installed_package_pathname $PACKAGE $ROOT)" ]; then
2543 CACHE_DIR="${CACHE_DIR%/*}/get"
2544 [ -d "$CACHE_DIR" ] || mkdir -p $CACHE_DIR
2545 $AUTOEXEC $ROOT
2546 exit 0
2547 fi
2548 fi
2549 # Check if forced install.
2550 if ! [ "$forced" ]; then
2551 check_for_installed_package $ROOT
2552 fi
2553 cd $CACHE_DIR
2554 if [ -f "$PACKAGE.tazpkg" ]; then
2555 eval_gettext "\$PACKAGE already in the cache: \$CACHE_DIR"; echo
2556 # Check package download was finished
2557 tail -c 2k $PACKAGE.tazpkg | fgrep -q 00000000TRAILER || {
2558 eval_gettext "Continuing \$PACKAGE download"; echo
2559 download $PACKAGE.tazpkg
2560 }
2561 if [ "$($CHECKSUM $PACKAGE.tazpkg)" != "$(fgrep " $PACKAGE.tazpkg" $rep/packages.$SUM)" ]; then
2562 rm -f $PACKAGE.tazpkg
2563 download $PACKAGE.tazpkg
2564 fi
2565 else
2566 newline
2567 download $PACKAGE.tazpkg
2568 fi
2569 PACKAGE_FILE=$CACHE_DIR/$PACKAGE.tazpkg
2570 [ "$rootconfig" ] && LOCALSTATE=${LOCALSTATE#$root}
2571 install_package $ROOT
2572 [ "$AUTOEXEC" != "no" ] && $PACKAGE $ROOT
2573 update_desktop_database $ROOT
2574 update_mime_database $ROOT ;;
2575 clean-cache|-cc)
2576 # Remove all downloaded packages.
2577 check_root $@
2578 files=$(find $CACHE_DIR -name *.tazpkg | wc -l)
2579 title 'Clean cache: $CACHE_DIR'
2580 action "Cleaning cache directory..."
2581 rm -rf $CACHE_DIR/*
2582 status
2583 footer "$(eval_ngettext \
2584 '$files file removed from cache.' \
2585 '$files files removed from cache.' $files)"
2586 ;;
2587 list-undigest)
2588 # list undigest URLs.
2589 if [ "$2" = "--box" ]; then
2590 for i in $LOCALSTATE/undigest/*/mirror; do
2591 [ -f $i ] || continue
2592 echo "$(basename $(dirname $i))|$(cat $i)"
2593 done
2594 else
2595 title 'Current undigest(s)'
2596 for i in $LOCALSTATE/undigest/*/mirror; do
2597 if [ ! -f $i ]; then
2598 gettext "No undigest mirror found."; echo
2599 exit 1
2600 fi
2601 echo "$(basename $(dirname $i)) $(cat $i)"
2602 done
2603 newline
2604 fi ;;
2605 remove-undigest)
2606 # remove undigest URL.
2607 check_root $@
2608 undigest="$2"
2609 if [ -d $LOCALSTATE/undigest/$2 ]; then
2610 eval_gettext "Remove \$undigest undigest" && confirm
2611 if [ $? = 0 ]; then
2612 action "Removing \$undigest undigest..."
2613 rm -rf $LOCALSTATE/undigest/$2
2614 status
2615 rmdir $LOCALSTATE/undigest 2> /dev/null
2616 fi
2617 else
2618 eval_gettext "Undigest \$undigest not found"; echo
2619 fi ;;
2620 add-undigest|setup-undigest)
2621 # Add undigest URL.
2622 check_root $@
2623 undigest=$2
2624 [ -d $LOCALSTATE/undigest ] || mkdir $LOCALSTATE/undigest
2625 if [ -z "$undigest" ]; then
2626 i=1
2627 while [ -d $LOCALSTATE/undigest/$i ]; do
2628 i=$(($i+1))
2629 done
2630 undigest=$i
2631 fi
2632 if [ ! -d $LOCALSTATE/undigest/$undigest ]; then
2633 eval_gettext "Creating new undigest \$undigest."; echo
2634 mkdir $LOCALSTATE/undigest/$undigest
2635 fi
2636 setup_mirror $LOCALSTATE/undigest/$undigest $3 ;;
2637 setup-mirror|-sm)
2638 # Change mirror URL.
2639 check_root $@
2640 setup_mirror $LOCALSTATE $2 ;;
2641 reconfigure)
2642 # Replay post_install from receipt
2643 check_for_package_on_cmdline
2644 check_root $@
2645 ROOT=""
2646 while [ -n "$3" ]; do
2647 case "$3" in
2648 --root=*)
2649 ROOT="${3#--root=}/" ;;
2650 *) shift 2
2651 u_opt="$*"
2652 echo -e "\n$(gettext 'Unknown option $u_opt.')\n" >&2
2653 exit 1 ;;
2654 esac
2655 shift
2656 done
2657 if [ -d "$ROOT$INSTALLED/$PACKAGE" ]; then
2658 check_for_receipt $ROOT
2659 # Check for post_install
2660 if grep -q ^post_install $ROOT$INSTALLED/$PACKAGE/receipt; then
2661 . $ROOT$INSTALLED/$PACKAGE/receipt
2662 post_install $ROOT
2663 # Log this activity
2664 [ -n "$ROOT" ] || log_pkg Reconfigured
2665 else
2666 newline
2667 eval_gettext "Nothing to do for \$PACKAGE."; echo
2668 fi
2669 else
2670 newline
2671 eval_gettext "Package \$PACKAGE is not installed."; echo
2672 gettext "Install package with 'tazpkg install' or 'tazpkg get-install'"; echo
2673 newline
2674 fi ;;
2675 shell)
2676 # Tazpkg SHell
2677 if test $(id -u) = 0 ; then
2678 PROMPT="\\033[1;33mtazpkg\\033[0;39m# "
2679 else
2680 PROMPT="\\033[1;33mtazpkg\\033[0;39m> "
2681 fi
2682 if [ ! "$2" = "--noheader" ]; then
2683 clear
2684 title 'Tazpkg SHell.'
2685 gettext "Type 'usage' to list all available commands or 'quit' or 'q' to exit."; echo
2686 newline
2687 fi
2688 while true
2689 do
2690 echo -en "$PROMPT"; read cmd
2691 case $cmd in
2692 q|quit)
2693 break ;;
2694 shell)
2695 gettext "You are already running a Tazpkg SHell."; echo ;;
2696 su)
2697 su -c 'exec tazpkg shell --noheader' && break ;;
2698 "")
2699 continue ;;
2700 *)
2701 tazpkg $cmd ;;
2702 esac
2703 done ;;
2704 depends)
2705 # Display dependencies tree
2706 cd $INSTALLED
2707 ALL_DEPS=""
2708 if [ -f $2/receipt ]; then
2709 dep_scan $2 ""
2710 fi ;;
2711 rdepends)
2712 # Display reverse dependencies tree
2713 cd $INSTALLED
2714 ALL_DEPS=""
2715 if [ -f $2/receipt ]; then
2716 rdep_scan $2
2717 fi ;;
2718 convert|-c)
2719 # convert misc package format to .tazpkg
2720 check_for_package_file
2721 [ -n "$TARGET_DIR" -a -s "$TARGET_DIR/files.list.lzma" ] &&
2722 TMPLOCALSTATE="$TARGET_DIR"
2723 if [ "$(dd if=$PACKAGE_FILE bs=8 count=1 skip=1 2> /dev/null)" \
2724 == "debian-b" ]; then
2725 convert_deb
2726 else
2727 case "$PACKAGE_FILE" in
2728 *.deb|*.udeb)
2729 convert_deb;;
2730 *.rpm)
2731 convert_rpm;;
2732 *.tgz)
2733 convert_tgz;;
2734 *.apk|*.pkg.tar.gz)
2735 convert_arch;;
2736 *.ipk|*.opk)
2737 convert_ipk;;
2738 *)
2739 gettext "Unsupported format"; echo ;;
2740 esac
2741 fi ;;
2742 link)
2743 # link a package from another slitaz installation
2744 PACKAGE=$2
2745 if [ ! -d "$TARGET_DIR" -o \
2746 ! -d "$TARGET_DIR$INSTALLED/$PACKAGE" ]; then
2747 gettext "
2748 usage: tazpkg link package_name slitaz_root
2749 example: 'tazpkg link openoffice /mnt' will use less than 100k in
2750 your running system ram.
2751 "
2752 exit 1
2753 fi
2754 if [ -e "$INSTALLED/$PACKAGE" ]; then
2755 eval_gettext "\$PACKAGE is already installed."; echo
2756 exit 1
2757 fi
2758 ln -s $TARGET_DIR$INSTALLED/$PACKAGE $INSTALLED
2759 DEPENDS="$(. $INSTALLED/$PACKAGE/receipt ; echo $DEPENDS)"
2760 MISSING=""
2761 for i in $DEPENDS; do
2762 [ -e $INSTALLED/$i ] && continue
2763 MISSING="$MISSING$i "
2764 eval_gettext "Missing: \$i"; echo
2765 done
2766 if [ -n "$MISSING" ]; then
2767 newline
2768 gettext "Link all missing dependencies" && confirm
2769 answer=$?
2770 newline
2771 if [ $answer = 0 ]; then
2772 for i in $MISSING; do
2773 tazpkg link $i $TARGET_DIR
2774 done
2775 else
2776 newline
2777 eval_gettext "Leaving dependencies unresolved for: \$PACKAGE"; echo
2778 gettext "The package is installed but probably will not work."; echo
2779 newline
2780 fi
2781 fi
2782 . $INSTALLED/$PACKAGE/receipt
2783 if grep -q ^pre_install $INSTALLED/$PACKAGE/receipt; then
2784 pre_install
2785 fi
2786 while read path; do
2787 [ -e $path ] && continue
2788 while true; do
2789 dir=$(dirname $path)
2790 [ -e $dir ] && break
2791 path=$dir
2792 done
2793 ln -s $TARGET_DIR$path $dir
2794 done < $INSTALLED/$PACKAGE/files.list
2795 if grep -q ^post_install $INSTALLED/$PACKAGE/receipt; then
2796 post_install
2797 fi ;;
2798 usage|*)
2799 # Print a short help or give usage for an unknown or empty command.
2800 usage ;;
2801 esac
2802
2803 exit 0