git.sur5r.net Git - bacula/bacula/blob - bacula/src/stored/mount.c

   1 /*
   2  *
   3  *  Routines for handling mounting tapes for reading and for
   4  *    writing.
   5  *
   6  *   Kern Sibbald, August MMII
   7  *
   8  *   Version $Id$
   9  */
  10 /*
  11    Copyright (C) 2002-2006 Kern Sibbald
  12
  13    This program is free software; you can redistribute it and/or
  14    modify it under the terms of the GNU General Public License
  15    version 2 as amended with additional clauses defined in the
  16    file LICENSE in the main source directory.
  17
  18    This program is distributed in the hope that it will be useful,
  19    but WITHOUT ANY WARRANTY; without even the implied warranty of
  20    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  21    the file LICENSE for additional details.
  22
  23  */
  24
  25 #include "bacula.h"                   /* pull in global headers */
  26 #include "stored.h"                   /* pull in Storage Deamon headers */
  27
  28 static void mark_volume_not_inchanger(DCR *dcr);
  29 static int try_autolabel(DCR *dcr);
  30
  31 enum {
  32    try_next_vol = 1,
  33    try_read_vol,
  34    try_error,
  35    try_default
  36 };
  37
  38 /*
  39  * If release is set, we rewind the current volume,
  40  * which we no longer want, and ask the user (console)
  41  * to mount the next volume.
  42  *
  43  *  Continue trying until we get it, and then ensure
  44  *  that we can write on it.
  45  *
  46  * This routine returns a 0 only if it is REALLY
  47  *  impossible to get the requested Volume.
  48  *
  49  */
  50 bool mount_next_write_volume(DCR *dcr, bool release)
  51 {
  52    int retry = 0;
  53    bool ask = false, recycle, autochanger;
  54    int vol_label_status;
  55    DEVICE *dev = dcr->dev;
  56    JCR *jcr = dcr->jcr;
  57    DEV_BLOCK *block = dcr->block;
  58    int mode;
  59
  60    Dmsg2(150, "Enter mount_next_volume(release=%d) dev=%s\n", release,
  61       dev->print_name());
  62
  63    init_device_wait_timers(dcr);
  64
  65    /*
  66     * Attempt to mount the next volume. If something non-fatal goes
  67     *  wrong, we come back here to re-try (new op messages, re-read
  68     *  Volume, ...)
  69     */
  70 mount_next_vol:
  71    Dmsg1(150, "mount_next_vol retry=%d\n", retry);
  72    /* Ignore retry if this is poll request */
  73    if (!dev->poll && retry++ > 4) {
  74       /* Last ditch effort before giving up, force operator to respond */
  75       dcr->VolCatInfo.Slot = 0;
  76       if (!dir_ask_sysop_to_mount_volume(dcr)) {
  77          Jmsg(jcr, M_FATAL, 0, _("Too many errors trying to mount device %s.\n"),
  78               dev->print_name());
  79          return false;
  80       }
  81    }
  82    if (job_canceled(jcr)) {
  83       Jmsg(jcr, M_FATAL, 0, _("Job %d canceled.\n"), jcr->JobId);
  84       return false;
  85    }
  86    recycle = false;
  87    if (release) {
  88       Dmsg0(150, "mount_next_volume release=1\n");
  89       release_volume(dcr);
  90       ask = true;                     /* ask operator to mount tape */
  91    }
  92
  93    /*
  94     * Get Director's idea of what tape we should have mounted.
  95     *    in dcr->VolCatInfo
  96     */
  97    Dmsg0(200, "Before dir_find_next_appendable_volume.\n");
  98    while (!dir_find_next_appendable_volume(dcr)) {
  99        Dmsg0(200, "not dir_find_next\n");
 100        if (!dir_ask_sysop_to_create_appendable_volume(dcr)) {
 101          return false;
 102        }
 103        Dmsg0(200, "Again dir_find_next_append...\n");
 104    }
 105    if (job_canceled(jcr)) {
 106       return false;
 107    }
 108    Dmsg3(150, "After find_next_append. Vol=%s Slot=%d Parts=%d\n",
 109          dcr->VolCatInfo.VolCatName, dcr->VolCatInfo.Slot, dcr->VolCatInfo.VolCatParts);
 110
 111    /*
 112     * Get next volume and ready it for append
 113     * This code ensures that the device is ready for
 114     * writing. We start from the assumption that there
 115     * may not be a tape mounted.
 116     *
 117     * If the device is a file, we create the output
 118     * file. If it is a tape, we check the volume name
 119     * and move the tape to the end of data.
 120     *
 121     */
 122    if (autoload_device(dcr, 1, NULL) > 0) {
 123       autochanger = true;
 124       ask = false;
 125    } else {
 126       autochanger = false;
 127       dcr->VolCatInfo.Slot = 0;
 128    }
 129    Dmsg1(200, "autoload_dev returns %d\n", autochanger);
 130    /*
 131     * If we autochanged to correct Volume or (we have not just
 132     *   released the Volume AND we can automount) we go ahead
 133     *   and read the label. If there is no tape in the drive,
 134     *   we will err, recurse and ask the operator the next time.
 135     */
 136    if (!release && dev->is_tape() && dev->has_cap(CAP_AUTOMOUNT)) {
 137       Dmsg0(150, "(1)Ask=0\n");
 138       ask = false;                 /* don't ask SYSOP this time */
 139    }
 140    /* Don't ask if not removable */
 141    if (!dev->is_removable()) {
 142       Dmsg0(150, "(2)Ask=0\n");
 143       ask = false;
 144    }
 145    Dmsg2(150, "Ask=%d autochanger=%d\n", ask, autochanger);
 146    release = true;                /* release next time if we "recurse" */
 147
 148    if (ask && !dir_ask_sysop_to_mount_volume(dcr)) {
 149       Dmsg0(150, "Error return ask_sysop ...\n");
 150       return false;          /* error return */
 151    }
 152    if (job_canceled(jcr)) {
 153       return false;
 154    }
 155    Dmsg1(150, "want vol=%s\n", dcr->VolumeName);
 156
 157    if (dev->poll && dev->has_cap(CAP_CLOSEONPOLL)) {
 158       dev->close();
 159    }
 160
 161    /* Ensure the device is open */
 162    if (dev_cap(dev, CAP_STREAM)) {
 163       mode = OPEN_WRITE_ONLY;
 164    } else {
 165       mode = OPEN_READ_WRITE;
 166    }
 167    while (dev->open(dcr, mode) < 0) {
 168       Dmsg1(150, "open_device failed: ERR=%s\n", dev->bstrerror());
 169       if (dev->is_file() && dev->is_removable()) {
 170          Dmsg0(150, "call scan_dir_for_vol\n");
 171          if (dev->scan_dir_for_volume(dcr)) {
 172             break;                    /* got a valid volume */
 173          }
 174       }
 175       if (try_autolabel(dcr) == try_read_vol) {
 176          break;                       /* created a new volume label */
 177       }
 178       /* If DVD, ignore the error, very often you cannot open the device
 179        * (when there is no DVD, or when the one inserted is a wrong one) */
 180       if (dev->poll || dev->is_dvd() || dev->is_removable()) {
 181          goto mount_next_vol;
 182       } else {
 183          return false;
 184       }
 185    }
 186
 187    /*
 188     * Now make sure we have the right tape mounted
 189     */
 190 read_volume:
 191    /*
 192     * If we are writing to a stream device, ASSUME the volume label
 193     *  is correct.
 194     */
 195    if (dev->has_cap(CAP_STREAM)) {
 196       vol_label_status = VOL_OK;
 197       create_volume_label(dev, dcr->VolumeName, "Default", false /* not DVD */);
 198       dev->VolHdr.LabelType = PRE_LABEL;
 199    } else {
 200       vol_label_status = read_dev_volume_label(dcr);
 201    }
 202    if (job_canceled(jcr)) {
 203       return false;
 204    }
 205
 206    Dmsg2(150, "Want dirVol=%s dirStat=%s\n", dcr->VolumeName,
 207       dcr->VolCatInfo.VolCatStatus);
 208    /*
 209     * At this point, dev->VolCatInfo has what is in the drive, if anything,
 210     *          and   dcr->VolCatInfo has what the Director wants.
 211     */
 212    switch (vol_label_status) {
 213    case VOL_OK:
 214       Dmsg1(150, "Vol OK name=%s\n", dcr->VolumeName);
 215       memcpy(&dev->VolCatInfo, &dcr->VolCatInfo, sizeof(dev->VolCatInfo));
 216       recycle = strcmp(dev->VolCatInfo.VolCatStatus, "Recycle") == 0;
 217       break;                    /* got a Volume */
 218    case VOL_NAME_ERROR:
 219       VOLUME_CAT_INFO dcrVolCatInfo, devVolCatInfo;
 220
 221       /* If not removable, Volume is broken */
 222       if (!dev->is_removable()) {
 223          Jmsg(jcr, M_WARNING, 0, _("Volume \"%s\" not on device %s.\n"),
 224             dcr->VolumeName, dev->print_name());
 225          mark_volume_in_error(dcr);
 226          goto mount_next_vol;
 227       }
 228
 229       Dmsg1(150, "Vol NAME Error Name=%s\n", dcr->VolumeName);
 230       /* If polling and got a previous bad name, ignore it */
 231       if (dev->poll && strcmp(dev->BadVolName, dev->VolHdr.VolumeName) == 0) {
 232          ask = true;
 233          Dmsg1(200, "Vol Name error supress due to poll. Name=%s\n", dcr->VolumeName);
 234          goto mount_next_vol;
 235       }
 236       /*
 237        * OK, we got a different volume mounted. First save the
 238        *  requested Volume info (dcr) structure, then query if
 239        *  this volume is really OK. If not, put back the desired
 240        *  volume name, mark it not in changer and continue.
 241        */
 242       memcpy(&dcrVolCatInfo, &dcr->VolCatInfo, sizeof(dcrVolCatInfo));
 243       memcpy(&devVolCatInfo, &dev->VolCatInfo, sizeof(devVolCatInfo));
 244       /* Check if this is a valid Volume in the pool */
 245       bstrncpy(dcr->VolumeName, dev->VolHdr.VolumeName, sizeof(dcr->VolumeName));
 246       if (!dir_get_volume_info(dcr, GET_VOL_INFO_FOR_WRITE)) {
 247          /* Restore desired volume name, note device info out of sync */
 248          /* This gets the info regardless of the Pool */
 249          bstrncpy(dcr->VolumeName, dev->VolHdr.VolumeName, sizeof(dcr->VolumeName));
 250          if (autochanger && !dir_get_volume_info(dcr, GET_VOL_INFO_FOR_READ)) {
 251             /*
 252              * If we get here, we know we cannot write on the Volume,
 253              *  and we know that we cannot read it either, so it
 254              *  is not in the autochanger.
 255              */
 256             mark_volume_not_inchanger(dcr);
 257          }
 258          memcpy(&dev->VolCatInfo, &devVolCatInfo, sizeof(dev->VolCatInfo));
 259          bstrncpy(dev->BadVolName, dev->VolHdr.VolumeName, sizeof(dev->BadVolName));
 260          Jmsg(jcr, M_WARNING, 0, _("Director wanted Volume \"%s\".\n"
 261               "    Current Volume \"%s\" not acceptable because:\n"
 262               "    %s"),
 263              dcrVolCatInfo.VolCatName, dev->VolHdr.VolumeName,
 264              jcr->dir_bsock->msg);
 265          ask = true;
 266          /* Restore saved DCR before continuing */
 267          memcpy(&dcr->VolCatInfo, &dcrVolCatInfo, sizeof(dcr->VolCatInfo));
 268          goto mount_next_vol;
 269       }
 270       /*
 271        * This was not the volume we expected, but it is OK with
 272        * the Director, so use it.
 273        */
 274       Dmsg1(150, "want new name=%s\n", dcr->VolumeName);
 275       memcpy(&dev->VolCatInfo, &dcr->VolCatInfo, sizeof(dev->VolCatInfo));
 276       recycle = strcmp(dev->VolCatInfo.VolCatStatus, "Recycle") == 0;
 277       break;                /* got a Volume */
 278    /*
 279     * At this point, we assume we have a blank tape mounted.
 280     */
 281    case VOL_IO_ERROR:
 282       if (dev->is_dvd()) {
 283          Jmsg(jcr, M_FATAL, 0, "%s", jcr->errmsg);
 284          mark_volume_in_error(dcr);
 285          return false;       /* we could not write on DVD */
 286       }
 287       /* Fall through wanted */
 288    case VOL_NO_LABEL:
 289       switch (try_autolabel(dcr)) {
 290       case try_next_vol:
 291          goto mount_next_vol;
 292       case try_read_vol:
 293          goto read_volume;
 294       case try_error:
 295          return false;
 296       case try_default:
 297          break;
 298       }
 299
 300       /* NOTE! Fall-through wanted. */
 301    case VOL_NO_MEDIA:
 302    default:
 303       Dmsg0(200, "VOL_NO_MEDIA or default.\n");
 304       /* Send error message */
 305       if (!dev->poll) {
 306       } else {
 307          Dmsg1(200, "Msg suppressed by poll: %s\n", jcr->errmsg);
 308       }
 309       ask = true;
 310       /* Needed, so the medium can be changed */
 311       if (dev->requires_mount()) {
 312          dev->close();
 313       }
 314       goto mount_next_vol;
 315    }
 316
 317    /*
 318     * See if we have a fresh tape or a tape with data.
 319     *
 320     * Note, if the LabelType is PRE_LABEL, it was labeled
 321     *  but never written. If so, rewrite the label but set as
 322     *  VOL_LABEL.  We rewind and return the label (reconstructed)
 323     *  in the block so that in the case of a new tape, data can
 324     *  be appended just after the block label.  If we are writing
 325     *  a second volume, the calling routine will write the label
 326     *  before writing the overflow block.
 327     *
 328     *  If the tape is marked as Recycle, we rewrite the label.
 329     */
 330    if (dev->VolHdr.LabelType == PRE_LABEL || recycle) {
 331       if (!rewrite_volume_label(dcr, recycle)) {
 332          mark_volume_in_error(dcr);
 333          goto mount_next_vol;
 334       }
 335    } else {
 336       /*
 337        * OK, at this point, we have a valid Bacula label, but
 338        * we need to position to the end of the volume, since we are
 339        * just now putting it into append mode.
 340        */
 341       Dmsg0(200, "Device previously written, moving to end of data\n");
 342       Jmsg(jcr, M_INFO, 0, _("Volume \"%s\" previously written, moving to end of data.\n"),
 343          dcr->VolumeName);
 344       if (!dev->eod()) {
 345          Jmsg(jcr, M_ERROR, 0, _("Unable to position to end of data on device %s: ERR=%s\n"),
 346             dev->print_name(), dev->bstrerror());
 347          mark_volume_in_error(dcr);
 348          goto mount_next_vol;
 349       }
 350       if (dev->is_dvd()) {
 351          char ed1[50], ed2[50];
 352          if (dev->VolCatInfo.VolCatBytes == dev->part_start + dev->part_size) {
 353             Jmsg(jcr, M_INFO, 0, _("Ready to append to end of Volume \"%s\""
 354                  " part=%d size=%s\n"), dcr->VolumeName,
 355                  dev->part, edit_uint64(dev->VolCatInfo.VolCatBytes,ed1));
 356          } else {
 357             Jmsg(jcr, M_ERROR, 0, _("I cannot write on Volume \"%s\" because: "
 358                  "The sizes do not match! Volume=%s Catalog=%s\n"),
 359                  dcr->VolumeName,
 360                  edit_uint64(dev->part_start + dev->part_size, ed1),
 361                  edit_uint64(dev->VolCatInfo.VolCatBytes, ed2));
 362             mark_volume_in_error(dcr);
 363             goto mount_next_vol;
 364          }
 365       }
 366       /* *****FIXME**** we should do some checking for files too */
 367       if (dev->is_tape()) {
 368          /*
 369           * Check if we are positioned on the tape at the same place
 370           * that the database says we should be.
 371           */
 372          if (dev->VolCatInfo.VolCatFiles == dev_file(dev)) {
 373             Jmsg(jcr, M_INFO, 0, _("Ready to append to end of Volume \"%s\" at file=%d.\n"),
 374                  dcr->VolumeName, dev_file(dev));
 375          } else {
 376             Jmsg(jcr, M_ERROR, 0, _("I cannot write on Volume \"%s\" because:\n"
 377                  "The number of files mismatch! Volume=%u Catalog=%u\n"),
 378                  dcr->VolumeName, dev_file(dev), dev->VolCatInfo.VolCatFiles);
 379             mark_volume_in_error(dcr);
 380             goto mount_next_vol;
 381          }
 382       }
 383       dev->VolCatInfo.VolCatMounts++;      /* Update mounts */
 384       Dmsg1(150, "update volinfo mounts=%d\n", dev->VolCatInfo.VolCatMounts);
 385       if (!dir_update_volume_info(dcr, false)) {
 386          return false;
 387       }
 388
 389       /*
 390        * DVD : check if the last part was removed or truncated, or if a written
 391        * part was overwritten.
 392        * We need to do it after dir_update_volume_info, so we have the EndBlock
 393        * info. (nb: I don't understand why VolCatFiles is set (used to check
 394        * tape file number), but not EndBlock)
 395        * Maybe could it be changed "dev->is_file()" (would remove the fixme above)
 396        *
 397        * Disabled: I had problems with this code...
 398        * (maybe is it related to the seek bug ?)
 399        */
 400 #ifdef xxx
 401       if (dev->is_dvd()) {
 402          Dmsg2(150, "DVD/File sanity check addr=%u vs endblock=%u\n", (unsigned int)dev->file_addr, (unsigned int)dev->VolCatInfo.EndBlock);
 403          if (dev->file_addr == dev->VolCatInfo.EndBlock+1) {
 404             Jmsg(jcr, M_INFO, 0, _("Ready to append to end of Volume \"%s\" at file address=%u.\n"),
 405                  dcr->VolumeName, (unsigned int)dev->file_addr);
 406          }
 407          else {
 408             Jmsg(jcr, M_ERROR, 0, _("I cannot write on Volume \"%s\" because:\n"
 409                                     "The EOD file address is wrong: Volume file address=%u != Catalog Endblock=%u(+1)\n"
 410                                     "You probably removed DVD last part in spool directory.\n"),
 411                  dcr->VolumeName, (unsigned int)dev->file_addr, (unsigned int)dev->VolCatInfo.EndBlock);
 412             mark_volume_in_error(dcr);
 413             goto mount_next_vol;
 414          }
 415       }
 416 #endif
 417
 418       /* Return an empty block */
 419       empty_block(block);             /* we used it for reading so set for write */
 420    }
 421    dev->set_append();
 422    Dmsg1(150, "set APPEND, normal return from mount_next_write_volume. dev=%s\n",
 423       dev->print_name());
 424
 425    return true;
 426 }
 427
 428 /*
 429  * If permitted, we label the device, make sure we can do
 430  *   it by checking that the VolCatBytes is zero => not labeled,
 431  *   once the Volume is labeled we don't want to label another
 432  *   blank tape with the same name.  For disk, we go ahead and
 433  *   label it anyway, because the OS insures that there is only
 434  *   one Volume with that name.
 435  * As noted above, at this point dcr->VolCatInfo has what
 436  *   the Director wants and dev->VolCatInfo has info on the
 437  *   previous tape (or nothing).
 438  */
 439 static int try_autolabel(DCR *dcr)
 440 {
 441    DEVICE *dev = dcr->dev;
 442    if (dev->has_cap(CAP_LABEL) && (dcr->VolCatInfo.VolCatBytes == 0 ||
 443          (!dev->is_tape() && strcmp(dcr->VolCatInfo.VolCatStatus,
 444                                 "Recycle") == 0))) {
 445       Dmsg0(150, "Create volume label\n");
 446       /* Create a new Volume label and write it to the device */
 447       if (!write_new_volume_label_to_dev(dcr, dcr->VolumeName,
 448              dcr->pool_name, false /* defer DVD label */)) {
 449          Dmsg0(150, "!write_vol_label\n");
 450          mark_volume_in_error(dcr);
 451          return try_next_vol;
 452       }
 453       Dmsg0(150, "dir_update_vol_info. Set Append\n");
 454       /* Copy Director's info into the device info */
 455       memcpy(&dev->VolCatInfo, &dcr->VolCatInfo, sizeof(dev->VolCatInfo));
 456       if (!dir_update_volume_info(dcr, true)) {  /* indicate tape labeled */
 457          return try_error;
 458       }
 459       Jmsg(dcr->jcr, M_INFO, 0, _("Labeled new Volume \"%s\" on device %s.\n"),
 460          dcr->VolumeName, dev->print_name());
 461       return try_read_vol;   /* read label we just wrote */
 462    }
 463    if (!dev->has_cap(CAP_LABEL) && dcr->VolCatInfo.VolCatBytes == 0) {
 464       Jmsg(dcr->jcr, M_INFO, 0, _("Warning device %s not configured to autolabel Volumes.\n"),
 465          dev->print_name());
 466    }
 467    /* If not removable, Volume is broken */
 468    if (!dev->is_removable()) {
 469       Jmsg(dcr->jcr, M_WARNING, 0, _("Volume \"%s\" not on device %s.\n"),
 470          dcr->VolumeName, dev->print_name());
 471       mark_volume_in_error(dcr);
 472       return try_next_vol;
 473    }
 474    return try_default;
 475 }
 476
 477
 478 /*
 479  * Mark volume in error in catalog
 480  */
 481 void mark_volume_in_error(DCR *dcr)
 482 {
 483    DEVICE *dev = dcr->dev;
 484    Jmsg(dcr->jcr, M_INFO, 0, _("Marking Volume \"%s\" in Error in Catalog.\n"),
 485         dcr->VolumeName);
 486    memcpy(&dev->VolCatInfo, &dcr->VolCatInfo, sizeof(dev->VolCatInfo));
 487    bstrncpy(dev->VolCatInfo.VolCatStatus, "Error", sizeof(dev->VolCatInfo.VolCatStatus));
 488    Dmsg0(150, "dir_update_vol_info. Set Error.\n");
 489    dir_update_volume_info(dcr, false);
 490 }
 491
 492 /*
 493  * The Volume is not in the correct slot, so mark this
 494  *   Volume as not being in the Changer.
 495  */
 496 static void mark_volume_not_inchanger(DCR *dcr)
 497 {
 498    JCR *jcr = dcr->jcr;
 499    DEVICE *dev = dcr->dev;
 500    Jmsg(jcr, M_ERROR, 0, _("Autochanger Volume \"%s\" not found in slot %d.\n"
 501 "    Setting InChanger to zero in catalog.\n"),
 502         dcr->VolCatInfo.VolCatName, dcr->VolCatInfo.Slot);
 503    memcpy(&dev->VolCatInfo, &dcr->VolCatInfo, sizeof(dev->VolCatInfo));
 504    dcr->VolCatInfo.InChanger = false;
 505    dev->VolCatInfo.InChanger = false;
 506    Dmsg0(400, "update vol info in mount\n");
 507    dir_update_volume_info(dcr, true);  /* set new status */
 508 }
 509
 510 /*
 511  * Either because we are going to hang a new volume, or because
 512  *  of explicit user request, we release the current volume.
 513  */
 514 void release_volume(DCR *dcr)
 515 {
 516    JCR *jcr = dcr->jcr;
 517    DEVICE *dev = dcr->dev;
 518    if (dcr->WroteVol) {
 519       Jmsg0(jcr, M_ERROR, 0, _("Hey!!!!! WroteVol non-zero !!!!!\n"));
 520       Dmsg0(190, "Hey!!!!! WroteVol non-zero !!!!!\n");
 521    }
 522    /*
 523     * First erase all memory of the current volume
 524     */
 525    dev->block_num = dev->file = 0;
 526    dev->EndBlock = dev->EndFile = 0;
 527    memset(&dev->VolCatInfo, 0, sizeof(dev->VolCatInfo));
 528    memset(&dcr->VolCatInfo, 0, sizeof(dcr->VolCatInfo));
 529    free_volume(dev);
 530    memset(&dev->VolHdr, 0, sizeof(dev->VolHdr));
 531    /* Force re-read of label */
 532    dev->clear_labeled();
 533    dev->clear_read();
 534    dev->clear_append();
 535    dev->label_type = B_BACULA_LABEL;
 536    dcr->VolumeName[0] = 0;
 537
 538    if (dev->is_open() && (!dev->is_tape() || !dev_cap(dev, CAP_ALWAYSOPEN))) {
 539       dev->close();
 540    }
 541
 542    /* If we have not closed the device, then at least rewind the tape */
 543    if (dev->is_open()) {
 544       dev->offline_or_rewind();
 545    }
 546    Dmsg0(190, "release_volume\n");
 547 }
 548
 549 /*
 550  * If we are reading, we come here at the end of the tape
 551  *  and see if there are more volumes to be mounted.
 552  */
 553 bool mount_next_read_volume(DCR *dcr)
 554 {
 555    DEVICE *dev = dcr->dev;
 556    JCR *jcr = dcr->jcr;
 557    Dmsg2(90, "NumVolumes=%d CurVolume=%d\n", jcr->NumVolumes, jcr->CurVolume);
 558    /*
 559     * End Of Tape -- mount next Volume (if another specified)
 560     */
 561    if (jcr->NumVolumes > 1 && jcr->CurVolume < jcr->NumVolumes) {
 562       dev->close();
 563       if (!acquire_device_for_read(dcr)) {
 564          Jmsg2(jcr, M_FATAL, 0, _("Cannot open Dev=%s, Vol=%s\n"), dev->print_name(),
 565                dcr->VolumeName);
 566          return false;
 567       }
 568       return true;                    /* next volume mounted */
 569    }
 570    Dmsg0(90, "End of Device reached.\n");
 571    return false;
 572 }