/* newt-specific.c
   $Id: newt-specific.c 3192 2013-09-25 07:03:25Z bruno $

  subroutines which do display-type things
  and use the newt library to do them
*/


/**
 * @file
 * Functions for doing display-type things with the Newt library.
 */

#define MAX_NEWT_COMMENT_LEN 200

#if __cplusplus
extern "C" {
#endif

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

extern char *MONDO_LOGFILE;

extern struct s_bkpinfo *bkpinfo;

/*@unused@*/
//static char cvsid[] = "$Id: newt-specific.c 3192 2013-09-25 07:03:25Z bruno $";

	extern pid_t g_mastermind_pid;
	/*
	extern char *g_tmpfs_mountpt;
	*/
	extern char *g_boot_mountpt;
	extern char *ps_options;
	extern char *ps_proc_id;

	extern void set_signals(int);

/**
 * @addtogroup globalGroup
 * @{
 */
/**
 * Whether we are currently in a nested call of fatal_error().
 */
	bool g_exiting = FALSE;

// Decide whether we should continue to ask questions or exit (cron use case)
extern bool g_fail_immediately;

/**
 * Padding below the Newt components, to overcome bugs in Newt.
 */
	char g_haharrrrr[500];


	newtComponent g_timeline = NULL,	///< The line of the progress form that shows the time elapsed/remaining
		g_percentline = NULL,	///< The line of the progress form that shows the percent completed/remaining
		g_scale = NULL,			///< The progress bar component in the progress form
		g_progressForm = NULL,	///< The progress form component itself
		g_blurb1 = NULL,		///< The component for line 1 of the blurb in the progress form
		g_blurb2 = NULL,		///< The component for line 2 of the blurb in the progress form
		g_blurb3 = NULL,		///< The component for line 3 (updated continuously) of the blurb in the progress form
		g_label = NULL;			///< ????? @bug ?????

/**
 * Padding above the Newt components, to overcome bugs in Newt.
 */
	char g_jim_lad_yarr[500];
	char **err_log_lines = NULL,	///< The list of log lines to show on the screen.
		g_blurb_str_1[MAX_NEWT_COMMENT_LEN] = "",	///< The string for line 1 of the blurb in the progress form
		g_blurb_str_2[MAX_NEWT_COMMENT_LEN] = "",	///< The string for line 2 of the blurb in the progress form
		g_blurb_str_3[MAX_NEWT_COMMENT_LEN] = "";	///< The string for line 3 (updated continuously) of the blurb in the progress form
	newtComponent g_isoform_main = NULL,	///< The evalcall form component itself
		g_isoform_header = NULL,	///< The component for the evalcall form title
		g_isoform_scale = NULL,	///< The progress bar component in the evalcall form
		g_isoform_timeline = NULL,	///< The line of the evalcall form that shows the time elapsed/remaining
		g_isoform_pcline = NULL;	///< The line of the evalcall form that shows the percent completed/remaining
	long g_isoform_starttime;	///< The time (in seconds since the epoch) that the evalcall form was opened.
	int g_isoform_old_progress = -1;	///< The most recent progress update of the evalcall form (percent).
	char g_isoform_header_str[MAX_STR_LEN] = "                                                                                                               ";	///< The string for the evalcall form title.
	int g_mysterious_dot_counter;	///< The counter for the twirling baton (/ | \\ - ...) on percentage less than 3
	int g_noof_log_lines = 6;	///< The number of lines to show in the log at the bottom of the screen.
	int g_noof_rows = 25;		///< The number of rows on the screen.

	int g_currentY = 3;			///< The row to write background progress messages to. Incremented each time a message is written.
	extern int g_current_media_number;
	pid_t g_main_pid = 0;		///< The PID of the main Mondo process.
	long g_maximum_progress = 999;	///< The maximum amount of progress (100%) for the currently opened progress form.
	long g_current_progress = -999;	///< The current amount of progress (filelist #, etc.) for the currently opened progress form.
	long g_start_time = 0;		///< The time (in seconds since the epoch) that the progress form was opened.
	bool g_text_mode = TRUE;	///< If FALSE, use a newt interface; if TRUE, use an ugly (but more compatible) dumb terminal interface.
	char g_xmondo_stdin[MAX_NEWT_COMMENT_LEN],	///< ... @bug Unneeded w/current XMondo.
	 g_xmondo_stdout[MAX_NEWT_COMMENT_LEN];	///< .... @bug Unneeded w/current XMondo.
	bool g_called_by_xmondo = FALSE;	///< @bug Unneeded w/current XMondo.
	char *g_selfmounted_isodir;	///< Holds the NETFS mountpoint if mounted via mondoarchive.

/* @} - end of globalGroup */

//int g_fd_in=-1, g_fd_out=-1;

	void popup_and_OK(char *);


/**
 * @addtogroup guiGroup
 * @{
 */
/**
 * Ask the user a yes/no question.
 * @param prompt The question to ask the user.
 * @return TRUE for yes; FALSE for no.
 */
	 bool ask_me_yes_or_no(char *prompt) {

		/*@ buffers ********************************************************** */
		int i;
		char *p;

		assert_string_is_neither_NULL_nor_zerolength(prompt);

		if (g_fail_immediately) {
			// We consider the user aborted by using the -F option
			log_msg(3, "Exiting at first interaction request due to -F");
			finish(1);
		}
		if (g_text_mode) {

			char *tmp;
		 	tmp = malloc(MAX_NEWT_COMMENT_LEN);

			while (1) {
				paranoid_system("sync");
				printf
					("---promptdialogYN---1--- %s\n---promptdialogYN---Q--- [yes] [no] ---\n--> ",
					 prompt);
				p= fgets(tmp, MAX_NEWT_COMMENT_LEN, stdin);
				if (!p) {
					//FIXME
				}
				if (tmp[strlen(tmp) - 1] == '\n')
					tmp[strlen(tmp) - 1] = '\0';

				i = (int) strlen(tmp);
				if (i > 0 && tmp[i - 1] < 32) {
					tmp[i - 1] = '\0';
				}
				if (strstr("yesYES", tmp)) {
					paranoid_free(tmp);
					return (TRUE);
				} else if (strstr("NOno", tmp)) {
					paranoid_free(tmp);
					return (FALSE);
				} else {
					paranoid_system("sync");
					printf
						("Please enter either YES or NO (or yes or no, or y or n, or...)\n");
				}
			}
		} else {
			return (popup_with_buttons(prompt, "Yes", "No"));
		}
	}


/**
 * Give the user the opportunity to continue the current operation (OK)
 * or cancel it (Cancel).
 * @param prompt The string to be displayed.
 * @return TRUE for OK, FALSE for Cancel.
 */
	bool ask_me_OK_or_cancel(char *prompt) {

		/*@ buffer *********************************************************** */
		char *tmp;
		char *p;
		int i;

		assert_string_is_neither_NULL_nor_zerolength(prompt);
		if (g_fail_immediately) {
			// We consider the user aborted by using the -F option
			log_msg(3, "Exiting at first interaction request due to -F");
			finish(1);
		}
		tmp = malloc(MAX_NEWT_COMMENT_LEN);
		if (g_text_mode) {
			paranoid_system("sync");
			printf
				("---promptdialogOKC---1--- %s\n---promptdialogOKC---Q--- [OK] [Cancel] ---\n--> ",
				 prompt);
			p = fgets(tmp, MAX_NEWT_COMMENT_LEN, stdin);
			if (!p) {
				// FIXME
			}
			if (tmp[strlen(tmp) - 1] == '\n')
				tmp[strlen(tmp) - 1] = '\0';

			i = (int) strlen(tmp);
			if (i > 0 && tmp[i - 1] < 32) {
				tmp[i - 1] = '\0';
			}
			if (strstr("okOKOkYESyes", tmp)) {
				paranoid_free(tmp);
				return (TRUE);
			} else {
				paranoid_free(tmp);
				return (FALSE);
			}
		} else {
			paranoid_free(tmp);
			return (popup_with_buttons(prompt, " Okay ", "Cancel"));
		}
	}



/**
 * Close the currently opened evalcall form.
 */
	void
	 close_evalcall_form(void) {
		if (g_text_mode) {
			return;
		}
		if (g_isoform_main == NULL) {
			return;
		}
		update_evalcall_form(100);
		usleep(500000);
		if (g_text_mode) {
			log_msg(2, "Closing evalcall form");
			return;
		}
		newtPopHelpLine();
		newtFormDestroy(g_isoform_main);
		newtPopWindow();

		/* Reset globals */
		g_isoform_main = NULL;
		g_isoform_old_progress = -1;
		g_isoform_header = NULL;
		g_isoform_scale = NULL;
		g_isoform_timeline = NULL;
		g_isoform_pcline = NULL;
}

/**
 * Close the currently opened progress form.
 */
	void
	 close_progress_form() {
		if (g_text_mode) {
			return;
		}
		if (g_current_progress == -999) {
			log_msg(2,
					"Trying to close the progress form when it ain't open!");
			return;
		}
		g_current_progress = g_maximum_progress;
		update_progress_form("Complete");
		sleep(1);
		if (g_text_mode) {
			log_msg(2, "Closing progress form");
			return;
		}
		newtPopHelpLine();
		newtFormDestroy(g_progressForm);
		newtPopWindow();

		/* Reset globals */
		g_progressForm = NULL;
		g_current_progress = -999;
		g_timeline = NULL;
		g_percentline = NULL;
		g_scale = NULL;

	}

/**
 * Kill any process containing the string @p str surrounded by spaces in its commandline.
 */
void kill_anything_like_this(char *str) {

char *tmp = NULL;
char *tmp1 = NULL;

	mr_asprintf(tmp,"ps %s | grep \" %s \" | grep -v \"grep\" | awk '{print %s;}'", ps_options, str , ps_proc_id);
	run_program_and_log_output(tmp, TRUE);
	if (strlen(tmp) > 0) {
		mr_asprintf(tmp1,"kill `%s`", tmp);
		run_program_and_log_output(tmp1, TRUE);
		paranoid_free(tmp1);
	}
	paranoid_free(tmp);
}


/**
 * Exit Mondo with a fatal error.
 * @param error_string The error message to present to the user before exiting.
 * @note This function never returns.
 */
	void
	 fatal_error(char *error_string) {
		/*@ buffers ***************************************************** */
		char fatalstr[MAX_NEWT_COMMENT_LEN] =
			"-------FATAL ERROR---------";
		char *tmp;
		char *command;
		static bool already_exiting = FALSE;

		/*@ end vars **************************************************** */

		malloc_string(command);
		tmp = malloc(MAX_NEWT_COMMENT_LEN);
		set_signals(FALSE);		// link to external func
		g_exiting = TRUE;
		log_msg(1, "Fatal error received - '%s'", error_string);
		printf("Fatal error... %s\n", error_string);
		if (getpid() == g_mastermind_pid) {
			log_msg(2, "mastermind %d is exiting", (int) getpid());
			kill(g_main_pid, SIGTERM);
			paranoid_free(tmp);
			finish(1);
		}

		if (getpid() != g_main_pid) {
			if (g_mastermind_pid != 0 && getpid() != g_mastermind_pid) {
				log_msg(2, "non-m/m %d is exiting", (int) getpid());
				kill(g_main_pid, SIGTERM);
				paranoid_free(tmp);
				finish(1);
			}
		}

		log_msg(3, "OK, I think I'm the main PID.");
		if (already_exiting) {
			log_msg(3, "...I'm already exiting. Give me time, Julian!");
			paranoid_free(tmp);
			finish(1);
		}

		already_exiting = TRUE;
		log_msg(2, "I'm going to do some cleaning up now.");
		paranoid_system("killall mindi 2> /dev/null");
		kill_anything_like_this("/mondo/do-not");
		kill_anything_like_this("mondo.tmp");
		kill_anything_like_this("ntfsclone");
		sync();
		/*
		sprintf(tmp, "umount %s", g_tmpfs_mountpt);
		for (i = 0; i < 10 && run_program_and_log_output(tmp, 5); i++) {
			log_msg(2, "Waiting for child processes to terminate");
			sleep(1);
			run_program_and_log_output(tmp, 5);
		}
		*/

		if (chdir("/")) {
			// FIXME
		}
		if (g_selfmounted_isodir) {
			sprintf(command, "umount -d %s", g_selfmounted_isodir);
			run_program_and_log_output(command, 5);
			sprintf(command, "rmdir %s", g_selfmounted_isodir);
			run_program_and_log_output(command, 5);
		}

		if (!g_text_mode) {
			log_msg(0, fatalstr);
			log_msg(0, error_string);
			//      popup_and_OK (error_string);
			newtFinished();
		}

		printf("---FATALERROR--- %s\n", error_string);
		printf
				("If you require technical support, please contact the mailing list.\n");
		printf("See http://www.mondorescue.org for details.\n");
		printf
				("The list's members can help you, if you attach that file to your e-mail.\n");
		printf("Log file: %s\n", MONDO_LOGFILE);
		printf("Mondo has aborted.\n");
		if (!g_main_pid) {
			log_msg(3, "FYI - g_main_pid is blank");
		}
		paranoid_free(tmp);
		paranoid_free(command);
		finish(254);
	}

/* Free memory allocated for newt */
void free_newt_stuff() {

int i;

for (i = 0; i < g_noof_log_lines; i++) {
	mr_free(err_log_lines[i]);
}
mr_free(err_log_lines);
}



/**
 * Exit Mondo normally.
 * @param signal The exit code (0 indicates a successful backup; 1 for Mondo means the
 * user aborted; 254 means a fatal error occured).
 * @note This function never returns.
 */
	void
	 finish(int signal) {
		char *command = NULL;

		/*  if (signal==0) { popup_and_OK("Please press <enter> to quit."); } */

		/* newtPopHelpLine(); */

		/*  Before removing dir, make sure we're out of them */
		if (chdir("/tmp")) {
			// FIXME
		}
		run_program_and_log_output("umount -d " MNT_CDROM, FALSE);
		if (g_selfmounted_isodir) {
			mr_asprintf(command, "umount -d %s", g_selfmounted_isodir);
			run_program_and_log_output(command, 1);
			paranoid_free(command);
			mr_asprintf(command, "rmdir %s", g_selfmounted_isodir);
			run_program_and_log_output(command, 1);
			paranoid_free(command);
		}
		if (!g_text_mode) {
			if (does_file_exist("/THIS-IS-A-RAMDISK")) {
				log_msg(1, "Calling newtFinished()");
				newtFinished();
			} else {
				log_msg(1, "Calling newtSuspend()");
				newtSuspend();
			}
		}
		printf("Execution run ended; result=%d\n", signal);
		printf("Type 'less %s' to see the output log\n", MONDO_LOGFILE);
		if (bkpinfo->tmpdir) {
			log_msg(8,"tempdir is %s",bkpinfo->tmpdir);
			if (strstr(bkpinfo->tmpdir ,"mondo.tmp.") != NULL) {
				log_msg(8,"erasing tempdir %s",bkpinfo->tmpdir);
				mr_asprintf(command, "rm -Rf %s", bkpinfo->tmpdir);
				paranoid_system(command);
				mr_free(command);
			}
		}
		if (bkpinfo->scratchdir) {
			log_msg(8,"scratchdir is %s", bkpinfo->scratchdir);
			if (strstr(bkpinfo->scratchdir ,"mondo.scratch.") != NULL) {
				log_msg(8,"erasing scratchdir %s",bkpinfo->scratchdir);
				mr_asprintf(command, "rm -Rf %s", bkpinfo->scratchdir);
				paranoid_system(command);
				mr_free(command);
			}
		}
		/* Free all allocated strings in bkpinfo */
		mr_free(bkpinfo->netfs_user);
		mr_free(bkpinfo->netfs_proto);
		mr_free(bkpinfo->exclude_devs);
		mr_free(bkpinfo->exclude_paths);
		mr_free(bkpinfo->subdir);

		/* Then free the structure */
		paranoid_free(bkpinfo);
		free_libmondo_global_strings();
		free_newt_stuff();
		exit(signal);
	}





/**
 * Log the last @p g_noof_log_lines lines of @p filename that match @p
 * grep_for_me to the screen.
 * @param filename The file to give the end of.
 * @param grep_for_me If not "", then only give lines in @p filename that match this regular expression.
 */
	void
	 log_file_end_to_screen(char *filename, char *grep_for_me) {

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

		/*@ pointers ********************************************************* */
		FILE *fin;

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

		assert_string_is_neither_NULL_nor_zerolength(filename);
		assert(grep_for_me != NULL);

		if (!does_file_exist(filename)) {
			return;
		}
		if (grep_for_me[0] != '\0') {
			mr_asprintf(command, "grep '%s' %s | tail -n%d",
					grep_for_me, filename, g_noof_log_lines);
		} else {
			mr_asprintf(command, "tail -n%d %s", g_noof_log_lines,
					filename);
		}
		fin = popen(command, "r");
		if (!fin) {
			log_OS_error(command);
		} else {
			for (i = 0; i < g_noof_log_lines; i++) {
				for (err_log_lines[i][0] = '\0';
					 strlen(err_log_lines[i]) < 2 && !feof(fin);) {
					p = fgets(err_log_lines[i], MAX_NEWT_COMMENT_LEN, fin);
					if (!p) {
						// FIXME
					}
					/* Commented to make valgrind happy and avoid crash
					strip_spaces(err_log_lines[i]);
					*/
					if (!strncmp(err_log_lines[i], "root:", 5)) {
						mr_asprintf(tmp, "%s", err_log_lines[i] + 6);
						strncpy(err_log_lines[i], tmp, (size_t)MAX_NEWT_COMMENT_LEN);
						mr_free(tmp);
					}
					if (feof(fin)) {
						break;
					}
				}
			}
			paranoid_pclose(fin);
		}
		mr_free(command);
		refresh_log_screen();
	}


/**
 * Log a message to the screen.
 * @param fmt A printf-style format string to write. The following parameters are its arguments.
 * @note The message is also written to the logfile.
 */
	void
	 log_to_screen(const char *fmt, ...) {

		/*@ int ************************************************************** */
		int i = 0;
		int j = 0;
		va_list args;

		/*@ buffers ********************************************************** */
		char *output;

		malloc_string(output);

		va_start(args, fmt);
		vsnprintf(output, MAX_STR_LEN-1, fmt, args);
		log_msg(0, output);
		output[80] = '\0';
		va_end(args);
		i = (int) strlen(output);
		if (i > 0 && output[i - 1] < 32) {
			output[i - 1] = '\0';
		}

		if (err_log_lines) {
			for (i = 1; i < g_noof_log_lines; i++) {
				strcpy(err_log_lines[i - 1],
					   "                                                                                ");
				strcpy(err_log_lines[i - 1], err_log_lines[i]);
			}
		}
		while (strlen(output) > 0 && output[strlen(output) - 1] < 32) {
			output[strlen(output) - 1] = '\0';
		}
		for (j = 0; j < (int) strlen(output); j++) {
			if (output[j] < 32) {
				output[j] = ' ';
			}
		}
		if (err_log_lines)
			strcpy(err_log_lines[g_noof_log_lines - 1], output);
		if (g_text_mode) {
			printf("%s\n", output);
		} else {
			refresh_log_screen();
		}
		paranoid_free(output);
	}




/**
 * Write a string to the root window at (@p x, @p y) and also to the logfile.
 * @param y The row to write the string to.
 * @param x The column to write the string to.
 * @param output The string to write.
 */
	void
	 mvaddstr_and_log_it(int y, int x, char *output) {
		assert_string_is_neither_NULL_nor_zerolength(output);
		log_msg(0, output);
		if (g_text_mode) {
			printf("%s\n", output);
		} else {
			newtDrawRootText(x, y, output);
			newtRefresh();
		}
	}




/**
 * Open an evalcall form with title @p ttl.
 * @param ttl The title to use for the evalcall form.
 */
	void
	 open_evalcall_form(char *ttl) {

		/*@ buffers ********************************************************* */
		char *title;
		char *tmp;

		/*@ initialize ****************************************************** */
		g_isoform_old_progress = -1;
		g_mysterious_dot_counter = 0;
		malloc_string(title);
		malloc_string(tmp);

		assert(ttl != NULL);
		strcpy(title, ttl);
		strcpy(g_isoform_header_str, title);
//  center_string (title, 80);
		if (g_text_mode) {
			log_msg(0, title);
		} else {
			strcpy(tmp, title);
			center_string(tmp, 80);
			newtPushHelpLine(tmp);
		}
		center_string(g_isoform_header_str, 36);
		g_isoform_starttime = get_time();
		if (g_text_mode) {
			log_msg(0, g_isoform_header_str);
		} else {
			g_isoform_header = newtLabel(1, 1, g_isoform_header_str);
			g_isoform_scale = newtScale(3, 3, 34, 100);
			//      newtOpenWindow (20, 6, 40, 7, title);      // "Please Wait");
			newtCenteredWindow(40, 7, title);
			g_isoform_main = newtForm(NULL, NULL, 0);
			g_isoform_timeline = newtLabel(1, 5, "                    ");
			g_isoform_pcline = newtLabel(1, 6, "                  ");
			newtFormAddComponents(g_isoform_main, g_isoform_timeline,
								  g_isoform_pcline, g_isoform_header,
								  g_isoform_scale, NULL);
			newtDrawForm(g_isoform_main);
			newtRefresh();
		}
		update_evalcall_form(0);
		paranoid_free(tmp);
		paranoid_free(title);
	}



/**
 * Open a progress form with title @p title.
 * @param title The title to use for the progress form (will be put in the title bar on Newt).
 * @param b1 The first line of the blurb; generally static.
 * @param b2 The second line of the blurb; generally static.
 * @param b3 The third line of the blurb; generally dynamic (it is passed
 * to update_evalcall_form() every time).
 * @param max_val The maximum amount of progress (number of filesets, etc.)
 */
	void
	 open_progress_form(char *title, char *b1, char *b2, char *b3,
						long max_val) {

		/*@ buffers ********************************************************* */
		char *b1c;
		char *blurb1;
		char *blurb2;
		char *blurb3;

		/*@ initialize ****************************************************** */
		g_mysterious_dot_counter = 0;

		malloc_string(b1c);
		malloc_string(blurb1);
		malloc_string(blurb2);
		malloc_string(blurb3);

		assert(title != NULL);
		assert(b1 != NULL);
		assert(b2 != NULL);
		assert(b3 != NULL);

		strcpy(blurb1, b1);
		strcpy(blurb2, b2);
		strcpy(blurb3, b3);
		strcpy(b1c, b1);
		center_string(b1c, 80);
		if (max_val <= 0) {
			max_val = 1;
		}

		g_start_time = get_time();
		g_maximum_progress = max_val;
		g_current_progress = 0;
		strcpy(g_blurb_str_1, blurb1);
		strcpy(g_blurb_str_2, blurb3);
		strcpy(g_blurb_str_3, blurb2);
		if (g_text_mode) {
			log_msg(0, blurb1);
			log_msg(0, blurb2);
			log_msg(0, blurb3);
		} else {
			g_blurb1 = newtLabel(2, 1, blurb1);
			g_blurb2 = newtLabel(2, 2, blurb3);
			g_blurb3 = newtLabel(2, 4, blurb2);
			//      newtOpenWindow (10, 4, 60, 11, title);
			newtCenteredWindow(60, 11, title);
			g_scale = newtScale(3, 6, 54, g_maximum_progress);
			g_progressForm = newtForm(NULL, NULL, 0);
			g_percentline = newtLabel(10, 9, "                       ");
			g_timeline = newtLabel(10, 8, "                    ");
			newtFormAddComponents(g_progressForm, g_percentline,
								  g_timeline, g_scale, g_blurb1, g_blurb3,
								  g_blurb2, NULL);
			newtPushHelpLine(b1c);
			newtDrawForm(g_progressForm);
			newtRefresh();
		}
		update_progress_form_full(blurb1, blurb2, blurb3);
		paranoid_free(b1c);
		paranoid_free(blurb1);
		paranoid_free(blurb2);
		paranoid_free(blurb3);
	}

/**
 * Give a message to the user in the form of a dialog box (under Newt).
 * @param prompt The message.
 */
	void
	 popup_and_OK(char *prompt) {
		char ch;

		assert_string_is_neither_NULL_nor_zerolength(prompt);

		log_msg(0, prompt);
		if (g_text_mode) {
			printf
				("---promptpopup---1--- %s\n---promptpopup---Q--- [OK] ---\n--> ",
				 prompt);
			while (((ch = getchar()) != '\n') && (ch != EOF));
		} else {
			(void) popup_with_buttons(prompt, " OK ", "");
		}
	}

/**
 * Ask the user to enter a value.
 * @param title The title of the dialog box.
 * @param b The blurb (e.g. what you want the user to enter).
 * @param output The string to put the user's answer in.
 * @param maxsize The size in bytes allocated to @p output.
 * @return TRUE if the user pressed OK, FALSE if they pressed Cancel.
 */
	bool popup_and_get_string(char *title, char *b, char *output,
							  int maxsize) {

		/*@ newt ************************************************************ */
		newtComponent myForm;
		newtComponent b_1;
		newtComponent b_2;
		newtComponent b_res;
		newtComponent text;
		newtComponent type_here;

		/*@ pointers ********************************************************* */
		char *entry_value;

		/*@ buffers ********************************************************** */
		char *blurb;
		char *p;
		char *original_contents;

		blurb = malloc(MAX_NEWT_COMMENT_LEN);
		original_contents = malloc(MAX_NEWT_COMMENT_LEN);
		assert_string_is_neither_NULL_nor_zerolength(title);
		assert(b != NULL);
		assert(output != NULL);

		if (g_text_mode) {
			printf
				("---promptstring---1--- %s\n---promptstring---2--- %s\n---promptstring---Q---\n-->  ",
				 title, b);
			p = fgets(output, maxsize, stdin);
			if (!p) {
				// FIXME
			}
			if (output[strlen(output) - 1] == '\n')
				output[strlen(output) - 1] = '\0';
			paranoid_free(blurb);
			paranoid_free(original_contents);
			return (TRUE);
		}
		strcpy(blurb, b);
		text = newtTextboxReflowed(2, 1, blurb, 48, 5, 5, 0);
		strcpy(original_contents, output);
		output[0] = '\0';
		type_here =
			newtEntry(2, newtTextboxGetNumLines(text) + 2,
					  original_contents, 50,
#ifdef __cplusplus
					  0, NEWT_FLAG_RETURNEXIT
#else
					  (void *) &entry_value, NEWT_FLAG_RETURNEXIT
#endif
			);
		b_1 = newtButton(6, newtTextboxGetNumLines(text) + 4, "  OK  ");
		b_2 = newtButton(18, newtTextboxGetNumLines(text) + 4, "Cancel");
		//  newtOpenWindow (8, 5, 54, newtTextboxGetNumLines (text) + 9, title);
		newtCenteredWindow(54, newtTextboxGetNumLines(text) + 9, title);
		myForm = newtForm(NULL, NULL, 0);
		newtFormAddComponents(myForm, text, type_here, b_1, b_2, NULL);
		center_string(blurb, 80);
		newtPushHelpLine(blurb);
		b_res = newtRunForm(myForm);
		strcpy(output, entry_value);
		newtPopHelpLine();
		newtFormDestroy(myForm);
		newtPopWindow();
		if (b_res == b_2) {
			strcpy(output, original_contents);
			paranoid_free(blurb);
			paranoid_free(original_contents);
			return (FALSE);
		} else {
			paranoid_free(blurb);
			paranoid_free(original_contents);
			return (TRUE);
		}
	}


/**
 * Pop up a dialog box with user-defined buttons.
 * @param p The text to put in the dialog box.
 * @param button1 The label on the first button.
 * @param button2 The label on the second button, or "" if you only want one button.
 * @return TRUE if @p button1 was pushed, FALSE otherwise.
 */
	bool popup_with_buttons(char *p, char *button1, char *button2) {

		/*@ buffers *********************************************************** */
		char *prompt;
		char *q;

		/*@ newt ************************************************************** */
		newtComponent myForm;
		newtComponent b_1;
		newtComponent b_2;
		newtComponent b_res;
		newtComponent text;

		assert_string_is_neither_NULL_nor_zerolength(p);
		assert(button1 != NULL);
		assert(button2 != NULL);
		prompt = malloc(MAX_NEWT_COMMENT_LEN);
		if (g_text_mode) {
			if (strlen(button2) == 0) {
				printf("%s (%s) --> ", p, button1);
			} else {
				printf("%s (%s or %s) --> ", p, button1, button2);
			}
			for (prompt[0] = '\0';
				 strcmp(prompt, button1) && (strlen(button2) == 0
										  || strcmp(prompt, button2));) {
				printf("--> ");
				q = fgets(prompt, MAX_NEWT_COMMENT_LEN, stdin);
				if (!q) {
					// FIXME
				}
			}
			if (!strcmp(prompt, button1)) {
				paranoid_free(prompt);
				return (TRUE);
			} else {
				paranoid_free(prompt);
				return (FALSE);
			}
		}

		strncpy(prompt, p, MAX_NEWT_COMMENT_LEN - 1);
		prompt[MAX_NEWT_COMMENT_LEN - 1] = '\0';
		text = newtTextboxReflowed(1, 1, prompt, 40, 5, 5, 0);
		b_1 =
			newtButton(20 -
					   ((button2[0] !=
						 '\0') ? strlen(button1) +
						2 : strlen(button1) / 2),
					   newtTextboxGetNumLines(text) + 3, button1);
		if (button2[0] != '\0') {
			b_2 =
				newtButton(24, newtTextboxGetNumLines(text) + 3, button2);
		} else {
			b_2 = NULL;
		}
		//  newtOpenWindow (25, 5, 46, newtTextboxGetNumLines (text) + 7, "Alert");
		newtCenteredWindow(46, newtTextboxGetNumLines(text) + 7, "Alert");
		myForm = newtForm(NULL, NULL, 0);
		newtFormAddComponents(myForm, text, b_1, b_2, NULL);
		center_string(prompt, 80);
		newtPushHelpLine(prompt);
		b_res = newtRunForm(myForm);
		newtPopHelpLine();
		newtFormDestroy(myForm);
		newtPopWindow();
		if (b_res == b_1) {
			paranoid_free(prompt);
			return (TRUE);
		} else {
			paranoid_free(prompt);
			return (FALSE);
		}
	}




/**
 * Synchronize the log messages stored in @p err_log_lines with those shown
 * on the screen.
 */
	void
	 refresh_log_screen() {

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


		if (g_text_mode || !err_log_lines) {
			return;
		}
		for (i = g_noof_log_lines - 1; i >= 0; i--) {
			newtDrawRootText(0, i + g_noof_rows - 1 - g_noof_log_lines,
							 "                                                                                ");
		}
		newtRefresh();
		for (i = g_noof_log_lines - 1; i >= 0; i--) {
			err_log_lines[i][79] = '\0';
			newtDrawRootText(0, i + g_noof_rows - 1 - g_noof_log_lines,
							 err_log_lines[i]);
		}
		newtRefresh();
	}


/**
 * Set up the Newt graphical environment. If @p g_text_mode is TRUE, then
 * only allocate some memory.
 */
	void
	 setup_newt_stuff() {

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

		if (!g_text_mode) {
			newtInit();
			newtCls();
			newtPushHelpLine
				("Welcome to Mondo Rescue, by Dev Team and the Internet. All rights reversed.");
			/*  newtDrawRootText(28,0,"Welcome to Mondo Rescue"); */
			newtDrawRootText(18, 0, WELCOME_STRING);
			newtRefresh();
			newtGetScreenSize(&cols, &g_noof_rows);
			g_noof_log_lines = (g_noof_rows / 5) + 1;
		}

		err_log_lines =
			(char **) malloc(sizeof(char *) * g_noof_log_lines);
		if (!err_log_lines) {
			fatal_error("Out of memory");
		}

		for (i = 0; i < g_noof_log_lines; i++) {
			err_log_lines[i] = (char *) malloc(MAX_NEWT_COMMENT_LEN);
			if (!err_log_lines[i]) {
				fatal_error("Out of memory");
			}
		}

		for (i = 0; i < g_noof_log_lines; i++) {
			err_log_lines[i][0] = '\0';
		}
	}


/**
 * Update the evalcall form to show (<tt>num</tt>/<tt>denom</tt>)*100 %.
 * @param num The numerator of the ratio.
 * @param denom The denomenator of the ratio.
 */
	void
	 update_evalcall_form_ratio(int num, int denom) {

		/*@ long ************************************************************ */
		long current_time = 0;
		long time_taken = 0;
		long time_total_est = 0;
		long time_remaining = 0;

		/*@ buffers ********************************************************** */
		char *timeline_str;
		char *pcline_str = NULL;
		char *taskprogress = NULL;

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

		malloc_string(timeline_str);
		timeline_str[0] = '\0';
//  log_it("update_eval_call_form called");
		if (num * 100 < denom) {
			percentage = 1;
		} else {
			percentage = (num * 100 + denom / 2) / denom;
		}

		current_time = get_time();
		time_taken = current_time - g_isoform_starttime;
		if (num) {
			time_total_est = time_taken * denom / num;
			time_remaining = time_total_est - time_taken;
		} else {
			time_remaining = 0;
		}
		if (!g_text_mode) {
			if (g_isoform_header) {
				newtLabelSetText(g_isoform_header, g_isoform_header_str);
			}
		}
		g_mysterious_dot_counter = (g_mysterious_dot_counter + 1) % 27;
		if ((percentage < 3 && g_isoform_old_progress < 3)
			|| percentage > g_isoform_old_progress) {
			g_isoform_old_progress = percentage;
			sprintf(timeline_str,
					"%2ld:%02ld taken            %2ld:%02ld remaining",
					(long) time_taken / 60, (long) time_taken % 60, (long) time_remaining / 60,
					(long) time_remaining % 60);
			if (percentage < 3) {
				mr_asprintf(pcline_str, " Working");
				for (j = 0; j < g_mysterious_dot_counter; j++) {
					mr_strcat(pcline_str, ".");
				}
				for (; j < 27; j++) {
					mr_strcat(pcline_str, " ");
				}
				mr_strcat(pcline_str, " %c", special_dot_char(g_mysterious_dot_counter));
			} else {
				mr_asprintf(pcline_str, " %3d%% done              %3d%% to go",
						percentage, 100 - percentage);
			}
			if (g_text_mode) {
				mr_asprintf(taskprogress, "TASK:  [");
				for (i = 0; i < percentage; i += 5) {
					mr_strcat(taskprogress, "*");
				}
				for (; i < 100; i += 5) {
					mr_strcat(taskprogress, ".");
				}
				if (percentage >= 3) {
					mr_strcat(taskprogress, "] %3d%% done; %2ld:%02ld to go", percentage,
							(long) time_remaining / 60, (long) time_remaining % 60);
					printf("---evalcall---1--- %s\n",
						   g_isoform_header_str);
					printf("---evalcall---2--- %s\n", taskprogress);
					printf("---evalcall---E---\n");
				}
				paranoid_free(taskprogress);
			} else {
				newtScaleSet(g_isoform_scale,
							 (unsigned long long) percentage);
				if (g_isoform_pcline) {
					newtLabelSetText(g_isoform_pcline, pcline_str);
				}
				if ((percentage >= 3) && (g_isoform_timeline)) {
					newtLabelSetText(g_isoform_timeline, timeline_str);
				}
			}
			paranoid_free(pcline_str);
		}
		if (!g_text_mode) {
//      log_it("refreshing");
			newtDrawForm(g_isoform_main);
			newtRefresh();
		}
		paranoid_free(timeline_str);
	}



/**
 * Update the evalcall form to show @p curr %.
 * @param curr The current amount of progress (percentage) in the evalcall form.
 */
	void
	 update_evalcall_form(int curr) {
		update_evalcall_form_ratio(curr, 100);
	}



/**
 * Update the progress form to show @p blurb3 and the current value of
 * @p g_maximum_progress.
 * @param blurb3 The new third line of the blurb; use @p g_blurb_str_2 (no, that's not a typo) to keep it the same.
 */
	void
	 update_progress_form(char *blurb3) {
		/*  log_it("update_progress_form --- called"); */
		if (g_current_progress == -999) {
			/* log_it("You're trying to update progress form when it ain't open. Aww, that's OK. I'll let it go. It's a bit naughty but it's a nonfatal error. No prob, Bob."); */
			return;
		}
		strcpy(g_blurb_str_2, blurb3);
		update_progress_form_full(g_blurb_str_1, g_blurb_str_2,
								  g_blurb_str_3);
	}


/**
 * Update the progress form's complete blurb and show @p g_current_progress.
 * @param blurb1 The first line of the blurb. Use @p g_blurb_str_1 to keep it unchanged.
 * @param blurb2 The second line of the blurb. Use @p g_blurb_str_3 (no, that's not a typo) to keep it the same.
 * @param blurb3 The third line of the blurb. Use @p g_blurb_str_2 (no, that's not a typo either) to keep it the same.
 */
	void
	 update_progress_form_full(char *blurb1, char *blurb2, char *blurb3) {
		/*@ long ***************************************************** */
		long current_time = 0L;
		long time_taken = 0L;
		long time_remaining = 0L;
		long time_total_est = 0L;

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

		/*@ buffers *************************************************** */
		char *percentline_str;
		char *timeline_str;
		char *taskprogress = NULL;
		char *tmp;

//  log_msg(1, "'%s' '%s' '%s'", blurb1, blurb2, blurb3);
		percentline_str = malloc(MAX_NEWT_COMMENT_LEN);
		timeline_str = malloc(MAX_NEWT_COMMENT_LEN);
		malloc_string(tmp);
		if (!g_text_mode) {
			assert(blurb1 != NULL);
			assert(blurb2 != NULL);
			assert(blurb3 != NULL);
			assert(g_timeline != NULL);
		}

		percentline_str[0] = '\0';

		current_time = get_time();
		time_taken = current_time - g_start_time;
		if (g_maximum_progress == 0) {
			percentage = 0;
		} else {
			if (g_current_progress > g_maximum_progress) {
				sprintf(tmp,
						"update_progress_form_full(%s,%s,%s) --- g_current_progress=%ld; g_maximum_progress=%ld",
						blurb1, blurb2, blurb3, g_current_progress,
						g_maximum_progress);
				log_msg(0, tmp);
				g_current_progress = g_maximum_progress;
			}
			percentage =
				(int) ((g_current_progress * 100L) / g_maximum_progress);
		}
		if (percentage < 1) {
			percentage = 1;
		}
		if (percentage > 100) {
			percentage = 100;
		}
		if (g_current_progress) {
			time_total_est =
				time_taken * (long) g_maximum_progress /
				(long) (g_current_progress);
			time_remaining = time_total_est - time_taken;
		} else {
			time_remaining = 0L;
		}
		g_mysterious_dot_counter = (g_mysterious_dot_counter + 1) % 27;
		sprintf(timeline_str,
				"%2ld:%02ld taken               %2ld:%02ld remaining  ",
				(long) time_taken / 60, time_taken % 60, time_remaining / 60,
				time_remaining % 60);
		sprintf(percentline_str, " %3d%% done                 %3d%% to go",
				percentage, 100 - percentage);

		if (g_text_mode) {
			printf("---progress-form---1--- %s\n", blurb1);
			printf("---progress-form---2--- %s\n", blurb2);
			printf("---progress-form---3--- %s\n", blurb3);
			printf("---progress-form---E---\n");
			mr_asprintf(taskprogress, "TASK:  [");
			for (i = 0; i < percentage; i += 5) {
				mr_strcat(taskprogress, "*");
			}
			for (; i < 100; i += 5) {
				mr_strcat(taskprogress, ".");
			}
			if (percentage > 100) {
				log_msg(2, "percentage = %d", percentage);
			}
			mr_strcat(taskprogress, "] %3d%% done; %2ld:%02ld to go", percentage,
							(long) time_remaining / 60, (long) time_remaining % 60);
			printf("---progress-form---4--- %s\n", taskprogress);
			paranoid_free(taskprogress);
		} else {
			center_string(blurb1, 54);
			center_string(blurb2, 54);
			center_string(blurb3, 54);
			if (g_blurb1) {
				newtLabelSetText(g_blurb1, blurb1);
			}
			if (g_blurb2) {
				newtLabelSetText(g_blurb2, blurb3);
			}
			if (g_blurb3) {
				newtLabelSetText(g_blurb3, blurb2);
			}
			newtScaleSet(g_scale, (unsigned long long) g_current_progress);
			if ((percentage >= 2) && (g_timeline)) {
				newtLabelSetText(g_timeline, timeline_str);
			}
			if (g_percentline) {
				newtLabelSetText(g_percentline, percentline_str);
			}
			newtDrawForm(g_progressForm);
			newtRefresh();
		}
		paranoid_free(percentline_str);
		paranoid_free(timeline_str);
		paranoid_free(tmp);
	}














/**
 * Ask the user which backup media type they would like to use.
 * The choices are @p none (exit to shell), @c cdr, @c cdrw, @c dvd,
 * @c tape, @c cdstream, @c udev (only when @p g_text_mode is TRUE), @c netfs,
 * and @c iso.
 * @param restoring TRUE if we're restoring, FALSE if we're backing up.
 * @return The backup type chosen, or @c none if the user chose "Exit to shell".
 */
	t_bkptype which_backup_media_type(bool restoring) {

		/*@ char ************************************************************ */
		t_bkptype output;


		/*@ newt ************************************************************ */
		char *title_sz;
		char *minimsg_sz;
		static t_bkptype possible_bkptypes[] =
			{ none, cdr, cdrw, dvd, tape, cdstream, udev, netfs, iso };
		static char *possible_responses[] =
			{ "none", "cdr", "cdrw", "dvd", "tape", "cdstream", "udev",
"netfs", "iso", NULL };
		char *outstr;
		char *p;
		t_bkptype backup_type;
		int i;

		newtComponent b1;
		newtComponent b2;
		newtComponent b3;
		newtComponent b4;
		newtComponent b5;
		newtComponent b6;
		newtComponent b7;
		newtComponent b8;
		newtComponent b_res;
		newtComponent myForm;

		title_sz = malloc(MAX_NEWT_COMMENT_LEN);
		minimsg_sz = malloc(MAX_NEWT_COMMENT_LEN);
		outstr = malloc(MAX_NEWT_COMMENT_LEN);
		if (g_text_mode) {
			for (backup_type = none; backup_type == none;) {
				printf("Backup type (");
				for (i = 0; possible_responses[i]; i++) {
					printf("%c%s", (i == 0) ? '\0' : ' ',
						   possible_responses[i]);
				}
				printf(")\n--> ");
				p = fgets(outstr, MAX_NEWT_COMMENT_LEN, stdin);
				if (!p) {
					// FIXME
				}
				strip_spaces(outstr);
				for (i = 0; possible_responses[i]; i++) {
					if (!strcmp(possible_responses[i], outstr)) {
						backup_type = possible_bkptypes[i];
					}
				}
			}
			paranoid_free(title_sz);
			paranoid_free(minimsg_sz);
			paranoid_free(outstr);
			return (backup_type);
		}
		newtDrawRootText(18, 0, WELCOME_STRING);
		if (restoring) {
			strcpy(title_sz,
				   "Please choose the backup media from which you want to read data.");
			strcpy(minimsg_sz, "Read from:");
		} else {
			strcpy(title_sz,
				   "Please choose the backup media to which you want to archive data.");
			strcpy(minimsg_sz, "Backup to:");
		}
		newtPushHelpLine(title_sz);
		//  newtOpenWindow (23, 3, 34, 17, minimsg_sz);
		newtCenteredWindow(34, 17, minimsg_sz);
		b1 = newtButton(1, 1, "CD-R disks ");
		b2 = newtButton(17, 1, "CD-RW disks");
		b3 = newtButton(1, 9, "Tape drive ");
		b4 = newtButton(17, 5, "USB Key/Disk");
		b5 = newtButton(1, 5, " DVD disks ");
		b6 = newtButton(17, 9, " Net mount ");
		b7 = newtButton(1, 13, " Hard disk ");
		b8 = newtButton(17, 13, "    Exit   ");
		myForm = newtForm(NULL, NULL, 0);
		newtFormAddComponents(myForm, b1, b5, b3, b7, b2, b4, b6, b8,
							  NULL);
		b_res = newtRunForm(myForm);
		newtFormDestroy(myForm);
		newtPopWindow();
		if (b_res == b1) {
			output = cdr;
		} else if (b_res == b2) {
			output = cdrw;
		} else if (b_res == b3) {
			output = tape;
		} else if (b_res == b4) {
			output = usb;
		} else if (b_res == b5) {
			output = dvd;
		} else if (b_res == b6) {
			output = netfs;
		} else if (b_res == b7) {
			output = iso;
		} else {
			output = none;
		}
		newtPopHelpLine();
		paranoid_free(title_sz);
		paranoid_free(minimsg_sz);
		paranoid_free(outstr);
		return (output);
	}




/**
 * Ask the user which compression type they would like to use.
 * The choices are "bzip2", "gzip", "lzo". NULL for exit
 */
	char *which_compression_type() {

		/*@ char ************************************************************ */
		char *output = NULL;


		/*@ newt ************************************************************ */

		newtComponent b1;
		newtComponent b2;
		newtComponent b3;
		//newtComponent b4;
		newtComponent b5;
		newtComponent b_res;
		newtComponent myForm;

		newtDrawRootText(18, 0, WELCOME_STRING);
		newtPushHelpLine
			("   Please specify the type of compression that you want.");
		newtCenteredWindow(34, 13, "Type of compression?");
		b1 = newtButton(4, 1, "bzip2");
		b2 = newtButton(18, 1, "gzip");
		b3 = newtButton(4, 5, "lzo");
		//b4 = newtButton(18, 5, "lzma");
		b5 = newtButton(4, 9, "         Exit        ");
		myForm = newtForm(NULL, NULL, 0);
		newtFormAddComponents(myForm, b1, b3, b2, b5, NULL);
		b_res = newtRunForm(myForm);
		newtFormDestroy(myForm);
		newtPopWindow();
		if (b_res == b1) {
			mr_asprintf(output, "%s", "bzip2");
		} else if (b_res == b2) {
			mr_asprintf(output, "%s", "gzip");
		} else if (b_res == b3) {
			mr_asprintf(output, "%s", "lzo");
		//} else if (b_res == b4) {
			//mr_asprintf(output, "%s", "lzma");
		}
		newtPopHelpLine();
		return(output);
	}


/**
 * Ask the user how much compression they would like to use.
 * The choices are "None" (0), "Minimum" (1), "Average" (4), and "Maximum" (9).
 * @return The compression level (0-9) chosen, or -1 for "Exit".
 */
	int
	 which_compression_level() {

		/*@ char ************************************************************ */
		int output = none;


		/*@ newt ************************************************************ */

		newtComponent b1;
		newtComponent b2;
		newtComponent b3;
		newtComponent b4;
		newtComponent b5;
		newtComponent b_res;
		newtComponent myForm;

		newtDrawRootText(18, 0, WELCOME_STRING);
		newtPushHelpLine
			("   Please specify the level of compression that you want.");
		//  newtOpenWindow (23, 3, 34, 13, "How much compression?");
		newtCenteredWindow(34, 13, "How much compression?");
		b1 = newtButton(4, 1, "Maximum (9)");
		b2 = newtButton(18, 1, "Average (4)");
		b3 = newtButton(4, 5, "Minimum (1)");
		b4 = newtButton(18, 5, " None (0) ");
		b5 = newtButton(4, 9, "         Exit        ");
		myForm = newtForm(NULL, NULL, 0);
		newtFormAddComponents(myForm, b1, b3, b2, b4, b5, NULL);
		b_res = newtRunForm(myForm);
		newtFormDestroy(myForm);
		newtPopWindow();
		if (b_res == b1) {
			output = 9;
		} else if (b_res == b2) {
			output = 4;
		} else if (b_res == b3) {
			output = 1;
		} else if (b_res == b4) {
			output = 0;
		} else if (b_res == b5) {
			output = -1;
		}
		newtPopHelpLine();
		return (output);
	}





/**
 * Load @p source_file (a list of files) into @p filelist. There can be no more than
 * @p ARBITRARY_MAXIMUM entries.
 * @param filelist The filelist structure to load @p source_file into.
 * @param source_file The file containing a list of filenames to load into @p filelist.
 */
	int load_filelist_into_array(struct s_filelist *filelist,
								 char *source_file) {
		int i;
		int j = 0;
		bool done;
		char *tmp;
		char *p;
		char *tmp1 = NULL;
		FILE *fin, *fout;
		struct s_filelist_entry dummy_fle;

		assert(filelist != NULL);
		assert_string_is_neither_NULL_nor_zerolength(source_file);

		log_it("entering");
		if (!(fin = fopen(source_file, "r"))) {
			log_OS_error(source_file);
			log_msg(2, "Can't open %s; therefore, cannot popup list",
					source_file);
			return (1);
		}

		mr_asprintf(tmp1,"%s/icantfindthesefiles.txt",bkpinfo->tmpdir);
		if (!(fout = fopen(tmp1, "a"))) {
			log_msg(2, "Can't write to %s", tmp1);
			return(1);
			}

		malloc_string(tmp);
		log_msg(2, "Loading %s", source_file);
		for (filelist->entries = 0; filelist->entries <= ARBITRARY_MAXIMUM;
			 filelist->entries++) {
		  god_i_hate_gotos:
			if (feof(fin)) {
				break;
			}
			p = fgets(tmp, MAX_NEWT_COMMENT_LEN, fin);
			if (!p) {
				// FIXME
			}
			i = (int) strlen(tmp);
			if (i < 2) {
				goto god_i_hate_gotos;
			}
			if (tmp[i - 1] < 32) {
				tmp[--i] = '\0';
			}
			if (i < 2) {
				goto god_i_hate_gotos;
			}
			if (!does_file_exist(tmp) && !feof(fin)) {
				j++;
				fprintf(fout, "%s\n", tmp);

				goto god_i_hate_gotos;
			}
			filelist->el[filelist->entries].severity =
				severity_of_difference(tmp, NULL);
			strcpy(filelist->el[filelist->entries].filename, tmp);
			if (feof(fin)) {
				break;
			}
		}
		paranoid_fclose(fin);
		paranoid_fclose(fout);
		if (j > 0) {
			log_to_screen("%d files listed in %s/changed.files have been deleted since backup was made\nand are referenced in %s", j, bkpinfo->tmpdir,tmp1);
		}
		paranoid_free(tmp1);
		if (filelist->entries >= ARBITRARY_MAXIMUM) {
			log_to_screen("Arbitrary limits suck, man!");
			paranoid_free(tmp);
			return (1);
		}
		for (done = FALSE; !done;) {
			done = TRUE;
			for (i = 0; i < filelist->entries - 1; i++) {
//          if (strcmp(filelist->el[i].filename, filelist->el[i+1].filename) > 0)
				if (filelist->el[i].severity < filelist->el[i + 1].severity
					|| (filelist->el[i].severity ==
						filelist->el[i + 1].severity
						&& strcmp(filelist->el[i].filename,
								  filelist->el[i + 1].filename) > 0)) {
					memcpy((void *) &dummy_fle,
						   (void *) &(filelist->el[i]),
						   sizeof(struct s_filelist_entry));
					memcpy((void *) &(filelist->el[i]),
						   (void *) &(filelist->el[i + 1]),
						   sizeof(struct s_filelist_entry));
					memcpy((void *) &(filelist->el[i + 1]),
						   (void *) &dummy_fle,
						   sizeof(struct s_filelist_entry));
					log_msg(2, "Swapping %s and %s",
							filelist->el[i].filename,
							filelist->el[i + 1].filename);
					done = FALSE;
				}
			}
		}
		paranoid_free(tmp);
		log_it("leaving");
		return (0);
	}



/**
 * Generate a pretty string based on @p flentry.
 * @param flentry The filelist entry to stringify.
 * @return The string form of @p flentry.
 * @note The returned value points to static storage that will be overwritten with each call.
 */
	char *filelist_entry_to_string(struct s_filelist_entry *flentry) {
		static char comment[100];
		char *tmp = NULL;

		log_it("entering");
		assert(flentry != NULL);
		if (flentry->severity == 0) {
			mr_asprintf(tmp, "0   ");
		} else if (flentry->severity == 1) {
			mr_asprintf(tmp, "low ");
		} else if (flentry->severity == 2) {
			mr_asprintf(tmp, "med ");
		} else {
			mr_asprintf(tmp, "high");
		}
		mr_strcat(tmp, "  ");
		mr_strcat(tmp, flentry->filename);
		strncpy(comment, tmp, 99);
		paranoid_free(tmp);

		log_it("leaving");
		return (comment);
	}





/**
 * Pop up a list containing the filenames in @p source_file and the severity if they have changed since the
 * last backup. There can be no more than @p ARBITRARY_MAXIMUM files in @p source_file.
 * @param source_file The file containing a list of changed files.
 */
	void popup_changelist_from_file(char *source_file) {
		char *reason;
		newtComponent myForm;
		newtComponent bClose;
		newtComponent bSelect;
		newtComponent b_res;
		newtComponent fileListbox;
		newtComponent headerMsg;

		/*@ ???? ************************************************************ */
		void *curr_choice;
		void *keylist[ARBITRARY_MAXIMUM];

		/*@ int ************************************************************* */
		int currline = 0;
		int finished = FALSE;

		/*@ long ************************************************************ */
		long i = 0;
		long lng = 0;

		/*@ buffers ********************************************************* */
		char *tmp;
		char *differ_sz;

		struct s_filelist *filelist;
		malloc_string(reason);
		tmp = malloc(5000);
		malloc_string(differ_sz);
		assert_string_is_neither_NULL_nor_zerolength(source_file);
		if (g_text_mode) {
			log_msg(2, "Text mode. Therefore, no popup list.");
			goto free_to_go;
		}
		log_msg(2, "Examining file %s", source_file);

		lng = count_lines_in_file(source_file);
		if (lng < 1) {
			log_msg(2, "No lines in file. Therefore, no popup list.");
			paranoid_free(reason);
			goto free_to_go;
		} else if (lng >= ARBITRARY_MAXIMUM) {
			log_msg(2, "Too many files differ for me to list.");
			goto free_to_go;
		}

		filelist = (struct s_filelist *) malloc(sizeof(struct s_filelist));
		fileListbox =
			newtListbox(2, 2, 12, NEWT_FLAG_SCROLL | NEWT_FLAG_RETURNEXIT);
		newtListboxClear(fileListbox);

		if (load_filelist_into_array(filelist, source_file)) {
			log_msg(2, "Can't open %s; therefore, cannot popup list",
					source_file);
			paranoid_free(reason);
			return;
		}
		log_msg(2, "%d files loaded into filelist array",
				filelist->entries);
		for (i = 0; i < filelist->entries; i++) {
			keylist[i] = (void *) i;
			newtListboxAppendEntry(fileListbox,
								   filelist_entry_to_string(&
															(filelist->
															 el[i])),
								   keylist[i]);
		}
		sprintf(differ_sz,
				"  %ld files differ. Hit 'Select' to pick a file. Hit 'Close' to quit the list.",
				i);
		newtPushHelpLine(differ_sz);
		bClose = newtCompactButton(10, 15, " Close  ");
		bSelect = newtCompactButton(30, 15, " Select ");
		sprintf(tmp, "%-10s               %-20s", "Priority", "Filename");
		headerMsg = newtLabel(2, 1, tmp);
		newtOpenWindow(5, 4, 70, 16, "Non-matching files");
		myForm = newtForm(NULL, NULL, 0);
		newtFormAddComponents(myForm, headerMsg, fileListbox, bClose,
							  bSelect, NULL);
		while (!finished) {
			b_res = newtRunForm(myForm);
			if (b_res == bClose) {
				finished = TRUE;
			} else {
				curr_choice = newtListboxGetCurrent(fileListbox);
				for (i = 0;
					 i < filelist->entries && keylist[i] != curr_choice;
					 i++);
				if (i == filelist->entries && filelist->entries > 0) {
					log_to_screen("I don't know what that button does!");
				} else {
					currline = i;
					if (filelist->entries > 0) {
						severity_of_difference(filelist->el[currline].
											   filename, reason);
						sprintf(tmp, "%s --- %s",
								filelist->el[currline].filename, reason);
						popup_and_OK(tmp);
					}
				}
			}
		}
		newtFormDestroy(myForm);
		newtPopWindow();
		newtPopHelpLine();
	  free_to_go:
		paranoid_free(reason);
		paranoid_free(tmp);
		paranoid_free(differ_sz);
		return;
	}

/* @} - end of guiGroup */


#if __cplusplus
}								/* extern "C" */
#endif
