#include "bacula.h"
#include "stored.h"
+#define jid() ((int)get_jobid_from_tid())
+
const int dbglvl = 50;
static dlist *vol_list = NULL;
} else {
Mmsg(msg, "List from %s: %s at %p no dev\n", imsg, vol->vol_name, vol->vol_name);
}
- Dmsg1(dbglvl, "%s", msg.c_str());
+ Dmsg2(dbglvl, "jid=%u %s", jid(), msg.c_str());
}
#ifdef xxx
lock_volumes();
foreach_dlist(vol, vol_list) {
- if (vol->dev) {
- len = Mmsg(msg, "%s on device %s\n", vol->vol_name, vol->dev->print_name());
+ DEVICE *dev = vol->dev;
+ if (dev) {
+ len = Mmsg(msg, "%s on device %s\n", vol->vol_name, dev->print_name());
+ sendit(msg.c_str(), len, arg);
+ len = Mmsg(msg, " Reader=%d writers=%d reserved=%d\n", dev->can_read()?1:0,
+ dev->num_writers, dev->reserved_device);
sendit(msg.c_str(), len, arg);
} else {
len = Mmsg(msg, "%s no dev\n", vol->vol_name);
memset(vol, 0, sizeof(VOLRES));
vol->vol_name = bstrdup(VolumeName);
vol->dev = dcr->dev;
- Dmsg4(dbglvl, "JobId=%u new Vol=%s at %p dev=%s\n", (int)dcr->jcr->JobId,
+ Dmsg4(dbglvl, "jid=%u new Vol=%s at %p dev=%s\n", (int)dcr->jcr->JobId,
VolumeName, vol->vol_name, vol->dev->print_name());
return vol;
}
ASSERT(dev != NULL);
- Dmsg1(dbglvl, "reserve_volume %s\n", VolumeName);
+ Dmsg2(dbglvl, "jid=%u reserve_volume %s\n", jid(), VolumeName);
/*
* We lock the reservations system here to ensure
* when adding a new volume that no newly scheduled
if (strcmp(vol->vol_name, VolumeName) == 0) {
goto get_out; /* Volume already on this device */
} else {
- Dmsg3(dbglvl, "reserve_vol free vol=%s at %p JobId=%u\n", vol->vol_name,
- vol->vol_name, (int)dcr->jcr->JobId);
+ Dmsg3(dbglvl, "jid=%u reserve_vol free vol=%s at %p\n",
+ (int)dcr->jcr->JobId, vol->vol_name, vol->vol_name);
debug_list_volumes("reserve_vol free");
vol_list->remove(vol);
free_vol_item(vol);
*/
vol = (VOLRES *)vol_list->binary_insert(nvol, my_compare);
if (vol != nvol) {
- Dmsg2(dbglvl, "Found vol=%s dev-same=%d\n", vol->vol_name, dev==vol->dev);
+ Dmsg3(dbglvl, "jid=%u Found vol=%s dev-same=%d\n", jid(), vol->vol_name, dev==vol->dev);
/*
* At this point, a Volume with this name already is in the list,
* so we simply release our new Volume entry. Note, this should
* only happen if we are moving the volume from one drive to another.
*/
- Dmsg3(dbglvl, "reserve_vol free-tmp vol=%s at %p JobId=%u\n", vol->vol_name,
- vol->vol_name, (int)dcr->jcr->JobId);
+ Dmsg3(dbglvl, "jid=%u reserve_vol free-tmp vol=%s at %p\n",
+ (int)dcr->jcr->JobId, vol->vol_name, vol->vol_name);
/*
* Clear dev pointer so that free_vol_item() doesn't
* take away our volume.
/* Caller wants to switch Volume to another device */
if (!vol->dev->is_busy()) {
/* OK to move it -- I'm not sure this will work */
- Dmsg3(dbglvl, "==== Swap vol=%s from dev=%s to %s\n", VolumeName,
+ Dmsg4(dbglvl, "==== jid=%u Swap vol=%s from dev=%s to %s\n", jid(), VolumeName,
vol->dev->print_name(), dev->print_name());
vol->dev->vol = NULL; /* take vol from old drive */
vol->dev->VolHdr.VolumeName[0] = 0;
dev->vol = vol; /* point dev at vol */
dev->VolHdr.VolumeName[0] = 0;
} else {
- Dmsg3(dbglvl, "Volume busy could not swap vol=%s from dev=%s to %s\n", VolumeName,
- vol->dev->print_name(), dev->print_name());
+ Dmsg4(dbglvl, "jid=%u Volume busy could not swap vol=%s from dev=%s to %s\n",
+ jid(), VolumeName, vol->dev->print_name(), dev->print_name());
vol = NULL; /* device busy */
}
}
vol.vol_name = bstrdup(dcr->VolumeName);
fvol = (VOLRES *)vol_list->binary_search(&vol, my_compare);
free(vol.vol_name);
- Dmsg2(dbglvl, "find_vol=%s found=%d\n", dcr->VolumeName, fvol!=NULL);
+ Dmsg3(dbglvl, "jid=%u find_vol=%s found=%d\n", jid(), dcr->VolumeName, fvol!=NULL);
debug_list_volumes("find_volume");
unlock_volumes();
return fvol;
if (dcr->reserved_device) {
dcr->reserved_device = false;
dev->reserved_device--;
- Dmsg2(dbglvl, "Dec reserve=%d dev=%s\n", dev->reserved_device, dev->print_name());
+ Dmsg3(dbglvl, "jid=%u Dec reserve=%d dev=%s\n", jid(), dev->reserved_device, dev->print_name());
dcr->reserved_device = false;
/* If we set read mode in reserving, remove it */
if (dev->can_read()) {
DEVICE *dev = dcr->dev;
if (dev->vol == NULL) {
- Dmsg2(dbglvl, "JobId=%u vol_unused: no vol on %s\n", (int)dcr->jcr->JobId, dev->print_name());
+ Dmsg2(dbglvl, "jid=%u vol_unused: no vol on %s\n", (int)dcr->jcr->JobId, dev->print_name());
debug_list_volumes("null vol cannot unreserve_volume");
return false;
}
if (dev->is_busy()) {
- Dmsg2(dbglvl, "JobId=%u vol_unused: no vol on %s\n", (int)dcr->jcr->JobId, dev->print_name());
+ Dmsg2(dbglvl, "jid=%u vol_unused: no vol on %s\n", (int)dcr->jcr->JobId, dev->print_name());
debug_list_volumes("dev busy cannot unreserve_volume");
return false;
}
- return free_volume(dev);
+ /*
+ * If this is a tape, we do not free the volume, rather we wait
+ * until the autoloader unloads it, or until another tape is
+ * explicitly read in this drive. This allows the SD to remember
+ * where the tapes are or last were.
+ */
+ if (dev->is_tape() || dev->is_autochanger()) {
+ return true;
+ } else {
+ return free_volume(dev);
+ }
}
/*
VOLRES *vol;
if (dev->vol == NULL) {
- Dmsg1(dbglvl, "No vol on dev %s\n", dev->print_name());
+ Dmsg2(dbglvl, "jid=%u No vol on dev %s\n", jid(), dev->print_name());
return false;
}
lock_volumes();
vol = dev->vol;
dev->vol = NULL;
vol_list->remove(vol);
- Dmsg2(dbglvl, "free_volume %s dev=%s\n", vol->vol_name, dev->print_name());
+ Dmsg3(dbglvl, "jid=%u free_volume %s dev=%s\n", jid(), vol->vol_name, dev->print_name());
free_vol_item(vol);
debug_list_volumes("free_volume");
unlock_volumes();
}
lock_volumes();
foreach_dlist(vol, vol_list) {
- Dmsg2(dbglvl, "Unreleased Volume=%s dev=%p\n", vol->vol_name, vol->dev);
+ if (vol->dev) {
+ Dmsg3(dbglvl, "jid=%u free vol_list Volume=%s dev=%s\n", jid(),
+ vol->vol_name, vol->dev->print_name());
+ } else {
+ Dmsg3(dbglvl, "jid=%u free vol_list Volume=%s dev=%p\n", jid(),
+ vol->vol_name, vol->dev);
+ }
free(vol->vol_name);
vol->vol_name = NULL;
}
{
VOLRES *vol = find_volume(dcr);
if (!vol) {
- Dmsg1(dbglvl, "Vol=%s not in use.\n", dcr->VolumeName);
+ Dmsg2(dbglvl, "jid=%u Vol=%s not in use.\n", jid(), dcr->VolumeName);
return false; /* vol not in list */
}
ASSERT(vol->dev != NULL);
if (dcr->dev == vol->dev) { /* same device OK */
- Dmsg1(dbglvl, "Vol=%s on same dev.\n", dcr->VolumeName);
+ Dmsg2(dbglvl, "jid=%u Vol=%s on same dev.\n", jid(), dcr->VolumeName);
return false;
} else {
- Dmsg3(dbglvl, "Vol=%s on %s we have %s\n", dcr->VolumeName,
+ Dmsg4(dbglvl, "jid=%u Vol=%s on %s we have %s\n", jid(), dcr->VolumeName,
vol->dev->print_name(), dcr->dev->print_name());
}
if (!vol->dev->is_busy()) {
- Dmsg2(dbglvl, "Vol=%s dev=%s not busy.\n", dcr->VolumeName, vol->dev->print_name());
+ Dmsg3(dbglvl, "jid=%u Vol=%s dev=%s not busy.\n", jid(), dcr->VolumeName, vol->dev->print_name());
return false;
} else {
- Dmsg2(dbglvl, "Vol=%s dev=%s busy.\n", dcr->VolumeName, vol->dev->print_name());
+ Dmsg3(dbglvl, "jid=%u Vol=%s dev=%s busy.\n", jid(), dcr->VolumeName, vol->dev->print_name());
}
- Dmsg2(dbglvl, "Vol=%s in use by %s.\n", dcr->VolumeName, vol->dev->print_name());
+ Dmsg3(dbglvl, "jid=%u Vol=%s in use by %s.\n", jid(), dcr->VolumeName, vol->dev->print_name());
return true;
}
dirstore = New(alist(10, not_owned_by_alist));
msgs = jcr->reserve_msgs = New(alist(10, not_owned_by_alist));
do {
- Dmsg1(dbglvl, "<dird: %s", dir->msg);
+ Dmsg2(dbglvl, "jid=%u <dird: %s", jid(), dir->msg);
ok = sscanf(dir->msg, use_storage, store_name.c_str(),
media_type.c_str(), pool_name.c_str(),
pool_type.c_str(), &append, &Copy, &Stripe) == 7;
/* Now get all devices */
while (dir->recv() >= 0) {
- Dmsg1(dbglvl, "<dird device: %s", dir->msg);
+ Dmsg2(dbglvl, "jid=%u <dird device: %s", jid(), dir->msg);
ok = sscanf(dir->msg, use_device, dev_name.c_str()) == 1;
if (!ok) {
break;
char *device_name;
if (debug_level >= dbglvl) {
foreach_alist(store, dirstore) {
- Dmsg6(dbglvl, "JobId=%u Storage=%s media_type=%s pool=%s pool_type=%s append=%d\n",
+ Dmsg6(dbglvl, "jid=%u Storage=%s media_type=%s pool=%s pool_type=%s append=%d\n",
(int)rctx.jcr->JobId,
store->name, store->media_type, store->pool_name,
store->pool_type, store->append);
foreach_alist(device_name, store->device) {
- Dmsg1(dbglvl, " Device=%s\n", device_name);
+ Dmsg2(dbglvl, "jid=%u Device=%s\n", jid(), device_name);
}
}
}
init_jcr_device_wait_timers(jcr);
+ jcr->dcr = new_dcr(jcr, NULL, NULL); /* get a dcr */
+ if (!jcr->dcr) {
+ BSOCK *dir = jcr->dir_bsock;
+ dir->fsend(_("3939 Could not get dcr\n"));
+ Dmsg1(dbglvl, ">dird: %s", dir->msg);
+ ok = false;
+ }
/*
* At this point, we have a list of all the Director's Storage
* resources indicated for this Job, which include Pool, PoolType,
int repeat = 0;
bool fail = false;
rctx.notify_dir = true;
+
lock_reservations();
for ( ; !fail && !job_canceled(jcr); ) {
while ((msg = (char *)msgs->pop())) {
rctx.VolumeName[0] = 0;
rctx.any_drive = false;
if (!jcr->PreferMountedVols) {
- /* Look for unused drives in autochangers */
+ /*
+ * Here we try to find a drive that is not used.
+ * This will maximize the use of available drives.
+ *
+ */
rctx.num_writers = 20000000; /* start with impossible number */
rctx.low_use_drive = NULL;
rctx.PreferMountedVols = false;
rctx.exact_match = false;
rctx.autochanger_only = true;
- Dmsg6(dbglvl, "JobId=%u PrefMnt=%d exact=%d suitable=%d chgronly=%d any=%d\n",
+ Dmsg6(dbglvl, "jid=%u PrefMnt=%d exact=%d suitable=%d chgronly=%d any=%d\n",
(int)rctx.jcr->JobId,
rctx.PreferMountedVols, rctx.exact_match, rctx.suitable_device,
rctx.autochanger_only, rctx.any_drive);
rctx.try_low_use_drive = false;
}
rctx.autochanger_only = false;
- Dmsg6(dbglvl, "JobId=%u PrefMnt=%d exact=%d suitable=%d chgronly=%d any=%d\n",
+ Dmsg6(dbglvl, "jid=%u PrefMnt=%d exact=%d suitable=%d chgronly=%d any=%d\n",
(int)rctx.jcr->JobId,
rctx.PreferMountedVols, rctx.exact_match, rctx.suitable_device,
rctx.autochanger_only, rctx.any_drive);
break;
}
}
- /* Look for an exact match all drives */
+ /*
+ * Now we look for a drive that may or may not be in
+ * use.
+ */
+ /* Look for an exact Volume match all drives */
rctx.PreferMountedVols = true;
rctx.exact_match = true;
rctx.autochanger_only = false;
- Dmsg6(dbglvl, "JobId=%u PrefMnt=%d exact=%d suitable=%d chgronly=%d any=%d\n",
+ Dmsg6(dbglvl, "jid=%u PrefMnt=%d exact=%d suitable=%d chgronly=%d any=%d\n",
(int)rctx.jcr->JobId,
rctx.PreferMountedVols, rctx.exact_match, rctx.suitable_device,
rctx.autochanger_only, rctx.any_drive);
}
/* Look for any mounted drive */
rctx.exact_match = false;
- Dmsg6(dbglvl, "JobId=%u PrefMnt=%d exact=%d suitable=%d chgronly=%d any=%d\n",
+ Dmsg6(dbglvl, "jid=%u PrefMnt=%d exact=%d suitable=%d chgronly=%d any=%d\n",
(int)rctx.jcr->JobId,
rctx.PreferMountedVols, rctx.exact_match, rctx.suitable_device,
rctx.autochanger_only, rctx.any_drive);
}
/* Try any drive */
rctx.any_drive = true;
- Dmsg6(dbglvl, "JobId=%u PrefMnt=%d exact=%d suitable=%d chgronly=%d any=%d\n",
+ Dmsg6(dbglvl, "jid=%u PrefMnt=%d exact=%d suitable=%d chgronly=%d any=%d\n",
(int)rctx.jcr->JobId,
rctx.PreferMountedVols, rctx.exact_match, rctx.suitable_device,
rctx.autochanger_only, rctx.any_drive);
*/
if (repeat++ > 1) { /* try algorithm 3 times */
bmicrosleep(30, 0); /* wait a bit */
- Dmsg1(dbglvl, "JobId=%u repeat reserve algorithm\n", (int)rctx.jcr->JobId);
+ Dmsg1(dbglvl, "jid=%u repeat reserve algorithm\n", (int)rctx.jcr->JobId);
} else if (!rctx.suitable_device || !wait_for_device(jcr, wait_for_device_retries)) {
- Dmsg1(dbglvl, "JobId=%u Fail. !suitable_device || !wait_for_device\n",
+ Dmsg1(dbglvl, "jid=%u Fail. !suitable_device || !wait_for_device\n",
(int)rctx.jcr->JobId);
fail = true;
}
dev_name.c_str(), media_type.c_str());
dir->fsend(NO_device, dev_name.c_str());
- Dmsg1(dbglvl, ">dird: %s", dir->msg);
+ Dmsg2(dbglvl, "jid=%u >dird: %s", jid(), dir->msg);
}
} else {
unbash_spaces(dir->msg);
pm_strcpy(jcr->errmsg, dir->msg);
Jmsg(jcr, M_FATAL, 0, _("Failed command: %s\n"), jcr->errmsg);
dir->fsend(BAD_use, jcr->errmsg);
- Dmsg1(dbglvl, ">dird: %s", dir->msg);
+ Dmsg2(dbglvl, "jid=%u >dird: %s", jid(), dir->msg);
}
release_msgs(jcr);
return ok;
}
-void release_msgs(JCR *jcr)
+
+/*
+ * Walk through the autochanger resources and check if
+ * the volume is in one of them.
+ *
+ * Returns: true if volume is in device
+ * false otherwise
+ */
+static bool is_vol_in_autochanger(RCTX &rctx, VOLRES *vol)
{
- alist *msgs = jcr->reserve_msgs;
- char *msg;
+ AUTOCHANGER *changer = vol->dev->device->changer_res;
- if (!msgs) {
- return;
- }
- lock_reservations();
- while ((msg = (char *)msgs->pop())) {
- free(msg);
- }
- delete msgs;
- jcr->reserve_msgs = NULL;
- unlock_reservations();
+ /* Find resource, and make sure we were able to open it */
+ if (fnmatch(rctx.device_name, changer->hdr.name, 0) == 0) {
+ Dmsg2(dbglvl, "jid=%u Found changer device %s\n",
+ (int)rctx.jcr->JobId, vol->dev->device->hdr.name);
+ return true;
+ }
+ Dmsg2(dbglvl, "jid=%u Incorrect changer device %s\n",
+ (int)rctx.jcr->JobId, changer->hdr.name);
+ return false;
}
/*
DIRSTORE *store;
char *device_name;
alist *dirstore;
+ DCR *dcr = jcr->dcr;
if (rctx.append) {
dirstore = jcr->write_store;
} else {
dirstore = jcr->read_store;
}
- Dmsg5(dbglvl, "JobId=%u PrefMnt=%d exact=%d suitable=%d chgronly=%d\n",
+ Dmsg5(dbglvl, "jid=%u PrefMnt=%d exact=%d suitable=%d chgronly=%d\n",
(int)rctx.jcr->JobId,
rctx.PreferMountedVols, rctx.exact_match, rctx.suitable_device,
rctx.autochanger_only);
+ /*
+ * If the appropriate conditions of this if are met, namely that
+ * we are appending and the user wants mounted drive (or we
+ * force try a mounted drive because they are all busy), we
+ * start by looking at all the Volumes in the volume list.
+ */
if (!vol_list->empty() && rctx.append && rctx.PreferMountedVols) {
dlist *temp_vol_list, *save_vol_list;
VOLRES *vol = NULL;
* we can take note and act accordingly (probably redo the
* search at least a few times).
*/
+ Dmsg1(dbglvl, "jid=%u duplicate vol list\n", (int)rctx.jcr->JobId);
temp_vol_list = New(dlist(vol, &vol->link));
foreach_dlist(vol, vol_list) {
VOLRES *nvol;
unlock_volumes();
/* Look through reserved volumes for one we can use */
+ Dmsg1(dbglvl, "jid=%u look for vol in vol list\n", (int)rctx.jcr->JobId);
foreach_dlist(vol, temp_vol_list) {
if (!vol->dev) {
+ Dmsg2(dbglvl, "jid=%u vol=%s no dev\n", (int)rctx.jcr->JobId, vol->vol_name);
+ continue;
+ }
+ /* Check with Director if this Volume is OK */
+ bstrncpy(dcr->VolumeName, vol->vol_name, sizeof(dcr->VolumeName));
+ if (!dir_get_volume_info(dcr, GET_VOL_INFO_FOR_WRITE)) {
continue;
}
+
+ Dmsg2(dbglvl, "jid=%u vol=%s OK for this job\n", (int)rctx.jcr->JobId, vol->vol_name);
foreach_alist(store, dirstore) {
+ int stat;
rctx.store = store;
foreach_alist(device_name, store->device) {
- int stat;
- if (strcmp(device_name, vol->dev->device->hdr.name) != 0) {
- continue;
- }
+ /* Found a device, try to use it */
rctx.device_name = device_name;
rctx.device = vol->dev->device;
+
+ if (vol->dev->is_autochanger()) {
+ Dmsg2(dbglvl, "jid=%u vol=%s is in changer\n", (int)rctx.jcr->JobId,
+ vol->vol_name);
+ if (!is_vol_in_autochanger(rctx, vol)) {
+ continue;
+ }
+ } else if (strcmp(device_name, vol->dev->device->hdr.name) != 0) {
+ Dmsg3(dbglvl, "jid=%u device=%s not suitable want %s\n", (int)rctx.jcr->JobId,
+ vol->dev->device->hdr.name, device_name);
+ continue;
+ }
+
bstrncpy(rctx.VolumeName, vol->vol_name, sizeof(rctx.VolumeName));
rctx.have_volume = true;
/* Try reserving this device and volume */
- Dmsg3(dbglvl, "JobId=%u try vol=%s on device=%s\n", (int)rctx.jcr->JobId,
+ Dmsg3(dbglvl, "jid=%u try vol=%s on device=%s\n", (int)rctx.jcr->JobId,
rctx.VolumeName, device_name);
stat = reserve_device(rctx);
if (stat == 1) { /* found available device */
- Dmsg2(dbglvl, "JobId=%u Suitable device found=%s\n", (int)rctx.jcr->JobId,
+ Dmsg2(dbglvl, "jid=%u Suitable device found=%s\n", (int)rctx.jcr->JobId,
device_name);
ok = true;
break;
} else if (stat == 0) { /* device busy */
- Dmsg2(dbglvl, "JobId=%u Suitable device=%s, busy: not use\n",
+ Dmsg2(dbglvl, "jid=%u Suitable device=%s, busy: not use\n",
(int)rctx.jcr->JobId, device_name);
} else {
/* otherwise error */
- Dmsg1(dbglvl, "JobId=%u No suitable device found.\n", (int)rctx.jcr->JobId);
+ Dmsg1(dbglvl, "jid=%u No suitable device found.\n", (int)rctx.jcr->JobId);
}
rctx.have_volume = false;
}
break;
}
}
+ if (ok) {
+ break;
+ }
} /* end for loop over reserved volumes */
+
lock_volumes();
save_vol_list = vol_list;
vol_list = temp_vol_list;
free_volume_list(); /* release temp_vol_list */
vol_list = save_vol_list;
+ Dmsg1(dbglvl, "jid=%u deleted temp vol list\n", (int)rctx.jcr->JobId);
unlock_volumes();
}
if (ok) {
+ Dmsg2(dbglvl, "jid=%u got vol %s from in-use vols list\n", (int)rctx.jcr->JobId,
+ rctx.VolumeName);
return true;
}
rctx.device_name = device_name;
stat = search_res_for_device(rctx);
if (stat == 1) { /* found available device */
- Dmsg2(dbglvl, "JobId=%u available device found=%s\n", (int)rctx.jcr->JobId,
+ Dmsg2(dbglvl, "jid=%u available device found=%s\n", (int)rctx.jcr->JobId,
device_name);
ok = true;
break;
} else if (stat == 0) { /* device busy */
- Dmsg2(dbglvl, "JobId=%u Suitable device=%s, busy: not use\n",
+ Dmsg2(dbglvl, "jid=%u Suitable device=%s, busy: not use\n",
(int)rctx.jcr->JobId, device_name);
} else {
/* otherwise error */
- Dmsg1(dbglvl, "JobId=%u No suitable device found.\n", (int)rctx.jcr->JobId);
+ Dmsg1(dbglvl, "jid=%u No suitable device found.\n", (int)rctx.jcr->JobId);
}
}
if (ok) {
AUTOCHANGER *changer;
int stat;
- Dmsg2(dbglvl, "JobId=%u search res for %s\n", (int)rctx.jcr->JobId, rctx.device_name);
+ Dmsg2(dbglvl, "jid=%u search res for %s\n", (int)rctx.jcr->JobId, rctx.device_name);
/* Look through Autochangers first */
foreach_res(changer, R_AUTOCHANGER) {
- Dmsg2(150, "JobId=%u Try match changer res=%s\n", (int)rctx.jcr->JobId, changer->hdr.name);
+ Dmsg2(dbglvl, "jid=%u Try match changer res=%s\n", (int)rctx.jcr->JobId, changer->hdr.name);
/* Find resource, and make sure we were able to open it */
if (fnmatch(rctx.device_name, changer->hdr.name, 0) == 0) {
/* Try each device in this AutoChanger */
foreach_alist(rctx.device, changer->device) {
- Dmsg2(dbglvl, "JobId=%u Try changer device %s\n", (int)rctx.jcr->JobId,
+ Dmsg2(dbglvl, "jid=%u Try changer device %s\n", (int)rctx.jcr->JobId,
rctx.device->hdr.name);
stat = reserve_device(rctx);
if (stat != 1) { /* try another device */
}
/* Debug code */
if (rctx.store->append == SD_APPEND) {
- Dmsg3(dbglvl, "JobId=%u Device %s reserved=%d for append.\n",
+ Dmsg3(dbglvl, "jid=%u Device %s reserved=%d for append.\n",
(int)rctx.jcr->JobId, rctx.device->hdr.name,
rctx.jcr->dcr->dev->reserved_device);
} else {
- Dmsg3(dbglvl, "JobId=%u Device %s reserved=%d for read.\n",
+ Dmsg3(dbglvl, "jid=%u Device %s reserved=%d for read.\n",
(int)rctx.jcr->JobId, rctx.device->hdr.name,
rctx.jcr->read_dcr->dev->reserved_device);
}
/* Now if requested look through regular devices */
if (!rctx.autochanger_only) {
foreach_res(rctx.device, R_DEVICE) {
- Dmsg2(150, "JobId=%u Try match res=%s\n", (int)rctx.jcr->JobId, rctx.device->hdr.name);
+ Dmsg2(dbglvl, "jid=%u Try match res=%s\n", (int)rctx.jcr->JobId, rctx.device->hdr.name);
/* Find resource, and make sure we were able to open it */
if (fnmatch(rctx.device_name, rctx.device->hdr.name, 0) == 0) {
stat = reserve_device(rctx);
}
/* Debug code */
if (rctx.store->append == SD_APPEND) {
- Dmsg3(dbglvl, "JobId=%u Device %s reserved=%d for append.\n",
+ Dmsg3(dbglvl, "jid=%u Device %s reserved=%d for append.\n",
(int)rctx.jcr->JobId, rctx.device->hdr.name,
rctx.jcr->dcr->dev->reserved_device);
} else {
- Dmsg3(dbglvl, "JobId=%u Device %s reserved=%d for read.\n",
+ Dmsg3(dbglvl, "jid=%u Device %s reserved=%d for read.\n",
(int)rctx.jcr->JobId, rctx.device->hdr.name,
rctx.jcr->read_dcr->dev->reserved_device);
}
const int name_len = MAX_NAME_LENGTH;
/* Make sure MediaType is OK */
- Dmsg3(dbglvl, "JobId=%u MediaType device=%s request=%s\n",
+ Dmsg3(dbglvl, "jid=%u chk MediaType device=%s request=%s\n",
(int)rctx.jcr->JobId,
rctx.device->media_type, rctx.store->media_type);
if (strcmp(rctx.device->media_type, rctx.store->media_type) != 0) {
}
rctx.suitable_device = true;
- Dmsg2(dbglvl, "JobId=%u try reserve %s\n", rctx.jcr->JobId, rctx.device->hdr.name);
- dcr = new_dcr(rctx.jcr, rctx.device->dev);
+ Dmsg2(dbglvl, "jid=%u try reserve %s\n", rctx.jcr->JobId, rctx.device->hdr.name);
+ rctx.jcr->dcr = dcr = new_dcr(rctx.jcr, rctx.jcr->dcr, rctx.device->dev);
if (!dcr) {
BSOCK *dir = rctx.jcr->dir_bsock;
dir->fsend(_("3926 Could not get dcr for device: %s\n"), rctx.device_name);
bstrncpy(dcr->media_type, rctx.store->media_type, name_len);
bstrncpy(dcr->dev_name, rctx.device_name, name_len);
if (rctx.store->append == SD_APPEND) {
- Dmsg3(dbglvl, "JobId=%u have_vol=%d vol=%s\n", (int)rctx.jcr->JobId,
+ Dmsg3(dbglvl, "jid=%u have_vol=%d vol=%s\n", (int)rctx.jcr->JobId,
rctx.have_volume, rctx.VolumeName);
+ ok = reserve_device_for_append(dcr, rctx);
+ if (!ok) {
+ goto bail_out;
+ }
+
+ rctx.jcr->dcr = dcr;
+ Dmsg6(dbglvl, "jid=%u Reserved=%d dev_name=%s mediatype=%s pool=%s ok=%d\n",
+ (int)rctx.jcr->JobId,
+ dcr->dev->reserved_device,
+ dcr->dev_name, dcr->media_type, dcr->pool_name, ok);
if (!rctx.have_volume) {
dcr->any_volume = true;
if (dir_find_next_appendable_volume(dcr)) {
bstrncpy(rctx.VolumeName, dcr->VolumeName, sizeof(rctx.VolumeName));
- Dmsg2(dbglvl, "JobId=%u looking for Volume=%s\n", (int)rctx.jcr->JobId, rctx.VolumeName);
+ Dmsg2(dbglvl, "jid=%u looking for Volume=%s\n", (int)rctx.jcr->JobId, rctx.VolumeName);
rctx.have_volume = true;
} else {
- Dmsg1(dbglvl, "JobId=%u No next volume found\n", (int)rctx.jcr->JobId);
+ Dmsg1(dbglvl, "jid=%u No next volume found\n", (int)rctx.jcr->JobId);
rctx.have_volume = false;
rctx.VolumeName[0] = 0;
/*
}
}
}
- ok = reserve_device_for_append(dcr, rctx);
- if (ok) {
- rctx.jcr->dcr = dcr;
- Dmsg6(dbglvl, "JobId=%u Reserved=%d dev_name=%s mediatype=%s pool=%s ok=%d\n",
- (int)rctx.jcr->JobId,
- dcr->dev->reserved_device,
- dcr->dev_name, dcr->media_type, dcr->pool_name, ok);
- }
} else {
ok = reserve_device_for_read(dcr);
if (ok) {
rctx.jcr->read_dcr = dcr;
- Dmsg6(dbglvl, "JobId=%u Read reserved=%d dev_name=%s mediatype=%s pool=%s ok=%d\n",
+ Dmsg6(dbglvl, "jid=%u Read reserved=%d dev_name=%s mediatype=%s pool=%s ok=%d\n",
(int)rctx.jcr->JobId,
dcr->dev->reserved_device,
dcr->dev_name, dcr->media_type, dcr->pool_name, ok);
pm_strcpy(dev_name, rctx.device->hdr.name);
bash_spaces(dev_name);
ok = dir->fsend(OK_device, dev_name.c_str()); /* Return real device name */
- Dmsg1(dbglvl, ">dird changer: %s", dir->msg);
+ Dmsg2(dbglvl, "jid=%u >dird changer: %s", jid(), dir->msg);
} else {
ok = true;
}
bail_out:
rctx.have_volume = false;
- free_dcr(dcr);
- Dmsg1(dbglvl, "JobId=%u Not OK.\n", (int)rctx.jcr->JobId);
+// free_dcr(dcr);
+ Dmsg1(dbglvl, "jid=%u Not OK.\n", (int)rctx.jcr->JobId);
return 0;
}
dev->dlock();
if (is_device_unmounted(dev)) {
- Dmsg2(dbglvl, "JobId=%u Device %s is BLOCKED due to user unmount.\n",
+ Dmsg2(dbglvl, "jid=%u Device %s is BLOCKED due to user unmount.\n",
(int)jcr->JobId, dev->print_name());
Mmsg(jcr->errmsg, _("3601 JobId=%u device %s is BLOCKED due to user unmount.\n"),
jcr->JobId, dev->print_name());
}
if (dev->is_busy()) {
- Dmsg5(dbglvl, "JobId=%u Device %s is busy ST_READ=%d num_writers=%d reserved=%d.\n",
+ Dmsg5(dbglvl, "jid=%u Device %s is busy ST_READ=%d num_writers=%d reserved=%d.\n",
(int)jcr->JobId, dev->print_name(),
dev->state & ST_READ?1:0, dev->num_writers, dev->reserved_device);
Mmsg(jcr->errmsg, _("3602 JobId=%u device %s is busy (already reading/writing).\n"),
dev->set_read();
ok = true;
dev->reserved_device++;
- Dmsg4(dbglvl, "JobId=%u Inc reserve=%d dev=%s %p\n", (int)jcr->JobId,
+ Dmsg4(dbglvl, "jid=%u Inc reserve=%d dev=%s %p\n", (int)jcr->JobId,
dev->reserved_device, dev->print_name(), dev);
dcr->reserved_device = true;
if (dev->can_read()) {
Mmsg(jcr->errmsg, _("3603 JobId=%u device %s is busy reading.\n"),
jcr->JobId, dev->print_name());
- Dmsg1(dbglvl, "%s", jcr->errmsg);
+ Dmsg2(dbglvl, "jid=%u %s", jid(), jcr->errmsg);
queue_reserve_message(jcr);
goto bail_out;
}
if (is_device_unmounted(dev)) {
Mmsg(jcr->errmsg, _("3604 JobId=%u device %s is BLOCKED due to user unmount.\n"),
jcr->JobId, dev->print_name());
- Dmsg1(dbglvl, "%s", jcr->errmsg);
+ Dmsg2(dbglvl, "jid=%u %s", jid(), jcr->errmsg);
queue_reserve_message(jcr);
goto bail_out;
}
- Dmsg2(dbglvl, "JobId=%u reserve_append device is %s\n",
+ Dmsg2(dbglvl, "jid=%u reserve_append device is %s\n",
(int)jcr->JobId, dev->print_name());
/* Now do detailed tests ... */
if (can_reserve_drive(dcr, rctx) != 1) {
- Dmsg1(dbglvl, "JobId=%u can_reserve_drive!=1\n", (int)jcr->JobId);
+ Dmsg1(dbglvl, "jid=%u can_reserve_drive!=1\n", (int)jcr->JobId);
goto bail_out;
}
dev->reserved_device++;
- Dmsg4(dbglvl, "JobId=%u Inc reserve=%d dev=%s %p\n", (int)jcr->JobId, dev->reserved_device,
+ Dmsg4(dbglvl, "jid=%u Inc reserve=%d dev=%s %p\n", (int)jcr->JobId, dev->reserved_device,
dev->print_name(), dev);
dcr->reserved_device = true;
ok = true;
DEVICE *dev = dcr->dev;
JCR *jcr = dcr->jcr;
- Dmsg6(dbglvl, "JobId=%u PrefMnt=%d exact=%d suitable=%d chgronly=%d any=%d\n",
+ Dmsg6(dbglvl, "jid=%u PrefMnt=%d exact=%d suitable=%d chgronly=%d any=%d\n",
(int)jcr->JobId,
rctx.PreferMountedVols, rctx.exact_match, rctx.suitable_device,
rctx.autochanger_only, rctx.any_drive);
* helps spread the load to the least used drives.
*/
if (rctx.try_low_use_drive && dev == rctx.low_use_drive) {
- Dmsg3(dbglvl, "OK dev=%s == low_drive=%s. JobId=%u\n",
- dev->print_name(), rctx.low_use_drive->print_name(), jcr->JobId);
+ Dmsg3(dbglvl, "jid=%u OK dev=%s == low_drive=%s.\n",
+ jcr->JobId, dev->print_name(), rctx.low_use_drive->print_name());
return 1;
}
/* If he wants a free drive, but this one is busy, no go */
if ((dev->num_writers + dev->reserved_device) < rctx.num_writers) {
rctx.num_writers = dev->num_writers + dev->reserved_device;
rctx.low_use_drive = dev;
- Dmsg3(dbglvl, "JobId=%u set low use drive=%s num_writers=%d\n",
+ Dmsg3(dbglvl, "jid=%u set low use drive=%s num_writers=%d\n",
(int)jcr->JobId, dev->print_name(), rctx.num_writers);
} else {
- Dmsg2(dbglvl, "JobId=%u not low use num_writers=%d\n",
+ Dmsg2(dbglvl, "jid=%u not low use num_writers=%d\n",
(int)jcr->JobId, dev->num_writers+dev->reserved_device);
}
- Dmsg1(dbglvl, "failed: !prefMnt && busy. JobId=%u\n", jcr->JobId);
+ Dmsg1(dbglvl, "jid=%u failed: !prefMnt && busy.\n", jcr->JobId);
Mmsg(jcr->errmsg, _("3605 JobId=%u wants free drive but device %s is busy.\n"),
jcr->JobId, dev->print_name());
queue_reserve_message(jcr);
Mmsg(jcr->errmsg, _("3606 JobId=%u prefers mounted drives, but drive %s has no Volume.\n"),
jcr->JobId, dev->print_name());
queue_reserve_message(jcr);
- Dmsg1(dbglvl, "failed: want mounted -- no vol JobId=%u\n", (uint32_t)jcr->JobId);
+ Dmsg1(dbglvl, "jid=%u failed: want mounted -- no vol\n", (uint32_t)jcr->JobId);
return 0; /* No volume mounted */
}
*/
if (rctx.exact_match && rctx.have_volume) {
bool ok;
- Dmsg6(dbglvl, "JobId=%u PrefMnt=%d exact=%d suitable=%d chgronly=%d any=%d\n",
+ Dmsg6(dbglvl, "jid=%u PrefMnt=%d exact=%d suitable=%d chgronly=%d any=%d\n",
(int)jcr->JobId,
rctx.PreferMountedVols, rctx.exact_match, rctx.suitable_device,
rctx.autochanger_only, rctx.any_drive);
- Dmsg5(dbglvl, "JobId=%u have_vol=%d have=%s resvol=%s want=%s\n",
+ Dmsg5(dbglvl, "jid=%u have_vol=%d have=%s resvol=%s want=%s\n",
(int)jcr->JobId, rctx.have_volume, dev->VolHdr.VolumeName,
dev->vol?dev->vol->vol_name:"*none*", rctx.VolumeName);
ok = strcmp(dev->VolHdr.VolumeName, rctx.VolumeName) == 0 ||
jcr->JobId, rctx.VolumeName, dev->VolHdr.VolumeName,
dev->print_name());
queue_reserve_message(jcr);
- Dmsg4(dbglvl, "JobId=%u not OK: dev have=%s resvol=%s want=%s\n",
+ Dmsg4(dbglvl, "jid=%u not OK: dev have=%s resvol=%s want=%s\n",
(int)jcr->JobId, dev->VolHdr.VolumeName,
dev->vol?dev->vol->vol_name:"*none*", rctx.VolumeName);
return 0;
if (rctx.autochanger_only && !dev->is_busy() &&
dev->VolHdr.VolumeName[0] == 0) {
/* Device is available but not yet reserved, reserve it for us */
- Dmsg2(dbglvl, "OK Res Unused autochanger %s JobId=%u.\n",
- dev->print_name(), jcr->JobId);
+ Dmsg2(dbglvl, "jid=%u OK Res Unused autochanger %s.\n",
+ jcr->JobId, dev->print_name());
bstrncpy(dev->pool_name, dcr->pool_name, sizeof(dev->pool_name));
bstrncpy(dev->pool_type, dcr->pool_type, sizeof(dev->pool_type));
return 1; /* reserve drive */
if (strcmp(dev->pool_name, dcr->pool_name) == 0 &&
strcmp(dev->pool_type, dcr->pool_type) == 0) {
/* OK, compatible device */
- Dmsg2(dbglvl, "OK dev: %s num_writers=0, reserved, pool matches JobId=%u\n",
- dev->print_name(), jcr->JobId);
+ Dmsg2(dbglvl, "jid=%u OK dev: %s num_writers=0, reserved, pool matches\n",
+ jcr->JobId, dev->print_name());
return 1;
} else {
/* Drive Pool not suitable for us */
jcr->JobId, dcr->pool_name, dev->pool_name,
dev->reserved_device, dev->print_name());
queue_reserve_message(jcr);
- Dmsg3(dbglvl, "JobId=%u failed: busy num_writers=0, reserved, pool=%s wanted=%s\n",
+ Dmsg3(dbglvl, "jid=%u failed: busy num_writers=0, reserved, pool=%s wanted=%s\n",
(int)jcr->JobId, dev->pool_name, dcr->pool_name);
return 0; /* wait */
}
/* Device in append mode, check if changing pool */
if (strcmp(dev->pool_name, dcr->pool_name) == 0 &&
strcmp(dev->pool_type, dcr->pool_type) == 0) {
- Dmsg2(dbglvl, "OK dev: %s num_writers=0, can_append, pool matches. JobId=%u\n",
- dev->print_name(), jcr->JobId);
+ Dmsg2(dbglvl, "jid=%u OK dev: %s num_writers=0, can_append, pool matches.\n",
+ jcr->JobId, dev->print_name());
/* OK, compatible device */
return 1;
} else {
/* Changing pool, unload old tape if any in drive */
- Dmsg1(dbglvl, "JobId=%u OK dev: num_writers=0, not reserved, pool change, unload changer\n",
+ Dmsg1(dbglvl, "jid=%u OK dev: num_writers=0, not reserved, pool change, unload changer\n",
(int)jcr->JobId);
unload_autochanger(dcr, 0);
}
}
/* Device is available but not yet reserved, reserve it for us */
- Dmsg2(dbglvl, "OK Dev avail reserved %s JobId=%u\n", dev->print_name(),
- jcr->JobId);
+ Dmsg2(dbglvl, "jid=%u OK Dev avail reserved %s\n", jcr->JobId, dev->print_name());
bstrncpy(dev->pool_name, dcr->pool_name, sizeof(dev->pool_name));
bstrncpy(dev->pool_type, dcr->pool_type, sizeof(dev->pool_type));
return 1; /* reserve drive */
/* Yes, now check if we want the same Pool and pool type */
if (strcmp(dev->pool_name, dcr->pool_name) == 0 &&
strcmp(dev->pool_type, dcr->pool_type) == 0) {
- Dmsg2(dbglvl, "OK dev: %s num_writers>=0, can_append, pool matches. JobId=%u\n",
- dev->print_name(), jcr->JobId);
+ Dmsg2(dbglvl, "jid=%u OK dev: %s num_writers>=0, can_append, pool matches.\n",
+ jcr->JobId, dev->print_name());
/* OK, compatible device */
return 1;
} else {
Mmsg(jcr->errmsg, _("3609 JobId=%u wants Pool=\"%s\" but has Pool=\"%s\" on drive %s.\n"),
jcr->JobId, dcr->pool_name, dev->pool_name, dev->print_name());
queue_reserve_message(jcr);
- Dmsg3(dbglvl, "JobId=%u failed: busy num_writers>0, can_append, pool=%s wanted=%s\n",
+ Dmsg3(dbglvl, "jid=%u failed: busy num_writers>0, can_append, pool=%s wanted=%s\n",
(int)jcr->JobId, dev->pool_name, dcr->pool_name);
return 0; /* wait */
}
Mmsg(jcr->errmsg, _("3911 JobId=%u failed reserve drive %s.\n"),
jcr->JobId, dev->print_name());
queue_reserve_message(jcr);
- Dmsg2(dbglvl, "failed: No reserve %s JobId=%u\n", dev->print_name(), jcr->JobId);
+ Dmsg2(dbglvl, "jid=%u failed: No reserve %s\n", jcr->JobId, dev->print_name());
return 0;
}
+
+
+
/*
- * search_lock is already set on entering this routine
+ * Queue a reservation error or failure message for this jcr
*/
static void queue_reserve_message(JCR *jcr)
{
int i;
- alist *msgs = jcr->reserve_msgs;
+ alist *msgs;
char *msg;
+ jcr->lock();
+
+ msgs = jcr->reserve_msgs;
if (!msgs) {
- return;
+ goto bail_out;
}
/*
* Look for duplicate message. If found, do
for (i=msgs->size()-1; i >= 0; i--) {
msg = (char *)msgs->get(i);
if (!msg) {
- return;
+ goto bail_out;
}
/* Comparison based on 4 digit message number */
if (strncmp(msg, jcr->errmsg, 4) == 0) {
}
/* Message unique, so insert it */
jcr->reserve_msgs->push(bstrdup(jcr->errmsg));
+
+bail_out:
+ jcr->unlock();
}
/*
alist *msgs;
char *msg;
- lock_reservations();
+ jcr->lock();
msgs = jcr->reserve_msgs;
if (!msgs || msgs->size() == 0) {
goto bail_out;
}
bail_out:
- unlock_reservations();
+ jcr->unlock();
+}
+
+void release_msgs(JCR *jcr)
+{
+ alist *msgs;
+ char *msg;
+
+ jcr->lock();
+ msgs = jcr->reserve_msgs;
+ if (!msgs) {
+ goto bail_out;
+ }
+ while ((msg = (char *)msgs->pop())) {
+ free(msg);
+ }
+ delete msgs;
+ jcr->reserve_msgs = NULL;
+
+bail_out:
+ jcr->unlock();
}
projects / bacula / bacula / blobdiff