2 Bacula® - The Network Backup Solution
4 Copyright (C) 2002-2008 Free Software Foundation Europe e.V.
6 The main author of Bacula is Kern Sibbald, with contributions from
7 many others, a complete list can be found in the file AUTHORS.
8 This program is Free Software; you can redistribute it and/or
9 modify it under the terms of version two of the GNU General Public
10 License as published by the Free Software Foundation and included
13 This program is distributed in the hope that it will be useful, but
14 WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with this program; if not, write to the Free Software
20 Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
23 Bacula® is a registered trademark of Kern Sibbald.
24 The licensor of Bacula is the Free Software Foundation Europe
25 (FSFE), Fiduciary Program, Sumatrastrasse 25, 8006 Zürich,
26 Switzerland, email:ftf@fsfeurope.org.
30 * Routines for handling mounting tapes for reading and for
33 * Kern Sibbald, August MMII
38 #include "bacula.h" /* pull in global headers */
39 #include "stored.h" /* pull in Storage Deamon headers */
57 * If release is set, we rewind the current volume,
58 * which we no longer want, and ask the user (console)
59 * to mount the next volume.
61 * Continue trying until we get it, and then ensure
62 * that we can write on it.
64 * This routine returns a 0 only if it is REALLY
65 * impossible to get the requested Volume.
68 bool DCR::mount_next_write_volume()
71 bool ask = false, recycle, autochanger;
76 Dmsg2(150, "Enter mount_next_volume(release=%d) dev=%s\n", dev->must_unload(),
79 init_device_wait_timers(dcr);
83 * Attempt to mount the next volume. If something non-fatal goes
84 * wrong, we come back here to re-try (new op messages, re-read
88 Dmsg1(150, "mount_next_vol retry=%d\n", retry);
89 /* Ignore retry if this is poll request */
90 if (!dev->poll && retry++ > 4) {
91 /* Last ditch effort before giving up, force operator to respond */
94 if (!dir_ask_sysop_to_mount_volume(dcr, ST_APPEND)) {
95 Jmsg(jcr, M_FATAL, 0, _("Too many errors trying to mount device %s.\n"),
97 goto no_lock_bail_out;
100 Dmsg1(150, "Continue after dir_ask_sysop_to_mount. must_load=%d\n", dev->must_load());
102 if (job_canceled(jcr)) {
103 Jmsg(jcr, M_FATAL, 0, _("Job %d canceled.\n"), jcr->JobId);
112 if (dev->must_unload()) {
113 ask = true; /* ask operator to mount tape */
114 do_find = true; /* re-find a volume after unload */
117 do_swapping(true /*is_writing*/);
118 do_load(true /*is_writing*/);
120 if (do_find && !find_a_volume()) {
121 goto no_lock_bail_out;
124 if (job_canceled(jcr)) {
127 Dmsg3(150, "After find_next_append. Vol=%s Slot=%d Parts=%d\n",
128 VolCatInfo.VolCatName, VolCatInfo.Slot, VolCatInfo.VolCatParts);
131 * Get next volume and ready it for append
132 * This code ensures that the device is ready for
133 * writing. We start from the assumption that there
134 * may not be a tape mounted.
136 * If the device is a file, we create the output
137 * file. If it is a tape, we check the volume name
138 * and move the tape to the end of data.
141 if (autoload_device(dcr, true/*writing*/, NULL) > 0) {
149 Dmsg1(150, "autoload_dev returns %d\n", autochanger);
151 * If we autochanged to correct Volume or (we have not just
152 * released the Volume AND we can automount) we go ahead
153 * and read the label. If there is no tape in the drive,
154 * we will fail, recurse and ask the operator the next time.
156 if (!dev->must_unload() && dev->is_tape() && dev->has_cap(CAP_AUTOMOUNT)) {
157 Dmsg0(250, "(1)Ask=0\n");
158 ask = false; /* don't ask SYSOP this time */
160 /* Don't ask if not removable */
161 if (!dev->is_removable()) {
162 Dmsg0(250, "(2)Ask=0\n");
165 Dmsg2(250, "Ask=%d autochanger=%d\n", ask, autochanger);
169 if (!dir_ask_sysop_to_mount_volume(dcr, ST_APPEND)) {
170 Dmsg0(150, "Error return ask_sysop ...\n");
171 goto no_lock_bail_out;
175 if (job_canceled(jcr)) {
178 Dmsg3(150, "want vol=%s devvol=%s dev=%s\n", VolumeName,
179 dev->VolHdr.VolumeName, dev->print_name());
181 if (dev->poll && dev->has_cap(CAP_CLOSEONPOLL)) {
185 /* Ensure the device is open */
186 if (dev->has_cap(CAP_STREAM)) {
187 mode = OPEN_WRITE_ONLY;
189 mode = OPEN_READ_WRITE;
191 /* Try autolabel if enabled */
192 if (dev->open(dcr, mode) < 0) {
193 try_autolabel(false); /* try to create a new volume label */
195 while (dev->open(dcr, mode) < 0) {
196 Dmsg1(150, "open_device failed: ERR=%s\n", dev->bstrerror());
197 if ((dev->is_file() && dev->is_removable()) || dev->is_dvd()) {
199 Dmsg0(150, "call scan_dir_for_vol\n");
201 if (!dev->mount(0)) {
205 if (ok && dev->scan_dir_for_volume(dcr)) {
206 if (dev->open(dcr, mode) >= 0) {
207 break; /* got a valid volume */
210 if (ok && dev->is_dvd()) {
214 if (try_autolabel(false) == try_read_vol) {
215 break; /* created a new volume label */
217 Dmsg0(50, "set_unload\n");
218 dev->set_unload(); /* force ask sysop */
220 Dmsg0(150, "goto mount_next_vol\n");
225 * Now check the volume label to make sure we have the right tape mounted
228 switch (check_volume_label(ask, autochanger)) {
230 Dmsg0(50, "set_unload\n");
231 dev->set_unload(); /* want a different Volume */
232 Dmsg0(150, "goto mount_next_vol\n");
243 * See if we have a fresh tape or a tape with data.
245 * Note, if the LabelType is PRE_LABEL, it was labeled
246 * but never written. If so, rewrite the label but set as
247 * VOL_LABEL. We rewind and return the label (reconstructed)
248 * in the block so that in the case of a new tape, data can
249 * be appended just after the block label. If we are writing
250 * a second volume, the calling routine will write the label
251 * before writing the overflow block.
253 * If the tape is marked as Recycle, we rewrite the label.
255 recycle = strcmp(dev->VolCatInfo.VolCatStatus, "Recycle") == 0;
256 if (dev->VolHdr.LabelType == PRE_LABEL || recycle) {
257 if (!rewrite_volume_label(dcr, recycle)) {
258 mark_volume_in_error();
263 * OK, at this point, we have a valid Bacula label, but
264 * we need to position to the end of the volume, since we are
265 * just now putting it into append mode.
267 Dmsg0(200, "Device previously written, moving to end of data\n");
268 Jmsg(jcr, M_INFO, 0, _("Volume \"%s\" previously written, moving to end of data.\n"),
271 if (!dev->eod(dcr)) {
272 Jmsg(jcr, M_ERROR, 0, _("Unable to position to end of data on device %s: ERR=%s\n"),
273 dev->print_name(), dev->bstrerror());
274 mark_volume_in_error();
277 if (!is_eod_valid()) {
278 Dmsg0(150, "goto mount_next_vol\n");
282 dev->VolCatInfo.VolCatMounts++; /* Update mounts */
283 Dmsg1(150, "update volinfo mounts=%d\n", dev->VolCatInfo.VolCatMounts);
284 if (!dir_update_volume_info(dcr, false, false)) {
288 /* Return an empty block */
289 empty_block(block); /* we used it for reading so set for write */
292 Dmsg1(150, "set APPEND, normal return from mount_next_write_volume. dev=%s\n",
306 * This routine is meant to be called once the first pass
307 * to ensure that we have a candidate volume to mount.
308 * Otherwise, we ask the sysop to created one.
310 bool DCR::find_a_volume()
313 if (!is_suitable_volume_mounted()) {
314 bool have_vol = false;
315 /* Do we have a candidate volume? */
317 bstrncpy(VolumeName, dev->vol->vol_name, sizeof(VolumeName));
318 have_vol = dir_get_volume_info(this, GET_VOL_INFO_FOR_WRITE);
321 * Get Director's idea of what tape we should have mounted.
325 Dmsg0(200, "Before dir_find_next_appendable_volume.\n");
326 while (!dir_find_next_appendable_volume(dcr)) {
327 Dmsg0(200, "not dir_find_next\n");
328 if (job_canceled(jcr)) {
333 if (!dir_ask_sysop_to_create_appendable_volume(dcr)) {
337 Dmsg0(150, "Again dir_find_next_append...\n");
344 int DCR::check_volume_label(bool &ask, bool &autochanger)
346 int vol_label_status;
348 * If we are writing to a stream device, ASSUME the volume label
351 if (dev->has_cap(CAP_STREAM)) {
352 vol_label_status = VOL_OK;
353 create_volume_label(dev, VolumeName, "Default", false /* not DVD */);
354 dev->VolHdr.LabelType = PRE_LABEL;
356 vol_label_status = read_dev_volume_label(this);
358 if (job_canceled(jcr)) {
362 Dmsg2(150, "Want dirVol=%s dirStat=%s\n", VolumeName,
363 VolCatInfo.VolCatStatus);
365 * At this point, dev->VolCatInfo has what is in the drive, if anything,
366 * and dcr->VolCatInfo has what the Director wants.
368 switch (vol_label_status) {
370 Dmsg1(150, "Vol OK name=%s\n", dev->VolHdr.VolumeName);
371 dev->VolCatInfo = VolCatInfo; /* structure assignment */
372 break; /* got a Volume */
374 VOLUME_CAT_INFO dcrVolCatInfo, devVolCatInfo;
375 char saveVolumeName[MAX_NAME_LENGTH];
377 Dmsg2(150, "Vol NAME Error Have=%s, want=%s\n", dev->VolHdr.VolumeName, VolumeName);
378 if (dev->is_volume_to_unload()) {
380 goto check_next_volume;
383 /* If not removable, Volume is broken */
384 if (!dev->is_removable()) {
385 Jmsg(jcr, M_WARNING, 0, _("Volume \"%s\" not on device %s.\n"),
386 VolumeName, dev->print_name());
387 mark_volume_in_error();
388 goto check_next_volume;
392 * OK, we got a different volume mounted. First save the
393 * requested Volume info (dcr) structure, then query if
394 * this volume is really OK. If not, put back the desired
395 * volume name, mark it not in changer and continue.
397 dcrVolCatInfo = VolCatInfo; /* structure assignment */
398 devVolCatInfo = dev->VolCatInfo; /* structure assignment */
399 /* Check if this is a valid Volume in the pool */
400 bstrncpy(saveVolumeName, VolumeName, sizeof(saveVolumeName));
401 bstrncpy(VolumeName, dev->VolHdr.VolumeName, sizeof(VolumeName));
402 if (!dir_get_volume_info(this, GET_VOL_INFO_FOR_WRITE)) {
403 POOL_MEM vol_info_msg;
404 pm_strcpy(vol_info_msg, jcr->dir_bsock->msg); /* save error message */
405 /* Restore desired volume name, note device info out of sync */
406 /* This gets the info regardless of the Pool */
407 bstrncpy(VolumeName, dev->VolHdr.VolumeName, sizeof(VolumeName));
408 if (autochanger && !dir_get_volume_info(this, GET_VOL_INFO_FOR_READ)) {
410 * If we get here, we know we cannot write on the Volume,
411 * and we know that we cannot read it either, so it
412 * is not in the autochanger.
414 mark_volume_not_inchanger();
416 dev->VolCatInfo = devVolCatInfo; /* structure assignment */
417 dev->set_unload(); /* unload this volume */
418 Jmsg(jcr, M_WARNING, 0, _("Director wanted Volume \"%s\".\n"
419 " Current Volume \"%s\" not acceptable because:\n"
421 dcrVolCatInfo.VolCatName, dev->VolHdr.VolumeName,
422 vol_info_msg.c_str());
424 /* Restore saved DCR before continuing */
425 bstrncpy(VolumeName, saveVolumeName, sizeof(VolumeName));
426 VolCatInfo = dcrVolCatInfo; /* structure assignment */
427 goto check_next_volume;
430 * This was not the volume we expected, but it is OK with
431 * the Director, so use it.
433 Dmsg1(150, "Got new Volume name=%s\n", VolumeName);
434 dev->VolCatInfo = VolCatInfo; /* structure assignment */
435 Dmsg1(100, "Call reserve_volume=%s\n", dev->VolHdr.VolumeName);
436 if (reserve_volume(this, dev->VolHdr.VolumeName) == NULL) {
437 Jmsg2(jcr, M_WARNING, 0, _("Could not reserve volume %s on %s\n"),
438 dev->VolHdr.VolumeName, dev->print_name());
440 goto check_next_volume;
442 break; /* got a Volume */
444 * At this point, we assume we have a blank tape mounted.
448 Jmsg(jcr, M_FATAL, 0, "%s", jcr->errmsg);
449 mark_volume_in_error();
450 goto check_bail_out; /* we could not write on DVD */
452 /* Fall through wanted */
454 switch (try_autolabel(true)) {
456 goto check_next_volume;
458 goto check_read_volume;
464 /* NOTE! Fall-through wanted. */
467 Dmsg0(200, "VOL_NO_MEDIA or default.\n");
468 /* Send error message */
471 Dmsg1(200, "Msg suppressed by poll: %s\n", jcr->errmsg);
474 /* Needed, so the medium can be changed */
475 if (dev->requires_mount()) {
478 goto check_next_volume;
483 return check_next_vol;
489 return check_read_vol;
494 bool DCR::is_suitable_volume_mounted()
496 /* Volume mounted? */
497 if (dev->VolHdr.VolumeName[0] == 0 || dev->swap_dev || dev->must_unload()) {
498 return false; /* no */
500 bstrncpy(VolumeName, dev->VolHdr.VolumeName, sizeof(VolumeName));
501 return dir_get_volume_info(this, GET_VOL_INFO_FOR_WRITE);
504 bool DCR::do_unload()
506 if (dev->must_unload()) {
507 Dmsg1(100, "must_unload release %s\n", dev->print_name());
513 bool DCR::do_load(bool is_writing)
515 if (dev->must_load()) {
516 Dmsg1(100, "Must load %s\n", dev->print_name());
517 if (autoload_device(this, is_writing, NULL) > 0) {
526 void DCR::do_swapping(bool is_writing)
529 * See if we are asked to swap the Volume from another device
530 * if so, unload the other device here, and attach the
531 * volume to our drive.
534 if (dev->swap_dev->must_unload()) {
536 dev->swap_dev->set_slot(dev->vol->get_slot());
538 Dmsg2(100, "Swap unloading slot=%d %s\n", dev->swap_dev->get_slot(),
539 dev->swap_dev->print_name());
540 unload_dev(this, dev->swap_dev);
543 dev->vol->clear_swapping();
544 Dmsg1(100, "=== set in_use vol=%s\n", dev->vol->vol_name);
545 dev->vol->set_in_use();
546 dev->VolHdr.VolumeName[0] = 0; /* don't yet have right Volume */
548 dev->swap_dev = NULL;
554 * Check if the current position on the volume corresponds to
555 * what is in the catalog.
557 bool DCR::is_eod_valid()
560 char ed1[50], ed2[50];
561 if (dev->VolCatInfo.VolCatBytes == dev->part_start + dev->part_size) {
562 Jmsg(jcr, M_INFO, 0, _("Ready to append to end of Volume \"%s\""
563 " part=%d size=%s\n"), VolumeName,
564 dev->part, edit_uint64(dev->VolCatInfo.VolCatBytes,ed1));
566 Jmsg(jcr, M_ERROR, 0, _("Bacula cannot write on DVD Volume \"%s\" because: "
567 "The sizes do not match! Volume=%s Catalog=%s\n"),
569 edit_uint64(dev->part_start + dev->part_size, ed1),
570 edit_uint64(dev->VolCatInfo.VolCatBytes, ed2));
571 mark_volume_in_error();
574 } else if (dev->is_tape()) {
576 * Check if we are positioned on the tape at the same place
577 * that the database says we should be.
579 if (dev->VolCatInfo.VolCatFiles == dev->get_file()) {
580 Jmsg(jcr, M_INFO, 0, _("Ready to append to end of Volume \"%s\" at file=%d.\n"),
581 VolumeName, dev->get_file());
583 Jmsg(jcr, M_ERROR, 0, _("Bacula cannot write on tape Volume \"%s\" because:\n"
584 "The number of files mismatch! Volume=%u Catalog=%u\n"),
585 VolumeName, dev->get_file(), dev->VolCatInfo.VolCatFiles);
586 mark_volume_in_error();
589 } else if (dev->is_file()) {
590 char ed1[50], ed2[50];
592 pos = dev->lseek(this, (boffset_t)0, SEEK_END);
593 if (dev->VolCatInfo.VolCatBytes == (uint64_t)pos) {
594 Jmsg(jcr, M_INFO, 0, _("Ready to append to end of Volume \"%s\""
595 " size=%s\n"), VolumeName,
596 edit_uint64(dev->VolCatInfo.VolCatBytes, ed1));
598 Jmsg(jcr, M_ERROR, 0, _("Bacula cannot write on disk Volume \"%s\" because: "
599 "The sizes do not match! Volume=%s Catalog=%s\n"),
601 edit_uint64(pos, ed1),
602 edit_uint64(dev->VolCatInfo.VolCatBytes, ed2));
603 mark_volume_in_error();
612 * If permitted, we label the device, make sure we can do
613 * it by checking that the VolCatBytes is zero => not labeled,
614 * once the Volume is labeled we don't want to label another
615 * blank tape with the same name. For disk, we go ahead and
616 * label it anyway, because the OS insures that there is only
617 * one Volume with that name.
618 * As noted above, at this point dcr->VolCatInfo has what
619 * the Director wants and dev->VolCatInfo has info on the
620 * previous tape (or nothing).
623 * try_next_vol label failed, look for another volume
624 * try_read_vol labeled volume, now re-read the label
625 * try_error hard error (catalog update)
626 * try_default I couldn't do anything
628 int DCR::try_autolabel(bool opened)
632 if (dev->poll && !dev->is_tape()) {
633 return try_default; /* if polling, don't try to create new labels */
635 /* For a tape require it to be opened and read before labeling */
636 if (!opened && dev->is_tape()) {
639 if (dev->has_cap(CAP_LABEL) && (VolCatInfo.VolCatBytes == 0 ||
640 (!dev->is_tape() && strcmp(VolCatInfo.VolCatStatus,
642 Dmsg0(150, "Create volume label\n");
643 /* Create a new Volume label and write it to the device */
644 if (!write_new_volume_label_to_dev(dcr, VolumeName,
645 pool_name, false, /* no relabel */ false /* defer DVD label */)) {
646 Dmsg2(150, "write_vol_label failed. vol=%s, pool=%s\n",
647 VolumeName, pool_name);
649 mark_volume_in_error();
653 Dmsg0(150, "dir_update_vol_info. Set Append\n");
654 /* Copy Director's info into the device info */
655 dev->VolCatInfo = VolCatInfo; /* structure assignment */
656 if (!dir_update_volume_info(dcr, true, true)) { /* indicate tape labeled */
659 Jmsg(dcr->jcr, M_INFO, 0, _("Labeled new Volume \"%s\" on device %s.\n"),
660 VolumeName, dev->print_name());
661 return try_read_vol; /* read label we just wrote */
663 if (!dev->has_cap(CAP_LABEL) && VolCatInfo.VolCatBytes == 0) {
664 Jmsg(jcr, M_WARNING, 0, _("Device %s not configured to autolabel Volumes.\n"),
667 /* If not removable, Volume is broken */
668 if (!dev->is_removable()) {
669 Jmsg(jcr, M_WARNING, 0, _("Volume \"%s\" not on device %s.\n"),
670 VolumeName, dev->print_name());
671 mark_volume_in_error();
679 * Mark volume in error in catalog
681 void DCR::mark_volume_in_error()
683 Jmsg(jcr, M_INFO, 0, _("Marking Volume \"%s\" in Error in Catalog.\n"),
685 dev->VolCatInfo = VolCatInfo; /* structure assignment */
686 bstrncpy(dev->VolCatInfo.VolCatStatus, "Error", sizeof(dev->VolCatInfo.VolCatStatus));
687 Dmsg0(150, "dir_update_vol_info. Set Error.\n");
688 dir_update_volume_info(this, false, false);
690 Dmsg0(50, "set_unload\n");
691 dev->set_unload(); /* must get a new volume */
695 * The Volume is not in the correct slot, so mark this
696 * Volume as not being in the Changer.
698 void DCR::mark_volume_not_inchanger()
700 Jmsg(jcr, M_ERROR, 0, _("Autochanger Volume \"%s\" not found in slot %d.\n"
701 " Setting InChanger to zero in catalog.\n"),
702 VolCatInfo.VolCatName, VolCatInfo.Slot);
703 dev->VolCatInfo = VolCatInfo; /* structure assignment */
704 VolCatInfo.InChanger = false;
705 dev->VolCatInfo.InChanger = false;
706 Dmsg0(400, "update vol info in mount\n");
707 dir_update_volume_info(this, true, false); /* set new status */
711 * Either because we are going to hang a new volume, or because
712 * of explicit user request, we release the current volume.
714 void DCR::release_volume()
716 unload_autochanger(this, -1);
719 Jmsg0(jcr, M_ERROR, 0, _("Hey!!!!! WroteVol non-zero !!!!!\n"));
720 Pmsg0(190, "Hey!!!!! WroteVol non-zero !!!!!\n");
723 * First erase all memory of the current volume
726 dev->block_num = dev->file = 0;
727 dev->EndBlock = dev->EndFile = 0;
728 memset(&dev->VolCatInfo, 0, sizeof(dev->VolCatInfo));
730 /* Force re-read of label */
731 dev->clear_labeled();
734 dev->label_type = B_BACULA_LABEL;
737 if (dev->is_open() && (!dev->is_tape() || !dev->has_cap(CAP_ALWAYSOPEN))) {
741 /* If we have not closed the device, then at least rewind the tape */
742 if (dev->is_open()) {
743 dev->offline_or_rewind();
745 // Dmsg0(50, "set_unload\n");
746 // dev->set_unload();
747 Dmsg0(190, "release_volume\n");
753 * Check to see if the tape position as defined by the OS is
754 * the same as our concept. If it is not,
755 * it means the user has probably manually rewound the tape.
756 * Note, we check only if num_writers == 0, but this code will
757 * also work fine for any number of writers. If num_writers > 0,
758 * we probably should cancel all jobs using this device, or
759 * perhaps even abort the SD, or at a minimum, mark the tape
760 * in error. Another strategy with num_writers == 0, would be
761 * to rewind the tape and do a new eod() request.
763 bool DCR::is_tape_position_ok()
765 if (dev->is_tape() && dev->num_writers == 0) {
766 int32_t file = dev->get_os_tape_file();
767 if (file >= 0 && file != (int32_t)dev->get_file()) {
768 Jmsg(jcr, M_ERROR, 0, _("Invalid tape position on volume \"%s\""
769 " on device %s. Expected %d, got %d\n"),
770 dev->VolHdr.VolumeName, dev->print_name(), dev->get_file(), file);
772 * If the current file is greater than zero, it means we probably
773 * have some bad count of EOF marks, so mark tape in error. Otherwise
774 * the operator might have moved the tape, so we just release it
778 mark_volume_in_error();
789 * If we are reading, we come here at the end of the tape
790 * and see if there are more volumes to be mounted.
792 bool mount_next_read_volume(DCR *dcr)
794 DEVICE *dev = dcr->dev;
796 Dmsg2(90, "NumReadVolumes=%d CurReadVolume=%d\n", jcr->NumReadVolumes, jcr->CurReadVolume);
798 volume_unused(dcr); /* release current volume */
800 * End Of Tape -- mount next Volume (if another specified)
802 if (jcr->NumReadVolumes > 1 && jcr->CurReadVolume < jcr->NumReadVolumes) {
804 if (!acquire_device_for_read(dcr)) {
805 Jmsg2(jcr, M_FATAL, 0, _("Cannot open Dev=%s, Vol=%s\n"), dev->print_name(),
809 return true; /* next volume mounted */
811 Dmsg0(90, "End of Device reached.\n");