src/inspect_fs_cd.c

   1 /* libguestfs
   2  * Copyright (C) 2010-2011 Red Hat Inc.
   3  *
   4  * This library is free software; you can redistribute it and/or
   5  * modify it under the terms of the GNU Lesser General Public
   6  * License as published by the Free Software Foundation; either
   7  * version 2 of the License, or (at your option) any later version.
   8  *
   9  * This library is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12  * Lesser General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU Lesser General Public
  15  * License along with this library; if not, write to the Free Software
  16  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
  17  */
  18
  19 #include <config.h>
  20
  21 #include <stdio.h>
  22 #include <stdlib.h>
  23 #include <stdint.h>
  24 #include <inttypes.h>
  25 #include <unistd.h>
  26 #include <fcntl.h>
  27 #include <string.h>
  28 #include <sys/stat.h>
  29 #include <errno.h>
  30 #include <endian.h>
  31
  32 #include <pcre.h>
  33
  34 #ifdef HAVE_HIVEX
  35 #include <hivex.h>
  36 #endif
  37
  38 #include "c-ctype.h"
  39 #include "ignore-value.h"
  40 #include "xstrtol.h"
  41
  42 #include "guestfs.h"
  43 #include "guestfs-internal.h"
  44 #include "guestfs-internal-actions.h"
  45 #include "guestfs_protocol.h"
  46
  47 #if defined(HAVE_HIVEX)
  48
  49 /* Debian/Ubuntu install disks are easy ...
  50  *
  51  * These files are added by the debian-cd program, and it is worth
  52  * looking at the source code to determine exact values, in
  53  * particular '/usr/share/debian-cd/tools/start_new_disc'
  54  *
  55  * XXX Architecture?  We could parse it out of the product name
  56  * string, but that seems quite hairy.  We could look for the names
  57  * of packages.  Also note that some Debian install disks are
  58  * multiarch.
  59  */
  60 static int
  61 check_debian_installer_root (guestfs_h *g, struct inspect_fs *fs)
  62 {
  63   fs->product_name = guestfs___first_line_of_file (g, "/.disk/info");
  64   if (!fs->product_name)
  65     return -1;
  66
  67   fs->type = OS_TYPE_LINUX;
  68   if (STRPREFIX (fs->product_name, "Ubuntu"))
  69     fs->distro = OS_DISTRO_UBUNTU;
  70   else if (STRPREFIX (fs->product_name, "Debian"))
  71     fs->distro = OS_DISTRO_DEBIAN;
  72
  73   (void) guestfs___parse_major_minor (g, fs);
  74
  75   if (guestfs_is_file (g, "/.disk/cd_type") > 0) {
  76     char *cd_type = guestfs___first_line_of_file (g, "/.disk/cd_type");
  77     if (!cd_type)
  78       return -1;
  79
  80     if (STRPREFIX (cd_type, "dvd/single") ||
  81         STRPREFIX (cd_type, "full_cd/single")) {
  82       fs->is_multipart_disk = 0;
  83       fs->is_netinst_disk = 0;
  84     }
  85     else if (STRPREFIX (cd_type, "dvd") ||
  86              STRPREFIX (cd_type, "full_cd")) {
  87       fs->is_multipart_disk = 1;
  88       fs->is_netinst_disk = 0;
  89     }
  90     else if (STRPREFIX (cd_type, "not_complete")) {
  91       fs->is_multipart_disk = 0;
  92       fs->is_netinst_disk = 1;
  93     }
  94
  95     free (cd_type);
  96   }
  97
  98   return 0;
  99 }
 100
 101 /* Take string which must look like "key = value" and find the value.
 102  * There may or may not be spaces before and after the equals sign.
 103  * This function is used by both check_fedora_installer_root and
 104  * check_w2k3_installer_root.
 105  */
 106 static const char *
 107 find_value (const char *kv)
 108 {
 109   const char *p;
 110
 111   p = strchr (kv, '=');
 112   if (!p)
 113     abort ();
 114
 115   do {
 116     ++p;
 117   } while (c_isspace (*p));
 118
 119   return p;
 120 }
 121
 122 /* Fedora CDs and DVD (not netinst).  The /.treeinfo file contains
 123  * an initial section somewhat like this:
 124  *
 125  * [general]
 126  * version = 14
 127  * arch = x86_64
 128  * family = Fedora
 129  * variant = Fedora
 130  * discnum = 1
 131  * totaldiscs = 1
 132  */
 133 static int
 134 check_fedora_installer_root (guestfs_h *g, struct inspect_fs *fs)
 135 {
 136   char *str;
 137   const char *v;
 138   int r;
 139   int discnum = 0, totaldiscs = 0;
 140
 141   fs->type = OS_TYPE_LINUX;
 142
 143   r = guestfs___first_egrep_of_file (g, "/.treeinfo",
 144                                      "^family = Fedora$", 0, &str);
 145   if (r == -1)
 146     return -1;
 147   if (r > 0) {
 148     fs->distro = OS_DISTRO_FEDORA;
 149     free (str);
 150   }
 151
 152   r = guestfs___first_egrep_of_file (g, "/.treeinfo",
 153                                      "^family = Red Hat Enterprise Linux$",
 154                                      0, &str);
 155   if (r == -1)
 156     return -1;
 157   if (r > 0) {
 158     fs->distro = OS_DISTRO_RHEL;
 159     free (str);
 160   }
 161
 162   /* XXX should do major.minor before this */
 163   r = guestfs___first_egrep_of_file (g, "/.treeinfo",
 164                                      "^version = [[:digit:]]+", 0, &str);
 165   if (r == -1)
 166     return -1;
 167   if (r > 0) {
 168     v = find_value (str);
 169     fs->major_version = guestfs___parse_unsigned_int_ignore_trailing (g, v);
 170     free (str);
 171     if (fs->major_version == -1)
 172       return -1;
 173   }
 174
 175   r = guestfs___first_egrep_of_file (g, "/.treeinfo",
 176                                      "^arch = [-_[:alnum:]]+$", 0, &str);
 177   if (r == -1)
 178     return -1;
 179   if (r > 0) {
 180     v = find_value (str);
 181     fs->arch = safe_strdup (g, v);
 182     free (str);
 183   }
 184
 185   r = guestfs___first_egrep_of_file (g, "/.treeinfo",
 186                                      "^discnum = [[:digit:]]+$", 0, &str);
 187   if (r == -1)
 188     return -1;
 189   if (r > 0) {
 190     v = find_value (str);
 191     discnum = guestfs___parse_unsigned_int (g, v);
 192     free (str);
 193     if (discnum == -1)
 194       return -1;
 195   }
 196
 197   r = guestfs___first_egrep_of_file (g, "/.treeinfo",
 198                                      "^totaldiscs = [[:digit:]]+$", 0, &str);
 199   if (r == -1)
 200     return -1;
 201   if (r > 0) {
 202     v = find_value (str);
 203     totaldiscs = guestfs___parse_unsigned_int (g, v);
 204     free (str);
 205     if (totaldiscs == -1)
 206       return -1;
 207   }
 208
 209   fs->is_multipart_disk = totaldiscs > 0;
 210   /* and what about discnum? */
 211
 212   return 0;
 213 }
 214
 215 /* Linux with /isolinux/isolinux.cfg.
 216  *
 217  * This file is not easily parsable so we have to do our best.
 218  * Look for the "menu title" line which contains:
 219  *   menu title Welcome to Fedora 14!   # since at least Fedora 10
 220  *   menu title Welcome to Red Hat Enterprise Linux 6.0!
 221  */
 222 static int
 223 check_isolinux_installer_root (guestfs_h *g, struct inspect_fs *fs)
 224 {
 225   char *str;
 226   int r;
 227
 228   fs->type = OS_TYPE_LINUX;
 229
 230   r = guestfs___first_egrep_of_file (g, "/isolinux/isolinux.cfg",
 231                                      "^menu title Welcome to Fedora [[:digit:]]+",
 232                                      0, &str);
 233   if (r == -1)
 234     return -1;
 235   if (r > 0) {
 236     fs->distro = OS_DISTRO_FEDORA;
 237     fs->major_version =
 238       guestfs___parse_unsigned_int_ignore_trailing (g, &str[29]);
 239     free (str);
 240     if (fs->major_version == -1)
 241       return -1;
 242   }
 243
 244   /* XXX parse major.minor */
 245   r = guestfs___first_egrep_of_file (g, "/isolinux/isolinux.cfg",
 246                                      "^menu title Welcome to Red Hat Enterprise Linux [[:digit:]]+",
 247                            0, &str);
 248   if (r == -1)
 249     return -1;
 250   if (r > 0) {
 251     fs->distro = OS_DISTRO_RHEL;
 252     fs->major_version =
 253       guestfs___parse_unsigned_int_ignore_trailing (g, &str[47]);
 254     free (str);
 255     if (fs->major_version == -1)
 256       return -1;
 257   }
 258
 259   return 0;
 260 }
 261
 262 /* Windows 2003 and similar versions.
 263  *
 264  * NB: txtsetup file contains Windows \r\n line endings, which guestfs_grep
 265  * does not remove.  We have to remove them by hand here.
 266  */
 267 static void
 268 trim_cr (char *str)
 269 {
 270   size_t n = strlen (str);
 271   if (n > 0 && str[n-1] == '\r')
 272     str[n-1] = '\0';
 273 }
 274
 275 static void
 276 trim_quot (char *str)
 277 {
 278   size_t n = strlen (str);
 279   if (n > 0 && str[n-1] == '"')
 280     str[n-1] = '\0';
 281 }
 282
 283 static int
 284 check_w2k3_installer_root (guestfs_h *g, struct inspect_fs *fs,
 285                            const char *txtsetup)
 286 {
 287   char *str;
 288   const char *v;
 289   int r;
 290
 291   fs->type = OS_TYPE_WINDOWS;
 292   fs->distro = OS_DISTRO_WINDOWS;
 293
 294   r = guestfs___first_egrep_of_file (g, txtsetup,
 295                                      "^productname[[:space:]]*=[[:space:]]*\"", 1, &str);
 296   if (r == -1)
 297     return -1;
 298   if (r > 0) {
 299     trim_cr (str);
 300     trim_quot (str);
 301     v = find_value (str);
 302     fs->product_name = safe_strdup (g, v+1);
 303     free (str);
 304   }
 305
 306   r = guestfs___first_egrep_of_file (g, txtsetup,
 307                                      "^majorversion[[:space:]]*=[[:space:]]*[[:digit:]]+",
 308                                      1, &str);
 309   if (r == -1)
 310     return -1;
 311   if (r > 0) {
 312     trim_cr (str);
 313     v = find_value (str);
 314     fs->major_version = guestfs___parse_unsigned_int_ignore_trailing (g, v);
 315     free (str);
 316     if (fs->major_version == -1)
 317       return -1;
 318   }
 319
 320   r = guestfs___first_egrep_of_file (g, txtsetup,
 321                                      "^minorversion[[:space:]]*=[[:space:]]*[[:digit:]]+",
 322                                      1, &str);
 323   if (r == -1)
 324     return -1;
 325   if (r > 0) {
 326     trim_cr (str);
 327     v = find_value (str);
 328     fs->minor_version = guestfs___parse_unsigned_int_ignore_trailing (g, v);
 329     free (str);
 330     if (fs->minor_version == -1)
 331       return -1;
 332   }
 333
 334   /* This is the windows systemroot that would be chosen on
 335    * installation by default, although not necessarily the one that
 336    * the user will finally choose.
 337    */
 338   r = guestfs___first_egrep_of_file (g, txtsetup,
 339                                      "^defaultpath[[:space:]]*=[[:space:]]*",
 340                                      1, &str);
 341   if (r == -1)
 342     return -1;
 343   if (r > 0) {
 344     trim_cr (str);
 345     v = find_value (str);
 346     fs->windows_systemroot = safe_strdup (g, v);
 347     free (str);
 348   }
 349
 350   return 0;
 351 }
 352
 353 /* The currently mounted device is very likely to be an installer. */
 354 int
 355 guestfs___check_installer_root (guestfs_h *g, struct inspect_fs *fs)
 356 {
 357   /* The presence of certain files indicates a live CD.
 358    *
 359    * XXX Fedora netinst contains a ~120MB squashfs called
 360    * /images/install.img.  However this is not a live CD (unlike the
 361    * Fedora live CDs which contain the same, but larger file).  We
 362    * need to unpack this and look inside to tell the difference.
 363    */
 364   if (guestfs_is_file (g, "/casper/filesystem.squashfs") > 0)
 365     fs->is_live_disk = 1;
 366
 367   /* Debian/Ubuntu. */
 368   if (guestfs_is_file (g, "/.disk/info") > 0) {
 369     if (check_debian_installer_root (g, fs) == -1)
 370       return -1;
 371   }
 372
 373   /* Fedora CDs and DVD (not netinst). */
 374   else if (guestfs_is_file (g, "/.treeinfo") > 0) {
 375     if (check_fedora_installer_root (g, fs) == -1)
 376       return -1;
 377   }
 378
 379   /* Linux with /isolinux/isolinux.cfg. */
 380   else if (guestfs_is_file (g, "/isolinux/isolinux.cfg") > 0) {
 381     if (check_isolinux_installer_root (g, fs) == -1)
 382       return -1;
 383   }
 384
 385   /* Windows 2003 64 bit */
 386   else if (guestfs_is_file (g, "/amd64/txtsetup.sif") > 0) {
 387     fs->arch = safe_strdup (g, "x86_64");
 388     if (check_w2k3_installer_root (g, fs, "/amd64/txtsetup.sif") == -1)
 389       return -1;
 390   }
 391
 392   /* Windows 2003 32 bit */
 393   else if (guestfs_is_file (g, "/i386/txtsetup.sif") > 0) {
 394     fs->arch = safe_strdup (g, "i386");
 395     if (check_w2k3_installer_root (g, fs, "/i386/txtsetup.sif") == -1)
 396       return -1;
 397   }
 398
 399   return 0;
 400 }
 401
 402 #endif /* defined(HAVE_HIVEX) */