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