tazpkg: tazpkg annotate

tazpkg annotate tazpkg @ rev 365

--quiet option can be used with last busybox (cooking)

author	Christophe Lincoln <pankso@slitaz.org>
date	Tue Oct 19 19:16:24 2010 +0200 (2010-10-19)
parents	0ab24a00e276
children	26447f46de4b

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

SliTaz Repositories

tazpkg annotate tazpkg @ rev 365