mirror of
https://github.com/moparisthebest/pacman
synced 2024-11-14 05:15:11 -05:00
122 lines
2.9 KiB
Bash
122 lines
2.9 KiB
Bash
|
#!@BASH_SHELL@ -e
|
||
|
#
|
||
|
# pacman-db-upgrade - upgrade the local pacman db to a newer format
|
||
|
# @configure_input@
|
||
|
#
|
||
|
# Copyright (c) 2010 Pacman Development Team <pacman-dev@archlinux.org>
|
||
|
#
|
||
|
# This program is free software; you can redistribute it and/or modify
|
||
|
# it under the terms of the GNU General Public License as published by
|
||
|
# the Free Software Foundation; either version 2 of the License, or
|
||
|
# (at your option) any later version.
|
||
|
#
|
||
|
# This program is distributed in the hope that it will be useful,
|
||
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
|
# GNU General Public License for more details.
|
||
|
#
|
||
|
# You should have received a copy of the GNU General Public License
|
||
|
# along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||
|
#
|
||
|
|
||
|
# gettext initialization
|
||
|
export TEXTDOMAIN='pacman'
|
||
|
export TEXTDOMAINDIR='@localedir@'
|
||
|
|
||
|
myver='@PACKAGE_VERSION@'
|
||
|
|
||
|
eval $(awk '/DBPath/ {print $1$2$3}' @sysconfdir@/pacman.conf)
|
||
|
dbroot="${DBPath:-@localstatedir@/lib/pacman/}"
|
||
|
|
||
|
msg() {
|
||
|
local mesg=$1; shift
|
||
|
printf "==> ${mesg}\n" "$@" >&2
|
||
|
}
|
||
|
|
||
|
error () {
|
||
|
local mesg=$1; shift
|
||
|
printf "==> ERROR: ${mesg}\n" "$@" >&2
|
||
|
}
|
||
|
usage() {
|
||
|
printf "pacman-db-upgrade (pacman) %s\n\n" "$myver"
|
||
|
printf "$(gettext "Usage: %s [pacman_db_root]")\n\n" "$0"
|
||
|
}
|
||
|
|
||
|
version() {
|
||
|
printf "pacman-db-upgrade (pacman) %s\n" "$myver"
|
||
|
printf "$(gettext "\
|
||
|
Copyright (c) 2010 Pacman Development Team <pacman-dev@archlinux.org>.\n\
|
||
|
This is free software; see the source for copying conditions.\n\
|
||
|
There is NO WARRANTY, to the extent permitted by law.\n")"
|
||
|
}
|
||
|
|
||
|
die() {
|
||
|
error "$@"
|
||
|
exit 1
|
||
|
}
|
||
|
|
||
|
die_r() {
|
||
|
rm -f "$lockfile"
|
||
|
die "$@"
|
||
|
}
|
||
|
|
||
|
# PROGRAM START
|
||
|
|
||
|
# determine whether we have gettext; make it a no-op if we do not
|
||
|
if ! type gettext &>/dev/null; then
|
||
|
gettext() {
|
||
|
echo "$@"
|
||
|
}
|
||
|
fi
|
||
|
|
||
|
if [[ $1 = "-h" || $1 = "--help" ]]; then
|
||
|
usage
|
||
|
exit 0
|
||
|
fi
|
||
|
|
||
|
if [[ $1 = "-V" || $1 = "--version" ]]; then
|
||
|
version
|
||
|
exit 0
|
||
|
fi
|
||
|
|
||
|
if [[ -n $1 ]]; then
|
||
|
dbroot="$1"
|
||
|
fi
|
||
|
|
||
|
if [[ ! -d $dbroot || ! -d $dbroot/local ]]; then
|
||
|
die "$(gettext "%s does not exist or is not a directory.")" "$dbroot"
|
||
|
fi
|
||
|
|
||
|
if [[ ! -w $dbroot ]]; then
|
||
|
die "$(gettext "You must have correct permissions to upgrade the database.")"
|
||
|
fi
|
||
|
|
||
|
# strip any trailing slash from our dbroot
|
||
|
dbroot="${dbroot%/}"
|
||
|
# form the path to our lockfile location
|
||
|
lockfile="${dbroot}/db.lck"
|
||
|
|
||
|
# make sure pacman isn't running
|
||
|
if [[ -f $lockfile ]]; then
|
||
|
die "$(gettext "Pacman lock file was found. Cannot run while pacman is running.")"
|
||
|
fi
|
||
|
# do not let pacman run while we do this
|
||
|
touch "$lockfile"
|
||
|
|
||
|
# pacman-3.4 to 3.5 upgrade - merge depends into desc
|
||
|
if [[ $(find "$dbroot"/local -name depends) ]]; then
|
||
|
msg "$(gettext "Pre-3.5 database format detected - upgrading...")"
|
||
|
for i in "$dbroot"/local/*; do
|
||
|
if [[ -f "$i"/depends ]]; then
|
||
|
cat "$i"/depends >> "$i"/desc
|
||
|
rm "$i"/depends
|
||
|
fi
|
||
|
done
|
||
|
msg "$(gettext "Done.")"
|
||
|
fi
|
||
|
|
||
|
# remove the lock file
|
||
|
rm -f "$lockfile"
|
||
|
|
||
|
# vim: set ts=2 sw=2 noet:
|