+/* Return binaries in the appliance.
+ * See tests/regressions/rhbz727178.sh
+ */
+static char *
+debug_binaries (const char *subcmd, int argc, char *const *const argv)
+{
+ int r;
+ char *out, *err;
+
+ const char cmd[] =
+ "find / -xdev -type f -executable "
+ "| xargs file -i "
+ "| grep application/x-executable "
+ "| gawk -F: '{print $1}'";
+
+ r = command (&out, &err, "sh", "-c", cmd, NULL);
+ if (r == -1) {
+ reply_with_error ("find: %s", err);
+ free (out);
+ free (err);
+ return NULL;
+ }
+
+ free (err);
+
+ return out;
+}
+
+/* Run 'ldd' on a file from the appliance.
+ * See tests/regressions/rhbz727178.sh
+ */
+static char *
+debug_ldd (const char *subcmd, int argc, char *const *const argv)
+{
+ int r;
+ char *out, *err, *ret;
+
+ if (argc != 1) {
+ reply_with_error ("ldd: no file argument");
+ return NULL;
+ }
+
+ /* Note that 'ldd' doesn't fail if it finds errors. We have to grep
+ * for errors in the regression test instead. 'ldd' only fails here
+ * if the binary is not a binary at all (eg. for shell scripts).
+ * Also 'ldd' randomly sends messages to stderr and errors to stdout
+ * depending on the phase of the moon.
+ */
+ r = command (&out, &err, "ldd", "-r", argv[0], NULL);
+ if (r == -1) {
+ reply_with_error ("ldd: %s: %s", argv[0], err);
+ free (out);
+ free (err);
+ return NULL;
+ }
+
+ /* Concatenate stdout and stderr in the result. */
+ ret = realloc (out, strlen (out) + strlen (err) + 1);
+ if (ret == NULL) {
+ reply_with_perror ("realloc");
+ free (out);
+ free (err);
+ return NULL;
+ }
+
+ strcat (ret, err);
+ free (err);
+
+ return ret;
+}
+
+/* List files in the appliance. */
+static char *
+debug_ls (const char *subcmd, int argc, char *const *const argv)
+{
+ int len = count_strings (argv);
+ const char *cargv[len+3];
+ int i;
+
+ cargv[0] = "ls";
+ cargv[1] = "-a";
+ for (i = 0; i < len; ++i)
+ cargv[2+i] = argv[i];
+ cargv[2+len] = NULL;
+
+ int r;
+ char *out, *err;
+
+ r = commandv (&out, &err, (void *) cargv);
+ if (r == -1) {
+ reply_with_error ("ls: %s", err);
+ free (out);
+ free (err);
+ return NULL;
+ }
+
+ free (err);
+
+ return out;
+}
+
+/* List files in the appliance. */
+static char *
+debug_ll (const char *subcmd, int argc, char *const *const argv)
+{
+ int len = count_strings (argv);
+ const char *cargv[len+3];
+ int i;
+
+ cargv[0] = "ls";
+ cargv[1] = "-la";
+ for (i = 0; i < len; ++i)
+ cargv[2+i] = argv[i];
+ cargv[2+len] = NULL;
+
+ int r;
+ char *out, *err;
+
+ r = commandv (&out, &err, (void *) cargv);
+ if (r == -1) {
+ reply_with_error ("ll: %s", err);
+ free (out);
+ free (err);
+ return NULL;
+ }
+
+ free (err);
+
+ return out;
+}
+
+/* Generate progress notification messages in order to test progress bars. */
+static char *
+debug_progress (const char *subcmd, int argc, char *const *const argv)
+{
+ if (argc < 1) {
+ error:
+ reply_with_error ("progress: expecting arg (time in seconds as string)");
+ return NULL;
+ }
+
+ char *secs_str = argv[0];
+ unsigned secs;
+ if (sscanf (secs_str, "%u", &secs) != 1 || secs == 0)
+ goto error;
+
+ unsigned i;
+ unsigned tsecs = secs * 10; /* 1/10ths of seconds */
+ for (i = 1; i <= tsecs; ++i) {
+ usleep (100000);
+ notify_progress ((uint64_t) i, (uint64_t) tsecs);
+ }
+
+ char *ret = strdup ("ok");
+ if (ret == NULL) {
+ reply_with_perror ("strdup");
+ return NULL;
+ }
+
+ return ret;
+}
+
+/* Enable core dumping to the given core pattern.
+ * Note that this pattern is relative to any chroot of the process which
+ * crashes. This means that if you want to write the core file to the guest's
+ * storage the pattern must start with /sysroot only if the command which
+ * crashes doesn't chroot.
+ */
+static char *
+debug_core_pattern (const char *subcmd, int argc, char *const *const argv)
+{
+ if (argc < 1) {
+ reply_with_error ("core_pattern: expecting a core pattern");
+ return NULL;
+ }
+
+ const char *pattern = argv[0];
+ const size_t pattern_len = strlen(pattern);
+
+#define CORE_PATTERN "/proc/sys/kernel/core_pattern"
+ int fd = open (CORE_PATTERN, O_WRONLY);
+ if (fd == -1) {
+ reply_with_perror ("open: " CORE_PATTERN);
+ return NULL;
+ }
+ if (write (fd, pattern, pattern_len) < (ssize_t) pattern_len) {
+ reply_with_perror ("write: " CORE_PATTERN);
+ return NULL;
+ }
+ if (close (fd) == -1) {
+ reply_with_perror ("close: " CORE_PATTERN);
+ return NULL;
+ }
+
+ struct rlimit limit = {
+ .rlim_cur = RLIM_INFINITY,
+ .rlim_max = RLIM_INFINITY
+ };
+ if (setrlimit (RLIMIT_CORE, &limit) == -1) {
+ reply_with_perror ("setrlimit (RLIMIT_CORE)");
+ return NULL;
+ }
+
+ char *ret = strdup ("ok");
+ if (NULL == ret) {
+ reply_with_perror ("strdup");
+ return NULL;
+ }
+
+ return ret;
+}
+
+static int
+write_cb (void *fd_ptr, const void *buf, size_t len)
+{
+ int fd = *(int *)fd_ptr;
+ return xwrite (fd, buf, len);
+}
+
+/* This requires a non-upstream qemu patch. See contrib/visualize-alignment/
+ * directory in the libguestfs source tree.
+ */
+static char *
+debug_qtrace (const char *subcmd, int argc, char *const *const argv)
+{
+ int enable;
+
+ if (argc != 2) {
+ bad_args:
+ reply_with_error ("qtrace <device> <on|off>");
+ return NULL;
+ }
+
+ if (STREQ (argv[1], "on"))
+ enable = 1;
+ else if (STREQ (argv[1], "off"))
+ enable = 0;
+ else
+ goto bad_args;
+
+ /* This does a sync and flushes all caches. */
+ if (do_drop_caches (3) == -1)
+ return NULL;
+
+ /* Note this doesn't do device name translation or check this is a device. */
+ int fd = open (argv[0], O_RDONLY | O_DIRECT);
+ if (fd == -1) {
+ reply_with_perror ("qtrace: %s: open", argv[0]);
+ return NULL;
+ }
+
+ /* The pattern of reads is what signals to the analysis program that
+ * tracing should be started or stopped. Note this assumes both 512
+ * byte sectors, and that O_DIRECT will let us do 512 byte aligned
+ * reads. We ought to read the sector size of the device and use
+ * that instead (XXX). The analysis program currently assumes 512
+ * byte sectors anyway.
+ */
+#define QTRACE_SIZE 512
+ const int patterns[2][5] = {
+ { 2, 15, 21, 2, -1 }, /* disable trace */
+ { 2, 21, 15, 2, -1 } /* enable trace */
+ };
+ void *buf;
+ size_t i;
+
+ /* For O_DIRECT, buffer must be aligned too (thanks Matt).
+ * Note posix_memalign has this strange errno behaviour.
+ */
+ errno = posix_memalign (&buf, QTRACE_SIZE, QTRACE_SIZE);
+ if (errno != 0) {
+ reply_with_perror ("posix_memalign");
+ close (fd);
+ return NULL;
+ }
+
+ for (i = 0; patterns[enable][i] >= 0; ++i) {
+ if (lseek (fd, patterns[enable][i]*QTRACE_SIZE, SEEK_SET) == -1) {
+ reply_with_perror ("qtrace: %s: lseek", argv[0]);
+ close (fd);
+ free (buf);
+ return NULL;
+ }
+
+ if (read (fd, buf, QTRACE_SIZE) == -1) {
+ reply_with_perror ("qtrace: %s: read", argv[0]);
+ close (fd);
+ free (buf);
+ return NULL;
+ }
+ }
+
+ close (fd);
+ free (buf);
+
+ /* This does a sync and flushes all caches. */
+ if (do_drop_caches (3) == -1)
+ return NULL;
+
+ char *ret = strdup ("ok");
+ if (NULL == ret) {
+ reply_with_perror ("strdup");
+ return NULL;
+ }
+
+ return ret;
+}
+
+/* Has one FileIn parameter. */
+int
+do_debug_upload (const char *filename, int mode)
+{
+ /* Not chrooted - this command lets you upload a file to anywhere
+ * in the appliance.
+ */
+ int fd = open (filename, O_WRONLY|O_CREAT|O_TRUNC|O_NOCTTY, mode);
+
+ if (fd == -1) {
+ int err = errno;
+ cancel_receive ();
+ errno = err;
+ reply_with_perror ("%s", filename);
+ return -1;
+ }
+
+ int r = receive_file (write_cb, &fd);
+ if (r == -1) { /* write error */
+ int err = errno;
+ cancel_receive ();
+ errno = err;
+ reply_with_error ("write error: %s", filename);
+ close (fd);
+ return -1;
+ }
+ if (r == -2) { /* cancellation from library */
+ /* This error is ignored by the library since it initiated the
+ * cancel. Nevertheless we must send an error reply here.
+ */
+ reply_with_error ("file upload cancelled");
+ close (fd);
+ return -1;
+ }
+
+ if (close (fd) == -1) {
+ reply_with_perror ("close: %s", filename);
+ return -1;
+ }
+
+ return 0;
+}