jcarr
/
x11-xserver-utils
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

xsfbs.sh: use 'local' now that policy allows it 

Policy 3.7.3 allows /bin/sh scripts to use 'local'.
This commit is contained in:
Julien Cristau 2008-05-30 12:26:18 +02:00
parent d9066a28b9
commit dcf4204d53
1 changed files with 178 additions and 178 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

356
debian/xsfbs/xsfbs.sh vendored
View File

@ -238,19 +238,19 @@ analyze_path () {
# analyze_path /usr/X11R6/bin -> ls -dl /usr /usr/X11R6 /usr/X11R6/bin # analyze_path /usr/X11R6/bin -> ls -dl /usr /usr/X11R6 /usr/X11R6/bin
# Thanks to Randolph Chung for this clever hack. # Thanks to Randolph Chung for this clever hack.
#local f g local f g
while [ -n "$1" ]; do while [ -n "$1" ]; do
reject_whitespace "$1" reject_whitespace "$1"
_g= g=
message "Analyzing $1:" message "Analyzing $1:"
for _f in $(echo "$1" | tr / \ ); do for f in $(echo "$1" | tr / \ ); do
if [ -e /$_g$_f ]; then if [ -e /$g$f ]; then
ls -dl /$_g$_f /$_g$_f.dpkg-* 2> /dev/null || true ls -dl /$g$f /$g$f.dpkg-* 2> /dev/null || true
_g=$_g$_f/ g=$g$f/
else else
message "/$_g$_f: nonexistent; directory contents of /$_g:" message "/$g$f: nonexistent; directory contents of /$g:"
ls -l /$_g ls -l /$g
break break
fi fi
done done
@ -259,27 +259,27 @@ analyze_path () {
} }
find_culprits () { find_culprits () {
#local f p dpkg_info_dir possible_culprits smoking_guns bad_packages package \ local f p dpkg_info_dir possible_culprits smoking_guns bad_packages package \
# msg msg
reject_whitespace "$1" reject_whitespace "$1"
message "Searching for overlapping packages..." message "Searching for overlapping packages..."
_dpkg_info_dir=/var/lib/dpkg/info dpkg_info_dir=/var/lib/dpkg/info
if [ -d $_dpkg_info_dir ]; then if [ -d $dpkg_info_dir ]; then
if [ "$(echo $_dpkg_info_dir/*.list)" != "$_dpkg_info_dir/*.list" ]; then if [ "$(echo $dpkg_info_dir/*.list)" != "$dpkg_info_dir/*.list" ]; then
_possible_culprits=$(ls -1 $_dpkg_info_dir/*.list | egrep -v \ possible_culprits=$(ls -1 $dpkg_info_dir/*.list | egrep -v \
"(xbase-clients|x11-common|xfs|xlibs)") "(xbase-clients|x11-common|xfs|xlibs)")
if [ -n "$_possible_culprits" ]; then if [ -n "$possible_culprits" ]; then
_smoking_guns=$(grep -l "$1" $_possible_culprits || true) smoking_guns=$(grep -l "$1" $possible_culprits || true)
if [ -n "$_smoking_guns" ]; then if [ -n "$smoking_guns" ]; then
_bad_packages=$(printf "\\n") bad_packages=$(printf "\\n")
for f in $_smoking_guns; do for f in $smoking_guns; do
# too bad you can't nest parameter expansion voodoo # too bad you can't nest parameter expansion voodoo
p=${f%*.list} # strip off the trailing ".list" p=${f%*.list} # strip off the trailing ".list"
_package=${p##*/} # strip off the directories package=${p##*/} # strip off the directories
_bad_packages=$(printf "%s\n%s" "$_bad_packages" "$_package") bad_packages=$(printf "%s\n%s" "$bad_packages" "$package")
done done
_msg=$(cat <<EOF msg=$(cat <<EOF
The following packages appear to have file overlaps with the X.Org packages; The following packages appear to have file overlaps with the X.Org packages;
these packages are either very old, or in violation of Debian Policy. Try these packages are either very old, or in violation of Debian Policy. Try
upgrading each of these packages to the latest available version if possible: upgrading each of these packages to the latest available version if possible:
@ -291,17 +291,17 @@ Tracking System. You may want to refer the package maintainer to section 12.8
of the Debian Policy manual. of the Debian Policy manual.
EOF EOF
) )
message "$_msg" message "$msg"
message "The overlapping packages are: $_bad_packages" message "The overlapping packages are: $bad_packages"
else else
message "no overlaps found." message "no overlaps found."
fi fi
fi fi
else else
message "cannot search; no matches for $_dpkg_info_dir/*.list." message "cannot search; no matches for $dpkg_info_dir/*.list."
fi fi
else else
message "cannot search; $_dpkg_info_dir does not exist." message "cannot search; $dpkg_info_dir does not exist."
fi fi
} }
@ -323,7 +323,7 @@ check_symlink () {
# #
# Primarily used by check_symlinks_and_warn() and check_symlinks_and_bomb(). # Primarily used by check_symlinks_and_warn() and check_symlinks_and_bomb().
#local symlink local symlink
# validate arguments # validate arguments
if [ $# -ne 1 ]; then if [ $# -ne 1 ]; then
@ -332,9 +332,9 @@ check_symlink () {
exit $SHELL_LIB_USAGE_ERROR exit $SHELL_LIB_USAGE_ERROR
fi fi
_symlink="$1" symlink="$1"
if [ "$(maplink "$_symlink")" = "$(readlink "$_symlink")" ]; then if [ "$(maplink "$symlink")" = "$(readlink "$symlink")" ]; then
return 0 return 0
else else
return 1 return 1
@ -349,7 +349,7 @@ check_symlinks_and_warn () {
# Call this function from a preinst script in the event $1 is "upgrade" or # Call this function from a preinst script in the event $1 is "upgrade" or
# "install". # "install".
#local errmsg symlink local errmsg symlink
# validate arguments # validate arguments
if [ $# -lt 1 ]; then if [ $# -lt 1 ]; then
@ -359,25 +359,25 @@ check_symlinks_and_warn () {
fi fi
while [ -n "$1" ]; do while [ -n "$1" ]; do
_symlink="$1" symlink="$1"
if [ -L "$_symlink" ]; then if [ -L "$symlink" ]; then
if ! check_symlink "$_symlink"; then if ! check_symlink "$symlink"; then
observe "$_symlink symbolic link points to wrong location" \ observe "$symlink symbolic link points to wrong location" \
"$(readlink "$_symlink"); removing" "$(readlink "$symlink"); removing"
rm "$_symlink" rm "$symlink"
fi fi
elif [ -e "$_symlink" ]; then elif [ -e "$symlink" ]; then
_errmsg="$_symlink exists and is not a symbolic link; this package cannot" errmsg="$symlink exists and is not a symbolic link; this package cannot"
_errmsg="$_errmsg be installed until this" errmsg="$errmsg be installed until this"
if [ -f "$_symlink" ]; then if [ -f "$symlink" ]; then
_errmsg="$_errmsg file" errmsg="$errmsg file"
elif [ -d "$_symlink" ]; then elif [ -d "$symlink" ]; then
_errmsg="$_errmsg directory" errmsg="$errmsg directory"
else else
_errmsg="$_errmsg thing" errmsg="$errmsg thing"
fi fi
_errmsg="$_errmsg is removed" errmsg="$errmsg is removed"
die "$_errmsg" die "$errmsg"
fi fi
shift shift
done done
@ -390,7 +390,7 @@ check_symlinks_and_bomb () {
# #
# Call this function from a postinst script. # Call this function from a postinst script.
#local problem symlink local problem symlink
# validate arguments # validate arguments
if [ $# -lt 1 ]; then if [ $# -lt 1 ]; then
@ -400,24 +400,24 @@ check_symlinks_and_bomb () {
fi fi
while [ -n "$1" ]; do while [ -n "$1" ]; do
_problem= problem=
_symlink="$1" symlink="$1"
if [ -L "$_symlink" ]; then if [ -L "$symlink" ]; then
if ! check_symlink "$_symlink"; then if ! check_symlink "$symlink"; then
_problem=yes problem=yes
warn "$_symlink symbolic link points to wrong location" \ warn "$symlink symbolic link points to wrong location" \
"$(readlink "$_symlink")" "$(readlink "$symlink")"
fi fi
elif [ -e "$_symlink" ]; then elif [ -e "$symlink" ]; then
_problem=yes problem=yes
warn "$_symlink is not a symbolic link" warn "$symlink is not a symbolic link"
else else
_problem=yes problem=yes
warn "$_symlink symbolic link does not exist" warn "$symlink symbolic link does not exist"
fi fi
if [ -n "$_problem" ]; then if [ -n "$problem" ]; then
analyze_path "$_symlink" "$(readlink "$_symlink")" analyze_path "$symlink" "$(readlink "$symlink")"
find_culprits "$_symlink" find_culprits "$symlink"
die "bad symbolic links on system" die "bad symbolic links on system"
fi fi
shift shift
@ -427,9 +427,9 @@ check_symlinks_and_bomb () {
font_update () { font_update () {
# run $UPDATECMDS in $FONTDIRS # run $UPDATECMDS in $FONTDIRS
#local dir cmd shortcmd x_font_dir_prefix local dir cmd shortcmd x_font_dir_prefix
_x_font_dir_prefix="/usr/share/fonts/X11" x_font_dir_prefix="/usr/share/fonts/X11"
if [ -z "$UPDATECMDS" ]; then if [ -z "$UPDATECMDS" ]; then
usage_error "font_update() called but \$UPDATECMDS not set" usage_error "font_update() called but \$UPDATECMDS not set"
@ -441,32 +441,32 @@ font_update () {
reject_unlikely_path_chars "$UPDATECMDS" reject_unlikely_path_chars "$UPDATECMDS"
reject_unlikely_path_chars "$FONTDIRS" reject_unlikely_path_chars "$FONTDIRS"
for _dir in $FONTDIRS; do for dir in $FONTDIRS; do
if [ -d "$_x_font_dir_prefix/$_dir" ]; then if [ -d "$x_font_dir_prefix/$dir" ]; then
for _cmd in $UPDATECMDS; do for cmd in $UPDATECMDS; do
if which "$_cmd" > /dev/null 2>&1; then if which "$cmd" > /dev/null 2>&1; then
_shortcmd=${_cmd##*/} shortcmd=${cmd##*/}
observe "running $_shortcmd in $_dir font directory" observe "running $shortcmd in $dir font directory"
_cmd_opts= cmd_opts=
if [ "$_shortcmd" = "update-fonts-alias" ]; then if [ "$shortcmd" = "update-fonts-alias" ]; then
_cmd_opts=--x11r7-layout cmd_opts=--x11r7-layout
fi fi
if [ "$_shortcmd" = "update-fonts-dir" ]; then if [ "$shortcmd" = "update-fonts-dir" ]; then
_cmd_opts=--x11r7-layout cmd_opts=--x11r7-layout
fi fi
if [ "$_shortcmd" = "update-fonts-scale" ]; then if [ "$shortcmd" = "update-fonts-scale" ]; then
_cmd_opts=--x11r7-layout cmd_opts=--x11r7-layout
fi fi
$_cmd $_cmd_opts $_dir || warn "$_cmd $_cmd_opts $_dir" \ $cmd $cmd_opts $dir || warn "$cmd $cmd_opts $dir" \
"failed; font directory data may not" \ "failed; font directory data may not" \
"be up to date" "be up to date"
else else
warn "$_cmd not found; not updating corresponding $_dir font" \ warn "$cmd not found; not updating corresponding $dir font" \
"directory data" "directory data"
fi fi
done done
else else
warn "$_dir is not a directory; not updating font directory data" warn "$dir is not a directory; not updating font directory data"
fi fi
done done
} }
@ -485,7 +485,7 @@ remove_conffile_prepare () {
# version (or installed over a version removed-but-not-purged) prior to the # version (or installed over a version removed-but-not-purged) prior to the
# one in which the conffile was obsoleted. # one in which the conffile was obsoleted.
#local conffile current_checksum local conffile current_checksum
# validate arguments # validate arguments
if [ $# -lt 2 ]; then if [ $# -lt 2 ]; then
@ -494,19 +494,19 @@ remove_conffile_prepare () {
exit $SHELL_LIB_USAGE_ERROR exit $SHELL_LIB_USAGE_ERROR
fi fi
_conffile="$1" conffile="$1"
shift shift
# does the _conffile even exist? # does the conffile even exist?
if [ -e "$_conffile" ]; then if [ -e "$conffile" ]; then
# calculate its checksum # calculate its checksum
_current_checksum=$(md5sum < "$_conffile" | sed 's/[[:space:]].*//') current_checksum=$(md5sum < "$conffile" | sed 's/[[:space:]].*//')
# compare it to each supplied checksum # compare it to each supplied checksum
while [ -n "$1" ]; do while [ -n "$1" ]; do
if [ "$_current_checksum" = "$1" ]; then if [ "$current_checksum" = "$1" ]; then
# we found a match; move the confffile and stop looking # we found a match; move the confffile and stop looking
observe "preparing obsolete conffile $_conffile for removal" observe "preparing obsolete conffile $conffile for removal"
mv "$_conffile" "$_conffile.$THIS_PACKAGE-tmp" mv "$conffile" "$conffile.$THIS_PACKAGE-tmp"
break break
fi fi
shift shift
@ -553,7 +553,7 @@ remove_conffile_commit () {
# Call this function from a postinst script after having used # Call this function from a postinst script after having used
# remove_conffile_prepare() in the preinst. # remove_conffile_prepare() in the preinst.
#local conffile local conffile
# validate arguments # validate arguments
if [ $# -ne 1 ]; then if [ $# -ne 1 ]; then
@ -562,12 +562,12 @@ remove_conffile_commit () {
exit $SHELL_LIB_USAGE_ERROR exit $SHELL_LIB_USAGE_ERROR
fi fi
_conffile="$1" conffile="$1"
# if the temporary file created by remove_conffile_prepare() exists, remove it # if the temporary file created by remove_conffile_prepare() exists, remove it
if [ -e "$_conffile.$THIS_PACKAGE-tmp" ]; then if [ -e "$conffile.$THIS_PACKAGE-tmp" ]; then
observe "committing removal of obsolete conffile $_conffile" observe "committing removal of obsolete conffile $conffile"
rm "$_conffile.$THIS_PACKAGE-tmp" rm "$conffile.$THIS_PACKAGE-tmp"
fi fi
} }
@ -580,7 +580,7 @@ remove_conffile_rollback () {
# or "abort-install" is after having used remove_conffile_prepare() in the # or "abort-install" is after having used remove_conffile_prepare() in the
# preinst. # preinst.
#local conffile local conffile
# validate arguments # validate arguments
if [ $# -ne 1 ]; then if [ $# -ne 1 ]; then
@ -589,13 +589,13 @@ remove_conffile_rollback () {
exit $SHELL_LIB_USAGE_ERROR exit $SHELL_LIB_USAGE_ERROR
fi fi
_conffile="$1" conffile="$1"
# if the temporary file created by remove_conffile_prepare() exists, move it # if the temporary file created by remove_conffile_prepare() exists, move it
# back # back
if [ -e "$_conffile.$THIS_PACKAGE-tmp" ]; then if [ -e "$conffile.$THIS_PACKAGE-tmp" ]; then
observe "rolling back removal of obsolete conffile $_conffile" observe "rolling back removal of obsolete conffile $conffile"
mv "$_conffile.$THIS_PACKAGE-tmp" "$_conffile" mv "$conffile.$THIS_PACKAGE-tmp" "$conffile"
fi fi
} }
@ -615,7 +615,7 @@ replace_conffile_with_symlink_prepare () {
# version (or installed over a version removed-but-not-purged) prior to the # version (or installed over a version removed-but-not-purged) prior to the
# one in which the conffile was obsoleted. # one in which the conffile was obsoleted.
#local conffile current_checksum local conffile current_checksum
# validate arguments # validate arguments
if [ $# -lt 3 ]; then if [ $# -lt 3 ]; then
@ -624,16 +624,16 @@ replace_conffile_with_symlink_prepare () {
exit $SHELL_LIB_USAGE_ERROR exit $SHELL_LIB_USAGE_ERROR
fi fi
_oldconffile="$1" oldconffile="$1"
shift shift
_newconffile="$1" newconffile="$1"
shift shift
remove_conffile_prepare "$_oldconffile" "$@" remove_conffile_prepare "$_oldconffile" "$@"
# If $_oldconffile still exists, then md5sums didn't match. # If $oldconffile still exists, then md5sums didn't match.
# Copy it to new one. # Copy it to new one.
if [ -f "$_oldconffile" ]; then if [ -f "$oldconffile" ]; then
cp "$_oldconffile" "$_newconffile" cp "$oldconffile" "$newconffile"
fi fi
} }
@ -647,7 +647,7 @@ replace_conffile_with_symlink_commit () {
# Call this function from a postinst script after having used # Call this function from a postinst script after having used
# replace_conffile_with_symlink_prepare() in the preinst. # replace_conffile_with_symlink_prepare() in the preinst.
#local conffile local conffile
# validate arguments # validate arguments
if [ $# -ne 1 ]; then if [ $# -ne 1 ]; then
@ -656,9 +656,9 @@ replace_conffile_with_symlink_commit () {
exit $SHELL_LIB_USAGE_ERROR exit $SHELL_LIB_USAGE_ERROR
fi fi
_conffile="$1" conffile="$1"
remove_conffile_commit "$_conffile" remove_conffile_commit "$conffile"
} }
replace_conffile_with_symlink_rollback () { replace_conffile_with_symlink_rollback () {
@ -674,7 +674,7 @@ replace_conffile_with_symlink_rollback () {
# You should have used replace_conffile_with_symlink_prepare() in the # You should have used replace_conffile_with_symlink_prepare() in the
# preinst. # preinst.
#local conffile local conffile
# validate arguments # validate arguments
if [ $# -ne 2 ]; then if [ $# -ne 2 ]; then
@ -683,12 +683,12 @@ replace_conffile_with_symlink_rollback () {
exit $SHELL_LIB_USAGE_ERROR exit $SHELL_LIB_USAGE_ERROR
fi fi
_oldconffile="$1" oldconffile="$1"
_newconffile="$2" newconffile="$2"
remove_conffile_rollback "$_oldconffile" remove_conffile_rollback "$_oldconffile"
if [ -f "$_newconffile" ]; then if [ -f "$newconffile" ]; then
rm "$_newconffile" rm "$newconffile"
fi fi
} }
@ -703,7 +703,7 @@ run () {
# those cases the return value of the debconf command *must* be checked # those cases the return value of the debconf command *must* be checked
# before the string returned by debconf is used for anything. # before the string returned by debconf is used for anything.
#local retval local retval
# validate arguments # validate arguments
if [ $# -lt 1 ]; then if [ $# -lt 1 ]; then
@ -712,10 +712,10 @@ run () {
exit $SHELL_LIB_USAGE_ERROR exit $SHELL_LIB_USAGE_ERROR
fi fi
"$@" || _retval=$? "$@" || retval=$?
if [ ${_retval:-0} -ne 0 ]; then if [ ${retval:-0} -ne 0 ]; then
observe "command \"$*\" exited with status $_retval" observe "command \"$*\" exited with status $retval"
fi fi
} }
@ -728,15 +728,15 @@ register_x_lib_dir_with_ld_so () {
# Call this function from the postinst script of a package that places a # Call this function from the postinst script of a package that places a
# shared library in /usr/X11R6/lib, before invoking ldconfig. # shared library in /usr/X11R6/lib, before invoking ldconfig.
#local dir ldsoconf local dir ldsoconf
_dir="/usr/X11R6/lib" dir="/usr/X11R6/lib"
_ldsoconf="/etc/ld.so.conf" ldsoconf="/etc/ld.so.conf"
# is the line not already present? # is the line not already present?
if ! fgrep -qsx "$_dir" "$_ldsoconf"; then if ! fgrep -qsx "$dir" "$ldsoconf"; then
observe "adding $_dir directory to $_ldsoconf" observe "adding $dir directory to $ldsoconf"
echo "$_dir" >> "$_ldsoconf" echo "$dir" >> "$ldsoconf"
fi fi
} }
@ -750,36 +750,36 @@ deregister_x_lib_dir_with_ld_so () {
# library in /usr/X11R6/lib, in the event "$1" is "remove", and before # library in /usr/X11R6/lib, in the event "$1" is "remove", and before
# invoking ldconfig. # invoking ldconfig.
#local dir ldsoconf fgrep_status cmp_status local dir ldsoconf fgrep_status cmp_status
_dir="/usr/X11R6/lib" dir="/usr/X11R6/lib"
_ldsoconf="/etc/ld.so.conf" ldsoconf="/etc/ld.so.conf"
# is the line present? # is the line present?
if fgrep -qsx "$_dir" "$_ldsoconf"; then if fgrep -qsx "$dir" "$ldsoconf"; then
# are there any shared objects in the directory? # are there any shared objects in the directory?
if [ "$(echo "$_dir"/lib*.so.*.*)" = "$_dir/lib*.so.*.*" ]; then if [ "$(echo "$dir"/lib*.so.*.*)" = "$dir/lib*.so.*.*" ]; then
# glob expansion produced nothing, so no shared libraries are present # glob expansion produced nothing, so no shared libraries are present
observe "removing $_dir directory from $_ldsoconf" observe "removing $dir directory from $ldsoconf"
# rewrite the file (very carefully) # rewrite the file (very carefully)
set +e set +e
fgrep -svx "$_dir" "$_ldsoconf" > "$_ldsoconf.dpkg-tmp" fgrep -svx "$dir" "$ldsoconf" > "$ldsoconf.dpkg-tmp"
_fgrep_status=$? fgrep_status=$?
set -e set -e
case $_fgrep_status in case $fgrep_status in
0|1) ;; # we don't actually care if any lines matched or not 0|1) ;; # we don't actually care if any lines matched or not
*) die "error reading \"$_ldsoconf\"; fgrep exited with status" \ *) die "error reading \"$ldsoconf\"; fgrep exited with status" \
"$_fgrep_status" ;; "$fgrep_status" ;;
esac esac
set +e set +e
cmp -s "$_ldsoconf.dpkg-tmp" "$_ldsoconf" cmp -s "$ldsoconf.dpkg-tmp" "$ldsoconf"
_cmp_status=$? cmp_status=$?
set -e set -e
case $_cmp_status in case $cmp_status in
0) rm "$_ldsoconf.dpkg-tmp" ;; # files are identical 0) rm "$ldsoconf.dpkg-tmp" ;; # files are identical
1) mv "$_ldsoconf.dpkg-tmp" "$_ldsoconf" ;; # files differ 1) mv "$ldsoconf.dpkg-tmp" "$ldsoconf" ;; # files differ
*) die "error comparing \"$_ldsoconf.dpkg-tmp\" to \"$_ldsoconf\";" \ *) die "error comparing \"$ldsoconf.dpkg-tmp\" to \"$ldsoconf\";" \
"cmp exited with status $_cmp_status" ;; "cmp exited with status $cmp_status" ;;
esac esac
fi fi
fi fi
@ -811,17 +811,17 @@ make_symlink_sane () {
# We could just use the positional parameters as-is, but that makes things # We could just use the positional parameters as-is, but that makes things
# harder to follow. # harder to follow.
#local symlink target local symlink target
_symlink="$1" symlink="$1"
_target="$2" target="$2"
if [ -L "$_symlink" ] && [ "$(readlink "$_symlink")" = "$_target" ]; then if [ -L "$symlink" ] && [ "$(readlink "$symlink")" = "$target" ]; then
observe "link from $_symlink to $_target already exists" observe "link from $symlink to $target already exists"
else else
observe "creating symbolic link from $_symlink to $_target" observe "creating symbolic link from $symlink to $target"
mkdir -p "${_target%/*}" "${_symlink%/*}" mkdir -p "${target%/*}" "${symlink%/*}"
ln -s -b -S ".dpkg-old" "$_target" "$_symlink" ln -s -b -S ".dpkg-old" "$target" "$symlink"
fi fi
} }
@ -857,73 +857,73 @@ migrate_dir_to_symlink () {
# We could just use the positional parameters as-is, but that makes things # We could just use the positional parameters as-is, but that makes things
# harder to follow. # harder to follow.
local _new _old local new old
_old="$1" old="$1"
_new="$2" new="$2"
# Is old location a symlink? # Is old location a symlink?
if [ -L "$_old" ]; then if [ -L "$old" ]; then
# Does it already point to new location? # Does it already point to new location?
if [ "$(readlink "$_old")" = "$_new" ]; then if [ "$(readlink "$old")" = "$new" ]; then
# Nothing to do; migration has already been done. # Nothing to do; migration has already been done.
observe "migration of $_old to $_new already done" observe "migration of $old to $new already done"
return 0 return 0
else else
# Back it up. # Back it up.
warn "backing up symbolic link $_old as $_old.dpkg-old" warn "backing up symbolic link $old as $old.dpkg-old"
mv -b "$_old" "$_old.dpkg-old" mv -b "$old" "$old.dpkg-old"
fi fi
fi fi
# Does old location exist, but is not a directory? # Does old location exist, but is not a directory?
if [ -e "$_old" ] && ! [ -d "$_old" ]; then if [ -e "$old" ] && ! [ -d "$old" ]; then
# Back it up. # Back it up.
warn "backing up non-directory $_old as $_old.dpkg-old" warn "backing up non-directory $old as $old.dpkg-old"
mv -b "$_old" "$_old.dpkg-old" mv -b "$old" "$old.dpkg-old"
fi fi
observe "migrating $_old to $_new" observe "migrating $old to $new"
# Is new location a symlink? # Is new location a symlink?
if [ -L "$_new" ]; then if [ -L "$new" ]; then
# Does it point the wrong way, i.e., back to where we're migrating from? # Does it point the wrong way, i.e., back to where we're migrating from?
if [ "$(readlink "$_new")" = "$_old" ]; then if [ "$(readlink "$new")" = "$old" ]; then
# Get rid of it. # Get rid of it.
observe "removing symbolic link $_new which points to $_old" observe "removing symbolic link $new which points to $old"
rm "$_new" rm "$new"
else else
# Back it up. # Back it up.
warn "backing up symbolic link $_new as $_new.dpkg-old" warn "backing up symbolic link $new as $new.dpkg-old"
mv -b "$_new" "$_new.dpkg-old" mv -b "$new" "$new.dpkg-old"
fi fi
fi fi
# Does new location exist, but is not a directory? # Does new location exist, but is not a directory?
if [ -e "$_new" ] && ! [ -d "$_new" ]; then if [ -e "$new" ] && ! [ -d "$new" ]; then
warn "backing up non-directory $_new as $_new.dpkg-old" warn "backing up non-directory $new as $new.dpkg-old"
mv -b "$_new" "$_new.dpkg-old" mv -b "$new" "$new.dpkg-old"
fi fi
# Create new directory if it does not yet exist. # Create new directory if it does not yet exist.
if ! [ -e "$_new" ]; then if ! [ -e "$new" ]; then
observe "creating $_new" observe "creating $new"
mkdir -p "$_new" mkdir -p "$new"
fi fi
# Copy files in old location to new location. Back up any filenames that # Copy files in old location to new location. Back up any filenames that
# already exist in the new location with the extension ".dpkg-old". # already exist in the new location with the extension ".dpkg-old".
observe "copying files from $_old to $_new" observe "copying files from $old to $new"
if ! (cd "$_old" && cp -a -b -S ".dpkg-old" . "$_new"); then if ! (cd "$old" && cp -a -b -S ".dpkg-old" . "$new"); then
die "error(s) encountered while copying files from $_old to $_new" die "error(s) encountered while copying files from $old to $new"
fi fi
# Remove files at old location. # Remove files at old location.
observe "removing $_old" observe "removing $old"
rm -r "$_old" rm -r "$old"
# Create symlink from old location to new location. # Create symlink from old location to new location.
make_symlink_sane "$_old" "$_new" make_symlink_sane "$old" "$new"
} }
# vim:set ai et sw=2 ts=2 tw=80: # vim:set ai et sw=2 ts=2 tw=80: