+ return 0;
+}
+
+/* Debian/Ubuntu install disks are easy ...
+ *
+ * These files are added by the debian-cd program, and it is worth
+ * looking at the source code to determine exact values, in
+ * particular '/usr/share/debian-cd/tools/start_new_disc'
+ *
+ * XXX Architecture? We could parse it out of the product name
+ * string, but that seems quite hairy. We could look for the names
+ * of packages. Also note that some Debian install disks are
+ * multiarch.
+ */
+static int
+check_debian_installer_root (guestfs_h *g, struct inspect_fs *fs)
+{
+ fs->product_name = first_line_of_file (g, "/.disk/info");
+ if (!fs->product_name)
+ return -1;
+
+ fs->type = OS_TYPE_LINUX;
+ if (STRPREFIX (fs->product_name, "Ubuntu"))
+ fs->distro = OS_DISTRO_UBUNTU;
+ else if (STRPREFIX (fs->product_name, "Debian"))
+ fs->distro = OS_DISTRO_DEBIAN;
+
+ (void) parse_major_minor (g, fs);
+
+ if (guestfs_is_file (g, "/.disk/cd_type") > 0) {
+ char *cd_type = first_line_of_file (g, "/.disk/cd_type");
+ if (!cd_type)
+ return -1;
+
+ if (STRPREFIX (cd_type, "dvd/single") ||
+ STRPREFIX (cd_type, "full_cd/single")) {
+ fs->is_multipart_disk = 0;
+ fs->is_netinst_disk = 0;
+ }
+ else if (STRPREFIX (cd_type, "dvd") ||
+ STRPREFIX (cd_type, "full_cd")) {
+ fs->is_multipart_disk = 1;
+ fs->is_netinst_disk = 0;
+ }
+ else if (STRPREFIX (cd_type, "not_complete")) {
+ fs->is_multipart_disk = 0;
+ fs->is_netinst_disk = 1;
+ }
+
+ free (cd_type);
+ }
+
+ return 0;
+}
+
+/* Take string which must look like "key = value" and find the value.
+ * There may or may not be spaces before and after the equals sign.
+ * This function is used by both check_fedora_installer_root and
+ * check_w2k3_installer_root.
+ */
+static const char *
+find_value (const char *kv)
+{
+ const char *p;
+
+ p = strchr (kv, '=');
+ if (!p)
+ abort ();
+
+ do {
+ ++p;
+ } while (c_isspace (*p));
+
+ return p;
+}
+
+/* Fedora CDs and DVD (not netinst). The /.treeinfo file contains
+ * an initial section somewhat like this:
+ *
+ * [general]
+ * version = 14
+ * arch = x86_64
+ * family = Fedora
+ * variant = Fedora
+ * discnum = 1
+ * totaldiscs = 1
+ */
+static int
+check_fedora_installer_root (guestfs_h *g, struct inspect_fs *fs)
+{
+ char *str;
+ const char *v;
+ int r;
+ int discnum = 0, totaldiscs = 0;
+
+ fs->type = OS_TYPE_LINUX;
+
+ r = first_egrep_of_file (g, "/.treeinfo",
+ "^family = Fedora$", 0, &str);
+ if (r == -1)
+ return -1;
+ if (r > 0) {
+ fs->distro = OS_DISTRO_FEDORA;
+ free (str);
+ }
+
+ r = first_egrep_of_file (g, "/.treeinfo",
+ "^family = Red Hat Enterprise Linux$", 0, &str);
+ if (r == -1)
+ return -1;
+ if (r > 0) {
+ fs->distro = OS_DISTRO_RHEL;
+ free (str);
+ }
+
+ /* XXX should do major.minor before this */
+ r = first_egrep_of_file (g, "/.treeinfo",
+ "^version = [[:digit:]]+", 0, &str);
+ if (r == -1)
+ return -1;
+ if (r > 0) {
+ v = find_value (str);
+ fs->major_version = parse_unsigned_int_ignore_trailing (g, v);
+ free (str);
+ if (fs->major_version == -1)
+ return -1;
+ }
+
+ r = first_egrep_of_file (g, "/.treeinfo",
+ "^arch = [-_[:alnum:]]+$", 0, &str);
+ if (r == -1)
+ return -1;
+ if (r > 0) {
+ v = find_value (str);
+ fs->arch = safe_strdup (g, v);
+ free (str);
+ }
+
+ r = first_egrep_of_file (g, "/.treeinfo",
+ "^discnum = [[:digit:]]+$", 0, &str);
+ if (r == -1)
+ return -1;
+ if (r > 0) {
+ v = find_value (str);
+ discnum = parse_unsigned_int (g, v);
+ free (str);
+ if (discnum == -1)
+ return -1;
+ }
+
+ r = first_egrep_of_file (g, "/.treeinfo",
+ "^totaldiscs = [[:digit:]]+$", 0, &str);
+ if (r == -1)
+ return -1;
+ if (r > 0) {
+ v = find_value (str);
+ totaldiscs = parse_unsigned_int (g, v);
+ free (str);
+ if (totaldiscs == -1)
+ return -1;
+ }
+
+ fs->is_multipart_disk = totaldiscs > 0;
+ /* and what about discnum? */
+
+ return 0;
+}
+
+/* Linux with /isolinux/isolinux.cfg.
+ *
+ * This file is not easily parsable so we have to do our best.
+ * Look for the "menu title" line which contains:
+ * menu title Welcome to Fedora 14! # since at least Fedora 10
+ * menu title Welcome to Red Hat Enterprise Linux 6.0!
+ */
+static int
+check_isolinux_installer_root (guestfs_h *g, struct inspect_fs *fs)
+{
+ char *str;
+ int r;
+
+ fs->type = OS_TYPE_LINUX;
+
+ r = first_egrep_of_file (g, "/isolinux/isolinux.cfg",
+ "^menu title Welcome to Fedora [[:digit:]]+",
+ 0, &str);
+ if (r == -1)
+ return -1;
+ if (r > 0) {
+ fs->distro = OS_DISTRO_FEDORA;
+ fs->major_version = parse_unsigned_int_ignore_trailing (g, &str[29]);
+ free (str);
+ if (fs->major_version == -1)
+ return -1;
+ }
+
+ /* XXX parse major.minor */
+ r = first_egrep_of_file (g, "/isolinux/isolinux.cfg",
+ "^menu title Welcome to Red Hat Enterprise Linux [[:digit:]]+",
+ 0, &str);
+ if (r == -1)
+ return -1;
+ if (r > 0) {
+ fs->distro = OS_DISTRO_RHEL;
+ fs->major_version = parse_unsigned_int_ignore_trailing (g, &str[47]);
+ free (str);
+ if (fs->major_version == -1)
+ return -1;
+ }
+
+ return 0;
+}
+
+/* Windows 2003 and similar versions.
+ *
+ * NB: txtsetup file contains Windows \r\n line endings, which guestfs_grep
+ * does not remove. We have to remove them by hand here.
+ */
+static void
+trim_cr (char *str)
+{
+ size_t n = strlen (str);
+ if (n > 0 && str[n-1] == '\r')
+ str[n-1] = '\0';
+}
+
+static void
+trim_quot (char *str)
+{
+ size_t n = strlen (str);
+ if (n > 0 && str[n-1] == '"')
+ str[n-1] = '\0';
+}
+
+static int
+check_w2k3_installer_root (guestfs_h *g, struct inspect_fs *fs,
+ const char *txtsetup)
+{
+ char *str;
+ const char *v;
+ int r;
+
+ fs->type = OS_TYPE_WINDOWS;
+ fs->distro = OS_DISTRO_WINDOWS;
+
+ r = first_egrep_of_file (g, txtsetup,
+ "^productname[[:space:]]*=[[:space:]]*\"", 1, &str);
+ if (r == -1)
+ return -1;
+ if (r > 0) {
+ trim_cr (str);
+ trim_quot (str);
+ v = find_value (str);
+ fs->product_name = safe_strdup (g, v+1);
+ free (str);
+ }
+
+ r = first_egrep_of_file (g, txtsetup,
+ "^majorversion[[:space:]]*=[[:space:]]*[[:digit:]]+",
+ 1, &str);
+ if (r == -1)
+ return -1;
+ if (r > 0) {
+ trim_cr (str);
+ v = find_value (str);
+ fs->major_version = parse_unsigned_int_ignore_trailing (g, v);
+ free (str);
+ if (fs->major_version == -1)
+ return -1;
+ }
+
+ r = first_egrep_of_file (g, txtsetup,
+ "^minorversion[[:space:]]*=[[:space:]]*[[:digit:]]+",
+ 1, &str);
+ if (r == -1)
+ return -1;
+ if (r > 0) {
+ trim_cr (str);
+ v = find_value (str);
+ fs->minor_version = parse_unsigned_int_ignore_trailing (g, v);
+ free (str);
+ if (fs->minor_version == -1)
+ return -1;
+ }
+
+ /* This is the windows systemroot that would be chosen on
+ * installation by default, although not necessarily the one that
+ * the user will finally choose.
+ */
+ r = first_egrep_of_file (g, txtsetup, "^defaultpath[[:space:]]*=[[:space:]]*",
+ 1, &str);
+ if (r == -1)
+ return -1;
+ if (r > 0) {
+ trim_cr (str);
+ v = find_value (str);
+ fs->windows_systemroot = safe_strdup (g, v);
+ free (str);
+ }
+
+ return 0;
+}
+
+/* The currently mounted device is very likely to be an installer. */
+static int
+check_installer_root (guestfs_h *g, struct inspect_fs *fs)
+{
+ /* The presence of certain files indicates a live CD.
+ *
+ * XXX Fedora netinst contains a ~120MB squashfs called
+ * /images/install.img. However this is not a live CD (unlike the
+ * Fedora live CDs which contain the same, but larger file). We
+ * need to unpack this and look inside to tell the difference.
+ */
+ if (guestfs_is_file (g, "/casper/filesystem.squashfs") > 0)
+ fs->is_live_disk = 1;
+
+ /* Debian/Ubuntu. */
+ if (guestfs_is_file (g, "/.disk/info") > 0) {
+ if (check_debian_installer_root (g, fs) == -1)
+ return -1;
+ }
+
+ /* Fedora CDs and DVD (not netinst). */
+ else if (guestfs_is_file (g, "/.treeinfo") > 0) {
+ if (check_fedora_installer_root (g, fs) == -1)
+ return -1;
+ }
+
+ /* Linux with /isolinux/isolinux.cfg. */
+ else if (guestfs_is_file (g, "/isolinux/isolinux.cfg") > 0) {
+ if (check_isolinux_installer_root (g, fs) == -1)
+ return -1;
+ }
+
+ /* Windows 2003 64 bit */
+ else if (guestfs_is_file (g, "/amd64/txtsetup.sif") > 0) {
+ fs->arch = safe_strdup (g, "x86_64");
+ if (check_w2k3_installer_root (g, fs, "/amd64/txtsetup.sif") == -1)
+ return -1;
+ }
+
+ /* Windows 2003 32 bit */
+ else if (guestfs_is_file (g, "/i386/txtsetup.sif") > 0) {
+ fs->arch = safe_strdup (g, "i386");
+ if (check_w2k3_installer_root (g, fs, "/i386/txtsetup.sif") == -1)
+ return -1;
+ }
+
+ return 0;
+}
+
+static void
+check_architecture (guestfs_h *g, struct inspect_fs *fs)
+{
+ const char *binaries[] =
+ { "/bin/bash", "/bin/ls", "/bin/echo", "/bin/rm", "/bin/sh" };
+ size_t i;
+
+ for (i = 0; i < sizeof binaries / sizeof binaries[0]; ++i) {
+ if (guestfs_is_file (g, binaries[i]) > 0) {
+ /* Ignore errors from file_architecture call. */
+ guestfs_error_handler_cb old_error_cb = g->error_cb;
+ g->error_cb = NULL;
+ char *arch = guestfs_file_architecture (g, binaries[i]);
+ g->error_cb = old_error_cb;
+
+ if (arch) {
+ /* String will be owned by handle, freed by
+ * guestfs___free_inspect_info.
+ */
+ fs->arch = arch;
+ break;
+ }
+ }
+ }
+}
+
+/* Try several methods to determine the hostname from a Linux or
+ * FreeBSD guest. Note that type and distro have been set, so we can
+ * use that information to direct the search.
+ */
+static int
+check_hostname_unix (guestfs_h *g, struct inspect_fs *fs)
+{
+ switch (fs->type) {
+ case OS_TYPE_LINUX:
+ /* Red Hat-derived would be in /etc/sysconfig/network, and
+ * Debian-derived in the file /etc/hostname. Very old Debian and
+ * SUSE use /etc/HOSTNAME. It's best to just look for each of
+ * these files in turn, rather than try anything clever based on
+ * distro.
+ */
+ if (guestfs_is_file (g, "/etc/HOSTNAME")) {
+ fs->hostname = first_line_of_file (g, "/etc/HOSTNAME");
+ if (fs->hostname == NULL)
+ return -1;
+ }
+ else if (guestfs_is_file (g, "/etc/hostname")) {
+ fs->hostname = first_line_of_file (g, "/etc/hostname");
+ if (fs->hostname == NULL)
+ return -1;
+ }
+ else if (guestfs_is_file (g, "/etc/sysconfig/network")) {
+ if (inspect_with_augeas (g, fs, "/etc/sysconfig/network",
+ check_hostname_redhat) == -1)
+ return -1;
+ }
+ break;
+
+ case OS_TYPE_FREEBSD:
+ /* /etc/rc.conf contains the hostname, but there is no Augeas lens
+ * for this file.
+ */
+ if (guestfs_is_file (g, "/etc/rc.conf")) {
+ if (check_hostname_freebsd (g, fs) == -1)
+ return -1;
+ }
+ break;
+
+ case OS_TYPE_WINDOWS: /* not here, see check_windows_system_registry */
+ case OS_TYPE_UNKNOWN:
+ default:
+ /* nothing, keep GCC warnings happy */;
+ }
+
+ return 0;
+}
+
+/* Parse the hostname from /etc/sysconfig/network. This must be called
+ * from the inspect_with_augeas wrapper.
+ */
+static int
+check_hostname_redhat (guestfs_h *g, struct inspect_fs *fs)
+{
+ char *hostname;
+
+ hostname = guestfs_aug_get (g, "/files/etc/sysconfig/network/HOSTNAME");
+ if (!hostname)
+ return -1;
+
+ fs->hostname = hostname; /* freed by guestfs___free_inspect_info */
+ return 0;
+}
+
+/* Parse the hostname from /etc/rc.conf. On FreeBSD this file
+ * contains comments, blank lines and:
+ * hostname="freebsd8.example.com"
+ * ifconfig_re0="DHCP"
+ * keymap="uk.iso"
+ * sshd_enable="YES"
+ */
+static int
+check_hostname_freebsd (guestfs_h *g, struct inspect_fs *fs)
+{
+ const char *filename = "/etc/rc.conf";
+ int64_t size;
+ char **lines;
+ size_t i;
+
+ /* Don't trust guestfs_read_lines not to break with very large files.
+ * Check the file size is something reasonable first.
+ */
+ size = guestfs_filesize (g, filename);
+ if (size == -1)
+ /* guestfs_filesize failed and has already set error in handle */
+ return -1;
+ if (size > MAX_SMALL_FILE_SIZE) {
+ error (g, _("size of %s is unreasonably large (%" PRIi64 " bytes)"),
+ filename, size);
+ return -1;
+ }
+
+ lines = guestfs_read_lines (g, filename);
+ if (lines == NULL)
+ return -1;
+
+ for (i = 0; lines[i] != NULL; ++i) {
+ if (STRPREFIX (lines[i], "hostname=\"") ||
+ STRPREFIX (lines[i], "hostname='")) {
+ size_t len = strlen (lines[i]) - 10 - 1;
+ fs->hostname = safe_strndup (g, &lines[i][10], len);
+ break;
+ } else if (STRPREFIX (lines[i], "hostname=")) {
+ size_t len = strlen (lines[i]) - 9;
+ fs->hostname = safe_strndup (g, &lines[i][9], len);
+ break;
+ }
+ }
+
+ guestfs___free_string_list (lines);
+ return 0;
+}
+
+static int
+check_fstab (guestfs_h *g, struct inspect_fs *fs)
+{
+ char **lines = guestfs_aug_ls (g, "/files/etc/fstab");
+ if (lines == NULL)
+ return -1;
+
+ if (lines[0] == NULL) {
+ error (g, _("could not parse /etc/fstab or empty file"));
+ guestfs___free_string_list (lines);
+ return -1;
+ }
+
+ size_t i;
+ char augpath[256];
+ for (i = 0; lines[i] != NULL; ++i) {
+ /* Ignore comments. Only care about sequence lines which