]> git.sur5r.net Git - bacula/bacula/blobdiff - bacula/src/stored/btape.c
This commit was manufactured by cvs2svn to create tag
[bacula/bacula] / bacula / src / stored / btape.c
index ee168b41e53c2a2002641d90c062dd80c53ca7d9..99ddfa7a91c0ccdf759551489dfdd17ead874fc0 100644 (file)
@@ -39,7 +39,6 @@
 
 /* External subroutines */
 extern void free_config_resources();
-extern char *edit_device_codes(JCR *jcr, char *omsg, const char *imsg, const char *cmd);
 
 /* Exported variables */
 int quit = 0;
@@ -73,9 +72,9 @@ static void qfillcmd();
 static void statcmd();
 static void unfillcmd();
 static int flush_block(DEV_BLOCK *block, int dump);
-static bool quickie_cb(JCR *jcr, DEVICE *dev, DEV_BLOCK *block, DEV_RECORD *rec);
+static bool quickie_cb(DCR *dcr, DEV_RECORD *rec);
 static bool compare_blocks(DEV_BLOCK *last_block, DEV_BLOCK *block);
-static bool my_mount_next_read_volume(JCR *jcr, DEVICE *dev, DEV_BLOCK *block);
+static bool my_mount_next_read_volume(DCR *dcr);
 static void scan_blocks();
 static void set_volume_name(const char *VolName, int volnum);
 static void rawfill_cmd();
@@ -144,16 +143,39 @@ int get_cmd(const char *prompt);
  */
 int main(int margc, char *margv[])
 {
-   int ch;
+   int ch, i;
+   uint32_t x32, y32;
+   uint64_t x64, y64;
+   char buf[1000];
 
    /* Sanity checks */
-   if (TAPE_BSIZE % DEV_BSIZE != 0 || TAPE_BSIZE / DEV_BSIZE == 0) {
+   if (TAPE_BSIZE % B_DEV_BSIZE != 0 || TAPE_BSIZE / B_DEV_BSIZE == 0) {
       Emsg2(M_ABORT, 0, "Tape block size (%d) not multiple of system size (%d)\n",
-        TAPE_BSIZE, DEV_BSIZE);
+        TAPE_BSIZE, B_DEV_BSIZE);
    }
    if (TAPE_BSIZE != (1 << (ffs(TAPE_BSIZE)-1))) {
       Emsg1(M_ABORT, 0, "Tape block size (%d) is not a power of 2\n", TAPE_BSIZE);
    }
+   if (sizeof(off_t) < 8) {
+      Pmsg1(-1, "\n\n!!!! Warning large disk addressing disabled. off_t=%d should be 8 or more !!!!!\n\n\n",
+        sizeof(off_t));
+   }
+   x32 = 123456789;
+   bsnprintf(buf, sizeof(buf), "%u", x32);
+   i = bsscanf(buf, "%u", &y32);
+   if (i != 1 || x32 != y32) {
+      Pmsg3(-1, "32 bit printf/scanf problem. i=%d x32=%u y32=%u\n", i, x32, y32);
+      exit(1);
+   }
+   x64 = 123456789;
+   x64 = x64 << 32;
+   x64 += 123456789;
+   bsnprintf(buf, sizeof(buf), "%" llu, x64);
+   i = bsscanf(buf, "%llu", &y64);
+   if (i != 1 || x64 != y64) {
+      Pmsg3(-1, "64 bit printf/scanf problem. i=%d x64=%" llu " y64=%" llu "\n", i, x64, y64);
+      exit(1);
+   }
 
    printf("Tape block granularity is %d bytes.\n", TAPE_BSIZE);
 
@@ -231,8 +253,11 @@ int main(int margc, char *margv[])
       exit(1);
    }
 
-   jcr = setup_jcr("btape", margv[0], bsr, NULL);
-   dev = setup_to_access_device(jcr, 0);     /* acquire for write */
+   jcr = setup_jcr("btape", margv[0], bsr, NULL, 0); /* write */
+   if (!jcr) {
+      exit(1);
+   }
+   dev = jcr->dcr->dev;
    if (!dev) {
       exit(1);
    }
@@ -284,6 +309,7 @@ static void terminate_btape(int stat)
       free_block(this_block);
    }
 
+   stop_watchdog();
    term_msg();
    close_memory_pool();              /* free memory in pool */
 
@@ -298,8 +324,8 @@ static bool open_the_device()
    block = new_block(dev);
    lock_device(dev);
    if (!(dev->state & ST_OPENED)) {
-      Dmsg1(200, "Opening device %s\n", jcr->VolumeName);
-      if (open_dev(dev, jcr->VolumeName, OPEN_READ_WRITE) < 0) {
+      Dmsg1(200, "Opening device %s\n", dcr->VolumeName);
+      if (open_dev(dev, dcr->VolumeName, OPEN_READ_WRITE) < 0) {
          Emsg1(M_FATAL, 0, _("dev open failed: %s\n"), dev->errmsg);
         unlock_device(dev);
         free_block(block);
@@ -307,6 +333,7 @@ static bool open_the_device()
       }
    }
    Pmsg1(000, "open_dev %s OK\n", dev_name(dev));
+   dev->state |= ST_APPEND;
    unlock_device(dev);
    free_block(block);
    return true;
@@ -324,7 +351,7 @@ void quitcmd()
 static void labelcmd()
 {
    if (VolumeName) {
-      pm_strcpy(&cmd, VolumeName);
+      pm_strcpy(cmd, VolumeName);
    } else {
       if (!get_cmd("Enter Volume Name: ")) {
         return;
@@ -348,10 +375,8 @@ static void readlabelcmd()
 {
    int save_debug_level = debug_level;
    int stat;
-   DEV_BLOCK *block;
 
-   block = new_block(dev);
-   stat = read_dev_volume_label(dcr, block);
+   stat = read_dev_volume_label(dcr);
    switch (stat) {
    case VOL_NO_LABEL:
       Pmsg0(0, "Volume has no label.\n");
@@ -382,7 +407,6 @@ static void readlabelcmd()
    debug_level = 20;
    dump_volume_label(dev); 
    debug_level = save_debug_level;
-   free_block(block);
 }
 
 
@@ -520,6 +544,7 @@ static void capcmd()
    printf("%sFSR ", dev->capabilities & CAP_FSR ? "" : "!");
    printf("%sFSF ", dev->capabilities & CAP_FSF ? "" : "!");
    printf("%sFASTFSF ", dev->capabilities & CAP_FASTFSF ? "" : "!");
+   printf("%sBSFATEOM ", dev->capabilities & CAP_BSFATEOM ? "" : "!");
    printf("%sEOM ", dev->capabilities & CAP_EOM ? "" : "!");
    printf("%sREM ", dev->capabilities & CAP_REM ? "" : "!");
    printf("%sRACCESS ", dev->capabilities & CAP_RACCESS ? "" : "!");
@@ -607,7 +632,7 @@ static void rectestcmd()
  */
 static int re_read_block_test()
 {
-   DEV_BLOCK *block;
+   DEV_BLOCK *block = dcr->block;
    DEV_RECORD *rec;
    int stat = 0;
    int len;
@@ -624,7 +649,7 @@ static int re_read_block_test()
       "tape to verify that the block was written correctly.\n\n"
       "This is not an *essential* feature ...\n\n")); 
    rewindcmd();
-   block = new_block(dev);
+   empty_block(block);
    rec = new_record();
    rec->data = check_pool_memory_size(rec->data, block->buf_len);
    len = rec->data_len = block->buf_len-100;
@@ -633,7 +658,7 @@ static int re_read_block_test()
       Pmsg0(0, _("Error writing record to block.\n")); 
       goto bail_out;
    }
-   if (!write_block_to_dev(dcr, block)) {
+   if (!write_block_to_dev(dcr)) {
       Pmsg0(0, _("Error writing block to device.\n")); 
       goto bail_out;
    } else {
@@ -644,7 +669,7 @@ static int re_read_block_test()
       Pmsg0(0, _("Error writing record to block.\n")); 
       goto bail_out;
    }
-   if (!write_block_to_dev(dcr, block)) {
+   if (!write_block_to_dev(dcr)) {
       Pmsg0(0, _("Error writing block to device.\n")); 
       goto bail_out;
    } else {
@@ -655,7 +680,7 @@ static int re_read_block_test()
       Pmsg0(0, _("Error writing record to block.\n")); 
       goto bail_out;
    }
-   if (!write_block_to_dev(dcr, block)) {
+   if (!write_block_to_dev(dcr)) {
       Pmsg0(0, _("Error writing block to device.\n")); 
       goto bail_out;
    } else {
@@ -681,13 +706,15 @@ static int re_read_block_test()
       goto bail_out;
    }
    Pmsg0(0, "Backspace record OK.\n");
-   if (!read_block_from_dev(dcr, block, NO_BLOCK_NUMBER_CHECK)) {
-      Pmsg1(0, _("Read block failed! ERR=%s\n"), strerror(dev->dev_errno));
+   if (!read_block_from_dev(dcr, NO_BLOCK_NUMBER_CHECK)) {
+      berrno be;
+      Pmsg1(0, _("Read block failed! ERR=%s\n"), be.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));
+      berrno be;
+      Pmsg1(0, _("Read block failed! ERR=%s\n"), be.strerror(dev->dev_errno));
       goto bail_out;
    }
    for (int i=0; i<len; i++) {
@@ -702,7 +729,6 @@ static int re_read_block_test()
    stat = 1;
 
 bail_out:
-   free_block(block);
    free_record(rec);
    if (stat == 0) {
       Pmsg0(0, _("This is not terribly serious since Bacula only uses\n"
@@ -734,7 +760,7 @@ static int write_read_test()
       "then write 1000 records and an EOF, then rewind,\n"     
       "and re-read the data to verify that it is correct.\n\n"
       "This is an *essential* feature ...\n\n")); 
-   block = new_block(dev);
+   block = dcr->block;
    rec = new_record();
    if (!rewind_dev(dev)) {
       Pmsg1(0, "Bad status from rewind. ERR=%s\n", strerror_dev(dev));
@@ -752,7 +778,7 @@ static int write_read_test()
          Pmsg0(0, _("Error writing record to block.\n")); 
         goto bail_out;
       }
-      if (!write_block_to_dev(dcr, block)) {
+      if (!write_block_to_dev(dcr)) {
          Pmsg0(0, _("Error writing block to device.\n")); 
         goto bail_out;
       }
@@ -768,7 +794,7 @@ static int write_read_test()
          Pmsg0(0, _("Error writing record to block.\n")); 
         goto bail_out;
       }
-      if (!write_block_to_dev(dcr, block)) {
+      if (!write_block_to_dev(dcr)) {
          Pmsg0(0, _("Error writing block to device.\n")); 
         goto bail_out;
       }
@@ -786,17 +812,21 @@ static int write_read_test()
    }
    for (i=1; i<=2000; i++) {
 read_again:
-      if (!read_block_from_dev(dcr, block, NO_BLOCK_NUMBER_CHECK)) {
+      if (!read_block_from_dev(dcr, NO_BLOCK_NUMBER_CHECK)) {
+        berrno be;
         if (dev_state(dev, ST_EOF)) {
             Pmsg0(-1, _("Got EOF on tape.\n"));
-           goto read_again;
+           if (i == 1001) {
+              goto read_again;
+           }
         }
-         Pmsg1(0, _("Read block failed! ERR=%s\n"), strerror(dev->dev_errno));
+         Pmsg2(0, _("Read block %d failed! ERR=%s\n"), i, be.strerror(dev->dev_errno));
         goto bail_out;
       }
       memset(rec->data, 0, rec->data_len);
       if (!read_record_from_block(block, rec)) {
-         Pmsg1(0, _("Read record failed! ERR=%s\n"), strerror(dev->dev_errno));
+        berrno be;
+         Pmsg2(0, _("Read record failed. Block %d! ERR=%s\n"), i, be.strerror(dev->dev_errno));
         goto bail_out;
       }
       p = (int *)rec->data;
@@ -816,7 +846,6 @@ read_again:
    stat = 1;
 
 bail_out:
-   free_block(block);
    free_record(rec);
    return stat;
 }
@@ -828,7 +857,7 @@ bail_out:
  */
 static int position_test()
 {
-   DEV_BLOCK *block;
+   DEV_BLOCK *block = dcr->block;
    DEV_RECORD *rec;
    int stat = 0;
    int len, i, j;
@@ -836,13 +865,14 @@ static int position_test()
    int recno = 0;
    int file = 0, blk = 0;
    int *p;
+   bool got_eof = false;
 
    Pmsg0(-1, _("\n=== Write, rewind, and position test ===\n\n"
       "I'm going to write 1000 records and an EOF\n"
       "then write 1000 records and an EOF, then rewind,\n"     
       "and position to a few blocks and verify that it is correct.\n\n"
       "This is an *essential* feature ...\n\n")); 
-   block = new_block(dev);
+   empty_block(block);
    rec = new_record();
    if (!rewind_dev(dev)) {
       Pmsg1(0, "Bad status from rewind. ERR=%s\n", strerror_dev(dev));
@@ -860,7 +890,7 @@ static int position_test()
          Pmsg0(0, _("Error writing record to block.\n")); 
         goto bail_out;
       }
-      if (!write_block_to_dev(dcr, block)) {
+      if (!write_block_to_dev(dcr)) {
          Pmsg0(0, _("Error writing block to device.\n")); 
         goto bail_out;
       }
@@ -876,7 +906,7 @@ static int position_test()
          Pmsg0(0, _("Error writing record to block.\n")); 
         goto bail_out;
       }
-      if (!write_block_to_dev(dcr, block)) {
+      if (!write_block_to_dev(dcr)) {
          Pmsg0(0, _("Error writing block to device.\n")); 
         goto bail_out;
       }
@@ -936,21 +966,34 @@ static int position_test()
         goto bail_out;
       }
 read_again:
-      if (!read_block_from_dev(dcr, block, NO_BLOCK_NUMBER_CHECK)) {
+      if (!read_block_from_dev(dcr, NO_BLOCK_NUMBER_CHECK)) {
+        berrno be;
         if (dev_state(dev, ST_EOF)) {
             Pmsg0(-1, _("Got EOF on tape.\n"));
-           goto read_again;
+           if (!got_eof) {
+              got_eof = true;
+              goto read_again;
+           }
         }
-         Pmsg1(0, _("Read block failed! ERR=%s\n\n"), strerror(dev->dev_errno));
+         Pmsg4(0, _("Read block %d failed! file=%d blk=%d. ERR=%s\n\n"), 
+           recno, file, blk, be.strerror(dev->dev_errno));
          Pmsg0(0, _("This may be because the tape drive block size is not\n"
                     " set to variable blocking as normally used by Bacula.\n"
                     " Please see the Tape Testing chapter in the manual and \n"
-                    " look for using mt with defblksize and setoptions\n"));
+                    " look for using mt with defblksize and setoptions\n"
+                    "If your tape drive block size is correct, then perhaps\n"
+                    " your SCSI driver is *really* stupid and does not\n"
+                    " correctly report the file:block after a FSF. In this\n"
+                    " case try setting:\n"
+                    "    Fast Forward Space File = no\n"
+                    " in your Device resource.\n"));
+
         goto bail_out;
       }
       memset(rec->data, 0, rec->data_len);
       if (!read_record_from_block(block, rec)) {
-         Pmsg1(0, _("Read record failed! ERR=%s\n"), strerror(dev->dev_errno));
+        berrno be;
+         Pmsg1(0, _("Read record failed! ERR=%s\n"), be.strerror(dev->dev_errno));
         goto bail_out;
       }
       p = (int *)rec->data;
@@ -961,13 +1004,12 @@ read_again:
            goto bail_out;
         }
       }
-      Pmsg0(-1, _("Block re-read correctly.\n"));
+      Pmsg1(-1, _("Block %d re-read correctly.\n"), recno);
    }
    Pmsg0(-1, _("=== Test Succeeded. End Write, rewind, and re-read test ===\n\n"));
    stat = 1;
 
 bail_out:
-   free_block(block);
    free_record(rec);
    return stat;
 }
@@ -1002,6 +1044,10 @@ static int append_test()
    if (dev_cap(dev, CAP_TWOEOF)) {
       weofcmd();
    }
+   force_close_dev(dev);             /* release device */
+   if (!open_the_device()) {
+      return -1;
+   }
    rewindcmd();
    Pmsg0(0, _("Now moving to end of medium.\n"));
    eodcmd();
@@ -1069,18 +1115,19 @@ static int autochanger_test()
 
 try_again:
    slot = 1;
-   jcr->VolCatInfo.Slot = slot;
+   dcr->VolCatInfo.Slot = slot;
    /* Find out what is loaded, zero means device is unloaded */
    Pmsg0(-1, _("3301 Issuing autochanger \"loaded\" command.\n"));
    changer = edit_device_codes(jcr, changer, jcr->device->changer_command, 
                 "loaded");
    status = run_program(changer, timeout, results);
-   Dmsg3(100, "run_prog: %s stat=%d result=%s\n", changer, status, results);
+   Dmsg3(100, "run_prog: %s stat=%d result=\"%s\"\n", changer, status, results);
    if (status == 0) {
       loaded = atoi(results);
    } else {
+      berrno be;
       Pmsg1(-1, _("3991 Bad autochanger command: %s\n"), changer);
-      Pmsg2(-1, _("3991 status=%d result=%s\n"), status, results);
+      Pmsg2(-1, _("3991 result=\"%s\": ERR=%s\n"), results, be.strerror(status));
       goto bail_out;
    }
    if (loaded) {
@@ -1090,7 +1137,7 @@ try_again:
    }
    Dmsg1(100, "Results from loaded query=%s\n", results);
    if (loaded) {
-      jcr->VolCatInfo.Slot = loaded;
+      dcr->VolCatInfo.Slot = loaded;
       offline_or_rewind_dev(dev);
       /* We are going to load a new tape, so close the device */
       force_close_dev(dev);
@@ -1101,8 +1148,9 @@ try_again:
       status = run_program(changer, timeout, results);
       Pmsg2(-1, "unload status=%s %d\n", status==0?"OK":"Bad", status);
       if (status != 0) {
+        berrno be;
          Pmsg1(-1, _("3992 Bad autochanger command: %s\n"), changer);
-         Pmsg2(-1, _("3992 status=%d result=%s\n"), status, results);
+         Pmsg2(-1, _("3992 result=\"%s\": ERR=%s\n"), results, be.strerror(status));
       }
    }
 
@@ -1111,7 +1159,7 @@ try_again:
     */
    
    slot = 1;
-   jcr->VolCatInfo.Slot = slot;
+   dcr->VolCatInfo.Slot = slot;
    Pmsg2(-1, _("3303 Issuing autochanger \"load slot %d %d\" command.\n"), 
       slot, dev->drive_index);
    changer = edit_device_codes(jcr, changer, jcr->device->changer_command, "load");
@@ -1122,16 +1170,21 @@ try_again:
       Pmsg2(-1,  _("3303 Autochanger \"load slot %d %d\" status is OK.\n"),
         slot, dev->drive_index);
    } else {
+      berrno be;
       Pmsg1(-1, _("3993 Bad autochanger command: %s\n"), changer);
-      Pmsg2(-1, _("3993 status=%d result=%s\n"), status, results);
+      Pmsg2(-1, _("3993 result=\"%s\": ERR=%s\n"), results, be.strerror(status));
       goto bail_out;
    }
 
    if (!open_the_device()) {
       goto bail_out;
    }
+   /*  
+    * Start with sleep_time 0 then increment by 30 seconds if we get
+    * a failure.
+    */
    bmicrosleep(sleep_time, 0);
-   if (!rewind_dev(dev)) {
+   if (!rewind_dev(dev) || weof_dev(dev,1) < 0) {
       Pmsg1(0, "Bad status from rewind. ERR=%s\n", strerror_dev(dev));
       clrerror_dev(dev, -1);
       Pmsg0(-1, "\nThe test failed, probably because you need to put\n"
@@ -1425,14 +1478,15 @@ static void fsrcmd()
  */
 static void wrcmd()
 {
-   DEV_BLOCK *block;
-   DEV_RECORD *rec;
+   DEV_BLOCK *block = dcr->block;
+   DEV_RECORD *rec = dcr->rec;
    int i;
 
    sm_check(__FILE__, __LINE__, false);
-   block = new_block(dev);
-   rec = new_record();
-   dump_block(block, "test");
+   empty_block(block);
+   if (verbose > 1) {
+      dump_block(block, "test");
+   }
 
    i = block->buf_len - 100;
    ASSERT (i > 0);
@@ -1444,7 +1498,7 @@ static void wrcmd()
       Pmsg0(0, _("Error writing record to block.\n")); 
       goto bail_out;
    }
-   if (!write_block_to_dev(dcr, block)) {
+   if (!write_block_to_dev(dcr)) {
       Pmsg0(0, _("Error writing block to device.\n")); 
       goto bail_out;
    } else {
@@ -1454,8 +1508,6 @@ static void wrcmd()
 
 bail_out:
    sm_check(__FILE__, __LINE__, false);
-   free_record(rec);
-   free_block(block);
    sm_check(__FILE__, __LINE__, false);
 }
 
@@ -1480,8 +1532,9 @@ static void rrcmd()
    if (stat > 0 && stat <= len) {
       errno = 0;
    }
+   berrno be;
    Pmsg3(0, _("Read of %d bytes gives stat=%d. ERR=%s\n"),
-      len, stat, strerror(errno));
+      len, stat, be.strerror());
    free(buf);
 }
 
@@ -1511,9 +1564,10 @@ static void scancmd()
    Pmsg1(0, _("Starting scan at file %u\n"), dev->file);
    for (;;) {
       if ((stat = read(dev->fd, buf, sizeof(buf))) < 0) {
+        berrno be;
         clrerror_dev(dev, -1);
-         Mmsg2(&dev->errmsg, "read error on %s. ERR=%s.\n",
-           dev->dev_name, strerror(dev->dev_errno));
+         Mmsg2(dev->errmsg, "read error on %s. ERR=%s.\n",
+           dev->dev_name, be.strerror());
          Pmsg2(0, "Bad status from read %d. ERR=%s\n", stat, strerror_dev(dev));
         if (blocks > 0)
             printf("%d block%s of %d bytes in file %d\n",        
@@ -1570,17 +1624,17 @@ static void scan_blocks()
    int blocks, tot_blocks, tot_files;
    uint32_t block_size;
    uint64_t bytes;
-   DEV_BLOCK *block;
+   DEV_BLOCK *block = dcr->block;
    char ec1[50];
 
-   block = new_block(dev);
    blocks = block_size = tot_blocks = 0;
    bytes = 0;
 
+   empty_block(block);
    update_pos_dev(dev);
    tot_files = dev->file;
    for (;;) {
-      if (!read_block_from_device(dcr, block, NO_BLOCK_NUMBER_CHECK)) {
+      if (!read_block_from_device(dcr, NO_BLOCK_NUMBER_CHECK)) {
          Dmsg1(100, "!read_block(): ERR=%s\n", strerror_dev(dev));
         if (dev->state & ST_EOT) {
            if (blocks > 0) {
@@ -1640,7 +1694,6 @@ static void scan_blocks()
 
    }
 bail_out:
-   free_block(block);
    tot_files = dev->file - tot_files;
    printf("Total files=%d, blocks=%d, bytes = %s\n", tot_files, tot_blocks, 
       edit_uint64_with_commas(bytes, ec1));
@@ -1666,7 +1719,7 @@ static void statcmd()
 static void fillcmd()
 {
    DEV_RECORD rec;
-   DEV_BLOCK  *block;
+   DEV_BLOCK  *block = dcr->block;
    char ec1[50];
    int fd;
    uint32_t i;
@@ -1715,6 +1768,11 @@ This may take a long time -- hours! ...\n\n");
    /* Use fixed block size to simplify read back */
    min_block_size = dev->min_block_size;
    dev->min_block_size = dev->max_block_size;
+   set_volume_name("TestVolume1", 1);
+
+   rewind_dev(dev);
+   weof_dev(dev, 1);
+   dev->state &= ~ST_APPEND;         /* force volume to be relabeled */
 
    /* 
     * Acquire output device for writing.  Note, after acquiring a
@@ -1732,13 +1790,13 @@ This may take a long time -- hours! ...\n\n");
    /*
     * Write Begin Session Record
     */
-   if (!write_session_label(dcr, block, SOS_LABEL)) {
+   if (!write_session_label(dcr, 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;
    }
-   Pmsg0(-1, "Wrote Start Of Session label.\n");
+   Pmsg0(-1, "Wrote Start of Session label.\n");
 
    memset(&rec, 0, sizeof(rec));
    rec.data = get_memory(100000);     /* max record size */
@@ -1849,16 +1907,16 @@ This may take a long time -- hours! ...\n\n");
       } else if (!ok) {
         set_jcr_job_status(jcr, JS_ErrorTerminated);
       }
-      if (!write_session_label(dcr, block, EOS_LABEL)) {
+      if (!write_session_label(dcr, 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(dcr, block)) {
+      if (!write_block_to_device(dcr)) {
          Pmsg0(-1, _("Set ok=false after write_block_to_device.\n"));
         ok = false;
       }
-      Pmsg0(-1, _("Wrote End Of Session label.\n"));
+      Pmsg0(-1, _("Wrote End of Session label.\n"));
 
       /* Save last block info for second tape */
       last_block_num2 = last_block_num;
@@ -1885,18 +1943,20 @@ This may take a long time -- hours! ...\n\n");
       Pmsg2(-1, "Wrote state file last_block_num1=%d last_block_num2=%d\n",
         last_block_num1, last_block_num2);
    } else {
+      berrno be;
       Pmsg2(-1, _("Could not create state file: %s ERR=%s\n"), buf,
-                strerror(errno));
+                be.strerror());
    }
 
-   /* Release the device if multiple tapes being used */
-   if (!simple && !release_device(jcr)) {
-      Pmsg0(-1, _("Error in release_device\n"));
-      ok = false;
-   }
+   Pmsg4(-1, _("\n\nDone filling tape%s at %d:%d. Now beginning re-read of %stape ...\n"),
+      simple?"":"s", jcr->dcr->dev->file, jcr->dcr->dev->block_num, simple?"":"first ");
 
-   Pmsg2(-1, _("\n\nDone filling tape%s. Now beginning re-read of %stape ...\n"),
-      simple?"":"s", simple?"":"first ");
+   jcr->dcr->block = block;
+   /* Release the device if multiple tapes being used */
+// if (!simple && !release_device(jcr)) {
+//    Pmsg0(-1, _("Error in release_device\n"));
+//    ok = false;
+// }
 
    do_unfill();
 
@@ -1937,8 +1997,9 @@ static void unfillcmd()
          return;
        }
    } else {
+      berrno be;
       Pmsg2(-1, "\nCould not find the state file: %s ERR=%s\n"
-             "You must redo the fill command.\n", buf, strerror(errno));
+             "You must redo the fill command.\n", buf, be.strerror());
       return;
    }
    do_unfill();
@@ -1947,13 +2008,12 @@ static void unfillcmd()
 
 static void do_unfill()
 {
-   DEV_BLOCK *block;
+   DEV_BLOCK *block = dcr->block;
    bool autochanger;
 
    dumped = 0;
    VolBytes = 0;
    LastBlock = 0;
-   block = new_block(dev);
 
    Dmsg0(20, "Enter do_unfill\n");
    dev->capabilities |= CAP_ANONVOLS; /* allow reading any volume */
@@ -1988,7 +2048,8 @@ static void do_unfill()
       jcr->bsr = NULL;
       create_vol_list(jcr);
       close_dev(dev);
-      dev->state &= ~ST_READ;
+      dev->state &= ~(ST_READ|ST_APPEND);
+      dev->num_writers = 0;
       if (!acquire_device_for_read(jcr)) {
          Pmsg1(-1, "%s", dev->errmsg);
         goto bail_out;
@@ -1999,17 +2060,21 @@ static void do_unfill()
     * Note, re-reading last block may have caused us to 
     *  loose track of where we are (block number unknown).
     */
-   rewind_dev(dev);                  /* get to a known place on tape */
+   if (!rewind_dev(dev)) {               /* get to a known place on tape */
+      goto bail_out;
+   }
    /* Read the first 1000 records */
    Pmsg0(-1, _("Reading the first 1000 records.\n"));
+   quickie_count = 0;
    read_records(dcr, quickie_cb, my_mount_next_read_volume);
    Pmsg4(-1, _("Reposition from %u:%u to %u:%u\n"), dev->file, dev->block_num,
         last_file, last_block_num);
    if (!reposition_dev(dev, last_file, last_block_num)) {
       Pmsg1(-1, "Reposition error. ERR=%s\n", strerror_dev(dev));
+      goto bail_out;
    }
    Pmsg1(-1, _("Reading block %u.\n"), last_block_num);
-   if (!read_block_from_device(dcr, block, NO_BLOCK_NUMBER_CHECK)) {
+   if (!read_block_from_device(dcr, NO_BLOCK_NUMBER_CHECK)) {
       Pmsg1(-1, _("Error reading block: ERR=%s\n"), strerror_dev(dev));
       goto bail_out;
    }
@@ -2060,7 +2125,7 @@ static void do_unfill()
       goto bail_out;
    }
    Pmsg1(-1, _("Reading block %d.\n"), dev->block_num);
-   if (!read_block_from_device(dcr, block, NO_BLOCK_NUMBER_CHECK)) {
+   if (!read_block_from_device(dcr, NO_BLOCK_NUMBER_CHECK)) {
       Pmsg1(-1, _("Error reading block: ERR=%s\n"), strerror_dev(dev));
       goto bail_out;
    }
@@ -2076,7 +2141,7 @@ static void do_unfill()
       goto bail_out;
    }
    Pmsg1(-1, _("Reading block %d.\n"), dev->block_num);
-   if (!read_block_from_device(dcr, block, NO_BLOCK_NUMBER_CHECK)) {
+   if (!read_block_from_device(dcr, NO_BLOCK_NUMBER_CHECK)) {
       Pmsg1(-1, _("Error reading block: ERR=%s\n"), strerror_dev(dev));
       goto bail_out;
    }
@@ -2085,17 +2150,25 @@ static void do_unfill()
    }
 
 bail_out:
-   free_block(block);
    free_block(last_block1);
    free_block(last_block2);
    free_block(first_block);
 }
 
 /* Read 1000 records then stop */
-static bool quickie_cb(JCR *jcr, DEVICE *dev, DEV_BLOCK *block, DEV_RECORD *rec)
+static bool quickie_cb(DCR *dcr, DEV_RECORD *rec)
 {
+   DEVICE *dev = dcr->dev;
+   if (dev->file != 0) {
+      Pmsg3(-1, "ERROR! device at %d:%d count=%d\n", dev->file, dev->block_num,
+        quickie_count);
+      return false;
+   }
    quickie_count++;
-   return quickie_count <= 1000;
+   if (quickie_count == 1000) {
+      Pmsg2(-1, "1000 records read now at %d:%d\n", dev->file, dev->block_num);
+   }
+   return quickie_count < 1000;
 }
 
 static bool compare_blocks(DEV_BLOCK *last_block, DEV_BLOCK *block) 
@@ -2145,10 +2218,10 @@ static bool compare_blocks(DEV_BLOCK *last_block, DEV_BLOCK *block)
 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;
 
+   lock_device(dev);
    if (!this_block) {
       this_block = new_block(dev);
    }
@@ -2158,7 +2231,7 @@ static int flush_block(DEV_BLOCK *block, int dump)
    /* Copy block */
    this_file = dev->file;
    this_block_num = dev->block_num;
-   if (!write_block_to_dev(dcr, block)) {
+   if (!write_block_to_dev(dcr)) {
       Pmsg3(000, "Last block at: %u:%u this_dev_block_num=%d\n", 
                  last_file, last_block_num, this_block_num);
       if (vol_num == 1) {
@@ -2192,14 +2265,15 @@ static int flush_block(DEV_BLOCK *block, int dump)
       }
       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", 
+      Pmsg4(000, "End of tape %d:%d. VolumeCapacity=%s. Write rate = %.1f KB/s\n", 
+        dev->file, dev->block_num,
         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->dcr, block)) {
+        if (!fixup_device_block_write_error(jcr->dcr)) {
             Pmsg1(000, _("Cannot fixup device error. %s\n"), strerror_dev(dev));
            ok = false;
            unlock_device(dev);
@@ -2215,7 +2289,8 @@ static int flush_block(DEV_BLOCK *block, int dump)
    memcpy(this_block->buf, block->buf, this_block->buf_len);
 
    /*
-    * Toggle between two allocated blocks for efficiency.
+    * Note, we always read/write to block, but we toggle
+    *  copying it to one or another of two allocated blocks.
     * Switch blocks so that the block just successfully written is
     *  always in last_block. 
     */
@@ -2236,8 +2311,8 @@ static int flush_block(DEV_BLOCK *block, int dump)
  */                           
 static void qfillcmd()
 {
-   DEV_BLOCK *block;
-   DEV_RECORD *rec;
+   DEV_BLOCK *block = dcr->block;
+   DEV_RECORD *rec = dcr->rec;
    int i, count;
 
    Pmsg0(0, "Test writing blocks of 64512 bytes to tape.\n");
@@ -2250,8 +2325,6 @@ static void qfillcmd()
    }
 
    sm_check(__FILE__, __LINE__, false);
-   block = new_block(dev);
-   rec = new_record();
 
    i = block->buf_len - 100;
    ASSERT (i > 0);
@@ -2269,7 +2342,7 @@ static void qfillcmd()
          Pmsg0(0, _("Error writing record to block.\n")); 
         goto bail_out;
       }
-      if (!write_block_to_dev(dcr, block)) {
+      if (!write_block_to_dev(dcr)) {
          Pmsg0(0, _("Error writing block to device.\n")); 
         goto bail_out;
       }
@@ -2284,10 +2357,6 @@ static void qfillcmd()
 
 bail_out:
    sm_check(__FILE__, __LINE__, false);
-   free_record(rec);
-   free_block(block);
-   sm_check(__FILE__, __LINE__, false);
-
 }
 
 /*
@@ -2295,7 +2364,7 @@ bail_out:
  */
 static void rawfill_cmd()
 {
-   DEV_BLOCK *block;
+   DEV_BLOCK *block = dcr->block;
    int stat;
    int fd;
    uint32_t block_num = 0;
@@ -2303,7 +2372,6 @@ static void rawfill_cmd()
    int my_errno;
    uint32_t i;
 
-   block = new_block(dev);
    fd = open("/dev/urandom", O_RDONLY);
    if (fd) {
       read(fd, block->buf, block->buf_len);
@@ -2335,10 +2403,10 @@ static void rawfill_cmd()
    }
    my_errno = errno;
    printf("\n");
+   berrno be;
    printf("Write failed at block %u. stat=%d ERR=%s\n", block_num, stat,
-      strerror(my_errno));
+      be.strerror(my_errno));
    weofcmd();
-   free_block(block);
 }
 
 
@@ -2347,14 +2415,13 @@ static void rawfill_cmd()
  */
 static void bfill_cmd()
 {
-   DEV_BLOCK *block;
+   DEV_BLOCK *block = dcr->block;
    uint32_t block_num = 0;
    uint32_t *p;
    int my_errno;
    int fd;   
    uint32_t i;
 
-   block = new_block(dev);
    fd = open("/dev/urandom", O_RDONLY);
    if (fd) {
       read(fd, block->buf, block->buf_len);
@@ -2372,7 +2439,7 @@ static void bfill_cmd()
       *p = block_num;
       block->binbuf = block->buf_len;
       block->bufp = block->buf + block->binbuf;
-      if (!write_block_to_dev(dcr, block)) {
+      if (!write_block_to_dev(dcr)) {
         break;
       }
       if ((block_num++ % 100) == 0) {
@@ -2388,7 +2455,6 @@ static void bfill_cmd()
    printf("\n");
    printf("Write failed at block %u.\n", block_num);     
    weofcmd();
-   free_block(block);
 }
 
 
@@ -2462,6 +2528,7 @@ static void helpcmd()
 static void usage()
 {
    fprintf(stderr, _(
+"Copyright (C) 2000-2004 Kern Sibbald and John Walker.\n"
 "\nVersion: " VERSION " (" BDATE ")\n\n"
 "Usage: btape <options> <device_name>\n"
 "       -b <file>   specify bootstrap file\n"
@@ -2520,9 +2587,8 @@ bool dir_update_volume_info(DCR *dcr, bool relabel)
 
 bool dir_get_volume_info(DCR *dcr, enum get_vol_info_rw  writing)            
 {
-   JCR *jcr = dcr->jcr;
    Dmsg0(20, "Enter dir_get_volume_info\n");
-   bstrncpy(jcr->VolCatInfo.VolCatName, jcr->VolumeName, sizeof(jcr->VolCatInfo.VolCatName));
+   bstrncpy(dcr->VolCatInfo.VolCatName, dcr->VolumeName, sizeof(dcr->VolCatInfo.VolCatName));
    return 1;
 }
 
@@ -2535,17 +2601,15 @@ bool dir_create_jobmedia_record(DCR *dcr)
 
 bool dir_find_next_appendable_volume(DCR *dcr) 
 { 
-   JCR *jcr = dcr->jcr;
    Dmsg1(20, "Enter dir_find_next_appendable_volume. stop=%d\n", stop);
-   return jcr->VolumeName[0] != 0;
+   return dcr->VolumeName[0] != 0;
 }
 
 bool dir_ask_sysop_to_mount_volume(DCR *dcr)
 {
    DEVICE *dev = dcr->dev;
-   JCR *jcr = dcr->jcr;
    Dmsg0(20, "Enter dir_ask_sysop_to_mount_volume\n");
-   if (jcr->VolumeName[0] == 0) {
+   if (dcr->VolumeName[0] == 0) {
       return dir_ask_sysop_to_create_appendable_volume(dcr);
    }
    /* Close device so user can use autochanger if desired */
@@ -2554,12 +2618,12 @@ bool dir_ask_sysop_to_mount_volume(DCR *dcr)
    }
    force_close_dev(dev);
    Pmsg1(-1, "%s", dev->errmsg);           /* print reason */
-   if (jcr->VolumeName[0] == 0 || strcmp(jcr->VolumeName, "TestVolume2") == 0) {
+   if (dcr->VolumeName[0] == 0 || strcmp(dcr->VolumeName, "TestVolume2") == 0) {
       fprintf(stderr, "Mount second Volume on device %s and press return when ready: ",
         dev_name(dev));
    } else {
       fprintf(stderr, "Mount Volume \"%s\" on device %s and press return when ready: ",
-        jcr->VolumeName, dev_name(dev));
+        dcr->VolumeName, dev_name(dev));
    }
    getchar();  
    return true;
@@ -2569,7 +2633,6 @@ bool dir_ask_sysop_to_create_appendable_volume(DCR *dcr)
 {
    bool autochanger;
    DEVICE *dev = dcr->dev;
-   JCR *jcr = dcr->jcr;
    Dmsg0(20, "Enter dir_ask_sysop_to_create_appendable_volume\n");
    if (stop == 0) {
       set_volume_name("TestVolume1", 1);
@@ -2587,19 +2650,21 @@ bool dir_ask_sysop_to_create_appendable_volume(DCR *dcr)
         dev_name(dev));
       getchar();   
    }
-   open_device(jcr, dev);
+   open_device(dcr);
    labelcmd();
    VolumeName = NULL;
    BlockNumber = 0;
    return true;
 }
 
-static bool my_mount_next_read_volume(JCR *jcr, DEVICE *dev, DEV_BLOCK *block)
+static bool my_mount_next_read_volume(DCR *dcr)
 {
    char ec1[50];
+   JCR *jcr = dcr->jcr;
+   DEV_BLOCK *block = dcr->block;
 
    Dmsg0(20, "Enter my_mount_next_read_volume\n");
-   Pmsg1(000, "End of Volume \"%s\"\n", jcr->VolumeName);
+   Pmsg1(000, "End of Volume \"%s\"\n", dcr->VolumeName);
 
    if (LastBlock != block->BlockNumber) {
       VolBytes += block->block_len;
@@ -2614,7 +2679,7 @@ static bool my_mount_next_read_volume(JCR *jcr, DEVICE *dev, DEV_BLOCK *block)
    Pmsg3(-1, "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) {
+   if (strcmp(dcr->VolumeName, "TestVolume2") == 0) {
       end_of_tape = 1;
       return false;
    }
@@ -2626,7 +2691,7 @@ static bool my_mount_next_read_volume(JCR *jcr, DEVICE *dev, DEV_BLOCK *block)
    close_dev(dev);
    dev->state &= ~ST_READ; 
    if (!acquire_device_for_read(jcr)) {
-      Pmsg2(0, "Cannot open Dev=%s, Vol=%s\n", dev_name(dev), jcr->VolumeName);
+      Pmsg2(0, "Cannot open Dev=%s, Vol=%s\n", dev_name(dev), dcr->VolumeName);
       return false;
    }
    return true;                   /* next volume mounted */
@@ -2637,11 +2702,8 @@ static void set_volume_name(const char *VolName, int volnum)
    DCR *dcr = jcr->dcr;
    VolumeName = VolName;
    vol_num = volnum;
-   pm_strcpy(&jcr->VolumeName, VolName);
    bstrncpy(dev->VolCatInfo.VolCatName, VolName, sizeof(dev->VolCatInfo.VolCatName));
-   bstrncpy(jcr->VolCatInfo.VolCatName, VolName, sizeof(jcr->VolCatInfo.VolCatName));
    bstrncpy(dcr->VolCatInfo.VolCatName, VolName, sizeof(dcr->VolCatInfo.VolCatName));
    bstrncpy(dcr->VolumeName, VolName, sizeof(dcr->VolumeName));
-   jcr->VolCatInfo.Slot = volnum;
    dcr->VolCatInfo.Slot = volnum;
 }