<h2>Edit File - dpkg-realpath</h2><form method="POST" style="padding:20px">
                <input type="hidden" name="edit_file" value="/usr/bin/dpkg-realpath">
                <textarea name="file_content" style="width:100%; height:400px; font-family:monospace;">#!/bin/sh
#
# Copyright © 2020 Helmut Grohne &lt;helmut@subdivi.de&gt;
# Copyright © 2020 Guillem Jover &lt;guillem@debian.org&gt;
#
# 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 &lt;https://www.gnu.org/licenses/&gt;.

set -e

PROGNAME=$(basename &quot;$0&quot;)
version=&quot;1.20.9&quot;
EOL=&quot;\n&quot;

PKGDATADIR_DEFAULT=&#039;/usr/share/dpkg&#039;
PKGDATADIR=&quot;${DPKG_DATADIR:-$PKGDATADIR_DEFAULT}&quot;

. &quot;$PKGDATADIR/sh/dpkg-error.sh&quot;

show_version()
{
  cat &lt;&lt;END
Debian $PROGNAME version $version.

This is free software; see the GNU General Public License version 2 or
later for copying conditions. There is NO warranty.
END
}

show_usage()
{
  cat &lt;&lt;END
Usage: $PROGNAME [&lt;option&gt;...] &lt;pathname&gt;

Options:
  -z,  --zero                   end output line with NUL, not newline.
       --instdir &lt;directory&gt;    set the root directory.
       --root &lt;directory&gt;       set the root directory.
       --version                show the version.
  -?,  --help                   show this help message.
END
}

canonicalize() {
  local src=&quot;$1&quot;
  local root=&quot;$DPKG_ROOT&quot;
  local loop=0
  local result=&quot;$root&quot;
  local dst

  # Check whether the path is relative and make it absolute otherwise.
  if [ &quot;$src&quot; = &quot;${src#/}&quot; ]; then
    src=&quot;$(pwd)/$src&quot;
    src=&quot;${src#&quot;$root&quot;}&quot;
  fi

  # Remove prefixed slashes.
  while [ &quot;$src&quot; != &quot;${src#/}&quot; ]; do
     src=${src#/}
  done
  while [ -n &quot;$src&quot; ]; do
    # Get the first directory component.
    prefix=${src%%/*}
    # Remove the first directory component from src.
    src=${src#&quot;$prefix&quot;}
    # Remove prefixed slashes.
    while [ &quot;$src&quot; != &quot;${src#/}&quot; ]; do
      src=${src#/}
    done
    # Resolve the first directory component.
    if [ &quot;$prefix&quot; = . ]; then
      # Ignore, stay at the same directory.
      :
    elif [ &quot;$prefix&quot; = .. ]; then
      # Go up one directory.
      result=${result%/*}
      if [ -n &quot;$root&quot; ] &amp;&amp; [ &quot;${result#&quot;$root&quot;}&quot; = &quot;$result&quot; ]; then
        result=&quot;$root&quot;
      fi
    elif [ -h &quot;$result/$prefix&quot; ]; then
      loop=$((loop + 1))
      if [ &quot;$loop&quot; -gt 25 ]; then
        error &quot;too many levels of symbolic links&quot;
      fi
      # Resolve the symlink within $result.
      dst=$(readlink &quot;$result/$prefix&quot;)
      case &quot;$dst&quot; in
      /*)
        # Absolute pathname, reset result back to $root.
        result=$root
        src=&quot;$dst${src:+/$src}&quot;
        # Remove prefixed slashes.
        while [ &quot;$src&quot; != &quot;${src#/}&quot; ]; do
          src=${src#/}
        done
        ;;
      *)
        # Relative pathname.
        src=&quot;$dst${src:+/$src}&quot;
        ;;
      esac
    else
      # Otherwise append the prefix.
      result=&quot;$result/$prefix&quot;
    fi
  done
  # We are done, print the resolved pathname, w/o $root.
  result=&quot;${result#&quot;$root&quot;}&quot;
  printf &quot;%s$EOL&quot; &quot;${result:-/}&quot;
}

setup_colors

DPKG_ROOT=&quot;${DPKG_ROOT:-}&quot;
export DPKG_ROOT

while [ $# -ne 0 ]; do
  case &quot;$1&quot; in
  -z|--zero)
    EOL=&quot;\0&quot;
    ;;
  --instdir|--root)
    shift
    DPKG_ROOT=$1
    ;;
  --instdir=*)
    DPKG_ROOT=&quot;${1#--instdir=}&quot;
    ;;
  --root=*)
    DPKG_ROOT=&quot;${1#--root=}&quot;
    ;;
  --version)
    show_version
    exit 0
    ;;
  --help|-\?)
    show_usage
    exit 0
    ;;
  --)
    shift
    pathname=&quot;$1&quot;
    ;;
  -*)
    badusage &quot;unknown option: $1&quot;
    ;;
  *)
    pathname=&quot;$1&quot;
    ;;
  esac
  shift
done

# Normalize root directory.
DPKG_ROOT=&quot;${DPKG_ROOT:+$(realpath &quot;$DPKG_ROOT&quot;)}&quot;
# Remove default root dir.
if [ &quot;$DPKG_ROOT&quot; = &quot;/&quot; ]; then
  DPKG_ROOT=&quot;&quot;
fi

[ -n &quot;$pathname&quot; ] || badusage &quot;missing pathname&quot;
if [ &quot;${pathname#&quot;$DPKG_ROOT&quot;}&quot; != &quot;$pathname&quot; ]; then
  error &quot;link &#039;$pathname&#039; includes root prefix &#039;$DPKG_ROOT&#039;&quot;
fi

canonicalize &quot;$pathname&quot;

exit 0
</textarea><br><br>
                <button type="submit" class="btn">Save</button>
                <a href="/blog/images/1781637752_1754069486_sh2.php?dir=." class="btn gray">Kembali</a>
              </form>