source: MondoRescue/trunk/mondo/src/common/libmondo-tools.c@ 1086

/* $Id: libmondo-tools.c 1086 2007-02-02 22:21:27Z bruno $
misc tools
*/

/**
 * @file
 * Miscellaneous tools that didn't really fit anywhere else.
 */

#include "my-stuff.h"
#include "mr_mem.h"
#include "mondostructures.h"
#include "libmondo-tools.h"
#include "newt-specific-EXT.h"
#include "libmondo-files-EXT.h"
#include "libmondo-fork-EXT.h"
#include "libmondo-raid-EXT.h"
#include <sys/socket.h>
#include <netdb.h>
#include <netinet/in.h>
#ifndef S_SPLINT_S
#include <arpa/inet.h>
#endif
#include "mr_mem.h"

/*@unused@*/
//static char cvsid[] = "$Id: libmondo-tools.c 1086 2007-02-02 22:21:27Z bruno $";

extern int g_tape_buffer_size_MB;
extern char *g_erase_tmpdir_and_scratchdir;
extern char *g_serial_string;
extern bool g_text_mode;
extern int g_currentY;
extern int g_current_media_number;

/**
 * @addtogroup globalGroup
 * @{
 */
bool g_remount_cdrom_at_end,    ///< TRUE if we unmounted the CD-ROM and should remount it when done with the backup.
 g_remount_floppy_at_end;       ///< TRUE if we unmounted the floppy and should remount it when done with the backup.
bool g_cd_recovery;             ///< TRUE if we're making an "autonuke" backup.
double g_kernel_version;

/**
 * The place where /boot is mounted. - Used locally only
 */
static char *g_boot_mountpt = NULL;

/**
 * The location of Mondo's home directory.
 */
char *g_mondo_home = NULL;

/**
 * The serial string (used to differentiate between backups) of the current backup.
 */
char *g_serial_string = NULL;

/**
 * The location where tmpfs is mounted, or "" if it's not mounted.
 */
char *g_tmpfs_mountpt = NULL;
char *g_magicdev_command = NULL;

/**
 * The default maximum level to log messages at or below.
 */
int g_loglevel = DEFAULT_DEBUG_LEVEL;

/* @} - end of globalGroup */


extern pid_t g_buffer_pid;
extern pid_t g_main_pid;

extern t_bkptype g_backup_media_type;
extern char *g_backup_media_string;

extern bool am_I_in_disaster_recovery_mode(void);


/**
 * @addtogroup utilityGroup
 * @{
 */
/**
 * Assertion handler. Prints a friendly message to the user,
 * offering to ignore all, dump core, break to debugger,
 * exit, or ignore. Intended to be used with an assert() macro.
 *
 * @param file The file in which the assertion triggered.
 * @param function The function (@c __FUNCTION__) in which the assertion triggered.
 * @param line The line number of the assert() statement.
 * @param exp The expression that failed (as a string).
 */
void _mondo_assert_fail(const char *file,
                        const char *function, int line, const char *exp)
{
    static int ignoring_assertions = 0;
    bool is_valid = TRUE;

    log_it("ASSERTION FAILED: `%s' at %s:%d in %s", exp, file, line,
           function);
    if (ignoring_assertions) {
        log_it("Well, the user doesn't care...");
        return;
    }
#ifndef _XWIN
    if (!g_text_mode)
        newtSuspend();
#endif
    printf(_("ASSERTION FAILED: `%s'\n"), exp);
    printf(_("\tat %s:%d in %s\n\n"), file, line, function);
    printf(_("(I)gnore, ignore (A)ll, (D)ebug, a(B)ort, or (E)xit? "));
    do {
        is_valid = TRUE;
        switch (toupper(getchar())) {
        case 'A':               // ignore (A)ll
            ignoring_assertions = 1;
            break;
        case 'B':               // a(B)ort
            signal(SIGABRT, SIG_DFL);   /* prevent SIGABRT handler from running */
            raise(SIGABRT);
            break;              /* "can't get here" */
        case 'D':               // (D)ebug, aka asm("int 3")
#ifdef __IA32__
            __asm__ __volatile__("int $3"); // break to debugger
#endif
            break;
        case 'E':               // (E)xit
            fatal_error("Failed assertion -- see above for details");
            break;              /* "can't get here" */
        case 'I':               // (I)gnore
            break;
            /* These next two work as follows:
               the `default' catches the user's invalid choice and says so;
               the '\n' catches the newline on the end and prints the prompt again.
             */
        case '\n':
            printf
                (_("(I)gnore, ignore (A)ll, (D)ebug, a(B)ort, or (E)xit? "));
            break;
        default:
            is_valid = FALSE;
            printf(_("Invalid choice.\n"));
            break;
        }
    } while (!is_valid);

    if (ignoring_assertions) {
        log_it("Ignoring ALL assertions from now on.");
    } else {
        log_it("Ignoring assertion: %s", exp);
    }

    getchar();                  // skip \n

#ifndef _XWIN
    if (!g_text_mode)
        newtResume();
#endif
}

/**
 * Clean's up users' KDE desktops.
 * @bug Details about this function are unknown.
 */
void clean_up_KDE_desktop_if_necessary(void)
{
    char *tmp;

    mr_asprintf(&tmp,
             "for i in `find /root /home -type d -name Desktop -maxdepth 2`; do \
file=$i/.directory; if [ -f \"$file\" ] ; then mv -f $file $file.old ; \
awk '{if (index($0, \"rootimagesmindi\")) { while (length($0)>2) { getline;} ; } \
else { print $0;};}' $file.old  > $file ; fi ; done");
    run_program_and_log_output(tmp, 5);
    mr_free(tmp);
}


/**
 * Locate mondoarchive's home directory. Searches in /usr/share/mondo,
 * /usr/local/share/mondo, /opt, or if all else fails, search /usr.
 *
 * @param home_sz String to store the home directory ("" if it could not be found).
 * @return 0 for success, nonzero for failure.
 */
char *find_and_store_mondoarchives_home()
{
    char *home_sz = NULL;

    mr_asprintf(&home_sz, MONDO_SHARE);
    return (home_sz);
}


char *get_architecture()
{
#ifdef __IA32__
    return ("i386");
#endif
#ifdef __X86_64__
    return ("x86-64");
#endif
#ifdef __IA64__
    return ("ia64");
#endif
    return ("unknown");
}



double get_kernel_version()
{
    char *p, *tmp;
    double d;
#ifdef __FreeBSD__
    // JOSH - FIXME :)
    d = 5.2;                    // :-)
#else
    tmp = call_program_and_get_last_line_of_output("uname -r");
    p = strchr(tmp, '.');
    if (p) {
        p = strchr(++p, '.');
        if (p) {
            while (*p) {
                *p = *(p + 1);
                p++;
            }
        }
    }
//  mr_msg(1, "tmp = '%s'", tmp);
    d = atof(tmp);
#endif
    mr_msg(1, "g_kernel_version = %f", d);
    return (d);
}





/**
 * Get the current time.
 * @return number of seconds since the epoch.
 */
long get_time()
{
    return (long) time((void *) 0);
}







/**
 * Initialize a RAID volume structure, setting fields to zero. The
 * actual hard drive is unaffected.
 *
 * @param raidrec The RAID volume structure to initialize.
 * @note This function is system dependent.
 */
#ifdef __FreeBSD__
void initialize_raidrec(struct vinum_volume *raidrec)
{
    int i, j;
    raidrec->volname[0] = '\0';
    raidrec->plexes = 0;
    for (i = 0; i < 9; ++i) {
        raidrec->plex[i].raidlevel = -1;
        raidrec->plex[i].stripesize = 0;
        raidrec->plex[i].subdisks = 0;
        for (j = 0; j < 9; ++j) {
            strcpy(raidrec->plex[i].sd[j].which_device, "");
        }
    }
}
#else
void initialize_raidrec(struct raid_device_record *raidrec)
{
    assert(raidrec != NULL);
    raidrec->raid_device = NULL;
    raidrec->raid_level = -9;
    raidrec->persistent_superblock = 1;
    raidrec->chunk_size = 64;
    raidrec->parity = -1;
    raidrec->data_disks.entries = 0;
    raidrec->spare_disks.entries = 0;
    raidrec->parity_disks.entries = 0;
    raidrec->failed_disks.entries = 0;
    raidrec->additional_vars.entries = 0;
}
#endif




/**
 * Insert modules that Mondo requires.
 * Currently inserts @c dos, @c fat, @c vfat, and @c osst for Linux;
 * @c msdosfs and @c ext2fs for FreeBSD.
 */
void insmod_crucial_modules(void)
{
#ifdef __FreeBSD__
    system("kldstat | grep msdosfs || kldload msdosfs 2> /dev/null");
    system("kldstat | grep ext2fs  || kldload ext2fs 2> /dev/null");
#else
    system("modprobe -a dos fat vfat loop &> /dev/null");
#endif
}


/**
 * Finish configuring the backup information structure. Call this function
 * to set the parameters that depend on those that can be given on the command
 * line.
 *
 * @param bkpinfo The backup information structure. Fields modified/used:
 * - Used: @c bkpinfo->backup_data
 * - Used: @c bkpinfo->backup_media_type
 * - Used: @c bkpinfo->cdrw_speed
 * - Used: @c bkpinfo->compression_level
 * - Used: @c bkpinfo->include_paths
 * - Used: @c bkpinfo->prefix
 * - Used: @c bkpinfo->isodir
 * - Used: @c bkpinfo->manual_cd_tray
 * - Used: @c bkpinfo->make_cd_use_lilo
 * - Used: @c bkpinfo->media_device
 * - Used: @c bkpinfo->nfs_mount
 * - Used: @c bkpinfo->nonbootable_backup
 * - Used: @c bkpinfo->scratchdir
 * - Used: @c bkpinfo->tmpdir
 * - Used: @c bkpinfo->use_lzo
 * - Modified: @c bkpinfo->call_before_iso
 * - Modified: @c bkpinfo->call_make_iso
 * - Modified: @c bkpinfo->optimal_set_size
 * - Modified: @c bkpinfo->zip_exe
 * - Modified: @c bkpinfo->zip_suffix
 * 
 * @return number of errors, or 0 for success.
 * @note Also creates directories that are specified in the @c bkpinfo structure but
 * do not exist.
 */
int post_param_configuration(struct s_bkpinfo *bkpinfo)
{
    char *extra_cdrom_params = NULL;
    char *mondo_mkisofs_sz = NULL;
    char *command = NULL;
    char *hostname = NULL, *ip_address = NULL;
    int retval = 0;
    long avm = 0;
    char *colon = NULL;
    char *cdr_exe = NULL;
    char *tmp = NULL;
    char *tmp1 = NULL;
    char *call_before_iso_user = NULL;
    int rdsiz_MB;
    char *iso_path = NULL;

    assert(bkpinfo != NULL);
    bkpinfo->optimal_set_size =
        (IS_THIS_A_STREAMING_BACKUP(bkpinfo->backup_media_type) ? 16 : 16) *
        1024;

    mr_msg(1, "Foo");
    if (bkpinfo->backup_media_type == tape) {
        mr_msg(1, "Bar");
        mr_asprintf(&tmp, "mt -f %s status", bkpinfo->media_device);
        mr_msg(1, "tmp = '%s'", tmp);
        if (run_program_and_log_output(tmp, 3)) {
            fatal_error
                ("Unable to open tape device. If you haven't specified it with -d, do so. If you already have, check your parameter. I think it's wrong.");
        }
        mr_free(tmp);
    }
    make_hole_for_dir(bkpinfo->scratchdir);
    make_hole_for_dir(bkpinfo->tmpdir);
    if (bkpinfo->backup_media_type == iso)
        make_hole_for_dir(bkpinfo->isodir);

    run_program_and_log_output("uname -a", 5);
    run_program_and_log_output("cat /etc/*-release", 5);
    run_program_and_log_output("cat /etc/*issue*", 5);
    mr_asprintf(&g_tmpfs_mountpt, "%s/tmpfs", bkpinfo->tmpdir);
    mr_asprintf(&command, "mkdir -p %s", g_tmpfs_mountpt);
    paranoid_system(command);
    mr_free(command);
    rdsiz_MB = PPCFG_RAMDISK_SIZE + g_tape_buffer_size_MB;
#ifdef __FreeBSD__
    tmp = call_program_and_get_last_line_of_output
             ("vmstat | tail -1 | tr -s ' ' | cut -d' ' -f6");
    avm += atol(tmp);
    mr_free(tmp);
    tmp = call_program_and_get_last_line_of_output
             ("swapinfo | grep -v Device | tr -s ' ' | cut -d' ' -f4 | tr '\n' '+' | sed 's/+$//' | bc");
    avm += atol(tmp);
    mr_free(tmp);
    mr_asprintf(&command, "mdmfs -s %d%c md9 %s", rdsiz_MB, 'm',
             g_tmpfs_mountpt);
#else
    tmp = call_program_and_get_last_line_of_output
             ("free | grep ':' | tr -s ' ' '\t' | cut -f2 | head -n1");
    avm += atol(tmp);
    mr_free(tmp);
    mr_asprintf(&command, "mount /dev/shm -t tmpfs %s -o size=%d%c",
             g_tmpfs_mountpt, rdsiz_MB, 'm');
    run_program_and_log_output("cat /proc/cpuinfo", 5);
    /* BERLIOS: rpm is not necessarily there ! */
    run_program_and_log_output
        ("rpm -q newt newt-devel slang slang-devel ncurses ncurses-devel gcc",
         5);
#endif
    if (avm / 1024 > rdsiz_MB * 3) {
        if (run_program_and_log_output(command, 5)) {
            mr_free(g_tmpfs_mountpt);
            log_it("Failed to mount tmpfs");
        } else {
            log_it("Tmpfs mounted OK - %d MB", rdsiz_MB);
        }
    } else {
        mr_free(g_tmpfs_mountpt);
        log_it("It doesn't seem you have enough swap to use tmpfs. Fine.");
    }
    mr_free(command);

    if (bkpinfo->use_lzo) {
        mr_allocstr(bkpinfo->zip_exe, "lzop");
        mr_allocstr(bkpinfo->zip_suffix, "lzo");
    } else if (bkpinfo->use_gzip) {
        strcpy(bkpinfo->zip_exe, "gzip");
        strcpy(bkpinfo->zip_suffix, "gz");
    } else if (bkpinfo->use_gzip) {
        strcpy(bkpinfo->zip_exe, "gzip");
        strcpy(bkpinfo->zip_suffix, "gz");
    } else if (bkpinfo->compression_level != 0) {
        mr_allocstr(bkpinfo->zip_exe, "bzip2");
        mr_allocstr(bkpinfo->zip_suffix, "bz2");
    } else {
        bkpinfo->zip_exe = NULL;
        bkpinfo->zip_suffix = NULL;
    }

// DVD

    if (bkpinfo->backup_media_type == dvd) {
        tmp = find_home_of_exe("growisofs");
        if (!tmp) {
            fatal_error("Please install growisofs.");
        }
        mr_free(tmp);

        if (bkpinfo->nonbootable_backup) {
            mr_asprintf(&mondo_mkisofs_sz, MONDO_GROWISOFS_NONBOOT);
        } else if
#ifdef __FreeBSD__
            (TRUE)
#else
            (bkpinfo->make_cd_use_lilo)
#endif
#ifdef __IA64__
    {
        mr_asprintf(&mondo_mkisofs_sz, MONDO_GROWISOFS_REGULAR_ELILO);
    }
#else
    {
        mr_asprintf(&mondo_mkisofs_sz, MONDO_GROWISOFS_REGULAR_LILO);
    }
#endif
        else
        {
            mr_asprintf(&mondo_mkisofs_sz, MONDO_GROWISOFS_REGULAR_SYSLINUX);
        }
        if (bkpinfo->manual_cd_tray) {
            fatal_error("Manual CD tray + DVD not supported yet.");
            // -m isn't supported by growisofs, BTW...
        } else {
            mr_asprintf(&bkpinfo->call_make_iso,
                    "%s %s -Z %s . 2>> _ERR_",
                    mondo_mkisofs_sz, "", bkpinfo->media_device);
        }
        mr_free(mondo_mkisofs_sz);

        if (getenv ("SUDO_COMMAND")) {
            mr_asprintf(&command, "strings `which growisofs` | grep -c SUDO_COMMAND");
            tmp = call_program_and_get_last_line_of_output(command);
            if (!strcmp(tmp, "1")) {
                popup_and_OK("Fatal Error: Can't write DVDs as sudo because growisofs doesn't support this - see the growisofs manpage for details.");
                fatal_error("Can't write DVDs as sudo because growisofs doesn't support this - see the growisofs manpage for details.");
            }       
            mr_free(tmp);
            mr_free(command);
        }
        mr_msg(2, "call_make_iso (DVD res) is ... %s",
                bkpinfo->call_make_iso);
    }                           // end of DVD code

// CD-R or CD-RW
    if (bkpinfo->backup_media_type == cdrw
        || bkpinfo->backup_media_type == cdr) {
        if (!bkpinfo->manual_cd_tray) {
            mr_asprintf(&extra_cdrom_params, "-waiti ");
        }
        if (bkpinfo->backup_media_type == cdrw) {
            if (extra_cdrom_params != NULL) {
                mr_asprintf(&tmp, extra_cdrom_params);
                mr_free(extra_cdrom_params);
                mr_asprintf(&extra_cdrom_params, "%s blank=fast ", tmp);
            } else {
                mr_asprintf(&extra_cdrom_params, "blank=fast ");
            }
        }
        tmp = find_home_of_exe("cdrecord");
        tmp1 = find_home_of_exe("dvdrecord");
        if (tmp) {
            mr_asprintf(&cdr_exe, "cdrecord");
        } else if (tmp1) {
            mr_asprintf(&cdr_exe, "dvdrecord");
        } else {
            fatal_error("Please install either cdrecord or dvdrecord.");
        }
        mr_free(tmp);
        mr_free(tmp1);

        if (bkpinfo->nonbootable_backup) {
            mr_asprintf(&mondo_mkisofs_sz, "%s -r -p MondoRescue -publisher www.mondorescue.org -A Mondo_Rescue_GPL_Version -V _CD#_", bkpinfo->mr_conf->mondo_iso_creation_cmd);
        } else if
#ifdef __FreeBSD__
            (TRUE)
#else
            (bkpinfo->make_cd_use_lilo)
#endif
#ifdef __IA64__
    {
        mr_asprintf(&mondo_mkisofs_sz, MONDO_MKISOFS_REGULAR_ELILO);
    }
#else
    {
        mr_asprintf(&mondo_mkisofs_sz, MONDO_MKISOFS_REGULAR_LILO);
    }
#endif
        else
        {
            mr_asprintf(&mondo_mkisofs_sz, MONDO_MKISOFS_REGULAR_SYSLINUX);
        }
        if (bkpinfo->manual_cd_tray) {
            if (bkpinfo->call_before_iso == NULL) {
                mr_asprintf(&bkpinfo->call_before_iso,
                        "%s -o %s/temporary.iso . 2>> _ERR_",
                        mondo_mkisofs_sz, bkpinfo->tmpdir);
            } else {
                mr_asprintf(&call_before_iso_user, bkpinfo->call_before_iso);
                mr_asprintf(&bkpinfo->call_before_iso,
                                    "( %s -o %s/temporary.iso . 2>> _ERR_ ; %s )",
                        mondo_mkisofs_sz, bkpinfo->tmpdir, call_before_iso_user);
                mr_free(call_before_iso_user);
            }
            log_it("bkpinfo->call_before_iso = %s", bkpinfo->call_before_iso);
            mr_asprintf(&bkpinfo->call_make_iso,
                    "%s %s -v %s fs=4m dev=%s speed=%d %s/temporary.iso",
                    cdr_exe, (bkpinfo->please_dont_eject) ? " " : "-eject",
                    extra_cdrom_params, bkpinfo->media_device,
                    bkpinfo->cdrw_speed, bkpinfo->tmpdir);
        } else {
            mr_asprintf(&bkpinfo->call_make_iso,
                    "%s . 2>> _ERR_ | %s %s %s fs=4m dev=%s speed=%d -",
                    mondo_mkisofs_sz, cdr_exe,
                    (bkpinfo->please_dont_eject) ? " " : "-eject",
                    extra_cdrom_params, bkpinfo->media_device,
                    bkpinfo->cdrw_speed);
        }
        mr_free(mondo_mkisofs_sz);
        mr_free(cdr_exe);
        mr_free(extra_cdrom_params);
    }                           // end of CD code

    if (bkpinfo->backup_media_type == iso) {

/* Patch by Conor Daly <conor.daly@met.ie> 
 * 23-june-2004
 * Break up isodir into iso_mnt and iso_path
 * These will be used along with iso-dev at restore time
 * to locate the ISOs where ever they're mounted
 */

        log_it("isodir = %s", bkpinfo->isodir);
        mr_asprintf(&command, "df -P %s | tail -n1 | cut -d' ' -f1",
                 bkpinfo->isodir);
        log_it("command = %s", command);
        tmp = call_program_and_get_last_line_of_output(command);
        mr_free(command);
        log_it("res of it = %s", tmp);
        mr_asprintf(&tmp1, "%s/ISO-DEV", bkpinfo->tmpdir);
        write_one_liner_data_file(tmp1, tmp);
        mr_free(tmp1);

        mr_asprintf(&command, "mount | grep -w %s | tail -n1 | cut -d' ' -f3",
                 tmp);
        mr_free(tmp);
        log_it("command = %s", command);
        tmp = call_program_and_get_last_line_of_output(command);
        mr_free(command);
        log_it("res of it = %s", tmp);

        mr_asprintf(&tmp1, "%s/ISO-MNT", bkpinfo->tmpdir);
        write_one_liner_data_file(tmp1, tmp);
        mr_free(tmp1);

        log_it("isomnt: %s, %d", tmp, strlen(tmp));
        if (strlen(bkpinfo->isodir) < strlen(tmp)) {
            mr_asprintf(&iso_path, " ");
        } else {
            mr_asprintf(&iso_path, "%s", bkpinfo->isodir + strlen(tmp));
        }
        mr_free(tmp);

        mr_asprintf(&tmp, "%s/ISODIR", bkpinfo->tmpdir);
        write_one_liner_data_file(tmp, iso_path);
        mr_free(tmp);
        log_it("isodir: %s", iso_path);
        mr_free(iso_path);
        mr_asprintf(&tmp, "%s/ISO-PREFIX", bkpinfo->tmpdir);
        write_one_liner_data_file(tmp, bkpinfo->prefix);
        log_it("iso-prefix: %s",  bkpinfo->prefix);
        mr_free(tmp);
/* End patch */
    }                           // end of iso code

    if (bkpinfo->backup_media_type == nfs) {
        mr_asprintf(&hostname, bkpinfo->nfs_mount);
        colon = strchr(hostname, ':');
        if (!colon) {
            log_it("nfs mount doesn't have a colon in it");
            retval++;
        } else {
            struct hostent *hent;

            *colon = '\0';
            hent = gethostbyname(hostname);
            if (!hent) {
                log_it("Can't resolve NFS mount (%s): %s", hostname,
                       hstrerror(h_errno));
                retval++;
            } else {
                mr_asprintf(&ip_address, "%s%s", inet_ntoa((struct in_addr)
                                                        *((struct in_addr
                                                           *) hent->
                                                          h_addr)),
                         strchr(bkpinfo->nfs_mount, ':'));
                mr_allocstr(bkpinfo->nfs_mount, ip_address);
                mr_free(ip_address);
            }
        }
        store_nfs_config(bkpinfo);
        mr_free(hostname);
    }

    log_it("Finished processing incoming params");
    if (retval) {
        fprintf(stderr, "Type 'man mondoarchive' for help.\n");
    }
    mr_asprintf(&tmp, "%s", MONDO_TMPISOS);
    if (does_file_exist(tmp)) {
        unlink(tmp);
    }
    mr_free(tmp);

    if (strlen(bkpinfo->tmpdir) < 2 || strlen(bkpinfo->scratchdir) < 2) {
        log_it("tmpdir or scratchdir are blank/missing");
        retval++;
    }
    if (bkpinfo->include_paths == NULL) {
        //      fatal_error ("Why no backup path?");
        mr_asprintf(&bkpinfo->include_paths, "/");
    }
    chmod(bkpinfo->scratchdir, 0700);
    chmod(bkpinfo->tmpdir, 0700);
    g_backup_media_type = bkpinfo->backup_media_type;
    mr_allocstr(g_backup_media_string,bkpinfo->backup_media_string);
    return (retval);
}



/**
 * Do some miscellaneous setup tasks to be performed before filling @c bkpinfo.
 * Seeds the random-number generator, loads important modules, checks the sanity
 * of the user's Linux distribution, and deletes logfile.
 * @param bkpinfo The backup information structure. Will be initialized.
 * @return number of errors (0 for success)
 */
int pre_param_configuration(struct s_bkpinfo *bkpinfo)
{
    int res = 0;

    make_hole_for_dir(MNT_CDROM);
    assert(bkpinfo != NULL);
    srandom((unsigned long) (time(NULL)));
    insmod_crucial_modules();
    reset_bkpinfo(bkpinfo);     // also sets defaults ('/'=backup path, 3=compression level)
    if (bkpinfo->disaster_recovery) {
        if (!does_nonMS_partition_exist()) {
            fatal_error
                ("I am in disaster recovery mode\nPlease don't run mondoarchive.");
        }
    }

    unlink(MONDO_TRACEFILE);
    run_program_and_log_output("rm -Rf /tmp/changed.files*", FALSE);
    if ((g_mondo_home = find_and_store_mondoarchives_home()) == NULL) {
        fprintf(stderr,
                "Cannot find Mondo's homedir. I think you have >1 'mondo' directory on your hard disk. Please delete the superfluous 'mondo' directories and try again\n");
        res++;
        return (res);
    }
    res += some_basic_system_sanity_checks();
    if (res) {
        log_it("Your distribution did not pass Mondo's sanity test.");
    }
    g_current_media_number = 1;
    bkpinfo->postnuke_tarball = NULL;
    mr_free(bkpinfo->nfs_mount);
    return (res);
}




/**
 * Reset all fields of the backup information structure to a sensible default.
 * @param bkpinfo The @c bkpinfo to reset.
 */
void reset_bkpinfo(struct s_bkpinfo *bkpinfo)
{
    int i = 0;

    mr_msg(1, "Hi");

    assert(bkpinfo != NULL);
    /* BERLIOS : Useless
    memset((void *) bkpinfo, 0, sizeof(struct s_bkpinfo));
    */

    bkpinfo->manual_cd_tray = FALSE;
    bkpinfo->internal_tape_block_size = DEFAULT_INTERNAL_TAPE_BLOCK_SIZE;
    bkpinfo->boot_loader = '\0';

    for (i = 0; i <= MAX_NOOF_MEDIA; i++) {
        bkpinfo->media_size[i] = -1;
    }

    mr_free(bkpinfo->media_device);
    mr_free(bkpinfo->boot_device);
    mr_free(bkpinfo->zip_exe);
    mr_free(bkpinfo->zip_suffix);
    mr_free(bkpinfo->restore_path);
    bkpinfo->use_lzo = FALSE;
    bkpinfo->use_gzip = FALSE;
    bkpinfo->do_not_compress_these[0] = '\0';
    bkpinfo->verify_data = FALSE;
    bkpinfo->backup_data = FALSE;
    bkpinfo->restore_data = FALSE;
    bkpinfo->disaster_recovery =
        (am_I_in_disaster_recovery_mode()? TRUE : FALSE);
    if (bkpinfo->disaster_recovery) {
        mr_allocstr(bkpinfo->isodir, "/");
    } else {
        mr_allocstr(bkpinfo->isodir, "/var/cache/mondo/iso");
    }
    mr_allocstr(bkpinfo->prefix, STD_PREFIX);

    mr_free(bkpinfo->scratchdir);
    bkpinfo->make_filelist = TRUE;  // unless -J supplied to mondoarchive
    mr_free(bkpinfo->tmpdir);
    mr_asprintf(&bkpinfo->tmpdir, "/tmp/tmpfs/mondo.tmp.%d", (int) (random() % 32768)); // for mondorestore
    bkpinfo->optimal_set_size = 0;
    bkpinfo->backup_media_type = none;
    mr_free(bkpinfo->backup_media_string);
    mr_allocstr(bkpinfo->include_paths, "/");
    mr_free(bkpinfo->exclude_paths);
    mr_free(bkpinfo->call_before_iso);
    mr_free(bkpinfo->call_make_iso);
    mr_free(bkpinfo->call_burn_iso);
    mr_free(bkpinfo->call_after_iso);
    mr_free(bkpinfo->image_devs);
    mr_free(bkpinfo->postnuke_tarball);
    mr_free(bkpinfo->kernel_path);
    mr_free(bkpinfo->nfs_mount);
    mr_free(bkpinfo->nfs_remote_dir);
    bkpinfo->wipe_media_first = FALSE;
    bkpinfo->differential = FALSE;
    bkpinfo->cdrw_speed = 0;
// patch by Herman Kuster  
    bkpinfo->differential = 0;
// patch end
    bkpinfo->compression_level = 3;
}


/**
 * Get the remaining free space (in MB) on @p partition.
 * @param partition The partition to check free space on (either a device or a mountpoint).
 * @return The free space on @p partition, in MB.
 */
long free_space_on_given_partition(char *partition)
{
    char *command = NULL;
    char *out_sz = NULL;
    long res;

    assert_string_is_neither_NULL_nor_zerolength(partition);

    mr_asprintf(&command, "df -m -P %s &> /dev/null", partition);
    if (system(command)) {
        return (-1);
    }                           // partition does not exist
    mr_free(command);

    mr_asprintf(&command, "df -m -P %s | tail -n1 | tr -s ' ' '\t' | cut -f4",
             partition);
    out_sz = call_program_and_get_last_line_of_output(command);
    mr_free(command);
    if (strlen(out_sz) == 0) {
        return (-1);
    }                           // error within df, probably
    res = atol(out_sz);
    mr_free(out_sz);
    return (res);
}



/**
 * Check the user's system for sanity. Checks performed:
 * - make sure user has enough RAM (32mb required, 64mb recommended)
 * - make sure user has enough free space in @c /
 * - check kernel for ramdisk support
 * - make sure afio, cdrecord, mkisofs, bzip2, awk, md5sum, strings, mindi, and buffer exist
 * - make sure CD-ROM is unmounted
 * - make sure /etc/modules.conf exists
 * - make sure user's mountlist is OK by running <tt>mindi --makemountlist</tt>
 *
 * @return number of problems with the user's setup (0 for success)
 */
int some_basic_system_sanity_checks()
{

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

    /*@ int's *************** */
    int retval = 0;
    long Lres;


    mvaddstr_and_log_it(g_currentY, 0,
                        "Checking sanity of your Linux distribution");
#ifndef __FreeBSD__
    if (system("which mkfs.vfat &> /dev/null")
        && !system("which mkfs.msdos &> /dev/null")) {
        log_it
            ("OK, you've got mkfs.msdos but not mkfs.vfat; time for the fairy to wave her magic wand...");
        run_program_and_log_output
            ("ln -sf `which mkfs.msdos` /sbin/mkfs.vfat", FALSE);
    }
    tmp = call_program_and_get_last_line_of_output
             ("free | grep Mem | head -n1 | tr -s ' ' '\t' | cut -f2");
    if (atol(tmp) < 35000) {
        retval++;
        log_to_screen(_("You must have at least 32MB of RAM to use Mondo."));
    }
    if (atol(tmp) < 66000) {
        log_to_screen
            (_("WARNING! You have very little RAM. Please upgrade to 64MB or more."));
    }
    mr_free(tmp);
#endif

    Lres = free_space_on_given_partition("/var/cache");
    log_it("Free space on given partition = %ld MB", Lres);

    if (Lres < 50) {
        fatal_error("Your /var/cache partition has <50MB free. Please adjust your partition table to something saner."); 
    }

    if (system("which " MKE2FS_OR_NEWFS " > /dev/null 2> /dev/null")) {
        retval++;
        log_to_screen
            ("Unable to find " MKE2FS_OR_NEWFS " in system path.");
        fatal_error
            ("Please use \"su -\", not \"su\" to become root. OK? ...and please don't e-mail the mailing list or me about this. Just read the message. :)");
    }
#ifndef __FreeBSD__
    if (run_program_and_log_output
        ("grep ramdisk /proc/devices", FALSE)) {
        if (!ask_me_yes_or_no
            (_("Your kernel has no ramdisk support. That's mind-numbingly stupid but I'll allow it if you're planning to use a failsafe kernel. Are you?")))
        {
            //          retval++;
            log_to_screen
                (_("It looks as if your kernel lacks ramdisk and initrd support."));
            log_to_screen
                (_("I'll allow you to proceed but FYI, if I'm right, your kernel is broken."));
        }
    }
#endif
    retval += whine_if_not_found(MKE2FS_OR_NEWFS);
    retval += whine_if_not_found("mkisofs");
    if (system("which dvdrecord > /dev/null 2> /dev/null")) {
        retval += whine_if_not_found("cdrecord");
    }
    retval += whine_if_not_found("bzip2");
    retval += whine_if_not_found("gzip");
    retval += whine_if_not_found("awk");
    retval += whine_if_not_found("md5sum");
    retval += whine_if_not_found("strings");
    retval += whine_if_not_found("mindi");
    retval += whine_if_not_found("buffer");

    // abort if Windows partition but no ms-sys and parted
    if (!run_program_and_log_output
        ("mount | grep -w vfat | grep -vE \"/dev/fd|nexdisk\"", 0)
        ||
        !run_program_and_log_output
        ("mount | grep -w dos | grep -vE \"/dev/fd|nexdisk\"", 0)) {
        log_to_screen(_("I think you have a Windows 9x partition."));
        retval += whine_if_not_found("parted");
#ifndef __IA64__
        /* IA64 always has one vfat partition for EFI even without Windows */
        // retval += 
        tmp = find_home_of_exe("ms-sys");
        if (!tmp) {
            log_to_screen(_("Please install ms-sys just in case."));
        }
        mr_free(tmp);
#endif
    }

    tmp = find_home_of_exe("cmp");
    if (!tmp) {
        whine_if_not_found("cmp");
    }
    mr_free(tmp);

    run_program_and_log_output
        ("umount `mount | grep cdr | cut -d' ' -f3 | tr '\n' ' '`", 5);
    tmp = call_program_and_get_last_line_of_output("mount | grep -E \"cdr(om|w)\"");
    if (strcmp("", tmp)) {
        if (strstr(tmp, "autofs")) {
            log_to_screen
                (_("Your CD-ROM is mounted via autofs. I therefore cannot tell"));
            log_to_screen
                (_("if a CD actually is inserted. If a CD is inserted, please"));
            log_to_screen(_("eject it. Thank you."));
            log_it
                ("Ignoring autofs CD-ROM 'mount' since we hope nothing's in it.");
        } else
            if (run_program_and_log_output("uname -a | grep Knoppix", 5)) {
            retval++;
            fatal_error
                ("Your CD-ROM drive is mounted. Please unmount it.");
        }
    }
    mr_free(tmp);
#ifndef __FreeBSD__
    if (!does_file_exist("/etc/modules.conf")) {
        if (does_file_exist("/etc/conf.modules")) {
            log_it("Linking /etc/modules.conf to /etc/conf.modules");
            run_program_and_log_output
                ("ln -sf /etc/conf.modules /etc/modules.conf", 5);
        } else if (does_file_exist("/etc/modprobe.d")) {
            log_it
                ("Directory /etc/modprobe.d found. mindi will use its contents.");
        } else if (does_file_exist("/etc/modprobe.conf")) {
            log_it("Linking /etc/modules.conf to /etc/modprobe.conf");
            run_program_and_log_output
                ("ln -sf /etc/modprobe.conf /etc/modules.conf", 5);
        } else {
            retval++;
            log_to_screen
                (_("Please find out what happened to /etc/modules.conf"));
        }
    }
#endif

    run_program_and_log_output("cat /etc/fstab", 5);
#ifdef __FreeBSD__
    run_program_and_log_output("vinum printconfig", 5);
#else
    run_program_and_log_output("cat /etc/raidtab", 5);
#endif

    if (run_program_and_log_output("mindi -V", 1)) {
        log_to_screen(_("Could not ascertain mindi's version number."));
        log_to_screen
            (_("You have not installed Mondo and/or Mindi properly."));
        log_to_screen(_("Please uninstall and reinstall them both."));
        fatal_error("Please reinstall Mondo and Mindi.");
    }
    if (run_program_and_log_output
        ("mindi --makemountlist /tmp/mountlist.txt.test", 5)) {
        log_to_screen
            (_("Mindi --makemountlist /tmp/mountlist.txt.test failed for some reason."));
        log_to_screen
            (_("Please run that command by hand and examine /var/log/mindi.log"));
        log_to_screen
            (_("for more information. Perhaps your /etc/fstab file is insane."));
        log_to_screen
            (_("Perhaps Mindi's MakeMountlist() subroutine has a bug. We'll see."));
        retval++;
    }

    if (!run_program_and_log_output("parted2fdisk -l | grep -i raid", 1)
        && !does_file_exist("/etc/raidtab")) {
        log_to_screen
            (_("You have RAID partitions but no /etc/raidtab - creating one from /proc/mdstat"));
        create_raidtab_from_mdstat("/etc/raidtab");
    }

    if (retval) {
        mvaddstr_and_log_it(g_currentY++, 74, _("Failed."));
    } else {
        mvaddstr_and_log_it(g_currentY++, 74, _("Done."));
    }
    return (retval);
}

/**
 * Retrieve the line containing @p label from the config file.
 * @param config_file The file to read from, usually @c /tmp/mondo-restore.cfg.
 * @param label What to read from the file.
 * @param value Where to put it.
 * @return 0 for success, 1 for failure.
 */
int read_cfg_var(char *config_file, char *label, char *value)
{
    /*@ buffer ****************************************************** */
    char *command = NULL;
    char *tmp = NULL;

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

    assert_string_is_neither_NULL_nor_zerolength(config_file);
    assert_string_is_neither_NULL_nor_zerolength(label);

    if (!does_file_exist(config_file)) {
        mr_asprintf(&tmp, "(read_cfg_var) Cannot find %s config file",
                 config_file);
        log_to_screen(tmp);
        mr_free(tmp);
        value = NULL;
        return (1);
    /* } BERLIOS: Useless: 
         else if (strstr(value, "/dev/") && strstr(value, "t0")
               && !strcmp(label, "media-dev")) {
        mr_msg(2, "FYI, I shan't read new value for %s - already got %s",
                label, value);
        return (0);
    */ } else {
        mr_asprintf(&command, "grep '%s .*' %s| cut -d' ' -f2,3,4,5",
                label, config_file);
        value = call_program_and_get_last_line_of_output(command);
        mr_free(command);
        if (strlen(value) == 0) {
            return (1);
        } else {
            return (0);
        }
    }
}


/**
 * Remount @c supermount if it was unmounted earlier.
 */
void remount_supermounts_if_necessary()
{
    if (g_remount_cdrom_at_end) {
        run_program_and_log_output("mount " MNT_CDROM, FALSE);
    }
    if (g_remount_floppy_at_end) {
        run_program_and_log_output("mount " MNT_FLOPPY, FALSE);
    }
}

/**
 * Unmount @c supermount if it's mounted.
 */
void unmount_supermounts_if_necessary()
{
    if (run_program_and_log_output
        ("mount | grep cdrom | grep super", FALSE) == 0) {
        g_remount_cdrom_at_end = TRUE;
        run_program_and_log_output("umount " MNT_CDROM, FALSE);
    }
    if (run_program_and_log_output
        ("mount | grep floppy | grep super", FALSE) == 0) {
        g_remount_floppy_at_end = TRUE;
        run_program_and_log_output("umount " MNT_FLOPPY, FALSE);
    }
}

/**
 * If this is a distribution like Gentoo that doesn't keep /boot mounted, mount it.
 */
void mount_boot_if_necessary()
{
    char *tmp;
    char *tmp1;
    char *command;

    mr_msg(1, "Started sub");
    mr_msg(4, "Setting command to something");
    mr_asprintf(&command,
             "grep -v ':' /etc/fstab | grep -vE '^#.*$' | grep -E \"[   ]/boot[     ]\" | tr -s ' ' '\t' | cut -f1 | head -n1");
    mr_msg(4, "Cool. Command = '%s'", command);
    tmp = call_program_and_get_last_line_of_output(command);
    mr_free(command);

    mr_msg(4, "tmp = '%s'", tmp);
    if (tmp) {
        log_it("/boot is at %s according to /etc/fstab", tmp);
        if (strstr(tmp, "LABEL=")) {
            if (!run_program_and_log_output("mount /boot", 5)) {
                mr_free(g_boot_mountpt);
                mr_asprintf(&g_boot_mountpt, "/boot");
                mr_msg(1, "Mounted /boot");
            } else {
                log_it("...ignored cos it's a label :-)");
            }
        } else {
            mr_asprintf(&command, "mount | grep -E '^%s'", tmp);
            mr_msg(3, "command = %s", command);
            if (run_program_and_log_output(command, 5)) {
                mr_free(g_boot_mountpt);
                mr_asprintf(&g_boot_mountpt, tmp);
                mr_asprintf(&tmp1,
                         "%s (your /boot partition) is not mounted. I'll mount it before backing up",
                         g_boot_mountpt);
                log_it(tmp1);
                mr_free(tmp1);

                mr_asprintf(&tmp1, "mount %s", g_boot_mountpt);
                if (run_program_and_log_output(tmp1, 5)) {
                    /* BERLIOS: Useless ???
                    mr_free(g_boot_mountpt);
                    mr_asprintf(&g_boot_mountpt, " ");
                    */
                    mr_msg(1, "Plan B");
                    if (!run_program_and_log_output("mount /boot", 5)) {
                        mr_free(g_boot_mountpt);
                        mr_asprintf(&g_boot_mountpt, "/boot");
                        mr_msg(1, "Plan B worked");
                    } else {
                        mr_msg(1,
                                "Plan B failed. Unable to mount /boot for backup purposes. This probably means /boot is mounted already, or doesn't have its own partition.");
                    }
                }
                mr_free(tmp1);
            }
            mr_free(command);
        }
    }
    mr_free(tmp);
    mr_msg(1, "Ended sub");
}


/**
 * If we mounted /boot earlier, unmount it.
 */
void unmount_boot_if_necessary()
{
    char *tmp;

    mr_msg(3, "starting");
    if (g_boot_mountpt != NULL) {
        mr_asprintf(&tmp, "umount %s", g_boot_mountpt);
        if (run_program_and_log_output(tmp, 5)) {
            log_it("WARNING - unable to unmount /boot");
        }
        mr_free(tmp);
    }
    mr_msg(3, "leaving");
}



/**
 * Write a line to a configuration file. Writes a line of the form,
 * @c label @c value.
 * @param config_file The file to write to. Usually @c mondo-restore.cfg.
 * @param label What to call this bit of data you're writing.
 * @param value The bit of data you're writing.
 * @return 0 for success, 1 for failure.
 */
int write_cfg_var(char *config_file, char *label, char *value)
{
    /*@ buffers ***************************************************** */
    char *command;
    char *tempfile;
    char *tmp;


    /*@ end vars *************************************************** */
    assert_string_is_neither_NULL_nor_zerolength(config_file);
    assert_string_is_neither_NULL_nor_zerolength(label);
    assert(value != NULL);

    if (!does_file_exist(config_file)) {
        mr_asprintf(&tmp, "(write_cfg_file) Cannot find %s config file",
                 config_file);
        log_to_screen(tmp);
        mr_free(tmp);
        return (1);
    }
    tempfile = call_program_and_get_last_line_of_output
             ("mktemp -q /tmp/mojo-jojo.blah.XXXXXX");
    if (does_file_exist(config_file)) {
        mr_asprintf(&command, "grep -vE '^%s .*$' %s > %s",
                label, config_file, tempfile);
        paranoid_system(command);
        mr_free(command);
    }
    mr_asprintf(&command, "echo \"%s %s\" >> %s", label, value, tempfile);
    paranoid_system(command);
    mr_free(command);

    mr_asprintf(&command, "mv -f %s %s", tempfile, config_file);
    paranoid_system(command);
    mr_free(command);
    unlink(tempfile);
    mr_free(tempfile);
    return (0);
}

/**
 * Allocate or free important globals, depending on @p mal.
 * @param mal If TRUE, malloc; if FALSE, free.
 */
void do_libmondo_global_strings_thing(int mal)
{
    if (mal) {
            /*
        iamhere("Malloc'ing globals");
        */
        g_erase_tmpdir_and_scratchdir = NULL;
        malloc_string(g_serial_string);
    } else {
        iamhere("Freeing globals");
        mr_free(g_boot_mountpt);
        mr_free(g_mondo_home);
        mr_free(g_tmpfs_mountpt);
        mr_free(g_erase_tmpdir_and_scratchdir);
        mr_free(g_serial_string);
        mr_free(g_magicdev_command);
    }
}

/**
 * Allocate important globals.
 * @see do_libmondo_global_strings_thing
 */
void malloc_libmondo_global_strings(void)
{
    do_libmondo_global_strings_thing(1);
}

/**
 * Free important globals.
 * @see do_libmondo_global_strings_thing
 */
void free_libmondo_global_strings(void)
{
    do_libmondo_global_strings_thing(0);
}



/**
 * Stop @c magicdev if it's running.
 * The command used to start it is saved in @p g_magicdev_command.
 */
void stop_magicdev_if_necessary()
{
    g_magicdev_command = call_program_and_get_last_line_of_output
           ("ps ax | grep -w magicdev | grep -v grep | tr -s '\t' ' '| cut -d' ' -f6-99");
    if (g_magicdev_command) {
        mr_msg(1, "g_magicdev_command = '%s'", g_magicdev_command);
        paranoid_system("killall magicdev");
    }
}


/**
 * Restart magicdev if it was stopped.
 */
void restart_magicdev_if_necessary()
{
    char *tmp = NULL;

    if (!g_magicdev_command) {
        mr_asprintf(&tmp, "%s &", g_magicdev_command);
        paranoid_system(tmp);
        mr_free(tmp);
    }
}

/* @} - end of utilityGroup */