source: MondoRescue/branches/2.2.10/mondo/src/common/libmondo-mountlist.c@ 2372

/* subroutines for handling mountlist
   $Id: libmondo-mountlist.c 2372 2009-09-08 11:44:12Z bruno $
*/


/**
 * @file
 * Functions which manipulate the mountlist.
 */

#include "my-stuff.h"
#include "mr_mem.h"
#include "mondostructures.h"
#include "libmondo-mountlist.h"
#include "lib-common-externs.h"
#include "libmondo-raid-EXT.h"
#include "libmondo-devices-EXT.h"
#include "libmondo-tools-EXT.h"
#include "libmondo-string-EXT.h"
#include "newt-specific-EXT.h"

/*@unused@*/
//static char cvsid[] = "$Id: libmondo-mountlist.c 2372 2009-09-08 11:44:12Z bruno $";

/* Reference to global bkpinfo */
extern struct s_bkpinfo *bkpinfo;

/**
 * @addtogroup mountlistGroup
 * @{
 */
/**
 * Evaluate a drive within the mountlist for flaws. For example, too many
 * primary partitions, the first logical isn't 5, duplicate partitions,
 * ovar-allocated or under-allocated, unsupported format, silly size, or
 * silly mountpoint. Under FreeBSD, this checks the disklabel too, for the above-mentioned
 * errors as well as too many BSD partitions (more than 'h').
 * @param mountlist The mountlist to check.
 * @param drive The drive to check (e.g. @c /dev/hda).
 * @return The flaws string found (NULL for success) allocated to be freed
 * @see evaluate_mountlist
 */
char *evaluate_drive_within_mountlist(struct mountlist_itself *mountlist, char *drive)
#ifdef __FreeBSD__
{
// FreeBSD-specific version of evaluate_drive_within_mountlist()
    /*@ int ************************************************************* */
    int prev_part_no = 0;
    int curr_part_no = 0;
    int pos = 0, npos = 0;
    int res = 0;
    int mountpoint_copies = 0;
    int device_copies = 0;
    int i = 0;
    int cur_sp_no = 0;
    int prev_sp_no = 0;
    int foundsome = FALSE;

    /*@ buffers ******************************************************** */
    char tmp = NULL;
    char *device = NULL;

    char *flaws_str = NULL;

    /*@ long *********************************************************** */
    long physical_drive_size = 0;
    long amount_allocated = 0;

    /*@ pointers ******************************************************* */
    char *part_table_fmt;

    /*@ initialize ***************************************************** */
    prev_part_no = 0;
    mr_asprintf(flaws_str, "%s", "");


    physical_drive_size = get_phys_size_of_drive(drive);

    if (physical_drive_size < 0) {
        mr_asprintf(tmp, " %s does not exist.", drive);
        mr_strcat(flaws_str, "%s", tmp);
    } else {
        mr_asprintf(tmp, "%s is %ld MB", drive, physical_drive_size);
    }
    log_it(tmp);
    mr_free(tmp);


    /* check DD */
    for (cur_sp_no = 'a'; cur_sp_no < 'z'; ++cur_sp_no) {
        mr_asprintf(device, "%s%c", drive, cur_sp_no);
        if (find_device_in_mountlist(mountlist, device) >= 0) {
            foundsome = TRUE;
        }
        mr_free(device);
    }
    if (foundsome) {
        for (cur_sp_no = 'a'; cur_sp_no < 'z'; ++cur_sp_no) {
            mr_asprintf(device, "%s%c", drive, cur_sp_no);
            pos = find_device_in_mountlist(mountlist, device);
            if (pos < 0) {
                mr_free(device);
                continue;
            }
            /* is it too big? */
            if (curr_part_no > 'h') {
                mr_asprintf(tmp, " Can only have up to 'h' in disklabel.");
                log_it(tmp);
                mr_strcat(flaws_str, tmp);
                mr_free(tmp);
                res++;
            }
            /* does partition /dev/adXsYZ exist more than once in the mountlist? */
            for (i = 0, mountpoint_copies = 0, device_copies = 0;
                 i < mountlist->entries; i++) {
                if (!strcmp(device, mountlist->el[i].device)) {
                    device_copies++;
                }
            }
            if (device_copies > 1) {
                mr_asprintf(tmp, " %s %s's.", number_to_text(device_copies), device);
                if (!strstr(flaws_str, tmp)) {
                    log_it(tmp);
                    mr_strcat(flaws_str, tmp);
                    res++;
                }
                mr_free(tmp);
            }
            /* silly partition size? */
            if (mountlist->el[pos].size < 8192
                && strcmp(mountlist->el[pos].mountpoint, "lvm")) {
                mr_asprintf(tmp, " %s is tiny!", device);
                log_it(tmp);
                mr_strcat(flaws_str, tmp);
                mr_free(tmp);
                res++;
            }
            /* mountpoint should begin with / unless it is swap, lvm or raid */
            if (strcmp(mountlist->el[pos].mountpoint, "swap")
                && strcmp(mountlist->el[pos].mountpoint, "lvm")
                && strcmp(mountlist->el[pos].mountpoint, "raid")
                && strcmp(mountlist->el[pos].mountpoint, "image")
                && strcmp(mountlist->el[pos].mountpoint, "none")
                && mountlist->el[pos].mountpoint[0] != '/') {
                mr_asprintf(tmp, " %s has a weird mountpoint.", device);
                log_it(tmp);
                mr_strcat(flaws_str, tmp);
                mr_free(tmp);
                res++;
            }
            /* is format sensible? */
            if (!is_this_a_valid_disk_format(mountlist->el[pos].format)) {
                mr_asprintf(tmp, " %s has unsupported format %s.", device, mountlist->el[pos].format);
                log_it(tmp);
                mr_strcat(flaws_str, tmp);
                mr_free(tmp);
                res++;
            }
            mr_free(device);

            amount_allocated += mountlist->el[pos].size / 1024L;
            prev_sp_no = cur_sp_no;
        }
    }

    npos = pos = 0;
    for (curr_part_no = 1; curr_part_no < 99; curr_part_no++) {
        device = build_partition_name(drive, curr_part_no);
        pos = find_device_in_mountlist(mountlist, device);
        npos = 0;
        for (cur_sp_no = 'a'; cur_sp_no <= 'h'; cur_sp_no++) {
            mr_asprintf(tmp, "%ss%i%c", device, curr_part_no, cur_sp_no);
            if (find_device_in_mountlist(mountlist, tmp) >= 0) {
                npos++;
            }
            mr_free(tmp);
        }
        mr_free(device);

        if (((pos >= 0) || npos) && foundsome) {
            mr_strcat(flaws_str, " %s has both DD and PC-style partitions.", drive);
            return(flaws_str);      // fatal error
        }

        device = build_partition_name(drive, curr_part_no);
        if (pos > 0 && !npos) {
            /* gap in the partition list? */
            if (curr_part_no - prev_part_no > 1) {
                if (prev_part_no == 0) {
                    mr_asprintf(tmp, " Gap prior to %s.", device);
                    log_it(tmp);
                    mr_strcat(flaws_str, "%s", tmp);
                    mr_free(tmp);
                    res++;
                } else if (curr_part_no > 5
                           || (curr_part_no <= 4 && prev_part_no > 0)) {
                    mr_asprintf(tmp, " Gap between %ss%d and %d.", drive, prev_part_no, curr_part_no);
                    log_it(tmp);
                    mr_strcat(flaws_str, "%s", tmp);
                    mr_free(tmp);
                    res++;
                }
            }
            /* GPT allows more than 4 primary partitions */
            part_table_fmt = which_partition_format(drive);
            /* no spare primary partitions to help accommodate the logical(s)? */
            if ((curr_part_no >= 5 && prev_part_no == 4)
                && (strcmp(part_table_fmt, "MBR") == 0)) {
                mr_asprintf(tmp, " Partition %ss4 is occupied.", drive);
                log_it(tmp);
                mr_strcat(flaws_str, "%s", tmp);
                mr_free(tmp);
                res++;
            }
            /* does partition /dev/adXsY exist more than once in the mountlist? */
            for (i = 0, mountpoint_copies = 0, device_copies = 0;
                 i < mountlist->entries; i++) {
                if (!strcmp(device, mountlist->el[i].device)) {
                    device_copies++;
                }
            }
            if (device_copies > 1) {
                mr_asprintf(tmp, " %s %s's.", number_to_text(device_copies), device);
                if (!strstr(flaws_str, "%s", tmp)) {
                    log_it(tmp);
                    mr_strcat(flaws_str, "%s", tmp);
                    res++;
                }
                mr_free(tmp);
            }
            /* silly partition size? */
            if (mountlist->el[pos].size < 8192
                && strcmp(mountlist->el[pos].mountpoint, "lvm")) {
                mr_asprintf(tmp, " %s is tiny!", device);
                log_it(tmp);
                mr_strcat(flaws_str, "%s", tmp);
                mr_free(tmp);
                res++;
            }
            /* mountpoint should begin with / unless it is swap, lvm or raid */
            if (strcmp(mountlist->el[pos].mountpoint, "swap")
                && strcmp(mountlist->el[pos].mountpoint, "lvm")
                && strcmp(mountlist->el[pos].mountpoint, "raid")
                && strcmp(mountlist->el[pos].mountpoint, "image")
                && strcmp(mountlist->el[pos].mountpoint, "none")
                && mountlist->el[pos].mountpoint[0] != '/') {
                mr_asprintf(tmp, " %s has a weird mountpoint.", device);
                log_it(tmp);
                mr_strcat(flaws_str, "%s", tmp);
                mr_free(tmp);
                res++;
            }
            /* is format sensible? */
            if (!is_this_a_valid_disk_format(mountlist->el[pos].format)) {
                mr_asprintf(tmp, " %s has unsupported format %s.", device, mountlist->el[pos].format);
                log_it(tmp);
                mr_strcat(flaws_str, "%s", tmp);
                mr_free(tmp);
                res++;
            }
        } else {
            /* Check subpartitions */
            for (cur_sp_no = 'a'; cur_sp_no < 'z'; ++cur_sp_no) {
                mr_free(device);
                mr_asprintf(device, "%ss%d%c", drive, curr_part_no, cur_sp_no);
                pos = find_device_in_mountlist(mountlist, device);
                if (pos < 0) {
                    continue;
                }
                /* is it too big? */
                if (curr_part_no > 'h') {
                    mr_asprintf(tmp, " Can only have up to 'h' in disklabel.");
                    log_it(tmp);
                    mr_strcat(flaws_str, "%s", tmp);
                    mr_free(tmp);
                    res++;
                }
                /* does partition /dev/adXsYZ exist more than once in the mountlist? */
                for (i = 0, mountpoint_copies = 0, device_copies = 0;
                     i < mountlist->entries; i++) {
                    if (!strcmp(device, mountlist->el[i].device)) {
                        device_copies++;
                    }
                }
                if (device_copies > 1) {
                    mr_asprintf(tmp, " %s %s's.", number_to_text(device_copies), device);
                    if (!strstr(flaws_str, tmp)) {
                        log_it(tmp);
                        mr_strcat(flaws_str, "%s", tmp);
                        res++;
                    }
                    mr_free(tmp);
                }
                /* silly partition size? */
                if (mountlist->el[pos].size < 8192
                    && strcmp(mountlist->el[pos].mountpoint, "lvm")) {
                    mr_asprintf(tmp, " %s is tiny!", device);
                    log_it(tmp);
                    mr_strcat(flaws_str, "%s", tmp);
                    mr_free(tmp);
                    res++;
                }
                /* mountpoint should begin with / unless it is swap, lvm or raid */
                if (strcmp(mountlist->el[pos].mountpoint, "swap")
                    && strcmp(mountlist->el[pos].mountpoint, "lvm")
                    && strcmp(mountlist->el[pos].mountpoint, "raid")
                    && strcmp(mountlist->el[pos].mountpoint, "image")
                    && strcmp(mountlist->el[pos].mountpoint, "none")
                    && mountlist->el[pos].mountpoint[0] != '/') {
                    mr_asprintf(tmp, " %s has a weird mountpoint.", device);
                    log_it(tmp);
                    mr_strcat(flaws_str, "%s", tmp);
                    mr_free(tmp);
                    res++;
                }
                /* is format sensible? */
                if (!is_this_a_valid_disk_format
                    (mountlist->el[pos].format)) {
                    mr_asprintf(tmp, " %s has unsupported format %s.", device, mountlist->el[pos].format);
                    log_it(tmp);
                    mr_strcat(flaws_str, "%s", tmp);
                    mr_free(tmp);
                    res++;
                }
                amount_allocated += mountlist->el[pos].size / 1024L;
                prev_sp_no = cur_sp_no;
            }
        }
        mr_free(device);

        /* OK, continue with main loop */
        amount_allocated += mountlist->el[pos].size / 1024L;
        prev_part_no = curr_part_no;
    }

    /* Over-allocated the disk? Unallocated space on disk? */
    if (amount_allocated > physical_drive_size) // Used to be +1, but what if you're 1 MB too high?
    {
        mr_asprintf(tmp, " %ld MB over-allocated on %s.", amount_allocated - physical_drive_size, drive);
        log_it(tmp);
        mr_strcat(flaws_str, "%s", tmp);
        mr_free(tmp);
        res++;
    } else if (amount_allocated < physical_drive_size - 1) {    /* NOT AN ERROR, JUST A WARNING :-) */
        mr_asprintf(tmp, " %ld MB unallocated on %s.", physical_drive_size - amount_allocated, drive);
        log_it(tmp);
        mr_strcat(flaws_str, "%s", tmp);
        mr_free(tmp);
    }
    if (res) {
        return (NULL);
    } else {
        return (flaws_str);
    }
}

#else
// Linux-specific version of evaluate_drive_within_mountlist()
{

    /*@ int ************************************************************* */
    int prev_part_no = 0;
    int curr_part_no = 0;
    int pos = 0;
    int res = 0;
    int mountpoint_copies = 0;
    int device_copies = 0;
    int i = 0;

    /*@ buffers ******************************************************** */
    char *tmp = NULL;
    char *device = NULL;
    char *flaws_str = NULL;

    /*@ long *********************************************************** */
    long physical_drive_size = 0L;
    long amount_allocated = 0L;

    /*@ pointers ******************************************************* */
    char *part_table_fmt = NULL;

    /*@ initialize ***************************************************** */
    assert_string_is_neither_NULL_nor_zerolength(drive);
    assert(mountlist != NULL);
    mr_asprintf(flaws_str, "%s", "");

    prev_part_no = 0;

    physical_drive_size = get_phys_size_of_drive(drive);

    if (physical_drive_size < 0) {
        mr_asprintf(tmp, " %s does not exist.", drive);
        log_it(tmp);
        mr_strcat(flaws_str, "%s", tmp);
        res++;
        mr_free(tmp);
        return(flaws_str);
    } else {
        log_it("%s is %ld MB", drive, physical_drive_size);
    }

    for (curr_part_no = 1; curr_part_no < 99; curr_part_no++) {
        device = build_partition_name(drive, curr_part_no);
        pos = find_device_in_mountlist(mountlist, device);
        if (pos < 0) {
            continue;
        }
        /* gap in the partition list? */
        if (curr_part_no - prev_part_no > 1) {
            if (prev_part_no == 0) {
                mr_asprintf(tmp, " Gap prior to %s.", device);
                log_it(tmp);
                mr_strcat(flaws_str, "%s", tmp);
                mr_free(tmp);
                res++;
            } else if (curr_part_no > 5
                       || (curr_part_no <= 4 && prev_part_no > 0)) {
                mr_asprintf(tmp, " Gap on %s between %d and %d.", drive, prev_part_no, curr_part_no);
                log_it(tmp);
                mr_strcat(flaws_str, "%s", tmp);
                mr_free(tmp);
                res++;
            }
        }
        /* GPT allows more than 4 primary partitions */
        part_table_fmt = which_partition_format(drive);
        /* no spare primary partitions to help accommodate the logical(s)? */
        if ((curr_part_no >= 5 && prev_part_no == 4) && (strcmp(part_table_fmt, "MBR") == 0)) {
            mr_asprintf(tmp, " Partition 4 of %s is occupied.", drive);
            log_it(tmp);
            mr_strcat(flaws_str, "%s", tmp);
            mr_free(tmp);
            res++;
        }
        mr_free(part_table_fmt);

        /* does partition /dev/hdNX exist more than once in the mountlist? */
        for (i = 0, mountpoint_copies = 0, device_copies = 0;
             i < mountlist->entries; i++) {
            if (!strcmp(device, mountlist->el[i].device)) {
                device_copies++;
            }
        }
        if (device_copies > 1) {
            mr_asprintf(tmp, " %s %s's.", number_to_text(device_copies), device);
            if (!strstr(flaws_str, tmp)) {
                log_it(tmp);
                mr_strcat(flaws_str, "%s", tmp);
                res++;
            }
            mr_free(tmp);
        }
        /* silly partition size? */
        if (mountlist->el[pos].size < 8192
            && strcmp(mountlist->el[pos].mountpoint, "lvm")) {
            mr_asprintf(tmp, " %s is tiny!", device);
            log_it(tmp);
            mr_strcat(flaws_str, "%s", tmp);
            mr_free(tmp);
            res++;
        }
        /* mountpoint should begin with / unless it is swap, lvm or raid */
        if (strcmp(mountlist->el[pos].mountpoint, "swap")
            && strcmp(mountlist->el[pos].mountpoint, "lvm")
            && strcmp(mountlist->el[pos].mountpoint, "raid")
            && strcmp(mountlist->el[pos].mountpoint, "image")
            && mountlist->el[pos].mountpoint[0] != '/') {
            mr_asprintf(tmp, " %s has a weird mountpoint.", device);
            log_it(tmp);
            mr_strcat(flaws_str, "%s", tmp);
            mr_free(tmp);
            res++;
        }
        /* is format sensible? */
        if (!is_this_a_valid_disk_format(mountlist->el[pos].format)) {
            mr_asprintf(tmp, " %s has unsupported format %s.", device, mountlist->el[pos].format);
            log_it(tmp);
            mr_strcat(flaws_str, "%s", tmp);
            mr_free(tmp);
            res++;
        }
        /* OK, continue with main loop */
        amount_allocated += mountlist->el[pos].size / 1024L;
        prev_part_no = curr_part_no;
        mr_free(device);
    }

    /* Over-allocated the disk? Unallocated space on disk? */
    if (amount_allocated > physical_drive_size + 1) {
        mr_asprintf(tmp, " %ld MB over-allocated on %s.", amount_allocated - physical_drive_size, drive);
        log_it(tmp);
        mr_strcat(flaws_str, "%s", tmp);
        mr_free(tmp);
        res++;
    } else if (amount_allocated < physical_drive_size - 1) {    /* NOT AN ERROR, JUST A WARNING :-) */
        mr_asprintf(tmp, " %ld MB unallocated on %s.", physical_drive_size - amount_allocated, drive);
        log_it(tmp);
        mr_strcat(flaws_str, "%s", tmp);
        mr_free(tmp);
    }

    if (res == 0) {
        mr_free(flaws_str);
        return (NULL);
    } else {
        return (flaws_str);
    }
}
#endif


/**
 * Evaluate a whole mountlist for flaws. Calls evaluate_drive_within_mountlist()
 * for each drive, and then spreads the flaws across three lines.
 * @param mountlist The mountlist to evaluate.
 * @param flaws_str_A Where to put the first line listing errors found.
 * @param flaws_str_B Where to put the second line listing errors found.
 * @param flaws_str_C Where to put the third line listing errors found.
 * @return The number of flaws found (0 for success).
 * @see evaluate_drive_within_mountlist
 */
char *evaluate_mountlist(struct mountlist_itself *mountlist, int *res) {

    /*@ buffer *********************************************************** */
    struct list_of_disks *drivelist;
    char *tmp = NULL;
    char *flaws_str = NULL;

    /*@ int ************************************************************** */
    int i = 0;

    /*@ initialize ******************************************************* */

    *res = 0;
    drivelist = malloc(sizeof(struct list_of_disks));
    assert(mountlist != NULL);

    mr_asprintf(flaws_str, "%s", "");

    make_list_of_drives_in_mountlist(mountlist, drivelist);

    log_it("Evaluating mountlist...");

    for (i = 0; i < drivelist->entries; i++) {
        if (strstr
            (drivelist->el[i].device,
             DONT_KNOW_HOW_TO_EVALUATE_THIS_DEVICE_TYPE)) {
            log_it(" Not evaluating %s (I don't know how yet)", drivelist->el[i].device);
        } else {
            log_msg(8, "Evaluating drive #%d (%s) within mountlist", i, drivelist->el[i].device);
            tmp = evaluate_drive_within_mountlist(mountlist, drivelist->el[i].device);
            if (tmp != NULL) {
                (*res)++;
            }
        }
        log_msg(8,"Entry: %d (%s)", i, drivelist->el[i].device);
        /* BCO: tmp can be NULL */
        if (tmp != NULL) {
            log_msg(8,"Adding: %s to %s", tmp, flaws_str);
            mr_strcat(flaws_str, "%s", tmp);
            mr_free(tmp);
        }
    }
    *res += look_for_duplicate_mountpoints(mountlist, flaws_str);
    return(flaws_str);
}


/**
 * Find the index number of @p device in the mountlist.
 * The device given must match @p mountlist->el[N].device exactly, case-sensitive.
 * @param mountlist The mountlist to search in.
 * @param device The device to search for.
 * @return The zero-based index of the device, or -1 if it could not be found.
 */
int
find_device_in_mountlist(struct mountlist_itself *mountlist, char *device)
{

    /*@ int ************************************************************** */
    int i = 0;

    assert(mountlist != NULL);
    assert_string_is_neither_NULL_nor_zerolength(device);
    for (i = 0;
         i < mountlist->entries
         && strcmp(mountlist->el[i].device, device) != 0; i++);

    if (i == mountlist->entries) {
        return (-1);
    } else {
        return (i);
    }
}


/**
 * Look for duplicate mountpoints in @p mountlist.
 * @param mountlist The mountlist to check.
 * @param flaws_str The flaws string to append the results to.
 * @return The number of mountpoints that have duplicates, or 0 for success.
 */
int
look_for_duplicate_mountpoints(struct mountlist_itself *mountlist, char *flaws_str)
{

    /*@ int ************************************************************* */
    int res = 0;
    int currline = 0;
    int i = 0;
    int copies = 0;
    int last_copy = 0;

    /*@ buffetr ********************************************************* */
    char *curr_mountpoint = NULL;
    char *tmp = NULL;

    assert(mountlist != NULL);
    assert(flaws_str != NULL);

    for (currline = 0; currline < mountlist->entries; currline++) {
        mr_asprintf(curr_mountpoint, "%s", mountlist->el[currline].mountpoint);
        for (i = 0, copies = 0, last_copy = -1; i < mountlist->entries;
             i++) {
            if (!strcmp(mountlist->el[i].mountpoint, curr_mountpoint)
                && strcmp(mountlist->el[i].mountpoint, "lvm")
                && strcmp(mountlist->el[i].mountpoint, "swap")) {
                last_copy = i;
                copies++;
            }
        }
        if (copies > 1 && last_copy == currline
            && strcmp(curr_mountpoint, "raid")) {
            mr_asprintf(tmp, " %s %s's.", number_to_text(copies), curr_mountpoint);
            mr_strcat(flaws_str, "%s", tmp);
            log_it(tmp);
            mr_free(tmp);
            res++;
        }
        mr_free(curr_mountpoint);
    }
    return (res);
}


/**
 * Make a list of the drives mentioned in the mountlist.
 * @param mountlist The mountlist to examine.
 * @param drivelist Where to put the list of drives found.
 * @return The number of physical (non-RAID non-LVM) drives found, or \<= 0 for error.
 */
int
make_list_of_drives_in_mountlist(struct mountlist_itself *mountlist,
                                 struct list_of_disks *drivelist)
{

    /*@ int ************************************************************* */
    int lino;
    int noof_drives;
    int j;

    /*@ buffers ********************************************************* */
    char *drive = NULL;
    char *truncdrive = NULL;

    long long size;

    assert(mountlist != NULL);
    assert(drivelist != NULL);
    log_it("Making list of drives");
    for (lino = 0, noof_drives = 0; lino < mountlist->entries; lino++) {

        mr_asprintf(drive, "%s", mountlist->el[lino].device);
        if (!strncmp(drive, RAID_DEVICE_STUB, strlen(RAID_DEVICE_STUB))) {
            log_msg(8, "Not putting %s in list of drives: it's a virtual drive", drive);
            mr_free(drive);
            continue;
        }

        size = mountlist->el[lino].size;
        if (size == 0) {
            log_msg(8, "Not putting %s in list of drives: it has zero size (maybe an LVM volume)", drive);
            mr_free(drive);
            continue;
        }

        log_msg(8, "Putting %s with size %lli in list of drives", drive, size);

        /* memory allocation */
        truncdrive = truncate_to_drive_name(drive);
        mr_free(drive);

        log_msg(8, "drive truncated to %s", truncdrive);

        for (j = 0;
             j < noof_drives
             && strcmp(drivelist->el[j].device, truncdrive) != 0; j++) {
            continue;
        }
        if (j == noof_drives) {
            strncpy(drivelist->el[noof_drives].device, truncdrive, 63);
            drivelist->el[noof_drives].device[63] = '\0';
            log_msg(8,"Adding drive %s to list", drivelist->el[noof_drives].device);
            noof_drives++;
        }
        paranoid_free(truncdrive);
        if (noof_drives >= MAXIMUM_DISKS_PER_RAID_DEV) {
            log_msg(0, "Unable to handle mountlist with more than %d lines", MAXIMUM_DISKS_PER_RAID_DEV);
            log_to_screen("Unable to handle a so big mountlist");
            finish(1);
        }
    }
    drivelist->entries = noof_drives;
    log_msg(8, "Made list of %d drives",noof_drives);

    return (noof_drives);
}


/**
 * Make a list of RAID partitions not currently associated with any RAID device.
 * The user may add any of these partitions to the RAID device.
 * @param output_list Where to put the list of unallocated RAID partitions.
 * @param mountlist The mountlist to examine.
 * @param raidlist The raidlist to examine.
 */
void make_list_of_unallocated_raid_partitions(struct mountlist_itself
                                              *output_list,
                                              struct mountlist_itself
                                              *mountlist,
                                              struct raidlist_itself
                                              *raidlist)
{

    /*@ int ************************************************************* */
    int items = 0;
    int i = 0;
    int used_by = 0;

    assert(output_list != NULL);
    assert(mountlist != NULL);
    assert(raidlist != NULL);
    log_it("MLOURP -- starting");
    items = 0;


    for (i = 0; i < mountlist->entries; i++) {
        if (strstr(mountlist->el[i].mountpoint, "raid")) {
            used_by = which_raid_device_is_using_this_partition(raidlist,
                                                          mountlist->el[i].
                                                          device);
            if (used_by < 0) {
                memcpy((void *) &output_list->el[items++],
                       (void *) &mountlist->el[i],
                       sizeof(struct mountlist_line));
                log_it("%s is available; user may choose to add it to raid device", output_list->el[items - 1].device);
            }
        }
    }
    output_list->entries = items;
    log_it("MLUORP -- ending");
}


/**
 * Get the size of a mountlist entry by the @c device field.
 * @param mountlist The mountlist to search in.
 * @param device The device to search for
 * @return The size of the device (in KB), or -1 if it could not be found.
 */
long long
size_of_specific_device_in_mountlist(struct mountlist_itself *mountlist,
                                     char *device)
{
    /*@ int ************************************************************** */
    int i = 0;


    assert(mountlist != NULL);
    assert_string_is_neither_NULL_nor_zerolength(device);

    for (i = 0;
         i < mountlist->entries && strcmp(mountlist->el[i].device, device);
         i++);
    if (i == mountlist->entries) {
        return (-1);
    } else {
        return (mountlist->el[i].size);
    }
}


/**
 * Load a file on disk into @p mountlist.
 * The file on disk should consist of multiple lines, each containing 4 or 5
 * columns: the device, the mountpoint, the filesystem type, the size in kilobytes, and optionally the filesystem label.
 * Comments begin with a '#' without any leading whitespace. Any duplicate
 * entries are renamed.
 * @param mountlist The mountlist to load into.
 * @param fname The name of the file to load the mountlist from.
 * @return 0 for success, 1 for failure.
 */
int load_mountlist(struct mountlist_itself *mountlist, char *fname)
{
    FILE *fin = NULL;
    /* malloc ** */
    char *incoming = NULL;
    char *siz = NULL;
    char *tmp = NULL;
    char *p = NULL;

    int items = 0;
    int j = 0;
    int res = 0;

    assert(mountlist != NULL);
    assert_string_is_neither_NULL_nor_zerolength(fname);

    if (!(fin = fopen(fname, "r"))) {
        log_it("Unable to open mountlist - '%s'", fname);
        log_to_screen("Cannot open mountlist");
        return (1);
    }
    malloc_string(siz);
    log_it("Loading mountlist...");
    mr_getline(incoming, fin);
    while (!feof(fin)) {
#if linux
        res = sscanf(incoming, "%s %s %s %s %s", mountlist->el[items].device, mountlist->el[items].mountpoint, mountlist->el[items].format, siz, mountlist->el[items].label);
        if (res < 5) {
            /* no label found */
            log_msg(4, "no label found for %s",mountlist->el[items].device);
            strcpy(mountlist->el[items].label,"");
        }
#elif __FreeBSD__
        res = sscanf(incoming, "%s %s %s %s", mountlist->el[items].device, mountlist->el[items].mountpoint, mountlist->el[items].format, siz);
        strcpy(mountlist->el[items].label,"");
#endif

        if (!strcmp(mountlist->el[items].device, "/proc") ||
            !strcmp(mountlist->el[items].device, "proc") ||
            !strcmp(mountlist->el[items].device, "/sys") ||
            !strcmp(mountlist->el[items].device, "sys") ||
            !strcmp(mountlist->el[items].device, "/devpts") ||
            !strcmp(mountlist->el[items].device, "devpts")
            ) {
            log_msg(1, "Ignoring %s in mountlist - not loading that line :) ", mountlist->el[items].device);
            mr_free(incoming);
            mr_getline(incoming, fin);
            continue;
        }
        mountlist->el[items].size = atoll(siz);
        if (mountlist->el[items].device[0] != '\0'
            && mountlist->el[items].device[0] != '#') {
            for (j = 0;
                 j < items
                 && strcmp(mountlist->el[j].device,
                           mountlist->el[items].device); j++);
            if (j < items) {
                strcat(mountlist->el[items].device, "_dup");
                log_it("Duplicate entry in mountlist - renaming to %s", mountlist->el[items].device);
            }
            mr_asprintf(tmp, "%s", mountlist->el[items].device);
            if (strstr(tmp, "/dev/md/")) {
                log_it("format_device() --- Contracting %s", tmp);
                p = strrchr(tmp, '/');
                if (p) {
                    *p = *(p + 1);
                    *(p + 1) = *(p + 2);
                    *(p + 2) = *(p + 3);
                }
                log_it("It was %s; it is now %s", mountlist->el[items].device, tmp);
                strcpy(mountlist->el[items].device, tmp);
            }
            paranoid_free(tmp);

            log_it("%s %s %s %lld %s", mountlist->el[items].device, mountlist->el[items].mountpoint, mountlist->el[items].format, mountlist->el[items].size, mountlist->el[items].label);
            items++;
            if (items >= MAX_MOUNTLIST_ENTRIES) {
                log_to_screen("Too many lines in mountlist.. ABORTING");
                finish(1);
            }
        }
        mr_free(incoming);
        mr_getline(incoming, fin);
    }
    mr_free(incoming);
    paranoid_fclose(fin);
    mountlist->entries = items;

    log_it("Mountlist loaded successfully.");
    log_it("%d entries in mountlist", items);

    paranoid_free(siz);
    return (0);
}



/**
 * Save @p mountlist to a file on disk.
 * @param mountlist The mountlist to save.
 * @param fname The file to save it to.
 * @return 0 for success, 1 for failure.
 * @see load_mountlist
 */
int save_mountlist_to_disk(struct mountlist_itself *mountlist, char *fname)
{
    FILE *fout;
    int i;

    assert(mountlist != NULL);
    assert_string_is_neither_NULL_nor_zerolength(fname);

    log_it("save_mountlist_to_disk() --- saving to %s", fname);
    if (!(fout = fopen(fname, "w"))) {
        log_OS_error("WMTD - Cannot openout mountlist");
        return (1);
    }
    for (i = 0; i < mountlist->entries; i++) {
        fprintf(fout,
                "%-15s %-15s %-15s %-15lld %-15s\n",
                mountlist->el[i].device, mountlist->el[i].mountpoint,
                mountlist->el[i].format, mountlist->el[i].size,
                mountlist->el[i].label);
    }
    paranoid_fclose(fout);
    return (0);
}


/**
 * Sort the mountlist alphabetically by device.
 * The sorting is done in-place.
 * @param mountlist The mountlist to sort.
 */
void sort_mountlist_by_device(struct mountlist_itself *mountlist)
{
    int diff;
    int lino = -999;

    assert(mountlist != NULL);

    while (lino < mountlist->entries) {
        for (lino = 1; lino < mountlist->entries; lino++) {
            diff =
                strcmp_inc_numbers(mountlist->el[lino - 1].device,
                                   mountlist->el[lino].device);
            if (diff > 0) {
                swap_mountlist_entries(mountlist, lino - 1, lino);
                break;
            }
        }
    }
}


/**
 * Sort the mountlist alphabetically by mountpoint.
 * The sorting is done in-place.
 * @param mountlist The mountlist to sort.
 * @param reverse If TRUE, then do a reverse sort.
 */
void
sort_mountlist_by_mountpoint(struct mountlist_itself *mountlist,
                             bool reverse)
{
    int diff;
    int lino = -999;

    assert(mountlist != NULL);

    while (lino < mountlist->entries) {
        for (lino = 1; lino < mountlist->entries; lino++) {
            diff =
                strcmp(mountlist->el[lino - 1].mountpoint,
                       mountlist->el[lino].mountpoint);
            if ((diff > 0 && !reverse) || ((diff < 0 && reverse))) {
                swap_mountlist_entries(mountlist, lino - 1, lino);
                break;
            }
        }
    }
}


/**
 * Swap two entries in the mountlist in-place.
 * @param mountlist The mountlist to swap the entries in.
 * @param a The index number of the first entry.
 * @param b The index number of the second entry.
 */
void
swap_mountlist_entries(struct mountlist_itself *mountlist, int a, int b)
{
    /*@ mallocs *** */
    char *device = NULL;
    char *mountpoint = NULL;
    char *format = NULL;

    long long size;

    assert(mountlist != NULL);
    assert(a >= 0);
    assert(b >= 0);

    mr_asprintf(device, "%s", mountlist->el[a].device);
    mr_asprintf(mountpoint, "%s", mountlist->el[a].mountpoint);
    mr_asprintf(format, "%s", mountlist->el[a].format);

    size = mountlist->el[a].size;

    strcpy(mountlist->el[a].device, mountlist->el[b].device);
    strcpy(mountlist->el[a].mountpoint, mountlist->el[b].mountpoint);
    strcpy(mountlist->el[a].format, mountlist->el[b].format);

    mountlist->el[a].size = mountlist->el[b].size;

    strcpy(mountlist->el[b].device, device);
    strcpy(mountlist->el[b].mountpoint, mountpoint);
    strcpy(mountlist->el[b].format, format);

    mountlist->el[b].size = size;
    mr_free(device);
    mr_free(mountpoint);
    mr_free(format);
}

/* @} - end of mountlistGroup */