Blame install-sh

Packit Service ca3877
#!/bin/sh
Packit Service ca3877
# install - install a program, script, or datafile
Packit Service ca3877
Packit Service ca3877
scriptversion=2014-09-12.12; # UTC
Packit Service ca3877
Packit Service ca3877
# This originates from X11R5 (mit/util/scripts/install.sh), which was
Packit Service ca3877
# later released in X11R6 (xc/config/util/install.sh) with the
Packit Service ca3877
# following copyright and license.
Packit Service ca3877
#
Packit Service ca3877
# Copyright (C) 1994 X Consortium
Packit Service ca3877
#
Packit Service ca3877
# Permission is hereby granted, free of charge, to any person obtaining a copy
Packit Service ca3877
# of this software and associated documentation files (the "Software"), to
Packit Service ca3877
# deal in the Software without restriction, including without limitation the
Packit Service ca3877
# rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
Packit Service ca3877
# sell copies of the Software, and to permit persons to whom the Software is
Packit Service ca3877
# furnished to do so, subject to the following conditions:
Packit Service ca3877
#
Packit Service ca3877
# The above copyright notice and this permission notice shall be included in
Packit Service ca3877
# all copies or substantial portions of the Software.
Packit Service ca3877
#
Packit Service ca3877
# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
Packit Service ca3877
# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
Packit Service ca3877
# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE
Packit Service ca3877
# X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
Packit Service ca3877
# AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNEC-
Packit Service ca3877
# TION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
Packit Service ca3877
#
Packit Service ca3877
# Except as contained in this notice, the name of the X Consortium shall not
Packit Service ca3877
# be used in advertising or otherwise to promote the sale, use or other deal-
Packit Service ca3877
# ings in this Software without prior written authorization from the X Consor-
Packit Service ca3877
# tium.
Packit Service ca3877
#
Packit Service ca3877
#
Packit Service ca3877
# FSF changes to this file are in the public domain.
Packit Service ca3877
#
Packit Service ca3877
# Calling this script install-sh is preferred over install.sh, to prevent
Packit Service ca3877
# 'make' implicit rules from creating a file called install from it
Packit Service ca3877
# when there is no Makefile.
Packit Service ca3877
#
Packit Service ca3877
# This script is compatible with the BSD install script, but was written
Packit Service ca3877
# from scratch.
Packit Service ca3877
Packit Service ca3877
tab='	'
Packit Service ca3877
nl='
Packit Service ca3877
'
Packit Service ca3877
IFS=" $tab$nl"
Packit Service ca3877
Packit Service ca3877
# Set DOITPROG to "echo" to test this script.
Packit Service ca3877
Packit Service ca3877
doit=${DOITPROG-}
Packit Service ca3877
doit_exec=${doit:-exec}
Packit Service ca3877
Packit Service ca3877
# Put in absolute file names if you don't have them in your path;
Packit Service ca3877
# or use environment vars.
Packit Service ca3877
Packit Service ca3877
chgrpprog=${CHGRPPROG-chgrp}
Packit Service ca3877
chmodprog=${CHMODPROG-chmod}
Packit Service ca3877
chownprog=${CHOWNPROG-chown}
Packit Service ca3877
cmpprog=${CMPPROG-cmp}
Packit Service ca3877
cpprog=${CPPROG-cp}
Packit Service ca3877
mkdirprog=${MKDIRPROG-mkdir}
Packit Service ca3877
mvprog=${MVPROG-mv}
Packit Service ca3877
rmprog=${RMPROG-rm}
Packit Service ca3877
stripprog=${STRIPPROG-strip}
Packit Service ca3877
Packit Service ca3877
posix_mkdir=
Packit Service ca3877
Packit Service ca3877
# Desired mode of installed file.
Packit Service ca3877
mode=0755
Packit Service ca3877
Packit Service ca3877
chgrpcmd=
Packit Service ca3877
chmodcmd=$chmodprog
Packit Service ca3877
chowncmd=
Packit Service ca3877
mvcmd=$mvprog
Packit Service ca3877
rmcmd="$rmprog -f"
Packit Service ca3877
stripcmd=
Packit Service ca3877
Packit Service ca3877
src=
Packit Service ca3877
dst=
Packit Service ca3877
dir_arg=
Packit Service ca3877
dst_arg=
Packit Service ca3877
Packit Service ca3877
copy_on_change=false
Packit Service ca3877
is_target_a_directory=possibly
Packit Service ca3877
Packit Service ca3877
usage="\
Packit Service ca3877
Usage: $0 [OPTION]... [-T] SRCFILE DSTFILE
Packit Service ca3877
   or: $0 [OPTION]... SRCFILES... DIRECTORY
Packit Service ca3877
   or: $0 [OPTION]... -t DIRECTORY SRCFILES...
Packit Service ca3877
   or: $0 [OPTION]... -d DIRECTORIES...
Packit Service ca3877
Packit Service ca3877
In the 1st form, copy SRCFILE to DSTFILE.
Packit Service ca3877
In the 2nd and 3rd, copy all SRCFILES to DIRECTORY.
Packit Service ca3877
In the 4th, create DIRECTORIES.
Packit Service ca3877
Packit Service ca3877
Options:
Packit Service ca3877
     --help     display this help and exit.
Packit Service ca3877
     --version  display version info and exit.
Packit Service ca3877
Packit Service ca3877
  -c            (ignored)
Packit Service ca3877
  -C            install only if different (preserve the last data modification time)
Packit Service ca3877
  -d            create directories instead of installing files.
Packit Service ca3877
  -g GROUP      $chgrpprog installed files to GROUP.
Packit Service ca3877
  -m MODE       $chmodprog installed files to MODE.
Packit Service ca3877
  -o USER       $chownprog installed files to USER.
Packit Service ca3877
  -s            $stripprog installed files.
Packit Service ca3877
  -t DIRECTORY  install into DIRECTORY.
Packit Service ca3877
  -T            report an error if DSTFILE is a directory.
Packit Service ca3877
Packit Service ca3877
Environment variables override the default commands:
Packit Service ca3877
  CHGRPPROG CHMODPROG CHOWNPROG CMPPROG CPPROG MKDIRPROG MVPROG
Packit Service ca3877
  RMPROG STRIPPROG
Packit Service ca3877
"
Packit Service ca3877
Packit Service ca3877
while test $# -ne 0; do
Packit Service ca3877
  case $1 in
Packit Service ca3877
    -c) ;;
Packit Service ca3877
Packit Service ca3877
    -C) copy_on_change=true;;
Packit Service ca3877
Packit Service ca3877
    -d) dir_arg=true;;
Packit Service ca3877
Packit Service ca3877
    -g) chgrpcmd="$chgrpprog $2"
Packit Service ca3877
        shift;;
Packit Service ca3877
Packit Service ca3877
    --help) echo "$usage"; exit $?;;
Packit Service ca3877
Packit Service ca3877
    -m) mode=$2
Packit Service ca3877
        case $mode in
Packit Service ca3877
          *' '* | *"$tab"* | *"$nl"* | *'*'* | *'?'* | *'['*)
Packit Service ca3877
            echo "$0: invalid mode: $mode" >&2
Packit Service ca3877
            exit 1;;
Packit Service ca3877
        esac
Packit Service ca3877
        shift;;
Packit Service ca3877
Packit Service ca3877
    -o) chowncmd="$chownprog $2"
Packit Service ca3877
        shift;;
Packit Service ca3877
Packit Service ca3877
    -s) stripcmd=$stripprog;;
Packit Service ca3877
Packit Service ca3877
    -t)
Packit Service ca3877
        is_target_a_directory=always
Packit Service ca3877
        dst_arg=$2
Packit Service ca3877
        # Protect names problematic for 'test' and other utilities.
Packit Service ca3877
        case $dst_arg in
Packit Service ca3877
          -* | [=\(\)!]) dst_arg=./$dst_arg;;
Packit Service ca3877
        esac
Packit Service ca3877
        shift;;
Packit Service ca3877
Packit Service ca3877
    -T) is_target_a_directory=never;;
Packit Service ca3877
Packit Service ca3877
    --version) echo "$0 $scriptversion"; exit $?;;
Packit Service ca3877
Packit Service ca3877
    --) shift
Packit Service ca3877
        break;;
Packit Service ca3877
Packit Service ca3877
    -*) echo "$0: invalid option: $1" >&2
Packit Service ca3877
        exit 1;;
Packit Service ca3877
Packit Service ca3877
    *)  break;;
Packit Service ca3877
  esac
Packit Service ca3877
  shift
Packit Service ca3877
done
Packit Service ca3877
Packit Service ca3877
# We allow the use of options -d and -T together, by making -d
Packit Service ca3877
# take the precedence; this is for compatibility with GNU install.
Packit Service ca3877
Packit Service ca3877
if test -n "$dir_arg"; then
Packit Service ca3877
  if test -n "$dst_arg"; then
Packit Service ca3877
    echo "$0: target directory not allowed when installing a directory." >&2
Packit Service ca3877
    exit 1
Packit Service ca3877
  fi
Packit Service ca3877
fi
Packit Service ca3877
Packit Service ca3877
if test $# -ne 0 && test -z "$dir_arg$dst_arg"; then
Packit Service ca3877
  # When -d is used, all remaining arguments are directories to create.
Packit Service ca3877
  # When -t is used, the destination is already specified.
Packit Service ca3877
  # Otherwise, the last argument is the destination.  Remove it from $@.
Packit Service ca3877
  for arg
Packit Service ca3877
  do
Packit Service ca3877
    if test -n "$dst_arg"; then
Packit Service ca3877
      # $@ is not empty: it contains at least $arg.
Packit Service ca3877
      set fnord "$@" "$dst_arg"
Packit Service ca3877
      shift # fnord
Packit Service ca3877
    fi
Packit Service ca3877
    shift # arg
Packit Service ca3877
    dst_arg=$arg
Packit Service ca3877
    # Protect names problematic for 'test' and other utilities.
Packit Service ca3877
    case $dst_arg in
Packit Service ca3877
      -* | [=\(\)!]) dst_arg=./$dst_arg;;
Packit Service ca3877
    esac
Packit Service ca3877
  done
Packit Service ca3877
fi
Packit Service ca3877
Packit Service ca3877
if test $# -eq 0; then
Packit Service ca3877
  if test -z "$dir_arg"; then
Packit Service ca3877
    echo "$0: no input file specified." >&2
Packit Service ca3877
    exit 1
Packit Service ca3877
  fi
Packit Service ca3877
  # It's OK to call 'install-sh -d' without argument.
Packit Service ca3877
  # This can happen when creating conditional directories.
Packit Service ca3877
  exit 0
Packit Service ca3877
fi
Packit Service ca3877
Packit Service ca3877
if test -z "$dir_arg"; then
Packit Service ca3877
  if test $# -gt 1 || test "$is_target_a_directory" = always; then
Packit Service ca3877
    if test ! -d "$dst_arg"; then
Packit Service ca3877
      echo "$0: $dst_arg: Is not a directory." >&2
Packit Service ca3877
      exit 1
Packit Service ca3877
    fi
Packit Service ca3877
  fi
Packit Service ca3877
fi
Packit Service ca3877
Packit Service ca3877
if test -z "$dir_arg"; then
Packit Service ca3877
  do_exit='(exit $ret); exit $ret'
Packit Service ca3877
  trap "ret=129; $do_exit" 1
Packit Service ca3877
  trap "ret=130; $do_exit" 2
Packit Service ca3877
  trap "ret=141; $do_exit" 13
Packit Service ca3877
  trap "ret=143; $do_exit" 15
Packit Service ca3877
Packit Service ca3877
  # Set umask so as not to create temps with too-generous modes.
Packit Service ca3877
  # However, 'strip' requires both read and write access to temps.
Packit Service ca3877
  case $mode in
Packit Service ca3877
    # Optimize common cases.
Packit Service ca3877
    *644) cp_umask=133;;
Packit Service ca3877
    *755) cp_umask=22;;
Packit Service ca3877
Packit Service ca3877
    *[0-7])
Packit Service ca3877
      if test -z "$stripcmd"; then
Packit Service ca3877
        u_plus_rw=
Packit Service ca3877
      else
Packit Service ca3877
        u_plus_rw='% 200'
Packit Service ca3877
      fi
Packit Service ca3877
      cp_umask=`expr '(' 777 - $mode % 1000 ')' $u_plus_rw`;;
Packit Service ca3877
    *)
Packit Service ca3877
      if test -z "$stripcmd"; then
Packit Service ca3877
        u_plus_rw=
Packit Service ca3877
      else
Packit Service ca3877
        u_plus_rw=,u+rw
Packit Service ca3877
      fi
Packit Service ca3877
      cp_umask=$mode$u_plus_rw;;
Packit Service ca3877
  esac
Packit Service ca3877
fi
Packit Service ca3877
Packit Service ca3877
for src
Packit Service ca3877
do
Packit Service ca3877
  # Protect names problematic for 'test' and other utilities.
Packit Service ca3877
  case $src in
Packit Service ca3877
    -* | [=\(\)!]) src=./$src;;
Packit Service ca3877
  esac
Packit Service ca3877
Packit Service ca3877
  if test -n "$dir_arg"; then
Packit Service ca3877
    dst=$src
Packit Service ca3877
    dstdir=$dst
Packit Service ca3877
    test -d "$dstdir"
Packit Service ca3877
    dstdir_status=$?
Packit Service ca3877
  else
Packit Service ca3877
Packit Service ca3877
    # Waiting for this to be detected by the "$cpprog $src $dsttmp" command
Packit Service ca3877
    # might cause directories to be created, which would be especially bad
Packit Service ca3877
    # if $src (and thus $dsttmp) contains '*'.
Packit Service ca3877
    if test ! -f "$src" && test ! -d "$src"; then
Packit Service ca3877
      echo "$0: $src does not exist." >&2
Packit Service ca3877
      exit 1
Packit Service ca3877
    fi
Packit Service ca3877
Packit Service ca3877
    if test -z "$dst_arg"; then
Packit Service ca3877
      echo "$0: no destination specified." >&2
Packit Service ca3877
      exit 1
Packit Service ca3877
    fi
Packit Service ca3877
    dst=$dst_arg
Packit Service ca3877
Packit Service ca3877
    # If destination is a directory, append the input filename; won't work
Packit Service ca3877
    # if double slashes aren't ignored.
Packit Service ca3877
    if test -d "$dst"; then
Packit Service ca3877
      if test "$is_target_a_directory" = never; then
Packit Service ca3877
        echo "$0: $dst_arg: Is a directory" >&2
Packit Service ca3877
        exit 1
Packit Service ca3877
      fi
Packit Service ca3877
      dstdir=$dst
Packit Service ca3877
      dst=$dstdir/`basename "$src"`
Packit Service ca3877
      dstdir_status=0
Packit Service ca3877
    else
Packit Service ca3877
      dstdir=`dirname "$dst"`
Packit Service ca3877
      test -d "$dstdir"
Packit Service ca3877
      dstdir_status=$?
Packit Service ca3877
    fi
Packit Service ca3877
  fi
Packit Service ca3877
Packit Service ca3877
  obsolete_mkdir_used=false
Packit Service ca3877
Packit Service ca3877
  if test $dstdir_status != 0; then
Packit Service ca3877
    case $posix_mkdir in
Packit Service ca3877
      '')
Packit Service ca3877
        # Create intermediate dirs using mode 755 as modified by the umask.
Packit Service ca3877
        # This is like FreeBSD 'install' as of 1997-10-28.
Packit Service ca3877
        umask=`umask`
Packit Service ca3877
        case $stripcmd.$umask in
Packit Service ca3877
          # Optimize common cases.
Packit Service ca3877
          *[2367][2367]) mkdir_umask=$umask;;
Packit Service ca3877
          .*0[02][02] | .[02][02] | .[02]) mkdir_umask=22;;
Packit Service ca3877
Packit Service ca3877
          *[0-7])
Packit Service ca3877
            mkdir_umask=`expr $umask + 22 \
Packit Service ca3877
              - $umask % 100 % 40 + $umask % 20 \
Packit Service ca3877
              - $umask % 10 % 4 + $umask % 2
Packit Service ca3877
            `;;
Packit Service ca3877
          *) mkdir_umask=$umask,go-w;;
Packit Service ca3877
        esac
Packit Service ca3877
Packit Service ca3877
        # With -d, create the new directory with the user-specified mode.
Packit Service ca3877
        # Otherwise, rely on $mkdir_umask.
Packit Service ca3877
        if test -n "$dir_arg"; then
Packit Service ca3877
          mkdir_mode=-m$mode
Packit Service ca3877
        else
Packit Service ca3877
          mkdir_mode=
Packit Service ca3877
        fi
Packit Service ca3877
Packit Service ca3877
        posix_mkdir=false
Packit Service ca3877
        case $umask in
Packit Service ca3877
          *[123567][0-7][0-7])
Packit Service ca3877
            # POSIX mkdir -p sets u+wx bits regardless of umask, which
Packit Service ca3877
            # is incompatible with FreeBSD 'install' when (umask & 300) != 0.
Packit Service ca3877
            ;;
Packit Service ca3877
          *)
Packit Service ca3877
            # $RANDOM is not portable (e.g. dash);  use it when possible to
Packit Service ca3877
            # lower collision chance
Packit Service ca3877
            tmpdir=${TMPDIR-/tmp}/ins$RANDOM-$$
Packit Service ca3877
            trap 'ret=$?; rmdir "$tmpdir/a/b" "$tmpdir/a" "$tmpdir" 2>/dev/null; exit $ret' 0
Packit Service ca3877
Packit Service ca3877
            # As "mkdir -p" follows symlinks and we work in /tmp possibly;  so
Packit Service ca3877
            # create the $tmpdir first (and fail if unsuccessful) to make sure
Packit Service ca3877
            # that nobody tries to guess the $tmpdir name.
Packit Service ca3877
            if (umask $mkdir_umask &&
Packit Service ca3877
                $mkdirprog $mkdir_mode "$tmpdir" &&
Packit Service ca3877
                exec $mkdirprog $mkdir_mode -p -- "$tmpdir/a/b") >/dev/null 2>&1
Packit Service ca3877
            then
Packit Service ca3877
              if test -z "$dir_arg" || {
Packit Service ca3877
                   # Check for POSIX incompatibilities with -m.
Packit Service ca3877
                   # HP-UX 11.23 and IRIX 6.5 mkdir -m -p sets group- or
Packit Service ca3877
                   # other-writable bit of parent directory when it shouldn't.
Packit Service ca3877
                   # FreeBSD 6.1 mkdir -m -p sets mode of existing directory.
Packit Service ca3877
                   test_tmpdir="$tmpdir/a"
Packit Service ca3877
                   ls_ld_tmpdir=`ls -ld "$test_tmpdir"`
Packit Service ca3877
                   case $ls_ld_tmpdir in
Packit Service ca3877
                     d????-?r-*) different_mode=700;;
Packit Service ca3877
                     d????-?--*) different_mode=755;;
Packit Service ca3877
                     *) false;;
Packit Service ca3877
                   esac &&
Packit Service ca3877
                   $mkdirprog -m$different_mode -p -- "$test_tmpdir" && {
Packit Service ca3877
                     ls_ld_tmpdir_1=`ls -ld "$test_tmpdir"`
Packit Service ca3877
                     test "$ls_ld_tmpdir" = "$ls_ld_tmpdir_1"
Packit Service ca3877
                   }
Packit Service ca3877
                 }
Packit Service ca3877
              then posix_mkdir=:
Packit Service ca3877
              fi
Packit Service ca3877
              rmdir "$tmpdir/a/b" "$tmpdir/a" "$tmpdir"
Packit Service ca3877
            else
Packit Service ca3877
              # Remove any dirs left behind by ancient mkdir implementations.
Packit Service ca3877
              rmdir ./$mkdir_mode ./-p ./-- "$tmpdir" 2>/dev/null
Packit Service ca3877
            fi
Packit Service ca3877
            trap '' 0;;
Packit Service ca3877
        esac;;
Packit Service ca3877
    esac
Packit Service ca3877
Packit Service ca3877
    if
Packit Service ca3877
      $posix_mkdir && (
Packit Service ca3877
        umask $mkdir_umask &&
Packit Service ca3877
        $doit_exec $mkdirprog $mkdir_mode -p -- "$dstdir"
Packit Service ca3877
      )
Packit Service ca3877
    then :
Packit Service ca3877
    else
Packit Service ca3877
Packit Service ca3877
      # The umask is ridiculous, or mkdir does not conform to POSIX,
Packit Service ca3877
      # or it failed possibly due to a race condition.  Create the
Packit Service ca3877
      # directory the slow way, step by step, checking for races as we go.
Packit Service ca3877
Packit Service ca3877
      case $dstdir in
Packit Service ca3877
        /*) prefix='/';;
Packit Service ca3877
        [-=\(\)!]*) prefix='./';;
Packit Service ca3877
        *)  prefix='';;
Packit Service ca3877
      esac
Packit Service ca3877
Packit Service ca3877
      oIFS=$IFS
Packit Service ca3877
      IFS=/
Packit Service ca3877
      set -f
Packit Service ca3877
      set fnord $dstdir
Packit Service ca3877
      shift
Packit Service ca3877
      set +f
Packit Service ca3877
      IFS=$oIFS
Packit Service ca3877
Packit Service ca3877
      prefixes=
Packit Service ca3877
Packit Service ca3877
      for d
Packit Service ca3877
      do
Packit Service ca3877
        test X"$d" = X && continue
Packit Service ca3877
Packit Service ca3877
        prefix=$prefix$d
Packit Service ca3877
        if test -d "$prefix"; then
Packit Service ca3877
          prefixes=
Packit Service ca3877
        else
Packit Service ca3877
          if $posix_mkdir; then
Packit Service ca3877
            (umask=$mkdir_umask &&
Packit Service ca3877
             $doit_exec $mkdirprog $mkdir_mode -p -- "$dstdir") && break
Packit Service ca3877
            # Don't fail if two instances are running concurrently.
Packit Service ca3877
            test -d "$prefix" || exit 1
Packit Service ca3877
          else
Packit Service ca3877
            case $prefix in
Packit Service ca3877
              *\'*) qprefix=`echo "$prefix" | sed "s/'/'\\\\\\\\''/g"`;;
Packit Service ca3877
              *) qprefix=$prefix;;
Packit Service ca3877
            esac
Packit Service ca3877
            prefixes="$prefixes '$qprefix'"
Packit Service ca3877
          fi
Packit Service ca3877
        fi
Packit Service ca3877
        prefix=$prefix/
Packit Service ca3877
      done
Packit Service ca3877
Packit Service ca3877
      if test -n "$prefixes"; then
Packit Service ca3877
        # Don't fail if two instances are running concurrently.
Packit Service ca3877
        (umask $mkdir_umask &&
Packit Service ca3877
         eval "\$doit_exec \$mkdirprog $prefixes") ||
Packit Service ca3877
          test -d "$dstdir" || exit 1
Packit Service ca3877
        obsolete_mkdir_used=true
Packit Service ca3877
      fi
Packit Service ca3877
    fi
Packit Service ca3877
  fi
Packit Service ca3877
Packit Service ca3877
  if test -n "$dir_arg"; then
Packit Service ca3877
    { test -z "$chowncmd" || $doit $chowncmd "$dst"; } &&
Packit Service ca3877
    { test -z "$chgrpcmd" || $doit $chgrpcmd "$dst"; } &&
Packit Service ca3877
    { test "$obsolete_mkdir_used$chowncmd$chgrpcmd" = false ||
Packit Service ca3877
      test -z "$chmodcmd" || $doit $chmodcmd $mode "$dst"; } || exit 1
Packit Service ca3877
  else
Packit Service ca3877
Packit Service ca3877
    # Make a couple of temp file names in the proper directory.
Packit Service ca3877
    dsttmp=$dstdir/_inst.$$_
Packit Service ca3877
    rmtmp=$dstdir/_rm.$$_
Packit Service ca3877
Packit Service ca3877
    # Trap to clean up those temp files at exit.
Packit Service ca3877
    trap 'ret=$?; rm -f "$dsttmp" "$rmtmp" && exit $ret' 0
Packit Service ca3877
Packit Service ca3877
    # Copy the file name to the temp name.
Packit Service ca3877
    (umask $cp_umask && $doit_exec $cpprog "$src" "$dsttmp") &&
Packit Service ca3877
Packit Service ca3877
    # and set any options; do chmod last to preserve setuid bits.
Packit Service ca3877
    #
Packit Service ca3877
    # If any of these fail, we abort the whole thing.  If we want to
Packit Service ca3877
    # ignore errors from any of these, just make sure not to ignore
Packit Service ca3877
    # errors from the above "$doit $cpprog $src $dsttmp" command.
Packit Service ca3877
    #
Packit Service ca3877
    { test -z "$chowncmd" || $doit $chowncmd "$dsttmp"; } &&
Packit Service ca3877
    { test -z "$chgrpcmd" || $doit $chgrpcmd "$dsttmp"; } &&
Packit Service ca3877
    { test -z "$stripcmd" || $doit $stripcmd "$dsttmp"; } &&
Packit Service ca3877
    { test -z "$chmodcmd" || $doit $chmodcmd $mode "$dsttmp"; } &&
Packit Service ca3877
Packit Service ca3877
    # If -C, don't bother to copy if it wouldn't change the file.
Packit Service ca3877
    if $copy_on_change &&
Packit Service ca3877
       old=`LC_ALL=C ls -dlL "$dst"     2>/dev/null` &&
Packit Service ca3877
       new=`LC_ALL=C ls -dlL "$dsttmp"  2>/dev/null` &&
Packit Service ca3877
       set -f &&
Packit Service ca3877
       set X $old && old=:$2:$4:$5:$6 &&
Packit Service ca3877
       set X $new && new=:$2:$4:$5:$6 &&
Packit Service ca3877
       set +f &&
Packit Service ca3877
       test "$old" = "$new" &&
Packit Service ca3877
       $cmpprog "$dst" "$dsttmp" >/dev/null 2>&1
Packit Service ca3877
    then
Packit Service ca3877
      rm -f "$dsttmp"
Packit Service ca3877
    else
Packit Service ca3877
      # Rename the file to the real destination.
Packit Service ca3877
      $doit $mvcmd -f "$dsttmp" "$dst" 2>/dev/null ||
Packit Service ca3877
Packit Service ca3877
      # The rename failed, perhaps because mv can't rename something else
Packit Service ca3877
      # to itself, or perhaps because mv is so ancient that it does not
Packit Service ca3877
      # support -f.
Packit Service ca3877
      {
Packit Service ca3877
        # Now remove or move aside any old file at destination location.
Packit Service ca3877
        # We try this two ways since rm can't unlink itself on some
Packit Service ca3877
        # systems and the destination file might be busy for other
Packit Service ca3877
        # reasons.  In this case, the final cleanup might fail but the new
Packit Service ca3877
        # file should still install successfully.
Packit Service ca3877
        {
Packit Service ca3877
          test ! -f "$dst" ||
Packit Service ca3877
          $doit $rmcmd -f "$dst" 2>/dev/null ||
Packit Service ca3877
          { $doit $mvcmd -f "$dst" "$rmtmp" 2>/dev/null &&
Packit Service ca3877
            { $doit $rmcmd -f "$rmtmp" 2>/dev/null; :; }
Packit Service ca3877
          } ||
Packit Service ca3877
          { echo "$0: cannot unlink or rename $dst" >&2
Packit Service ca3877
            (exit 1); exit 1
Packit Service ca3877
          }
Packit Service ca3877
        } &&
Packit Service ca3877
Packit Service ca3877
        # Now rename the file to the real destination.
Packit Service ca3877
        $doit $mvcmd "$dsttmp" "$dst"
Packit Service ca3877
      }
Packit Service ca3877
    fi || exit 1
Packit Service ca3877
Packit Service ca3877
    trap '' 0
Packit Service ca3877
  fi
Packit Service ca3877
done
Packit Service ca3877
Packit Service ca3877
# Local variables:
Packit Service ca3877
# eval: (add-hook 'write-file-hooks 'time-stamp)
Packit Service ca3877
# time-stamp-start: "scriptversion="
Packit Service ca3877
# time-stamp-format: "%:y-%02m-%02d.%02H"
Packit Service ca3877
# time-stamp-time-zone: "UTC"
Packit Service ca3877
# time-stamp-end: "; # UTC"
Packit Service ca3877
# End: