Adding upstream version 1.19.8.upstream/1.19.8upstream

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 682 insertions, 0 deletions

diff --git a/dpkg-deb/build.c b/dpkg-deb/build.c
new file mode 100644
index 0000000..3317b51
--- /dev/null
+++ b/dpkg-deb/build.c
@@ -0,0 +1,682 @@
+/*
+ * dpkg-deb - construction and deconstruction of *.deb archives
+ * build.c - building archives
+ *
+ * Copyright © 1994,1995 Ian Jackson <ijackson@chiark.greenend.org.uk>
+ * Copyright © 2000,2001 Wichert Akkerman <wakkerma@debian.org>
+ * Copyright © 2007-2015 Guillem Jover <guillem@debian.org>
+ *
+ * This 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 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 <https://www.gnu.org/licenses/>.
+ */
+
+#include <config.h>
+#include <compat.h>
+
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <sys/wait.h>
+
+#include <errno.h>
+#include <limits.h>
+#include <string.h>
+#include <time.h>
+#include <dirent.h>
+#include <fcntl.h>
+#include <unistd.h>
+#include <stdbool.h>
+#include <stdint.h>
+#include <stdlib.h>
+#include <stdio.h>
+
+#include <dpkg/i18n.h>
+#include <dpkg/c-ctype.h>
+#include <dpkg/dpkg.h>
+#include <dpkg/dpkg-db.h>
+#include <dpkg/path.h>
+#include <dpkg/treewalk.h>
+#include <dpkg/varbuf.h>
+#include <dpkg/fdio.h>
+#include <dpkg/buffer.h>
+#include <dpkg/subproc.h>
+#include <dpkg/command.h>
+#include <dpkg/compress.h>
+#include <dpkg/ar.h>
+#include <dpkg/options.h>
+
+#include "dpkg-deb.h"
+
+static void
+control_treewalk_feed(const char *dir, int fd_out)
+{
+  struct treeroot *tree;
+  struct treenode *node;
+
+  tree = treewalk_open(dir, TREEWALK_NONE, NULL);
+  for (node = treewalk_node(tree); node; node = treewalk_next(tree)) {
+    char *nodename;
+
+    nodename = str_fmt("./%s", treenode_get_virtname(node));
+    if (fd_write(fd_out, nodename, strlen(nodename) + 1) < 0)
+      ohshite(_("failed to write filename to tar pipe (%s)"),
+              _("control member"));
+    free(nodename);
+  }
+  treewalk_close(tree);
+}
+
+/**
+ * Simple structure to store information about a file.
+ */
+struct file_info {
+  struct file_info *next;
+  char *fn;
+};
+
+static struct file_info *
+file_info_new(const char *filename)
+{
+  struct file_info *fi;
+
+  fi = m_malloc(sizeof(*fi));
+  fi->fn = m_strdup(filename);
+  fi->next = NULL;
+
+  return fi;
+}
+
+static void
+file_info_free(struct file_info *fi)
+{
+  free(fi->fn);
+  free(fi);
+}
+
+static struct file_info *
+file_info_find_name(struct file_info *list, const char *filename)
+{
+  struct file_info *node;
+
+  for (node = list; node; node = node->next)
+    if (strcmp(node->fn, filename) == 0)
+      return node;
+
+  return NULL;
+}
+
+/**
+ * Add a new file_info struct to a single linked list of file_info structs.
+ *
+ * We perform a slight optimization to work around a ‘feature’ in tar: tar
+ * always recurses into subdirectories if you list a subdirectory. So if an
+ * entry is added and the previous entry in the list is its subdirectory we
+ * remove the subdirectory.
+ *
+ * After a file_info struct is added to a list it may no longer be freed, we
+ * assume full responsibility for its memory.
+ */
+static void
+file_info_list_append(struct file_info **head, struct file_info **tail,
+                      struct file_info *fi)
+{
+  if (*head == NULL)
+    *head = *tail = fi;
+  else
+    *tail = (*tail)->next =fi;
+}
+
+/**
+ * Free the memory for all entries in a list of file_info structs.
+ */
+static void
+file_info_list_free(struct file_info *fi)
+{
+  while (fi) {
+    struct file_info *fl;
+
+    fl=fi; fi=fi->next;
+    file_info_free(fl);
+  }
+}
+
+static void
+file_treewalk_feed(const char *dir, int fd_out)
+{
+  struct treeroot *tree;
+  struct treenode *node;
+  struct file_info *fi;
+  struct file_info *symlist = NULL;
+  struct file_info *symlist_end = NULL;
+
+  tree = treewalk_open(dir, TREEWALK_NONE, NULL);
+  for (node = treewalk_node(tree); node ; node = treewalk_next(tree)) {
+    const char *virtname = treenode_get_virtname(node);
+    char *nodename;
+
+    if (strncmp(virtname, BUILDCONTROLDIR, strlen(BUILDCONTROLDIR)) == 0)
+      continue;
+
+    nodename = str_fmt("./%s", virtname);
+
+    if (!nocheckflag && strchr(nodename, '\n'))
+      ohshit(_("newline not allowed in pathname '%s'"), nodename);
+
+    /* We need to reorder the files so we can make sure that symlinks
+     * will not appear before their target. */
+    if (S_ISLNK(treenode_get_mode(node))) {
+      fi = file_info_new(nodename);
+      file_info_list_append(&symlist, &symlist_end, fi);
+    } else {
+      if (fd_write(fd_out, nodename, strlen(nodename) + 1) < 0)
+        ohshite(_("failed to write filename to tar pipe (%s)"),
+                _("data member"));
+    }
+
+    free(nodename);
+  }
+  treewalk_close(tree);
+
+  for (fi = symlist; fi; fi = fi->next)
+    if (fd_write(fd_out, fi->fn, strlen(fi->fn) + 1) < 0)
+      ohshite(_("failed to write filename to tar pipe (%s)"), _("data member"));
+
+  file_info_list_free(symlist);
+}
+
+static const char *const maintainerscripts[] = {
+  PREINSTFILE,
+  POSTINSTFILE,
+  PRERMFILE,
+  POSTRMFILE,
+  MAINTSCRIPT_FILE_CONFIG,
+  NULL,
+};
+
+/**
+ * Check control directory and file permissions.
+ */
+static void
+check_file_perms(const char *ctrldir)
+{
+  struct varbuf path = VARBUF_INIT;
+  const char *const *mscriptp;
+  struct stat mscriptstab;
+
+  varbuf_printf(&path, "%s/", ctrldir);
+  if (lstat(path.buf, &mscriptstab))
+    ohshite(_("unable to stat control directory"));
+  if (!S_ISDIR(mscriptstab.st_mode))
+    ohshit(_("control directory is not a directory"));
+  if ((mscriptstab.st_mode & 07757) != 0755)
+    ohshit(_("control directory has bad permissions %03lo "
+             "(must be >=0755 and <=0775)"),
+           (unsigned long)(mscriptstab.st_mode & 07777));
+
+  for (mscriptp = maintainerscripts; *mscriptp; mscriptp++) {
+    varbuf_reset(&path);
+    varbuf_printf(&path, "%s/%s", ctrldir, *mscriptp);
+    if (!lstat(path.buf, &mscriptstab)) {
+      if (S_ISLNK(mscriptstab.st_mode))
+        continue;
+      if (!S_ISREG(mscriptstab.st_mode))
+        ohshit(_("maintainer script '%.50s' is not a plain file or symlink"),
+               *mscriptp);
+      if ((mscriptstab.st_mode & 07557) != 0555)
+        ohshit(_("maintainer script '%.50s' has bad permissions %03lo "
+                 "(must be >=0555 and <=0775)"),
+               *mscriptp, (unsigned long)(mscriptstab.st_mode & 07777));
+    } else if (errno != ENOENT) {
+      ohshite(_("maintainer script '%.50s' is not stattable"), *mscriptp);
+    }
+  }
+
+  varbuf_destroy(&path);
+}
+
+/**
+ * Check if conffiles contains sane information.
+ */
+static void
+check_conffiles(const char *ctrldir, const char *rootdir)
+{
+  FILE *cf;
+  struct varbuf controlfile = VARBUF_INIT;
+  char conffilename[MAXCONFFILENAME + 1];
+  struct file_info *conffiles_head = NULL;
+  struct file_info *conffiles_tail = NULL;
+
+  varbuf_printf(&controlfile, "%s/%s", ctrldir, CONFFILESFILE);
+
+  cf = fopen(controlfile.buf, "r");
+  if (cf == NULL) {
+    if (errno == ENOENT)
+      return;
+
+    ohshite(_("error opening conffiles file"));
+  }
+
+  while (fgets(conffilename, MAXCONFFILENAME + 1, cf)) {
+    struct stat controlstab;
+    int n;
+
+    n = strlen(conffilename);
+    if (!n)
+      ohshite(_("empty string from fgets reading conffiles"));
+
+    if (conffilename[n - 1] != '\n')
+      ohshit(_("conffile name '%s' is too long, or missing final newline"),
+             conffilename);
+
+    conffilename[n - 1] = '\0';
+    varbuf_reset(&controlfile);
+    varbuf_printf(&controlfile, "%s/%s", rootdir, conffilename);
+    if (lstat(controlfile.buf, &controlstab)) {
+      if (errno == ENOENT) {
+        if ((n > 1) && c_isspace(conffilename[n - 2]))
+          warning(_("conffile filename '%s' contains trailing white spaces"),
+                  conffilename);
+        ohshit(_("conffile '%.250s' does not appear in package"), conffilename);
+      } else
+        ohshite(_("conffile '%.250s' is not stattable"), conffilename);
+    } else if (!S_ISREG(controlstab.st_mode)) {
+      warning(_("conffile '%s' is not a plain file"), conffilename);
+    }
+
+    if (file_info_find_name(conffiles_head, conffilename)) {
+      warning(_("conffile name '%s' is duplicated"), conffilename);
+    } else {
+      struct file_info *conffile;
+
+      conffile = file_info_new(conffilename);
+      file_info_list_append(&conffiles_head, &conffiles_tail, conffile);
+    }
+  }
+
+  file_info_list_free(conffiles_head);
+  varbuf_destroy(&controlfile);
+
+  if (ferror(cf))
+    ohshite(_("error reading conffiles file"));
+  fclose(cf);
+}
+
+/**
+ * Check the control file.
+ *
+ * @param ctrldir The directory from where to build the binary package.
+ * @return The pkginfo struct from the parsed control file.
+ */
+static struct pkginfo *
+check_control_file(const char *ctrldir)
+{
+  struct pkginfo *pkg;
+  char *controlfile;
+
+  controlfile = str_fmt("%s/%s", ctrldir, CONTROLFILE);
+  parsedb(controlfile, pdb_parse_binary, &pkg);
+
+  if (strspn(pkg->set->name, "abcdefghijklmnopqrstuvwxyz0123456789+-.") !=
+      strlen(pkg->set->name))
+    ohshit(_("package name has characters that aren't lowercase alphanums or '-+.'"));
+  if (pkg->available.arch->type == DPKG_ARCH_NONE ||
+      pkg->available.arch->type == DPKG_ARCH_EMPTY)
+    ohshit(_("package architecture is missing or empty"));
+  if (pkg->priority == PKG_PRIO_OTHER)
+    warning(_("'%s' contains user-defined Priority value '%s'"),
+            controlfile, pkg->otherpriority);
+
+  free(controlfile);
+
+  return pkg;
+}
+
+/**
+ * Perform some sanity checks on the to-be-built package control area.
+ *
+ * @param ctrldir The directory from where to build the binary package.
+ * @return The pkginfo struct from the parsed control file.
+ */
+static struct pkginfo *
+check_control_area(const char *ctrldir, const char *rootdir)
+{
+  struct pkginfo *pkg;
+  int warns;
+
+  /* Start by reading in the control file so we can check its contents. */
+  pkg = check_control_file(ctrldir);
+  check_file_perms(ctrldir);
+  check_conffiles(ctrldir, rootdir);
+
+  warns = warning_get_count();
+  if (warns)
+    warning(P_("ignoring %d warning about the control file(s)",
+               "ignoring %d warnings about the control file(s)", warns),
+            warns);
+
+  return pkg;
+}
+
+/**
+ * Generate the pathname for the destination binary package.
+ *
+ * If the pathname cannot be computed, because the destination is a directory,
+ * then NULL will be returned.
+ *
+ * @param dir	The directory from where to build the binary package.
+ * @param dest	The destination name, either a file or directory name.
+ * @return	The pathname for the package being built.
+ */
+static char *
+gen_dest_pathname(const char *dir, const char *dest)
+{
+  if (dest) {
+    struct stat dest_stab;
+
+    if (stat(dest, &dest_stab)) {
+      if (errno != ENOENT)
+        ohshite(_("unable to check for existence of archive '%.250s'"), dest);
+    } else if (S_ISDIR(dest_stab.st_mode)) {
+      /* Need to compute the destination name from the package control file. */
+      return NULL;
+    }
+
+    return m_strdup(dest);
+  } else {
+    char *pathname;
+
+    pathname = m_malloc(strlen(dir) + sizeof(DEBEXT));
+    strcpy(pathname, dir);
+    path_trim_slash_slashdot(pathname);
+    strcat(pathname, DEBEXT);
+
+    return pathname;
+  }
+}
+
+/**
+ * Generate the pathname for the destination binary package from control file.
+ *
+ * @return The pathname for the package being built.
+ */
+static char *
+gen_dest_pathname_from_pkg(const char *dir, struct pkginfo *pkg)
+{
+  return str_fmt("%s/%s_%s_%s%s", dir, pkg->set->name,
+                 versiondescribe(&pkg->available.version, vdew_never),
+                 pkg->available.arch->name, DEBEXT);
+}
+
+typedef void filenames_feed_func(const char *dir, int fd_out);
+
+struct tar_pack_options {
+  time_t timestamp;
+  const char *mode;
+  bool root_owner_group;
+};
+
+/**
+ * Pack the contents of a directory into a tarball.
+ */
+static void
+tarball_pack(const char *dir, filenames_feed_func *tar_filenames_feeder,
+             struct tar_pack_options *options,
+             struct compress_params *tar_compress_params, int fd_out)
+{
+  int pipe_filenames[2], pipe_tarball[2];
+  pid_t pid_tar, pid_comp;
+
+  /* Fork off a tar. We will feed it a list of filenames on stdin later. */
+  m_pipe(pipe_filenames);
+  m_pipe(pipe_tarball);
+  pid_tar = subproc_fork();
+  if (pid_tar == 0) {
+    struct command cmd;
+    char mtime[50];
+
+    m_dup2(pipe_filenames[0], 0);
+    close(pipe_filenames[0]);
+    close(pipe_filenames[1]);
+    m_dup2(pipe_tarball[1], 1);
+    close(pipe_tarball[0]);
+    close(pipe_tarball[1]);
+
+    if (chdir(dir))
+      ohshite(_("failed to chdir to '%.255s'"), dir);
+
+    snprintf(mtime, sizeof(mtime), "@%ld", options->timestamp);
+
+    command_init(&cmd, TAR, "tar -cf");
+    command_add_args(&cmd, "tar", "-cf", "-", "--format=gnu",
+                           "--mtime", mtime, "--clamp-mtime", NULL);
+    /* Mode might become a positional argument, pass it before -T. */
+    if (options->mode)
+      command_add_args(&cmd, "--mode", options->mode, NULL);
+    if (options->root_owner_group)
+      command_add_args(&cmd, "--owner", "root:0", "--group", "root:0", NULL);
+    command_add_args(&cmd, "--null", "--no-unquote", "--no-recursion",
+                           "-T", "-", NULL);
+    command_exec(&cmd);
+  }
+  close(pipe_filenames[0]);
+  close(pipe_tarball[1]);
+
+  /* Of course we should not forget to compress the archive as well. */
+  pid_comp = subproc_fork();
+  if (pid_comp == 0) {
+    close(pipe_filenames[1]);
+    compress_filter(tar_compress_params, pipe_tarball[0], fd_out,
+                    _("compressing tar member"));
+    exit(0);
+  }
+  close(pipe_tarball[0]);
+
+  /* All the pipes are set, now lets start feeding filenames to tar. */
+  tar_filenames_feeder(dir, pipe_filenames[1]);
+
+  /* All done, clean up wait for tar and <compress> to finish their job. */
+  close(pipe_filenames[1]);
+  subproc_reap(pid_comp, _("<compress> from tar -cf"), 0);
+  subproc_reap(pid_tar, "tar -cf", 0);
+}
+
+static time_t
+parse_timestamp(const char *value)
+{
+  time_t timestamp;
+  char *end;
+
+  errno = 0;
+  timestamp = strtol(value, &end, 10);
+  if (value == end || *end || errno != 0)
+    ohshite(_("unable to parse timestamp '%.255s'"), value);
+
+  return timestamp;
+}
+
+/**
+ * Overly complex function that builds a .deb file.
+ */
+int
+do_build(const char *const *argv)
+{
+  struct compress_params control_compress_params;
+  struct tar_pack_options tar_options;
+  struct dpkg_error err;
+  struct dpkg_ar *ar;
+  time_t timestamp;
+  const char *timestamp_str;
+  const char *dir, *dest;
+  char *ctrldir;
+  char *debar;
+  char *tfbuf;
+  int gzfd;
+
+  /* Decode our arguments. */
+  dir = *argv++;
+  if (!dir)
+    badusage(_("--%s needs a <directory> argument"), cipaction->olong);
+
+  dest = *argv++;
+  if (dest && *argv)
+    badusage(_("--%s takes at most two arguments"), cipaction->olong);
+
+  debar = gen_dest_pathname(dir, dest);
+  ctrldir = str_fmt("%s/%s", dir, BUILDCONTROLDIR);
+
+  /* Perform some sanity checks on the to-be-build package. */
+  if (nocheckflag) {
+    if (debar == NULL)
+      ohshit(_("target is directory - cannot skip control file check"));
+    warning(_("not checking contents of control area"));
+    info(_("building an unknown package in '%s'."), debar);
+  } else {
+    struct pkginfo *pkg;
+
+    pkg = check_control_area(ctrldir, dir);
+    if (debar == NULL)
+      debar = gen_dest_pathname_from_pkg(dest, pkg);
+    info(_("building package '%s' in '%s'."), pkg->set->name, debar);
+  }
+  m_output(stdout, _("<standard output>"));
+
+  timestamp_str = getenv("SOURCE_DATE_EPOCH");
+  if (timestamp_str)
+    timestamp = parse_timestamp(timestamp_str);
+  else
+    timestamp = time(NULL);
+
+  /* Now that we have verified everything it is time to actually
+   * build something. Let's start by making the ar-wrapper. */
+  ar = dpkg_ar_create(debar, 0644);
+
+  dpkg_ar_set_mtime(ar, timestamp);
+
+  unsetenv("TAR_OPTIONS");
+
+  /* Create a temporary file to store the control data in. Immediately
+   * unlink our temporary file so others can't mess with it. */
+  tfbuf = path_make_temp_template("dpkg-deb");
+  gzfd = mkstemp(tfbuf);
+  if (gzfd == -1)
+    ohshite(_("failed to make temporary file (%s)"), _("control member"));
+  /* Make sure it's gone, the fd will remain until we close it. */
+  if (unlink(tfbuf))
+    ohshit(_("failed to unlink temporary file (%s), %s"), _("control member"),
+           tfbuf);
+  free(tfbuf);
+
+  /* Select the compressor to use for our control archive. */
+  if (opt_uniform_compression) {
+    control_compress_params = compress_params;
+  } else {
+    control_compress_params.type = COMPRESSOR_TYPE_GZIP;
+    control_compress_params.strategy = COMPRESSOR_STRATEGY_NONE;
+    control_compress_params.level = -1;
+    if (!compressor_check_params(&control_compress_params, &err))
+      internerr("invalid control member compressor params: %s", err.str);
+  }
+
+  /* Fork a tar to package the control-section of the package. */
+  tar_options.mode = "u+rw,go=rX";
+  tar_options.timestamp = timestamp;
+  tar_options.root_owner_group = true;
+  tarball_pack(ctrldir, control_treewalk_feed, &tar_options,
+               &control_compress_params, gzfd);
+
+  free(ctrldir);
+
+  if (lseek(gzfd, 0, SEEK_SET))
+    ohshite(_("failed to rewind temporary file (%s)"), _("control member"));
+
+  /* We have our first file for the ar-archive. Write a header for it
+   * to the package and insert it. */
+  if (deb_format.major == 0) {
+    struct stat controlstab;
+    char versionbuf[40];
+
+    if (fstat(gzfd, &controlstab))
+      ohshite(_("failed to stat temporary file (%s)"), _("control member"));
+    sprintf(versionbuf, "%-8s\n%jd\n", OLDARCHIVEVERSION,
+            (intmax_t)controlstab.st_size);
+    if (fd_write(ar->fd, versionbuf, strlen(versionbuf)) < 0)
+      ohshite(_("error writing '%s'"), debar);
+    if (fd_fd_copy(gzfd, ar->fd, -1, &err) < 0)
+      ohshit(_("cannot copy '%s' into archive '%s': %s"), _("control member"),
+             ar->name, err.str);
+  } else if (deb_format.major == 2) {
+    const char deb_magic[] = ARCHIVEVERSION "\n";
+    char adminmember[16 + 1];
+
+    sprintf(adminmember, "%s%s", ADMINMEMBER,
+            compressor_get_extension(control_compress_params.type));
+
+    dpkg_ar_put_magic(ar);
+    dpkg_ar_member_put_mem(ar, DEBMAGIC, deb_magic, strlen(deb_magic));
+    dpkg_ar_member_put_file(ar, adminmember, gzfd, -1);
+  } else {
+    internerr("unknown deb format version %d.%d", deb_format.major, deb_format.minor);
+  }
+
+  close(gzfd);
+
+  /* Control is done, now we need to archive the data. */
+  if (deb_format.major == 0) {
+    /* In old format, the data member is just concatenated after the
+     * control member, so we do not need a temporary file and can use
+     * the compression file descriptor. */
+    gzfd = ar->fd;
+  } else if (deb_format.major == 2) {
+    /* Start by creating a new temporary file. Immediately unlink the
+     * temporary file so others can't mess with it. */
+    tfbuf = path_make_temp_template("dpkg-deb");
+    gzfd = mkstemp(tfbuf);
+    if (gzfd == -1)
+      ohshite(_("failed to make temporary file (%s)"), _("data member"));
+    /* Make sure it's gone, the fd will remain until we close it. */
+    if (unlink(tfbuf))
+      ohshit(_("failed to unlink temporary file (%s), %s"), _("data member"),
+             tfbuf);
+    free(tfbuf);
+  } else {
+    internerr("unknown deb format version %d.%d", deb_format.major, deb_format.minor);
+  }
+
+  /* Pack the directory into a tarball, feeding files from the callback. */
+  tar_options.mode = NULL;
+  tar_options.timestamp = timestamp;
+  tar_options.root_owner_group = opt_root_owner_group;
+  tarball_pack(dir, file_treewalk_feed, &tar_options, &compress_params, gzfd);
+
+  /* Okay, we have data.tar as well now, add it to the ar wrapper. */
+  if (deb_format.major == 2) {
+    char datamember[16 + 1];
+
+    sprintf(datamember, "%s%s", DATAMEMBER,
+            compressor_get_extension(compress_params.type));
+
+    if (lseek(gzfd, 0, SEEK_SET))
+      ohshite(_("failed to rewind temporary file (%s)"), _("data member"));
+
+    dpkg_ar_member_put_file(ar, datamember, gzfd, -1);
+
+    close(gzfd);
+  }
+  if (fsync(ar->fd))
+    ohshite(_("unable to sync file '%s'"), ar->name);
+
+  dpkg_ar_close(ar);
+
+  free(debar);
+
+  return 0;
+}