/* subroutines for handling mountlist
   $Id: mondo-rstr-mountlist.c 3611 2016-11-10 20:09:54Z 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: mondo-rstr-mountlist.c 3611 2016-11-10 20:09:54Z bruno $";

/**
 * @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 device_copies = 0;
	int i = 0;
	int cur_sp_no = 0;
	int prev_sp_no = 0;
	int foundsome = FALSE;

	/*@ buffers ******************************************************** */
	char tmp = NULL;
	char tmp1 = NULL;
	char device[MAX_STR_LEN];

	char *flaws_str = NULL;

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

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

	/*@ 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) {
		sprintf(device, "%s%c", drive, cur_sp_no);
		if (find_device_in_mountlist(mountlist, device) >= 0)
			foundsome = TRUE;
	}
	if (foundsome) {
		for (cur_sp_no = 'a'; cur_sp_no < 'z'; ++cur_sp_no) {
			sprintf(device, "%s%c", drive, 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, tmp);
				mr_free(tmp);
				res++;
			}
			/* does partition /dev/adXsYZ exist more than once in the mountlist? */
			for (i = 0, device_copies = 0;
				 i < mountlist->entries; i++) {
				if (!strcmp(device, mountlist->el[i].device)) {
					device_copies++;
				}
			}
			if (device_copies > 1) {
				tmp1 = number_to_text(device_copies);
				mr_asprintf(tmp, " %s %s's.", tmp1, device);
				mr_free(tmp1);
				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++;
			}
			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++) {
		build_partition_name(device, 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++) {
			sprintf(device, "%ss%i%c", device, curr_part_no, cur_sp_no);
			if (find_device_in_mountlist(mountlist, device) >= 0)
				npos++;
		}
		if (((pos >= 0) || npos) && foundsome) {
			mr_strcat(flaws_str, " %s has both DD and PC-style partitions.", drive);
			return(flaws_str);		// fatal error
		}

		build_partition_name(device, 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++;
			}
			mr_free(part_table_fmt);

			/* does partition /dev/adXsY exist more than once in the mountlist? */
			for (i = 0, device_copies = 0;
				 i < mountlist->entries; i++) {
				if (!strcmp(device, mountlist->el[i].device)) {
					device_copies++;
				}
			}
			if (device_copies > 1) {
				tmp1 = number_to_text(device_copies);
				mr_asprintf(tmp, " %s %s's.", tmp1, device);
				mr_free(tmp1);
				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) {
				sprintf(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, device_copies = 0;
					 i < mountlist->entries; i++) {
					if (!strcmp(device, mountlist->el[i].device)) {
						device_copies++;
					}
				}
				if (device_copies > 1) {
					tmp1 = number_to_text(device_copies);
					mr_asprintf(tmp, " %s %s's.", tmp1, device);
					mr_free(tmp1);
					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;
			}
		}

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

		/* This should only happen at the end but not tested now */
		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);

			/* Do we have more than 1 MB per partition ? */
			if (amount_allocated - physical_drive_size <= curr_part_no) {
				/* Probably a rouding error, just passing over 
				 * by reducing the last partition if possible */
				amount_allocated -= mountlist->el[pos].size / 1024L;
				mountlist->el[pos].size =  (mountlist->el[pos].size - curr_part_no*1024L);
				amount_allocated += mountlist->el[pos].size / 1024L;
			} else {
				mr_strcat(flaws_str, "%s", tmp);
				res++;
			}
			mr_free(tmp);
		}
		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 device_copies = 0;
	int i = 0;

	/*@ buffers ******************************************************** */
	char *tmp = NULL;
	char *tmp1 = 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", "");

	malloc_string(device);
	prev_part_no = 0;

	physical_drive_size = get_phys_size_of_drive(drive);

	if (physical_drive_size < 0) {
		if (strstr(drive,"/dev/dm-") == NULL) {
			mr_asprintf(tmp, " %s does not exist.", drive);
			log_it(tmp);
			mr_strcat(flaws_str, "%s", tmp);
			res++;
			mr_free(tmp);
			goto endoffunc;
		} else {
			log_it(" %s (dm) will be setup later on", drive);
		}
	} else {
		log_it("%s is %ld MB", drive, physical_drive_size);
	}

	/* GPT allows more than 4 primary partitions - detect partition type now */
	part_table_fmt = which_partition_format(drive);

	for (curr_part_no = 1; curr_part_no < 99; curr_part_no++) {
		build_partition_name(device, drive, curr_part_no);
		pos = find_device_in_mountlist(mountlist, device);
		if (pos < 0) {
			continue;
		}
		log_msg(2, "Processing partition %s on %s #%d in mountlist", device, drive, pos);
		/* 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++;
			}
		}
		/* 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++;
		}

		/* does partition /dev/hdNX exist more than once in the mountlist? */
		for (i = 0, device_copies = 0;
			 i < mountlist->entries; i++) {
			if (!strcmp(device, mountlist->el[i].device)) {
				device_copies++;
			}
		}
		if (device_copies > 1) {
			tmp1 = number_to_text(device_copies);
			mr_asprintf(tmp, " %s %s's.", tmp1, device);
			mr_free(tmp1);
			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(part_table_fmt);

	/* 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);
	}

  endoffunc:
	paranoid_free(device);

	if (res == 0) {
		mr_free(flaws_str);
		log_msg(2, "Fine, no error in evaluate_drive_within_mountlist");
		return (NULL);
	} else {
		log_msg(2, "Error in evaluate_drive_within_mountlist: %s", flaws_str);
		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.
 * @return The flaws string (NULL for success).
 * @see evaluate_drive_within_mountlist
 */
char *evaluate_mountlist(struct mountlist_itself *mountlist) {

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

	int currline = 0;
	int copies = 0;
	int last_copy = 0;

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

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

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

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

	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);
		}
		log_msg(8,"Entry: %d (%s)", i, drivelist->el[i].device);
		/* TODO: tmp can be NULL */
		if (tmp != NULL) {
			log_msg(8,"Adding: %s to flaws_str", tmp);
			if (flaws_str != NULL) {
				mr_strcat(flaws_str, "%s", tmp);
			} else {
				mr_asprintf(flaws_str, "%s", tmp);
			}
			mr_free(tmp);
		}
	}

	/* Look for duplicate mountpoints in mountlist. */
	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")) {
			tmp1 = number_to_text(copies);
			mr_asprintf(tmp, " %s %s's.", tmp1, curr_mountpoint);
			mr_free(tmp1);
			log_msg(8,"Adding: %s to flaws_str", tmp);
			if (flaws_str != NULL) {
				mr_strcat(flaws_str, "%s", tmp);
			} else {
				mr_asprintf(flaws_str, "%s", tmp);
			}
			mr_free(tmp);
		}
		mr_free(curr_mountpoint);
	}
	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);
	}
}


/**
 * 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, "/run") ||
			!strcmp(mountlist->el[items].device, "run") ||
			!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);
	if (!(fout = fopen(MONDO_MNTLISTCHG, "w"))) {
		log_OS_error("WMTD - Cannot openout "MONDO_MNTLISTCHG);
		return (1);
	}
	fprintf(fout, "the mountlist was changed by mondorestore\n");
	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 */