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