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