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