2 Bacula® - The Network Backup Solution
4 Copyright (C) 2001-2007 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 John Walker.
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.
29 * This file handles accepting Director Commands
31 * Most Director commands are handled here, with the
32 * exception of the Job command command and subsequent
33 * subcommands that are handled
36 * N.B. in this file, in general we must use P(dev->mutex) rather
37 * than dev->r_lock() so that we can examine the blocked
38 * state rather than blocking ourselves because a Job
39 * thread has the device blocked. In some "safe" cases,
40 * we can do things to a blocked device. CAREFUL!!!!
42 * File daemon commands are handled in fdcmd.c
44 * Kern Sibbald, May MMI
53 /* Exported variables */
55 /* Imported variables */
56 extern BSOCK *filed_chan;
57 extern int r_first, r_last;
58 extern struct s_res resources[];
59 extern struct s_last_job last_job;
60 extern bool init_done;
62 /* Static variables */
63 static char derrmsg[] = "3900 Invalid command\n";
64 static char OKsetdebug[] = "3000 OK setdebug=%d\n";
65 static char invalid_cmd[] = "3997 Invalid command for a Director with Monitor directive enabled.\n";
67 /* Imported functions */
68 extern void terminate_child();
69 extern bool job_cmd(JCR *jcr);
70 extern bool use_cmd(JCR *jcr);
71 extern bool run_cmd(JCR *jcr);
72 extern bool status_cmd(JCR *sjcr);
73 extern bool qstatus_cmd(JCR *jcr);
74 //extern bool query_cmd(JCR *jcr);
76 /* Forward referenced functions */
77 static bool label_cmd(JCR *jcr);
78 static bool die_cmd(JCR *jcr);
79 static bool relabel_cmd(JCR *jcr);
80 static bool readlabel_cmd(JCR *jcr);
81 static bool release_cmd(JCR *jcr);
82 static bool setdebug_cmd(JCR *jcr);
83 static bool cancel_cmd(JCR *cjcr);
84 static bool mount_cmd(JCR *jcr);
85 static bool unmount_cmd(JCR *jcr);
86 static bool bootstrap_cmd(JCR *jcr);
87 static bool changer_cmd(JCR *sjcr);
88 static bool do_label(JCR *jcr, int relabel);
89 static DCR *find_device(JCR *jcr, POOL_MEM &dev_name, int drive);
90 static void read_volume_label(JCR *jcr, DEVICE *dev, int Slot);
91 static void label_volume_if_ok(DCR *dcr, char *oldname,
92 char *newname, char *poolname,
93 int Slot, int relabel);
94 static bool try_autoload_device(JCR *jcr, int slot, const char *VolName);
95 static void send_dir_busy_message(BSOCK *dir, DEVICE *dev);
99 bool (*func)(JCR *jcr);
100 int monitoraccess; /* specify if monitors have access to this function */
104 * The following are the recognized commands from the Director.
106 static struct s_cmds cmds[] = {
107 {"JobId=", job_cmd, 0}, /* start Job */
108 {"autochanger", changer_cmd, 0},
109 {"bootstrap", bootstrap_cmd, 0},
110 {"cancel", cancel_cmd, 0},
111 {".die", die_cmd, 0},
112 {"label", label_cmd, 0}, /* label a tape */
113 {"mount", mount_cmd, 0},
114 {"readlabel", readlabel_cmd, 0},
115 {"release", release_cmd, 0},
116 {"relabel", relabel_cmd, 0}, /* relabel a tape */
117 {"setdebug=", setdebug_cmd, 0}, /* set debug level */
118 {"status", status_cmd, 1},
119 {".status", qstatus_cmd, 1},
120 {"unmount", unmount_cmd, 0},
121 {"use storage=", use_cmd, 0},
123 // {"query", query_cmd, 0},
124 {NULL, NULL} /* list terminator */
129 * Connection request. We accept connections either from the
130 * Director or a Client (File daemon).
132 * Note, we are running as a seperate thread of the Storage daemon.
133 * and it is because a Director has made a connection with
134 * us on the "Message" channel.
136 * Basic tasks done here:
137 * - Create a JCR record
138 * - If it was from the FD, call handle_filed_connection()
139 * - Authenticate the Director
140 * - We wait for a command
141 * - We execute the command
142 * - We continue or exit depending on the return status
144 void *handle_connection_request(void *arg)
146 BSOCK *bs = (BSOCK *)arg;
151 char name[MAX_NAME_LENGTH];
153 if (bs->recv() <= 0) {
154 Emsg0(M_ERROR, 0, _("Connection request failed.\n"));
160 * Do a sanity check on the message received
162 if (bs->msglen < 25 || bs->msglen > (int)sizeof(name)-25) {
163 Emsg1(M_ERROR, 0, _("Invalid connection. Len=%d\n"), bs->msglen);
168 * See if this is a File daemon connection. If so
171 Dmsg1(110, "Conn: %s", bs->msg);
172 if (sscanf(bs->msg, "Hello Start Job %127s", name) == 1) {
173 Dmsg0(110, "Got a FD connection\n");
174 handle_filed_connection(bs, name);
179 * This is a connection from the Director, so setup a JCR
181 Dmsg0(110, "Got a DIR connection\n");
182 jcr = new_jcr(sizeof(JCR), stored_free_jcr); /* create Job Control Record */
183 jcr->dir_bsock = bs; /* save Director bsock */
184 jcr->dir_bsock->set_jcr(jcr);
185 jcr->dcrs = New(alist(10, not_owned_by_alist));
186 /* Initialize FD start condition variable */
187 int errstat = pthread_cond_init(&jcr->job_start_wait, NULL);
189 Jmsg1(jcr, M_FATAL, 0, _("Unable to init job cond variable: ERR=%s\n"), strerror(errstat));
193 Dmsg0(1000, "stored in start_job\n");
196 * Authenticate the Director
198 if (!authenticate_director(jcr)) {
199 Jmsg(jcr, M_FATAL, 0, _("Unable to authenticate Director\n"));
202 Dmsg0(90, "Message channel init completed.\n");
204 for (quit=false; !quit;) {
206 if ((bnet_stat = bs->recv()) <= 0) {
207 break; /* connection terminated */
209 Dmsg1(199, "<dird: %s\n", bs->msg);
210 /* Ensure that device initialization is complete */
215 for (i=0; cmds[i].cmd; i++) {
216 if (strncmp(cmds[i].cmd, bs->msg, strlen(cmds[i].cmd)) == 0) {
217 if ((!cmds[i].monitoraccess) && (jcr->director->monitor)) {
218 Dmsg1(100, "Command \"%s\" is invalid.\n", cmds[i].cmd);
219 bnet_fsend(bs, invalid_cmd);
220 bs->signal(BNET_EOD);
223 Dmsg1(200, "Do command: %s\n", cmds[i].cmd);
224 if (!cmds[i].func(jcr)) { /* do command */
225 quit = true; /* error, get out */
226 Dmsg1(190, "Command %s reqeusts quit\n", cmds[i].cmd);
228 found = true; /* indicate command found */
232 if (!found) { /* command not found */
233 bnet_fsend(bs, derrmsg);
238 generate_daemon_event(jcr, "JobEnd");
239 dequeue_messages(jcr); /* send any queued messages */
240 bnet_sig(bs, BNET_TERMINATE);
247 * Force SD to die, and hopefully dump itself. Turned on only
248 * in development version.
250 static bool die_cmd(JCR *jcr)
255 Pmsg0(000, "I have been requested to die ...");
256 a = djcr->JobId; /* ref NULL pointer */
264 * Set debug level as requested by the Director
267 static bool setdebug_cmd(JCR *jcr)
269 BSOCK *dir = jcr->dir_bsock;
270 int level, trace_flag;
272 Dmsg1(10, "setdebug_cmd: %s", dir->msg);
273 if (sscanf(dir->msg, "setdebug=%d trace=%d", &level, &trace_flag) != 2 || level < 0) {
274 bnet_fsend(dir, _("3991 Bad setdebug command: %s\n"), dir->msg);
278 set_trace(trace_flag);
279 return bnet_fsend(dir, OKsetdebug, level);
286 static bool cancel_cmd(JCR *cjcr)
288 BSOCK *dir = cjcr->dir_bsock;
290 char Job[MAX_NAME_LENGTH];
293 if (sscanf(dir->msg, "cancel Job=%127s", Job) == 1) {
294 if (!(jcr=get_jcr_by_full_name(Job))) {
295 bnet_fsend(dir, _("3904 Job %s not found.\n"), Job);
298 oldStatus = jcr->JobStatus;
299 set_jcr_job_status(jcr, JS_Canceled);
300 if (!jcr->authenticated && oldStatus == JS_WaitFD) {
301 pthread_cond_signal(&jcr->job_start_wait); /* wake waiting thread */
304 if (jcr->file_bsock) {
305 bnet_sig(jcr->file_bsock, BNET_TERMINATE);
307 /* Still waiting for FD to connect, release it */
308 pthread_cond_signal(&jcr->job_start_wait); /* wake waiting job */
310 /* If thread waiting on mount, wake him */
311 if (jcr->dcr && jcr->dcr->dev && jcr->dcr->dev->waiting_for_mount()) {
312 pthread_cond_broadcast(&jcr->dcr->dev->wait_next_vol);
313 Dmsg1(100, "JobId=%u broadcast wait_device_release\n", (uint32_t)jcr->JobId);
314 pthread_cond_broadcast(&wait_device_release);
316 if (jcr->read_dcr && jcr->read_dcr->dev && jcr->read_dcr->dev->waiting_for_mount()) {
317 pthread_cond_broadcast(&jcr->read_dcr->dev->wait_next_vol);
318 Dmsg1(100, "JobId=%u broadcast wait_device_release\n", (uint32_t)jcr->JobId);
319 pthread_cond_broadcast(&wait_device_release);
321 Jmsg(jcr, M_INFO, 0, _("Job %s marked to be canceled.\n"), jcr->Job);
322 bnet_fsend(dir, _("3000 Job %s marked to be canceled.\n"), jcr->Job);
326 bnet_fsend(dir, _("3903 Error scanning cancel command.\n"));
328 bnet_sig(dir, BNET_EOD);
336 static bool label_cmd(JCR *jcr)
338 return do_label(jcr, 0);
341 static bool relabel_cmd(JCR *jcr)
343 return do_label(jcr, 1);
346 static bool do_label(JCR *jcr, int relabel)
348 POOLMEM *newname, *oldname, *poolname, *mtype;
350 BSOCK *dir = jcr->dir_bsock;
357 newname = get_memory(dir->msglen+1);
358 oldname = get_memory(dir->msglen+1);
359 poolname = get_memory(dir->msglen+1);
360 mtype = get_memory(dir->msglen+1);
362 if (sscanf(dir->msg, "relabel %127s OldName=%127s NewName=%127s PoolName=%127s "
363 "MediaType=%127s Slot=%d drive=%d",
364 dev_name.c_str(), oldname, newname, poolname, mtype,
365 &slot, &drive) == 7) {
370 if (sscanf(dir->msg, "label %127s VolumeName=%127s PoolName=%127s "
371 "MediaType=%127s Slot=%d drive=%d",
372 dev_name.c_str(), newname, poolname, mtype, &slot, &drive) == 6) {
377 unbash_spaces(newname);
378 unbash_spaces(oldname);
379 unbash_spaces(poolname);
380 unbash_spaces(mtype);
381 dcr = find_device(jcr, dev_name, drive);
384 dev->dlock(); /* Use P to avoid indefinite block */
385 if (!dev->is_open()) {
386 Dmsg1(400, "Can %slabel. Device is not open\n", relabel?"re":"");
387 label_volume_if_ok(dcr, oldname, newname, poolname, slot, relabel);
389 /* Under certain "safe" conditions, we can steal the lock */
390 } else if (dev->can_steal_lock()) {
391 Dmsg0(400, "Can relabel. can_steal_lock\n");
392 label_volume_if_ok(dcr, oldname, newname, poolname, slot, relabel);
393 } else if (dev->is_busy() || dev->is_blocked()) {
394 send_dir_busy_message(dir, dev);
395 } else { /* device not being used */
396 Dmsg0(400, "Can relabel. device not used\n");
397 label_volume_if_ok(dcr, oldname, newname, poolname, slot, relabel);
403 bnet_fsend(dir, _("3999 Device \"%s\" not found or could not be opened.\n"), dev_name.c_str());
406 /* NB dir->msg gets clobbered in bnet_fsend, so save command */
407 pm_strcpy(jcr->errmsg, dir->msg);
408 bnet_fsend(dir, _("3903 Error scanning label command: %s\n"), jcr->errmsg);
410 free_memory(oldname);
411 free_memory(newname);
412 free_memory(poolname);
414 bnet_sig(dir, BNET_EOD);
419 * Read the tape label and determine if we can safely
420 * label the tape (not a Bacula volume), then label it.
422 * Enter with the mutex set
424 static void label_volume_if_ok(DCR *dcr, char *oldname,
425 char *newname, char *poolname,
426 int slot, int relabel)
428 BSOCK *dir = dcr->jcr->dir_bsock;
430 DEVICE *dev = dcr->dev;
433 const char *volname = (relabel == 1) ? oldname : newname;
436 steal_device_lock(dev, &hold, BST_WRITING_LABEL);
437 Dmsg1(100, "Stole device %s lock, writing label.\n", dev->print_name());
440 Dmsg0(90, "try_autoload_device - looking for volume_info\n");
441 if (!try_autoload_device(dcr->jcr, slot, volname)) {
442 goto bail_out; /* error */
445 /* Ensure that the device is open -- autoload_device() closes it */
446 if (dev->is_tape()) {
447 mode = OPEN_READ_WRITE;
449 mode = CREATE_READ_WRITE;
453 dev->truncating = true; /* let open() know we will truncate it */
455 /* Set old volume name for open if relabeling */
456 bstrncpy(dcr->VolCatInfo.VolCatName, volname, sizeof(dcr->VolCatInfo.VolCatName));
457 if (dev->open(dcr, mode) < 0) {
458 bnet_fsend(dir, _("3910 Unable to open device %s: ERR=%s\n"),
459 dev->print_name(), dev->strerror());
463 /* See what we have for a Volume */
464 label_status = read_dev_volume_label(dcr);
466 /* Set new volume name */
467 bstrncpy(dcr->VolCatInfo.VolCatName, newname, sizeof(dcr->VolCatInfo.VolCatName));
468 switch(label_status) {
470 case VOL_VERSION_ERROR:
471 case VOL_LABEL_ERROR:
475 "3920 Cannot label Volume because it is already labeled: \"%s\"\n"),
476 dev->VolHdr.VolumeName);
480 /* Relabel request. If oldname matches, continue */
481 if (strcmp(oldname, dev->VolHdr.VolumeName) != 0) {
482 bnet_fsend(dir, _("3921 Wrong volume mounted.\n"));
485 if (dev->label_type != B_BACULA_LABEL) {
486 bnet_fsend(dir, _("3922 Cannot relabel an ANSI/IBM labeled Volume.\n"));
489 /* Fall through wanted! */
492 if (!write_new_volume_label_to_dev(dcr, newname, poolname,
493 relabel, true /* write dvd now */)) {
494 bnet_fsend(dir, _("3912 Failed to label Volume: ERR=%s\n"), dev->bstrerror());
497 bstrncpy(dcr->VolumeName, newname, sizeof(dcr->VolumeName));
498 /* The following 3000 OK label. string is scanned in ua_label.c */
499 bnet_fsend(dir, "3000 OK label. VolBytes=%s DVD=%d Volume=\"%s\" Device=%s\n",
500 edit_uint64(dev->VolCatInfo.VolCatBytes, ed1),
501 dev->is_dvd()?1:0, newname, dev->print_name());
504 bnet_fsend(dir, _("3914 Failed to label Volume (no media): ERR=%s\n"), dev->bstrerror());
507 bnet_fsend(dir, _("3913 Cannot label Volume. "
508 "Unknown status %d from read_volume_label()\n"), label_status);
513 if (!dev->is_open()) {
516 give_back_device_lock(dev, &hold);
522 * Read the tape label
524 * Enter with the mutex set
526 static bool read_label(DCR *dcr)
530 BSOCK *dir = jcr->dir_bsock;
532 DEVICE *dev = dcr->dev;
534 steal_device_lock(dev, &hold, BST_DOING_ACQUIRE);
536 dcr->VolumeName[0] = 0;
537 dev->clear_labeled(); /* force read of label */
538 switch (read_dev_volume_label(dcr)) {
540 bnet_fsend(dir, _("3001 Mounted Volume: %s\n"), dev->VolHdr.VolumeName);
544 bnet_fsend(dir, _("3902 Cannot mount Volume on Storage Device %s because:\n%s"),
545 dev->print_name(), jcr->errmsg);
549 give_back_device_lock(dev, &hold);
554 * Searches for device by name, and if found, creates a dcr and
557 static DCR *find_device(JCR *jcr, POOL_MEM &devname, int drive)
560 AUTOCHANGER *changer;
564 unbash_spaces(devname);
565 foreach_res(device, R_DEVICE) {
566 /* Find resource, and make sure we were able to open it */
567 if (fnmatch(device->hdr.name, devname.c_str(), 0) == 0) {
569 device->dev = init_dev(jcr, device);
572 Jmsg(jcr, M_WARNING, 0, _("\n"
573 " Device \"%s\" requested by DIR could not be opened or does not exist.\n"),
577 Dmsg1(20, "Found device %s\n", device->hdr.name);
583 foreach_res(changer, R_AUTOCHANGER) {
584 /* Find resource, and make sure we were able to open it */
585 if (fnmatch(devname.c_str(), changer->hdr.name, 0) == 0) {
586 /* Try each device in this AutoChanger */
587 foreach_alist(device, changer->device) {
588 Dmsg1(100, "Try changer device %s\n", device->hdr.name);
590 device->dev = init_dev(jcr, device);
593 Dmsg1(100, "Device %s could not be opened. Skipped\n", devname.c_str());
594 Jmsg(jcr, M_WARNING, 0, _("\n"
595 " Device \"%s\" in changer \"%s\" requested by DIR could not be opened or does not exist.\n"),
596 device->hdr.name, devname.c_str());
599 if (!device->dev->autoselect) {
600 Dmsg1(100, "Device %s not autoselect skipped.\n", devname.c_str());
601 continue; /* device is not available */
603 if (drive < 0 || drive == (int)device->dev->drive_index) {
604 Dmsg1(20, "Found changer device %s\n", device->hdr.name);
608 Dmsg3(100, "Device %s drive wrong: want=%d got=%d skipping\n",
609 devname.c_str(), drive, (int)device->dev->drive_index);
611 break; /* we found it but could not open a device */
617 Dmsg1(100, "Found device %s\n", device->hdr.name);
618 dcr = new_dcr(jcr, device->dev);
619 dcr->device = device;
627 * Mount command from Director
629 static bool mount_cmd(JCR *jcr)
632 BSOCK *dir = jcr->dir_bsock;
639 ok = sscanf(dir->msg, "mount %127s drive=%d slot=%d", devname.c_str(),
642 ok = sscanf(dir->msg, "mount %127s drive=%d", devname.c_str(), &drive) == 2;
645 dcr = find_device(jcr, devname, drive);
648 dev->dlock(); /* Use P to avoid indefinite block */
649 Dmsg1(100, "mount cmd blocked=%d\n", dev->blocked());
650 switch (dev->blocked()) { /* device blocked? */
651 case BST_WAITING_FOR_SYSOP:
652 /* Someone is waiting, wake him */
653 Dmsg0(100, "Waiting for mount. Attempting to wake thread\n");
654 dev->set_blocked(BST_MOUNT);
655 bnet_fsend(dir, "3001 OK mount. Device=%s\n",
657 pthread_cond_broadcast(&dev->wait_next_vol);
658 Dmsg1(100, "JobId=%u broadcast wait_device_release\n", (uint32_t)dcr->jcr->JobId);
659 pthread_cond_broadcast(&wait_device_release);
662 /* In both of these two cases, we (the user) unmounted the Volume */
663 case BST_UNMOUNTED_WAITING_FOR_SYSOP:
665 if (dev->is_autochanger() && slot > 0) {
666 try_autoload_device(jcr, slot, "");
668 /* We freed the device, so reopen it and wake any waiting threads */
669 if (dev->open(dcr, OPEN_READ_ONLY) < 0) {
670 bnet_fsend(dir, _("3901 open device failed: ERR=%s\n"),
672 if (dev->blocked() == BST_UNMOUNTED) {
673 /* We blocked the device, so unblock it */
674 Dmsg0(100, "Unmounted. Unblocking device\n");
679 read_dev_volume_label(dcr);
680 if (dev->blocked() == BST_UNMOUNTED) {
681 /* We blocked the device, so unblock it */
682 Dmsg0(100, "Unmounted. Unblocking device\n");
683 read_label(dcr); /* this should not be necessary */
686 Dmsg0(100, "Unmounted waiting for mount. Attempting to wake thread\n");
687 dev->set_blocked(BST_MOUNT);
689 if (dev->is_labeled()) {
690 bnet_fsend(dir, _("3001 Device %s is mounted with Volume \"%s\"\n"),
691 dev->print_name(), dev->VolHdr.VolumeName);
693 bnet_fsend(dir, _("3905 Device %s open but no Bacula volume is mounted.\n"
694 "If this is not a blank tape, try unmounting and remounting the Volume.\n"),
697 pthread_cond_broadcast(&dev->wait_next_vol);
698 Dmsg1(100, "JobId=%u broadcast wait_device_release\n", (uint32_t)dcr->jcr->JobId);
699 pthread_cond_broadcast(&wait_device_release);
702 case BST_DOING_ACQUIRE:
703 bnet_fsend(dir, _("3001 Device %s is doing acquire.\n"),
707 case BST_WRITING_LABEL:
708 bnet_fsend(dir, _("3903 Device %s is being labeled.\n"),
712 case BST_NOT_BLOCKED:
713 if (dev->is_autochanger() && slot > 0) {
714 try_autoload_device(jcr, slot, "");
716 if (dev->is_open()) {
717 if (dev->is_labeled()) {
718 bnet_fsend(dir, _("3001 Device %s is mounted with Volume \"%s\"\n"),
719 dev->print_name(), dev->VolHdr.VolumeName);
721 bnet_fsend(dir, _("3905 Device %s open but no Bacula volume is mounted.\n"
722 "If this is not a blank tape, try unmounting and remounting the Volume.\n"),
725 } else if (dev->is_tape()) {
726 if (dev->open(dcr, OPEN_READ_ONLY) < 0) {
727 bnet_fsend(dir, _("3901 open device failed: ERR=%s\n"),
732 if (dev->is_labeled()) {
733 bnet_fsend(dir, _("3001 Device %s is already mounted with Volume \"%s\"\n"),
734 dev->print_name(), dev->VolHdr.VolumeName);
736 bnet_fsend(dir, _("3905 Device %s open but no Bacula volume is mounted.\n"
737 "If this is not a blank tape, try unmounting and remounting the Volume.\n"),
740 } else if (dev->is_dvd()) {
742 bnet_fsend(dir, _("3002 Device %s is mounted.\n"),
745 bnet_fsend(dir, _("3907 %s"), dev->bstrerror());
747 } else { /* must be file */
748 bnet_fsend(dir, _("3906 File device %s is always mounted.\n"),
754 bnet_fsend(dir, _("3905 Bizarre wait state %d\n"), dev->blocked());
761 bnet_fsend(dir, _("3999 Device \"%s\" not found or could not be opened.\n"), devname.c_str());
764 pm_strcpy(jcr->errmsg, dir->msg);
765 bnet_fsend(dir, _("3909 Error scanning mount command: %s\n"), jcr->errmsg);
767 bnet_sig(dir, BNET_EOD);
772 * unmount command from Director
774 static bool unmount_cmd(JCR *jcr)
777 BSOCK *dir = jcr->dir_bsock;
782 if (sscanf(dir->msg, "unmount %127s drive=%d", devname.c_str(), &drive) == 2) {
783 dcr = find_device(jcr, devname, drive);
786 dev->dlock(); /* Use P to avoid indefinite block */
787 if (!dev->is_open()) {
788 if (!dev->is_busy()) {
789 unload_autochanger(dcr, -1);
792 if (dev->unmount(0)) {
793 bnet_fsend(dir, _("3002 Device %s unmounted.\n"),
796 bnet_fsend(dir, _("3907 %s"), dev->bstrerror());
799 Dmsg0(90, "Device already unmounted\n");
800 bnet_fsend(dir, _("3901 Device %s is already unmounted.\n"),
803 } else if (dev->blocked() == BST_WAITING_FOR_SYSOP) {
804 Dmsg2(90, "%d waiter dev_block=%d. doing unmount\n", dev->num_waiting,
806 if (!unload_autochanger(dcr, -1)) {
807 /* ***FIXME**** what is this ???? */
810 if (dev->is_dvd() && !dev->unmount(0)) {
811 bnet_fsend(dir, _("3907 %s"), dev->bstrerror());
813 dev->set_blocked(BST_UNMOUNTED_WAITING_FOR_SYSOP);
814 bnet_fsend(dir, _("3001 Device %s unmounted.\n"),
818 } else if (dev->blocked() == BST_DOING_ACQUIRE) {
819 bnet_fsend(dir, _("3902 Device %s is busy in acquire.\n"),
822 } else if (dev->blocked() == BST_WRITING_LABEL) {
823 bnet_fsend(dir, _("3903 Device %s is being labeled.\n"),
826 } else if (dev->is_busy()) {
827 send_dir_busy_message(dir, dev);
828 } else { /* device not being used */
829 Dmsg0(90, "Device not in use, unmounting\n");
830 /* On FreeBSD, I am having ASSERT() failures in block_device()
831 * and I can only imagine that the thread id that we are
832 * leaving in no_wait_id is being re-used. So here,
833 * we simply do it by hand. Gross, but a solution.
835 /* block_device(dev, BST_UNMOUNTED); replace with 2 lines below */
836 dev->set_blocked(BST_UNMOUNTED);
838 if (!unload_autochanger(dcr, -1)) {
841 if (dev->is_dvd() && !dev->unmount(0)) {
842 bnet_fsend(dir, _("3907 %s"), dev->bstrerror());
844 bnet_fsend(dir, _("3002 Device %s unmounted.\n"),
852 bnet_fsend(dir, _("3999 Device \"%s\" not found or could not be opened.\n"), devname.c_str());
855 /* NB dir->msg gets clobbered in bnet_fsend, so save command */
856 pm_strcpy(jcr->errmsg, dir->msg);
857 bnet_fsend(dir, _("3907 Error scanning unmount command: %s\n"), jcr->errmsg);
859 bnet_sig(dir, BNET_EOD);
864 * Release command from Director. This rewinds the device and if
865 * configured does a offline and ensures that Bacula will
866 * re-read the label of the tape before continuing. This gives
867 * the operator the chance to change the tape anytime before the
870 static bool release_cmd(JCR *jcr)
873 BSOCK *dir = jcr->dir_bsock;
878 if (sscanf(dir->msg, "release %127s drive=%d", devname.c_str(), &drive) == 2) {
879 dcr = find_device(jcr, devname, drive);
882 dev->dlock(); /* Use P to avoid indefinite block */
883 if (!dev->is_open()) {
884 if (!dev->is_busy()) {
885 unload_autochanger(dcr, -1);
887 Dmsg0(90, "Device already released\n");
888 bnet_fsend(dir, _("3921 Device %s already released.\n"),
891 } else if (dev->blocked() == BST_WAITING_FOR_SYSOP) {
892 Dmsg2(90, "%d waiter dev_block=%d.\n", dev->num_waiting,
894 unload_autochanger(dcr, -1);
895 bnet_fsend(dir, _("3922 Device %s waiting for sysop.\n"),
898 } else if (dev->blocked() == BST_UNMOUNTED_WAITING_FOR_SYSOP) {
899 Dmsg2(90, "%d waiter dev_block=%d. doing unmount\n", dev->num_waiting,
901 bnet_fsend(dir, _("3922 Device %s waiting for mount.\n"),
904 } else if (dev->blocked() == BST_DOING_ACQUIRE) {
905 bnet_fsend(dir, _("3923 Device %s is busy in acquire.\n"),
908 } else if (dev->blocked() == BST_WRITING_LABEL) {
909 bnet_fsend(dir, _("3914 Device %s is being labeled.\n"),
912 } else if (dev->is_busy()) {
913 send_dir_busy_message(dir, dev);
914 } else { /* device not being used */
915 Dmsg0(90, "Device not in use, releaseing\n");
916 unload_autochanger(dcr, -1);
918 bnet_fsend(dir, _("3022 Device %s released.\n"),
925 bnet_fsend(dir, _("3999 Device \"%s\" not found or could not be opened.\n"), devname.c_str());
928 /* NB dir->msg gets clobbered in bnet_fsend, so save command */
929 pm_strcpy(jcr->errmsg, dir->msg);
930 bnet_fsend(dir, _("3927 Error scanning release command: %s\n"), jcr->errmsg);
932 bnet_sig(dir, BNET_EOD);
937 static bool bootstrap_cmd(JCR *jcr)
939 return get_bootstrap_file(jcr, jcr->dir_bsock);
943 * Autochanger command from Director
945 static bool changer_cmd(JCR *jcr)
948 BSOCK *dir = jcr->dir_bsock;
951 const char *cmd = NULL;
954 * A safe_cmd may call autochanger script but does not load/unload
955 * slots so it can be done at the same time that the drive is open.
957 bool safe_cmd = false;
959 if (sscanf(dir->msg, "autochanger list %127s", devname.c_str()) == 1) {
961 safe_cmd = ok = true;
962 } else if (sscanf(dir->msg, "autochanger slots %127s", devname.c_str()) == 1) {
964 safe_cmd = ok = true;
965 } else if (sscanf(dir->msg, "autochanger drives %127s", devname.c_str()) == 1) {
967 safe_cmd = ok = true;
970 dcr = find_device(jcr, devname, -1);
973 dev->dlock(); /* Use P to avoid indefinite block */
974 if (!dev->device->changer_res) {
975 bnet_fsend(dir, _("3995 Device %s is not an autochanger.\n"),
977 /* Under certain "safe" conditions, we can steal the lock */
978 } else if (safe_cmd || !dev->is_open() || dev->can_steal_lock()) {
979 autochanger_cmd(dcr, dir, cmd);
980 } else if (dev->is_busy() || dev->is_blocked()) {
981 send_dir_busy_message(dir, dev);
982 } else { /* device not being used */
983 autochanger_cmd(dcr, dir, cmd);
989 bnet_fsend(dir, _("3999 Device \"%s\" not found or could not be opened.\n"), devname.c_str());
991 } else { /* error on scanf */
992 pm_strcpy(jcr->errmsg, dir->msg);
993 bnet_fsend(dir, _("3908 Error scanning autocharger drives/list/slots command: %s\n"),
996 dir->signal(BNET_EOD);
1001 * Read and return the Volume label
1003 static bool readlabel_cmd(JCR *jcr)
1006 BSOCK *dir = jcr->dir_bsock;
1012 if (sscanf(dir->msg, "readlabel %127s Slot=%d drive=%d", devname.c_str(),
1013 &Slot, &drive) == 3) {
1014 dcr = find_device(jcr, devname, drive);
1017 dev->dlock(); /* Use P to avoid indefinite block */
1018 if (!dev->is_open()) {
1019 read_volume_label(jcr, dev, Slot);
1021 /* Under certain "safe" conditions, we can steal the lock */
1022 } else if (dev->can_steal_lock()) {
1023 read_volume_label(jcr, dev, Slot);
1024 } else if (dev->is_busy() || dev->is_blocked()) {
1025 send_dir_busy_message(dir, dev);
1026 } else { /* device not being used */
1027 read_volume_label(jcr, dev, Slot);
1033 bnet_fsend(dir, _("3999 Device \"%s\" not found or could not be opened.\n"), devname.c_str());
1036 pm_strcpy(jcr->errmsg, dir->msg);
1037 bnet_fsend(dir, _("3909 Error scanning readlabel command: %s\n"), jcr->errmsg);
1039 dir->signal(BNET_EOD);
1045 * Read the tape label
1047 * Enter with the mutex set
1049 static void read_volume_label(JCR *jcr, DEVICE *dev, int Slot)
1051 BSOCK *dir = jcr->dir_bsock;
1053 DCR *dcr = jcr->dcr;
1056 steal_device_lock(dev, &hold, BST_WRITING_LABEL);
1058 if (!try_autoload_device(jcr, Slot, "")) {
1059 goto bail_out; /* error */
1062 dev->clear_labeled(); /* force read of label */
1063 switch (read_dev_volume_label(dcr)) {
1065 /* DO NOT add quotes around the Volume name. It is scanned in the DIR */
1066 bnet_fsend(dir, _("3001 Volume=%s Slot=%d\n"), dev->VolHdr.VolumeName, Slot);
1067 Dmsg1(100, "Volume: %s\n", dev->VolHdr.VolumeName);
1070 bnet_fsend(dir, _("3902 Cannot mount Volume on Storage Device %s because:\n%s"),
1071 dev->print_name(), jcr->errmsg);
1076 give_back_device_lock(dev, &hold);
1080 static bool try_autoload_device(JCR *jcr, int slot, const char *VolName)
1082 DCR *dcr = jcr->dcr;
1083 BSOCK *dir = jcr->dir_bsock;
1085 bstrncpy(dcr->VolumeName, VolName, sizeof(dcr->VolumeName));
1086 dcr->VolCatInfo.Slot = slot;
1087 dcr->VolCatInfo.InChanger = slot > 0;
1088 if (autoload_device(dcr, 0, dir) < 0) { /* autoload if possible */
1094 static void send_dir_busy_message(BSOCK *dir, DEVICE *dev)
1096 if (dev->is_blocked()) {
1097 switch (dev->blocked()) {
1099 bnet_fsend(dir, _("3931 Device %s is BLOCKED. user unmounted.\n"),
1102 case BST_UNMOUNTED_WAITING_FOR_SYSOP:
1103 bnet_fsend(dir, _("3932 Device %s is BLOCKED. user unmounted during wait for media/mount.\n"),
1106 case BST_WAITING_FOR_SYSOP:
1107 bnet_fsend(dir, _("3933 Device %s is BLOCKED waiting for media.\n"),
1110 case BST_DOING_ACQUIRE:
1111 bnet_fsend(dir, _("3934 Device %s is being initialized.\n"),
1114 case BST_WRITING_LABEL:
1115 bnet_fsend(dir, _("3935 Device %s is blocked labeling a Volume.\n"),
1119 bnet_fsend(dir, _("3935 Device %s is blocked for unknown reason.\n"),
1123 } else if (dev->can_read()) {
1124 bnet_fsend(dir, _("3936 Device %s is busy reading.\n"),
1125 dev->print_name());;
1127 bnet_fsend(dir, _("3937 Device %s is busy with %d writer(s).\n"),
1128 dev->print_name(), dev->num_writers);