2 Bacula® - The Network Backup Solution
4 Copyright (C) 2001-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 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, DCR *dcr, 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, DCR *dcr, 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;
154 if (bs->recv() <= 0) {
155 Emsg0(M_ERROR, 0, _("Connection request failed.\n"));
161 * Do a sanity check on the message received
163 if (bs->msglen < 25 || bs->msglen > (int)sizeof(name)) {
164 Dmsg1(000, "<filed: %s", bs->msg);
165 Emsg1(M_ERROR, 0, _("Invalid connection. Len=%d\n"), bs->msglen);
170 * See if this is a File daemon connection. If so
173 Dmsg1(110, "Conn: %s", bs->msg);
174 if (debug_level == 3) {
175 Dmsg1(000, "<filed: %s", bs->msg);
177 if (sscanf(bs->msg, "Hello Start Job %127s", name) == 1) {
178 Dmsg1(110, "Got a FD connection at %s\n", bstrftimes(tbuf, sizeof(tbuf),
179 (utime_t)time(NULL)));
180 handle_filed_connection(bs, name);
185 * This is a connection from the Director, so setup a JCR
187 Dmsg1(110, "Got a DIR connection at %s\n", bstrftimes(tbuf, sizeof(tbuf),
188 (utime_t)time(NULL)));
189 jcr = new_jcr(sizeof(JCR), stored_free_jcr); /* create Job Control Record */
190 jcr->dir_bsock = bs; /* save Director bsock */
191 jcr->dir_bsock->set_jcr(jcr);
192 jcr->dcrs = New(alist(10, not_owned_by_alist));
193 /* Initialize FD start condition variable */
194 int errstat = pthread_cond_init(&jcr->job_start_wait, NULL);
197 Jmsg1(jcr, M_FATAL, 0, _("Unable to init job cond variable: ERR=%s\n"), be.bstrerror(errstat));
201 Dmsg0(1000, "stored in start_job\n");
204 * Authenticate the Director
206 if (!authenticate_director(jcr)) {
207 Jmsg(jcr, M_FATAL, 0, _("Unable to authenticate Director\n"));
210 Dmsg0(90, "Message channel init completed.\n");
212 for (quit=false; !quit;) {
214 if ((bnet_stat = bs->recv()) <= 0) {
215 break; /* connection terminated */
217 Dmsg1(199, "<dird: %s\n", bs->msg);
218 /* Ensure that device initialization is complete */
223 for (i=0; cmds[i].cmd; i++) {
224 if (strncmp(cmds[i].cmd, bs->msg, strlen(cmds[i].cmd)) == 0) {
225 if ((!cmds[i].monitoraccess) && (jcr->director->monitor)) {
226 Dmsg1(100, "Command \"%s\" is invalid.\n", cmds[i].cmd);
227 bs->fsend(invalid_cmd);
228 bs->signal(BNET_EOD);
231 Dmsg1(200, "Do command: %s\n", cmds[i].cmd);
232 if (!cmds[i].func(jcr)) { /* do command */
233 quit = true; /* error, get out */
234 Dmsg1(190, "Command %s reqeusts quit\n", cmds[i].cmd);
236 found = true; /* indicate command found */
240 if (!found) { /* command not found */
246 generate_daemon_event(jcr, "JobEnd");
247 dequeue_messages(jcr); /* send any queued messages */
248 bs->signal(BNET_TERMINATE);
255 * Force SD to die, and hopefully dump itself. Turned on only
256 * in development version.
258 static bool die_cmd(JCR *jcr)
263 Pmsg0(000, "I have been requested to die ...");
264 a = djcr->JobId; /* ref NULL pointer */
272 * Set debug level as requested by the Director
275 static bool setdebug_cmd(JCR *jcr)
277 BSOCK *dir = jcr->dir_bsock;
278 int level, trace_flag;
280 Dmsg1(10, "setdebug_cmd: %s", dir->msg);
281 if (sscanf(dir->msg, "setdebug=%d trace=%d", &level, &trace_flag) != 2 || level < 0) {
282 dir->fsend(_("3991 Bad setdebug command: %s\n"), dir->msg);
286 set_trace(trace_flag);
287 return dir->fsend(OKsetdebug, level);
294 static bool cancel_cmd(JCR *cjcr)
296 BSOCK *dir = cjcr->dir_bsock;
298 char Job[MAX_NAME_LENGTH];
301 if (sscanf(dir->msg, "cancel Job=%127s", Job) == 1) {
302 if (!(jcr=get_jcr_by_full_name(Job))) {
303 dir->fsend(_("3904 Job %s not found.\n"), Job);
305 oldStatus = jcr->JobStatus;
306 set_jcr_job_status(jcr, JS_Canceled);
307 if (!jcr->authenticated && oldStatus == JS_WaitFD) {
308 pthread_cond_signal(&jcr->job_start_wait); /* wake waiting thread */
310 if (jcr->file_bsock) {
311 bnet_sig(jcr->file_bsock, BNET_TERMINATE);
313 /* Still waiting for FD to connect, release it */
314 pthread_cond_signal(&jcr->job_start_wait); /* wake waiting job */
316 /* If thread waiting on mount, wake him */
317 if (jcr->dcr && jcr->dcr->dev && jcr->dcr->dev->waiting_for_mount()) {
318 pthread_cond_broadcast(&jcr->dcr->dev->wait_next_vol);
319 Dmsg1(100, "JobId=%u broadcast wait_device_release\n", (uint32_t)jcr->JobId);
320 pthread_cond_broadcast(&wait_device_release);
322 if (jcr->read_dcr && jcr->read_dcr->dev && jcr->read_dcr->dev->waiting_for_mount()) {
323 pthread_cond_broadcast(&jcr->read_dcr->dev->wait_next_vol);
324 Dmsg1(100, "JobId=%u broadcast wait_device_release\n", (uint32_t)jcr->JobId);
325 pthread_cond_broadcast(&wait_device_release);
327 Jmsg(jcr, M_INFO, 0, _("Job %s marked to be canceled.\n"), jcr->Job);
328 dir->fsend(_("3000 Job %s marked to be canceled.\n"), jcr->Job);
332 dir->fsend(_("3903 Error scanning cancel command.\n"));
334 dir->signal(BNET_EOD);
342 static bool label_cmd(JCR *jcr)
344 return do_label(jcr, 0);
347 static bool relabel_cmd(JCR *jcr)
349 return do_label(jcr, 1);
352 static bool do_label(JCR *jcr, int relabel)
354 POOLMEM *newname, *oldname, *poolname, *mtype;
356 BSOCK *dir = jcr->dir_bsock;
363 newname = get_memory(dir->msglen+1);
364 oldname = get_memory(dir->msglen+1);
365 poolname = get_memory(dir->msglen+1);
366 mtype = get_memory(dir->msglen+1);
368 if (sscanf(dir->msg, "relabel %127s OldName=%127s NewName=%127s PoolName=%127s "
369 "MediaType=%127s Slot=%d drive=%d",
370 dev_name.c_str(), oldname, newname, poolname, mtype,
371 &slot, &drive) == 7) {
376 if (sscanf(dir->msg, "label %127s VolumeName=%127s PoolName=%127s "
377 "MediaType=%127s Slot=%d drive=%d",
378 dev_name.c_str(), newname, poolname, mtype, &slot, &drive) == 6) {
383 unbash_spaces(newname);
384 unbash_spaces(oldname);
385 unbash_spaces(poolname);
386 unbash_spaces(mtype);
387 dcr = find_device(jcr, dev_name, drive);
390 dev->dlock(); /* Use P to avoid indefinite block */
391 if (!dev->is_open()) {
392 Dmsg1(400, "Can %slabel. Device is not open\n", relabel?"re":"");
393 label_volume_if_ok(dcr, oldname, newname, poolname, slot, relabel);
395 /* Under certain "safe" conditions, we can steal the lock */
396 } else if (dev->can_steal_lock()) {
397 Dmsg0(400, "Can relabel. can_steal_lock\n");
398 label_volume_if_ok(dcr, oldname, newname, poolname, slot, relabel);
399 } else if (dev->is_busy() || dev->is_blocked()) {
400 send_dir_busy_message(dir, dev);
401 } else { /* device not being used */
402 Dmsg0(400, "Can relabel. device not used\n");
403 label_volume_if_ok(dcr, oldname, newname, poolname, slot, relabel);
408 dir->fsend(_("3999 Device \"%s\" not found or could not be opened.\n"), dev_name.c_str());
411 /* NB dir->msg gets clobbered in bnet_fsend, so save command */
412 pm_strcpy(jcr->errmsg, dir->msg);
413 dir->fsend(_("3903 Error scanning label command: %s\n"), jcr->errmsg);
415 free_memory(oldname);
416 free_memory(newname);
417 free_memory(poolname);
419 dir->signal(BNET_EOD);
424 * Read the tape label and determine if we can safely
425 * label the tape (not a Bacula volume), then label it.
427 * Enter with the mutex set
429 static void label_volume_if_ok(DCR *dcr, char *oldname,
430 char *newname, char *poolname,
431 int slot, int relabel)
433 BSOCK *dir = dcr->jcr->dir_bsock;
435 DEVICE *dev = dcr->dev;
438 const char *volname = (relabel == 1) ? oldname : newname;
441 steal_device_lock(dev, &hold, BST_WRITING_LABEL);
442 Dmsg1(100, "Stole device %s lock, writing label.\n", dev->print_name());
445 Dmsg0(90, "try_autoload_device - looking for volume_info\n");
446 if (!try_autoload_device(dcr->jcr, dcr, slot, volname)) {
447 goto bail_out; /* error */
450 /* Ensure that the device is open -- autoload_device() closes it */
451 if (dev->is_tape()) {
452 mode = OPEN_READ_WRITE;
454 mode = CREATE_READ_WRITE;
458 dev->truncating = true; /* let open() know we will truncate it */
460 /* Set old volume name for open if relabeling */
461 bstrncpy(dcr->VolCatInfo.VolCatName, volname, sizeof(dcr->VolCatInfo.VolCatName));
462 if (dev->open(dcr, mode) < 0) {
463 dir->fsend(_("3910 Unable to open device %s: ERR=%s\n"),
464 dev->print_name(), dev->bstrerror());
468 /* See what we have for a Volume */
469 label_status = read_dev_volume_label(dcr);
471 /* Set new volume name */
472 bstrncpy(dcr->VolCatInfo.VolCatName, newname, sizeof(dcr->VolCatInfo.VolCatName));
473 switch(label_status) {
475 case VOL_VERSION_ERROR:
476 case VOL_LABEL_ERROR:
480 "3920 Cannot label Volume because it is already labeled: \"%s\"\n"),
481 dev->VolHdr.VolumeName);
485 /* Relabel request. If oldname matches, continue */
486 if (strcmp(oldname, dev->VolHdr.VolumeName) != 0) {
487 dir->fsend(_("3921 Wrong volume mounted.\n"));
490 if (dev->label_type != B_BACULA_LABEL) {
491 dir->fsend(_("3922 Cannot relabel an ANSI/IBM labeled Volume.\n"));
494 /* Fall through wanted! */
497 if (!write_new_volume_label_to_dev(dcr, newname, poolname,
498 relabel, true /* write dvd now */)) {
499 dir->fsend(_("3912 Failed to label Volume: ERR=%s\n"), dev->bstrerror());
502 bstrncpy(dcr->VolumeName, newname, sizeof(dcr->VolumeName));
503 /* The following 3000 OK label. string is scanned in ua_label.c */
504 dir->fsend("3000 OK label. VolBytes=%s DVD=%d Volume=\"%s\" Device=%s\n",
505 edit_uint64(dev->VolCatInfo.VolCatBytes, ed1),
506 dev->is_dvd()?1:0, newname, dev->print_name());
509 dir->fsend(_("3914 Failed to label Volume (no media): ERR=%s\n"), dev->bstrerror());
512 dir->fsend(_("3913 Cannot label Volume. "
513 "Unknown status %d from read_volume_label()\n"), label_status);
518 if (!dev->is_open()) {
521 volume_unused(dcr); /* no longer using volume */
522 give_back_device_lock(dev, &hold);
528 * Read the tape label
530 * Enter with the mutex set
532 static bool read_label(DCR *dcr)
536 BSOCK *dir = jcr->dir_bsock;
538 DEVICE *dev = dcr->dev;
540 steal_device_lock(dev, &hold, BST_DOING_ACQUIRE);
542 dcr->VolumeName[0] = 0;
543 dev->clear_labeled(); /* force read of label */
544 switch (read_dev_volume_label(dcr)) {
546 dir->fsend(_("3001 Mounted Volume: %s\n"), dev->VolHdr.VolumeName);
550 dir->fsend(_("3902 Cannot mount Volume on Storage Device %s because:\n%s"),
551 dev->print_name(), jcr->errmsg);
556 give_back_device_lock(dev, &hold);
561 * Searches for device by name, and if found, creates a dcr and
564 static DCR *find_device(JCR *jcr, POOL_MEM &devname, int drive)
567 AUTOCHANGER *changer;
571 unbash_spaces(devname);
572 foreach_res(device, R_DEVICE) {
573 /* Find resource, and make sure we were able to open it */
574 if (strcmp(device->hdr.name, devname.c_str()) == 0) {
576 device->dev = init_dev(jcr, device);
579 Jmsg(jcr, M_WARNING, 0, _("\n"
580 " Device \"%s\" requested by DIR could not be opened or does not exist.\n"),
584 Dmsg1(20, "Found device %s\n", device->hdr.name);
590 foreach_res(changer, R_AUTOCHANGER) {
591 /* Find resource, and make sure we were able to open it */
592 if (strcmp(devname.c_str(), changer->hdr.name) == 0) {
593 /* Try each device in this AutoChanger */
594 foreach_alist(device, changer->device) {
595 Dmsg1(100, "Try changer device %s\n", device->hdr.name);
597 device->dev = init_dev(jcr, device);
600 Dmsg1(100, "Device %s could not be opened. Skipped\n", devname.c_str());
601 Jmsg(jcr, M_WARNING, 0, _("\n"
602 " Device \"%s\" in changer \"%s\" requested by DIR could not be opened or does not exist.\n"),
603 device->hdr.name, devname.c_str());
606 if (!device->dev->autoselect) {
607 Dmsg1(100, "Device %s not autoselect skipped.\n", devname.c_str());
608 continue; /* device is not available */
610 if (drive < 0 || drive == (int)device->dev->drive_index) {
611 Dmsg1(20, "Found changer device %s\n", device->hdr.name);
615 Dmsg3(100, "Device %s drive wrong: want=%d got=%d skipping\n",
616 devname.c_str(), drive, (int)device->dev->drive_index);
618 break; /* we found it but could not open a device */
624 Dmsg1(100, "Found device %s\n", device->hdr.name);
625 dcr = new_dcr(jcr, NULL, device->dev);
626 dcr->device = device;
633 * Mount command from Director
635 static bool mount_cmd(JCR *jcr)
638 BSOCK *dir = jcr->dir_bsock;
645 ok = sscanf(dir->msg, "mount %127s drive=%d slot=%d", devname.c_str(),
648 ok = sscanf(dir->msg, "mount %127s drive=%d", devname.c_str(), &drive) == 2;
651 dcr = find_device(jcr, devname, drive);
654 dev->dlock(); /* Use P to avoid indefinite block */
655 Dmsg1(100, "mount cmd blocked=%d\n", dev->blocked());
656 switch (dev->blocked()) { /* device blocked? */
657 case BST_WAITING_FOR_SYSOP:
658 /* Someone is waiting, wake him */
659 Dmsg0(100, "Waiting for mount. Attempting to wake thread\n");
660 dev->set_blocked(BST_MOUNT);
661 dir->fsend("3001 OK mount. Device=%s\n",
663 pthread_cond_broadcast(&dev->wait_next_vol);
664 Dmsg1(100, "JobId=%u broadcast wait_device_release\n", (uint32_t)dcr->jcr->JobId);
665 pthread_cond_broadcast(&wait_device_release);
668 /* In both of these two cases, we (the user) unmounted the Volume */
669 case BST_UNMOUNTED_WAITING_FOR_SYSOP:
671 if (dev->is_autochanger() && slot > 0) {
672 try_autoload_device(jcr, dcr, slot, "");
674 /* We freed the device, so reopen it and wake any waiting threads */
675 if (dev->open(dcr, OPEN_READ_ONLY) < 0) {
676 dir->fsend(_("3901 Unable to open device %s: ERR=%s\n"),
677 dev->print_name(), dev->bstrerror());
678 if (dev->blocked() == BST_UNMOUNTED) {
679 /* We blocked the device, so unblock it */
680 Dmsg0(100, "Unmounted. Unblocking device\n");
685 read_dev_volume_label(dcr);
686 if (dev->blocked() == BST_UNMOUNTED) {
687 /* We blocked the device, so unblock it */
688 Dmsg0(100, "Unmounted. Unblocking device\n");
689 read_label(dcr); /* this should not be necessary */
692 Dmsg0(100, "Unmounted waiting for mount. Attempting to wake thread\n");
693 dev->set_blocked(BST_MOUNT);
695 if (dev->is_labeled()) {
696 dir->fsend(_("3001 Device %s is mounted with Volume \"%s\"\n"),
697 dev->print_name(), dev->VolHdr.VolumeName);
699 dir->fsend(_("3905 Device %s open but no Bacula volume is mounted.\n"
700 "If this is not a blank tape, try unmounting and remounting the Volume.\n"),
703 pthread_cond_broadcast(&dev->wait_next_vol);
704 Dmsg1(100, "JobId=%u broadcast wait_device_release\n", (uint32_t)dcr->jcr->JobId);
705 pthread_cond_broadcast(&wait_device_release);
708 case BST_DOING_ACQUIRE:
709 dir->fsend(_("3001 Device %s is doing acquire.\n"),
713 case BST_WRITING_LABEL:
714 dir->fsend(_("3903 Device %s is being labeled.\n"),
718 case BST_NOT_BLOCKED:
719 if (dev->is_autochanger() && slot > 0) {
720 try_autoload_device(jcr, dcr, slot, "");
722 if (dev->is_open()) {
723 if (dev->is_labeled()) {
724 dir->fsend(_("3001 Device %s is mounted with Volume \"%s\"\n"),
725 dev->print_name(), dev->VolHdr.VolumeName);
727 dir->fsend(_("3905 Device %s open but no Bacula volume is mounted.\n"
728 "If this is not a blank tape, try unmounting and remounting the Volume.\n"),
731 } else if (dev->is_tape()) {
732 if (dev->open(dcr, OPEN_READ_ONLY) < 0) {
733 dir->fsend(_("3901 Unable to open device %s: ERR=%s\n"),
734 dev->print_name(), dev->bstrerror());
738 if (dev->is_labeled()) {
739 dir->fsend(_("3001 Device %s is already mounted with Volume \"%s\"\n"),
740 dev->print_name(), dev->VolHdr.VolumeName);
742 dir->fsend(_("3905 Device %s open but no Bacula volume is mounted.\n"
743 "If this is not a blank tape, try unmounting and remounting the Volume.\n"),
746 } else if (dev->is_unmountable()) {
748 dir->fsend(_("3002 Device %s is mounted.\n"),
751 dir->fsend(_("3907 %s"), dev->bstrerror());
753 } else { /* must be file */
754 dir->fsend(_("3906 File device %s is always mounted.\n"),
760 dir->fsend(_("3905 Bizarre wait state %d\n"), dev->blocked());
766 dir->fsend(_("3999 Device \"%s\" not found or could not be opened.\n"), devname.c_str());
769 pm_strcpy(jcr->errmsg, dir->msg);
770 dir->fsend(_("3909 Error scanning mount command: %s\n"), jcr->errmsg);
772 dir->signal(BNET_EOD);
777 * unmount command from Director
779 static bool unmount_cmd(JCR *jcr)
782 BSOCK *dir = jcr->dir_bsock;
787 if (sscanf(dir->msg, "unmount %127s drive=%d", devname.c_str(), &drive) == 2) {
788 dcr = find_device(jcr, devname, drive);
791 dev->dlock(); /* Use P to avoid indefinite block */
792 if (!dev->is_open()) {
793 if (!dev->is_busy()) {
794 unload_autochanger(dcr, -1);
796 if (dev->is_unmountable()) {
797 if (dev->unmount(0)) {
798 dir->fsend(_("3002 Device %s unmounted.\n"),
801 dir->fsend(_("3907 %s"), dev->bstrerror());
804 Dmsg0(90, "Device already unmounted\n");
805 dir->fsend(_("3901 Device %s is already unmounted.\n"),
808 } else if (dev->blocked() == BST_WAITING_FOR_SYSOP) {
809 Dmsg2(90, "%d waiter dev_block=%d. doing unmount\n", dev->num_waiting,
811 if (!unload_autochanger(dcr, -1)) {
812 /* ***FIXME**** what is this ???? */
815 if (dev->is_unmountable() && !dev->unmount(0)) {
816 dir->fsend(_("3907 %s"), dev->bstrerror());
818 dev->set_blocked(BST_UNMOUNTED_WAITING_FOR_SYSOP);
819 dir->fsend(_("3001 Device %s unmounted.\n"),
823 } else if (dev->blocked() == BST_DOING_ACQUIRE) {
824 dir->fsend(_("3902 Device %s is busy in acquire.\n"),
827 } else if (dev->blocked() == BST_WRITING_LABEL) {
828 dir->fsend(_("3903 Device %s is being labeled.\n"),
831 } else if (dev->is_busy()) {
832 send_dir_busy_message(dir, dev);
833 } else { /* device not being used */
834 Dmsg0(90, "Device not in use, unmounting\n");
835 /* On FreeBSD, I am having ASSERT() failures in block_device()
836 * and I can only imagine that the thread id that we are
837 * leaving in no_wait_id is being re-used. So here,
838 * we simply do it by hand. Gross, but a solution.
840 /* block_device(dev, BST_UNMOUNTED); replace with 2 lines below */
841 dev->set_blocked(BST_UNMOUNTED);
843 if (!unload_autochanger(dcr, -1)) {
846 if (dev->is_unmountable() && !dev->unmount(0)) {
847 dir->fsend(_("3907 %s"), dev->bstrerror());
849 dir->fsend(_("3002 Device %s unmounted.\n"),
856 dir->fsend(_("3999 Device \"%s\" not found or could not be opened.\n"), devname.c_str());
859 /* NB dir->msg gets clobbered in bnet_fsend, so save command */
860 pm_strcpy(jcr->errmsg, dir->msg);
861 dir->fsend(_("3907 Error scanning unmount command: %s\n"), jcr->errmsg);
863 dir->signal(BNET_EOD);
868 * Release command from Director. This rewinds the device and if
869 * configured does a offline and ensures that Bacula will
870 * re-read the label of the tape before continuing. This gives
871 * the operator the chance to change the tape anytime before the
874 static bool release_cmd(JCR *jcr)
877 BSOCK *dir = jcr->dir_bsock;
882 if (sscanf(dir->msg, "release %127s drive=%d", devname.c_str(), &drive) == 2) {
883 dcr = find_device(jcr, devname, drive);
886 dev->dlock(); /* Use P to avoid indefinite block */
887 if (!dev->is_open()) {
888 if (!dev->is_busy()) {
889 unload_autochanger(dcr, -1);
891 Dmsg0(90, "Device already released\n");
892 dir->fsend(_("3921 Device %s already released.\n"),
895 } else if (dev->blocked() == BST_WAITING_FOR_SYSOP) {
896 Dmsg2(90, "%d waiter dev_block=%d.\n", dev->num_waiting,
898 unload_autochanger(dcr, -1);
899 dir->fsend(_("3922 Device %s waiting for sysop.\n"),
902 } else if (dev->blocked() == BST_UNMOUNTED_WAITING_FOR_SYSOP) {
903 Dmsg2(90, "%d waiter dev_block=%d. doing unmount\n", dev->num_waiting,
905 dir->fsend(_("3922 Device %s waiting for mount.\n"),
908 } else if (dev->blocked() == BST_DOING_ACQUIRE) {
909 dir->fsend(_("3923 Device %s is busy in acquire.\n"),
912 } else if (dev->blocked() == BST_WRITING_LABEL) {
913 dir->fsend(_("3914 Device %s is being labeled.\n"),
916 } else if (dev->is_busy()) {
917 send_dir_busy_message(dir, dev);
918 } else { /* device not being used */
919 Dmsg0(90, "Device not in use, releasing\n");
920 unload_autochanger(dcr, -1);
921 dcr->release_volume();
922 dir->fsend(_("3022 Device %s released.\n"),
928 dir->fsend(_("3999 Device \"%s\" not found or could not be opened.\n"), devname.c_str());
931 /* NB dir->msg gets clobbered in bnet_fsend, so save command */
932 pm_strcpy(jcr->errmsg, dir->msg);
933 dir->fsend(_("3927 Error scanning release command: %s\n"), jcr->errmsg);
935 dir->signal(BNET_EOD);
940 static bool bootstrap_cmd(JCR *jcr)
942 return get_bootstrap_file(jcr, jcr->dir_bsock);
946 * Autochanger command from Director
948 static bool changer_cmd(JCR *jcr)
951 BSOCK *dir = jcr->dir_bsock;
954 const char *cmd = NULL;
957 * A safe_cmd may call autochanger script but does not load/unload
958 * slots so it can be done at the same time that the drive is open.
960 bool safe_cmd = false;
962 if (sscanf(dir->msg, "autochanger list %127s", devname.c_str()) == 1) {
964 safe_cmd = ok = true;
965 } else if (sscanf(dir->msg, "autochanger slots %127s", devname.c_str()) == 1) {
967 safe_cmd = ok = true;
968 } else if (sscanf(dir->msg, "autochanger drives %127s", devname.c_str()) == 1) {
970 safe_cmd = ok = true;
973 dcr = find_device(jcr, devname, -1);
976 dev->dlock(); /* Use P to avoid indefinite block */
977 if (!dev->device->changer_res) {
978 dir->fsend(_("3995 Device %s is not an autochanger.\n"),
980 /* Under certain "safe" conditions, we can steal the lock */
981 } else if (safe_cmd || !dev->is_open() || dev->can_steal_lock()) {
982 autochanger_cmd(dcr, dir, cmd);
983 } else if (dev->is_busy() || dev->is_blocked()) {
984 send_dir_busy_message(dir, dev);
985 } else { /* device not being used */
986 autochanger_cmd(dcr, dir, cmd);
991 dir->fsend(_("3999 Device \"%s\" not found or could not be opened.\n"), devname.c_str());
993 } else { /* error on scanf */
994 pm_strcpy(jcr->errmsg, dir->msg);
995 dir->fsend(_("3908 Error scanning autocharger drives/list/slots command: %s\n"),
998 dir->signal(BNET_EOD);
1003 * Read and return the Volume label
1005 static bool readlabel_cmd(JCR *jcr)
1008 BSOCK *dir = jcr->dir_bsock;
1014 if (sscanf(dir->msg, "readlabel %127s Slot=%d drive=%d", devname.c_str(),
1015 &Slot, &drive) == 3) {
1016 dcr = find_device(jcr, devname, drive);
1019 dev->dlock(); /* Use P to avoid indefinite block */
1020 if (!dev->is_open()) {
1021 read_volume_label(jcr, dcr, dev, Slot);
1023 /* Under certain "safe" conditions, we can steal the lock */
1024 } else if (dev->can_steal_lock()) {
1025 read_volume_label(jcr, dcr, dev, Slot);
1026 } else if (dev->is_busy() || dev->is_blocked()) {
1027 send_dir_busy_message(dir, dev);
1028 } else { /* device not being used */
1029 read_volume_label(jcr, dcr, dev, Slot);
1034 dir->fsend(_("3999 Device \"%s\" not found or could not be opened.\n"), devname.c_str());
1037 pm_strcpy(jcr->errmsg, dir->msg);
1038 dir->fsend(_("3909 Error scanning readlabel command: %s\n"), jcr->errmsg);
1040 dir->signal(BNET_EOD);
1046 * Read the tape label
1048 * Enter with the mutex set
1050 static void read_volume_label(JCR *jcr, DCR *dcr, DEVICE *dev, int Slot)
1052 BSOCK *dir = jcr->dir_bsock;
1056 steal_device_lock(dev, &hold, BST_WRITING_LABEL);
1058 if (!try_autoload_device(jcr, dcr, 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 dir->fsend(_("3001 Volume=%s Slot=%d\n"), dev->VolHdr.VolumeName, Slot);
1067 Dmsg1(100, "Volume: %s\n", dev->VolHdr.VolumeName);
1070 dir->fsend(_("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, DCR *dcr, int slot, const char *VolName)
1082 BSOCK *dir = jcr->dir_bsock;
1084 bstrncpy(dcr->VolumeName, VolName, sizeof(dcr->VolumeName));
1085 dcr->VolCatInfo.Slot = slot;
1086 dcr->VolCatInfo.InChanger = slot > 0;
1087 if (autoload_device(dcr, 0, dir) < 0) { /* autoload if possible */
1093 static void send_dir_busy_message(BSOCK *dir, DEVICE *dev)
1095 if (dev->is_blocked()) {
1096 switch (dev->blocked()) {
1098 dir->fsend(_("3931 Device %s is BLOCKED. user unmounted.\n"),
1101 case BST_UNMOUNTED_WAITING_FOR_SYSOP:
1102 dir->fsend(_("3932 Device %s is BLOCKED. user unmounted during wait for media/mount.\n"),
1105 case BST_WAITING_FOR_SYSOP:
1106 dir->fsend(_("3933 Device %s is BLOCKED waiting for media.\n"),
1109 case BST_DOING_ACQUIRE:
1110 dir->fsend(_("3934 Device %s is being initialized.\n"),
1113 case BST_WRITING_LABEL:
1114 dir->fsend(_("3935 Device %s is blocked labeling a Volume.\n"),
1118 dir->fsend(_("3935 Device %s is blocked for unknown reason.\n"),
1122 } else if (dev->can_read()) {
1123 dir->fsend(_("3936 Device %s is busy reading.\n"),
1124 dev->print_name());;
1126 dir->fsend(_("3937 Device %s is busy with %d writer(s).\n"),
1127 dev->print_name(), dev->num_writers);