tazpkg: tazpkg annotate

tazpkg annotate tazpkg @ rev 681

get-scripts: add TAGS

author	Pascal Bellard <pascal.bellard@slitaz.org>
date	Sat May 31 09:36:05 2014 +0000 (2014-05-31)
parents	ddd8d4f99821
children	c1e7833416f6

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

SliTaz Repositories

tazpkg annotate tazpkg @ rev 681