/* $Id: libmondo-verify.c 1770 2007-11-06 10:01:53Z bruno $ */
/**
 * @file
 * Functions for verifying backups (booted from hard drive, not CD).
 */

#include <unistd.h>

#include "my-stuff.h"
#include "mr_mem.h"
#include "mr_msg.h"
#include "mr_gettext.h"

#include "mondostructures.h"
#include "libmondo-verify.h"
#include "newt-specific-EXT.h"
#include "libmondo-files-EXT.h"
#include "libmondo-fork-EXT.h"
#include "libmondo-stream-EXT.h"
#include "libmondo-string-EXT.h"
#include "libmondo-devices-EXT.h"
#include "libmondo-tools-EXT.h"

/*@unused@*/
//static char cvsid[] = "$Id: libmondo-verify.c 1770 2007-11-06 10:01:53Z bruno $";

/**
 * The number of the most recently verified afioball.
 * @ingroup globalGroup
 */
int g_last_afioball_number = -1;

extern char *g_getfacl;
extern char *g_getfattr;
extern char *MONDO_LOGFILE;

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


/**
 * Generate the filename of a tarball to verify.
 * @param bkpinfo The backup information structure. @c bkpinfo->compression_suffix is the only field used.
 * @param mountpoint The directory where the CD/DVD/ISO is mounted.
 * @param setno The afioball number to get the location of.
 * @return The absolute path to the afioball.
 * @note The returned string points to static data that will be overwritten with each call.
 * @ingroup stringGroup
 */
char *vfy_tball_fname(char *mountpoint, int setno)
{
	/*@ buffers ******************************************************* */
	static char output[MAX_STR_LEN];

	assert(bkpinfo != NULL);
	assert_string_is_neither_NULL_nor_zerolength(mountpoint);
	sprintf(output, "%s/archives/%d.star.%s", mountpoint, setno,
			bkpinfo->compression_suffix);
	if (!does_file_exist(output)) {
		sprintf(output, "%s/archives/%d.afio.%s", mountpoint, setno,
				bkpinfo->compression_suffix);
	}
	return (output);
}


/**
 * Generate a list of the files that have changed, based on @c afio @c -r
 * messages.
 * @param changedfiles_fname Filename of the place to put a list of afio's reported changed.
 * @param ignorefiles_fname Filename of a list of files to ignore (use "" if none).
 * @param stderr_fname File containing afio's stderr output.
 * @return The number of differences found (0 for a perfect backup).
 * @bug This function seems orphaned.
 * @ingroup utilityGroup
 */
long
generate_list_of_changed_files(char *changedfiles_fname,
							   char *ignorefiles_fname, char *stderr_fname)
{
	/*@ buffer ********************************************************** */
	char *command = NULL;
	char *afio_found_changes = NULL;

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

	/*@ long ************************************************************ */
	long afio_diffs = 0;

	assert_string_is_neither_NULL_nor_zerolength(changedfiles_fname);
	assert_string_is_neither_NULL_nor_zerolength(ignorefiles_fname);
	assert_string_is_neither_NULL_nor_zerolength(stderr_fname);

	mr_asprintf(&afio_found_changes, "%s.afio", ignorefiles_fname);
	sync();


	mr_msg(1, "Now scanning log file for 'afio: ' stuff");
	mr_asprintf(&command,
			 "grep \"afio: \" %s | sed 's/afio: //' | grep -vE '^/dev/.*$' >> %s",
			 stderr_fname, afio_found_changes);
	mr_msg(2, command);
	res = system(command);
	mr_free(command);
	if (res) {
		mr_msg(2, "Warning - failed to think");
	}

	mr_msg(1, "Now scanning log file for 'star: ' stuff");
	mr_asprintf(&command,
			 "grep \"star: \" %s | sed 's/star: //' | grep -vE '^/dev/.*$' >> %s",
			 stderr_fname, afio_found_changes);
	mr_msg(2, command);
	res = system(command);
	mr_free(command);
	if (res) {
		mr_msg(2, "Warning - failed to think");
	}
//  exclude_nonexistent_files (afio_found_changes);
	afio_diffs = count_lines_in_file(afio_found_changes);
	mr_asprintf(&command,
			 "sort %s %s %s | uniq -c | awk '{ if ($1==\"2\") {print $2;};}' | grep -v \"incheckentry xwait()\" > %s",
			 ignorefiles_fname, afio_found_changes, afio_found_changes,
			 changedfiles_fname);
	mr_msg(2, command);
	paranoid_system(command);
	mr_free(command);
	mr_free(afio_found_changes);
	return (afio_diffs);
}


/**
 * @addtogroup LLverifyGroup
 * @{
 */
/**
 * Verify all afioballs stored on the inserted CD (or an ISO image).
 * @param bkpinfo The backup information structure. @c bkpinfo->backup_media_type
 * is used in this function, and the structure is also passed to verify_an_afioball_from_CD().
 * @param mountpoint The location the CD/DVD/ISO is mounted on.
 * @return The number of sets containing differences (0 for success).
 */
int verify_afioballs_on_CD(char *mountpoint)
{

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

	/*@ int ************************************************************* */
	int set_number = 0;
	int retval = 0;
	int total_sets = 0;
	int percentage = 0;

	assert_string_is_neither_NULL_nor_zerolength(mountpoint);
	assert(bkpinfo != NULL);

	for (set_number = 0;
		 set_number < 9999
		 &&
		 !does_file_exist(vfy_tball_fname(mountpoint, set_number));
		 set_number++);
	if (!does_file_exist(vfy_tball_fname(mountpoint, set_number))) {
		return (0);
	}

	if (g_last_afioball_number != set_number - 1) {
		if (set_number == 0) {
			mr_msg(1,
					"Weird error in verify_afioballs_on_CD() but it's really a cosmetic error, nothing more");
		} else {
			retval++;
			mr_asprintf(&tmp, "Warning - missing set(s) between %d and %d\n",
					 g_last_afioball_number, set_number - 1);
			log_to_screen(tmp);
			mr_free(tmp);
		}
	}
	mr_asprintf(&tmp, "Verifying %s #%d's tarballs",
			 bkpinfo->backup_media_string,
			 g_current_media_number);
	open_evalcall_form(tmp);
	mr_free(tmp);

	for (total_sets = set_number;
		 does_file_exist(vfy_tball_fname(mountpoint, total_sets));
		 total_sets++) {
		mr_msg(1, "total_sets = %d", total_sets);
	}
	for (;
		 does_file_exist(vfy_tball_fname(mountpoint, set_number));
		 set_number++) {
		percentage =
			(set_number - g_last_afioball_number) * 100 / (total_sets -
														   g_last_afioball_number);
		update_evalcall_form(percentage);
		mr_msg(1, "set = %d", set_number);
		retval +=
			verify_an_afioball_from_CD(vfy_tball_fname(mountpoint, set_number));
	}
	g_last_afioball_number = set_number - 1;
	close_evalcall_form();
	return (retval);
}

/**
 * Verify all slices stored on the inserted CD (or a mounted ISO image).
 * @param bkpinfo The backup information structure. Fields used:
 * - @c compression_level
 * - @c restore_path
 * - @c compression_suffix
 * @param mtpt The mountpoint the CD/DVD/ISO is mounted on.
 * @return The number of differences (0 for perfect biggiefiles).
 */
int verify_all_slices_on_CD(char *mtpt)
{

	/*@ buffer ********************************************************** */
	char *tmp = NULL;
	char *tmp2 = NULL;
	char *mountpoint = NULL;
	char *command = NULL;
	static char *bufblkA = NULL;
	static char *bufblkB = NULL;
	const long maxbufsize = 65536L;
	long currsizA = 0L;
	long currsizB = 0L;
	long j = 0L;
	long bigfile_num = 0L;
	long slice_num = -1;
	int res = 0;

	static FILE *forig = NULL;
	static struct s_filename_and_lstat_info biggiestruct;
	static long last_bigfile_num = -1;
	static long last_slice_num = -1;
	FILE *pin = NULL;
	FILE *fin = NULL;
	int retval = 0;

	if (!bufblkA) {
		bufblkA = mr_malloc(maxbufsize);
	}
	if (!bufblkB) {
		bufblkB = mr_malloc(maxbufsize);
	}

	assert(bkpinfo != NULL);
	assert_string_is_neither_NULL_nor_zerolength(mtpt);

	iamhere("before vsbf");
	mr_asprintf(&tmp, "Verifying %s#%d's big files",
			 bkpinfo->backup_media_string,
			 g_current_media_number);
	open_evalcall_form(tmp);
	mr_free(tmp);

	iamhere("after vsbf");
	mr_asprintf(&mountpoint, "%s/archives", mtpt);
	if (last_bigfile_num == -1) {
		bigfile_num = 0;
		slice_num = 0;
	} else if (slice_num == 0) {
		bigfile_num = last_bigfile_num + 1;
		slice_num = 0;
	} else {
		bigfile_num = last_bigfile_num;
		slice_num = last_slice_num + 1;
	}
	while (does_file_exist
		   (slice_fname
			(bigfile_num, slice_num, mountpoint, bkpinfo->compression_suffix))
		   ||
		   does_file_exist(slice_fname
						   (bigfile_num, slice_num, mountpoint, ""))) {
		// handle slices until end of CD
		if (slice_num == 0) {
			mr_msg(2, "ISO=%d  bigfile=%ld --START--",
					g_current_media_number, bigfile_num);
			if (!
				(fin =
				 fopen(slice_fname(bigfile_num, slice_num, mountpoint, ""),
					   "r"))) {
				mr_msg(2, "Cannot open bigfile's info file");
			} else {
				if (fread
					((void *) &biggiestruct, 1, sizeof(biggiestruct),
					 fin) < sizeof(biggiestruct)) {
					mr_msg(2, "Unable to get biggiestruct");
				}
				paranoid_fclose(fin);
			}
			mr_asprintf(&tmp2, "%s/%s", bkpinfo->restore_path,
					 biggiestruct.filename);
			mr_msg(2, "Opening biggiefile #%ld - '%s'", bigfile_num, tmp2);
			if (!(forig = fopen(tmp2, "r"))) {
				mr_msg(2, "Failed to open bigfile. Darn.");
				log_to_screen(_("%s/%s not found on live filesystem"),
							bkpinfo->restore_path,
							biggiestruct.filename);
				mr_asprintf(&tmp, "echo \"%s/%s not found\" >> %s/biggies.changed",
							bkpinfo->restore_path,
							biggiestruct.filename,
							bkpinfo->tmpdir);
				system(tmp);
				mr_free(tmp);

				bigfile_num++;
				slice_num = 0;
				retval++;
			} else {
				slice_num++;
			}
			mr_free(tmp2);
		} else if (does_file_exist(slice_fname(bigfile_num, slice_num, mountpoint, "")) &&
				   (length_of_file(slice_fname(bigfile_num, slice_num, mountpoint, "")) == 0)) {
			mr_msg(2, "ISO=%d  bigfile=%ld ---END---",
					g_current_media_number, bigfile_num);
			bigfile_num++;
			paranoid_fclose(forig);
			slice_num = 0;
		} else {
			mr_msg(2, "ISO=%d  bigfile=%ld  slice=%ld",
					g_current_media_number, bigfile_num, slice_num);
			if (!does_file_exist(slice_fname(bigfile_num, slice_num, mountpoint, ""))) {
				mr_asprintf(&command, "%s -dc %s 2>> %s", bkpinfi->compression_tool,
						slice_fname(bigfile_num, slice_num, mountpoint, bkpinfo->compression_suffix),
						MONDO_LOGFILE);
			} else {
				/* can we set up bkpinfo->compression_level = 0 
				 * without needing '-0' on command line?
				 * here and in afio verify */
				mr_asprintf(&command, "cat %s 2>> %s",
						slice_fname(bigfile_num, slice_num, mountpoint, ""), MONDO_LOGFILE);
			}
			if ((pin = popen(command, "r"))) {
				res = 0;
				while (!feof(pin)) {
					currsizA = fread(bufblkA, 1, maxbufsize, pin);
					if (currsizA <= 0) {
						break;
					}
					currsizB = fread(bufblkB, 1, currsizA, forig);
					if (currsizA != currsizB) {
						res++;
					} else {
						for (j = 0;
							 j < currsizA && bufblkA[j] == bufblkB[j];
							 j++);
						if (j < currsizA) {
							res++;
						}
					}
				}
				paranoid_pclose(pin);
				if (res && !strncmp(biggiestruct.filename, "/dev/", 5)) {
					mr_msg(3,
							"Ignoring differences between %s and live filesystem because it's a device and therefore the archives are stored via ntfsclone, not dd.",
							biggiestruct.filename);
					mr_msg(3,
							"If you really want verification for %s, please contact the devteam and offer an incentive.",
							biggiestruct.filename);
					res = 0;
				}
				if (res) {
					mr_msg(0,
							"afio: \"%s\": Corrupt biggie file, says libmondo-archive.c",
							biggiestruct.filename);
					retval++;
				}
			}
			mr_free(command);
			slice_num++;
		}
	}
	mr_free(tmp);
	mr_free(mountpoint);

	last_bigfile_num = bigfile_num;
	last_slice_num = slice_num - 1;
	if (last_slice_num < 0) {
		last_bigfile_num--;
	}
	close_evalcall_form();
	if (bufblkA) {
		mr_free(bufblkA);
	}
	if (bufblkB) {
		mr_free(bufblkB);
	}
	return (0);
}


/**
 * Verify one afioball from the CD.
 * You should be changed to the root directory (/) for this to work.
 * @param bkpinfo The backup information structure. Fields used:
 * - @c bkpinfo->tmpdir
 * - @c bkpinfo->compression_tool
 * - @c bkpinfo->compression_suffix
 * @param tarball_fname The filename of the afioball to verify.
 * @return 0, always.
 */
int verify_a_tarball(char *tarball_fname)
{
	/*@ buffers ********************************************************* */
	char *command = NULL;
	char *outlog = NULL;
	char *tmp = NULL;

	/*@ pointers ******************************************************* */
	FILE *pin = NULL;

	size_t n = 0;

	/*@ long *********************************************************** */
	long diffs = 0;

	assert(bkpinfo != NULL);
	assert_string_is_neither_NULL_nor_zerolength(tarball_fname);

	log_it("Verifying fileset '%s'", tarball_fname);

	mr_asprintf(&outlog, "%s/afio.log", bkpinfo->tmpdir);
	unlink(outlog);

	if (strstr(tarball_fname, ".star")) {
		bkpinfo->use_star = TRUE;
		if (strstr(tarball_fname, ".bz2")) {
			mr_asprintf(&command,
					 "star -diff diffopts=mode,size,data file=%s %s >> %s 2>> %s",
					 tarball_fname,
					 (strstr(tarball_fname, ".bz2")) ? "-bz" : " ", outlog,
					 outlog);
		} else {
			mr_asprintf(&command,"");
		}
	} else {
		bkpinfo->use_star = FALSE;
		mr_asprintf(&command, "afio -r -P %s -Z %s >> %s 2>> %s",
				 bkpinfo->compression_tool, tarball_fname, outlog, outlog);
	}
	mr_msg(6, "command=%s", command);
	paranoid_system(command);
	mr_free(command);

	if (length_of_file(outlog) < 10) {
		/* BERLIOS: This seems useless !! */
		mr_asprintf(&command, "cat %s >> %s", outlog, MONDO_LOGFILE);
	} else {
		mr_asprintf(&command, "cut -d':' -f%d %s | sort -u",
				 (bkpinfo->use_star) ? 1 : 2, outlog);
		pin = popen(command, "r");
		if (pin) {
			for (mr_getline(&tmp, &n, pin); !feof(pin);
				 mr_getline(&tmp, &n, pin)) {
				if (bkpinfo->use_star) {
					if (!strstr(tmp, "diffopts=")) {
						while (strlen(tmp) > 0
							   && tmp[strlen(tmp) - 1] < 32) {
							tmp[strlen(tmp) - 1] = '\0';
						}
						if (strchr(tmp, '/')) {
							if (!diffs) {
								mr_msg(0, "'%s' - differences found",
										tarball_fname);
							}
							mr_msg(0, "star: /%s",
									strip_afio_output_line(tmp));
							diffs++;
						}
					}
				} else {
					if (!diffs) {
						mr_msg(0, "'%s' - differences found",
								tarball_fname);
					}
					mr_msg(0, "afio: /%s", strip_afio_output_line(tmp));
					diffs++;
				}
			}
			paranoid_pclose(pin);
			mr_free(tmp);
		} else {
			log_OS_error(command);
		}
	}
	mr_free(outlog);
	mr_free(command);

	return (0);
}


/**
 * Verify one afioball from the CD.
 * Checks for existence (calls fatal_error() if it does not exist) and 
 * then calls verify_an_afioball().
 * @param bkpinfo The backup information structure. Passed to verify_an_afioball().
 * @param tarball_fname The filename of the afioball to verify.
 * @return The return value of verify_an_afioball().
 * @see verify_an_afioball
 */
int
verify_an_afioball_from_CD(char *tarball_fname)
{

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

	assert_string_is_neither_NULL_nor_zerolength(tarball_fname);

	mr_msg(1, "Verifying %s", tarball_fname);
	if (!does_file_exist(tarball_fname)) {
		fatal_error("Cannot verify nonexistent afioball");
	}
	res = verify_a_tarball(tarball_fname);
	return (res);
}


/**
 * Verify one afioball from the opened tape/CD stream.
 * Copies the file from tape to tmpdir and then calls verify_an_afioball().
 * @param bkpinfo The backup information structure. Passed to verify_an_afioball().
 * @param orig_fname The original filename of the afioball to verify.
 * @param size The size of the afioball to verify.
 * @return The return value of verify_an_afioball().
 * @see verify_an_afioball
 */
int
verify_an_afioball_from_stream(char *orig_fname, long long size)
{

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

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

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

	assert(bkpinfo != NULL);
	assert_string_is_neither_NULL_nor_zerolength(orig_fname);

	p = strrchr(orig_fname, '/');
	if (!p) {
		p = orig_fname;
	} else {
		p++;
	}
	mr_asprintf(&tmp, "mkdir -p %s/tmpfs", bkpinfo->tmpdir);
	paranoid_system(tmp);
	mr_free(tmp);

	mr_asprintf(&tarball_fname, "%s/tmpfs/temporary-%s", bkpinfo->tmpdir, p);
	read_file_from_stream_to_file(tarball_fname, size);
	res = verify_a_tarball(tarball_fname);
	if (res) {
		mr_msg(0, "Afioball '%s' no longer matches your live filesystem", p);
		retval++;
	}
	unlink(tarball_fname);
	mr_free(tarball_fname);
	return (retval);
}


/**
 * Verify one biggiefile form the opened tape/CD stream.
 * @param bkpinfo The backup information structure. @c bkpinfo->tmpdir is the only field used.
 * @param biggie_fname The filename of the biggiefile to verify.
 * @param size The size in bytes of said biggiefile.
 * @return 0 for success (even if the file doesn't match); nonzero for a tape error.
 */
int
verify_a_biggiefile_from_stream(char *biggie_fname, long long size)
{

	/*@ int ************************************************************* */
	int retval = 0;
	int res = 0;
	int current_slice_number = 0;
	int ctrl_chr = '\0';

	/*@ char ************************************************************ */
	char *test_file = NULL;
	char *biggie_cksum = NULL;
	char *orig_cksum = NULL;
	char *tmp = NULL;
	char *slice_fnam = NULL;

	/*@ pointers ******************************************************** */
	char *p;

	/*@ long long ******************************************************* */
	long long slice_siz;

	malloc_string(slice_fnam);
	assert(bkpinfo != NULL);
	assert_string_is_neither_NULL_nor_zerolength(biggie_fname);

	p = strrchr(biggie_fname, '/');
	if (!p) {
		p = biggie_fname;
	} else {
		p++;
	}
	mr_asprintf(&test_file, "%s/temporary-%s", bkpinfo->tmpdir, p);
	for (res =
		 read_header_block_from_stream(&slice_siz, slice_fnam, &ctrl_chr);
		 ctrl_chr != BLK_STOP_A_BIGGIE;
		 res =
		 read_header_block_from_stream(&slice_siz, slice_fnam,
									   &ctrl_chr)) {
		if (ctrl_chr != BLK_START_AN_AFIO_OR_SLICE) {
			wrong_marker(BLK_START_AN_AFIO_OR_SLICE, ctrl_chr);
		}
		res = read_file_from_stream_to_file(test_file, slice_siz);
		unlink(test_file);
		res =
			read_header_block_from_stream(&slice_siz, slice_fnam,
										  &ctrl_chr);
		if (ctrl_chr != BLK_STOP_AN_AFIO_OR_SLICE) {
			mr_msg(2, "test_file = %s", test_file);
			wrong_marker(BLK_STOP_AN_AFIO_OR_SLICE, ctrl_chr);
		}
		current_slice_number++;
		retval += res;
	}
	mr_free(test_file);

	mr_asprintf(&biggie_cksum, slice_fnam);
	mr_free(slice_fnam);

	if (biggie_cksum[0] != '\0') {
		mr_asprintf(&orig_cksum, calc_checksum_of_file(biggie_fname));
		if (strcmp(biggie_cksum, orig_cksum)) {
			mr_asprintf(&tmp, "orig cksum=%s; curr cksum=%s", biggie_cksum,
					 orig_cksum);
			mr_msg(2, tmp);
			mr_free(tmp);

			mr_asprintf(&tmp, _("%s has changed on live filesystem"),
					 biggie_fname);
			log_to_screen(tmp);
			mr_free(tmp);

			mr_asprintf(&tmp, "echo \"%s\" >> %s/biggies.changed",
					biggie_fname, bkpinfo->tmpdir);
			system(tmp);
			mr_free(tmp);
		}
		mr_free(orig_cksum);
	}
	mr_free(biggie_cksum);
	return (retval);
}


/**
 * Verify all afioballs from the opened tape/CD stream.
 * @param bkpinfo The backup information structure. Fields used:
 * - @c bkpinfo->restore_path
 * - @c bkpinfo->tmpdir
 *
 * @return 0 for success (even if there are differences); nonzero for a tape error.
 */
int verify_afioballs_from_stream()
{
	/*@ int ********************************************************** */
	int retval = 0;
	int res = 0;
	long current_afioball_number = 0;
	int ctrl_chr = 0;
	int total_afioballs = 0;

	/*@ buffers ***************************************************** */
	char *tmp = NULL;
	char *fname = NULL;
	char *curr_xattr_list_fname = NULL;
	char *curr_acl_list_fname = NULL;

	/*@ long long *************************************************** */
	long long size = 0;

	assert(bkpinfo != NULL);
	malloc_string(fname);

	if (g_getfattr) {
		mr_asprintf(&curr_xattr_list_fname, XATTR_BIGGLST_FNAME_RAW_SZ,
			bkpinfo->tmpdir);
	}
	if (g_getfacl) {
		mr_asprintf(&curr_acl_list_fname, ACL_BIGGLST_FNAME_RAW_SZ,
			bkpinfo->tmpdir);
	}
	log_to_screen(_("Verifying regular archives on tape"));
	total_afioballs = get_last_filelist_number() + 1;
	open_progress_form(_("Verifying filesystem"),
					   _("I am verifying archives against your live filesystem now."),
					   _("Please wait. This may take a couple of hours."), "",
					   total_afioballs);
	res = read_header_block_from_stream(&size, fname, &ctrl_chr);
	if (ctrl_chr != BLK_START_AFIOBALLS) {
		iamhere("YOU SHOULD NOT GET HERE");
		iamhere("Grabbing the EXAT files");
		if (ctrl_chr == BLK_START_EXTENDED_ATTRIBUTES) {
			res =
				read_EXAT_files_from_tape(&size, fname, &ctrl_chr,
										  curr_xattr_list_fname,
										  curr_acl_list_fname);
		}
	}
	if (ctrl_chr != BLK_START_AFIOBALLS) {
		wrong_marker(BLK_START_AFIOBALLS, ctrl_chr);
	}
	mr_free(curr_xattr_list_fname);
	mr_free(curr_acl_list_fname);

	for (res = read_header_block_from_stream(&size, fname, &ctrl_chr);
		 ctrl_chr != BLK_STOP_AFIOBALLS;
		 res = read_header_block_from_stream(&size, fname, &ctrl_chr)) {
		if (g_getfattr) {
			mr_asprintf(&curr_xattr_list_fname, XATTR_LIST_FNAME_RAW_SZ,
				bkpinfo->tmpdir, current_afioball_number);
		}
		if (g_getfacl) {
			mr_asprintf(&curr_acl_list_fname, ACL_LIST_FNAME_RAW_SZ,
				bkpinfo->tmpdir, current_afioball_number);
		}
		if (ctrl_chr == BLK_START_EXTENDED_ATTRIBUTES) {
			iamhere("Reading EXAT files from tape");
			res =
				read_EXAT_files_from_tape(&size, fname, &ctrl_chr,
										  curr_xattr_list_fname,
										  curr_acl_list_fname);
		}
		mr_free(curr_xattr_list_fname);
		mr_free(curr_acl_list_fname);

		if (ctrl_chr != BLK_START_AN_AFIO_OR_SLICE) {
			wrong_marker(BLK_START_AN_AFIO_OR_SLICE, ctrl_chr);
		}
		mr_asprintf(&tmp, "Verifying fileset #%ld", current_afioball_number);
		update_progress_form(tmp);
		mr_free(tmp);

		res = verify_an_afioball_from_stream(fname, size);
		if (res) {
			mr_asprintf(&tmp, _("Afioball %ld differs from live filesystem"),
					 current_afioball_number);
			log_to_screen(tmp);
			mr_free(tmp);
		}
		retval += res;
		current_afioball_number++;
		g_current_progress++;
		res = read_header_block_from_stream(&size, fname, &ctrl_chr);
		if (ctrl_chr != BLK_STOP_AN_AFIO_OR_SLICE) {
			wrong_marker(BLK_STOP_AN_AFIO_OR_SLICE, ctrl_chr);
		}
	}
	mr_msg(1, "All done with afioballs");
	close_progress_form();
	mr_free(fname);
	return (retval);
}

/**
 * Verify all biggiefiles on the opened CD/tape stream.
 * @param bkpinfo The backup information structure. Fields used:
 * - @c bkpinfo->restore_path
 * - @c bkpinfo->tmpdir
 *
 * @return 0 for success (even if there are differences); nonzero for a tape error.
 */
int verify_biggiefiles_from_stream()
{

	/*@ int ************************************************************ */
	int retval = 0;
	int res = 0;
	int ctrl_chr = 0;

	/*@ long *********************************************************** */
	long noof_biggiefiles = 0;
	long current_biggiefile_number = 0;

	/*@ buffers ******************************************************** */
	char *orig_fname = NULL;
	char *logical_fname = NULL;
	char *comment = NULL;
	char *curr_xattr_list_fname = NULL;
	char *curr_acl_list_fname = NULL;
	/*@ pointers ******************************************************* */
	char *p = NULL;

	/*@ long long size ************************************************* */
	long long size = 0;

	assert(bkpinfo != NULL);
	malloc_string(orig_fname);

	if (g_getfattr) {
		mr_asprintf(&curr_xattr_list_fname, XATTR_BIGGLST_FNAME_RAW_SZ,
			bkpinfo->tmpdir);
	}
	if (g_getfacl) {
		mr_asprintf(&curr_acl_list_fname, ACL_BIGGLST_FNAME_RAW_SZ,
			bkpinfo->tmpdir);
	}
	mr_asprintf(&comment, "Verifying all bigfiles.");
	log_to_screen(comment);
	res = read_header_block_from_stream(&size, orig_fname, &ctrl_chr);
	if (ctrl_chr != BLK_START_BIGGIEFILES) {
		if (ctrl_chr == BLK_START_EXTENDED_ATTRIBUTES) {
			iamhere("Grabbing the EXAT biggiefiles");
			res =
				read_EXAT_files_from_tape(&size, orig_fname,
										  &ctrl_chr, curr_xattr_list_fname,
										  curr_acl_list_fname);
		}
	}
	mr_free(curr_xattr_list_fname);
	mr_free(curr_acl_list_fname);

	if (ctrl_chr != BLK_START_BIGGIEFILES) {
		wrong_marker(BLK_START_BIGGIEFILES, ctrl_chr);
	}
	noof_biggiefiles = (long) size;
	mr_msg(1, "noof_biggiefiles = %ld", noof_biggiefiles);
	open_progress_form(_("Verifying big files"), comment,
					   _("Please wait. This may take some time."), "",
					   noof_biggiefiles);
	mr_free(comment);

	for (res = read_header_block_from_stream(&size, orig_fname, &ctrl_chr);
		 ctrl_chr != BLK_STOP_BIGGIEFILES;
		 res = read_header_block_from_stream(&size, orig_fname, &ctrl_chr))
	{
		if (ctrl_chr != BLK_START_A_NORMBIGGIE
			&& ctrl_chr != BLK_START_A_PIHBIGGIE) {
			wrong_marker(BLK_START_A_NORMBIGGIE, ctrl_chr);
		}
		p = strrchr(orig_fname, '/');
		if (!p) {
			p = orig_fname;
		} else {
			p++;
		}
		mr_asprintf(&comment, _("Verifying bigfile #%ld (%ld K)"),
				 current_biggiefile_number, (long) size >> 10);
		update_progress_form(comment);
		mr_free(comment);

		mr_asprintf(&logical_fname, "%s/%s", bkpinfo->restore_path,
				 orig_fname);
		res =
			verify_a_biggiefile_from_stream(logical_fname, size);
		mr_free(logical_fname);
		retval += res;
		current_biggiefile_number++;
		g_current_progress++;
	}
	close_progress_form();
	mr_free(orig_fname);
	return (retval);
}

/* @} - end of LLverifyGroup */


/**
 * Verify the USB device
 * @param bkpinfo The backup information structure. Fields used:
 * - @c bkpinfo->isodir
 * - @c bkpinfo->media_device
 * - @c bkpinfo->tmpdir
 * - @c bkpinfo->verify_data
 *
 * @return 0 for success (even if differences are found), nonzero for failure.
 * @ingroup verifyGroup
 */
int verify_usb_image()
{

	/*@ int ************************************************************ */
	int retval = 0;

	/*@ buffers ******************************************************** */
	char *mountpoint = NULL;
	char *tmp = NULL;
	char *tmp1 = NULL;
	char *fname = NULL;
	int ret = 0;
#ifdef __FreeBSD__
	char mdd[32];
	char *mddevice = mdd;
	int vndev = 2;
#else
//skip
#endif

	assert(bkpinfo != NULL);

	asprintf(&fname, "%s1", bkpinfo->media_device);
	if (is_this_device_mounted(fname)) {
		log_msg(1, "USB device mounted. Remounting it at the right place");
		asprintf(&tmp, "umount %s", fname);
		run_program_and_log_output(tmp, FALSE);
		paranoid_free(tmp);
	}
	paranoid_free(fname);

	log_msg(1, "Mounting USB device.");
	asprintf(&mountpoint, "%s/usb", bkpinfo->tmpdir);
	asprintf(&tmp, "mkdir -p %s", mountpoint);
	run_program_and_log_output(tmp, FALSE);
	paranoid_free(tmp);
	/* Mindi always create one single parition on the USB dev */
	asprintf(&tmp, "mount %s1 %s", bkpinfo->media_device, mountpoint);
	ret = run_program_and_log_output(tmp, FALSE);
	paranoid_free(tmp);
	if (ret) {
		paranoid_free(mountpoint);
		return(ret);
	}

	sync();
	log_msg(2, "OK, I've mounted the USB Disk/Key\n");
	asprintf(&tmp, "%s/archives/NOT-THE-LAST", mountpoint);
	if (!does_file_exist(tmp)) {
		log_msg
			(2,
			 "This is the last USB device. I am therefore setting bkpinfo->verify_data to FALSE.");
		bkpinfo->verify_data = FALSE;
/*
   (a) It's an easy way to tell the calling subroutine that we've finished &
   there are no more device to be verified; (b) It stops the post-backup verifier
   from running after the per-device verifier has run too.
*/
	}
	paranoid_free(tmp);
	verify_afioballs_on_CD(mountpoint);
	iamhere("before verify_all_slices");
	verify_all_slices_on_CD(mountpoint);

	asprintf(&tmp1, "umount %s", mountpoint);
#ifdef __FreeBSD__
	ret += system(tmp1);
	ret += kick_vn(mddevice);
	if (ret)
#else
	if (system(tmp1))
#endif
	{
		asprintf(&tmp, "%s failed; unable to unmount USB device\n", tmp1);
		log_to_screen(tmp);
		paranoid_free(tmp);
		retval++;
	} else {
		log_msg(2, "OK, I've unmounted the USB device\n");
	}
	paranoid_free(tmp1);
	paranoid_free(mountpoint);
	return (retval);
}


/**
 * Verify the CD indicated by @c g_current_media_number.
 * @param bkpinfo The backup information structure. Fields used:
 * - @c bkpinfo->isodir
 * - @c bkpinfo->prefix
 * - @c bkpinfo->manual_tray
 * - @c bkpinfo->media_device
 * - @c bkpinfo->nfs_remote_dir
 * - @c bkpinfo->tmpdir
 * - @c bkpinfo->verify_data
 *
 * @return 0 for success (even if differences are found), nonzero for failure.
 * @ingroup verifyGroup
 */
int verify_cd_image()
{

	/*@ int ************************************************************ */
	int retval = 0;

	/*@ buffers ******************************************************** */
	char *mountpoint = NULL;
	char *command = NULL;
	char *tmp = NULL;
	char *fname = NULL;
#ifdef __FreeBSD__
	char mdd[32];
	char *mddevice = mdd;
	int ret = 0;
	int vndev = 2;
#else
//skip
#endif

	assert(bkpinfo != NULL);

	mr_asprintf(&mountpoint, "%s/cdrom", bkpinfo->tmpdir);
	mr_asprintf(&fname, "%s/%s/%s-%d.iso", bkpinfo->isodir, bkpinfo->nfs_remote_dir,
			 bkpinfo->prefix, g_current_media_number);

	mkdir(mountpoint, 1777);
	sync();
	if (!does_file_exist(fname)) {
		mr_asprintf(&tmp,
				 "%s not found; assuming you backed up to CD; verifying CD...",
				 fname);
		mr_msg(2, tmp);
		mr_free(tmp);

		if (bkpinfo->manual_tray) {
			popup_and_OK(_("Please push CD tray closed."));
		}
		if (find_and_mount_actual_cd(mountpoint)) {
			log_to_screen(_("failed to mount actual CD"));
			return (1);
		}
	} else {
		mr_asprintf(&tmp, "%s found; verifying ISO...", fname);
		log_to_screen(tmp);
		mr_free(tmp);
#ifdef __FreeBSD__
		ret = 0;
		vndev = 2;
		mddevice = make_vn(fname);
		if (ret) {
			mr_asprintf(&tmp, _("make_vn of %s failed; unable to verify ISO\n"),
					 fname);
			log_to_screen(tmp);
			mr_free(tmp);
			return (1);
		}
		mr_asprintf(&command, "mount_cd9660 %s %s", mddevice, mountpoint);
#else
		mr_asprintf(&command, "mount -o loop,ro -t iso9660 %s %s", fname,
				 mountpoint);
#endif
		if (run_program_and_log_output(command, FALSE)) {
			mr_asprintf(&tmp, _("%s failed; unable to mount ISO image\n"),
					 command);
			log_to_screen(tmp);
			mr_free(tmp);
			mr_free(command);
			return (1);
		}
		mr_free(command);
	}
	mr_msg(2, "OK, I've mounted the ISO/CD\n");
	mr_asprintf(&tmp, "%s/archives/NOT-THE-LAST", mountpoint);
	if (!does_file_exist(tmp)) {
		mr_msg
			(2,
			 "This is the last CD. I am therefore setting bkpinfo->verify_data to FALSE.");
		bkpinfo->verify_data = FALSE;
/*
   (a) It's an easy way to tell the calling subroutine that we've finished &
   there are no more CD's to be verified; (b) It stops the post-backup verifier
   from running after the per-CD verifier has run too.
*/
	}
	mr_free(tmp);

	verify_afioballs_on_CD(mountpoint);
	iamhere("before verify_all_slices");
	verify_all_slices_on_CD(mountpoint);

	mr_asprintf(&command, "umount %s", mountpoint);
#ifdef __FreeBSD__
	ret = 0;
	ret += system(command);
	ret += kick_vn(mddevice);
	if (ret)
#else
	if (system(command))
#endif
	{
		mr_asprintf(&tmp, "%s failed; unable to unmount ISO image\n",
				 command);
		log_to_screen(tmp);
		mr_free(tmp);
		retval++;
	} else {
		mr_msg(2, "OK, I've unmounted the ISO file\n");
	}
	mr_free(command);
	mr_free(mountpoint);

	if (!does_file_exist(fname)) {
		mr_asprintf(&command, "umount %s", bkpinfo->media_device);
		run_program_and_log_output(command, 2);
		mr_free(command);

		if (!bkpinfo->please_dont_eject
			&& eject_device(bkpinfo->media_device)) {
			mr_msg(2, "Failed to eject CD-ROM drive");
		}
	}
	mr_free(fname);
	return (retval);
}


/**
 * Verify all backups on tape.
 * This should be done after the backup process has already closed the tape.
 * @param bkpinfo The backup information structure. Passed to various helper functions.
 * @return 0 for success (even if thee were differences), nonzero for failure.
 * @ingroup verifyGroup
 */
int verify_tape_backups()
{

	/*@ int ************************************************************ */
	int retval = 0;

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

	/*@ long *********************************************************** */
	long diffs = 0;

	assert(bkpinfo != NULL);

	mr_msg(3, "verify_tape_backups --- starting");
	log_to_screen(_("Verifying backups"));
	openin_tape();

	/* verify archives themselves */
	retval += verify_afioballs_from_stream();
	retval += verify_biggiefiles_from_stream();

	/* find the final blocks */
	sync();
	sleep(2);
	closein_tape();

	/* close tape; exit */
	mr_asprintf(&tmp,"rm -f %s/biggies.changed %s/changed.files 2> /dev/null", bkpinfo->tmpdir, bkpinfo->tmpdir);
	paranoid_system(tmp);
	mr_free(tmp);

	mr_asprintf(&changed_files_fname, "%s/changed.files", bkpinfo->tmpdir);
	mr_asprintf(&tmp,
			 "grep -E '^%s:.*$' %s | cut -d'\"' -f2 | sort -u | awk '{print \"/\"$0;};' | tr -s '/' '/' | grep -v \"(total of\" | grep -v \"incheckentry.*xwait\" | grep -vE '^/afio:.*$' | grep -vE '^dev/.*$'  > %s",
			 (bkpinfo->use_star) ? "star" : "afio", MONDO_LOGFILE,
			 changed_files_fname);
	mr_msg(2, "Running command to derive list of changed files");
	mr_msg(2, tmp);
	if (system(tmp)) {
		if (does_file_exist(changed_files_fname)
			&& length_of_file(changed_files_fname) > 2) {
			log_to_screen
				(_("Warning - unable to check logfile to derive list of changed files"));
		} else {
			log_to_screen
				(_("No differences found. Therefore, no 'changed.files' text file."));
		}
	}
	mr_free(tmp);

	mr_asprintf(&tmp, "cat %s/biggies.changed >> %s", bkpinfo->tmpdir, changed_files_fname);
	paranoid_system(tmp);
	mr_free(tmp);

	diffs = count_lines_in_file(changed_files_fname);
	if (diffs > 0) {
		mr_asprintf(&tmp, "cp -f %s %s/changed.files", changed_files_fname, MONDO_CACHE);
		run_program_and_log_output(tmp, FALSE);
		mr_free(tmp);

		mr_asprintf(&tmp,
				 "%ld files differed from live filesystem; type less %s or less %s/changed.files to see",
				 diffs, changed_files_fname, MONDO_CACHE);
		mr_msg(0, tmp);
		mr_free(tmp);

		log_to_screen
			(_("See "MONDO_CACHE"/changed.files for a list of nonmatching files."));
		log_to_screen
			(_("The files probably changed on filesystem, not on backup media."));
	}
	mr_free(changed_files_fname);
	return (retval);
}