Changeset 3879 in MondoRescue for branches/3.3/mondo/src/common/libmondo-archive.c

Timestamp:

Mar 9, 2024, 3:10:04 AM (4 months ago)

Author:

Bruno Cornec

Message:

Fix all remaining compiler errors

File:

• branches/3.3/mondo/src/common/libmondo-archive.c (modified) (6 diffs)

branches/3.3/mondo/src/common/libmondo-archive.c

@@ -33 +33 @@
 #include <stdarg.h>
 #include <unistd.h>
+
 #define DVDRWFORMAT 1
+
+/**
+ * Maximum number of filesets allowed in this function.
+ */
+#define MAX_NOOF_SETS_HERE 32767
+
+/**
+ * Offset of the bkpinfo pointer (in bytes) from the
+ * buffer passed to create_afio_files_in_background.
+ */
+#define BKPINFO_LOC_OFFSET (16+MAX_NOOF_SETS_HERE/8+16)
 
 
@@ -355 +367 @@
 
 
+/**
+ * Create a USB image in @c destfile, from files in @c bkpinfo->scratchdir.
+ *
+ * @param bkpinfo The backup information structure. Fields used:
+ * - @c backup_media_type
+ * - @c nonbootable_backup
+ * - @c scratchdir
+ *
+ * @param destfile Where to put the generated USB image.
+ * @return The number of errors encountered (0 for success)
+ */
+int make_usb_fs()
+{
+    /*@ int ********************************************** */
+    int retval = 0;
+    int res;
+
+    /*@ buffers ****************************************** */
+    char *tmp = NULL;
+    char *tmp1 = NULL;
+    char *result_sz = NULL;
+    char *message_to_screen = NULL;
+    char *old_pwd = NULL;
+    char *mds = NULL;
+
+    assert(bkpinfo != NULL);
+
+    log_msg(2, "make_usb_fs --- scratchdir=%s", bkpinfo->scratchdir);
+    old_pwd = mr_getcwd();
+    mr_asprintf(tmp, "chmod 700 %s", bkpinfo->scratchdir);
+    run_program_and_log_output(tmp, FALSE);
+    mr_free(tmp);
+    if (chdir(bkpinfo->scratchdir)) {
+        // FIXME
+    }
+
+    mds = media_descriptor_string(bkpinfo->backup_media_type);
+    mr_asprintf(message_to_screen, "Copying data to make %s #%d",mds, g_current_media_number);
+    mr_free(mds);
+    log_msg(1, message_to_screen);
+
+    if (bkpinfo->media_device) {
+        mr_asprintf(tmp1, "%s1", bkpinfo->media_device);
+    } else {
+        mr_asprintf(tmp1, "");
+    }
+    if (is_this_device_mounted(tmp1)) {
+        log_msg(1, "USB device mounted. Remounting it at the right place");
+        mr_asprintf(tmp, "umount %s", tmp1);
+        run_program_and_log_output(tmp, FALSE);
+        mr_free(tmp);
+    }
+    mr_free(tmp1);
+
+    log_msg(1, "Mounting USB device.");
+    mr_asprintf(tmp1, "%s/usb", bkpinfo->tmpdir);
+    mr_asprintf(tmp, "mkdir -p %s", tmp1);
+    run_program_and_log_output(tmp, FALSE);
+    mr_free(tmp);
+
+
+    /* Mindi always create one single parition on the USB dev */
+    mr_asprintf(tmp, "mount %s1 %s", bkpinfo->media_device, tmp1);
+    run_program_and_log_output(tmp, FALSE);
+    mr_free(tmp);
+
+    if (bkpinfo->nonbootable_backup) {
+        log_msg(1, "Making nonbootable USB backup not implemented yet");
+    } else {
+        log_msg(1, "Making bootable backup");
+
+        /* Command to execute */
+        mr_asprintf(tmp,"cd %s ; rm -fr %s/syslinux ; mv * %s", bkpinfo->scratchdir, tmp1, tmp1); 
+        res = eval_call_to_make_USB(tmp, message_to_screen);
+        if (res) {
+            mr_asprintf(result_sz, "%s ...failed",tmp);
+        } else {
+            mr_asprintf(result_sz, "%s ...OK",tmp);
+        }
+        log_to_screen(result_sz);
+        mr_free(result_sz);
+        mr_free(tmp);
+        retval += res;
+
+        /* Recreate the required structure under the scratch dir */
+        mr_asprintf(tmp,"mkdir %s/archive", bkpinfo->scratchdir); 
+        run_program_and_log_output(tmp, FALSE);
+        mr_free(tmp);
+    }
+    paranoid_free(message_to_screen);
+
+    /*  Copy the current logfile - of course incomplete to the media */
+    mr_system("gzip -c9 %s > %s/archives/%s", MONDO_LOGFILE, tmp1, MONDO_LOGFILENAME);
+    paranoid_free(tmp1);
+
+    if (is_this_device_mounted(bkpinfo->media_device)) {
+        mr_asprintf(tmp, "umount %s1", bkpinfo->media_device);
+        run_program_and_log_output(tmp, FALSE);
+        mr_free(tmp);
+    }
+
+    if (chdir(old_pwd)) {
+        // FIXME
+    }
+    mr_free(old_pwd);
+    if (retval) {
+        log_msg(1, "WARNING - make_usb_fs returned an error");
+    }
+    return(retval);
+}
+
+
+/**
+ * Make sure the user has a valid CD-R(W) in the CD drive.
+ * @param cd_dev Set to the CD-R(W) device checked.
+ * @param keep_looping If TRUE, keep pestering user until they insist
+ * or insert a correct CD; if FALSE, only check once.
+ * @return 0 (there was an OK CD in the drive) or 1 (there wasn't).
+ */
+int interrogate_disk_currently_in_cddrive(char *cd_dev,
+                                             bool keep_looping)
+{
+    int res = 0;
+    char *bkp = NULL;
+    char *cdrecord = NULL;
+
+    mr_asprintf(bkp, "%s", cd_dev);
+    if ((cd_dev = find_optical_device()) != NULL) {
+        if (!system("which cdrecord > /dev/null 2> /dev/null")) {
+            mr_asprintf(cdrecord, "cdrecord dev=%s -atip", cd_dev);
+        } else if (!system("which dvdrecord > /dev/null 2> /dev/null")) {
+            mr_asprintf(cdrecord, "cdrecord dev=%s -atip", cd_dev);
+        } else {
+            log_msg(2, "Oh well. I guess I'll just pray then.");
+        }
+        if (cdrecord != NULL) {
+            if (!keep_looping) {
+                retract_CD_tray_and_defeat_autorun();
+                res = run_program_and_log_output(cdrecord, 5);
+            } else {
+                while ((res = run_program_and_log_output(cdrecord, 5))) {
+                    retract_CD_tray_and_defeat_autorun();
+                    if (ask_me_yes_or_no
+                        ("Unable to examine CD. Are you sure this is a valid CD-R(W) CD?"))
+                    {
+                        log_msg(1, "Well, he insisted...");
+                        break;
+                    }
+                }
+            }
+        }
+    }
+    mr_free(bkp);
+
+    mr_free(cdrecord);
+    return (res);
+}
+
+
+/**
+ * Asks the user to put a CD-R(W) in the drive.
+ * @param ask_for_one_if_more_than_this (unused)
+ * @param pmountable If non-NULL, pointed-to value is set to TRUE if the CD is mountable, FALSE otherwise.
+ */
+void pause_and_ask_for_cdr(int ask_for_one_if_more_than_this, bool * pmountable) {
+
+    /*@ buffers ********************************************* */
+    char *tmp = NULL;
+    char *cdrom_dev = NULL;
+    char *cd_dev = NULL;
+    char *our_serial_str = NULL;
+    bool ok_go_ahead_burn_it;
+    int cd_number = -1;
+    int attempt_to_mount_returned_this = 999;
+    char *mtpt = NULL;
+    char *szcdno = NULL;
+    char *szserfname = NULL;
+    char *szunmount = NULL;
+    char *mds = NULL;
+
+    malloc_string(cd_dev);
+
+    mds = media_descriptor_string(g_backup_media_type);
+    log_to_screen("I am about to burn %s #%d", mds, g_current_media_number);
+    mr_free(mds);
+    if (g_current_media_number < ask_for_one_if_more_than_this) {
+        return;
+    }
+    log_to_screen("Scanning CD-ROM drive...");
+    mr_asprintf(mtpt, "%s/cd.mtpt", bkpinfo->tmpdir);
+    make_hole_for_dir(mtpt);
+
+  gotos_make_me_puke:
+    ok_go_ahead_burn_it = TRUE;
+    mr_free(cdrom_dev);
+    if ((cdrom_dev = find_optical_device()) != NULL) {
+        /* When enabled, it made CD eject-and-retract when wrong CD inserted.. Weird
+        log_msg(2, "paafcd: Retracting CD-ROM drive if possible" );
+        retract_CD_tray_and_defeat_autorun();
+        */
+        mr_asprintf(tmp, "umount %s", cdrom_dev);
+        run_program_and_log_output(tmp, 1);
+        mr_asprintf(szcdno, "%s/archives/THIS-CD-NUMBER", mtpt);
+        mr_asprintf(szserfname, "%s/archives/SERIAL-STRING", mtpt);
+        mr_asprintf(szunmount, "umount %s", mtpt);
+        cd_number = -1;
+        mr_asprintf(tmp, "mount %s %s", cdrom_dev, mtpt);
+        mr_asprintf(our_serial_str, "%s", "");
+        attempt_to_mount_returned_this = run_program_and_log_output(tmp, 1);
+        mr_free(tmp);
+
+        if (attempt_to_mount_returned_this) {
+            log_msg(4, "Failed to mount %s at %s", cdrom_dev, mtpt);
+            log_to_screen("If there's a CD/DVD in the drive, it's blank.");
+        } else if (!does_file_exist(szcdno) || !does_file_exist(szserfname)) {
+            mds = media_descriptor_string(g_backup_media_type);
+            log_to_screen("%s has data on it but it's probably not a Mondo CD.", mds);
+            mr_free(mds);
+        } else {
+            mds = media_descriptor_string(g_backup_media_type);
+            log_to_screen("%s found in drive. It's a Mondo disk.", mds);
+            mr_free(mds);
+
+            cd_number = atoi(last_line_of_file(szcdno));
+            mr_asprintf(tmp, "cat %s 2> /dev/null", szserfname);
+            mr_free(our_serial_str);
+            our_serial_str = call_program_and_get_last_line_of_output(tmp);
+            mr_free(tmp);
+            // FIXME - should be able to use last_line_of_file(), surely?
+        }
+        mr_free(szcdno);
+        mr_free(szserfname);
+
+        run_program_and_log_output(szunmount, 1);
+        mr_free(szunmount);
+
+        log_msg(2, "paafcd: cd_number = %d", cd_number);
+        log_msg(2, "our serial str = %s; bkpinfo->serial_string = %s", our_serial_str, bkpinfo->serial_string);
+        if (cd_number > 0 && !strcmp(our_serial_str, bkpinfo->serial_string)) {
+            mds = media_descriptor_string(g_backup_media_type);
+            log_msg(2, "This %s is part of this backup set!", mds);
+            ok_go_ahead_burn_it = FALSE;
+            if (cd_number == g_current_media_number - 1) {
+                log_to_screen("I think you've left the previous %s in the drive.", mds);
+            } else {
+                log_to_screen("Please remove this %s. It is part of the backup set you're making now.", mds);
+            }
+            mr_free(mds);
+
+        } else {
+            log_to_screen("...but not part of _our_ backup set.");
+        }
+        mr_free(our_serial_str);
+    } else {
+        mds = media_descriptor_string(g_backup_media_type);
+        log_msg(2,
+                "paafcd: Can't find CD-ROM drive. Perhaps it has a blank %s in it?", mds);
+        if (interrogate_disk_currently_in_cddrive(cd_dev, FALSE)) {
+            ok_go_ahead_burn_it = FALSE;
+            log_to_screen("There isn't a writable %s in the drive.", mds);
+        }
+        mr_free(mds);
+    }
+
+    if (!ok_go_ahead_burn_it) {
+        if (!bkpinfo->please_dont_eject) {
+            eject_device(cdrom_dev);
+        }
+        mds = media_descriptor_string(g_backup_media_type);
+        mr_asprintf(tmp, "I am about to burn %s #%d of the backup set. Please insert %s and press Enter.", mds, g_current_media_number, mds);
+        mr_free(mds);
+
+        popup_and_OK(tmp);
+        mr_free(tmp);
+        goto gotos_make_me_puke;
+    } else {
+        log_msg(2, "paafcd: OK, going ahead and burning it.");
+    }
+
+    mds = media_descriptor_string(g_backup_media_type);
+    log_msg(2, "paafcd: OK, I assume I have a blank/reusable %s in the drive...", mds);
+
+    log_to_screen("Proceeding w/ %s in drive.", mds);
+    mr_free(mds);
+
+    mr_free(cdrom_dev);
+    paranoid_free(cd_dev);
+    mr_free(mtpt);
+    if (pmountable) {
+        if (attempt_to_mount_returned_this) {
+            *pmountable = FALSE;
+        } else {
+            *pmountable = TRUE;
+        }
+    }
+
+}
+
+
+/**
+ * @addtogroup LLarchiveGroup
+ * @{
+ */
+
+void pause_for_N_seconds(int how_long, char *msg)
+{
+    int i;
+    open_evalcall_form(msg);
+    for (i = 0; i < how_long; i++) {
+        update_evalcall_form((int) ((100.0 / (float) (how_long) * i)));
+        sleep(1);
+    }
+    close_evalcall_form();
+}
+
+
+/**
+ * Create an ISO image in @c destfile, from files in @c bkpinfo->scratchdir.
+ *
+ * @param bkpinfo The backup information structure. Fields used:
+ * - @c backup_media_type
+ * - @c call_after_iso
+ * - @c call_before_iso
+ * - @c call_burn_iso
+ * - @c call_make_iso
+ * - @c make_cd_use_lilo
+ * - @c manual_cd_tray
+ * - @c nonbootable_backup
+ * - @c scratchdir
+ *
+ * @param destfile Where to put the generated ISO image.
+ * @return The number of errors encountered (0 for success)
+ */
+int make_iso_fs(char *destfile) {
+    /*@ int ********************************************** */
+    int retval = 0;
+    int res;
+
+    /*@ buffers ****************************************** */
+    char *tmp = NULL;
+    char *old_pwd = NULL;
+    char *result_sz = NULL;
+    char *message_to_screen = NULL;
+    char *sz_blank_disk = NULL;
+    char *isofs_cmd = NULL;
+    char *full_isofs_cmd = NULL;
+    char *mds = NULL;
+    char *uefistr = NULL;
+    bool cd_is_mountable;
+
+    assert(bkpinfo != NULL);
+    assert_string_is_neither_NULL_nor_zerolength(destfile);
+
+    if (bkpinfo->backup_media_type == iso && bkpinfo->manual_cd_tray) {
+        popup_and_OK("Please insert new media and press Enter.");
+    }
+
+    log_msg(2, "make_iso_fs --- scratchdir=%s --- destfile=%s", bkpinfo->scratchdir, destfile);
+    old_pwd = mr_getcwd();
+    mr_asprintf(tmp, "chmod 700 %s", bkpinfo->scratchdir);
+    run_program_and_log_output(tmp, FALSE);
+    mr_free(tmp);
+
+    if (chdir(bkpinfo->scratchdir)) {
+        // FIXME
+    }
+
+    if (bkpinfo->call_before_iso != NULL) {
+        mr_asprintf(message_to_screen, "Running pre-ISO call for CD#%d", g_current_media_number);
+        res = eval_call_to_make_ISO(bkpinfo->call_before_iso, destfile, g_current_media_number, message_to_screen);
+        if (res) {
+            mr_strcat(message_to_screen, "...failed");
+        } else {
+            mr_strcat(message_to_screen, "...OK");
+        }
+        log_to_screen(message_to_screen);
+        paranoid_free(message_to_screen);
+
+        retval += res;
+    }
+
+    if (bkpinfo->call_make_iso != NULL) {
+        log_msg(2, "bkpinfo->call_make_iso = %s", bkpinfo->call_make_iso);
+        mds = media_descriptor_string(bkpinfo->backup_media_type);
+        mr_asprintf(message_to_screen, "Making an ISO (%s #%d)", mds, g_current_media_number);
+        mr_free(mds);
+
+        pause_and_ask_for_cdr(2, &cd_is_mountable); /* if g_current_media_number >= 2 then pause & ask */
+        if (retval) {
+            log_to_screen
+                ("Serious error(s) occurred already. I shan't try to write to media.");
+        } else {
+            res =
+                eval_call_to_make_ISO(bkpinfo->call_make_iso, bkpinfo->scratchdir, g_current_media_number, message_to_screen);
+            if (res) {
+                log_to_screen("%s...failed to write", message_to_screen);
+            } else {
+                log_to_screen("%s...OK", message_to_screen);
+                mr_asprintf(tmp, "tail -n10 %s | grep -F ':-('", MONDO_LOGFILE);
+                if (!run_program_and_log_output(tmp, 1)) {
+                    log_to_screen
+                        ("Despite nonfatal errors, growisofs confirms the write was successful.");
+                }
+                mr_free(tmp);
+            }
+            retval += res;
+#ifdef DVDRWFORMAT
+            mr_asprintf(tmp, "tail -n8 %s | grep 'blank=full.*dvd-compat.*DAO'", MONDO_LOGFILE);
+            if (g_backup_media_type == dvd
+                && (res || !run_program_and_log_output(tmp, 1))) {
+                log_to_screen
+                    ("Failed to write to disk. I shall blank it and then try again.");
+                sleep(5);
+                /* reset error counter before trying to blank DVD */
+                retval -= res;
+                sync();
+                pause_for_N_seconds(5, "Letting DVD drive settle");
+
+// dvd+rw-format --- OPTION 2
+                if (!bkpinfo->please_dont_eject) {
+                    log_to_screen("Ejecting media to clear drive status.");
+                    eject_device(bkpinfo->media_device);
+                    inject_device(bkpinfo->media_device);
+                }
+                pause_for_N_seconds(5, "Letting DVD drive settle");
+                if (bkpinfo->media_device) {
+                    mr_asprintf(sz_blank_disk, "dvd+rw-format -force %s", bkpinfo->media_device);
+                } else {
+                    mr_asprintf(sz_blank_disk, "dvd+rw-format");
+                }
+                log_msg(3, "sz_blank_disk = '%s'", sz_blank_disk);
+                res = run_external_binary_with_percentage_indicator_NEW("Blanking DVD disk", sz_blank_disk);
+                if (res) {
+                    log_to_screen("Warning - format failed. (Was it a DVD-R?) Sleeping for 5 seconds to take a breath...");
+                    pause_for_N_seconds(5, "Letting DVD drive settle... and trying again.");
+                    res = run_external_binary_with_percentage_indicator_NEW("Blanking DVD disk", sz_blank_disk);
+                    if (res) {
+                        log_to_screen("Format failed a second time.");
+                    }
+                } else {
+                    log_to_screen
+                        ("Format succeeded. Sleeping for 5 seconds to take a breath...");
+                }
+                mr_free(sz_blank_disk);
+                pause_for_N_seconds(5, "Letting DVD drive settle");
+                if (!bkpinfo->please_dont_eject) {
+                    log_to_screen("Ejecting media to clear drive status.");
+                    eject_device(bkpinfo->media_device);
+                    inject_device(bkpinfo->media_device);
+                }
+                pause_for_N_seconds(5, "Letting DVD drive settle");
+                res = eval_call_to_make_ISO(bkpinfo->call_make_iso, bkpinfo->scratchdir, g_current_media_number, message_to_screen);
+                retval += res;
+                if (!bkpinfo->please_dont_eject) {
+                    log_to_screen("Ejecting media.");
+                    eject_device(bkpinfo->media_device);
+                }
+                if (res) {
+                    log_to_screen("Dagnabbit. It still failed.");
+                } else {
+                    log_to_screen
+                        ("OK, this time I successfully backed up to DVD.");
+                }
+            }
+            mr_free(tmp);
+#endif
+            if (g_backup_media_type == dvd && !bkpinfo->please_dont_eject) {
+                eject_device(bkpinfo->media_device);
+            }
+        }
+        paranoid_free(message_to_screen);
+    } else {
+        mds = media_descriptor_string(bkpinfo->backup_media_type);
+        mr_asprintf(message_to_screen, "Running mkisofs to make %s #%d", mds, g_current_media_number);
+        log_msg(1, message_to_screen);
+        mr_asprintf(result_sz, "Call to mkisofs to make ISO (%s #%d) ", mds,  g_current_media_number);
+        mr_free(mds);
+        if ((tmp = find_home_of_exe("xorriso")) != NULL) {
+            mr_asprintf(isofs_cmd, "%s %s", tmp, MONDO_XORRISO_OPT);
+        } else if ((tmp = find_home_of_exe("genisoimage")) != NULL) {
+            mr_asprintf(isofs_cmd, "%s %s", tmp, MONDO_GENISOIMAGE_OPT);
+        } else if ((tmp = find_home_of_exe("mkisofs")) != NULL) {
+            mr_asprintf(isofs_cmd, "%s %s", tmp, MONDO_MKISOFS_OPT);
+        } else if ((tmp = find_home_of_exe("wodim")) != NULL) {
+            mr_asprintf(isofs_cmd, "%s %s", tmp, MONDO_WODIM_OPT);
+        } else {
+            fatal_error("Unable to find a command to create ISO among xorriso, genisoimage, mksiofs or wodim, please install one");
+        }
+        mr_free(tmp);
+        if (bkpinfo->nonbootable_backup) {
+            log_msg(1, "Making nonbootable backup");
+            mr_asprintf(full_isofs_cmd, "%s%s-o '_ISO_' .",isofs_cmd,MONDO_MKISOFS);
+            res = eval_call_to_make_ISO(full_isofs_cmd, destfile, g_current_media_number, message_to_screen);
+            mr_free(full_isofs_cmd);
+        } else {
+            log_msg(1, "Making bootable backup");
+
+#ifdef __FreeBSD__
+            bkpinfo->make_cd_use_lilo = TRUE;
+#endif
+
+
+            log_msg(1, "make_cd_use_lilo is actually %d", bkpinfo->make_cd_use_lilo);
+            if (bkpinfo->make_cd_use_lilo) {
+                log_msg(1, "make_cd_use_lilo = TRUE");
+#ifdef __IA64__
+                log_msg(1, "IA64 --> elilo");
+                mr_asprintf(full_isofs_cmd, "%s%s-o '_ISO_' .",isofs_cmd,MONDO_MKISOFS_REGULAR_ELILO);
+                res = eval_call_to_make_ISO(full_isofs_cmd, destfile, g_current_media_number, message_to_screen);
+                mr_free(full_isofs_cmd);
+#else
+                log_msg(1, "Non-ia64 --> lilo");
+                mr_asprintf(full_isofs_cmd, "%s%s-b images/mindi-bootroot.img -c images/boot.cat -o '_ISO_' .",isofs_cmd,MONDO_MKISOFS);
+                // FIXME: fixed boot size probably wrong. lilo to be removed
+                res = eval_call_to_make_ISO(full_isofs_cmd, destfile, g_current_media_number, message_to_screen);
+                mr_free(full_isofs_cmd);
+#endif
+            } else {
+                log_msg(1, "make_cd_use_lilo = FALSE");
+                log_msg(1, "Isolinux");
+                if (bkpinfo->boot_type == UEFI) {
+                    if (strstr(isofs_cmd,"xorriso")) {
+                        /*  xorriso needs another '-' before efi-boot */
+                        mr_asprintf(uefistr, "%s -%s", MONDO_UEFI_PREFIX, MONDO_MKISOFS_UEFI);
+                    } else {
+                        mr_asprintf(uefistr, "%s %s", MONDO_UEFI_PREFIX, MONDO_MKISOFS_UEFI);
+                    }
+                } else {
+                    mr_asprintf(uefistr, "%s",MONDO_MKISOFS_CMS);
+                }
+                mr_asprintf(full_isofs_cmd, "%s%s%s-o '_ISO_' .",isofs_cmd,MONDO_MKISOFS_REGULAR_SYSLINUX,uefistr);
+                mr_free(uefistr);
+
+                res = eval_call_to_make_ISO(full_isofs_cmd, destfile, g_current_media_number, message_to_screen);
+                mr_free(full_isofs_cmd);
+            }
+        }
+        mr_free(isofs_cmd);
+        paranoid_free(message_to_screen);
+
+        if (res) {
+            mr_strcat(result_sz, "...failed");
+        } else {
+            mr_strcat(result_sz, "...OK");
+        }
+        log_to_screen(result_sz);
+        paranoid_free(result_sz);
+        retval += res;
+    }
+
+    if (bkpinfo->backup_media_type == cdr) {
+        if (is_this_device_mounted(bkpinfo->media_device)) {
+            log_msg(2, "Warning - %s mounted. I'm unmounting it before I burn to it.", bkpinfo->media_device);
+            mr_asprintf(tmp, "umount %s", bkpinfo->media_device);
+            run_program_and_log_output(tmp, FALSE);
+            mr_free(tmp);
+        }
+    }
+
+    if (bkpinfo->call_burn_iso != NULL) {
+        log_msg(2, "bkpinfo->call_burn_iso = %s", bkpinfo->call_burn_iso);
+        mds = media_descriptor_string(bkpinfo->backup_media_type);
+        mr_asprintf(message_to_screen, "Burning %s #%d", mds, g_current_media_number);
+        mr_free(mds);
+        pause_and_ask_for_cdr(2, &cd_is_mountable);
+        res = eval_call_to_make_ISO(bkpinfo->call_burn_iso, destfile, g_current_media_number, message_to_screen);
+        if (res) {
+            mr_strcat(message_to_screen, "...failed");
+        } else {
+            mr_strcat(message_to_screen, "...OK");
+        }
+        log_to_screen(message_to_screen);
+        paranoid_free(message_to_screen);
+
+        retval += res;
+    }
+
+    if (bkpinfo->call_after_iso != NULL) {
+        mds = media_descriptor_string(bkpinfo->backup_media_type);
+        mr_asprintf(message_to_screen, "Running post-ISO call (%s #%d)", mds, g_current_media_number);
+        mr_free(mds);
+        res = eval_call_to_make_ISO(bkpinfo->call_after_iso, destfile, g_current_media_number, message_to_screen);
+        if (res) {
+            mr_strcat(message_to_screen, "...failed");
+        } else {
+            mr_strcat(message_to_screen, "...OK");
+        }
+        log_to_screen(message_to_screen);
+        paranoid_free(message_to_screen);
+
+        retval += res;
+    }
+
+    if (chdir(old_pwd)) {
+        // FIXME
+    }
+    mr_free(old_pwd);
+    if (retval) {
+        log_msg(1, "WARNING - make_iso_fs returned an error");
+    }
+    return (retval);
+}
+
+
+bool is_dev_an_NTFS_dev(char *bigfile_fname)
+{
+    char *tmp = NULL;
+    char *command = NULL;
+    bool ret = TRUE;
+
+    mr_asprintf(command, "dd if=%s bs=512 count=1 2> /dev/null | strings | head -n1", bigfile_fname);
+    log_msg(1, "command = '%s'", command);
+    tmp = call_program_and_get_last_line_of_output(command);
+    mr_free(command);
+
+    log_msg(1, "--> tmp = '%s'", tmp);
+    if (strstr(tmp, "NTFS")) {
+        log_it("TRUE");
+        ret = TRUE;
+    } else {
+        log_it("FALSE");
+        ret = FALSE;
+    }
+    mr_free(tmp);
+    return(ret);
+}
+
+
 
 /**
@@ -601 +1241 @@
         mvaddstr_and_log_it(g_currentY++, 74, "Done.");
     }
+
+    return (retval);
+}
+
+/**
+ * Copy some files to tape.
+ * This function copies the files specified as parameters into the tape stream.
+ *
+ * @param bkpinfo The backup information structure. Used only in the call to
+ * @c write_file_to_stream_from_file().
+ *
+ * @param files_to_add The files to copy to the tape stream.
+ * @warning The list of @c files_to_add must be terminated with @c NULL.
+ * @note Files may be split across multiple tapes if necessary.
+ *
+ * @return The number of errors encountered (0 for success)
+ */
+int
+_move_files_to_stream(char *files_to_add, ...)
+{
+
+    /*@ int ************************************************************ */
+    int retval = 0;
+    int res = 0;
+    /*@ buffers ******************************************************** */
+
+    /*@ char *********************************************************** */
+    char start_chr;
+    char stop_chr;
+    char *curr_file = NULL;
+    char *cf;
+    /*@ long long ****************************************************** */
+    off_t length_of_incoming_file = (off_t)0;
+    va_list ap;
+
+    assert(bkpinfo != NULL);
+    va_start(ap, files_to_add);
+    for (cf = files_to_add; cf != NULL; cf = va_arg(ap, char *)) {
+        if (!cf) {
+            continue;
+        }
+        mr_asprintf(curr_file, "%s", cf);
+        if (!does_file_exist(curr_file)) {
+            log_msg(1,
+                    "Warning - you're trying to add a non-existent file - '%s' to the tape",
+                    curr_file);
+        }
+        /* create header chars */
+        start_chr = BLK_START_AN_AFIO_OR_SLICE;
+        stop_chr = BLK_STOP_AN_AFIO_OR_SLICE;
+        /* ask for new tape if necessary */
+        length_of_incoming_file = length_of_file(curr_file);
+        write_header_block_to_stream(length_of_incoming_file, curr_file, start_chr);
+        res = write_file_to_stream_from_file(curr_file);
+        retval += res;
+        unlink(curr_file);
+        mr_free(curr_file);
+        /* write closing header */
+        write_header_block_to_stream((off_t)0, "finished-writing-file", stop_chr);
+    }
+    va_end(ap);
+
+    if (retval) {
+        log_msg(1,
+                "Warning - errors occurred while I was adding file to tape");
+    }
+    return (retval);
+}
+
+/**
+ * Move some files to the ISO scratch directory.
+ * This function moves files specified as parameters, into the directory
+ * @c bkpinfo->scratchdir, where the files that will be stored on the next
+ * CD are waiting.
+ *
+ * @param bkpinfo The backup information structure. Fields used:
+ * - @c media_size
+ * - @c scratchdir
+ * @param files_to_add The files to add to the scratchdir.
+ * @warning The list of @c files_to_add must be terminated with @c NULL.
+ * @note If and when the space occupied by the scratchdir would exceed
+ * the capacity of the current CD,
+ * <tt>write_iso_and_go_on(bkpinfo, FALSE)</tt> is called and the
+ * scratchdir is emptied.
+ *
+ * @return The number of errors encountered (0 for success)
+ */
+int _move_files_to_cd(char *files_to_add, ...)
+{
+
+    /*@ int ************************************************************ */
+    int retval = 0;
+    int res = 0;
+
+    /*@ buffers ******************************************************** */
+    char *tmp = NULL;
+    char *curr_file = NULL;
+    char *cf;
+
+    /*@ long ************************************************************ */
+    va_list ap;
+    long long would_occupy;
+
+    assert(bkpinfo != NULL);
+    would_occupy = space_occupied_by_cd(bkpinfo->scratchdir);
+    va_start(ap, files_to_add); // initialize the variable arguments
+    for (cf = files_to_add; cf != NULL; cf = va_arg(ap, char *)) {
+        if (!cf) {
+            continue;
+        }
+        mr_asprintf(curr_file, "%s", cf);
+        if (!does_file_exist(curr_file)) {
+            log_msg(1, "Warning - you're trying to add a non-existent file - '%s' to the CD", curr_file);
+        } else {
+            log_msg(8, "Trying to add file %s to CD", curr_file);
+            would_occupy += length_of_file(curr_file) / 1024;
+        }
+        mr_free(curr_file);
+    }
+    va_end(ap);
+
+    if (bkpinfo->media_size <= 0) {
+        fatal_error("move_files_to_cd() - unknown media size");
+    }
+    if (would_occupy / 1024 > bkpinfo->media_size) {
+        res = write_iso_and_go_on(FALSE);   /* FALSE because this is not the last CD we'll write */
+        retval += res;
+        if (res) {
+            log_msg(1, "WARNING - write_iso_and_go_on returned an error");
+        }
+    }
+
+    va_start(ap, files_to_add); // initialize the variable arguments
+    for (cf = files_to_add; cf != NULL; cf = va_arg(ap, char *)) {
+        if (!cf) {
+            continue;
+        }
+        mr_asprintf(curr_file, "%s", cf);
+
+        mr_asprintf(tmp, "mv -f %s %s/archives/", curr_file, bkpinfo->scratchdir);
+        mr_free(curr_file);
+        res = run_program_and_log_output(tmp, 5);
+        retval += res;
+        if (res) {
+            log_msg(1, "(move_files_to_cd) '%s' failed", tmp);
+        } else {
+            log_msg(8, "Moved %s to CD OK", tmp);
+        }
+        mr_free(tmp);
+    }
+    va_end(ap);
+
+    if (retval) {
+        log_msg(1,
+                "Warning - errors occurred while I was adding files to CD dir");
+    }
+    return (retval);
+}
+
+
+
+/**
+ * @addtogroup LLarchiveGroup
+ * @{
+ */
+/**
+ * Function pointer to an appropriate @c move_files_to_stream routine.
+ * You can set this to your own function (for example, one to
+ * transfer files over the network) or leave it as is.
+ */
+int (*move_files_to_stream) (char *, ...) =
+    _move_files_to_stream;
+
+
+/**
+ * Function pointer to an appropriate @c move_files_to_cd routine.
+ * You can set this to your own function (for example, one to
+ * transfer files over the network) or leave it as is.
+ */
+int (*move_files_to_cd) (char *, ...) =
+    _move_files_to_cd;
+
+
+/**
+ * Set the <tt>N</tt>th bit of @c array to @c true_or_false.
+ * @param array The bit array (as a @c char pointer).
+ * @param N The bit number to set or reset.
+ * @param true_or_false If TRUE then set bit @c N, if FALSE then reset bit @c N.
+ * @see get_bit_N_of_array
+ */
+void set_bit_N_of_array(char *array, int N, bool true_or_false)
+{
+    int bit_number;
+    int mask, orig_val, to_add;
+    int element_number;
+
+    assert(array != NULL);
+
+    element_number = N / 8;
+    bit_number = N % 8;
+    to_add = (1 << bit_number);
+    mask = 255 - to_add;
+    orig_val = array[element_number] & mask;
+    //  log_it("array[%d]=%02x; %02x&%02x = %02x", element_number, array[element_number], mask, orig_val);
+    if (true_or_false) {
+        array[element_number] = orig_val | to_add;
+    }
+}
+
+
+/**
+ * Get the <tt>N</tt>th bit of @c array.
+ * @param array The bit-array (as a @c char pointer).
+ * @param N The number of the bit you want.
+ * @return TRUE (bit is set) or FALSE (bit is not set).
+ * @see set_bit_N_of_array
+ * @ingroup utilityGroup
+ */
+bool get_bit_N_of_array(char *array, int N)
+{
+    int element_number;
+    int bit_number;
+    int mask;
+
+    element_number = N / 8;
+    bit_number = N % 8;
+    mask = 1 << bit_number;
+    if (array[element_number] & mask) {
+        return (TRUE);
+    } else {
+        return (FALSE);
+    }
+}
+
+
+
+/**
+ * Chop up @c filename.
+ * @param bkpinfo The backup information structure. Fields used:
+ * - @c backup_media_type
+ * - @c compression_level
+ * - @c optimal_set_size
+ * - @c tmpdir
+ * - @c use_lzo
+ * - @c zip_exe
+ * - @c zip_suffix
+ *
+ * @param biggie_filename The file to chop up.
+ * @param ntfsprog_fifo The FIFO to ntfsclone if this is an imagedev, NULL otherwise.
+ * @param biggie_file_number The sequence number of this biggie file (starting from 0).
+ * @param noof_biggie_files The number of biggie files there are total.
+ * @return The number of errors encountered (0 for success)
+ * @see make_slices_and_images
+ * @ingroup LLarchiveGroup
+ */
+int slice_up_file_etc(char *biggie_filename, char *ntfsprog_fifo, long biggie_file_number, long noof_biggie_files, bool use_ntfsprog) {
+
+    /*@ buffers ************************************************** */
+    char *tmp = NULL;
+    char *checksum_line = NULL;
+    char *command = NULL;
+    char *tempblock = NULL;
+    char *curr_slice_fname_uncompressed = NULL;
+    char *curr_slice_fname_compressed = NULL;
+    char *file_to_archive = NULL;
+    char *file_to_openin = NULL;
+    /*@ pointers ************************************************** */
+    char *pB = NULL;
+    FILE *fin = NULL;
+    FILE *fout = NULL;
+
+    /*@ bool ****************************************************** */
+    bool finished = FALSE;
+
+    /*@ long ****************************************************** */
+    size_t blksize = (size_t)0;
+    long slice_num = 0L;
+    long i = 0L;
+    bool should_I_compress_slices = TRUE;
+    char *suffix = NULL;                // for compressed slices
+
+    /*@ long long ************************************************** */
+    off_t totalread = (off_t)0;
+    off_t totallength = (off_t)0;
+
+    /*@ int ******************************************************** */
+    int retval = 0;
+    int res = 0;
+
+    /*@ structures ************************************************** */
+    struct s_filename_and_lstat_info biggiestruct;
+
+    assert(bkpinfo != NULL);
+    assert_string_is_neither_NULL_nor_zerolength(biggie_filename);
+
+    biggiestruct.for_backward_compatibility = '\n';
+    biggiestruct.use_ntfsprog = use_ntfsprog;
+    if (is_this_file_compressed(biggie_filename) || bkpinfo->compression_level == 0) {
+        mr_asprintf(suffix, "%s", "");
+        should_I_compress_slices = FALSE;
+    } else {
+        mr_asprintf(suffix, "%s", bkpinfo->zip_suffix);
+        should_I_compress_slices = TRUE;
+    }
+
+    if (bkpinfo->optimal_set_size < 999L) {
+        fatal_error("bkpinfo->optimal_set_size is insanely small");
+    }
+
+    if (ntfsprog_fifo) {
+        file_to_openin = ntfsprog_fifo;
+        mr_asprintf(checksum_line, "IGNORE");
+        log_msg(2, "Not calculating checksum for %s: it would take too long", biggie_filename);
+        if ((tmp = find_home_of_exe("ntfsresize")) == NULL) {
+            fatal_error("ntfsresize not found");
+        }
+        mr_asprintf(command, "%s --force --info %s|grep '^You might resize at '|cut -d' ' -f5", tmp, biggie_filename);
+        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); 
+        totallength = (off_t)atoll(tmp);
+        mr_free(tmp);
+    } else {
+        file_to_openin = biggie_filename;
+        if (strchr(biggie_filename,'\'') != NULL) {
+            mr_asprintf(command, "md5sum \"%s\"", biggie_filename);
+        } else {
+            mr_asprintf(command, "md5sum '%s'", biggie_filename);
+        }
+        if (!(fin = popen(command, "r"))) {
+            log_OS_error("Unable to popen-in command");
+            mr_free(suffix);
+            return (1);
+        }
+        mr_free(command);
+        mr_getline(checksum_line, fin);
+        pclose(fin);
+        totallength = length_of_file(biggie_filename);
+    }
+    lstat(biggie_filename, &biggiestruct.properties);
+    strcpy(biggiestruct.filename, biggie_filename);
+    pB = strchr(checksum_line, ' ');
+    if (!pB) {
+        pB = strchr(checksum_line, '\t');
+    }
+    if (pB) {
+        *pB = '\0';
+    }
+    strcpy(biggiestruct.checksum, checksum_line);
+    mr_free(checksum_line);
+
+    mr_asprintf(tmp, "%s", slice_fname(biggie_file_number, 0, bkpinfo->tmpdir, ""));
+    fout = fopen(tmp, "w");
+    if (fout == NULL) {
+        log_msg(1, "Unable to open and write to %s", tmp);
+        mr_free(tmp);
+        mr_free(suffix);
+        return (1);
+    }
+    res = fwrite((void *) &biggiestruct, 1, sizeof(biggiestruct), fout);
+    paranoid_fclose(fout);
+    mr_free(tmp);
+
+    log_msg(1, "Opening in %s; slicing it and writing to CD/tape", file_to_openin);
+    if (!(fin = fopen(file_to_openin, "r"))) {
+        log_OS_error("Unable to openin biggie_filename");
+        log_to_screen("Cannot archive bigfile '%s': not found", biggie_filename);
+
+        mr_free(suffix);
+        return (1);
+    }
+    if (IS_THIS_A_STREAMING_BACKUP(bkpinfo->backup_media_type)) {
+        res = move_files_to_stream(slice_fname(biggie_file_number, 0, bkpinfo->tmpdir, ""), NULL);
+    } else {
+        res = move_files_to_cd(slice_fname(biggie_file_number, 0, bkpinfo->tmpdir, ""), NULL);
+    }
+    i = bkpinfo->optimal_set_size / 256L;
+    if (!(tempblock = (char *) malloc(256 * 1024))) {
+        fatal_error("malloc error 256*1024");
+    }
+    for (slice_num = 1; !finished; slice_num++) {
+        mr_asprintf(curr_slice_fname_uncompressed, "%s", slice_fname(biggie_file_number, slice_num, bkpinfo->tmpdir, ""));
+        mr_asprintf(curr_slice_fname_compressed, "%s", slice_fname(biggie_file_number, slice_num, bkpinfo->tmpdir, suffix));
+
+        tmp = percent_media_full_comment();
+        update_progress_form(tmp);
+        mr_free(tmp);
+
+        if (!(fout = fopen(curr_slice_fname_uncompressed, "w"))) {
+            log_OS_error(curr_slice_fname_uncompressed);
+            mr_free(suffix);
+            return (1);
+        }
+        if ((i == bkpinfo->optimal_set_size / 256L) && (totalread < (off_t)1.1 * totallength)) {
+            for (i = 0L; i < (bkpinfo->optimal_set_size / 256L); i++) {
+                blksize = fread(tempblock, 1, 256 * 1024, fin);
+                if (blksize > (size_t)0) {
+                    totalread = totalread + (off_t)blksize;
+                    res = fwrite(tempblock, 1, blksize, fout);
+                } else {
+                    break;
+                }
+            }
+        } else {
+            i = 0L;
+        }
+        paranoid_fclose(fout);
+        if (i > 0L)             // length_of_file (curr_slice_fname_uncompressed)
+        {
+            if (!does_file_exist(curr_slice_fname_uncompressed)) {
+                log_msg(2, "Warning - '%s' doesn't exist. How can I compress slice?", curr_slice_fname_uncompressed);
+            }
+            if (should_I_compress_slices && bkpinfo->compression_level > 0) {
+                mr_asprintf(command, "%s -%d %s", bkpinfo->zip_exe, bkpinfo->compression_level, curr_slice_fname_uncompressed);
+                log_msg(2, command);
+                if ((res = system(command))) {
+                    log_OS_error(command);
+                }
+                //          did_I_compress_slice = TRUE;
+            } else {
+                mr_asprintf(command, "mv %s %s 2>> %s", curr_slice_fname_uncompressed, curr_slice_fname_compressed, MONDO_LOGFILE);
+                res = 0;        // don't do it :)
+                //          did_I_compress_slice = FALSE;
+            }
+            mr_free(command);
+
+            retval += res;
+            if (res) {
+                log_msg(2, "Failed to compress the slice");
+            }
+            if (bkpinfo->use_lzo && strcmp(curr_slice_fname_compressed, curr_slice_fname_uncompressed)) {
+                unlink(curr_slice_fname_uncompressed);
+            }
+            if (res) {
+                mr_asprintf(tmp, "Problem with slice # %ld", slice_num);
+            } else {
+                mr_asprintf(tmp, "%s - Bigfile #%ld, slice #%ld compressed OK          ", biggie_filename, biggie_file_number + 1, slice_num);
+            }
+            if (!g_text_mode) {
+                newtDrawRootText(0, g_noof_rows - 2, tmp);
+                newtRefresh();
+            } else {
+                log_msg(2, tmp);
+            }
+            mr_free(tmp);
+
+            mr_asprintf(file_to_archive, "%s", curr_slice_fname_compressed);
+            g_current_progress++;
+        } else {                /* if i==0 then ... */
+            finished = TRUE;
+            mr_asprintf(file_to_archive, "%s", curr_slice_fname_uncompressed);
+            if (IS_THIS_A_STREAMING_BACKUP(bkpinfo->backup_media_type)) {
+                break;
+            }
+        }
+        mr_free(curr_slice_fname_uncompressed);
+        mr_free(curr_slice_fname_compressed);
+
+        if (IS_THIS_A_STREAMING_BACKUP(bkpinfo->backup_media_type)) {
+            register_in_tape_catalog(biggieslice, biggie_file_number, slice_num, file_to_archive);
+            maintain_collection_of_recent_archives(bkpinfo->tmpdir, file_to_archive);
+            res = move_files_to_stream(file_to_archive, NULL);
+        } else {
+            res = move_files_to_cd(file_to_archive, NULL);
+        }
+        mr_free(file_to_archive);
+
+        retval += res;
+        if (res) {
+            log_to_screen("Failed to add slice %ld of bigfile %ld to scratchdir", slice_num, biggie_file_number + 1);
+            fatal_error("Hard disk full. You should have bought a bigger one.");
+        }
+    }
+    mr_free(tempblock);
+    mr_free(suffix);
+    paranoid_fclose(fin);
+    mr_asprintf(tmp, "Sliced bigfile #%ld", biggie_file_number + 1);
+    if (retval) {
+        mr_strcat(tmp, "...FAILED");
+    } else {
+        mr_strcat(tmp, "...OK!");
+    }
+    log_msg(1, tmp);
+    mr_free(tmp);
 
     return (retval);
@@ -708 +1834 @@
                     mr_free(sz_devfile);
                     fatal_error("Fork failure");
+                    break;
                 case 0:
                     log_msg(2, "CHILD - fip - calling feed_into_ntfsprog(%s, %s)", bigfile_fname, sz_devfile);
@@ -855 +1982 @@
     return (retval);
 }
+/* @} - end of LLarchiveGroup */
+
+/**
+ * Main function for each @c afio thread.
+ * @param inbuf A transfer block containing:
+ * - @c p_last_set_archived: [offset 0] pointer to an @c int
+ *   containing the last set archived.
+ * - @c p_archival_threads_running: [offset 4] pointer to an @c int
+ *   containing the number of archival threads currently running.
+ * - @c p_next_set_to_archive: [offset 8] pointer to an @c int containing
+ *   the next set that should be archived.
+ * - @c p_list_of_fileset_flags: [offset 12] @c char pointer pointing to a
+ *   bit array, where each bit corresponds to a filelist (1=needs
+ *   to be archived, 0=archived).
+ * - @c bkpinfo: [offset BKPINFO_LOC_OFFSET] pointer to backup information
+ *   structure. Fields used:
+ *   - @c tmpdir
+ *   - @c zip_suffix
+ *
+ * Any of the above may be modified by the caller at any time.
+ *
+ * @bug Assumes @c int pointers are 4 bytes.
+ * @see archive_this_fileset
+ * @see make_afioballs_and_images
+ * @return NULL, always.
+ * @ingroup LLarchiveGroup
+ */
+void *create_afio_files_in_background(void *inbuf)
+{
+    long int archiving_set_no = 0L;
+    char *archiving_filelist_fname = NULL;
+    char *archiving_afioball_fname = NULL;
+    char *curr_xattr_list_fname = NULL;
+    char *curr_acl_list_fname = NULL;
+
+    char *tmp = NULL;
+    int res = 0, retval = 0;
+    int *p_archival_threads_running;
+    int *p_last_set_archived;
+    int *p_next_set_to_archive;
+    char *p_list_of_fileset_flags;
+    int this_thread_no = g_current_thread_no++;
+
+    p_last_set_archived = (int *) inbuf;
+    p_archival_threads_running = (int *) (inbuf + 4);
+    p_next_set_to_archive = (int *) (inbuf + 8);
+    p_list_of_fileset_flags = (char *) (inbuf + 12);
+
+    mr_asprintf(archiving_filelist_fname, FILELIST_FNAME_RAW_SZ, bkpinfo->tmpdir, 0L);
+
+    while (does_file_exist(archiving_filelist_fname)) {
+        if (g_exiting) {
+            mr_free(archiving_filelist_fname);
+            fatal_error("Execution run aborted (pthread)");
+        }
+        if (archiving_set_no >= MAX_NOOF_SETS_HERE) {
+            mr_free(archiving_filelist_fname);
+            fatal_error("Maximum number of filesets exceeded. Adjust MAX_NOOF_SETS_HERE, please.");
+        }
+        if (!semaphore_p()) {
+            log_msg(3, "P sem failed (pid=%d)", (int) getpid());
+            mr_free(archiving_filelist_fname);
+            fatal_error("Cannot get semaphore P");
+        }
+        if (archiving_set_no < *p_next_set_to_archive) {
+            archiving_set_no = *p_next_set_to_archive;
+        }
+        *p_next_set_to_archive = *p_next_set_to_archive + 1;
+        if (!semaphore_v()) {
+            mr_free(archiving_filelist_fname);
+            fatal_error("Cannot get semaphore V");
+        }
+
+        /* backup this set of files */
+        mr_asprintf(archiving_afioball_fname, AFIOBALL_FNAME_RAW_SZ, bkpinfo->tmpdir, archiving_set_no, bkpinfo->zip_suffix);
+        mr_free(archiving_filelist_fname);
+        mr_asprintf(archiving_filelist_fname, FILELIST_FNAME_RAW_SZ, bkpinfo->tmpdir, archiving_set_no);
+        if (!does_file_exist(archiving_filelist_fname)) {
+            log_msg(3, "%s[%d:%d] - well, I would archive %d, except that it doesn't exist. I'll stop now.", FORTY_SPACES, getpid(), this_thread_no, archiving_set_no);
+            mr_free(archiving_afioball_fname);
+            break;
+        }
+
+        mr_asprintf(tmp, AFIOBALL_FNAME_RAW_SZ, bkpinfo->tmpdir, archiving_set_no - ARCH_BUFFER_NUM, bkpinfo->zip_suffix);
+        if (does_file_exist(tmp)) {
+            log_msg(4, "%s[%d:%d] - waiting for storer", FORTY_SPACES, getpid(), this_thread_no);
+            while (does_file_exist(tmp)) {
+                sleep(1);
+            }
+            log_msg(4, "[%d] - continuing", getpid());
+        }
+        mr_free(tmp);
+
+        log_msg(4, "%s[%d:%d] - EXATing %d...", FORTY_SPACES, getpid(), this_thread_no, archiving_set_no);
+
+        if (g_getfattr) {
+            mr_asprintf(curr_xattr_list_fname, XATTR_LIST_FNAME_RAW_SZ, bkpinfo->tmpdir, archiving_set_no);
+            get_fattr_list(archiving_filelist_fname, curr_xattr_list_fname);
+            mr_free(curr_xattr_list_fname);
+        }
+        if (g_getfacl) {
+            mr_asprintf(curr_acl_list_fname, ACL_LIST_FNAME_RAW_SZ, bkpinfo->tmpdir, archiving_set_no);
+            get_acl_list(archiving_filelist_fname, curr_acl_list_fname);
+            mr_free(curr_acl_list_fname);
+        }
+
+        log_msg(4, "%s[%d:%d] - archiving %d...", FORTY_SPACES, getpid(), this_thread_no, archiving_set_no);
+        res = archive_this_fileset(archiving_filelist_fname, archiving_afioball_fname, archiving_set_no);
+        mr_free(archiving_afioball_fname);
+
+        retval += res;
+
+        if (res) {
+            log_to_screen("Errors occurred while archiving set %ld. Please review logs.", archiving_set_no);
+        }
+
+        if (!semaphore_p()) {
+            mr_free(archiving_filelist_fname);
+            fatal_error("Cannot get semaphore P");
+        }
+
+        set_bit_N_of_array(p_list_of_fileset_flags, archiving_set_no, 5);
+
+        if (*p_last_set_archived < archiving_set_no) {
+            *p_last_set_archived = archiving_set_no;
+        }                       // finished archiving this one
+
+        if (!semaphore_v()) {
+            mr_free(archiving_filelist_fname);
+            fatal_error("Cannot get semaphore V");
+        }
+        log_msg(4, "%s[%d:%d] - archived %d OK", FORTY_SPACES, getpid(), this_thread_no, archiving_set_no);
+        archiving_set_no++;
+
+        mr_free(archiving_filelist_fname);
+        mr_asprintf(archiving_filelist_fname, FILELIST_FNAME_RAW_SZ, bkpinfo->tmpdir, archiving_set_no);
+    }
+    mr_free(archiving_filelist_fname);
+
+    if (!semaphore_p()) {
+        fatal_error("Cannot get semaphore P");
+    }
+    (*p_archival_threads_running)--;
+    if (!semaphore_v()) {
+        fatal_error("Cannot get semaphore V");
+    }
+    log_msg(3, "%s[%d:%d] - exiting", FORTY_SPACES, getpid(), this_thread_no);
+    pthread_exit(NULL);
+}
+
 
 /**
@@ -1859 +3136 @@
 
 
-
-/**
- * Set the <tt>N</tt>th bit of @c array to @c true_or_false.
- * @param array The bit array (as a @c char pointer).
- * @param N The bit number to set or reset.
- * @param true_or_false If TRUE then set bit @c N, if FALSE then reset bit @c N.
- * @see get_bit_N_of_array
- */
-void set_bit_N_of_array(char *array, int N, bool true_or_false)
-{
-    int bit_number;
-    int mask, orig_val, to_add;
-    int element_number;
-
-    assert(array != NULL);
-
-    element_number = N / 8;
-    bit_number = N % 8;
-    to_add = (1 << bit_number);
-    mask = 255 - to_add;
-    orig_val = array[element_number] & mask;
-    //  log_it("array[%d]=%02x; %02x&%02x = %02x", element_number, array[element_number], mask, orig_val);
-    if (true_or_false) {
-        array[element_number] = orig_val | to_add;
-    }
-}
-
-
-
-/**
- * Maximum number of filesets allowed in this function.
- */
-#define MAX_NOOF_SETS_HERE 32767
-
-/**
- * Offset of the bkpinfo pointer (in bytes) from the
- * buffer passed to create_afio_files_in_background.
- */
-#define BKPINFO_LOC_OFFSET (16+MAX_NOOF_SETS_HERE/8+16)
-
-/**
- * Main function for each @c afio thread.
- * @param inbuf A transfer block containing:
- * - @c p_last_set_archived: [offset 0] pointer to an @c int
- *   containing the last set archived.
- * - @c p_archival_threads_running: [offset 4] pointer to an @c int
- *   containing the number of archival threads currently running.
- * - @c p_next_set_to_archive: [offset 8] pointer to an @c int containing
- *   the next set that should be archived.
- * - @c p_list_of_fileset_flags: [offset 12] @c char pointer pointing to a
- *   bit array, where each bit corresponds to a filelist (1=needs
- *   to be archived, 0=archived).
- * - @c bkpinfo: [offset BKPINFO_LOC_OFFSET] pointer to backup information
- *   structure. Fields used:
- *   - @c tmpdir
- *   - @c zip_suffix
- *
- * Any of the above may be modified by the caller at any time.
- *
- * @bug Assumes @c int pointers are 4 bytes.
- * @see archive_this_fileset
- * @see make_afioballs_and_images
- * @return NULL, always.
- * @ingroup LLarchiveGroup
- */
-void *create_afio_files_in_background(void *inbuf)
-{
-    long int archiving_set_no = 0L;
-    char *archiving_filelist_fname = NULL;
-    char *archiving_afioball_fname = NULL;
-    char *curr_xattr_list_fname = NULL;
-    char *curr_acl_list_fname = NULL;
-
-    char *tmp = NULL;
-    int res = 0, retval = 0;
-    int *p_archival_threads_running;
-    int *p_last_set_archived;
-    int *p_next_set_to_archive;
-    char *p_list_of_fileset_flags;
-    int this_thread_no = g_current_thread_no++;
-
-    p_last_set_archived = (int *) inbuf;
-    p_archival_threads_running = (int *) (inbuf + 4);
-    p_next_set_to_archive = (int *) (inbuf + 8);
-    p_list_of_fileset_flags = (char *) (inbuf + 12);
-
-    mr_asprintf(archiving_filelist_fname, FILELIST_FNAME_RAW_SZ, bkpinfo->tmpdir, 0L);
-
-    while (does_file_exist(archiving_filelist_fname)) {
-        if (g_exiting) {
-            mr_free(archiving_filelist_fname);
-            fatal_error("Execution run aborted (pthread)");
-        }
-        if (archiving_set_no >= MAX_NOOF_SETS_HERE) {
-            mr_free(archiving_filelist_fname);
-            fatal_error("Maximum number of filesets exceeded. Adjust MAX_NOOF_SETS_HERE, please.");
-        }
-        if (!semaphore_p()) {
-            log_msg(3, "P sem failed (pid=%d)", (int) getpid());
-            mr_free(archiving_filelist_fname);
-            fatal_error("Cannot get semaphore P");
-        }
-        if (archiving_set_no < *p_next_set_to_archive) {
-            archiving_set_no = *p_next_set_to_archive;
-        }
-        *p_next_set_to_archive = *p_next_set_to_archive + 1;
-        if (!semaphore_v()) {
-            mr_free(archiving_filelist_fname);
-            fatal_error("Cannot get semaphore V");
-        }
-
-        /* backup this set of files */
-        mr_asprintf(archiving_afioball_fname, AFIOBALL_FNAME_RAW_SZ, bkpinfo->tmpdir, archiving_set_no, bkpinfo->zip_suffix);
-        mr_free(archiving_filelist_fname);
-        mr_asprintf(archiving_filelist_fname, FILELIST_FNAME_RAW_SZ, bkpinfo->tmpdir, archiving_set_no);
-        if (!does_file_exist(archiving_filelist_fname)) {
-            log_msg(3, "%s[%d:%d] - well, I would archive %d, except that it doesn't exist. I'll stop now.", FORTY_SPACES, getpid(), this_thread_no, archiving_set_no);
-            mr_free(archiving_afioball_fname);
-            break;
-        }
-
-        mr_asprintf(tmp, AFIOBALL_FNAME_RAW_SZ, bkpinfo->tmpdir, archiving_set_no - ARCH_BUFFER_NUM, bkpinfo->zip_suffix);
-        if (does_file_exist(tmp)) {
-            log_msg(4, "%s[%d:%d] - waiting for storer", FORTY_SPACES, getpid(), this_thread_no);
-            while (does_file_exist(tmp)) {
-                sleep(1);
-            }
-            log_msg(4, "[%d] - continuing", getpid());
-        }
-        mr_free(tmp);
-
-        log_msg(4, "%s[%d:%d] - EXATing %d...", FORTY_SPACES, getpid(), this_thread_no, archiving_set_no);
-
-        if (g_getfattr) {
-            mr_asprintf(curr_xattr_list_fname, XATTR_LIST_FNAME_RAW_SZ, bkpinfo->tmpdir, archiving_set_no);
-            get_fattr_list(archiving_filelist_fname, curr_xattr_list_fname);
-            mr_free(curr_xattr_list_fname);
-        }
-        if (g_getfacl) {
-            mr_asprintf(curr_acl_list_fname, ACL_LIST_FNAME_RAW_SZ, bkpinfo->tmpdir, archiving_set_no);
-            get_acl_list(archiving_filelist_fname, curr_acl_list_fname);
-            mr_free(curr_acl_list_fname);
-        }
-
-        log_msg(4, "%s[%d:%d] - archiving %d...", FORTY_SPACES, getpid(), this_thread_no, archiving_set_no);
-        res = archive_this_fileset(archiving_filelist_fname, archiving_afioball_fname, archiving_set_no);
-        mr_free(archiving_afioball_fname);
-
-        retval += res;
-
-        if (res) {
-            log_to_screen("Errors occurred while archiving set %ld. Please review logs.", archiving_set_no);
-        }
-
-        if (!semaphore_p()) {
-            mr_free(archiving_filelist_fname);
-            fatal_error("Cannot get semaphore P");
-        }
-
-        set_bit_N_of_array(p_list_of_fileset_flags, archiving_set_no, 5);
-
-        if (*p_last_set_archived < archiving_set_no) {
-            *p_last_set_archived = archiving_set_no;
-        }                       // finished archiving this one
-
-        if (!semaphore_v()) {
-            mr_free(archiving_filelist_fname);
-            fatal_error("Cannot get semaphore V");
-        }
-        log_msg(4, "%s[%d:%d] - archived %d OK", FORTY_SPACES, getpid(), this_thread_no, archiving_set_no);
-        archiving_set_no++;
-
-        mr_free(archiving_filelist_fname);
-        mr_asprintf(archiving_filelist_fname, FILELIST_FNAME_RAW_SZ, bkpinfo->tmpdir, archiving_set_no);
-    }
-    mr_free(archiving_filelist_fname);
-
-    if (!semaphore_p()) {
-        fatal_error("Cannot get semaphore P");
-    }
-    (*p_archival_threads_running)--;
-    if (!semaphore_v()) {
-        fatal_error("Cannot get semaphore V");
-    }
-    log_msg(3, "%s[%d:%d] - exiting", FORTY_SPACES, getpid(), this_thread_no);
-    pthread_exit(NULL);
-}
-
-
-/**
- * Get the <tt>N</tt>th bit of @c array.
- * @param array The bit-array (as a @c char pointer).
- * @param N The number of the bit you want.
- * @return TRUE (bit is set) or FALSE (bit is not set).
- * @see set_bit_N_of_array
- * @ingroup utilityGroup
- */
-bool get_bit_N_of_array(char *array, int N)
-{
-    int element_number;
-    int bit_number;
-    int mask;
-
-    element_number = N / 8;
-    bit_number = N % 8;
-    mask = 1 << bit_number;
-    if (array[element_number] & mask) {
-        return (TRUE);
-    } else {
-        return (FALSE);
-    }
-}
-
-
-/**
- * Move some files to the ISO scratch directory.
- * This function moves files specified as parameters, into the directory
- * @c bkpinfo->scratchdir, where the files that will be stored on the next
- * CD are waiting.
- *
- * @param bkpinfo The backup information structure. Fields used:
- * - @c media_size
- * - @c scratchdir
- * @param files_to_add The files to add to the scratchdir.
- * @warning The list of @c files_to_add must be terminated with @c NULL.
- * @note If and when the space occupied by the scratchdir would exceed
- * the capacity of the current CD,
- * <tt>write_iso_and_go_on(bkpinfo, FALSE)</tt> is called and the
- * scratchdir is emptied.
- *
- * @return The number of errors encountered (0 for success)
- */
-int _move_files_to_cd(char *files_to_add, ...)
-{
-
-    /*@ int ************************************************************ */
-    int retval = 0;
-    int res = 0;
-
-    /*@ buffers ******************************************************** */
-    char *tmp = NULL;
-    char *curr_file = NULL;
-    char *cf;
-
-    /*@ long ************************************************************ */
-    va_list ap;
-    long long would_occupy;
-
-    assert(bkpinfo != NULL);
-    would_occupy = space_occupied_by_cd(bkpinfo->scratchdir);
-    va_start(ap, files_to_add); // initialize the variable arguments
-    for (cf = files_to_add; cf != NULL; cf = va_arg(ap, char *)) {
-        if (!cf) {
-            continue;
-        }
-        mr_asprintf(curr_file, "%s", cf);
-        if (!does_file_exist(curr_file)) {
-            log_msg(1, "Warning - you're trying to add a non-existent file - '%s' to the CD", curr_file);
-        } else {
-            log_msg(8, "Trying to add file %s to CD", curr_file);
-            would_occupy += length_of_file(curr_file) / 1024;
-        }
-        mr_free(curr_file);
-    }
-    va_end(ap);
-
-    if (bkpinfo->media_size <= 0) {
-        fatal_error("move_files_to_cd() - unknown media size");
-    }
-    if (would_occupy / 1024 > bkpinfo->media_size) {
-        res = write_iso_and_go_on(FALSE);   /* FALSE because this is not the last CD we'll write */
-        retval += res;
-        if (res) {
-            log_msg(1, "WARNING - write_iso_and_go_on returned an error");
-        }
-    }
-
-    va_start(ap, files_to_add); // initialize the variable arguments
-    for (cf = files_to_add; cf != NULL; cf = va_arg(ap, char *)) {
-        if (!cf) {
-            continue;
-        }
-        mr_asprintf(curr_file, "%s", cf);
-
-        mr_asprintf(tmp, "mv -f %s %s/archives/", curr_file, bkpinfo->scratchdir);
-        mr_free(curr_file);
-        res = run_program_and_log_output(tmp, 5);
-        retval += res;
-        if (res) {
-            log_msg(1, "(move_files_to_cd) '%s' failed", tmp);
-        } else {
-            log_msg(8, "Moved %s to CD OK", tmp);
-        }
-        mr_free(tmp);
-    }
-    va_end(ap);
-
-    if (retval) {
-        log_msg(1,
-                "Warning - errors occurred while I was adding files to CD dir");
-    }
-    return (retval);
-}
-
-/* @} - end of LLarchiveGroup */
-
-/**
- * Copy some files to tape.
- * This function copies the files specified as parameters into the tape stream.
- *
- * @param bkpinfo The backup information structure. Used only in the call to
- * @c write_file_to_stream_from_file().
- *
- * @param files_to_add The files to copy to the tape stream.
- * @warning The list of @c files_to_add must be terminated with @c NULL.
- * @note Files may be split across multiple tapes if necessary.
- *
- * @return The number of errors encountered (0 for success)
- */
-int
-_move_files_to_stream(char *files_to_add, ...)
-{
-
-    /*@ int ************************************************************ */
-    int retval = 0;
-    int res = 0;
-    /*@ buffers ******************************************************** */
-
-    /*@ char *********************************************************** */
-    char start_chr;
-    char stop_chr;
-    char *curr_file = NULL;
-    char *cf;
-    /*@ long long ****************************************************** */
-    off_t length_of_incoming_file = (off_t)0;
-    va_list ap;
-
-    assert(bkpinfo != NULL);
-    va_start(ap, files_to_add);
-    for (cf = files_to_add; cf != NULL; cf = va_arg(ap, char *)) {
-        if (!cf) {
-            continue;
-        }
-        mr_asprintf(curr_file, "%s", cf);
-        if (!does_file_exist(curr_file)) {
-            log_msg(1,
-                    "Warning - you're trying to add a non-existent file - '%s' to the tape",
-                    curr_file);
-        }
-        /* create header chars */
-        start_chr = BLK_START_AN_AFIO_OR_SLICE;
-        stop_chr = BLK_STOP_AN_AFIO_OR_SLICE;
-        /* ask for new tape if necessary */
-        length_of_incoming_file = length_of_file(curr_file);
-        write_header_block_to_stream(length_of_incoming_file, curr_file, start_chr);
-        res = write_file_to_stream_from_file(curr_file);
-        retval += res;
-        unlink(curr_file);
-        mr_free(curr_file);
-        /* write closing header */
-        write_header_block_to_stream((off_t)0, "finished-writing-file", stop_chr);
-    }
-    va_end(ap);
-
-    if (retval) {
-        log_msg(1,
-                "Warning - errors occurred while I was adding file to tape");
-    }
-    return (retval);
-}
-
-
-/**
- * @addtogroup LLarchiveGroup
- * @{
- */
-/**
- * Function pointer to an appropriate @c move_files_to_stream routine.
- * You can set this to your own function (for example, one to
- * transfer files over the network) or leave it as is.
- */
-int (*move_files_to_stream) (char *, ...) =
-    _move_files_to_stream;
-
-
-/**
- * Function pointer to an appropriate @c move_files_to_cd routine.
- * You can set this to your own function (for example, one to
- * transfer files over the network) or leave it as is.
- */
-int (*move_files_to_cd) (char *, ...) =
-    _move_files_to_cd;
-
-
-
-/**
- * @addtogroup LLarchiveGroup
- * @{
- */
-
-void pause_for_N_seconds(int how_long, char *msg)
-{
-    int i;
-    open_evalcall_form(msg);
-    for (i = 0; i < how_long; i++) {
-        update_evalcall_form((int) ((100.0 / (float) (how_long) * i)));
-        sleep(1);
-    }
-    close_evalcall_form();
-}
-
-
-
-
-/**
- * Create a USB image in @c destfile, from files in @c bkpinfo->scratchdir.
- *
- * @param bkpinfo The backup information structure. Fields used:
- * - @c backup_media_type
- * - @c nonbootable_backup
- * - @c scratchdir
- *
- * @param destfile Where to put the generated USB image.
- * @return The number of errors encountered (0 for success)
- */
-int make_usb_fs()
-{
-    /*@ int ********************************************** */
-    int retval = 0;
-    int res;
-
-    /*@ buffers ****************************************** */
-    char *tmp = NULL;
-    char *tmp1 = NULL;
-    char *result_sz = NULL;
-    char *message_to_screen = NULL;
-    char *old_pwd = NULL;
-    char *mds = NULL;
-
-    assert(bkpinfo != NULL);
-
-    log_msg(2, "make_usb_fs --- scratchdir=%s", bkpinfo->scratchdir);
-    old_pwd = mr_getcwd();
-    mr_asprintf(tmp, "chmod 700 %s", bkpinfo->scratchdir);
-    run_program_and_log_output(tmp, FALSE);
-    mr_free(tmp);
-    if (chdir(bkpinfo->scratchdir)) {
-        // FIXME
-    }
-
-    mds = media_descriptor_string(bkpinfo->backup_media_type);
-    mr_asprintf(message_to_screen, "Copying data to make %s #%d",mds, g_current_media_number);
-    mr_free(mds);
-    log_msg(1, message_to_screen);
-
-    if (bkpinfo->media_device) {
-        mr_asprintf(tmp1, "%s1", bkpinfo->media_device);
-    } else {
-        mr_asprintf(tmp1, "");
-    }
-    if (is_this_device_mounted(tmp1)) {
-        log_msg(1, "USB device mounted. Remounting it at the right place");
-        mr_asprintf(tmp, "umount %s", tmp1);
-        run_program_and_log_output(tmp, FALSE);
-        mr_free(tmp);
-    }
-    mr_free(tmp1);
-
-    log_msg(1, "Mounting USB device.");
-    mr_asprintf(tmp1, "%s/usb", bkpinfo->tmpdir);
-    mr_asprintf(tmp, "mkdir -p %s", tmp1);
-    run_program_and_log_output(tmp, FALSE);
-    mr_free(tmp);
-
-
-    /* Mindi always create one single parition on the USB dev */
-    mr_asprintf(tmp, "mount %s1 %s", bkpinfo->media_device, tmp1);
-    run_program_and_log_output(tmp, FALSE);
-    mr_free(tmp);
-
-    if (bkpinfo->nonbootable_backup) {
-        log_msg(1, "Making nonbootable USB backup not implemented yet");
-    } else {
-        log_msg(1, "Making bootable backup");
-
-        /* Command to execute */
-        mr_asprintf(tmp,"cd %s ; rm -fr %s/syslinux ; mv * %s", bkpinfo->scratchdir, tmp1, tmp1); 
-        res = eval_call_to_make_USB(tmp, message_to_screen);
-        if (res) {
-            mr_asprintf(result_sz, "%s ...failed",tmp);
-        } else {
-            mr_asprintf(result_sz, "%s ...OK",tmp);
-        }
-        log_to_screen(result_sz);
-        mr_free(result_sz);
-        mr_free(tmp);
-        retval += res;
-
-        /* Recreate the required structure under the scratch dir */
-        mr_asprintf(tmp,"mkdir %s/archive", bkpinfo->scratchdir); 
-        run_program_and_log_output(tmp, FALSE);
-        mr_free(tmp);
-    }
-    paranoid_free(message_to_screen);
-
-    /*  Copy the current logfile - of course incomplete to the media */
-    mr_system("gzip -c9 %s > %s/archives/%s", MONDO_LOGFILE, tmp1, MONDO_LOGFILENAME);
-    paranoid_free(tmp1);
-
-    if (is_this_device_mounted(bkpinfo->media_device)) {
-        mr_asprintf(tmp, "umount %s1", bkpinfo->media_device);
-        run_program_and_log_output(tmp, FALSE);
-        mr_free(tmp);
-    }
-
-    if (chdir(old_pwd)) {
-        // FIXME
-    }
-    mr_free(old_pwd);
-    if (retval) {
-        log_msg(1, "WARNING - make_usb_fs returned an error");
-    }
-    return(retval);
-}
-
-/**
- * Make sure the user has a valid CD-R(W) in the CD drive.
- * @param cd_dev Set to the CD-R(W) device checked.
- * @param keep_looping If TRUE, keep pestering user until they insist
- * or insert a correct CD; if FALSE, only check once.
- * @return 0 (there was an OK CD in the drive) or 1 (there wasn't).
- */
-int interrogate_disk_currently_in_cddrive(char *cd_dev,
-                                             bool keep_looping)
-{
-    int res = 0;
-    char *bkp = NULL;
-    char *cdrecord = NULL;
-
-    mr_asprintf(bkp, "%s", cd_dev);
-    if ((cd_dev = find_optical_device()) != NULL) {
-        if (!system("which cdrecord > /dev/null 2> /dev/null")) {
-            mr_asprintf(cdrecord, "cdrecord dev=%s -atip", cd_dev);
-        } else if (!system("which dvdrecord > /dev/null 2> /dev/null")) {
-            mr_asprintf(cdrecord, "cdrecord dev=%s -atip", cd_dev);
-        } else {
-            log_msg(2, "Oh well. I guess I'll just pray then.");
-        }
-        if (cdrecord != NULL) {
-            if (!keep_looping) {
-                retract_CD_tray_and_defeat_autorun();
-                res = run_program_and_log_output(cdrecord, 5);
-            } else {
-                while ((res = run_program_and_log_output(cdrecord, 5))) {
-                    retract_CD_tray_and_defeat_autorun();
-                    if (ask_me_yes_or_no
-                        ("Unable to examine CD. Are you sure this is a valid CD-R(W) CD?"))
-                    {
-                        log_msg(1, "Well, he insisted...");
-                        break;
-                    }
-                }
-            }
-        }
-    }
-    mr_free(bkp);
-
-    mr_free(cdrecord);
-    return (res);
-}
-
-
-/**
- * Asks the user to put a CD-R(W) in the drive.
- * @param ask_for_one_if_more_than_this (unused)
- * @param pmountable If non-NULL, pointed-to value is set to TRUE if the CD is mountable, FALSE otherwise.
- */
-void pause_and_ask_for_cdr(int ask_for_one_if_more_than_this, bool * pmountable) {
-
-    /*@ buffers ********************************************* */
-    char *tmp = NULL;
-    char *cdrom_dev = NULL;
-    char *cd_dev = NULL;
-    char *our_serial_str = NULL;
-    bool ok_go_ahead_burn_it;
-    int cd_number = -1;
-    int attempt_to_mount_returned_this = 999;
-    char *mtpt = NULL;
-    char *szcdno = NULL;
-    char *szserfname = NULL;
-    char *szunmount = NULL;
-    char *mds = NULL;
-
-    malloc_string(cd_dev);
-
-    mds = media_descriptor_string(g_backup_media_type);
-    log_to_screen("I am about to burn %s #%d", mds, g_current_media_number);
-    mr_free(mds);
-    if (g_current_media_number < ask_for_one_if_more_than_this) {
-        return;
-    }
-    log_to_screen("Scanning CD-ROM drive...");
-    mr_asprintf(mtpt, "%s/cd.mtpt", bkpinfo->tmpdir);
-    make_hole_for_dir(mtpt);
-
-  gotos_make_me_puke:
-    ok_go_ahead_burn_it = TRUE;
-    mr_free(cdrom_dev);
-    if ((cdrom_dev = find_optical_device()) != NULL) {
-        /* When enabled, it made CD eject-and-retract when wrong CD inserted.. Weird
-        log_msg(2, "paafcd: Retracting CD-ROM drive if possible" );
-        retract_CD_tray_and_defeat_autorun();
-        */
-        mr_asprintf(tmp, "umount %s", cdrom_dev);
-        run_program_and_log_output(tmp, 1);
-        mr_asprintf(szcdno, "%s/archives/THIS-CD-NUMBER", mtpt);
-        mr_asprintf(szserfname, "%s/archives/SERIAL-STRING", mtpt);
-        mr_asprintf(szunmount, "umount %s", mtpt);
-        cd_number = -1;
-        mr_asprintf(tmp, "mount %s %s", cdrom_dev, mtpt);
-        mr_asprintf(our_serial_str, "%s", "");
-        attempt_to_mount_returned_this = run_program_and_log_output(tmp, 1);
-        mr_free(tmp);
-
-        if (attempt_to_mount_returned_this) {
-            log_msg(4, "Failed to mount %s at %s", cdrom_dev, mtpt);
-            log_to_screen("If there's a CD/DVD in the drive, it's blank.");
-        } else if (!does_file_exist(szcdno) || !does_file_exist(szserfname)) {
-            mds = media_descriptor_string(g_backup_media_type);
-            log_to_screen("%s has data on it but it's probably not a Mondo CD.", mds);
-            mr_free(mds);
-        } else {
-            mds = media_descriptor_string(g_backup_media_type);
-            log_to_screen("%s found in drive. It's a Mondo disk.", mds);
-            mr_free(mds);
-
-            cd_number = atoi(last_line_of_file(szcdno));
-            mr_asprintf(tmp, "cat %s 2> /dev/null", szserfname);
-            mr_free(our_serial_str);
-            our_serial_str = call_program_and_get_last_line_of_output(tmp);
-            mr_free(tmp);
-            // FIXME - should be able to use last_line_of_file(), surely?
-        }
-        mr_free(szcdno);
-        mr_free(szserfname);
-
-        run_program_and_log_output(szunmount, 1);
-        mr_free(szunmount);
-
-        log_msg(2, "paafcd: cd_number = %d", cd_number);
-        log_msg(2, "our serial str = %s; bkpinfo->serial_string = %s", our_serial_str, bkpinfo->serial_string);
-        if (cd_number > 0 && !strcmp(our_serial_str, bkpinfo->serial_string)) {
-            mds = media_descriptor_string(g_backup_media_type);
-            log_msg(2, "This %s is part of this backup set!", mds);
-            ok_go_ahead_burn_it = FALSE;
-            if (cd_number == g_current_media_number - 1) {
-                log_to_screen("I think you've left the previous %s in the drive.", mds);
-            } else {
-                log_to_screen("Please remove this %s. It is part of the backup set you're making now.", mds);
-            }
-            mr_free(mds);
-
-        } else {
-            log_to_screen("...but not part of _our_ backup set.");
-        }
-        mr_free(our_serial_str);
-    } else {
-        mds = media_descriptor_string(g_backup_media_type);
-        log_msg(2,
-                "paafcd: Can't find CD-ROM drive. Perhaps it has a blank %s in it?", mds);
-        if (interrogate_disk_currently_in_cddrive(cd_dev, FALSE)) {
-            ok_go_ahead_burn_it = FALSE;
-            log_to_screen("There isn't a writable %s in the drive.", mds);
-        }
-        mr_free(mds);
-    }
-
-    if (!ok_go_ahead_burn_it) {
-        if (!bkpinfo->please_dont_eject) {
-            eject_device(cdrom_dev);
-        }
-        mds = media_descriptor_string(g_backup_media_type);
-        mr_asprintf(tmp, "I am about to burn %s #%d of the backup set. Please insert %s and press Enter.", mds, g_current_media_number, mds);
-        mr_free(mds);
-
-        popup_and_OK(tmp);
-        mr_free(tmp);
-        goto gotos_make_me_puke;
-    } else {
-        log_msg(2, "paafcd: OK, going ahead and burning it.");
-    }
-
-    mds = media_descriptor_string(g_backup_media_type);
-    log_msg(2, "paafcd: OK, I assume I have a blank/reusable %s in the drive...", mds);
-
-    log_to_screen("Proceeding w/ %s in drive.", mds);
-    mr_free(mds);
-
-    mr_free(cdrom_dev);
-    paranoid_free(cd_dev);
-    mr_free(mtpt);
-    if (pmountable) {
-        if (attempt_to_mount_returned_this) {
-            *pmountable = FALSE;
-        } else {
-            *pmountable = TRUE;
-        }
-    }
-
-}
-
-
-/**
- * Create an ISO image in @c destfile, from files in @c bkpinfo->scratchdir.
- *
- * @param bkpinfo The backup information structure. Fields used:
- * - @c backup_media_type
- * - @c call_after_iso
- * - @c call_before_iso
- * - @c call_burn_iso
- * - @c call_make_iso
- * - @c make_cd_use_lilo
- * - @c manual_cd_tray
- * - @c nonbootable_backup
- * - @c scratchdir
- *
- * @param destfile Where to put the generated ISO image.
- * @return The number of errors encountered (0 for success)
- */
-int make_iso_fs(char *destfile) {
-    /*@ int ********************************************** */
-    int retval = 0;
-    int res;
-
-    /*@ buffers ****************************************** */
-    char *tmp = NULL;
-    char *old_pwd = NULL;
-    char *result_sz = NULL;
-    char *message_to_screen = NULL;
-    char *sz_blank_disk = NULL;
-    char *isofs_cmd = NULL;
-    char *full_isofs_cmd = NULL;
-    char *mds = NULL;
-    char *uefistr = NULL;
-    bool cd_is_mountable;
-
-    assert(bkpinfo != NULL);
-    assert_string_is_neither_NULL_nor_zerolength(destfile);
-
-    if (bkpinfo->backup_media_type == iso && bkpinfo->manual_cd_tray) {
-        popup_and_OK("Please insert new media and press Enter.");
-    }
-
-    log_msg(2, "make_iso_fs --- scratchdir=%s --- destfile=%s", bkpinfo->scratchdir, destfile);
-    old_pwd = mr_getcwd();
-    mr_asprintf(tmp, "chmod 700 %s", bkpinfo->scratchdir);
-    run_program_and_log_output(tmp, FALSE);
-    mr_free(tmp);
-
-    if (chdir(bkpinfo->scratchdir)) {
-        // FIXME
-    }
-
-    if (bkpinfo->call_before_iso != NULL) {
-        mr_asprintf(message_to_screen, "Running pre-ISO call for CD#%d", g_current_media_number);
-        res = eval_call_to_make_ISO(bkpinfo->call_before_iso, destfile, g_current_media_number, message_to_screen);
-        if (res) {
-            mr_strcat(message_to_screen, "...failed");
-        } else {
-            mr_strcat(message_to_screen, "...OK");
-        }
-        log_to_screen(message_to_screen);
-        paranoid_free(message_to_screen);
-
-        retval += res;
-    }
-
-    if (bkpinfo->call_make_iso != NULL) {
-        log_msg(2, "bkpinfo->call_make_iso = %s", bkpinfo->call_make_iso);
-        mds = media_descriptor_string(bkpinfo->backup_media_type);
-        mr_asprintf(message_to_screen, "Making an ISO (%s #%d)", mds, g_current_media_number);
-        mr_free(mds);
-
-        pause_and_ask_for_cdr(2, &cd_is_mountable); /* if g_current_media_number >= 2 then pause & ask */
-        if (retval) {
-            log_to_screen
-                ("Serious error(s) occurred already. I shan't try to write to media.");
-        } else {
-            res =
-                eval_call_to_make_ISO(bkpinfo->call_make_iso, bkpinfo->scratchdir, g_current_media_number, message_to_screen);
-            if (res) {
-                log_to_screen("%s...failed to write", message_to_screen);
-            } else {
-                log_to_screen("%s...OK", message_to_screen);
-                mr_asprintf(tmp, "tail -n10 %s | grep -F ':-('", MONDO_LOGFILE);
-                if (!run_program_and_log_output(tmp, 1)) {
-                    log_to_screen
-                        ("Despite nonfatal errors, growisofs confirms the write was successful.");
-                }
-                mr_free(tmp);
-            }
-            retval += res;
-#ifdef DVDRWFORMAT
-            mr_asprintf(tmp, "tail -n8 %s | grep 'blank=full.*dvd-compat.*DAO'", MONDO_LOGFILE);
-            if (g_backup_media_type == dvd
-                && (res || !run_program_and_log_output(tmp, 1))) {
-                log_to_screen
-                    ("Failed to write to disk. I shall blank it and then try again.");
-                sleep(5);
-                /* reset error counter before trying to blank DVD */
-                retval -= res;
-                sync();
-                pause_for_N_seconds(5, "Letting DVD drive settle");
-
-// dvd+rw-format --- OPTION 2
-                if (!bkpinfo->please_dont_eject) {
-                    log_to_screen("Ejecting media to clear drive status.");
-                    eject_device(bkpinfo->media_device);
-                    inject_device(bkpinfo->media_device);
-                }
-                pause_for_N_seconds(5, "Letting DVD drive settle");
-                if (bkpinfo->media_device) {
-                    mr_asprintf(sz_blank_disk, "dvd+rw-format -force %s", bkpinfo->media_device);
-                } else {
-                    mr_asprintf(sz_blank_disk, "dvd+rw-format");
-                }
-                log_msg(3, "sz_blank_disk = '%s'", sz_blank_disk);
-                res = run_external_binary_with_percentage_indicator_NEW("Blanking DVD disk", sz_blank_disk);
-                if (res) {
-                    log_to_screen("Warning - format failed. (Was it a DVD-R?) Sleeping for 5 seconds to take a breath...");
-                    pause_for_N_seconds(5, "Letting DVD drive settle... and trying again.");
-                    res = run_external_binary_with_percentage_indicator_NEW("Blanking DVD disk", sz_blank_disk);
-                    if (res) {
-                        log_to_screen("Format failed a second time.");
-                    }
-                } else {
-                    log_to_screen
-                        ("Format succeeded. Sleeping for 5 seconds to take a breath...");
-                }
-                mr_free(sz_blank_disk);
-                pause_for_N_seconds(5, "Letting DVD drive settle");
-                if (!bkpinfo->please_dont_eject) {
-                    log_to_screen("Ejecting media to clear drive status.");
-                    eject_device(bkpinfo->media_device);
-                    inject_device(bkpinfo->media_device);
-                }
-                pause_for_N_seconds(5, "Letting DVD drive settle");
-                res = eval_call_to_make_ISO(bkpinfo->call_make_iso, bkpinfo->scratchdir, g_current_media_number, message_to_screen);
-                retval += res;
-                if (!bkpinfo->please_dont_eject) {
-                    log_to_screen("Ejecting media.");
-                    eject_device(bkpinfo->media_device);
-                }
-                if (res) {
-                    log_to_screen("Dagnabbit. It still failed.");
-                } else {
-                    log_to_screen
-                        ("OK, this time I successfully backed up to DVD.");
-                }
-            }
-            mr_free(tmp);
-#endif
-            if (g_backup_media_type == dvd && !bkpinfo->please_dont_eject) {
-                eject_device(bkpinfo->media_device);
-            }
-        }
-        paranoid_free(message_to_screen);
-    } else {
-        mds = media_descriptor_string(bkpinfo->backup_media_type);
-        mr_asprintf(message_to_screen, "Running mkisofs to make %s #%d", mds, g_current_media_number);
-        log_msg(1, message_to_screen);
-        mr_asprintf(result_sz, "Call to mkisofs to make ISO (%s #%d) ", mds,  g_current_media_number);
-        mr_free(mds);
-        if ((tmp = find_home_of_exe("xorriso")) != NULL) {
-            mr_asprintf(isofs_cmd, "%s %s", tmp, MONDO_XORRISO_OPT);
-        } else if ((tmp = find_home_of_exe("genisoimage")) != NULL) {
-            mr_asprintf(isofs_cmd, "%s %s", tmp, MONDO_GENISOIMAGE_OPT);
-        } else if ((tmp = find_home_of_exe("mkisofs")) != NULL) {
-            mr_asprintf(isofs_cmd, "%s %s", tmp, MONDO_MKISOFS_OPT);
-        } else if ((tmp = find_home_of_exe("wodim")) != NULL) {
-            mr_asprintf(isofs_cmd, "%s %s", tmp, MONDO_WODIM_OPT);
-        } else {
-            fatal_error("Unable to find a command to create ISO among xorriso, genisoimage, mksiofs or wodim, please install one");
-        }
-        mr_free(tmp);
-        if (bkpinfo->nonbootable_backup) {
-            log_msg(1, "Making nonbootable backup");
-            mr_asprintf(full_isofs_cmd, "%s%s-o '_ISO_' .",isofs_cmd,MONDO_MKISOFS);
-            res = eval_call_to_make_ISO(full_isofs_cmd, destfile, g_current_media_number, message_to_screen);
-            mr_free(full_isofs_cmd);
-        } else {
-            log_msg(1, "Making bootable backup");
-
-#ifdef __FreeBSD__
-            bkpinfo->make_cd_use_lilo = TRUE;
-#endif
-
-
-            log_msg(1, "make_cd_use_lilo is actually %d", bkpinfo->make_cd_use_lilo);
-            if (bkpinfo->make_cd_use_lilo) {
-                log_msg(1, "make_cd_use_lilo = TRUE");
-#ifdef __IA64__
-                log_msg(1, "IA64 --> elilo");
-                mr_asprintf(full_isofs_cmd, "%s%s-o '_ISO_' .",isofs_cmd,MONDO_MKISOFS_REGULAR_ELILO);
-                res = eval_call_to_make_ISO(full_isofs_cmd, destfile, g_current_media_number, message_to_screen);
-                mr_free(full_isofs_cmd);
-#else
-                log_msg(1, "Non-ia64 --> lilo");
-                mr_asprintf(full_isofs_cmd, "%s%s-b images/mindi-bootroot.img -c images/boot.cat -o '_ISO_' .",isofs_cmd,MONDO_MKISOFS);
-                // FIXME: fixed boot size probably wrong. lilo to be removed
-                res = eval_call_to_make_ISO(full_isofs_cmd, destfile, g_current_media_number, message_to_screen);
-                mr_free(full_isofs_cmd);
-#endif
-            } else {
-                log_msg(1, "make_cd_use_lilo = FALSE");
-                log_msg(1, "Isolinux");
-                if (bkpinfo->boot_type == UEFI) {
-                    if (strstr(isofs_cmd,"xorriso")) {
-                        /*  xorriso needs another '-' before efi-boot */
-                        mr_asprintf(uefistr, "%s -%s", MONDO_UEFI_PREFIX, MONDO_MKISOFS_UEFI);
-                    } else {
-                        mr_asprintf(uefistr, "%s %s", MONDO_UEFI_PREFIX, MONDO_MKISOFS_UEFI);
-                    }
-                } else {
-                    mr_asprintf(uefistr, "%s",MONDO_MKISOFS_CMS);
-                }
-                mr_asprintf(full_isofs_cmd, "%s%s%s-o '_ISO_' .",isofs_cmd,MONDO_MKISOFS_REGULAR_SYSLINUX,uefistr);
-                mr_free(uefistr);
-
-                res = eval_call_to_make_ISO(full_isofs_cmd, destfile, g_current_media_number, message_to_screen);
-                mr_free(full_isofs_cmd);
-            }
-        }
-        mr_free(isofs_cmd);
-        paranoid_free(message_to_screen);
-
-        if (res) {
-            mr_strcat(result_sz, "...failed");
-        } else {
-            mr_strcat(result_sz, "...OK");
-        }
-        log_to_screen(result_sz);
-        paranoid_free(result_sz);
-        retval += res;
-    }
-
-    if (bkpinfo->backup_media_type == cdr) {
-        if (is_this_device_mounted(bkpinfo->media_device)) {
-            log_msg(2, "Warning - %s mounted. I'm unmounting it before I burn to it.", bkpinfo->media_device);
-            mr_asprintf(tmp, "umount %s", bkpinfo->media_device);
-            run_program_and_log_output(tmp, FALSE);
-            mr_free(tmp);
-        }
-    }
-
-    if (bkpinfo->call_burn_iso != NULL) {
-        log_msg(2, "bkpinfo->call_burn_iso = %s", bkpinfo->call_burn_iso);
-        mds = media_descriptor_string(bkpinfo->backup_media_type);
-        mr_asprintf(message_to_screen, "Burning %s #%d", mds, g_current_media_number);
-        mr_free(mds);
-        pause_and_ask_for_cdr(2, &cd_is_mountable);
-        res = eval_call_to_make_ISO(bkpinfo->call_burn_iso, destfile, g_current_media_number, message_to_screen);
-        if (res) {
-            mr_strcat(message_to_screen, "...failed");
-        } else {
-            mr_strcat(message_to_screen, "...OK");
-        }
-        log_to_screen(message_to_screen);
-        paranoid_free(message_to_screen);
-
-        retval += res;
-    }
-
-    if (bkpinfo->call_after_iso != NULL) {
-        mds = media_descriptor_string(bkpinfo->backup_media_type);
-        mr_asprintf(message_to_screen, "Running post-ISO call (%s #%d)", mds, g_current_media_number);
-        mr_free(mds);
-        res = eval_call_to_make_ISO(bkpinfo->call_after_iso, destfile, g_current_media_number, message_to_screen);
-        if (res) {
-            mr_strcat(message_to_screen, "...failed");
-        } else {
-            mr_strcat(message_to_screen, "...OK");
-        }
-        log_to_screen(message_to_screen);
-        paranoid_free(message_to_screen);
-
-        retval += res;
-    }
-
-    if (chdir(old_pwd)) {
-        // FIXME
-    }
-    mr_free(old_pwd);
-    if (retval) {
-        log_msg(1, "WARNING - make_iso_fs returned an error");
-    }
-    return (retval);
-}
-
-
-bool is_dev_an_NTFS_dev(char *bigfile_fname)
-{
-    char *tmp = NULL;
-    char *command = NULL;
-    bool ret = TRUE;
-
-    mr_asprintf(command, "dd if=%s bs=512 count=1 2> /dev/null | strings | head -n1", bigfile_fname);
-    log_msg(1, "command = '%s'", command);
-    tmp = call_program_and_get_last_line_of_output(command);
-    mr_free(command);
-
-    log_msg(1, "--> tmp = '%s'", tmp);
-    if (strstr(tmp, "NTFS")) {
-        log_it("TRUE");
-        ret = TRUE;
-    } else {
-        log_it("FALSE");
-        ret = FALSE;
-    }
-    mr_free(tmp);
-    return(ret);
-}
-
-
-/**
- * Chop up @c filename.
- * @param bkpinfo The backup information structure. Fields used:
- * - @c backup_media_type
- * - @c compression_level
- * - @c optimal_set_size
- * - @c tmpdir
- * - @c use_lzo
- * - @c zip_exe
- * - @c zip_suffix
- *
- * @param biggie_filename The file to chop up.
- * @param ntfsprog_fifo The FIFO to ntfsclone if this is an imagedev, NULL otherwise.
- * @param biggie_file_number The sequence number of this biggie file (starting from 0).
- * @param noof_biggie_files The number of biggie files there are total.
- * @return The number of errors encountered (0 for success)
- * @see make_slices_and_images
- * @ingroup LLarchiveGroup
- */
-int slice_up_file_etc(char *biggie_filename, char *ntfsprog_fifo, long biggie_file_number, long noof_biggie_files, bool use_ntfsprog) {
-
-    /*@ buffers ************************************************** */
-    char *tmp = NULL;
-    char *checksum_line = NULL;
-    char *command = NULL;
-    char *tempblock = NULL;
-    char *curr_slice_fname_uncompressed = NULL;
-    char *curr_slice_fname_compressed = NULL;
-    char *file_to_archive = NULL;
-    char *file_to_openin = NULL;
-    /*@ pointers ************************************************** */
-    char *pB = NULL;
-    FILE *fin = NULL;
-    FILE *fout = NULL;
-
-    /*@ bool ****************************************************** */
-    bool finished = FALSE;
-
-    /*@ long ****************************************************** */
-    size_t blksize = (size_t)0;
-    long slice_num = 0L;
-    long i = 0L;
-    bool should_I_compress_slices = TRUE;
-    char *suffix = NULL;                // for compressed slices
-
-    /*@ long long ************************************************** */
-    off_t totalread = (off_t)0;
-    off_t totallength = (off_t)0;
-
-    /*@ int ******************************************************** */
-    int retval = 0;
-    int res = 0;
-
-    /*@ structures ************************************************** */
-    struct s_filename_and_lstat_info biggiestruct;
-
-    assert(bkpinfo != NULL);
-    assert_string_is_neither_NULL_nor_zerolength(biggie_filename);
-
-    biggiestruct.for_backward_compatibility = '\n';
-    biggiestruct.use_ntfsprog = use_ntfsprog;
-    if (is_this_file_compressed(biggie_filename) || bkpinfo->compression_level == 0) {
-        mr_asprintf(suffix, "%s", "");
-        should_I_compress_slices = FALSE;
-    } else {
-        mr_asprintf(suffix, "%s", bkpinfo->zip_suffix);
-        should_I_compress_slices = TRUE;
-    }
-
-    if (bkpinfo->optimal_set_size < 999L) {
-        fatal_error("bkpinfo->optimal_set_size is insanely small");
-    }
-
-    if (ntfsprog_fifo) {
-        file_to_openin = ntfsprog_fifo;
-        mr_asprintf(checksum_line, "IGNORE");
-        log_msg(2, "Not calculating checksum for %s: it would take too long", biggie_filename);
-        if ((tmp = find_home_of_exe("ntfsresize")) == NULL) {
-            fatal_error("ntfsresize not found");
-        }
-        mr_asprintf(command, "%s --force --info %s|grep '^You might resize at '|cut -d' ' -f5", tmp, biggie_filename);
-        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); 
-        totallength = (off_t)atoll(tmp);
-        mr_free(tmp);
-    } else {
-        file_to_openin = biggie_filename;
-        if (strchr(biggie_filename,'\'') != NULL) {
-            mr_asprintf(command, "md5sum \"%s\"", biggie_filename);
-        } else {
-            mr_asprintf(command, "md5sum '%s'", biggie_filename);
-        }
-        if (!(fin = popen(command, "r"))) {
-            log_OS_error("Unable to popen-in command");
-            mr_free(suffix);
-            return (1);
-        }
-        mr_free(command);
-        mr_getline(checksum_line, fin);
-        pclose(fin);
-        totallength = length_of_file(biggie_filename);
-    }
-    lstat(biggie_filename, &biggiestruct.properties);
-    strcpy(biggiestruct.filename, biggie_filename);
-    pB = strchr(checksum_line, ' ');
-    if (!pB) {
-        pB = strchr(checksum_line, '\t');
-    }
-    if (pB) {
-        *pB = '\0';
-    }
-    strcpy(biggiestruct.checksum, checksum_line);
-    mr_free(checksum_line);
-
-    mr_asprintf(tmp, "%s", slice_fname(biggie_file_number, 0, bkpinfo->tmpdir, ""));
-    fout = fopen(tmp, "w");
-    if (fout == NULL) {
-        log_msg(1, "Unable to open and write to %s", tmp);
-        mr_free(tmp);
-        mr_free(suffix);
-        return (1);
-    }
-    res = fwrite((void *) &biggiestruct, 1, sizeof(biggiestruct), fout);
-    paranoid_fclose(fout);
-    mr_free(tmp);
-
-    log_msg(1, "Opening in %s; slicing it and writing to CD/tape", file_to_openin);
-    if (!(fin = fopen(file_to_openin, "r"))) {
-        log_OS_error("Unable to openin biggie_filename");
-        log_to_screen("Cannot archive bigfile '%s': not found", biggie_filename);
-
-        mr_free(suffix);
-        return (1);
-    }
-    if (IS_THIS_A_STREAMING_BACKUP(bkpinfo->backup_media_type)) {
-        res = move_files_to_stream(slice_fname(biggie_file_number, 0, bkpinfo->tmpdir, ""), NULL);
-    } else {
-        res = move_files_to_cd(slice_fname(biggie_file_number, 0, bkpinfo->tmpdir, ""), NULL);
-    }
-    i = bkpinfo->optimal_set_size / 256L;
-    if (!(tempblock = (char *) malloc(256 * 1024))) {
-        fatal_error("malloc error 256*1024");
-    }
-    for (slice_num = 1; !finished; slice_num++) {
-        mr_asprintf(curr_slice_fname_uncompressed, "%s", slice_fname(biggie_file_number, slice_num, bkpinfo->tmpdir, ""));
-        mr_asprintf(curr_slice_fname_compressed, "%s", slice_fname(biggie_file_number, slice_num, bkpinfo->tmpdir, suffix));
-
-        tmp = percent_media_full_comment();
-        update_progress_form(tmp);
-        mr_free(tmp);
-
-        if (!(fout = fopen(curr_slice_fname_uncompressed, "w"))) {
-            log_OS_error(curr_slice_fname_uncompressed);
-            mr_free(suffix);
-            return (1);
-        }
-        if ((i == bkpinfo->optimal_set_size / 256L) && (totalread < (off_t)1.1 * totallength)) {
-            for (i = 0L; i < (bkpinfo->optimal_set_size / 256L); i++) {
-                blksize = fread(tempblock, 1, 256 * 1024, fin);
-                if (blksize > (size_t)0) {
-                    totalread = totalread + (off_t)blksize;
-                    res = fwrite(tempblock, 1, blksize, fout);
-                } else {
-                    break;
-                }
-            }
-        } else {
-            i = 0L;
-        }
-        paranoid_fclose(fout);
-        if (i > 0L)             // length_of_file (curr_slice_fname_uncompressed)
-        {
-            if (!does_file_exist(curr_slice_fname_uncompressed)) {
-                log_msg(2, "Warning - '%s' doesn't exist. How can I compress slice?", curr_slice_fname_uncompressed);
-            }
-            if (should_I_compress_slices && bkpinfo->compression_level > 0) {
-                mr_asprintf(command, "%s -%d %s", bkpinfo->zip_exe, bkpinfo->compression_level, curr_slice_fname_uncompressed);
-                log_msg(2, command);
-                if ((res = system(command))) {
-                    log_OS_error(command);
-                }
-                //          did_I_compress_slice = TRUE;
-            } else {
-                mr_asprintf(command, "mv %s %s 2>> %s", curr_slice_fname_uncompressed, curr_slice_fname_compressed, MONDO_LOGFILE);
-                res = 0;        // don't do it :)
-                //          did_I_compress_slice = FALSE;
-            }
-            mr_free(command);
-
-            retval += res;
-            if (res) {
-                log_msg(2, "Failed to compress the slice");
-            }
-            if (bkpinfo->use_lzo && strcmp(curr_slice_fname_compressed, curr_slice_fname_uncompressed)) {
-                unlink(curr_slice_fname_uncompressed);
-            }
-            if (res) {
-                mr_asprintf(tmp, "Problem with slice # %ld", slice_num);
-            } else {
-                mr_asprintf(tmp, "%s - Bigfile #%ld, slice #%ld compressed OK          ", biggie_filename, biggie_file_number + 1, slice_num);
-            }
-            if (!g_text_mode) {
-                newtDrawRootText(0, g_noof_rows - 2, tmp);
-                newtRefresh();
-            } else {
-                log_msg(2, tmp);
-            }
-            mr_free(tmp);
-
-            mr_asprintf(file_to_archive, "%s", curr_slice_fname_compressed);
-            g_current_progress++;
-        } else {                /* if i==0 then ... */
-            finished = TRUE;
-            mr_asprintf(file_to_archive, "%s", curr_slice_fname_uncompressed);
-            if (IS_THIS_A_STREAMING_BACKUP(bkpinfo->backup_media_type)) {
-                break;
-            }
-        }
-        mr_free(curr_slice_fname_uncompressed);
-        mr_free(curr_slice_fname_compressed);
-
-        if (IS_THIS_A_STREAMING_BACKUP(bkpinfo->backup_media_type)) {
-            register_in_tape_catalog(biggieslice, biggie_file_number, slice_num, file_to_archive);
-            maintain_collection_of_recent_archives(bkpinfo->tmpdir, file_to_archive);
-            res = move_files_to_stream(file_to_archive, NULL);
-        } else {
-            res = move_files_to_cd(file_to_archive, NULL);
-        }
-        mr_free(file_to_archive);
-
-        retval += res;
-        if (res) {
-            log_to_screen("Failed to add slice %ld of bigfile %ld to scratchdir", slice_num, biggie_file_number + 1);
-            fatal_error("Hard disk full. You should have bought a bigger one.");
-        }
-    }
-    mr_free(tempblock);
-    mr_free(suffix);
-    paranoid_fclose(fin);
-    mr_asprintf(tmp, "Sliced bigfile #%ld", biggie_file_number + 1);
-    if (retval) {
-        mr_strcat(tmp, "...FAILED");
-    } else {
-        mr_strcat(tmp, "...OK!");
-    }
-    log_msg(1, tmp);
-    mr_free(tmp);
-
-    return (retval);
-}
-
-
 /* @} - end of LLarchiveGroup */