]> git.sur5r.net Git - bacula/bacula/blobdiff - bacula/src/stored/label.c
Backport from BEE
[bacula/bacula] / bacula / src / stored / label.c
index c7ce4d1a00f4f392bdc76cb1e90b4aba299d07f2..86155f2534e2ff000de1ea2d3377e1d67e7e3287 100644 (file)
@@ -1,29 +1,17 @@
 /*
    Bacula® - The Network Backup Solution
 
-   Copyright (C) 2000-2012 Free Software Foundation Europe e.V.
+   Copyright (C) 2000-2014 Free Software Foundation Europe e.V.
 
-   The main author of Bacula is Kern Sibbald, with contributions from
-   many others, a complete list can be found in the file AUTHORS.
-   This program is Free Software; you can redistribute it and/or
-   modify it under the terms of version three of the GNU Affero General Public
-   License as published by the Free Software Foundation and included
-   in the file LICENSE.
+   The main author of Bacula is Kern Sibbald, with contributions from many
+   others, a complete list can be found in the file AUTHORS.
 
-   This program is distributed in the hope that it will be useful, but
-   WITHOUT ANY WARRANTY; without even the implied warranty of
-   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-   General Public License for more details.
-
-   You should have received a copy of the GNU Affero General Public License
-   along with this program; if not, write to the Free Software
-   Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
-   02110-1301, USA.
+   You may use this file and others of this release according to the
+   license defined in the LICENSE file, which includes the Affero General
+   Public License, v3.0 ("AGPLv3") and some additional permissions and
+   terms pursuant to its AGPLv3 Section 7.
 
    Bacula® is a registered trademark of Kern Sibbald.
-   The licensor of Bacula is the Free Software Foundation Europe
-   (FSFE), Fiduciary Program, Sumatrastrasse 25, 8006 Zürich,
-   Switzerland, email:ftf@fsfeurope.org.
 */
 /*
  *
 #include "stored.h"                   /* pull in Storage Deamon headers */
 
 /* Forward referenced functions */
-static void create_volume_label_record(DCR *dcr, DEVICE *dev, DEV_RECORD *rec);
+static void create_volume_label_record(DCR *dcr, DEVICE *dev, DEV_RECORD *rec, bool alt);
+static bool sub_write_volume_label_to_block(DCR *dcr);
+static bool sub_write_new_volume_label_to_dev(DCR *dcr, const char *VolName,
+              const char *PoolName, bool relabel, bool dvdnow);
 
 /*
  * Read the volume label
@@ -61,6 +52,7 @@ static void create_volume_label_record(DCR *dcr, DEVICE *dev, DEV_RECORD *rec);
  *
  *  The dcr block is emptied on return, and the Volume is
  *    rewound.
+ *
  */
 int read_dev_volume_label(DCR *dcr)
 {
@@ -74,12 +66,14 @@ int read_dev_volume_label(DCR *dcr)
    bool want_ansi_label;
    bool have_ansi_label = false;
 
+   Enter(200);
    Dmsg4(100, "Enter read_volume_label res=%d device=%s vol=%s dev_Vol=%s\n",
-      dev->num_reserved(), dev->print_name(), VolName, 
+      dev->num_reserved(), dev->print_name(), VolName,
       dev->VolHdr.VolumeName[0]?dev->VolHdr.VolumeName:"*NULL*");
 
    if (!dev->is_open()) {
       if (!dev->open(dcr, OPEN_READ_ONLY)) {
+         Leave(200);
          return VOL_IO_ERROR;
       }
    }
@@ -90,9 +84,10 @@ int read_dev_volume_label(DCR *dcr)
    dev->label_type = B_BACULA_LABEL;
 
    if (!dev->rewind(dcr)) {
-      Mmsg(jcr->errmsg, _("Couldn't rewind device %s: ERR=%s\n"), 
-         dev->print_name(), dev->print_errmsg());
+      Mmsg(jcr->errmsg, _("Couldn't rewind %s device %s: ERR=%s\n"),
+         dev->print_type(), dev->print_name(), dev->print_errmsg());
       Dmsg1(130, "return VOL_NO_MEDIA: %s", jcr->errmsg);
+      Leave(200);
       return VOL_NO_MEDIA;
    }
    bstrncpy(dev->VolHdr.Id, "**error**", sizeof(dev->VolHdr.Id));
@@ -101,14 +96,14 @@ int read_dev_volume_label(DCR *dcr)
   want_ansi_label = dcr->VolCatInfo.LabelType != B_BACULA_LABEL ||
                     dcr->device->label_type != B_BACULA_LABEL;
   if (want_ansi_label || dev->has_cap(CAP_CHECKLABELS)) {
-      stat = read_ansi_ibm_label(dcr);            
+      stat = read_ansi_ibm_label(dcr);
       /* If we want a label and didn't find it, return error */
       if (want_ansi_label && stat != VOL_OK) {
          goto bail_out;
       }
       if (stat == VOL_NAME_ERROR || stat == VOL_LABEL_ERROR) {
-         Mmsg(jcr->errmsg, _("Wrong Volume mounted on device %s: Wanted %s have %s\n"),
-              dev->print_name(), VolName, dev->VolHdr.VolumeName);
+         Mmsg(jcr->errmsg, _("Wrong Volume mounted on %s device %s: Wanted %s have %s\n"),
+              dev->print_type(), dev->print_name(), VolName, dev->VolHdr.VolumeName);
          if (!dev->poll && jcr->label_errors++ > 100) {
             Jmsg(jcr, M_FATAL, 0, _("Too many tries: %s"), jcr->errmsg);
          }
@@ -120,16 +115,16 @@ int read_dev_volume_label(DCR *dcr)
          have_ansi_label = true;
       }
    }
-  
+
    /* Read the Bacula Volume label block */
    record = new_record();
    empty_block(block);
 
    Dmsg0(130, "Big if statement in read_volume_label\n");
    if (!dcr->read_block_from_dev(NO_BLOCK_NUMBER_CHECK)) {
-      Mmsg(jcr->errmsg, _("Requested Volume \"%s\" on %s is not a Bacula "
-           "labeled Volume, because: ERR=%s"), NPRT(VolName), 
-           dev->print_name(), dev->print_errmsg());
+      Mmsg(jcr->errmsg, _("Requested Volume \"%s\" on %s device %s is not a Bacula "
+           "labeled Volume, because: ERR=%s"), NPRT(VolName),
+           dev->print_type(), dev->print_name(), dev->print_errmsg());
       Dmsg1(130, "%s", jcr->errmsg);
    } else if (!read_record_from_block(dcr, record)) {
       Mmsg(jcr->errmsg, _("Could not read Volume label from block.\n"));
@@ -152,10 +147,11 @@ int read_dev_volume_label(DCR *dcr)
    }
 
    if (!ok) {
-      if (forge_on || jcr->ignore_label_errors) {
+      if (jcr->ignore_label_errors) {
          dev->set_labeled();         /* set has Bacula label */
          Jmsg(jcr, M_ERROR, 0, "%s", jcr->errmsg);
          empty_block(block);
+         Leave(100);
          return VOL_OK;
       }
       Dmsg0(100, "No volume label - bailing out\n");
@@ -172,8 +168,8 @@ int read_dev_volume_label(DCR *dcr)
    if (dev->VolHdr.VerNum != BaculaTapeVersion &&
        dev->VolHdr.VerNum != OldCompatibleBaculaTapeVersion1 &&
        dev->VolHdr.VerNum != OldCompatibleBaculaTapeVersion2) {
-      Mmsg(jcr->errmsg, _("Volume on %s has wrong Bacula version. Wanted %d got %d\n"),
-         dev->print_name(), BaculaTapeVersion, dev->VolHdr.VerNum);
+      Mmsg(jcr->errmsg, _("Volume on %s device %s has wrong Bacula version. Wanted %d got %d\n"),
+         dev->print_type(), dev->print_name(), BaculaTapeVersion, dev->VolHdr.VerNum);
       Dmsg1(130, "VOL_VERSION_ERROR: %s", jcr->errmsg);
       stat = VOL_VERSION_ERROR;
       goto bail_out;
@@ -183,8 +179,8 @@ int read_dev_volume_label(DCR *dcr)
     * a Bacula volume label (VOL_LABEL)
     */
    if (dev->VolHdr.LabelType != PRE_LABEL && dev->VolHdr.LabelType != VOL_LABEL) {
-      Mmsg(jcr->errmsg, _("Volume on %s has bad Bacula label type: %x\n"),
-          dev->print_name(), dev->VolHdr.LabelType);
+      Mmsg(jcr->errmsg, _("Volume on %s device %s has bad Bacula label type: %x\n"),
+          dev->print_type(), dev->print_name(), dev->VolHdr.LabelType);
       Dmsg1(130, "%s", jcr->errmsg);
       if (!dev->poll && jcr->label_errors++ > 100) {
          Jmsg(jcr, M_FATAL, 0, _("Too many tries: %s"), jcr->errmsg);
@@ -199,8 +195,8 @@ int read_dev_volume_label(DCR *dcr)
    /* Compare Volume Names */
    Dmsg2(130, "Compare Vol names: VolName=%s hdr=%s\n", VolName?VolName:"*", dev->VolHdr.VolumeName);
    if (VolName && *VolName && *VolName != '*' && strcmp(dev->VolHdr.VolumeName, VolName) != 0) {
-      Mmsg(jcr->errmsg, _("Wrong Volume mounted on device %s: Wanted %s have %s\n"),
-           dev->print_name(), VolName, dev->VolHdr.VolumeName);
+      Mmsg(jcr->errmsg, _("Wrong Volume mounted on %s device %s: Wanted %s have %s\n"),
+           dev->print_type(), dev->print_name(), VolName, dev->VolHdr.VolumeName);
       Dmsg1(130, "%s", jcr->errmsg);
       /*
        * Cancel Job if too many label errors
@@ -214,8 +210,7 @@ int read_dev_volume_label(DCR *dcr)
       goto bail_out;
    }
 
-
-   if (debug_level >= 200) {
+   if (chk_dbglvl(100)) {
       dump_volume_label(dev);
    }
    Dmsg0(130, "Leave read_volume_label() VOL_OK\n");
@@ -223,7 +218,7 @@ int read_dev_volume_label(DCR *dcr)
    if (!dev->has_cap(CAP_STREAM)) {
       dev->rewind(dcr);
       if (have_ansi_label) {
-         stat = read_ansi_ibm_label(dcr);            
+         stat = read_ansi_ibm_label(dcr);
          /* If we want a label and didn't find it, return error */
          if (stat != VOL_OK) {
             goto bail_out;
@@ -233,58 +228,90 @@ int read_dev_volume_label(DCR *dcr)
 
    Dmsg1(100, "Call reserve_volume=%s\n", dev->VolHdr.VolumeName);
    if (reserve_volume(dcr, dev->VolHdr.VolumeName) == NULL) {
-      Mmsg2(jcr->errmsg, _("Could not reserve volume %s on %s\n"),
-           dev->VolHdr.VolumeName, dev->print_name());
+      if (!jcr->errmsg[0]) {
+         Mmsg3(jcr->errmsg, _("Could not reserve volume %s on %s device %s\n"),
+              dev->VolHdr.VolumeName, dev->print_type(), dev->print_name());
+      }
       Dmsg2(150, "Could not reserve volume %s on %s\n", dev->VolHdr.VolumeName, dev->print_name());
       stat = VOL_NAME_ERROR;
       goto bail_out;
    }
 
    empty_block(block);
+
+   Leave(200);
    return VOL_OK;
 
 bail_out:
    empty_block(block);
    dev->rewind(dcr);
    Dmsg1(150, "return %d\n", stat);
+   Leave(200);
    return stat;
 }
 
+
 /*
- * Put a volume label into the block
+ * Create and put a volume label into the block
  *
  *  Returns: false on failure
  *           true  on success
+ *
  */
 static bool write_volume_label_to_block(DCR *dcr)
 {
-   DEVICE *dev = dcr->dev;
-   DEV_BLOCK *block = dcr->block;
-   DEV_RECORD rec;
-   JCR *jcr = dcr->jcr;
+   bool ok;
 
+   Enter(100);
    Dmsg0(130, "write Label in write_volume_label_to_block()\n");
 
+   Dmsg0(100, "Call sub_write_vol_label\n");
+   ok = sub_write_volume_label_to_block(dcr);
+   if (!ok) {
+      goto get_out;
+   }
+
+get_out:
+   Leave(100);
+   return ok;
+}
+
+static bool sub_write_volume_label_to_block(DCR *dcr)
+{
+   DEVICE *dev;
+   DEV_BLOCK *block;
+   DEV_RECORD rec;
+   JCR *jcr = dcr->jcr;
+   bool ok = true;
+
+   Enter(100);
+   dev = dcr->dev;
+   block = dcr->block;
    memset(&rec, 0, sizeof(rec));
    rec.data = get_memory(SER_LENGTH_Volume_Label);
+   memset(rec.data, 0, SER_LENGTH_Volume_Label);
    empty_block(block);                /* Volume label always at beginning */
 
-   create_volume_label_record(dcr, dev, &rec);
+   create_volume_label_record(dcr, dcr->dev, &rec, false);
 
    block->BlockNumber = 0;
+   Dmsg0(100, "write_record_to_block\n");
    if (!write_record_to_block(dcr, &rec)) {
       free_pool_memory(rec.data);
-      Jmsg1(jcr, M_FATAL, 0, _("Cannot write Volume label to block for device %s\n"),
-         dev->print_name());
-      return false;
+      Jmsg2(jcr, M_FATAL, 0, _("Cannot write Volume label to block for %s device %s\n"),
+         dev->print_type(), dev->print_name());
+      ok = false;
+      goto get_out;
    } else {
-      Dmsg2(130, "Wrote label of %d bytes to block. Vol=%s\n", rec.data_len,
-            dcr->VolumeName);
+      Dmsg3(100, "Wrote fd=%d label of %d bytes to block. Vol=%s\n",
+         dev->fd(), rec.data_len, dcr->VolumeName);
    }
    free_pool_memory(rec.data);
-   return true;
-}
 
+get_out:
+   Leave(100);
+   return ok;
+}
 
 /*
  * Write a Volume Label
@@ -293,13 +320,17 @@ static bool write_volume_label_to_block(DCR *dcr)
  *            after the label will be destroyed,
  *            in fact, we write the label 5 times !!!!
  *
- *  This routine should be used only when labeling a blank tape.
+ *  This routine should be used only when labeling a blank tape or
+ *  when recylcing a volume.
+ *
  */
-bool write_new_volume_label_to_dev(DCR *dcr, const char *VolName, 
+bool write_new_volume_label_to_dev(DCR *dcr, const char *VolName,
               const char *PoolName, bool relabel, bool dvdnow)
 {
-   DEVICE *dev = dcr->dev;
-   DEV_BLOCK *block = dcr->block;
+   DEVICE *dev;
+
+   Enter(100);
+   dev = dcr->dev;
 
    Dmsg0(150, "write_volume_label()\n");
    if (*VolName == 0) {
@@ -321,93 +352,118 @@ bool write_new_volume_label_to_dev(DCR *dcr, const char *VolName,
    /* Set the new filename for open, ... */
    dev->setVolCatName(VolName);
    dcr->setVolCatName(VolName);
-   Dmsg1(150, "New VolName=%s\n", VolName);
+   dev->clearVolCatBytes();
+
+   Dmsg1(100, "New VolName=%s\n", VolName);
    if (!dev->open(dcr, OPEN_READ_WRITE)) {
       /* If device is not tape, attempt to create it */
       if (dev->is_tape() || !dev->open(dcr, CREATE_READ_WRITE)) {
-         Jmsg3(dcr->jcr, M_WARNING, 0, _("Open device %s Volume \"%s\" failed: ERR=%s\n"),
-               dev->print_name(), dcr->VolumeName, dev->bstrerror());
+         Jmsg4(dcr->jcr, M_WARNING, 0, _("Open %s device %s Volume \"%s\" failed: ERR=%s\n"),
+               dev->print_type(), dev->print_name(), dcr->VolumeName, dev->bstrerror());
          goto bail_out;
       }
    }
    Dmsg1(150, "Label type=%d\n", dev->label_type);
 
-   for ( ;; ) {
-      empty_block(block);
-      if (!dev->rewind(dcr)) {
-         Dmsg2(130, "Bad status on %s from rewind: ERR=%s\n", dev->print_name(), dev->print_errmsg());
-         if (!forge_on) {
-            goto bail_out;
-         }
+   if (!sub_write_new_volume_label_to_dev(dcr, VolName, PoolName, relabel, dvdnow)) {
+      goto bail_out;
+   }
+   if (dev->weof(1)) {
+      dev->set_labeled();
+      write_ansi_ibm_labels(dcr, ANSI_EOF_LABEL, dev->VolHdr.VolumeName);
+   }
+
+   if (chk_dbglvl(100))  {
+      dump_volume_label(dev);
+   }
+   Dmsg0(50, "Call reserve_volume\n");
+   /**** ***FIXME*** if dev changes, dcr must be updated */
+   if (reserve_volume(dcr, VolName) == NULL) {
+      if (!dcr->jcr->errmsg[0]) {
+         Mmsg3(dcr->jcr->errmsg, _("Could not reserve volume %s on %s device %s\n"),
+              dev->VolHdr.VolumeName, dev->print_type(), dev->print_name());
       }
+      Dmsg1(50, "%s", dcr->jcr->errmsg);
+      goto bail_out;
+   }
+   dev = dcr->dev;                    /* may have changed in reserve_volume */
+   dev->clear_append();               /* remove append since this is PRE_LABEL */
+   Leave(100);
+   return true;
 
-      /* Temporarily mark in append state to enable writing */
-      dev->set_append();
+bail_out:
+   volume_unused(dcr);
+   dcr->dev->clear_append();            /* remove append since this is PRE_LABEL */
+   Leave(100);
+   return false;
+}
 
-      /* Create PRE_LABEL or VOL_LABEL if DVD */
-      create_volume_label(dev, VolName, PoolName, dvdnow);
+static bool sub_write_new_volume_label_to_dev(DCR *dcr, const char *VolName,
+              const char *PoolName, bool relabel, bool dvdnow)
+{
+   DEVICE *dev;
+   DEV_BLOCK *block;
 
-      /*
-       * If we have already detected an ANSI label, re-read it
-       *   to skip past it. Otherwise, we write a new one if 
-       *   so requested.  
-       */
-      if (dev->label_type != B_BACULA_LABEL) {
-         if (read_ansi_ibm_label(dcr) != VOL_OK) {
-            dev->rewind(dcr);
-            goto bail_out;
-         }
-      } else if (!write_ansi_ibm_labels(dcr, ANSI_VOL_LABEL, VolName)) {
-         goto bail_out;
-      }
+   Enter(100);
+   dev = dcr->dev;
+   block = dcr->block;
 
-      create_volume_label_record(dcr, dev, dcr->rec);
-      dcr->rec->Stream = 0;
-      dcr->rec->maskedStream = 0;
+   empty_block(block);
+   if (!dev->rewind(dcr)) {
+      Dmsg2(130, "Bad status on %s from rewind: ERR=%s\n", dev->print_name(), dev->print_errmsg());
+      goto bail_out;
+   }
 
-      if (!write_record_to_block(dcr, dcr->rec)) {
-         Dmsg2(130, "Bad Label write on %s: ERR=%s\n", dev->print_name(), dev->print_errmsg());
-         goto bail_out;
-      } else {
-         Dmsg2(130, "Wrote label of %d bytes to %s\n", dcr->rec->data_len, dev->print_name());
-      }
+   /* Temporarily mark in append state to enable writing */
+   dev->set_append();
 
-      Dmsg0(130, "Call write_block_to_dev()\n");
-      if (!dcr->write_block_to_dev()) {
-         Dmsg2(130, "Bad Label write on %s: ERR=%s\n", dev->print_name(), dev->print_errmsg());
+   /* Create PRE_LABEL or VOL_LABEL if DVD */
+   create_volume_header(dev, VolName, PoolName, dvdnow);
+
+   /*
+    * If we have already detected an ANSI label, re-read it
+    *   to skip past it. Otherwise, we write a new one if
+    *   so requested.
+    */
+   if (dev->label_type != B_BACULA_LABEL) {
+      if (read_ansi_ibm_label(dcr) != VOL_OK) {
+         dev->rewind(dcr);
          goto bail_out;
       }
-      break;
+   } else if (!write_ansi_ibm_labels(dcr, ANSI_VOL_LABEL, VolName)) {
+      goto bail_out;
    }
-   dev = dcr->dev;
 
+   create_volume_label_record(dcr, dev, dcr->rec, false);
+   dcr->rec->Stream = 0;
+   dcr->rec->maskedStream = 0;
 
-   Dmsg0(130, " Wrote block to device\n");
-
-   if (dev->weof(1)) {
-      dev->set_labeled();
-      write_ansi_ibm_labels(dcr, ANSI_EOF_LABEL, dev->VolHdr.VolumeName);
-   }
+   Dmsg1(100, "write_record_to_block FI=%d\n", dcr->rec->FileIndex);
 
-   if (debug_level >= 20)  {
-      dump_volume_label(dev);
+   if (!write_record_to_block(dcr, dcr->rec)) {
+      Dmsg2(40, "Bad Label write on %s: ERR=%s\n", dev->print_name(), dev->print_errmsg());
+      goto bail_out;
+   } else {
+      Dmsg2(100, "Wrote label=%d bytes block: %s\n", dcr->rec->data_len, dev->print_name());
    }
-   Dmsg0(100, "Call reserve_volume\n");
-   if (reserve_volume(dcr, VolName) == NULL) {
-      Mmsg2(dcr->jcr->errmsg, _("Could not reserve volume %s on %s\n"),
-           dev->VolHdr.VolumeName, dev->print_name());
-      Dmsg1(100, "%s", dcr->jcr->errmsg);
+   Dmsg2(100, "New label VolCatBytes=%lld VolCatStatus=%s\n",
+      dev->VolCatInfo.VolCatBytes, dev->VolCatInfo.VolCatStatus);
+
+   Dmsg3(130, "Call write_block_to_dev() fd=%d block=%p Addr=%lld\n",
+      dcr->dev->fd(), dcr->block, block->dev->lseek(dcr, 0, SEEK_CUR));
+   Dmsg0(100, "write_record_to_dev\n");
+   /* Write block to device */
+   if (!dcr->write_block_to_dev()) {
+      Dmsg2(40, "Bad Label write on %s: ERR=%s\n", dev->print_name(), dev->print_errmsg());
       goto bail_out;
    }
-   dev = dcr->dev;                    /* may have changed in reserve_volume */
-
-   dev->clear_append();               /* remove append since this is PRE_LABEL */
+   Dmsg2(100, "New label VolCatBytes=%lld VolCatStatus=%s\n",
+      dev->VolCatInfo.VolCatBytes, dev->VolCatInfo.VolCatStatus);
+   Leave(100);
    return true;
 
 bail_out:
-   volume_unused(dcr);
-   dev->clear_volhdr();
-   dev->clear_append();               /* remove append since this is PRE_LABEL */
+   Leave(100);
    return false;
 }
 
@@ -415,6 +471,8 @@ bail_out:
  * Write a volume label. This is ONLY called if we have a valid Bacula
  *   label of type PRE_LABEL or we are recyling an existing Volume.
  *
+ * By calling write_volume_label_to_block
+ *
  *  Returns: true if OK
  *           false if unable to write it
  */
@@ -422,71 +480,87 @@ bool DCR::rewrite_volume_label(bool recycle)
 {
    DCR *dcr = this;
 
+   Enter(100);
+   ASSERT(dcr->VolumeName[0]);
    if (!dev->open(dcr, OPEN_READ_WRITE)) {
-       Jmsg3(jcr, M_WARNING, 0, _("Open device %s Volume \"%s\" failed: ERR=%s\n"),
-             dev->print_name(), dcr->VolumeName, dev->bstrerror());
+       Jmsg4(jcr, M_WARNING, 0, _("Open %s device %s Volume \"%s\" failed: ERR=%s\n"),
+             dev->print_type(), dev->print_name(), dcr->VolumeName, dev->bstrerror());
+      Leave(100);
       return false;
    }
    Dmsg2(190, "set append found freshly labeled volume. fd=%d dev=%x\n", dev->fd(), dev);
    dev->VolHdr.LabelType = VOL_LABEL; /* set Volume label */
    dev->set_append();
-   if (!write_volume_label_to_block(dcr)) {
-      Dmsg0(200, "Error from write volume label.\n");
-      return false;
-   }
-   Dmsg1(150, "wrote vol label to block. Vol=%s\n", dcr->VolumeName);
+   Dmsg0(100, "Rewrite_volume_label set volcatbytes=0\n");
+   dev->clearVolCatBytes();
+   dev->setVolCatStatus("Append");    /* set append status */
 
-   dev->setVolCatInfo(false);
-   dev->VolCatInfo.VolCatBytes = 0;        /* reset byte count */
-
-   /*
-    * If we are not dealing with a streaming device,
-    *  write the block now to ensure we have write permission.
-    *  It is better to find out now rather than later.
-    * We do not write the block now if this is an ANSI label. This
-    *  avoids re-writing the ANSI label, which we do not want to do.
-    */
    if (!dev->has_cap(CAP_STREAM)) {
       if (!dev->rewind(dcr)) {
-         Jmsg2(jcr, M_FATAL, 0, _("Rewind error on device %s: ERR=%s\n"),
-               dev->print_name(), dev->print_errmsg());
+         Jmsg3(jcr, M_FATAL, 0, _("Rewind error on %s device %s: ERR=%s\n"),
+               dev->print_type(), dev->print_name(), dev->print_errmsg());
+         Leave(100);
          return false;
       }
       if (recycle) {
          Dmsg1(150, "Doing recycle. Vol=%s\n", dcr->VolumeName);
          if (!dev->truncate(dcr)) {
-            Jmsg2(jcr, M_FATAL, 0, _("Truncate error on device %s: ERR=%s\n"),
-                  dev->print_name(), dev->print_errmsg());
+            Jmsg3(jcr, M_FATAL, 0, _("Truncate error on %s device %s: ERR=%s\n"),
+                  dev->print_type(), dev->print_name(), dev->print_errmsg());
+            Leave(100);
             return false;
          }
          if (!dev->open(dcr, OPEN_READ_WRITE)) {
-            Jmsg2(jcr, M_FATAL, 0,
-               _("Failed to re-open DVD after truncate on device %s: ERR=%s\n"),
-               dev->print_name(), dev->print_errmsg());
+            Jmsg3(jcr, M_FATAL, 0,
+               _("Failed to re-open DVD after truncate on %s device %s: ERR=%s\n"),
+               dev->print_type(), dev->print_name(), dev->print_errmsg());
+            Leave(100);
             return false;
          }
       }
+   }
+
+   if (!write_volume_label_to_block(dcr)) {
+      Dmsg0(150, "Error from write volume label.\n");
+      Leave(100);
+      return false;
+   }
+   Dmsg1(100, "wrote vol label to block. Vol=%s\n", dcr->VolumeName);
+
+   ASSERT(dcr->VolumeName[0]);
+   dev->setVolCatInfo(false);
 
+   /*
+    * If we are not dealing with a streaming device,
+    *  write the block now to ensure we have write permission.
+    *  It is better to find out now rather than later.
+    * We do not write the block now if this is an ANSI label. This
+    *  avoids re-writing the ANSI label, which we do not want to do.
+    */
+   if (!dev->has_cap(CAP_STREAM)) {
       /*
        * If we have already detected an ANSI label, re-read it
-       *   to skip past it. Otherwise, we write a new one if 
-       *   so requested.  
+       *   to skip past it. Otherwise, we write a new one if
+       *   so requested.
        */
       if (dev->label_type != B_BACULA_LABEL) {
          if (read_ansi_ibm_label(dcr) != VOL_OK) {
             dev->rewind(dcr);
+            Leave(100);
             return false;
          }
       } else if (!write_ansi_ibm_labels(dcr, ANSI_VOL_LABEL, dev->VolHdr.VolumeName)) {
+         Leave(100);
          return false;
       }
 
       /* Attempt write to check write permission */
       Dmsg1(200, "Attempt to write to device fd=%d.\n", dev->fd());
       if (!dcr->write_block_to_dev()) {
-         Jmsg2(jcr, M_ERROR, 0, _("Unable to write device %s: ERR=%s\n"),
-            dev->print_name(), dev->print_errmsg());
+         Jmsg3(jcr, M_ERROR, 0, _("Unable to write %s device %s: ERR=%s\n"),
+            dev->print_type(), dev->print_name(), dev->print_errmsg());
          Dmsg0(200, "===ERROR write block to dev\n");
+         Leave(100);
          return false;
       }
    }
@@ -507,25 +581,28 @@ bool DCR::rewrite_volume_label(bool recycle)
       dev->VolCatInfo.VolCatWrites = 1;
       dev->VolCatInfo.VolCatReads = 1;
    }
-   Dmsg1(150, "dir_update_vol_info. Set Append vol=%s\n", dcr->VolumeName);
+   Dmsg1(100, "dir_update_vol_info. Set Append vol=%s\n", dcr->VolumeName);
    dev->VolCatInfo.VolFirstWritten = time(NULL);
-   bstrncpy(dev->VolCatInfo.VolCatStatus, "Append", sizeof(dev->VolCatInfo.VolCatStatus));
+   dev->setVolCatStatus("Append");
+   ASSERT(dcr->VolumeName[0]);
    dev->setVolCatName(dcr->VolumeName);
    if (!dir_update_volume_info(dcr, true, true)) {  /* indicate doing relabel */
+      Leave(100);
       return false;
    }
    if (recycle) {
-      Jmsg(jcr, M_INFO, 0, _("Recycled volume \"%s\" on device %s, all previous data lost.\n"),
-         dcr->VolumeName, dev->print_name());
+      Jmsg(jcr, M_INFO, 0, _("Recycled volume \"%s\" on %s device %s, all previous data lost.\n"),
+         dcr->VolumeName, dev->print_type(), dev->print_name());
    } else {
-      Jmsg(jcr, M_INFO, 0, _("Wrote label to prelabeled Volume \"%s\" on device %s\n"),
-         dcr->VolumeName, dev->print_name());
+      Jmsg(jcr, M_INFO, 0, _("Wrote label to prelabeled Volume \"%s\" on %s device %s\n"),
+         dcr->VolumeName, dev->print_type(), dev->print_name());
    }
    /*
     * End writing real Volume label (from pre-labeled tape), or recycling
     *  the volume.
     */
-   Dmsg1(150, "OK from rewrite vol label. Vol=%s\n", dcr->VolumeName);
+   Dmsg1(100, "OK from rewrite vol label. Vol=%s\n", dcr->VolumeName);
+   Leave(100);
    return true;
 }
 
@@ -536,7 +613,8 @@ bool DCR::rewrite_volume_label(bool recycle)
  *   Assumes that the dev->VolHdr structure is properly
  *   initialized.
 */
-static void create_volume_label_record(DCR *dcr, DEVICE *dev, DEV_RECORD *rec)
+static void create_volume_label_record(DCR *dcr, DEVICE *dev,
+     DEV_RECORD *rec, bool alt)
 {
    ser_declare;
    struct date_time dt;
@@ -545,7 +623,9 @@ static void create_volume_label_record(DCR *dcr, DEVICE *dev, DEV_RECORD *rec)
 
    /* Serialize the label into the device record. */
 
+   Enter(100);
    rec->data = check_pool_memory_size(rec->data, SER_LENGTH_Volume_Label);
+   memset(rec->data, 0, SER_LENGTH_Volume_Label);
    ser_begin(rec->data, SER_LENGTH_Volume_Label);
    ser_string(dev->VolHdr.Id);
 
@@ -578,34 +658,36 @@ static void create_volume_label_record(DCR *dcr, DEVICE *dev, DEV_RECORD *rec)
    ser_string(dev->VolHdr.LabelProg);
    ser_string(dev->VolHdr.ProgVersion);
    ser_string(dev->VolHdr.ProgDate);
-      
+
    ser_end(rec->data, SER_LENGTH_Volume_Label);
    bstrncpy(dcr->VolumeName, dev->VolHdr.VolumeName, sizeof(dcr->VolumeName));
+   ASSERT(dcr->VolumeName[0]);
    rec->data_len = ser_length(rec->data);
    rec->FileIndex = dev->VolHdr.LabelType;
+   Dmsg1(100, "LabelType=%d\n", dev->VolHdr.LabelType);
    rec->VolSessionId = jcr->VolSessionId;
    rec->VolSessionTime = jcr->VolSessionTime;
    rec->Stream = jcr->NumWriteVolumes;
    rec->maskedStream = jcr->NumWriteVolumes;
-   Dmsg2(150, "Created Vol label rec: FI=%s len=%d\n", FI_to_ascii(buf, rec->FileIndex),
+   Dmsg2(100, "Created Vol label rec: FI=%s len=%d\n", FI_to_ascii(buf, rec->FileIndex),
       rec->data_len);
+   Dmsg2(100, "reclen=%d recdata=%s\n", rec->data_len, rec->data);
+   Leave(100);
 }
 
 
 /*
- * Create a volume label in memory
+ * Create a volume header in memory
  */
-void create_volume_label(DEVICE *dev, const char *VolName, 
+void create_volume_header(DEVICE *dev, const char *VolName,
                          const char *PoolName, bool dvdnow)
 {
    DEVRES *device = (DEVRES *)dev->device;
 
-   Dmsg0(130, "Start create_volume_label()\n");
+   Dmsg0(130, "Start create_volume_header()\n");
 
    ASSERT(dev != NULL);
 
-   dev->clear_volhdr();          /* clear any old volume info */
-
    bstrncpy(dev->VolHdr.Id, BaculaId, sizeof(dev->VolHdr.Id));
    dev->VolHdr.VerNum = BaculaTapeVersion;
    if (dev->is_dvd() && dvdnow) {
@@ -628,10 +710,10 @@ void create_volume_label(DEVICE *dev, const char *VolName,
       dev->VolHdr.HostName[0] = 0;
    }
    bstrncpy(dev->VolHdr.LabelProg, my_name, sizeof(dev->VolHdr.LabelProg));
-   sprintf(dev->VolHdr.ProgVersion, "Ver. %s %s", VERSION, BDATE);
-   sprintf(dev->VolHdr.ProgDate, "Build %s %s", __DATE__, __TIME__);
+   sprintf(dev->VolHdr.ProgVersion, "Ver. %s %s ", VERSION, BDATE);
+   sprintf(dev->VolHdr.ProgDate, "Build %s %s ", __DATE__, __TIME__);
    dev->set_labeled();               /* set has Bacula label */
-   if (debug_level >= 90) {
+   if (chk_dbglvl(100)) {
       dump_volume_label(dev);
    }
 }
@@ -645,6 +727,7 @@ void create_session_label(DCR *dcr, DEV_RECORD *rec, int label)
    JCR *jcr = dcr->jcr;
    ser_declare;
 
+   Enter(100);
    rec->VolSessionId   = jcr->VolSessionId;
    rec->VolSessionTime = jcr->VolSessionTime;
    rec->Stream         = jcr->JobId;
@@ -688,6 +771,7 @@ void create_session_label(DCR *dcr, DEV_RECORD *rec, int label)
    }
    ser_end(rec->data, SER_LENGTH_Session_Label);
    rec->data_len = ser_length(rec->data);
+   Leave(100);
 }
 
 /* Write session label
@@ -702,6 +786,7 @@ bool write_session_label(DCR *dcr, int label)
    DEV_BLOCK *block = dcr->block;
    char buf1[100], buf2[100];
 
+   Enter(100);
    rec = new_record();
    Dmsg1(130, "session_label record=%x\n", rec);
    switch (label) {
@@ -718,7 +803,7 @@ bool write_session_label(DCR *dcr, int label)
       }
       break;
    default:
-      Jmsg1(jcr, M_ABORT, 0, _("Bad Volume session label %d\n"), label);
+      Jmsg1(jcr, M_ABORT, 0, _("Bad Volume session label request=%d\n"), label);
       break;
    }
    create_session_label(dcr, rec, label);
@@ -736,11 +821,18 @@ bool write_session_label(DCR *dcr, int label)
       if (!dcr->write_block_to_device()) {
          Dmsg0(130, "Got session label write_block_to_dev error.\n");
          free_record(rec);
+         Leave(100);
          return false;
       }
    }
-   if (!write_record_to_block(dcr, rec)) {
+   /*
+    * We use write_record() because it handles the case that
+    *  the maximum user size has been reached.
+    */
+   if (!dcr->write_record(rec)) {
+      Dmsg0(150, "Bad return from write_record\n");
       free_record(rec);
+      Leave(100);
       return false;
    }
 
@@ -753,6 +845,7 @@ bool write_session_label(DCR *dcr, int label)
    free_record(rec);
    Dmsg2(150, "Leave write_session_label Block=%ud File=%ud\n",
       dev->get_block_num(), dev->get_file());
+   Leave(100);
    return true;
 }
 
@@ -772,12 +865,14 @@ bool unser_volume_label(DEVICE *dev, DEV_RECORD *rec)
    ser_declare;
    char buf1[100], buf2[100];
 
+   Enter(100);
    if (rec->FileIndex != VOL_LABEL && rec->FileIndex != PRE_LABEL) {
       Mmsg3(dev->errmsg, _("Expecting Volume Label, got FI=%s Stream=%s len=%d\n"),
               FI_to_ascii(buf1, rec->FileIndex),
               stream_to_ascii(buf2, rec->Stream, rec->FileIndex),
               rec->data_len);
       if (!forge_on) {
+         Leave(100);
          return false;
       }
    }
@@ -787,7 +882,9 @@ bool unser_volume_label(DEVICE *dev, DEV_RECORD *rec)
 
 
    /* Unserialize the record into the Volume Header */
+   Dmsg2(100, "reclen=%d recdata=%s\n", rec->data_len, rec->data);
    rec->data = check_pool_memory_size(rec->data, SER_LENGTH_Volume_Label);
+   Dmsg2(100, "reclen=%d recdata=%s\n", rec->data_len, rec->data);
    ser_begin(rec->data, SER_LENGTH_Volume_Label);
    unser_string(dev->VolHdr.Id);
    unser_uint32(dev->VolHdr.VerNum);
@@ -815,9 +912,10 @@ bool unser_volume_label(DEVICE *dev, DEV_RECORD *rec)
 
    ser_end(rec->data, SER_LENGTH_Volume_Label);
    Dmsg0(190, "unser_vol_label\n");
-   if (debug_level >= 190) {
+   if (chk_dbglvl(100)) {
       dump_volume_label(dev);
    }
+   Leave(100);
    return true;
 }
 
@@ -826,6 +924,7 @@ bool unser_session_label(SESSION_LABEL *label, DEV_RECORD *rec)
 {
    ser_declare;
 
+   Enter(100);
    rec->data = check_pool_memory_size(rec->data, SER_LENGTH_Session_Label);
    unser_begin(rec->data, SER_LENGTH_Session_Label);
    unser_string(label->Id);
@@ -866,12 +965,13 @@ bool unser_session_label(SESSION_LABEL *label, DEV_RECORD *rec)
          label->JobStatus = JS_Terminated; /* kludge */
       }
    }
+   Leave(100);
    return true;
 }
 
 void dump_volume_label(DEVICE *dev)
 {
-   int dbl = debug_level;
+   int64_t dbl = debug_level;
    uint32_t File;
    const char *LabelType;
    char buf[30];
@@ -943,7 +1043,7 @@ bail_out:
 
 static void dump_session_label(DEV_RECORD *rec, const char *type)
 {
-   int dbl;
+   int64_t dbl;
    struct date_time dt;
    struct tm tm;
    SESSION_LABEL label;
@@ -1010,7 +1110,7 @@ static void dump_session_label(DEV_RECORD *rec, const char *type)
 void dump_label_record(DEVICE *dev, DEV_RECORD *rec, int verbose)
 {
    const char *type;
-   int dbl;
+   int64_t dbl;
 
    if (rec->FileIndex == 0 && rec->VolSessionId == 0 && rec->VolSessionTime == 0) {
       return;
@@ -1055,15 +1155,15 @@ void dump_label_record(DEVICE *dev, DEV_RECORD *rec, int verbose)
          break;
       case EOM_LABEL:
          Pmsg7(-1, _("%s Record: File:blk=%u:%u SessId=%d SessTime=%d JobId=%d DataLen=%d\n"),
-            type, dev->file, dev->block_num, rec->VolSessionId, 
+            type, dev->file, dev->block_num, rec->VolSessionId,
             rec->VolSessionTime, rec->Stream, rec->data_len);
          break;
       case EOT_LABEL:
-         Pmsg0(-1, _("End of physical tape.\n"));
+         Pmsg0(-1, _("Bacula \"End of Tape\" label found.\n"));
          break;
       default:
          Pmsg7(-1, _("%s Record: File:blk=%u:%u SessId=%d SessTime=%d JobId=%d DataLen=%d\n"),
-            type, dev->file, dev->block_num, rec->VolSessionId, 
+            type, dev->file, dev->block_num, rec->VolSessionId,
             rec->VolSessionTime, rec->Stream, rec->data_len);
          break;
       }
@@ -1096,7 +1196,7 @@ void dump_label_record(DEVICE *dev, DEV_RECORD *rec, int verbose)
       case VOL_LABEL:
       default:
          Pmsg7(-1, _("%s Record: File:blk=%u:%u SessId=%d SessTime=%d JobId=%d DataLen=%d\n"),
-            type, dev->file, dev->block_num, rec->VolSessionId, rec->VolSessionTime, 
+            type, dev->file, dev->block_num, rec->VolSessionId, rec->VolSessionTime,
             rec->Stream, rec->data_len);
          break;
       case EOT_LABEL: