| Slitaz: Finding / uninstalling orphaned Packages - tazpkg patch |
[ Thread Index |
Date Index
| More lists.tuxfamily.org/slitaz Archives
]
Hi Nils,
Really like your idea/patch. Haven't tested yet. But +1.
:-)
Stephane
________________________________________
De : Nils Christiansen [nhc1@xxxxxxx]
Date d'envoi : mardi, 4. septembre 2012 15:31
À : slitaz@xxxxxxxxxxxxxxxxxxx
Objet : Finding / uninstalling orphaned Packages - tazpkg patch
About a year ago I started this topic in the forum already but didn't seem to arise too much attention. Since about a month ago somebody picked the topic up again and another suggested to discuss it in the mailing list, here I am to give it another try.
So whats all this about?
Coming from a debian system I knew about possibilities to identify orphaned packages (via deborphan) and uninstalling them. Being fascinated of SliTaz and the perfect mixture of enough eyecandy and usability with tinyness I saw the necessity of exactly this feature.
What is meant by "orphaned packages"? If you install a package, others may be installed with it as dependencies, enabling the program to work as intended (libraries, additional binaries or whatever). If you uninstall the wanted package, the dependencies remain on your system (losing the "parent" package and therefore becoming an "orphane"), if you don't have any function which identifies and deletes them. So your systems gets crammed up by files you actually don't need.
What are the criteria of orphancy?
1.) No other package depends on the orphan (there is no "parent" package)
2.) The package has not been installed deliberately, e.g. on choice of the user/admin
3.) The package is not a part of the basic system, therefore not essential (which equals 2. to some degree)
As first step I tried to find the packages that matched criteria 1). Using "tazpkg (r)depends" was awfully slow though, especially when I went through the uninstallation of orphaned packages recursively (since uninstallation of a package may bring up new orphancies, freeing your system even more...)..
Realizing that all information I was searching for was available in the receipts of the installed packages I figured out a script, that sped the search up to some degree:
============================================================================
#!/bin/sh
#
# tazorphan
#
# script to identify packages that ARE no dependency
# indicating possible orphancy
#
# Nils Christiansen, 2011
#
# cleaning up list of collected dependencies
#
echo > /tmp/Deps.txt
# collecting dependencies of all installed packages
# from package receipts
#
for DIRECTRY in /var/lib/tazpkg/installed/*
do
. $DIRECTRY/receipt
for PKG in $DEPENDS
do
echo "$PKG" >> /tmp/Deps.txt
done
done
# check each package if it is mentioned in the list;
# if not, then the package might be orphaned.
#
for DIRECTRY in /var/lib/tazpkg/installed/*
do
PKG=$(basename $DIRECTRY)
if [ -z "`sed -n "s/^${PKG}$/&/p" /tmp/Deps.txt`" ]; then
echo $PKG
fi
done
============================================================================
So now I had a list of all files, that WERE no dependency for any package (fulfilling criteria 1), therefore MIGHT be orphans.
In order to identify those packages of the list, that additionally fulfill criteria 2, I had to check against a list of all those packages I had CHOSEN to install.
This lead to patching the tazpkg script: everytime I installed a package from the shell, the name of the chosen package was added to a text file /var/lib/tazpkg/chosenpkg.lst. Since tazpkg invokes itself recursively to install dependencies, a check against the number of running tazpkg processes delivers the possibility of discrimination.
As "tazpkg unorphan" is invoked, the script performs the same action as in tazorphan, checks the resulting packages agains chosenpkgs.lst as well as against another list of files that are system-relevant in /var/lib/tazpkg/systempkg.lst and offers remaining packages (one by one) for uninstallation. If you deny uninstallation, then the package is added to chosenpkg.lst. If you acknowledge uninstallation, then the package is uninstalled and unorphan starts over again, since new orphancies might have arisen.
Pros and Cons up to now:
- Since the patch has not been installed from scratch, you need one initial run in order to build up chosenpkg.lst (you might as well create a list using an editor)
- the patch seems not to work in tazpanel, since interactivity is not supported; so you can't accept or deny uninstallation
- I am not sure, which packages should be in systempkg.lst so they never will be proposed for uninstallation. I started with:
enchant
clearlooks
curl
desktop-file-utils
hicolor-icon-theme
kbd-busybox
linux
linux-video
linux-wireless
locale-de
obconf
pangomm
slim
slitaz-configs
slitaz-menus
slitaz-polar-cursors
wpa_supplicant
wv
xorg-base-fonts
xorg-setxkbmap
xorg-xauth
xorg-xf86-video-intel
xterm
which keeps my system up and running, but which might contain unnecessities or I might have forgotten something.
So, I'd be happy about some discussion and constructive critics about this....
Cheers,
nils
Patch for tazpkg v4.9.2:
============================================================================
--- /usr/bin/tazpkg
+++ tazpkg
@@ -102,6 +102,7 @@
install|-i `gettext \"Install a local (*.tazpkg) package (--forced to force).\"`
install-list `gettext \"Install all packages from a list of packages..\"`
remove|-r `gettext \"Remove the specified package and all installed files.\"`
+ unorphan `gettext \"Search for orphaned packages and remove them interactively.\"`
extract `gettext \"Extract a (*.tazpkg) package into a directory.\"`
pack `gettext \"Pack an unpacked or prepared package tree.\"`
recharge `gettext \"Recharge your packages.list from the mirror.\"`
@@ -635,6 +636,9 @@
separator
eval_gettext "\$PACKAGE (\$VERSION\$EXTRAVERSION) is installed."; echo
echo ""
+ if [ `pidof tazpkg | wc -w` = "2" ]; then
+ echo $PACKAGE >> $LOCALSTATE/chosenpkg.lst
+ fi
# Log this activity
[ -n "$ROOT" ] || log Installed
}
@@ -765,6 +769,66 @@
fi
}
+# Check for orphaned packages and uninstall them
+unorphan()
+{
+ # prepare temporary files
+ if [ -f /tmp/orph ]; then
+ rm /tmp/orph
+ fi
+ if [ -f /tmp/chkpkgs ]; then
+ rm /tmp/chkpkgs
+ fi
+ touch $LOCALSTATE/systempkg.lst
+ touch $LOCALSTATE/chosenpkg.lst
+
+ # collect all existing dependencies in one temporary file, one in a line
+ for verz in /var/lib/tazpkg/installed/*
+ do
+ . $verz/receipt
+ for pack in $DEPENDS
+ do
+ echo "$pack" >> /tmp/chkpkgs
+ done
+ done
+
+ # check each package for system or chosen case and - if none - for orphancy
+ separator
+ eval_gettext "Checking:";echo
+ for prog in `ls /var/lib/tazpkg/installed`
+ do
+ echo -en "\\033[0G "
+ echo -en "\\033[0G$prog "
+ if [ -z "`sed -n "s/^${prog}$/&/p" $LOCALSTATE/systempkg.lst`" ]; then
+ if [ -z "`sed -n "s/^${prog}$/&/p" $LOCALSTATE/chosenpkg.lst`" ]; then
+ if [ -z "`sed -n "s/^${prog}$/&/p" /tmp/chkpkgs`" ]; then
+ tazpkg remove ${prog}
+ if [ ! -d $LOCALSTATE/installed/${prog} ]; then
+ echo orphaned > /tmp/orph
+ break
+ fi
+ fi
+ fi
+ fi
+ done
+
+ if [ -f /tmp/orph ]; then
+ echo -en "\n\n"
+ eval_gettext "Removed orphaned packages... taking another recursive turn...";echo
+ unorphan
+ fi
+ echo;eval_gettext "...finished.";echo
+ separator
+
+ # clear temporary files
+ if [ -f /tmp/orph ]; then
+ rm /tmp/orph
+ fi
+ rm /tmp/chkpkgs
+exit 0
+}
+
+
# xHTML packages list header.
xhtml_header()
{
@@ -1857,6 +1921,7 @@
do
grep -qs ^$pkg$ $2-processed && continue
tazpkg $COMMAND $pkg --list=$2 "$3" "$4" "$5"
+ echo $pkg >> $LOCALSTATE/chosenpkg.lst
done
rm -f $2-processed ;;
add-flavor)
@@ -1968,6 +2033,7 @@
status
sed -i "/ $PACKAGE-$VERSION$EXTRAVERSION$/d" \
$LOCALSTATE/installed.md5 2> /dev/null
+ sed -i "/^$PACKAGE$/d" $LOCALSTATE/chosenpkg.lst
# Log this activity
log Removed
if [ "$ALTERED" ]; then
@@ -2005,11 +2071,23 @@
done
fi
fi
+ if [ `pidof tazpkg | wc -w` = "2" ]; then
+ eval_gettext "Check for orphaned packages and delete them?"
+ echo -n " (`translate_querry y`/`translate_querry N`) ? "
+ read answer
+ if [ "$answer" = "$(translate_querry y)" ]; then
+ unorphan
+ fi
+ fi
else
echo ""
eval_gettext "Uninstallation of \$PACKAGE cancelled."; echo
+ eval_gettext "Adding $PACKAGE to $LOCALSTATE/chosenpkg.lst."
+ echo $PACKAGE >> $LOCALSTATE/chosenpkg.lst
fi
echo "" ;;
+ unorphan)
+ unorphan;;
extract)
# Extract .tazpkg cpio archive into a directory.
check_for_package_on_cmdline
============================================================================
--
SliTaz GNU/Linux Mailing list - http://www.slitaz.org/