Miroirs/sbopkg
1
0
Fork 0
mirror of https://github.com/sbopkg/sbopkg synced 2025-01-29 20:34:34 +01:00
Code Issues Projects Releases Packages Wiki Activity

Add function removing obsolete (not installed) packages from $OUTPUT.

Browse source 
This patch add a function to remove from $OUTPUT packages
that are not installed. This is useful to remove from
$OUTPUT packages that are made obsolete by version updates,
or that are unwanted for whatever reason.
Addresses issue #20. Thanks to alkos333 for suggesting this
feature.

Signed-off-by: Mauro Giachero <mauro.giachero@gmail.com>
This commit is contained in:
mauro.giachero 2009-07-10 07:44:11 +00:00
parent be45ca8aec
commit 09c5ab6707
2 changed files with 29 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
ChangeLog-current.txt
View file

@ -122,4 +122,6 @@ enhancements:
delete the extracted sources, and all the associated "residuals" of the
build, as soon as the build is finished. Thanks to Marco Bonetti and
Gregory Tourte for the suggestion and the nice discussion.
* Add a function to delete obsolete (not installed) packages from $OUTPUT.
Thanks to alkos333 for the idea.
+--------------------------+

35
src/usr/sbin/sbopkg
View file

@ -2638,8 +2638,8 @@ remove_sources_for_app() {
remove_files $SRCDIR "$APP sources" $APP_SOURCES OFF
}
remove_obsoleted_sources() {
# Remove all obsoleted sources
remove_obsolete_sources() {
# Remove all obsolete sources
local FIND_RESULT=$SBOPKGTMP/sbopkg_obsolete_find
local SOURCES=$SBOPKGTMP/sbopkg_app_sources
@ -2687,6 +2687,23 @@ remove_obsoleted_sources() {
remove_files $SRCDIR "obsolete sources" $SOURCES ON
}
remove_obsolete_packages() {
# Remove obsolete packages from $OUTPUT
local PACKAGES=$SBOPKGTMP/sbopkg_obsolete_packages
local PKG
rm -f $PACKAGES
ls $OUTPUT/*$REPO_TAG.t?z | while read PKG; do
PKG=${PKG##*/}
if [ ! -f /var/log/packages/${PKG%.t?z} ]; then
echo "$PKG" >> $PACKAGES
fi
done
remove_files $OUTPUT "obsolete packages" $PACKAGES ON
}
remove_files() {
# Selectively remove files, after showing a checklist of them.
# The file names (specified in $3) _must_ be quoted.
@ -3712,12 +3729,13 @@ utilities_menu() {
"Currently using the $REPO_DESC." \
--cancel-label "Back" --default-item "$DEFAULTITEM" --menu \
"\nChoose one of the following or press <Back> to go back.\n" \
15 69 5 \
14 69 6 \
"Cache" "View the contents of the cache directory" \
"Log" "View the permanent build log" \
"Repository" "Select repository [ $REPO_BRANCH ($REPO_NAME) ]" \
"Latest" "Check for an update to sbopkg" \
"Obsolete" "View the obsoleted cached sources" 2> $ANSWERFILE
"Obsolete packages" "View obsolete packages" \
"Obsolete sources" "View obsolete cached sources" 2> $ANSWERFILE
DEFAULTITEM=$(< $ANSWERFILE)
@ -3726,7 +3744,8 @@ utilities_menu() {
"Log" ) view_perm_log ;;
"Repository" ) select_repository ;;
"Latest" ) check_for_latest ;;
"Obsolete" ) remove_obsoleted_sources ;;
"Obsolete packages" ) remove_obsolete_packages ;;
"Obsolete sources" ) remove_obsolete_sources ;;
*) break ;;
esac
done
@ -4020,7 +4039,7 @@ while getopts ":b:cd:e:f:g:hi:lopqrs:uv:" OPT; do
CHANGELOG=1
unset DIAG
;;
o ) # Show obsoleted sources
o ) # Show obsolete sources
OBSOLETESRC=1
unset DIAG
;;
@ -4064,7 +4083,7 @@ Options are:
-h Display this help message.
-i pkg/queue(s) Like '-b', but also install built packages.
-l Display the repo's ChangeLog.txt and then quit.
-o Display the obsoleted source files and prompt for deletion.
-o Display the obsolete source files and prompt for deletion.
-p List installed repo's packages.
-q Quiet some of the command-line output.
-r Sync the remote repository with the local mirror and then
@ -4246,7 +4265,7 @@ else
fi
if [[ $OBSOLETESRC ]]; then
remove_obsoleted_sources
remove_obsolete_sources
fi
if [[ $GETPKGS ]]; then