tazpkg view tazpkg @ rev 349

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