/* subroutines for handling mountlist
   $Id: libmondo-mountlist.c 1176 2007-02-16 13:16:14Z bruno $
*/


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

#include "my-stuff.h"
#include "mondostructures.h"
#include "libmondo-mountlist.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"
#include "mr_mem.h"
#include "mr_msg.h"

/*@unused@*/
//static char cvsid[] = "$Id: libmondo-mountlist.c 1176 2007-02-16 13:16:14Z 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).
 * @param flaws_str Where to put the found flaws (human-readable).
 * @return The number of flaws found (0 for success).
 * @see evaluate_mountlist
 */
int evaluate_drive_within_mountlist(struct mountlist_itself *mountlist,
									char *drive, char *flaws_str)
#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 *tmp1 = NULL;
	char *device = NULL;
	char *ndevice = NULL;
	// BERLIOS : useless ? char *mountpoint;

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

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

	/*@ initialize ***************************************************** */
	prev_part_no = 0;


	physical_drive_size = get_phys_size_of_drive(drive);

	if (physical_drive_size < 0) {
		mr_asprintf(&tmp, "%s %s does not exist.", flaw_str, drive);
		mr_free(flaw_str);
		flaws_str = tmp;
	} else {
		mr_asprintf(&tmp, "%s is %ld MB", drive, physical_drive_size);
		flaws_str = NULL;
	}
	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) {
				continue;
			}
			// BERLIOS : useless ? mr_asprintf(&mountpoint, mountlist->el[pos].mountpoint);
			/* is it too big? */
			if (curr_part_no > 'h') {
				mr_asprintf(&tmp, " Can only have up to 'h' in disklabel.");
				log_it(tmp);
				if (flaws_str) {
					mr_asprintf(&tmp1, "%s%s",flaws_str, tmp);
				} else {
					mr_asprintf(&tmp1, "%s", tmp);
				}
				mr_free(flaws_str);
				flaws_str = tmp1;
				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);
					if (flaws_str) {
						mr_asprintf(&tmp1, "%s%s",flaws_str, tmp);
					} else {
						mr_asprintf(&tmp1, "%s", tmp);
					}
					mr_free(flaws_str);
					flaws_str = tmp1;
					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);
				if (flaws_str) {
					mr_asprintf(&tmp1, "%s%s",flaws_str, tmp);
				} else {
					mr_asprintf(&tmp1, "%s", tmp);
				}
				mr_free(flaws_str);
				flaws_str = tmp1;
				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);
				if (flaws_str) {
					mr_asprintf(&tmp1, "%s%s",flaws_str, tmp);
				} else {
					mr_asprintf(&tmp1, "%s", tmp);
				}
				mr_free(flaws_str);
				flaws_str = tmp1;
				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);
				if (flaws_str) {
					mr_asprintf(&tmp1, "%s%s",flaws_str, tmp);
				} else {
					mr_asprintf(&tmp1, "%s", tmp);
				}
				mr_free(flaws_str);
				flaws_str = tmp1;
				mr_free(tmp);
				res++;
			}
			amount_allocated += mountlist->el[pos].size / 1024;
			prev_sp_no = cur_sp_no;

			mr_free(device);
		}
	}

	npos = pos = 0;
	for (curr_part_no = 1; curr_part_no < 99; curr_part_no++) {
		mr_asprintf(&device, "%ss%d", 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(&ndevice, "%ss%d%c", device, curr_part_no, cur_sp_no);
			if (find_device_in_mountlist(mountlist, ndevice) >= 0)
				npos++;
			mr_free(ndevice);
		}
		mr_free(device);

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

		mr_asprintf(&device, "%ss%d", drive, curr_part_no);
		// BERLIOS : useless ? mr_asprintf(&mountpoint, mountlist->el[pos].mountpoint);
		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);
					if (flaws_str) {
						mr_asprintf(&tmp1, "%s%s",flaws_str, tmp);
					} else {
						mr_asprintf(&tmp1, "%s", tmp);
					}
					mr_free(flaws_str);
					flaws_str = tmp1;
					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);
					if (flaws_str) {
						mr_asprintf(&tmp1, "%s%s",flaws_str, tmp);
					} else {
						mr_asprintf(&tmp1, "%s", tmp);
					}
					mr_free(flaws_str);
					flaws_str = tmp1;
					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);
				if (flaws_str) {
					mr_asprintf(&tmp1, "%s%s",flaws_str, tmp);
				} else {
					mr_asprintf(&tmp1, "%s", tmp);
				}
				mr_free(flaws_str);
				flaws_str = tmp1;
				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, tmp)) {
					log_it(tmp);
					if (flaws_str) {
						mr_asprintf(&tmp1, "%s%s",flaws_str, tmp);
					} else {
						mr_asprintf(&tmp1, "%s", tmp);
					}
					mr_free(flaws_str);
					flaws_str = tmp1;
					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);
				if (flaws_str) {
					mr_asprintf(&tmp1, "%s%s",flaws_str, tmp);
				} else {
					mr_asprintf(&tmp1, "%s", tmp);
				}
				mr_free(flaws_str);
				flaws_str = tmp1;
				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);
				if (flaws_str) {
					mr_asprintf(&tmp1, "%s%s",flaws_str, tmp);
				} else {
					mr_asprintf(&tmp1, "%s", tmp);
				}
				mr_free(flaws_str);
				flaws_str = tmp1;
				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);
				if (flaws_str) {
					mr_asprintf(&tmp1, "%s%s",flaws_str, tmp);
				} else {
					mr_asprintf(&tmp1, "%s", tmp);
				}
				mr_free(flaws_str);
				flaws_str = tmp1;
				mr_free(tmp);
				res++;
			}
		} else {
			/* Check subpartitions */
			for (cur_sp_no = 'a'; cur_sp_no < 'z'; ++cur_sp_no) {
				mr_asprintf(&device, "%ss%d%c", drive, curr_part_no, cur_sp_no);
				pos = find_device_in_mountlist(mountlist, device);
				if (pos < 0) {
					continue;
				}
				// BERLIOS : useless ? mr_asprintf(&mountpoint, mountlist->el[pos].mountpoint);
				/* is it too big? */
				if (curr_part_no > 'h') {
					mr_asprintf(&tmp,
							 " Can only have up to 'h' in disklabel.");
					log_it(tmp);
					if (flaws_str) {
						mr_asprintf(&tmp1, "%s%s",flaws_str, tmp);
					} else {
						mr_asprintf(&tmp1, "%s", tmp);
					}
					mr_free(flaws_str);
					flaws_str = tmp1;
					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);
						if (flaws_str) {
							mr_asprintf(&tmp1, "%s%s",flaws_str, tmp);
						} else {
							mr_asprintf(&tmp1, "%s", tmp);
						}
						mr_free(flaws_str);
						flaws_str = tmp1;
						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);
					if (flaws_str) {
						mr_asprintf(&tmp1, "%s%s",flaws_str, tmp);
					} else {
						mr_asprintf(&tmp1, "%s", tmp);
					}
					mr_free(flaws_str);
					flaws_str = tmp1;
					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);
					if (flaws_str) {
						mr_asprintf(&tmp1, "%s%s",flaws_str, tmp);
					} else {
						mr_asprintf(&tmp1, "%s", tmp);
					}
					mr_free(flaws_str);
					flaws_str = tmp1;
					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);
					if (flaws_str) {
						mr_asprintf(&tmp1, "%s%s",flaws_str, tmp);
					} else {
						mr_asprintf(&tmp1, "%s", tmp);
					}
					mr_free(flaws_str);
					flaws_str = tmp1;
					mr_free(tmp);
					res++;
				}
				amount_allocated += mountlist->el[pos].size / 1024;
				prev_sp_no = cur_sp_no;
			}
		}
		mr_free(device);

		/* OK, continue with main loop */
		amount_allocated += mountlist->el[pos].size / 1024;
		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);
		if (flaws_str) {
			mr_asprintf(&tmp1, "%s%s",flaws_str, tmp);
		} else {
			mr_asprintf(&tmp1, "%s", tmp);
		}
		mr_free(flaws_str);
		flaws_str = tmp1;
		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);
		if (flaws_str) {
			mr_asprintf(&tmp1, "%s%s",flaws_str, tmp);
		} else {
			mr_asprintf(&tmp1, "%s", tmp);
		}
		mr_free(flaws_str);
		flaws_str = tmp1;
		mr_free(tmp);
		/* BERLIOS: Flawed since rev 1 !! */
		res++;
	}
	if (res) {
		return (FALSE);
	} else {
		return (TRUE);
	}
}

#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 *tmp1 = NULL;
	char *device = 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);
	flaws_str = NULL;

	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);
		if (flaws_str) {
			mr_asprintf(&tmp1, "%s%s",flaws_str, tmp);
		} else {
			mr_asprintf(&tmp1, "%s", tmp);
		}
		mr_free(flaws_str);
		flaws_str = tmp1;
		res++;
		mr_msg(1, tmp);
		mr_free(tmp);
		return (FALSE);
	} else {
		mr_asprintf(&tmp, "%s is %ld MB", drive, physical_drive_size);
		log_it(tmp);
		mr_free(tmp);
	}

	for (curr_part_no = 1; curr_part_no < 99; curr_part_no++) {
		mr_asprintf(&device, "%s%d", drive, curr_part_no);
		pos = find_device_in_mountlist(mountlist, device);
		if (pos < 0) {
			continue;
		}
		if (physical_drive_size < 0) {
			mr_asprintf(&tmp, " %s refers to non-existent hardware.", device);
			if (flaws_str) {
				mr_asprintf(&tmp1, "%s%s",flaws_str, tmp);
			} else {
				mr_asprintf(&tmp1, "%s", tmp);
			}
			mr_free(flaws_str);
			flaws_str = tmp1;
			res++;
			mr_free(tmp);
			continue;
		}
		// BERLIOS : useless ? str-cpy(mountpoint, mountlist->el[pos].mountpoint);
		/* 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);
				if (flaws_str) {
					mr_asprintf(&tmp1, "%s%s",flaws_str, tmp);
				} else {
					mr_asprintf(&tmp1, "%s", tmp);
				}
				mr_free(flaws_str);
				flaws_str = tmp1;
				mr_free(tmp);
				res++;
			} else if (curr_part_no > 5
					   || (curr_part_no <= 4 && prev_part_no > 0)) {
				mr_asprintf(&tmp, " Gap between %s%d and %d.", drive,
						prev_part_no, curr_part_no);
				log_it(tmp);
				if (flaws_str) {
					mr_asprintf(&tmp1, "%s%s",flaws_str, tmp);
				} else {
					mr_asprintf(&tmp1, "%s", tmp);
				}
				mr_free(flaws_str);
				flaws_str = tmp1;
				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 %s4 is occupied.", drive);
			log_it(tmp);
			if (flaws_str) {
				mr_asprintf(&tmp1, "%s%s",flaws_str, tmp);
			} else {
				mr_asprintf(&tmp1, "%s", tmp);
			}
			mr_free(flaws_str);
			flaws_str = tmp1;
			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);
				if (flaws_str) {
					mr_asprintf(&tmp1, "%s%s",flaws_str, tmp);
				} else {
					mr_asprintf(&tmp1, "%s", tmp);
				}
				mr_free(flaws_str);
				flaws_str = tmp1;
				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);
			if (flaws_str) {
				mr_asprintf(&tmp1, "%s%s",flaws_str, tmp);
			} else {
				mr_asprintf(&tmp1, "%s", tmp);
			}
			mr_free(flaws_str);
			flaws_str = tmp1;
			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);
			if (flaws_str) {
				mr_asprintf(&tmp1, "%s%s",flaws_str, tmp);
			} else {
				mr_asprintf(&tmp1, "%s", tmp);
			}
			mr_free(flaws_str);
			flaws_str = tmp1;
			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);
			if (flaws_str) {
				mr_asprintf(&tmp1, "%s%s",flaws_str, tmp);
			} else {
				mr_asprintf(&tmp1, "%s", tmp);
			}
			mr_free(flaws_str);
			flaws_str = tmp1;
			mr_free(tmp);
			res++;
		}
		/* OK, continue with main loop */
		amount_allocated += mountlist->el[pos].size / 1024;
		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);
		if (flaws_str) {
			mr_asprintf(&tmp1, "%s%s",flaws_str, tmp);
		} else {
			mr_asprintf(&tmp1, "%s", tmp);
		}
		mr_free(flaws_str);
		flaws_str = tmp1;
		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);
		if (flaws_str) {
			mr_asprintf(&tmp1, "%s%s",flaws_str, tmp);
		} else {
			mr_asprintf(&tmp1, "%s", tmp);
		}
		mr_free(flaws_str);
		flaws_str = tmp1;
		mr_free(tmp);
		/* BERLIOS: Flawed since rev 1 !! - Is it sure ?? */
		res++;
	}

	if (res) {
		return (FALSE);
	} else {
		return (TRUE);
	}
}
#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
 */
int
evaluate_mountlist(struct mountlist_itself *mountlist, char *flaws_str_A,
				   char *flaws_str_B, char *flaws_str_C)
{

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

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

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

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

	mr_asprintf(&flaws_str, " ");

	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)) {
			mr_asprintf(&tmp, " Not evaluating %s (I don't know how yet)",
					 drivelist->el[i].device);
			log_it(tmp);
		} else {
			// This function allocates tmp
			if (!evaluate_drive_within_mountlist
				(mountlist, drivelist->el[i].device, tmp)) {
				res++;
			}
		}
		mr_asprintf(&tmp1, "%s%s", flaws_str, tmp);
		mr_free(tmp);
		mr_free(flaws_str);
		flaws_str = tmp1;
	}
	res += look_for_duplicate_mountpoints(mountlist, flaws_str);
	return (spread_flaws_across_three_lines
			(flaws_str, flaws_str_A, flaws_str_B, flaws_str_C, res));
}


/**
 * 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;
	char *tmp1 = NULL;

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

	for (currline = 0; currline < mountlist->entries; currline++) {
		mr_asprintf(&curr_mountpoint, 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);
			log_it(tmp);
			mr_asprintf(&tmp1, "%s%s",flaws_str, tmp);
			mr_free(flaws_str);
			flaws_str = tmp1;
			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;

	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, mountlist->el[lino].device);
		if (!strncmp(drive, RAID_DEVICE_STUB, strlen(RAID_DEVICE_STUB))) {
			mr_msg(8, "Not putting %s in list of drives: it's a virtual drive", drive);
			continue;
		}

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

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

		(void) truncate_to_drive_name(drive);
		for (j = 0;
			 j < noof_drives
			 && strcmp(drivelist->el[j].device, drive) != 0; j++)
			continue;
		if (j == noof_drives) {
			strcpy(drivelist->el[noof_drives++].device, drive);
		}
		mr_free(drive);

	}
	drivelist->entries = noof_drives;
	mr_msg(8, "Made list of 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;

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

	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));
				mr_asprintf(&tmp,
						 "%s is available; user may choose to add it to raid device",
						 output_list->el[items - 1].device);
				log_it(tmp);
				mr_free(tmp);
			}
		}
	}
	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;
	size_t n = 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);
	mr_getline(&incoming, &n, fin);
	log_it("Loading mountlist...");
	while (!feof(fin)) {
#if linux
		sscanf(incoming,
			   "%s %s %s %s %s",
			   mountlist->el[items].device,
			   mountlist->el[items].mountpoint,
			   mountlist->el[items].format,
			   siz, mountlist->el[items].label);
#elif __FreeBSD__
		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")
			) {
			mr_msg(1,
					"Ignoring %s in mountlist - not loading that line :) ",
					mountlist->el[items].device);
			mr_getline(&incoming, &n, fin);
			continue;
		}
		mountlist->el[items].size = atoll(siz);
		if (mountlist->el[items].device[0] != '\0'
			&& mountlist->el[items].device[0] != '#') {
			if (items >= ARBITRARY_MAXIMUM) {
				log_to_screen(_("Too many lines in mountlist.. ABORTING"));
				finish(1);
			}
			for (j = 0;
				 j < items
				 && strcmp(mountlist->el[j].device,
						   mountlist->el[items].device); j++);
			if (j < items) {
				strcat(mountlist->el[items].device, "_dup");
				mr_asprintf(&tmp,
						 "Duplicate entry in mountlist - renaming to %s",
						 mountlist->el[items].device);
				log_it(tmp);
				mr_free(tmp);
			}
			mr_asprintf(&tmp, 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);
			}
			mr_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++;
		}
		mr_getline(&incoming, &n, fin);
	}
	paranoid_fclose(fin);
	mr_free(incoming);
	mountlist->entries = items;

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

	mr_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, mountlist->el[a].device);
	mr_asprintf(&mountpoint, mountlist->el[a].mountpoint);
	mr_asprintf(&format, 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 */