tazpkg: tazpkg annotate

tazpkg annotate tazpkg @ rev 394

Fix update_mime_database function to use update-mime-database instead of update-desktop-database.

author	Christopher Rogers <slaxemulator@gmail.com>
date	Thu Dec 09 01:36:52 2010 +0000 (2010-12-09)
parents	f5bb8c64ee4b
children	0e6857a57bf3

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

SliTaz Repositories

tazpkg annotate tazpkg @ rev 394