src/installer/hw.c

   1 /*#############################################################################
   2 #                                                                             #
   3 # IPFire - An Open Source Firewall Distribution                               #
   4 # Copyright (C) 2014 IPFire development team                                  #
   5 #                                                                             #
   6 # This program is free software: you can redistribute it and/or modify        #
   7 # it under the terms of the GNU General Public License as published by        #
   8 # the Free Software Foundation, either version 3 of the License, or           #
   9 # (at your option) any later version.                                         #
  10 #                                                                             #
  11 # This program is distributed in the hope that it will be useful,             #
  12 # but WITHOUT ANY WARRANTY; without even the implied warranty of              #
  13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the               #
  14 # GNU General Public License for more details.                                #
  15 #                                                                             #
  16 # You should have received a copy of the GNU General Public License           #
  17 # along with this program.  If not, see <http://www.gnu.org/licenses/>.       #
  18 #                                                                             #
  19 #############################################################################*/
  20
  21 #ifndef _GNU_SOURCE
  22 #define _GNU_SOURCE
  23 #endif
  24
  25 #include <assert.h>
  26 #include <blkid/blkid.h>
  27 #include <errno.h>
  28 #include <fcntl.h>
  29 #include <libudev.h>
  30 #include <linux/loop.h>
  31 #include <math.h>
  32 #include <stdio.h>
  33 #include <stdlib.h>
  34 #include <string.h>
  35 #include <sys/ioctl.h>
  36 #include <sys/mount.h>
  37 #include <sys/stat.h>
  38 #include <sys/swap.h>
  39 #include <sys/sysinfo.h>
  40 #include <sys/utsname.h>
  41 #include <unistd.h>
  42
  43 #include <linux/fs.h>
  44
  45 #include <libsmooth.h>
  46
  47 #include "hw.h"
  48
  49 static int system_chroot(const char* output, const char* path, const char* cmd) {
  50         char chroot_cmd[STRING_SIZE];
  51
  52         snprintf(chroot_cmd, sizeof(chroot_cmd), "/usr/sbin/chroot %s %s", path, cmd);
  53
  54         return mysystem(output, chroot_cmd);
  55 }
  56
  57 struct hw* hw_init() {
  58         struct hw* hw = calloc(1, sizeof(*hw));
  59         assert(hw);
  60
  61         // Initialize libudev
  62         hw->udev = udev_new();
  63         if (!hw->udev) {
  64                 fprintf(stderr, "Could not create udev instance\n");
  65                 exit(1);
  66         }
  67
  68         // What architecture are we running on?
  69         struct utsname uname_data;
  70         int ret = uname(&uname_data);
  71         if (ret == 0)
  72                 snprintf(hw->arch, sizeof(hw->arch), "%s", uname_data.machine);
  73
  74         // Should we install in EFI mode?
  75         if ((strcmp(hw->arch, "x86_64") == 0) || (strcmp(hw->arch, "aarch64") == 0))
  76                 hw->efi = 1;
  77
  78         return hw;
  79 }
  80
  81 void hw_free(struct hw* hw) {
  82         if (hw->udev)
  83                 udev_unref(hw->udev);
  84
  85         free(hw);
  86 }
  87
  88 static int strstartswith(const char* a, const char* b) {
  89         return (strncmp(a, b, strlen(b)) == 0);
  90 }
  91
  92 static char loop_device[STRING_SIZE];
  93
  94 static int setup_loop_device(const char* source, const char* device) {
  95         int file_fd = open(source, O_RDWR);
  96         if (file_fd < 0)
  97                 goto ERROR;
  98
  99         int device_fd = -1;
 100         if ((device_fd = open(device, O_RDWR)) < 0)
 101                 goto ERROR;
 102
 103         if (ioctl(device_fd, LOOP_SET_FD, file_fd) < 0)
 104                 goto ERROR;
 105
 106         close(file_fd);
 107         close(device_fd);
 108
 109         return 0;
 110
 111 ERROR:
 112         if (file_fd >= 0)
 113                 close(file_fd);
 114
 115         if (device_fd >= 0) {
 116                 ioctl(device_fd, LOOP_CLR_FD, 0);
 117                 close(device_fd);
 118         }
 119
 120         return -1;
 121 }
 122
 123 int hw_mount(const char* source, const char* target, const char* fs, int flags) {
 124         const char* loop_device = "/dev/loop0";
 125
 126         // Create target if it does not exist
 127         if (access(target, X_OK) != 0)
 128                 mkdir(target, S_IRWXU|S_IRWXG|S_IRWXO);
 129
 130         struct stat st;
 131         stat(source, &st);
 132
 133         if (S_ISREG(st.st_mode)) {
 134                 int r = setup_loop_device(source, loop_device);
 135                 if (r == 0) {
 136                         source = loop_device;
 137                 } else {
 138                         return -1;
 139                 }
 140         }
 141
 142         return mount(source, target, fs, flags, NULL);
 143 }
 144
 145 static int hw_bind_mount(const char* source, const char* prefix) {
 146         if (!source || !prefix) {
 147                 errno = EINVAL;
 148                 return 1;
 149         }
 150
 151         char target[PATH_MAX];
 152         int r;
 153
 154         // Format target
 155         r = snprintf(target, sizeof(target) - 1, "%s/%s", prefix, source);
 156         if (r < 0)
 157                 return 1;
 158
 159         // Ensure target exists
 160         mkdir(target, S_IRWXU|S_IRWXG|S_IRWXO);
 161
 162         return hw_mount(source, target, NULL, MS_BIND);
 163 }
 164
 165 int hw_umount(const char* source, const char* prefix) {
 166         char target[PATH_MAX];
 167         int r;
 168
 169         if (prefix)
 170                 r = snprintf(target, sizeof(target) - 1, "%s/%s", prefix, source);
 171         else
 172                 r = snprintf(target, sizeof(target) - 1, "%s", source);
 173         if (r < 0)
 174                 return r;
 175
 176         // Perform umount
 177         r = umount2(target, 0);
 178         if (r) {
 179                 switch (errno) {
 180                         // Try again with force if umount wasn't successful
 181                         case EBUSY:
 182                                 sleep(1);
 183
 184                                 r = umount2(target, MNT_FORCE);
 185                                 break;
 186
 187                         // target wasn't a mountpoint. Ignore.
 188                         case EINVAL:
 189                                 r = 0;
 190                                 break;
 191
 192                         // target doesn't exist
 193                         case ENOENT:
 194                                 r = 0;
 195                                 break;
 196                 }
 197         }
 198
 199         return r;
 200 }
 201
 202 static int hw_test_source_medium(const char* path) {
 203         int ret = hw_mount(path, SOURCE_MOUNT_PATH, "iso9660", MS_RDONLY);
 204
 205         if (ret != 0) {
 206                 // 2nd try, ntfs for a rufus converted usb key
 207                 ret = hw_mount(path, SOURCE_MOUNT_PATH, "ntfs3", MS_RDONLY);
 208         }
 209         if (ret != 0) {
 210                 // 3rd try, vfat for a rufus converted usb key
 211                 ret = hw_mount(path, SOURCE_MOUNT_PATH, "vfat", MS_RDONLY);
 212         }
 213
 214         // If the source could not be mounted we
 215         // cannot proceed.
 216         if (ret != 0)
 217                 return ret;
 218
 219         // Check if the test file exists.
 220         ret = access(SOURCE_TEST_FILE, R_OK);
 221
 222         // Umount the test device.
 223         hw_umount(SOURCE_MOUNT_PATH, NULL);
 224
 225         return ret;
 226 }
 227
 228 char* hw_find_source_medium(struct hw* hw) {
 229         char* ret = NULL;
 230
 231         struct udev_enumerate* enumerate = udev_enumerate_new(hw->udev);
 232
 233         udev_enumerate_add_match_subsystem(enumerate, "block");
 234         udev_enumerate_scan_devices(enumerate);
 235
 236         struct udev_list_entry* devices = udev_enumerate_get_list_entry(enumerate);
 237
 238         struct udev_list_entry* dev_list_entry;
 239         udev_list_entry_foreach(dev_list_entry, devices) {
 240                 const char* path = udev_list_entry_get_name(dev_list_entry);
 241                 struct udev_device* dev = udev_device_new_from_syspath(hw->udev, path);
 242
 243                 const char* dev_path = udev_device_get_devnode(dev);
 244
 245                 // Skip everything what we cannot work with
 246                 if (strstartswith(dev_path, "/dev/loop") || strstartswith(dev_path, "/dev/fd") ||
 247                                 strstartswith(dev_path, "/dev/ram") || strstartswith(dev_path, "/dev/md"))
 248                         continue;
 249
 250                 if (hw_test_source_medium(dev_path) == 0) {
 251                         ret = strdup(dev_path);
 252                 }
 253
 254                 udev_device_unref(dev);
 255
 256                 // If a suitable device was found the search will end.
 257                 if (ret)
 258                         break;
 259         }
 260
 261         udev_enumerate_unref(enumerate);
 262
 263         return ret;
 264 }
 265
 266 static struct hw_disk** hw_create_disks() {
 267         struct hw_disk** ret = malloc(sizeof(*ret) * (HW_MAX_DISKS + 1));
 268
 269         return ret;
 270 }
 271
 272 static unsigned long long hw_block_device_get_size(const char* dev) {
 273         int fd = open(dev, O_RDONLY);
 274         if (fd < 0)
 275                 return 0;
 276
 277         unsigned long long size = blkid_get_dev_size(fd);
 278         close(fd);
 279
 280         return size;
 281 }
 282
 283 struct hw_disk** hw_find_disks(struct hw* hw, const char* sourcedrive) {
 284         struct hw_disk** ret = hw_create_disks();
 285         struct hw_disk** disks = ret;
 286
 287         // Determine the disk device of source if it is a partition
 288         char* sourcedisk = NULL;
 289         char syssource[PATH_MAX];
 290         (void)snprintf(syssource, sizeof(syssource) - 1, "/sys/class/block/%s", sourcedrive + 5);
 291         struct udev_device* s_dev = udev_device_new_from_syspath(hw->udev, syssource);
 292         const char* s_devtype = udev_device_get_property_value(s_dev, "DEVTYPE");
 293         if (s_devtype && (strcmp(s_devtype, "partition") == 0)) {
 294                 struct udev_device* p_dev = udev_device_get_parent_with_subsystem_devtype(s_dev,"block","disk");
 295                 if (p_dev) {
 296                         sourcedisk = udev_device_get_devnode(p_dev);
 297                 }
 298         }
 299         if (!sourcedisk) sourcedisk = sourcedrive;
 300
 301         struct udev_enumerate* enumerate = udev_enumerate_new(hw->udev);
 302
 303         udev_enumerate_add_match_subsystem(enumerate, "block");
 304         udev_enumerate_scan_devices(enumerate);
 305
 306         struct udev_list_entry* devices = udev_enumerate_get_list_entry(enumerate);
 307
 308         struct udev_list_entry* dev_list_entry;
 309         unsigned int i = HW_MAX_DISKS;
 310         udev_list_entry_foreach(dev_list_entry, devices) {
 311                 const char* path = udev_list_entry_get_name(dev_list_entry);
 312                 struct udev_device* dev = udev_device_new_from_syspath(hw->udev, path);
 313
 314                 const char* dev_path = udev_device_get_devnode(dev);
 315
 316                 // Skip everything what we cannot work with
 317                 if (strstartswith(dev_path, "/dev/loop") || strstartswith(dev_path, "/dev/fd") ||
 318                                 strstartswith(dev_path, "/dev/ram") || strstartswith(dev_path, "/dev/sr") ||
 319                                 strstartswith(dev_path, "/dev/md")) {
 320                         udev_device_unref(dev);
 321                         continue;
 322                 }
 323
 324                 // Skip sourcedisk if we need to
 325                 if (sourcedisk && (strcmp(dev_path, sourcedisk) == 0)) {
 326                         udev_device_unref(dev);
 327                         continue;
 328                 }
 329
 330                 // DEVTYPE must be disk (otherwise we will see all sorts of partitions here)
 331                 const char* devtype = udev_device_get_property_value(dev, "DEVTYPE");
 332                 if (devtype && (strcmp(devtype, "disk") != 0)) {
 333                         udev_device_unref(dev);
 334                         continue;
 335                 }
 336
 337                 // Skip devices with a size of zero
 338                 unsigned long long size = hw_block_device_get_size(dev_path);
 339                 if (size == 0) {
 340                         udev_device_unref(dev);
 341                         continue;
 342                 }
 343
 344                 struct hw_disk* disk = malloc(sizeof(*disk));
 345                 if (disk == NULL)
 346                         return NULL;
 347
 348                 disk->ref = 1;
 349
 350                 strncpy(disk->path, dev_path, sizeof(disk->path));
 351                 const char* p = disk->path + 5;
 352
 353                 disk->size = size;
 354
 355                 // Vendor
 356                 const char* vendor = udev_device_get_property_value(dev, "ID_VENDOR");
 357                 if (!vendor)
 358                         vendor = udev_device_get_sysattr_value(dev, "vendor");
 359                 if (!vendor)
 360                         vendor = udev_device_get_sysattr_value(dev, "manufacturer");
 361
 362                 if (vendor)
 363                         strncpy(disk->vendor, vendor, sizeof(disk->vendor));
 364                 else
 365                         *disk->vendor = '\0';
 366
 367                 // Model
 368                 const char* model = udev_device_get_property_value(dev, "ID_MODEL");
 369                 if (!model)
 370                         model = udev_device_get_sysattr_value(dev, "model");
 371                 if (!model)
 372                         model = udev_device_get_sysattr_value(dev, "product");
 373
 374                 if (model)
 375                         strncpy(disk->model, model, sizeof(disk->model));
 376                 else
 377                         *disk->model = '\0';
 378
 379                 // Format description
 380                 char size_str[STRING_SIZE];
 381                 snprintf(size_str, sizeof(size_str), "%4.1fGB", (double)disk->size / pow(1024, 3));
 382
 383                 if (*disk->vendor && *disk->model) {
 384                         snprintf(disk->description, sizeof(disk->description),
 385                                 "%s - %s - %s - %s", size_str, p, disk->vendor, disk->model);
 386
 387                 } else if (*disk->vendor || *disk->model) {
 388                         snprintf(disk->description, sizeof(disk->description),
 389                                 "%s - %s - %s", size_str, p, (*disk->vendor) ? disk->vendor : disk->model);
 390
 391                 } else {
 392                         snprintf(disk->description, sizeof(disk->description),
 393                                 "%s - %s", size_str, p);
 394                 }
 395
 396                 // Cut off the description string after 40 characters
 397                 disk->description[41] = '\0';
 398
 399                 *disks++ = disk;
 400
 401                 if (--i == 0)
 402                         break;
 403
 404                 udev_device_unref(dev);
 405         }
 406
 407         udev_enumerate_unref(enumerate);
 408
 409         *disks = NULL;
 410
 411         return ret;
 412 }
 413
 414 void hw_free_disks(struct hw_disk** disks) {
 415         struct hw_disk** disk = disks;
 416
 417         while (*disk != NULL) {
 418                 if (--(*disk)->ref == 0)
 419                         free(*disk);
 420
 421                 disk++;
 422         }
 423
 424         free(disks);
 425 }
 426
 427 unsigned int hw_count_disks(const struct hw_disk** disks) {
 428         unsigned int ret = 0;
 429
 430         while (*disks++)
 431                 ret++;
 432
 433         return ret;
 434 }
 435
 436 struct hw_disk** hw_select_disks(struct hw_disk** disks, int* selection) {
 437         struct hw_disk** ret = hw_create_disks();
 438         struct hw_disk** selected_disks = ret;
 439
 440         unsigned int num_disks = hw_count_disks((const struct hw_disk**)disks);
 441
 442         for (unsigned int i = 0; i < num_disks; i++) {
 443                 if (!selection || selection[i]) {
 444                         struct hw_disk *selected_disk = disks[i];
 445                         selected_disk->ref++;
 446
 447                         *selected_disks++ = selected_disk;
 448                 }
 449         }
 450
 451         // Set sentinel
 452         *selected_disks = NULL;
 453
 454         return ret;
 455 }
 456
 457 struct hw_disk** hw_select_first_disk(const struct hw_disk** disks) {
 458         struct hw_disk** ret = hw_create_disks();
 459         struct hw_disk** selected_disks = ret;
 460
 461         unsigned int num_disks = hw_count_disks(disks);
 462         assert(num_disks > 0);
 463
 464         for (unsigned int i = 0; i < num_disks; i++) {
 465                 struct hw_disk *disk = disks[i];
 466                 disk->ref++;
 467
 468                 *selected_disks++ = disk;
 469                 break;
 470         }
 471
 472         // Set sentinel
 473         *selected_disks = NULL;
 474
 475         return ret;
 476 }
 477
 478 static unsigned long long hw_swap_size(struct hw_destination* dest) {
 479         unsigned long long memory = hw_memory();
 480
 481         unsigned long long swap_size = memory / 4;
 482
 483         // Min. swap size is 128MB
 484         if (swap_size < MB2BYTES(128))
 485                 swap_size = MB2BYTES(128);
 486
 487         // Cap swap size to 1GB
 488         else if (swap_size > MB2BYTES(1024))
 489                 swap_size = MB2BYTES(1024);
 490
 491         return swap_size;
 492 }
 493
 494 static unsigned long long hw_boot_size(struct hw_destination* dest) {
 495         return MB2BYTES(128);
 496 }
 497
 498 static int hw_device_has_p_suffix(const struct hw_destination* dest) {
 499         // All RAID devices have the p suffix.
 500         if (dest->is_raid)
 501                 return 1;
 502
 503         // Devices with a number at the end have the p suffix, too.
 504         // e.g. mmcblk0, cciss0
 505         unsigned int last_char = strlen(dest->path) - 1;
 506         if ((dest->path[last_char] >= '0') && (dest->path[last_char] <= '9'))
 507                 return 1;
 508
 509         return 0;
 510 }
 511
 512 static int hw_calculate_partition_table(struct hw* hw, struct hw_destination* dest, int disable_swap) {
 513         char path[DEV_SIZE];
 514         int part_idx = 1;
 515
 516         snprintf(path, sizeof(path), "%s%s", dest->path,
 517                 hw_device_has_p_suffix(dest) ? "p" : "");
 518         dest->part_boot_idx = 0;
 519
 520         // Determine the size of the target block device
 521         if (dest->is_raid) {
 522                 dest->size = (dest->disk1->size >= dest->disk2->size) ?
 523                         dest->disk2->size : dest->disk1->size;
 524
 525                 // The RAID will install some metadata at the end of the disk
 526                 // and we will save up some space for that.
 527                 dest->size -= MB2BYTES(2);
 528         } else {
 529                 dest->size = dest->disk1->size;
 530         }
 531
 532         // As we add some extra space before the beginning of the first
 533         // partition, we need to substract that here.
 534         dest->size -= MB2BYTES(1);
 535
 536         // Add some more space for partition tables, etc.
 537         dest->size -= MB2BYTES(1);
 538
 539         // The disk has to have at least 2GB
 540         if (dest->size <= MB2BYTES(2048))
 541                 return -1;
 542
 543         // Determine partition table
 544         dest->part_table = HW_PART_TABLE_MSDOS;
 545
 546         // Disks over 2TB need to use GPT
 547         if (dest->size >= MB2BYTES(2047 * 1024))
 548                 dest->part_table = HW_PART_TABLE_GPT;
 549
 550         // We also use GPT on raid disks by default
 551         else if (dest->is_raid)
 552                 dest->part_table = HW_PART_TABLE_GPT;
 553
 554         // When using GPT, GRUB2 needs a little bit of space to put
 555         // itself in.
 556         if (dest->part_table == HW_PART_TABLE_GPT) {
 557                 snprintf(dest->part_bootldr, sizeof(dest->part_bootldr),
 558                         "%s%d", path, part_idx);
 559
 560                 dest->size_bootldr = MB2BYTES(4);
 561
 562                 dest->part_boot_idx = part_idx++;
 563         } else {
 564                 *dest->part_bootldr = '\0';
 565                 dest->size_bootldr = 0;
 566         }
 567
 568         dest->size_boot = hw_boot_size(dest);
 569
 570         // Create an EFI partition when running in EFI mode
 571         if (hw->efi)
 572                 dest->size_boot_efi = MB2BYTES(32);
 573         else
 574                 dest->size_boot_efi = 0;
 575
 576         // Determine the size of the data partition.
 577         unsigned long long space_left = dest->size - \
 578                 (dest->size_bootldr + dest->size_boot + dest->size_boot_efi);
 579
 580         // If we have less than 2GB left, we disable swap
 581         if (space_left <= MB2BYTES(2048))
 582                 disable_swap = 1;
 583
 584         // Should we use swap?
 585         if (disable_swap)
 586                 dest->size_swap = 0;
 587         else
 588                 dest->size_swap = hw_swap_size(dest);
 589
 590         // Subtract swap
 591         space_left -= dest->size_swap;
 592
 593         // Root is getting what ever is left
 594         dest->size_root = space_left;
 595
 596         // Set partition names
 597         if (dest->size_boot > 0) {
 598                 if (dest->part_boot_idx == 0)
 599                         dest->part_boot_idx = part_idx;
 600
 601                 snprintf(dest->part_boot, sizeof(dest->part_boot), "%s%d", path, part_idx++);
 602         } else
 603                 *dest->part_boot = '\0';
 604
 605         if (dest->size_boot_efi > 0) {
 606                 dest->part_boot_efi_idx = part_idx;
 607
 608                 snprintf(dest->part_boot_efi, sizeof(dest->part_boot_efi),
 609                         "%s%d", path, part_idx++);
 610         } else {
 611                 *dest->part_boot_efi = '\0';
 612                 dest->part_boot_efi_idx = 0;
 613         }
 614
 615         if (dest->size_swap > 0)
 616                 snprintf(dest->part_swap, sizeof(dest->part_swap), "%s%d", path, part_idx++);
 617         else
 618                 *dest->part_swap = '\0';
 619
 620         // There is always a root partition
 621         if (dest->part_boot_idx == 0)
 622                 dest->part_boot_idx = part_idx;
 623
 624         snprintf(dest->part_root, sizeof(dest->part_root), "%s%d", path, part_idx++);
 625
 626         return 0;
 627 }
 628
 629 struct hw_destination* hw_make_destination(struct hw* hw, int part_type, struct hw_disk** disks, int disable_swap) {
 630         struct hw_destination* dest = malloc(sizeof(*dest));
 631
 632         if (part_type == HW_PART_TYPE_NORMAL) {
 633                 dest->disk1 = *disks;
 634                 dest->disk2 = NULL;
 635
 636                 strncpy(dest->path, dest->disk1->path, sizeof(dest->path));
 637
 638         } else if (part_type == HW_PART_TYPE_RAID1) {
 639                 dest->disk1 = *disks++;
 640                 dest->disk2 = *disks;
 641                 dest->raid_level = 1;
 642
 643                 snprintf(dest->path, sizeof(dest->path), "/dev/md0");
 644         }
 645
 646         // Is this a RAID device?
 647         dest->is_raid = (part_type > HW_PART_TYPE_NORMAL);
 648
 649         int r = hw_calculate_partition_table(hw, dest, disable_swap);
 650         if (r)
 651                 return NULL;
 652
 653         // Set default filesystem
 654         dest->filesystem = HW_FS_DEFAULT;
 655
 656         return dest;
 657 }
 658
 659 unsigned long long hw_memory() {
 660         struct sysinfo si;
 661
 662         int r = sysinfo(&si);
 663         if (r < 0)
 664                 return 0;
 665
 666         return si.totalram;
 667 }
 668
 669 static int hw_zero_out_device(const char* path, int bytes) {
 670         char block[512];
 671         memset(block, 0, sizeof(block));
 672
 673         int blocks = bytes / sizeof(block);
 674
 675         int fd = open(path, O_WRONLY);
 676         if (fd < 0)
 677                 return -1;
 678
 679         unsigned int bytes_written = 0;
 680         while (blocks-- > 0) {
 681                 bytes_written += write(fd, block, sizeof(block));
 682         }
 683
 684         fsync(fd);
 685         close(fd);
 686
 687         return bytes_written;
 688 }
 689
 690 static int try_open(const char* path) {
 691         FILE* f = fopen(path, "r");
 692         if (f) {
 693                 fclose(f);
 694                 return 0;
 695         }
 696
 697         return -1;
 698 }
 699
 700 int hw_create_partitions(struct hw_destination* dest, const char* output) {
 701         // Before we write a new partition table to the disk, we will erase
 702         // the first couple of megabytes at the beginning of the device to
 703         // get rid of all left other things like bootloaders and partition tables.
 704         // This solves some problems when changing from MBR to GPT partitions or
 705         // the other way around.
 706         int r = hw_zero_out_device(dest->path, MB2BYTES(10));
 707         if (r <= 0)
 708                 return r;
 709
 710         char* cmd = NULL;
 711         asprintf(&cmd, "/usr/sbin/parted -s %s -a optimal", dest->path);
 712
 713         // Set partition type
 714         if (dest->part_table == HW_PART_TABLE_MSDOS)
 715                 asprintf(&cmd, "%s mklabel msdos", cmd);
 716         else if (dest->part_table == HW_PART_TABLE_GPT)
 717                 asprintf(&cmd, "%s mklabel gpt", cmd);
 718
 719         unsigned long long part_start = MB2BYTES(1);
 720
 721         if (*dest->part_bootldr) {
 722                 asprintf(&cmd, "%s mkpart %s ext2 %lluB %lluB", cmd,
 723                         (dest->part_table == HW_PART_TABLE_GPT) ? "BOOTLDR" : "primary",
 724                 part_start, part_start + dest->size_bootldr - 1);
 725
 726                 part_start += dest->size_bootldr;
 727         }
 728
 729         if (*dest->part_boot) {
 730                 asprintf(&cmd, "%s mkpart %s ext2 %lluB %lluB", cmd,
 731                         (dest->part_table == HW_PART_TABLE_GPT) ? "BOOT" : "primary",
 732                         part_start, part_start + dest->size_boot - 1);
 733
 734                 part_start += dest->size_boot;
 735         }
 736
 737         if (*dest->part_boot_efi) {
 738                 asprintf(&cmd, "%s mkpart %s fat32 %lluB %lluB", cmd,
 739                         (dest->part_table == HW_PART_TABLE_GPT) ? "ESP" : "primary",
 740                         part_start, part_start + dest->size_boot_efi - 1);
 741
 742                 part_start += dest->size_boot_efi;
 743         }
 744
 745         if (*dest->part_swap) {
 746                 asprintf(&cmd, "%s mkpart %s linux-swap %lluB %lluB", cmd,
 747                         (dest->part_table == HW_PART_TABLE_GPT) ? "SWAP" : "primary",
 748                         part_start, part_start + dest->size_swap - 1);
 749
 750                 part_start += dest->size_swap;
 751         }
 752
 753         if (*dest->part_root) {
 754                 asprintf(&cmd, "%s mkpart %s ext2 %lluB %lluB", cmd,
 755                         (dest->part_table == HW_PART_TABLE_GPT) ? "ROOT" : "primary",
 756                         part_start, part_start + dest->size_root - 1);
 757
 758                 part_start += dest->size_root;
 759         }
 760
 761         if (dest->part_boot_idx > 0)
 762                 asprintf(&cmd, "%s set %d boot on", cmd, dest->part_boot_idx);
 763
 764         if (dest->part_boot_efi_idx > 0)
 765                 asprintf(&cmd, "%s set %d esp on", cmd, dest->part_boot_efi_idx);
 766
 767         if (dest->part_table == HW_PART_TABLE_GPT) {
 768                 if (*dest->part_bootldr) {
 769                         asprintf(&cmd, "%s set %d bios_grub on", cmd, dest->part_boot_idx);
 770                 }
 771         }
 772
 773         r = mysystem(output, cmd);
 774
 775         // Wait until the system re-read the partition table
 776         if (r == 0) {
 777                 unsigned int counter = 10;
 778
 779                 while (counter-- > 0) {
 780                         sleep(1);
 781
 782                         if (*dest->part_bootldr && (try_open(dest->part_bootldr) != 0))
 783                                 continue;
 784
 785                         if (*dest->part_boot && (try_open(dest->part_boot) != 0))
 786                                 continue;
 787
 788                         if (*dest->part_boot_efi && (try_open(dest->part_boot_efi) != 0))
 789                                 continue;
 790
 791                         if (*dest->part_swap && (try_open(dest->part_swap) != 0))
 792                                 continue;
 793
 794                         if (*dest->part_root && (try_open(dest->part_root) != 0))
 795                                 continue;
 796
 797                         // All partitions do exist, exiting the loop.
 798                         break;
 799                 }
 800         }
 801
 802         if (cmd)
 803                 free(cmd);
 804
 805         return r;
 806 }
 807
 808 static int hw_format_filesystem(const char* path, int fs, const char* output) {
 809         char cmd[STRING_SIZE] = "\0";
 810
 811         // Swap
 812         if (fs == HW_FS_SWAP) {
 813                 snprintf(cmd, sizeof(cmd), "/sbin/mkswap -v1 %s &>/dev/null", path);
 814         // ReiserFS
 815         } else if (fs == HW_FS_REISERFS) {
 816                 snprintf(cmd, sizeof(cmd), "/sbin/mkreiserfs -f %s ", path);
 817
 818         // EXT4
 819         } else if (fs == HW_FS_EXT4) {
 820                 snprintf(cmd, sizeof(cmd), "/sbin/mke2fs -FF -T ext4 %s", path);
 821
 822         // EXT4 w/o journal
 823         } else if (fs == HW_FS_EXT4_WO_JOURNAL) {
 824                 snprintf(cmd, sizeof(cmd), "/sbin/mke2fs -FF -T ext4 -O ^has_journal %s", path);
 825
 826         // XFS
 827         } else if (fs == HW_FS_XFS) {
 828                 snprintf(cmd, sizeof(cmd), "/sbin/mkfs.xfs -f %s", path);
 829
 830         // FAT32
 831         } else if (fs == HW_FS_FAT32) {
 832                 snprintf(cmd, sizeof(cmd), "/sbin/mkfs.vfat %s", path);
 833         }
 834
 835         assert(*cmd);
 836
 837         int r = mysystem(output, cmd);
 838
 839         return r;
 840 }
 841
 842 int hw_create_filesystems(struct hw_destination* dest, const char* output) {
 843         int r;
 844
 845         // boot
 846         if (*dest->part_boot) {
 847                 r = hw_format_filesystem(dest->part_boot, dest->filesystem, output);
 848                 if (r)
 849                         return r;
 850         }
 851
 852         // ESP
 853         if (*dest->part_boot_efi) {
 854                 r = hw_format_filesystem(dest->part_boot_efi, HW_FS_FAT32, output);
 855                 if (r)
 856                         return r;
 857         }
 858
 859         // swap
 860         if (*dest->part_swap) {
 861                 r = hw_format_filesystem(dest->part_swap, HW_FS_SWAP, output);
 862                 if (r)
 863                         return r;
 864         }
 865
 866         // root
 867         r = hw_format_filesystem(dest->part_root, dest->filesystem, output);
 868         if (r)
 869                 return r;
 870
 871         return 0;
 872 }
 873
 874 int hw_mount_filesystems(struct hw_destination* dest, const char* prefix) {
 875         char target[STRING_SIZE];
 876
 877         assert(*prefix == '/');
 878
 879         const char* filesystem;
 880         switch (dest->filesystem) {
 881                 case HW_FS_REISERFS:
 882                         filesystem = "reiserfs";
 883                         break;
 884
 885                 case HW_FS_EXT4:
 886                 case HW_FS_EXT4_WO_JOURNAL:
 887                         filesystem = "ext4";
 888                         break;
 889
 890                 case HW_FS_XFS:
 891                         filesystem = "xfs";
 892                         break;
 893
 894                 case HW_FS_FAT32:
 895                         filesystem = "vfat";
 896                         break;
 897
 898                 default:
 899                         assert(0);
 900         }
 901
 902         // root
 903         int r = hw_mount(dest->part_root, prefix, filesystem, 0);
 904         if (r)
 905                 return r;
 906
 907         // boot
 908         if (*dest->part_boot) {
 909                 snprintf(target, sizeof(target), "%s%s", prefix, HW_PATH_BOOT);
 910                 mkdir(target, S_IRWXU|S_IRWXG|S_IRWXO);
 911
 912                 r = hw_mount(dest->part_boot, target, filesystem, 0);
 913                 if (r) {
 914                         hw_umount_filesystems(dest, prefix);
 915
 916                         return r;
 917                 }
 918         }
 919
 920         // ESP
 921         if (*dest->part_boot_efi) {
 922                 snprintf(target, sizeof(target), "%s%s", prefix, HW_PATH_BOOT_EFI);
 923                 mkdir(target, S_IRWXU|S_IRWXG|S_IRWXO);
 924
 925                 r = hw_mount(dest->part_boot_efi, target, "vfat", 0);
 926                 if (r) {
 927                         hw_umount_filesystems(dest, prefix);
 928
 929                         return r;
 930                 }
 931         }
 932
 933         // swap
 934         if (*dest->part_swap) {
 935                 r = swapon(dest->part_swap, 0);
 936                 if (r) {
 937                         hw_umount_filesystems(dest, prefix);
 938
 939                         return r;
 940                 }
 941         }
 942
 943         // bind-mount misc filesystems
 944         r = hw_bind_mount("/dev", prefix);
 945         if (r)
 946                 return r;
 947
 948         r = hw_bind_mount("/proc", prefix);
 949         if (r)
 950                 return r;
 951
 952         r = hw_bind_mount("/sys", prefix);
 953         if (r)
 954                 return r;
 955
 956         r = hw_bind_mount("/sys/firmware/efi/efivars", prefix);
 957         if (r && errno != ENOENT)
 958                 return r;
 959
 960         return 0;
 961 }
 962
 963 int hw_umount_filesystems(struct hw_destination* dest, const char* prefix) {
 964         int r;
 965         char target[STRING_SIZE];
 966
 967         // Write all buffers to disk before umounting
 968         hw_sync();
 969
 970         // ESP
 971         if (*dest->part_boot_efi) {
 972                 r = hw_umount(HW_PATH_BOOT_EFI, prefix);
 973                 if (r)
 974                         return -1;
 975         }
 976
 977         // boot
 978         if (*dest->part_boot) {
 979                 r = hw_umount(HW_PATH_BOOT, prefix);
 980                 if (r)
 981                         return -1;
 982         }
 983
 984         // swap
 985         if (*dest->part_swap) {
 986                 swapoff(dest->part_swap);
 987         }
 988
 989         // misc filesystems
 990         r = hw_umount("/sys/firmware/efi/efivars", prefix);
 991         if (r)
 992                 return -1;
 993
 994         r = hw_umount("/sys", prefix);
 995         if (r)
 996                 return -1;
 997
 998         r = hw_umount("/proc", prefix);
 999         if (r)
1000                 return -1;
1001
1002         r = hw_umount("/dev", prefix);
1003         if (r)
1004                 return -1;
1005
1006         // root
1007         r = hw_umount(prefix, NULL);
1008         if (r)
1009                 return -1;
1010
1011         return 0;
1012 }
1013
1014 int hw_destroy_raid_superblocks(const struct hw_destination* dest, const char* output) {
1015         char cmd[STRING_SIZE];
1016
1017         hw_stop_all_raid_arrays(output);
1018         hw_stop_all_raid_arrays(output);
1019
1020         if (dest->disk1) {
1021                 snprintf(cmd, sizeof(cmd), "/sbin/mdadm --zero-superblock %s", dest->disk1->path);
1022                 mysystem(output, cmd);
1023         }
1024
1025         if (dest->disk2) {
1026                 snprintf(cmd, sizeof(cmd), "/sbin/mdadm --zero-superblock %s", dest->disk2->path);
1027                 mysystem(output, cmd);
1028         }
1029
1030         return 0;
1031 }
1032
1033 int hw_setup_raid(struct hw_destination* dest, const char* output) {
1034         char* cmd = NULL;
1035         int r;
1036
1037         assert(dest->is_raid);
1038
1039         // Stop all RAID arrays that might be around (again).
1040         // It seems that there is some sort of race-condition with udev re-enabling
1041         // the raid arrays and therefore locking the disks.
1042         r = hw_destroy_raid_superblocks(dest, output);
1043
1044         asprintf(&cmd, "echo \"y\" | /sbin/mdadm --create --verbose --metadata=%s --auto=mdp %s",
1045                 RAID_METADATA, dest->path);
1046
1047         switch (dest->raid_level) {
1048                 case 1:
1049                         asprintf(&cmd, "%s --level=1 --raid-devices=2", cmd);
1050                         break;
1051
1052                 default:
1053                         assert(0);
1054         }
1055
1056         if (dest->disk1) {
1057                 asprintf(&cmd, "%s %s", cmd, dest->disk1->path);
1058
1059                 // Clear all data at the beginning
1060                 r = hw_zero_out_device(dest->disk1->path, MB2BYTES(10));
1061                 if (r <= 0)
1062                         return r;
1063         }
1064
1065         if (dest->disk2) {
1066                 asprintf(&cmd, "%s %s", cmd, dest->disk2->path);
1067
1068                 // Clear all data at the beginning
1069                 r = hw_zero_out_device(dest->disk2->path, MB2BYTES(10));
1070                 if (r <= 0)
1071                         return r;
1072         }
1073
1074         r = mysystem(output, cmd);
1075         free(cmd);
1076
1077         // Wait a moment until the device has been properly brought up
1078         if (r == 0) {
1079                 unsigned int counter = 10;
1080                 while (counter-- > 0) {
1081                         sleep(1);
1082
1083                         // If the raid device has not yet been properly brought up,
1084                         // opening it will fail with the message: Device or resource busy
1085                         // Hence we will wait a bit until it becomes usable.
1086                         if (try_open(dest->path) == 0)
1087                                 break;
1088                 }
1089         }
1090
1091         return r;
1092 }
1093
1094 int hw_stop_all_raid_arrays(const char* output) {
1095         return mysystem(output, "/sbin/mdadm --stop --scan --verbose");
1096 }
1097
1098 int hw_install_bootloader(struct hw* hw, struct hw_destination* dest, const char* output) {
1099         char cmd[STRING_SIZE];
1100
1101         snprintf(cmd, sizeof(cmd), "/usr/bin/install-bootloader %s", dest->path);
1102         int r = system_chroot(output, DESTINATION_MOUNT_PATH, cmd);
1103         if (r)
1104                 return r;
1105
1106         hw_sync();
1107
1108         return 0;
1109 }
1110
1111 static char* hw_get_uuid(const char* dev) {
1112         blkid_probe p = blkid_new_probe_from_filename(dev);
1113         const char* buffer = NULL;
1114         char* uuid = NULL;
1115
1116         if (!p)
1117                 return NULL;
1118
1119         blkid_do_probe(p);
1120         blkid_probe_lookup_value(p, "UUID", &buffer, NULL);
1121
1122         if (buffer)
1123                 uuid = strdup(buffer);
1124
1125         blkid_free_probe(p);
1126
1127         return uuid;
1128 }
1129
1130 #define FSTAB_FMT "UUID=%s %-8s %-4s %-10s %d %d\n"
1131
1132 int hw_write_fstab(struct hw_destination* dest) {
1133         FILE* f = fopen(DESTINATION_MOUNT_PATH "/etc/fstab", "w");
1134         if (!f)
1135                 return -1;
1136
1137         char* uuid = NULL;
1138
1139         // boot
1140         if (*dest->part_boot) {
1141                 uuid = hw_get_uuid(dest->part_boot);
1142
1143                 if (uuid) {
1144                         fprintf(f, FSTAB_FMT, uuid, "/boot", "auto", "defaults", 1, 2);
1145                         free(uuid);
1146                 }
1147         }
1148
1149         // ESP
1150         if (*dest->part_boot_efi) {
1151                 uuid = hw_get_uuid(dest->part_boot_efi);
1152
1153                 if (uuid) {
1154                         fprintf(f, FSTAB_FMT, uuid, "/boot/efi", "auto", "defaults", 1, 2);
1155                         free(uuid);
1156                 }
1157         }
1158
1159
1160         // swap
1161         if (*dest->part_swap) {
1162                 uuid = hw_get_uuid(dest->part_swap);
1163
1164                 if (uuid) {
1165                         fprintf(f, FSTAB_FMT, uuid, "swap", "swap", "defaults,pri=1", 0, 0);
1166                         free(uuid);
1167                 }
1168         }
1169
1170         // root
1171         uuid = hw_get_uuid(dest->part_root);
1172         if (uuid) {
1173                 fprintf(f, FSTAB_FMT, uuid, "/", "auto", "defaults", 1, 1);
1174                 free(uuid);
1175         }
1176
1177         fclose(f);
1178
1179         return 0;
1180 }
1181
1182 void hw_sync() {
1183         sync();
1184         sync();
1185         sync();
1186 }
1187
1188 int hw_start_networking(const char* output) {
1189         return mysystem(output, "/usr/bin/start-networking.sh");
1190 }
1191
1192 char* hw_find_backup_file(const char* output, const char* search_path) {
1193         char path[STRING_SIZE];
1194
1195         snprintf(path, sizeof(path), "%s/backup.ipf", search_path);
1196         int r = access(path, R_OK);
1197
1198         if (r == 0)
1199                 return strdup(path);
1200
1201         return NULL;
1202 }
1203
1204 int hw_restore_backup(const char* output, const char* backup_path, const char* destination) {
1205         char command[STRING_SIZE];
1206
1207         snprintf(command, sizeof(command), "/bin/tar xzpf %s -C %s", backup_path, destination);
1208         int rc = mysystem(output, command);
1209
1210         if (rc)
1211                 return -1;
1212
1213         return 0;
1214 }