]> git.sur5r.net Git - bacula/bacula/blobdiff - bacula/src/stored/btape.c
Additional message plus exclusion fix
[bacula/bacula] / bacula / src / stored / btape.c
index 72a08ca96efcb3516134544cfcce0087c6f281da..8bac101d7ccb1925ce718e5afd8c8ee06f001be9 100644 (file)
@@ -14,7 +14,7 @@
  *
  */
 /*
-   Copyright (C) 2000, 2001, 2002 Kern Sibbald and John Walker
+   Copyright (C) 2000-2003 Kern Sibbald and John Walker
 
    This program is free software; you can redistribute it and/or
    modify it under the terms of the GNU General Public License as
@@ -58,27 +58,50 @@ static void rewindcmd();
 static void clearcmd();
 static void wrcmd();
 static void eodcmd();
-static int find_device_res();
+static void fillcmd();
+static void unfillcmd();
+static int flush_block(DEV_BLOCK *block, int dump);
+static void record_cb(JCR *jcr, DEVICE *dev, DEV_BLOCK *block, DEV_RECORD *rec);
+static int my_mount_next_read_volume(JCR *jcr, DEVICE *dev, DEV_BLOCK *block);
+static void scan_blocks();
 
 
-#define CONFIG_FILE "stored.conf"
+/* Static variables */
+#define CONFIG_FILE "bacula-sd.conf"
+char *configfile;
 
-static char *configfile;
+static BSR *bsr = NULL;
 static char cmd[1000];
 static int signals = TRUE;
-static int default_tape = FALSE;
-
-static JCR *jcr;
+static int ok;
+static int stop;
+static uint64_t vol_size;
+static uint64_t VolBytes;
+static time_t now;
+static double kbs;
+static long file_index;
+static int verbose = 0;
+static int end_of_tape = 0;
+static uint32_t LastBlock = 0;
+static uint32_t eot_block;
+static uint32_t eot_block_len;
+static uint32_t eot_FileIndex;
+static int dumped = 0;
+static DEV_BLOCK *last_block = NULL;
+static DEV_BLOCK *this_block = NULL;
+static uint32_t last_file = 0;
+static uint32_t last_block_num = 0;
+static int simple = TRUE;
+
+static char *VolumeName = NULL;
+
+static JCR *jcr = NULL;
 
 
 static void usage();
 static void terminate_btape(int sig);
 int get_cmd(char *prompt);
 
-static void my_free_jcr(JCR *jcr)
-{
-   return;
-}
 
 int write_dev(DEVICE *dev, char *buf, size_t len) 
 {
@@ -101,6 +124,7 @@ int read_dev(DEVICE *dev, char *buf, size_t len)
 int main(int argc, char *argv[])
 {
    int ch;
+   DEV_BLOCK *block;
 
    /* Sanity checks */
    if (TAPE_BSIZE % DEV_BSIZE != 0 || TAPE_BSIZE / DEV_BSIZE == 0) {
@@ -111,10 +135,19 @@ int main(int argc, char *argv[])
       Emsg1(M_ABORT, 0, "Tape block size (%d) is not a power of 2\n", TAPE_BSIZE);
    }
 
-   printf("Tape block size is %d bytes.\n", TAPE_BSIZE);
+   printf("Tape block granularity is %d bytes.\n", TAPE_BSIZE);
+
+   working_directory = "/tmp";
+   my_name_is(argc, argv, "btape");
+   init_msg(NULL, NULL);
 
-   while ((ch = getopt(argc, argv, "c:d:st?")) != -1) {
+   while ((ch = getopt(argc, argv, "b:c:d:sv?")) != -1) {
       switch (ch) {
+         case 'b':                    /* bootstrap file */
+           bsr = parse_bsr(NULL, optarg);
+//         dump_bsr(bsr);
+           break;
+
          case 'c':                    /* specify config file */
            if (configfile != NULL) {
               free(configfile);
@@ -129,14 +162,14 @@ int main(int argc, char *argv[])
            }
            break;
 
-         case 't':
-           default_tape = TRUE;
-           break;
-
          case 's':
            signals = FALSE;
            break;
 
+         case 'v':
+           verbose++;
+           break;
+
          case '?':
         default:
            helpcmd();
@@ -148,8 +181,6 @@ int main(int argc, char *argv[])
    argv += optind;
 
 
-   my_name_is(argc, argv, "btape");
-   init_msg(NULL, NULL);
    
    if (signals) {
       init_signals(terminate_btape);
@@ -165,38 +196,40 @@ int main(int argc, char *argv[])
 
 
    /* See if we can open a device */
-   if (argc) {
-      if (!(dev = init_dev(NULL, *argv))) {
-        usage();
-        exit(1);
-      }
-   }
-
-   /* Try default device */
-   if (!dev && default_tape) {
-      dev = init_dev(NULL, DEFAULT_TAPE_DRIVE);
+   if (argc == 0) {
+      Pmsg0(000, "No archive name specified.\n");
+      usage();
+      exit(1);
+   } else if (argc != 1) {
+      Pmsg0(000, "Improper number of arguments specified.\n");
+      usage();
+      exit(1);
+   }
+
+   jcr = setup_jcr("btape", argv[0], bsr);
+   dev = setup_to_access_device(jcr, 0);     /* acquire for write */
+   if (!dev) {
+      exit(1);
    }
-
-   if (dev) {
-      if (!find_device_res()) {
-        exit(1);
-      }
-      if (!open_device(dev)) {
-         Pmsg1(0, "Warning could not open device. ERR=%s", strerror_dev(dev));
-        term_dev(dev);
-        dev = NULL;
+   block = new_block(dev);
+   lock_device(dev);
+   if (!(dev->state & ST_OPENED)) {
+      Dmsg0(129, "Opening device.\n");
+      if (open_dev(dev, jcr->VolumeName, READ_WRITE) < 0) {
+         Emsg1(M_FATAL, 0, _("dev open failed: %s\n"), dev->errmsg);
+        unlock_device(dev);
+        free_block(block);
+        goto terminate;
       }
    }
-
-   jcr = new_jcr(sizeof(JCR), my_free_jcr);
-   jcr->VolSessionId = 1;
-   jcr->VolSessionTime = (uint32_t)time(NULL);
-   jcr->NumVolumes = 1;
-
+   Dmsg1(129, "open_dev %s OK\n", dev_name(dev));
+   unlock_device(dev);
+   free_block(block);
 
    Dmsg0(200, "Do tape commands\n");
    do_tape_cmds();
   
+terminate:
    terminate_btape(0);
    return 0;
 }
@@ -220,6 +253,17 @@ static void terminate_btape(int stat)
    free_jcr(jcr);
    jcr = NULL;
 
+   if (bsr) {
+      free_bsr(bsr);
+   }
+
+   if (last_block) {
+      free_block(last_block);
+   }
+   if (this_block) {
+      free_block(this_block);
+   }
+
    term_msg();
    close_memory_pool();              /* free memory in pool */
 
@@ -232,32 +276,6 @@ void quitcmd()
    quit = 1;
 }
 
-/*
- * Get a new device name 
- *  Normally given on the command line
- */
-static void devicecmd()
-{
-   if (dev) {
-      term_dev(dev);
-      dev = NULL;
-   }
-   if (!get_cmd("Enter Device Name: ")) {
-      return;
-   }
-   dev = init_dev(NULL, cmd);
-   if (dev) {
-      if (!find_device_res()) {
-        return;
-      }
-      if (!open_device(dev)) {
-         Pmsg1(0, "Device open failed. ERR=%s\n", strerror_dev(dev));
-      }
-   } else {
-      Pmsg0(0, "Device init failed.\n");                          
-   }
-}
-
 /*
  * Write a label to the tape   
  */
@@ -266,11 +284,6 @@ static void labelcmd()
    DEVRES *device;
    int found = 0;
 
-   if (!dev) {
-      Pmsg0(0, "No device: Use device command.\n");
-      return;
-   }
-
    LockRes();
    for (device=NULL; (device=(DEVRES *)GetNextRes(R_DEVICE, (RES *)device)); ) {
       if (strcmp(device->device_name, dev->dev_name) == 0) {
@@ -287,8 +300,12 @@ static void labelcmd()
       return;
    }
 
-   if (!get_cmd("Enter Volume Name: ")) {
-      return;
+   if (VolumeName) {
+      strcpy(cmd, VolumeName);
+   } else {
+      if (!get_cmd("Enter Volume Name: ")) {
+        return;
+      }
    }
         
    if (!(dev->state & ST_OPENED)) {
@@ -308,10 +325,6 @@ static void readlabelcmd()
    int stat;
    DEV_BLOCK *block;
 
-   if (!dev) {
-      Pmsg0(0, "No device: Use device command.\n");
-      return;
-   }
    block = new_block(dev);
    stat = read_dev_volume_label(jcr, dev, block);
    switch (stat) {
@@ -348,35 +361,6 @@ static void readlabelcmd()
 }
 
 
-/*
- * Search for device resource that corresponds to 
- * device name on command line (or default).
- *      
- * Returns: 0 on failure
- *         1 on success
- */
-static int find_device_res()
-{
-   int found = 0;
-
-   LockRes();
-   for (device=NULL; (device=(DEVRES *)GetNextRes(R_DEVICE, (RES *)device)); ) {
-      if (strcmp(device->device_name, dev->dev_name) == 0) {
-        device->dev = dev;
-        dev->capabilities = device->cap_bits;
-        found = 1;
-        break;
-      }
-   } 
-   UnlockRes();
-   if (!found) {
-      Pmsg2(0, "Could not find device %s in %s\n", dev->dev_name, configfile);
-      return 0;
-   }
-   Pmsg1(0, "Using device: %s\n", dev->dev_name);
-   return 1;
-}
-
 /*
  * Load the tape should have prevously been taken
  * off line, otherwise this command is not necessary.
@@ -384,10 +368,6 @@ static int find_device_res()
 static void loadcmd()
 {
 
-   if (!dev) {
-      Pmsg0(0, "No device: Use device command.\n");
-      return;
-   }
    if (!load_dev(dev)) {
       Pmsg1(0, "Bad status from load. ERR=%s\n", strerror_dev(dev));
    } else
@@ -399,15 +379,12 @@ static void loadcmd()
  */
 static void rewindcmd()
 {
-   if (!dev) {
-      Pmsg0(0, "No device: Use device command.\n");
-      return;
-   }
    if (!rewind_dev(dev)) {
       Pmsg1(0, "Bad status from rewind. ERR=%s\n", strerror_dev(dev));
       clrerror_dev(dev, -1);
-   } else
+   } else {
       Pmsg1(0, "Rewound %s\n", dev_name(dev));
+   }
 }
 
 /*
@@ -415,10 +392,6 @@ static void rewindcmd()
  */
 static void clearcmd()
 {
-   if (!dev) {
-      Pmsg0(0, "No device: Use device command.\n");
-      return;
-   }
    clrerror_dev(dev, -1);
 }
 
@@ -429,10 +402,6 @@ static void weofcmd()
 {
    int stat;
 
-   if (!dev) {
-      Pmsg0(0, "No device: Use device command.\n");
-      return;
-   }
    if ((stat = weof_dev(dev, 1)) < 0) {
       Pmsg2(0, "Bad status from weof %d. ERR=%s\n", stat, strerror_dev(dev));
       return;
@@ -441,75 +410,6 @@ static void weofcmd()
    }
 }
 
-/*
- * Test on uninitialized tape 
- *  Destroys tape contents !!!! Including Bacula label.
- */
-static void rawtestcmd()
-{
-#ifdef xxxx
-   int i, j, k;
-
-   if (!dev) {
-      Pmsg0(0, "No device: Use device command.\n");
-      return;
-   }
-   if (!rewind_dev(dev)) {
-      Pmsg1(0, "Bad status from rewind. ERR=%s\n", strerror_dev(dev));
-      return;
-   }
-   Pmsg0(0, "Rewound, now writing 100 blocks\n");
-   for (i=0; i<100; i++) {
-      j = 10000 + i;
-      memset(buf, i, j);
-      if (!write_dev(dev, buf, j)) {
-         Pmsg1(0, "Bad status from write. ERR=%s\n", strerror_dev(dev));
-        return;
-      }
-     Pmsg2(10, "Wrote %d bytes of %d\n", j, i);
-   }
-   Pmsg0(0, "100 Blocks written, flushing buffers and writing EOF\n");
-   if (flush_dev(dev) != 0) {
-      Pmsg1(0, "Error writing flushing. ERR=%s\n", strerror(errno));
-      return;
-   }
-   if (weof_dev(dev, 1) != 0) {
-      Pmsg1(0, "Error writing eof. ERR=%s\n", strerror(errno));
-      return;
-   }
-   Pmsg0(0, "Rewinding ...\n");
-   if (!rewind_dev(dev)) {
-      Pmsg1(0, "Bad status from rewind. ERR=%s\n", strerror_dev(dev));
-      return;
-   }
-
-
-   Pmsg0(0, "Read and verify data ...\n");
-   for (i=0; i<100; i++) {
-      j = 10000 + i;
-      if (!read_dev(dev, buf, j)) {
-         Pmsg1(0, "Bad status from read. ERR=%s\n", strerror_dev(dev));
-        return;
-      }
-      for (k=0; k<j; k++) {
-        if (buf[k] != i) {
-            Pmsg5(0, "Data read expected %d got %d at byte %d, block %d size %d\n", 
-            i, buf[k], k, i, j);
-           return;
-        }
-      }     
-      Dmsg3(10, "Successful read block %d of %d bytes of %d\n", i, j, i);   
-   }
-   Pmsg0(0, "Read OK!\n");
-   Pmsg0(0, "Rewinding ...\n");
-   if (!rewind_dev(dev)) {
-      Pmsg1(0, "Bad status from rewind. ERR=%s\n", strerror_dev(dev));
-      return;
-   }
-#else
-   printf("Rawtest command no longer implemented.\n");
-#endif
-}
 
 /* Go to the end of the medium -- raw command  
  * The idea was orginally that the end of the Bacula
@@ -519,15 +419,11 @@ static void rawtestcmd()
  */
 static void eomcmd()
 {
-   if (!dev) {
-      Pmsg0(0, "No device: Use device command.\n");
-      return;
-   }
    if (!eod_dev(dev)) {
-      Pmsg1(0, "Bad status from eod. ERR=%s\n", strerror_dev(dev));
+      Pmsg1(0, _("Bad status from eod. ERR=%s\n"), strerror_dev(dev));
       return;
    } else {
-      Pmsg0(0, "Moved to end of media\n");
+      Pmsg0(0, _("Moved to end of media\n"));
    }
 }
 
@@ -546,14 +442,11 @@ static void eodcmd()
 static void bsfcmd()
 {
    int stat;
-   if (!dev) {
-      Pmsg0(0, "No device: Use device command.\n");
-      return;
-   }
+
    if ((stat=bsf_dev(dev, 1)) < 0) {
-      Pmsg1(0, "Bad status from bsf. ERR=%s\n", strerror(errno));
+      Pmsg1(0, _("Bad status from bsf. ERR=%s\n"), strerror(errno));
    } else {
-      Pmsg0(0, "Back spaced one file.\n");
+      Pmsg0(0, _("Back spaced one file.\n"));
    }
 }
 
@@ -563,14 +456,11 @@ static void bsfcmd()
 static void bsrcmd()
 {
    int stat;
-   if (!dev) {
-      Pmsg0(0, "No device: Use device command.\n");
-      return;
-   }
+
    if ((stat=bsr_dev(dev, 1)) < 0) {
-      Pmsg1(0, "Bad status from bsr. ERR=%s\n", strerror(errno));
+      Pmsg1(0, _("Bad status from bsr. ERR=%s\n"), strerror(errno));
    } else {
-      Pmsg0(0, "Back spaced one record.\n");
+      Pmsg0(0, _("Back spaced one record.\n"));
    }
 }
 
@@ -580,11 +470,7 @@ static void bsrcmd()
  */
 static void capcmd()
 {
-   if (!dev) {
-      Pmsg0(0, "No device: Use device command.\n");
-      return;
-   }
-   Pmsg0(0, "Device capabilities: ");
+   printf(_("Device capabilities:\n"));
    printf("%sEOF ", dev->capabilities & CAP_EOF ? "" : "!");
    printf("%sBSR ", dev->capabilities & CAP_BSR ? "" : "!");
    printf("%sBSF ", dev->capabilities & CAP_BSF ? "" : "!");
@@ -598,6 +484,21 @@ static void capcmd()
    printf("%sANONVOLS ", dev->capabilities & CAP_ANONVOLS ? "" : "!");
    printf("%sALWAYSOPEN ", dev->capabilities & CAP_ALWAYSOPEN ? "" : "!");
    printf("\n");
+
+   printf(_("Device status:\n"));
+   printf("%sOPENED ", dev->state & ST_OPENED ? "" : "!");
+   printf("%sTAPE ", dev->state & ST_TAPE ? "" : "!");
+   printf("%sLABEL ", dev->state & ST_LABEL ? "" : "!");
+   printf("%sMALLOC ", dev->state & ST_MALLOC ? "" : "!");
+   printf("%sAPPEND ", dev->state & ST_APPEND ? "" : "!");
+   printf("%sREAD ", dev->state & ST_READ ? "" : "!");
+   printf("%sEOT ", dev->state & ST_EOT ? "" : "!");
+   printf("%sWEOT ", dev->state & ST_WEOT ? "" : "!");
+   printf("%sEOF ", dev->state & ST_EOF ? "" : "!");
+   printf("%sNEXTVOL ", dev->state & ST_NEXTVOL ? "" : "!");
+   printf("%sSHORT ", dev->state & ST_SHORT ? "" : "!");
+   printf("\n");
+
 }
 
 /*
@@ -610,27 +511,33 @@ static void rectestcmd()
    DEV_RECORD *rec;
    int i, blkno = 0;
 
-   if (!dev) {
-      Pmsg0(0, "No device: Use device command.\n");
+   Pmsg0(0, "Test writting larger and larger records.\n\
+This is a torture test for records.\nI am going to write\n\
+larger and larger records. It will stop when the record size\n\
+plus the header exceeds the block size (by default about 64K\n");
+
+
+   get_cmd("Do you want to continue? (y/n): ");
+   if (cmd[0] != 'y') {
+      Pmsg0(000, "Command aborted.\n");
       return;
    }
 
-   Pmsg0(0, "Test writting larger and larger records.\n\
-This is a torture test for records. \n");
-
    sm_check(__FILE__, __LINE__, False);
    block = new_block(dev);
    rec = new_record();
 
    for (i=1; i<500000; i++) {
-      rec->data = (char *) check_pool_memory_size(rec->data, i);
+      rec->data = check_pool_memory_size(rec->data, i);
       memset(rec->data, i & 0xFF, i);
       rec->data_len = i;
       sm_check(__FILE__, __LINE__, False);
-      while (!write_record_to_block(block, rec)) {
+      if (write_record_to_block(block, rec)) {
         empty_block(block);
         blkno++;
          Pmsg2(0, "Block %d i=%d\n", blkno, i);
+      } else {
+        break;
       }
       sm_check(__FILE__, __LINE__, False);
    }
@@ -639,20 +546,108 @@ This is a torture test for records. \n");
    sm_check(__FILE__, __LINE__, False);
 }
 
-/* 
- * This is a general test of Bacula's functions
- *   needed to read and write the tape.
- */
-static void testcmd()
+static int re_read_block_test()
 {
-   if (!dev) {
-      Pmsg0(0, "No device: Use device command.\n");
-      return;
+   DEV_BLOCK *block;
+   DEV_RECORD *rec;
+   int stat = 0;
+   int len;
+
+   if (!(dev->capabilities & CAP_EOM)) {
+      Pmsg0(-1, _("Skipping read backwards test because MT_EOM turned off.\n"));
+      return 0;
    }
-   Pmsg0(0, "Append files test.\n\n\
-I'm going to write one record  in file 0,\n\
-                   two records in file 1,\n\
-             and three records in file 2\n\n");
+
+   Pmsg0(-1, _("\nWrite, backup, and re-read test.\n\n"
+      "I'm going to write three records and two eof's\n"
+      "then backup over the eof's and re-read the last record.\n\n"));
+   rewindcmd();
+   block = new_block(dev);
+   rec = new_record();
+   rec->data = check_pool_memory_size(rec->data, block->buf_len);
+   len = rec->data_len = block->buf_len-100;
+   memset(rec->data, 1, rec->data_len);
+   if (!write_record_to_block(block, rec)) {
+      Pmsg0(0, _("Error writing record to block.\n")); 
+      goto bail_out;
+   }
+   if (!write_block_to_dev(jcr, dev, block)) {
+      Pmsg0(0, _("Error writing block to device.\n")); 
+      goto bail_out;
+   } else {
+      Pmsg1(0, _("Wrote first record of %d bytes.\n"), rec->data_len);
+   }
+   memset(rec->data, 2, rec->data_len);
+   if (!write_record_to_block(block, rec)) {
+      Pmsg0(0, _("Error writing record to block.\n")); 
+      goto bail_out;
+   }
+   if (!write_block_to_dev(jcr, dev, block)) {
+      Pmsg0(0, _("Error writing block to device.\n")); 
+      goto bail_out;
+   } else {
+      Pmsg1(0, _("Wrote second record of %d bytes.\n"), rec->data_len);
+   }
+   memset(rec->data, 3, rec->data_len);
+   if (!write_record_to_block(block, rec)) {
+      Pmsg0(0, _("Error writing record to block.\n")); 
+      goto bail_out;
+   }
+   if (!write_block_to_dev(jcr, dev, block)) {
+      Pmsg0(0, _("Error writing block to device.\n")); 
+      goto bail_out;
+   } else {
+      Pmsg1(0, _("Wrote fourth record of %d bytes.\n"), rec->data_len);
+   }
+   weofcmd();
+   weofcmd();
+   if (bsf_dev(dev, 1) != 0) {
+      Pmsg1(0, _("Back space file failed! ERR=%s\n"), strerror(dev->dev_errno));
+      goto bail_out;
+   }
+   if (bsf_dev(dev, 1) != 0) {
+      Pmsg1(0, _("Back space file failed! ERR=%s\n"), strerror(dev->dev_errno));
+      goto bail_out;
+   }
+   Pmsg0(0, "Backspaced over two EOFs OK.\n");
+   if (bsr_dev(dev, 1) != 0) {
+      Pmsg1(0, _("Back space record failed! ERR=%s\n"), strerror(dev->dev_errno));
+      goto bail_out;
+   }
+   Pmsg0(0, "Backspace record OK.\n");
+   if (!read_block_from_dev(dev, block)) {
+      Pmsg1(0, _("Read block failed! ERR=%s\n"), strerror(dev->dev_errno));
+      goto bail_out;
+   }
+   memset(rec->data, 0, rec->data_len);
+   if (!read_record_from_block(block, rec)) {
+      Pmsg1(0, _("Read block failed! ERR=%s\n"), strerror(dev->dev_errno));
+      goto bail_out;
+   }
+   for (int i=0; i<len; i++) {
+      if (rec->data[i] != 3) {
+         Pmsg0(0, _("Bad data in record. Test failed!\n"));
+         Pmsg0(0, _("You might try adding:\n\n"
+               "Hardware End of File = No\n\n"
+               "to your Storage daemon's Device resource definition.\n"));
+        goto bail_out;
+      }
+   }
+   Pmsg0(0, _("Re-read test succeeded!\n\n"));
+   stat = 1;
+
+bail_out:
+   free_block(block);
+   free_record(rec);
+   return stat;
+}
+
+static int append_test()
+{
+   Pmsg0(-1, _("\n\n=== Append files test. ===\n\n"
+"I'm going to write one record  in file 0,\n"
+"                   two records in file 1,\n"
+"             and three records in file 2\n\n"));
    rewindcmd();
    wrcmd();
    weofcmd();     /* end file 0 */
@@ -663,68 +658,98 @@ I'm going to write one record  in file 0,\n\
    wrcmd();
    wrcmd();
    weofcmd();    /* end file 2 */
-//   weofcmd();
    rewindcmd();
-   Pmsg0(0, "Now moving to end of media.\n");
+   Pmsg0(0, _("Now moving to end of media.\n"));
    eodcmd();
-   Pmsg2(0, "\nWe should be in file 3. I am at file %d. This is %s\n\n", 
+   Pmsg2(-1, _("End Append files test.\n\
+We should be in file 3. I am at file %d. This is %s\n\n"), 
       dev->file, dev->file == 3 ? "correct!" : "NOT correct!!!!");
 
-   Pmsg0(0, "\nNow I am going to attempt to append to the tape.\n");
+   if (dev->file != 3) {
+      Pmsg0(-1, _("To correct this problem, you might try adding:\n\n"
+            "Hardware End of Medium = No\n\n"
+            "to your Storage daemon's Device resource definition.\n"));
+      return 0;
+   }
+
+   Pmsg0(-1, _("\nNow I am going to attempt to append to the tape.\n"));
    wrcmd(); 
    weofcmd();
-//   weofcmd();
    rewindcmd();
-   scancmd();
-   Pmsg0(0, "The above scan should have four files of:\n\
-One record, two records, three records, and one record respectively.\n\n");
+   Pmsg0(0, _("Done writing, scanning results ...\n\n"));
+   scan_blocks();
+   Pmsg0(-1, _("End Append to the tape test.\n\
+The above scan should have four files of:\n\
+One record, two records, three records, and one record \n\
+respectively each with 64,448 bytes.\n\n"));
+   Pmsg0(-1, _("If the above is not correct, you might try running Bacula\n"
+              "in fixed block mode by setting:\n\n"
+              "Minimum Block Size = nnn\n"
+              "Maximum Block Size = nnn\n\n"
+              "in your Storage daemon's Device definition.\n"
+              "nnn must match your tape driver's block size.\n"));
 
+   return 1;
+}
 
-   Pmsg0(0, "Append block test.\n\n\
+void append_block_test()  
+{
+   Pmsg0(-1, "\n\n=== Append block test. ===\n\n\
 I'm going to write a block, an EOF, rewind, go to EOM,\n\
-then backspace over the EOF and attempt to append a\
-second block in the first file.\n\n");
+then backspace over the EOF and attempt to append a second\n\
+block in the first file.\n\n");
    rewindcmd();
    wrcmd();
    weofcmd();
-//   weofcmd();
    rewindcmd();
    eodcmd();
-   Pmsg2(0, "We should be at file 1. I am at EOM File=%d. This is %s\n",
+   Pmsg2(-1, _("We should be at file 1. I am at EOM File=%d. This is %s\n"),
       dev->file, dev->file == 1 ? "correct!" : "NOT correct!!!!");
    Pmsg0(0, "Doing backspace file.\n");
    bsfcmd();
-   Pmsg0(0, "Write second block, hoping to append to first file.\n");
+   Pmsg0(0, _("Write second block, hoping to append to first file.\n"));
    wrcmd();
    weofcmd();
    rewindcmd();
-   Pmsg0(0, "Done writing, scanning results\n");
-   scancmd();
-   Pmsg0(0, "The above should have one file of two blocks.\n");
+   Pmsg0(0, _("Done writing, scanning results ...\n\n"));
+   scan_blocks();
+   Pmsg0(-1, _("\nThe above should have one file of two blocks 64,448 bytes each.\n"));
 }
 
 
-static void fsfcmd()
+
+/* 
+ * This is a general test of Bacula's functions
+ *   needed to read and write the tape.
+ */
+static void testcmd()
 {
-   int stat;
-   if (!dev) {
-      Pmsg0(0, "No device: Use device command.\n");
+   re_read_block_test();
+
+   if (!append_test()) {
       return;
    }
-   if ((stat=fsf_dev(dev, 1)) < 0) {
-      Pmsg2(0, "Bad status from fsf %d. ERR=%s\n", stat, strerror_dev(dev));
+
+   append_block_test();
+
+
+}
+
+/* Forward space a file */
+static void fsfcmd()
+{
+   if (!fsf_dev(dev, 1)) {
+      Pmsg1(0, "Bad status from fsf. ERR=%s\n", strerror_dev(dev));
       return;
    }
    Pmsg0(0, "Forward spaced one file.\n");
 }
 
+/* Forward space a record */
 static void fsrcmd()
 {
    int stat;
-   if (!dev) {
-      Pmsg0(0, "No device: Use device command.\n");
-      return;
-   }
+
    if ((stat=fsr_dev(dev, 1)) < 0) {
       Pmsg2(0, "Bad status from fsr %d. ERR=%s\n", stat, strerror_dev(dev));
       return;
@@ -732,15 +757,12 @@ static void fsrcmd()
    Pmsg0(0, "Forward spaced one record.\n");
 }
 
+/* DEPRECATED DO NOT USE */
 static void rdcmd()
 {
 #ifdef xxxxx
    int stat;
 
-   if (!dev) {
-      Pmsg0(0, "No device: Use device command.\n");
-      return;
-   }
    if (!read_dev(dev, buf, 512*126)) {
       Pmsg1(0, "Bad status from read. ERR=%s\n", strerror_dev(dev));
       return;
@@ -752,48 +774,50 @@ static void rdcmd()
 }
 
 
+/*
+ * Write a Bacula block to the tape
+ */
 static void wrcmd()
 {
    DEV_BLOCK *block;
    DEV_RECORD *rec;
    int i;
 
-   if (!dev) {
-      Pmsg0(0, "No device: Use device command.\n");
-      return;
-   }
    sm_check(__FILE__, __LINE__, False);
    block = new_block(dev);
    rec = new_record();
+   dump_block(block, "test");
 
-   i = 32001;
-   rec->data = (char *) check_pool_memory_size(rec->data, i);
+   i = block->buf_len - 100;
+   ASSERT (i > 0);
+   rec->data = check_pool_memory_size(rec->data, i);
    memset(rec->data, i & 0xFF, i);
    rec->data_len = i;
    sm_check(__FILE__, __LINE__, False);
    if (!write_record_to_block(block, rec)) {
-      Pmsg0(0, "Error writing record to block.\n"); 
-      return;
+      Pmsg0(0, _("Error writing record to block.\n")); 
+      goto bail_out;
    }
-   if (!write_block_to_dev(dev, block)) {
-      Pmsg0(0, "Error writing block to device.\n"); 
-      return;
+   if (!write_block_to_dev(jcr, dev, block)) {
+      Pmsg0(0, _("Error writing block to device.\n")); 
+      goto bail_out;
    } else {
-      Pmsg1(0, "Wrote one record of %d bytes.\n",
-        ((i+TAPE_BSIZE-1)/TAPE_BSIZE) * TAPE_BSIZE);
+      Pmsg1(0, _("Wrote one record of %d bytes.\n"), i);
    }
+   Pmsg0(0, _("Wrote block to device.\n"));
 
+bail_out:
    sm_check(__FILE__, __LINE__, False);
    free_record(rec);
    free_block(block);
    sm_check(__FILE__, __LINE__, False);
-   Pmsg0(0, "Wrote block to device.\n");
 }
 
 
 /*
  * Scan tape by reading block by block. Report what is
- * on the tape.
+ * on the tape.  Note, this command does raw reads, and as such
+ * will not work with fixed block size devices.
  */
 static void scancmd()
 {
@@ -802,10 +826,7 @@ static void scancmd()
    int block_size;
    uint64_t bytes;
 
-   if (!dev) {
-      Pmsg0(0, "No device: Use device command.\n");
-      return;
-   }
+
    blocks = block_size = tot_blocks = 0;
    bytes = 0;
    if (dev->state & ST_EOT) {
@@ -862,16 +883,99 @@ static void scancmd()
    printf("Total files=%d, blocks=%d, bytes = %" lld "\n", tot_files, tot_blocks, bytes);
 }
 
+
+/*
+ * Scan tape by reading Bacula block by block. Report what is
+ * on the tape.  This function reads Bacula blocks, so if your
+ * Device resource is correctly defined, it should work with
+ * either variable or fixed block sizes.
+ */
+static void scan_blocks()
+{
+   int blocks, tot_blocks, tot_files;
+   uint32_t block_size;
+   uint64_t bytes;
+   DEV_BLOCK *block;
+
+   block = new_block(dev);
+   blocks = block_size = tot_blocks = 0;
+   bytes = 0;
+
+   update_pos_dev(dev);
+   tot_files = dev->file;
+   for (;;) {
+      if (!read_block_from_device(dev, block)) {
+         Dmsg1(100, "!read_block(): ERR=%s\n", strerror_dev(dev));
+        if (dev->state & ST_EOT) {
+           if (blocks > 0) {
+               printf("%d block%s of %d bytes in file %d\n", 
+                    blocks, blocks>1?"s":"", block_size, dev->file);
+              blocks = 0;
+           }
+           goto bail_out;
+        }
+        if (dev->state & ST_EOF) {
+           if (blocks > 0) {
+               printf("%d block%s of %d bytes in file %d\n",        
+                       blocks, blocks>1?"s":"", block_size, dev->file);
+              blocks = 0;
+           }
+            printf(_("End of File mark.\n"));
+           continue;
+        }
+        if (dev->state & ST_SHORT) {
+           if (blocks > 0) {
+               printf("%d block%s of %d bytes in file %d\n",        
+                       blocks, blocks>1?"s":"", block_size, dev->file);
+              blocks = 0;
+           }
+            printf(_("Short block read.\n"));
+           continue;
+        }
+         printf(_("Error reading block. ERR=%s\n"), strerror_dev(dev));
+        goto bail_out;
+      }
+      if (block->block_len != block_size) {
+        if (blocks > 0) {
+            printf("%d block%s of %d bytes in file %d\n",        
+                    blocks, blocks>1?"s":"", block_size, dev->file);
+           blocks = 0;
+        }
+        block_size = block->block_len;
+      }
+      blocks++;
+      tot_blocks++;
+      bytes += block->block_len;
+      Dmsg5(100, "Blk=%u blen=%u bVer=%d SessId=%u SessTim=%u\n",
+        block->BlockNumber, block->block_len, block->BlockVer,
+        block->VolSessionId, block->VolSessionTime);
+      if (verbose == 1) {
+        DEV_RECORD *rec = new_record();
+        read_record_from_block(block, rec);
+         Pmsg7(-1, "Block: %u blen=%u First rec FI=%s SessId=%u SessTim=%u Strm=%s rlen=%d\n",
+             block->BlockNumber, block->block_len,
+             FI_to_ascii(rec->FileIndex), rec->VolSessionId, rec->VolSessionTime,
+             stream_to_ascii(rec->Stream, rec->FileIndex), rec->data_len);
+        rec->remainder = 0;
+        free_record(rec);
+      } else if (verbose > 1) {
+         dump_block(block, "");
+      }
+
+   }
+bail_out:
+   free_block(block);
+   tot_files = dev->file - tot_files;
+   printf("Total files=%d, blocks=%d, bytes = %" lld "\n", tot_files, tot_blocks, bytes);
+}
+
+
 static void statcmd()
 {
-   int stat;
+   int stat = 0;
    int debug;
    uint32_t status;
 
-   if (!dev) {
-      Pmsg0(0, "No device: Use device command.\n");
-      return;
-   }
    debug = debug_level;
    debug_level = 30;
    if (!status_dev(dev, &status)) {
@@ -884,112 +988,471 @@ static void statcmd()
 }
 
 
-/*
- * Test on labeled tape. Preserves Bacula label.
- */
-static void appendcmd()
+/* 
+ * First we label the tape, then we fill
+ *  it with data get a new tape and write a few blocks.
+ */                           
+static void fillcmd()
 {
+   DEV_RECORD rec;
+   DEV_BLOCK  *block;
+   char ec1[50];
+   char *p;
+
+   ok = TRUE;
+   stop = 0;
+
+   Pmsg0(000, "\n\
+This command simulates Bacula writing to a tape.\n\
+It requires either one or two blank tapes, which it\n\
+will label and write. It will print a status approximately\n\
+every 322 MB, and write an EOF every 3.2 GB.  If you have\n\
+selected the simple test option, after writing the first tape\n\
+it will rewind it and re-read the last block written.\n\
+If you have selected the multiple tape test, when the first tape\n\
+fills, it will ask for a second, and after writing a few \n\
+blocks, it will stop.  Then it will begin re-reading the\n\
+This may take a long time. I.e. hours! ...\n\n");
+
+   get_cmd("Insert a blank tape then indicate if you want\n"
+           "to run the simplified test (s) with one tape or\n"
+           "the complete multiple tape (m) test: (s/m) ");
+   if (cmd[0] == 's') {
+      Pmsg0(-1, "Simple test (single tape) selected.\n");
+      simple = TRUE;
+   } else if (cmd[0] == 'm') {
+      Pmsg0(-1, "Complete multiple tape test selected.\n"); 
+      simple = FALSE;
+   } else {
+      Pmsg0(000, "Command aborted.\n");
+      return;
+   }
 
-#ifdef xxxx_this_code_turned_off
+   VolumeName = "TestVolume1";
+   labelcmd();
+   VolumeName = NULL;
 
-   int i, j, k;
-   int file;
-   DEV_BLOCK *block;
+   
+   Dmsg1(20, "Begin append device=%s\n", dev_name(dev));
 
-   if (!dev) {
-      Pmsg0(0, "No device: Use device command.\n");
+   block = new_block(dev);
+
+   /* 
+    * Acquire output device for writing.  Note, after acquiring a
+    *  device, we MUST release it, which is done at the end of this
+    *  subroutine.
+    */
+   Dmsg0(100, "just before acquire_device\n");
+   if (!(dev=acquire_device_for_append(jcr, dev, block))) {
+      set_jcr_job_status(jcr, JS_ErrorTerminated);
+      free_block(block);
       return;
    }
 
-   block = new_block(dev);
+   Dmsg0(100, "Just after acquire_device_for_append\n");
+   /*
+    * Write Begin Session Record
+    */
+   if (!write_session_label(jcr, block, SOS_LABEL)) {
+      set_jcr_job_status(jcr, JS_ErrorTerminated);
+      Jmsg1(jcr, M_FATAL, 0, _("Write session label failed. ERR=%s\n"),
+        strerror_dev(dev));
+      ok = FALSE;
+   }
 
-   if (!ready_device_for_append(jcr, dev, block, VolName)) {
-      Pmsg0(0, "Cannot append, not a Bacula tape.\n");
-      return;
+   memset(&rec, 0, sizeof(rec));
+   rec.data = get_memory(100000);     /* max record size */
+   /* 
+    * Fill write buffer with random data
+    */
+#define REC_SIZE 32768
+   p = rec.data;
+   for (int i=0; i < REC_SIZE; ) {
+      makeSessionKey(p, NULL, 0);
+      p += 16;
+      i += 16;
    }
+   rec.data_len = REC_SIZE;
 
-   file = dev_file(dev);
-   Pmsg1(0, "Begin write test data in file %d\n", file);
+   /* 
+    * Get Data from File daemon, write to device   
+    */
+   jcr->VolFirstFile = 0;
+   time(&jcr->run_time);             /* start counting time for rates */
+   for (file_index = 0; ok && !job_cancelled(jcr); ) {
+      uint64_t *lp;
+      rec.VolSessionId = jcr->VolSessionId;
+      rec.VolSessionTime = jcr->VolSessionTime;
+      rec.FileIndex = ++file_index;
+      rec.Stream = STREAM_FILE_DATA;
+
+      /* Write file_index at beginning of buffer and add file_index to each
+       *  uint64_t item to make it unique.
+       */
+      lp = (uint64_t *)rec.data;
+      *lp++ = (uint64_t)file_index;
+      for (uint32_t i=0; i < (REC_SIZE-sizeof(uint64_t))/sizeof(uint64_t); i++) {
+        *lp++ = *lp + rec.FileIndex;
+      }
 
-   /* Write our test data */
-   for (i=0; i<100; i++) {
-      j = 10000 + i;
-      memset(buf, i, j);
-      if (!write_dev(dev, buf, j)) {
-         Pmsg1(0, "Bad status from write. ERR=%s\n", strerror_dev(dev));
-        return;
+      Dmsg4(250, "before writ_rec FI=%d SessId=%d Strm=%s len=%d\n",
+        rec.FileIndex, rec.VolSessionId, stream_to_ascii(rec.Stream, rec.FileIndex), 
+        rec.data_len);
+       
+      if (!write_record_to_block(block, &rec)) {
+         Dmsg2(150, "!write_record_to_block data_len=%d rem=%d\n", rec.data_len,
+                   rec.remainder);
+
+        /* Write block to tape */
+        if (!flush_block(block, 1)) {
+           return;
+        }
+
+        /* Every 5000 blocks (approx 322MB) report where we are.
+         */
+        if ((block->BlockNumber % 5000) == 0) {
+           now = time(NULL);
+           now -= jcr->run_time;
+           if (now <= 0) {
+              now = 1;
+           }
+           kbs = (double)dev->VolCatInfo.VolCatBytes / (1000 * now);
+            Pmsg3(000, "Wrote block=%u, VolBytes=%s rate=%.1f KB/s\n", block->BlockNumber,
+              edit_uint64_with_commas(dev->VolCatInfo.VolCatBytes, ec1), (float)kbs);
+        }
+        /* Every 50000 blocks (approx 3.2MB) write an eof.
+         */
+        if ((block->BlockNumber % 50000) == 0) {
+            Pmsg0(000, "Flush block, write EOF\n");
+           flush_block(block, 0);
+           weof_dev(dev, 1);
+           /* The weof resets the block number */
+        }
+
+        if (block->BlockNumber > 10 && stop != 0) {      /* get out */
+           break;
+        }
+      }
+      if (!ok) {
+         Pmsg0(000, _("Not OK\n"));
+        break;
+      }
+      jcr->JobBytes += rec.data_len;   /* increment bytes this job */
+      Dmsg4(190, "write_record FI=%s SessId=%d Strm=%s len=%d\n",
+        FI_to_ascii(rec.FileIndex), rec.VolSessionId, 
+        stream_to_ascii(rec.Stream, rec.FileIndex), rec.data_len);
+   }
+   if (stop > 0) {
+      Dmsg0(000, "Write_end_session_label()\n");
+      /* Create Job status for end of session label */
+      if (!job_cancelled(jcr) && ok) {
+        set_jcr_job_status(jcr, JS_Terminated);
+      } else if (!ok) {
+        set_jcr_job_status(jcr, JS_ErrorTerminated);
+      }
+      if (!write_session_label(jcr, block, EOS_LABEL)) {
+         Pmsg1(000, _("Error writting end session label. ERR=%s\n"), strerror_dev(dev));
+        ok = FALSE;
+      }
+      /* Write out final block of this session */
+      if (!write_block_to_device(jcr, dev, block)) {
+         Pmsg0(000, _("Set ok=FALSE after write_block_to_device.\n"));
+        ok = FALSE;
       }
-     Pmsg2(10, "Wrote %d bytes of %d\n", j, i);
    }
 
-   if (flush_dev(dev) != 0) {                 /* ensure written to tape */
-      Pmsg1(0, "Flush error: %s\n", strerror(errno));
-   }
-   if (weof_dev(dev, 1) != 0) { 
-      Pmsg1(0, "EOF error: %s\n", strerror(errno));
+   /* Release the device */
+   if (!release_device(jcr, dev)) {
+      Pmsg0(000, _("Error in release_device\n"));
+      ok = FALSE;
    }
 
-   Pmsg0(0, "Rewind and reread label\n");
-   if (read_dev_volume_label(dev, VolName) != VOL_OK) {
+   free_block(block);
+   free_memory(rec.data);
+   Pmsg0(000, _("\n\nDone filling tape. Now beginning re-read of tape ...\n"));
+
+   dump_block(last_block, _("Last block written to tape.\n"));
+
+   unfillcmd();
+}
+
+/*
+ * Read two tapes written by the "fill" command and ensure
+ *  that the data is valid.  If stop==1 we simulate full read back
+ *  of two tapes.  If stop==-1 we simply read the last block and
+ *  verify that it is correct.
+ */
+static void unfillcmd()
+{
+   DEV_BLOCK *block;
+
+   dumped = 0;
+   VolBytes = 0;
+   LastBlock = 0;
+   block = new_block(dev);
+
+   dev->capabilities |= CAP_ANONVOLS; /* allow reading any volume */
+   dev->capabilities &= ~CAP_LABEL;   /* don't label anything here */
+
+   end_of_tape = 0;
+   if (!simple) {
+      get_cmd(_("Mount first of two tapes. Press enter when ready: ")); 
+   }
+   
+   free_vol_list(jcr);
+   pm_strcpy(&jcr->VolumeName, "TestVolume1");
+   jcr->bsr = NULL;
+   create_vol_list(jcr);
+   close_dev(dev);
+   dev->state &= ~ST_READ;
+   if (!acquire_device_for_read(jcr, dev, block)) {
+      Pmsg0(000, dev->errmsg);
       return;
    }
 
-   if (file != 0) { 
-      Pmsg1(0, "FSF %d files\n", file);
-      fsf_dev(dev, file);
+   time(&jcr->run_time);             /* start counting time for rates */
+   stop = 0;
+   file_index = 0;
+   if (!simple) {
+      /* Read all records and then second tape */
+      read_records(jcr, dev, record_cb, my_mount_next_read_volume);
+   } else {
+      /*
+       * Simplified test, we simply fsf to file, then read the
+       * last block and make sure it is the same as the saved block.
+       */
+      if (!rewind_dev(dev)) {
+         Pmsg1(-1, _("Error rewinding: ERR=%s\n"), strerror_dev(dev));
+        goto bail_out;
+      }
+      if (last_file > 0) {
+        if (!fsf_dev(dev, last_file)) {
+            Pmsg1(-1, _("Error in FSF: ERR=%s\n"), strerror_dev(dev));
+           goto bail_out;
+        }
+      }
+      Pmsg1(-1, _("Forward space to file %u complete. Reading blocks ...\n"), 
+           last_file);
+      Pmsg1(-1, _("Now reading to block %u.\n"), last_block_num);
+      for (uint32_t i= 0; i < last_block_num; i++) {
+        if (!read_block_from_device(dev, block)) {
+            Pmsg1(-1, _("Error reading blocks: ERR=%s\n"), strerror_dev(dev));
+            Pmsg2(-1, _("Wanted block %u error at block %u\n"), last_block_num, i);
+           goto bail_out;
+        }
+        if (i > 0 && i % 1000 == 0) {
+            Pmsg1(-1, _("At block %u\n"), i);
+        }
+      }
+      dump_block(last_block, _("Last block written"));
+      dump_block(block, _("Block read back"));
+      Pmsg0(-1, _("Except for the buffer address, the contents of\n"
+                  "the above two block dumps should be the same.\n"
+                  "If not you have a problem ...\n"));
    }
-      
-   file = dev_file(dev);
-   Pmsg1(0, "Begin read/test from file %d\n", file);
-   /* Now read our test data and make sure it is what we wrote */
-   for (i=0; i<100; i++) {
-      j = 10000 + i;
-      if (!read_dev(dev, buf, j)) {
-         Pmsg1(0, "Bad status from read. ERR=%s\n", strerror_dev(dev));
-        return;
+
+bail_out:
+   free_block(block);
+
+   Pmsg0(000, _("Done with reread of fill data.\n"));
+}
+
+
+/* 
+ * We are called here from "unfill" for each record on the
+ *   tape.
+ */
+static void record_cb(JCR *jcr, DEVICE *dev, DEV_BLOCK *block, DEV_RECORD *rec)
+{
+
+   SESSION_LABEL label;
+   if (stop > 1) {                   /* on second tape */
+      Pmsg4(000, "Blk: FileIndex=%d: block=%u size=%d vol=%s\n", 
+          rec->FileIndex, block->BlockNumber, block->block_len, dev->VolHdr.VolName);
+      Pmsg6(000, "   Rec: VId=%d VT=%d FI=%s Strm=%s len=%d state=%x\n",
+          rec->VolSessionId, rec->VolSessionTime, 
+          FI_to_ascii(rec->FileIndex), stream_to_ascii(rec->Stream, rec->FileIndex),
+          rec->data_len, rec->state);
+
+      if (!dumped) {
+        dumped = 1;
+         dump_block(block, "Block not written to previous tape");
+      }
+   }
+   if (rec->FileIndex < 0) {
+      if (verbose > 1) {
+        dump_label_record(dev, rec, 1);
       }
-      for (k=0; k<j; k++) {
-        if (buf[k] != i) {
-            Pmsg5(0, "Data read expected %d got %d at byte %d, block %d size %d\n", 
-            i, buf[k], k, i, j);
+      switch (rec->FileIndex) {
+        case PRE_LABEL:
+            Pmsg0(000, "Volume is prelabeled. This tape cannot be scanned.\n");
            return;
+        case VOL_LABEL:
+           unser_volume_label(dev, rec);
+            Pmsg3(000, "VOL_LABEL: block=%u size=%d vol=%s\n", block->BlockNumber, 
+              block->block_len, dev->VolHdr.VolName);
+           stop++;
+           break;
+        case SOS_LABEL:
+           unser_session_label(&label, rec);
+            Pmsg1(000, "SOS_LABEL: JobId=%u\n", label.JobId);
+           break;
+        case EOS_LABEL:
+           unser_session_label(&label, rec);
+            Pmsg2(000, "EOS_LABEL: block=%u JobId=%u\n", block->BlockNumber, 
+              label.JobId);
+           break;
+        case EOM_LABEL:
+            Pmsg0(000, "EOM_LABEL:\n");
+           break;
+        case EOT_LABEL:              /* end of all tapes */
+           char ec1[50];
+
+           if (LastBlock != block->BlockNumber) {
+              VolBytes += block->block_len;
+           }
+           LastBlock = block->BlockNumber;
+           now = time(NULL);
+           now -= jcr->run_time;
+           if (now <= 0) {
+              now = 1;
+           }
+           kbs = (double)VolBytes / (1000 * now);
+            Pmsg3(000, "Read block=%u, VolBytes=%s rate=%.1f KB/s\n", block->BlockNumber,
+                    edit_uint64_with_commas(VolBytes, ec1), (float)kbs);
+
+            Pmsg0(000, "End of all tapes.\n");
+
+           break;
+        default:
+           break;
+      }
+      return;
+   }
+   if (LastBlock != block->BlockNumber) {
+      VolBytes += block->block_len;
+   }
+   if ((block->BlockNumber != LastBlock) && (block->BlockNumber % 50000) == 0) {
+      char ec1[50];
+      now = time(NULL);
+      now -= jcr->run_time;
+      if (now <= 0) {
+        now = 1;
+      }
+      kbs = (double)VolBytes / (1000 * now);
+      Pmsg3(000, "Read block=%u, VolBytes=%s rate=%.1f KB/s\n", block->BlockNumber,
+              edit_uint64_with_commas(VolBytes, ec1), (float)kbs);
+   }
+   LastBlock = block->BlockNumber;
+   if (end_of_tape) {
+      Pmsg1(000, "End of all blocks. Block=%u\n", block->BlockNumber);
+   }
+}
+
+
+
+/*
+ * Write current block to tape regardless of whether or
+ *   not it is full. If the tape fills, attempt to
+ *   acquire another tape.
+ */
+static int flush_block(DEV_BLOCK *block, int dump)
+{
+   char ec1[50];
+   lock_device(dev);
+   DEV_BLOCK *tblock;
+   uint32_t this_file, this_block_num;
+
+   if (!this_block) {
+      this_block = new_block(dev);
+   }
+   /* Copy block */
+   memcpy(this_block, block, sizeof(DEV_BLOCK));
+   if (this_block->buf_len < block->buf_len) {
+      free_memory(this_block->buf);    
+      this_block->buf = get_memory(block->buf_len);
+      this_block->buf_len = block->buf_len;
+   }
+   memcpy(this_block->buf, block->buf, this_block->buf_len);
+   this_file = dev->file;
+   this_block_num = dev->block_num;
+   if (!write_block_to_dev(jcr, dev, block)) {
+      Pmsg0(000, strerror_dev(dev));           
+      Pmsg3(000, "Block not written: FileIndex=%u Block=%u Size=%u\n", 
+        (unsigned)file_index, block->BlockNumber, block->block_len);
+      if (dump) {
+         dump_block(block, "Block not written");
+      }
+      if (stop == 0) {
+        eot_block = block->BlockNumber;
+        eot_block_len = block->block_len;
+        eot_FileIndex = file_index;
+      }
+      now = time(NULL);
+      now -= jcr->run_time;
+      if (now <= 0) {
+        now = 1;
+      }
+      kbs = (double)dev->VolCatInfo.VolCatBytes / (1000 * now);
+      vol_size = dev->VolCatInfo.VolCatBytes;
+      Pmsg2(000, "End of tape. VolumeCapacity=%s. Write rate = %.1f KB/s\n", 
+        edit_uint64_with_commas(dev->VolCatInfo.VolCatBytes, ec1), kbs);
+
+      if (simple) {
+        stop = -1;                   /* stop, but do simplified test */
+      } else {
+        /* Full test in progress */
+        if (!fixup_device_block_write_error(jcr, dev, block)) {
+            Pmsg1(000, _("Cannot fixup device error. %s\n"), strerror_dev(dev));
+           ok = FALSE;
+           unlock_device(dev);
+           return 0;
         }
-      }     
-      Pmsg3(10, "Successful read block %d of %d bytes of %d\n", i, j, i);
+        stop = 1;                                                     
+      }
+      unlock_device(dev);
+      return 1;                      /* end of tape reached */
    }
 
-   Pmsg0(0, "Reread test data successfully.\n");
-#else 
-   printf("append command no longer implemented.\n");
-#endif
-}
+   /*
+    * Toggle between two allocated blocks for efficiency.
+    * Switch blocks so that the block just successfully written is
+    *  always in last_block. 
+    */
+   tblock = last_block;
+   last_block = this_block; 
+   this_block = tblock;
+   last_file = this_file;
+   last_block_num = this_block_num;
 
+   unlock_device(dev);
+   return 1;
+}
 
 
 struct cmdstruct { char *key; void (*func)(); char *help; }; 
 static struct cmdstruct commands[] = {
- {"append",     appendcmd,    "append and read test data on a Bacula labeled tape"},
  {"bsf",        bsfcmd,       "backspace file"},
  {"bsr",        bsrcmd,       "backspace record"},
  {"cap",        capcmd,       "list device capabilities"},
  {"clear",      clearcmd,     "clear tape errors"},
- {"device",     devicecmd,    "specify the tape device name"},
  {"eod",        eodcmd,       "go to end of Bacula data for append"},
- {"test",       testcmd,      "General test Bacula tape functions"},
  {"eom",        eomcmd,       "go to the physical end of medium"},
+ {"fill",       fillcmd,      "fill tape, write onto second volume"},
+ {"unfill",     unfillcmd,    "read filled tape"},
  {"fsf",        fsfcmd,       "forward space a file"},
  {"fsr",        fsrcmd,       "forward space a record"},
  {"help",       helpcmd,      "print this command"},
  {"label",      labelcmd,     "write a Bacula label to the tape"},
  {"load",       loadcmd,      "load a tape"},
  {"quit",       quitcmd,      "quit btape"},   
- {"rawtest",    rawtestcmd,   "write and read test data on unlabeled tape"},     
  {"rd",         rdcmd,        "read tape"},
  {"readlabel",  readlabelcmd, "read and print the Bacula tape label"},
  {"rectest",    rectestcmd,   "test record handling functions"},
  {"rewind",     rewindcmd,    "rewind the tape"},
  {"scan",       scancmd,      "read tape block by block to EOT and report"}, 
  {"status",     statcmd,      "print tape status"},
+ {"test",       testcmd,      "General test Bacula tape functions"},
  {"weof",       weofcmd,      "write an EOF on the tape"},
  {"wr",         wrcmd,        "write a single record of 2048 bytes"}, 
             };
@@ -1011,7 +1474,7 @@ do_tape_cmds()
            break;
         }
       if (!found)
-         Pmsg1(0, "%s is an illegal command\n", cmd);
+         Pmsg1(0, _("%s is an illegal command\n"), cmd);
       if (quit)
         break;
    }
@@ -1021,7 +1484,7 @@ static void helpcmd()
 {
    unsigned int i;
    usage();
-   printf("  Command    Description\n  =======    ===========\n");
+   printf(_("  Command    Description\n  =======    ===========\n"));
    for (i=0; i<comsize; i++)
       printf("  %-10s %s\n", commands[i].key, commands[i].help);
    printf("\n");
@@ -1029,15 +1492,15 @@ static void helpcmd()
 
 static void usage()
 {
-   fprintf(stderr,
-"\n"
+   fprintf(stderr, _(
+"\nVersion: " VERSION " (" BDATE ")\n\n"
 "Usage: btape [-c config_file] [-d debug_level] [device_name]\n"
 "       -c <file>   set configuration file to file\n"
 "       -dnn        set debug level to nn\n"
 "       -s          turn off signals\n"
 "       -t          open the default tape device\n"
 "       -?          print this message.\n"  
-"\n");
+"\n"));
 
 }
 
@@ -1073,3 +1536,69 @@ get_cmd(char *prompt)
    quit = 1;
    return 0;
 }
+
+/* Dummies to replace askdir.c */
+int    dir_get_volume_info(JCR *jcr, int writing) { return 1;}
+int    dir_find_next_appendable_volume(JCR *jcr) { return 1;}
+int    dir_update_volume_info(JCR *jcr, VOLUME_CAT_INFO *vol, int relabel) { return 1; }
+int    dir_create_jobmedia_record(JCR *jcr) { return 1; }
+int    dir_update_file_attributes(JCR *jcr, DEV_RECORD *rec) { return 1;}
+int    dir_send_job_status(JCR *jcr) {return 1;}
+
+
+int dir_ask_sysop_to_mount_volume(JCR *jcr, DEVICE *dev)
+{
+   Pmsg0(000, dev->errmsg);          /* print reason */
+   fprintf(stderr, "Mount Volume \"%s\" on device %s and press return when ready: ",
+      jcr->VolumeName, dev_name(dev));
+   getchar();  
+   return 1;
+}
+
+int dir_ask_sysop_to_mount_next_volume(JCR *jcr, DEVICE *dev)
+{
+   fprintf(stderr, "Mount next Volume on device %s and press return when ready: ",
+      dev_name(dev));
+   getchar();  
+   VolumeName = "TestVolume2";
+   labelcmd();
+   VolumeName = NULL;
+   return 1;
+}
+
+static int my_mount_next_read_volume(JCR *jcr, DEVICE *dev, DEV_BLOCK *block)
+{
+   char ec1[50];
+
+   Pmsg1(000, "End of Volume \"%s\"\n", jcr->VolumeName);
+
+   if (LastBlock != block->BlockNumber) {
+      VolBytes += block->block_len;
+   }
+   LastBlock = block->BlockNumber;
+   now = time(NULL);
+   now -= jcr->run_time;
+   if (now <= 0) {
+      now = 1;
+   }
+   kbs = (double)VolBytes / (1000 * now);
+   Pmsg3(000, "Read block=%u, VolBytes=%s rate=%.1f KB/s\n", block->BlockNumber,
+           edit_uint64_with_commas(VolBytes, ec1), (float)kbs);
+
+   if (strcmp(jcr->VolumeName, "TestVolume2") == 0) {
+      end_of_tape = 1;
+      return 0;
+   }
+
+   free_vol_list(jcr);
+   pm_strcpy(&jcr->VolumeName, "TestVolume2");
+   jcr->bsr = NULL;
+   create_vol_list(jcr);
+   close_dev(dev);
+   dev->state &= ~ST_READ; 
+   if (!acquire_device_for_read(jcr, dev, block)) {
+      Pmsg2(0, "Cannot open Dev=%s, Vol=%s\n", dev_name(dev), jcr->VolumeName);
+      return 0;
+   }
+   return 1;                      /* next volume mounted */
+}