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

   1 /*
   2  *  This file handles accepting Director Commands
   3  *
   4  *    Most Director commands are handled here, with the
   5  *    exception of the Job command command and subsequent
   6  *    subcommands that are handled
   7  *    in job.c.
   8  *
   9  *    N.B. in this file, in general we must use P(dev->mutex) rather
  10  *      than lock_device(dev) so that we can examine the blocked
  11  *      state rather than blocking ourselves because a Job
  12  *      thread has the device blocked. In some "safe" cases,
  13  *      we can do things to a blocked device. CAREFUL!!!!
  14  *
  15  *    File daemon commands are handled in fdcmd.c
  16  *
  17  *     Kern Sibbald, May MMI
  18  *
  19  *   Version $Id$
  20  *
  21  */
  22 /*
  23    Copyright (C) 2001-2006 Kern Sibbald
  24
  25    This program is free software; you can redistribute it and/or
  26    modify it under the terms of the GNU General Public License
  27    version 2 as amended with additional clauses defined in the
  28    file LICENSE in the main source directory.
  29
  30    This program is distributed in the hope that it will be useful,
  31    but WITHOUT ANY WARRANTY; without even the implied warranty of
  32    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  33    the file LICENSE for additional details.
  34
  35  */
  36
  37 #include "bacula.h"
  38 #include "stored.h"
  39
  40 /* Exported variables */
  41
  42 /* Imported variables */
  43 extern BSOCK *filed_chan;
  44 extern int r_first, r_last;
  45 extern struct s_res resources[];
  46 extern char my_name[];
  47 extern time_t daemon_start_time;
  48 extern struct s_last_job last_job;
  49 extern bool init_done;
  50
  51 /* Static variables */
  52 static char derrmsg[]     = "3900 Invalid command\n";
  53 static char OKsetdebug[]  = "3000 OK setdebug=%d\n";
  54 static char illegal_cmd[] = "3997 Illegal command for a Director with Monitor directive enabled\n";
  55
  56 /* Imported functions */
  57 extern void terminate_child();
  58 extern bool job_cmd(JCR *jcr);
  59 extern bool use_cmd(JCR *jcr);
  60 extern bool run_cmd(JCR *jcr);
  61 extern bool status_cmd(JCR *sjcr);
  62 extern bool qstatus_cmd(JCR *jcr);
  63 //extern bool query_cmd(JCR *jcr);
  64
  65 /* Forward referenced functions */
  66 static bool label_cmd(JCR *jcr);
  67 static bool relabel_cmd(JCR *jcr);
  68 static bool readlabel_cmd(JCR *jcr);
  69 static bool release_cmd(JCR *jcr);
  70 static bool setdebug_cmd(JCR *jcr);
  71 static bool cancel_cmd(JCR *cjcr);
  72 static bool mount_cmd(JCR *jcr);
  73 static bool unmount_cmd(JCR *jcr);
  74 static bool bootstrap_cmd(JCR *jcr);
  75 static bool changer_cmd(JCR *sjcr);
  76 static bool do_label(JCR *jcr, int relabel);
  77 static DCR *find_device(JCR *jcr, POOL_MEM &dev_name, int drive);
  78 static void read_volume_label(JCR *jcr, DEVICE *dev, int Slot);
  79 static void label_volume_if_ok(DCR *dcr, char *oldname,
  80                                char *newname, char *poolname,
  81                                int Slot, int relabel);
  82 static bool try_autoload_device(JCR *jcr, int slot, const char *VolName);
  83 static void send_dir_busy_message(BSOCK *dir, DEVICE *dev);
  84
  85 struct s_cmds {
  86    const char *cmd;
  87    bool (*func)(JCR *jcr);
  88    int monitoraccess; /* specify if monitors have access to this function */
  89 };
  90
  91 /*
  92  * The following are the recognized commands from the Director.
  93  */
  94 static struct s_cmds cmds[] = {
  95    {"JobId=",      job_cmd,         0},     /* start Job */
  96    {"autochanger", changer_cmd,     0},
  97    {"bootstrap",   bootstrap_cmd,   0},
  98    {"cancel",      cancel_cmd,      0},
  99    {"label",       label_cmd,       0},     /* label a tape */
 100    {"mount",       mount_cmd,       0},
 101    {"readlabel",   readlabel_cmd,   0},
 102    {"release",     release_cmd,     0},
 103    {"relabel",     relabel_cmd,     0},     /* relabel a tape */
 104    {"setdebug=",   setdebug_cmd,    0},     /* set debug level */
 105    {"status",      status_cmd,      1},
 106    {".status",     qstatus_cmd,     1},
 107    {"unmount",     unmount_cmd,     0},
 108    {"use storage=", use_cmd,        0},
 109    {"run",         run_cmd,         0},
 110 // {"query",       query_cmd,       0},
 111    {NULL,        NULL}                      /* list terminator */
 112 };
 113
 114
 115 /*
 116  * Connection request. We accept connections either from the
 117  *  Director or a Client (File daemon).
 118  *
 119  * Note, we are running as a seperate thread of the Storage daemon.
 120  *  and it is because a Director has made a connection with
 121  *  us on the "Message" channel.
 122  *
 123  * Basic tasks done here:
 124  *  - Create a JCR record
 125  *  - If it was from the FD, call handle_filed_connection()
 126  *  - Authenticate the Director
 127  *  - We wait for a command
 128  *  - We execute the command
 129  *  - We continue or exit depending on the return status
 130  */
 131 void *handle_connection_request(void *arg)
 132 {
 133    BSOCK *bs = (BSOCK *)arg;
 134    JCR *jcr;
 135    int i;
 136    bool found, quit;
 137    int bnet_stat = 0;
 138    char name[MAX_NAME_LENGTH];
 139
 140    if (bnet_recv(bs) <= 0) {
 141       Emsg0(M_ERROR, 0, _("Connection request failed.\n"));
 142       bnet_close(bs);
 143       return NULL;
 144    }
 145
 146    /*
 147     * Do a sanity check on the message received
 148     */
 149    if (bs->msglen < 25 || bs->msglen > (int)sizeof(name)-25) {
 150       Emsg1(M_ERROR, 0, _("Invalid connection. Len=%d\n"), bs->msglen);
 151       bnet_close(bs);
 152       return NULL;
 153    }
 154    /*
 155     * See if this is a File daemon connection. If so
 156     *   call FD handler.
 157     */
 158    Dmsg1(110, "Conn: %s", bs->msg);
 159    if (sscanf(bs->msg, "Hello Start Job %127s", name) == 1) {
 160       handle_filed_connection(bs, name);
 161       return NULL;
 162    }
 163
 164    /*
 165     * This is a connection from the Director, so setup a JCR
 166     */
 167    Dmsg0(110, "Start Dir Job\n");
 168    jcr = new_jcr(sizeof(JCR), stored_free_jcr); /* create Job Control Record */
 169    jcr->dir_bsock = bs;               /* save Director bsock */
 170    jcr->dir_bsock->jcr = jcr;
 171    jcr->dcrs = New(alist(10, not_owned_by_alist));
 172    /* Initialize FD start condition variable */
 173    int errstat = pthread_cond_init(&jcr->job_start_wait, NULL);
 174    if (errstat != 0) {
 175       Jmsg1(jcr, M_FATAL, 0, _("Unable to init job cond variable: ERR=%s\n"), strerror(errstat));
 176       goto bail_out;
 177    }
 178
 179    Dmsg0(1000, "stored in start_job\n");
 180
 181    /*
 182     * Authenticate the Director
 183     */
 184    if (!authenticate_director(jcr)) {
 185       Jmsg(jcr, M_FATAL, 0, _("Unable to authenticate Director\n"));
 186       goto bail_out;
 187    }
 188    Dmsg0(90, "Message channel init completed.\n");
 189
 190    for (quit=false; !quit;) {
 191       /* Read command */
 192       if ((bnet_stat = bnet_recv(bs)) <= 0) {
 193          break;               /* connection terminated */
 194       }
 195       Dmsg1(199, "<dird: %s\n", bs->msg);
 196       /* Ensure that device initialization is complete */
 197       while (!init_done) {
 198          bmicrosleep(1, 0);
 199       }
 200       found = false;
 201       for (i=0; cmds[i].cmd; i++) {
 202         if (strncmp(cmds[i].cmd, bs->msg, strlen(cmds[i].cmd)) == 0) {
 203            if ((!cmds[i].monitoraccess) && (jcr->director->monitor)) {
 204               Dmsg1(100, "Command %s illegal.\n", cmds[i].cmd);
 205               bnet_fsend(bs, illegal_cmd);
 206               bnet_sig(bs, BNET_EOD);
 207               break;
 208            }
 209            Dmsg1(200, "Do command: %s\n", cmds[i].cmd);
 210            if (!cmds[i].func(jcr)) { /* do command */
 211               quit = true; /* error, get out */
 212               Dmsg1(190, "Command %s reqeusts quit\n", cmds[i].cmd);
 213            }
 214            found = true;             /* indicate command found */
 215            break;
 216         }
 217       }
 218       if (!found) {                   /* command not found */
 219         bnet_fsend(bs, derrmsg);
 220         break;
 221       }
 222    }
 223 bail_out:
 224    generate_daemon_event(jcr, "JobEnd");
 225    dequeue_messages(jcr);             /* send any queued messages */
 226    bnet_sig(bs, BNET_TERMINATE);
 227    free_jcr(jcr);
 228    return NULL;
 229 }
 230
 231 /*
 232  * Set debug level as requested by the Director
 233  *
 234  */
 235 static bool setdebug_cmd(JCR *jcr)
 236 {
 237    BSOCK *dir = jcr->dir_bsock;
 238    int level, trace_flag;
 239
 240    Dmsg1(10, "setdebug_cmd: %s", dir->msg);
 241    if (sscanf(dir->msg, "setdebug=%d trace=%d", &level, &trace_flag) != 2 || level < 0) {
 242       bnet_fsend(dir, _("3991 Bad setdebug command: %s\n"), dir->msg);
 243       return 0;
 244    }
 245    debug_level = level;
 246    set_trace(trace_flag);
 247    return bnet_fsend(dir, OKsetdebug, level);
 248 }
 249
 250
 251 /*
 252  * Cancel a Job
 253  */
 254 static bool cancel_cmd(JCR *cjcr)
 255 {
 256    BSOCK *dir = cjcr->dir_bsock;
 257    int oldStatus;
 258    char Job[MAX_NAME_LENGTH];
 259    JCR *jcr;
 260
 261    if (sscanf(dir->msg, "cancel Job=%127s", Job) == 1) {
 262       if (!(jcr=get_jcr_by_full_name(Job))) {
 263          bnet_fsend(dir, _("3904 Job %s not found.\n"), Job);
 264       } else {
 265          jcr->lock();
 266          oldStatus = jcr->JobStatus;
 267          set_jcr_job_status(jcr, JS_Canceled);
 268          if (!jcr->authenticated && oldStatus == JS_WaitFD) {
 269             pthread_cond_signal(&jcr->job_start_wait); /* wake waiting thread */
 270          }
 271          jcr->unlock();
 272          if (jcr->file_bsock) {
 273             bnet_sig(jcr->file_bsock, BNET_TERMINATE);
 274          }
 275          /* If thread waiting on mount, wake him */
 276          if (jcr->dcr && jcr->dcr->dev && jcr->dcr->dev->waiting_for_mount()) {
 277             pthread_cond_broadcast(&jcr->dcr->dev->wait_next_vol);
 278             pthread_cond_broadcast(&wait_device_release);
 279          }
 280          if (jcr->read_dcr && jcr->read_dcr->dev && jcr->read_dcr->dev->waiting_for_mount()) {
 281             pthread_cond_broadcast(&jcr->read_dcr->dev->wait_next_vol);
 282             pthread_cond_broadcast(&wait_device_release);
 283          }
 284          bnet_fsend(dir, _("3000 Job %s marked to be canceled.\n"), jcr->Job);
 285          free_jcr(jcr);
 286       }
 287    } else {
 288       bnet_fsend(dir, _("3903 Error scanning cancel command.\n"));
 289    }
 290    bnet_sig(dir, BNET_EOD);
 291    return 1;
 292 }
 293
 294 /*
 295  * Label a Volume
 296  *
 297  */
 298 static bool label_cmd(JCR *jcr)
 299 {
 300    return do_label(jcr, 0);
 301 }
 302
 303 static bool relabel_cmd(JCR *jcr)
 304 {
 305    return do_label(jcr, 1);
 306 }
 307
 308 static bool do_label(JCR *jcr, int relabel)
 309 {
 310    POOLMEM *newname, *oldname, *poolname, *mtype;
 311    POOL_MEM dev_name;
 312    BSOCK *dir = jcr->dir_bsock;
 313    DCR *dcr;
 314    DEVICE *dev;
 315    bool ok = false;
 316    int slot;
 317    int drive;
 318
 319    newname = get_memory(dir->msglen+1);
 320    oldname = get_memory(dir->msglen+1);
 321    poolname = get_memory(dir->msglen+1);
 322    mtype = get_memory(dir->msglen+1);
 323    if (relabel) {
 324       if (sscanf(dir->msg, "relabel %127s OldName=%127s NewName=%127s PoolName=%127s "
 325                  "MediaType=%127s Slot=%d drive=%d",
 326                   dev_name.c_str(), oldname, newname, poolname, mtype,
 327                   &slot, &drive) == 7) {
 328          ok = true;
 329       }
 330    } else {
 331       *oldname = 0;
 332       if (sscanf(dir->msg, "label %127s VolumeName=%127s PoolName=%127s "
 333                  "MediaType=%127s Slot=%d drive=%d",
 334           dev_name.c_str(), newname, poolname, mtype, &slot, &drive) == 6) {
 335          ok = true;
 336       }
 337    }
 338    if (ok) {
 339       unbash_spaces(newname);
 340       unbash_spaces(oldname);
 341       unbash_spaces(poolname);
 342       unbash_spaces(mtype);
 343       dcr = find_device(jcr, dev_name, drive);
 344       if (dcr) {
 345          dev = dcr->dev;
 346          P(dev->mutex);               /* Use P to avoid indefinite block */
 347          if (!dev->is_open()) {
 348             Dmsg1(400, "Can %slabel. Device is not open\n", relabel?"re":"");
 349             label_volume_if_ok(dcr, oldname, newname, poolname, slot, relabel);
 350             dev->close();
 351          /* Under certain "safe" conditions, we can steal the lock */
 352          } else if (dev->can_steal_lock()) {
 353             Dmsg0(400, "Can relabel. can_steal_lock\n");
 354             label_volume_if_ok(dcr, oldname, newname, poolname, slot, relabel);
 355          } else if (dev->is_busy() || dev->is_blocked()) {
 356             send_dir_busy_message(dir, dev);
 357          } else {                     /* device not being used */
 358             Dmsg0(400, "Can relabel. device not used\n");
 359             label_volume_if_ok(dcr, oldname, newname, poolname, slot, relabel);
 360          }
 361          V(dev->mutex);
 362          free_dcr(dcr);
 363          jcr->dcr = NULL;
 364       } else {
 365          bnet_fsend(dir, _("3999 Device \"%s\" not found or could not be opened.\n"), dev_name.c_str());
 366       }
 367    } else {
 368       /* NB dir->msg gets clobbered in bnet_fsend, so save command */
 369       pm_strcpy(jcr->errmsg, dir->msg);
 370       bnet_fsend(dir, _("3903 Error scanning label command: %s\n"), jcr->errmsg);
 371    }
 372    free_memory(oldname);
 373    free_memory(newname);
 374    free_memory(poolname);
 375    free_memory(mtype);
 376    bnet_sig(dir, BNET_EOD);
 377    return true;
 378 }
 379
 380 /*
 381  * Read the tape label and determine if we can safely
 382  * label the tape (not a Bacula volume), then label it.
 383  *
 384  *  Enter with the mutex set
 385  */
 386 static void label_volume_if_ok(DCR *dcr, char *oldname,
 387                                char *newname, char *poolname,
 388                                int slot, int relabel)
 389 {
 390    BSOCK *dir = dcr->jcr->dir_bsock;
 391    bsteal_lock_t hold;
 392    DEVICE *dev = dcr->dev;
 393    int label_status;
 394    int mode;
 395    const char *volname = (relabel == 0) ? newname : oldname;
 396
 397    steal_device_lock(dev, &hold, BST_WRITING_LABEL);
 398    Dmsg1(100, "Stole device %s lock, writing label.\n", dev->print_name());
 399
 400    Dmsg0(90, "try_autoload_device - looking for volume_info\n");
 401    if (relabel && dev->is_dvd()) {
 402       dcr->VolCatInfo.VolCatParts=1;
 403    }
 404
 405    if (!try_autoload_device(dcr->jcr, slot, volname)) {
 406       goto bail_out;                  /* error */
 407    }
 408
 409    /* Ensure that the device is open -- autoload_device() closes it */
 410    if (dev->is_tape()) {
 411       mode = OPEN_READ_WRITE;
 412    } else {
 413       mode = CREATE_READ_WRITE;
 414    }
 415    if (dev->is_dvd()) {
 416       bstrncpy(dcr->VolCatInfo.VolCatName, volname, sizeof(dcr->VolCatInfo.VolCatName));
 417    }
 418
 419    if (dev->open(dcr, mode) < 0) {
 420       bnet_fsend(dir, _("3910 Unable to open device %s: ERR=%s\n"),
 421          dev->print_name(), dev->strerror());
 422       goto bail_out;
 423    }
 424
 425    /* See what we have for a Volume */
 426    label_status = read_dev_volume_label(dcr);
 427
 428    switch(label_status) {
 429    case VOL_NAME_ERROR:
 430    case VOL_VERSION_ERROR:
 431    case VOL_LABEL_ERROR:
 432    case VOL_OK:
 433       if (!relabel) {
 434          bnet_fsend(dir, _(
 435             "3920 Cannot label Volume because it is already labeled: \"%s\"\n"),
 436              dev->VolHdr.VolumeName);
 437          break;
 438       }
 439
 440       /* Relabel request. If oldname matches, continue */
 441       if (strcmp(oldname, dev->VolHdr.VolumeName) != 0) {
 442          bnet_fsend(dir, _("3921 Wrong volume mounted.\n"));
 443          break;
 444       }
 445       if (dev->label_type != B_BACULA_LABEL) {
 446          bnet_fsend(dir, _("3922 Cannot relabel an ANSI/IBM labeled Volume.\n"));
 447          break;
 448       }
 449       if (relabel && dev->is_dvd()) {
 450          /* Change the partition file name */
 451          bstrncpy(dcr->VolumeName, newname, sizeof(dcr->VolumeName));
 452          if (!dev->truncate(dcr)) {
 453             bnet_fsend(dir, _("3912 Failed to truncate previous DVD volume.\n"));
 454             break;
 455          }
 456       }
 457       free_volume(dev);               /* release old volume name */
 458       /* Fall through wanted! */
 459    case VOL_IO_ERROR:
 460    case VOL_NO_LABEL:
 461       if (!write_new_volume_label_to_dev(dcr, newname, poolname, true /* write dvd now */)) {
 462          bnet_fsend(dir, _("3912 Failed to label Volume: ERR=%s\n"), dev->bstrerror());
 463          break;
 464       }
 465       bstrncpy(dcr->VolumeName, newname, sizeof(dcr->VolumeName));
 466       /* The following 3000 OK label. string is scanned in ua_label.c */
 467       bnet_fsend(dir, "3000 OK label. DVD=%d Volume=\"%s\" Device=\"%s\"\n",
 468          dev->is_dvd()?1:0, newname, dev->print_name());
 469       break;
 470    case VOL_NO_MEDIA:
 471       bnet_fsend(dir, _("3912 Failed to label Volume: ERR=%s\n"), dev->bstrerror());
 472       break;
 473    default:
 474       bnet_fsend(dir, _("3913 Cannot label Volume. "
 475 "Unknown status %d from read_volume_label()\n"), label_status);
 476       break;
 477    }
 478
 479 bail_out:
 480    if (!dev->is_open()) {
 481       free_volume(dev);
 482    }
 483    give_back_device_lock(dev, &hold);
 484    return;
 485 }
 486
 487
 488 /*
 489  * Read the tape label
 490  *
 491  *  Enter with the mutex set
 492  */
 493 static bool read_label(DCR *dcr)
 494 {
 495    int ok;
 496    JCR *jcr = dcr->jcr;
 497    BSOCK *dir = jcr->dir_bsock;
 498    bsteal_lock_t hold;
 499    DEVICE *dev = dcr->dev;
 500
 501    steal_device_lock(dev, &hold, BST_DOING_ACQUIRE);
 502
 503    dcr->VolumeName[0] = 0;
 504    dev->clear_labeled();              /* force read of label */
 505    switch (read_dev_volume_label(dcr)) {
 506    case VOL_OK:
 507       bnet_fsend(dir, _("3001 Mounted Volume: %s\n"), dev->VolHdr.VolumeName);
 508       ok = true;
 509       break;
 510    default:
 511       bnet_fsend(dir, _("3902 Cannot mount Volume on Storage Device %s because:\n%s"),
 512          dev->print_name(), jcr->errmsg);
 513       ok = false;
 514       break;
 515    }
 516    give_back_device_lock(dev, &hold);
 517    return ok;
 518 }
 519
 520 /*
 521  * Searches for device by name, and if found, creates a dcr and
 522  *  returns it.
 523  */
 524 static DCR *find_device(JCR *jcr, POOL_MEM &devname, int drive)
 525 {
 526    DEVRES *device;
 527    AUTOCHANGER *changer;
 528    bool found = false;
 529    DCR *dcr = NULL;
 530
 531    unbash_spaces(devname);
 532    foreach_res(device, R_DEVICE) {
 533       /* Find resource, and make sure we were able to open it */
 534       if (fnmatch(device->hdr.name, devname.c_str(), 0) == 0) {
 535          if (!device->dev) {
 536             device->dev = init_dev(jcr, device);
 537          }
 538          if (!device->dev) {
 539             Jmsg(jcr, M_WARNING, 0, _("\n"
 540                "     Device \"%s\" requested by DIR could not be opened or does not exist.\n"),
 541                  devname.c_str());
 542             continue;
 543          }
 544          Dmsg1(20, "Found device %s\n", device->hdr.name);
 545          found = true;
 546          break;
 547       }
 548    }
 549    if (!found) {
 550       foreach_res(changer, R_AUTOCHANGER) {
 551          /* Find resource, and make sure we were able to open it */
 552          if (fnmatch(devname.c_str(), changer->hdr.name, 0) == 0) {
 553             /* Try each device in this AutoChanger */
 554             foreach_alist(device, changer->device) {
 555                Dmsg1(100, "Try changer device %s\n", device->hdr.name);
 556                if (!device->dev) {
 557                   device->dev = init_dev(jcr, device);
 558                }
 559                if (!device->dev) {
 560                   Dmsg1(100, "Device %s could not be opened. Skipped\n", devname.c_str());
 561                   Jmsg(jcr, M_WARNING, 0, _("\n"
 562                      "     Device \"%s\" in changer \"%s\" requested by DIR could not be opened or does not exist.\n"),
 563                        device->hdr.name, devname.c_str());
 564                   continue;
 565                }
 566                if (!device->dev->autoselect) {
 567                   Dmsg1(100, "Device %s not autoselect skipped.\n", devname.c_str());
 568                   continue;              /* device is not available */
 569                }
 570                if (drive < 0 || drive == (int)device->dev->drive_index) {
 571                   Dmsg1(20, "Found changer device %s\n", device->hdr.name);
 572                   found = true;
 573                   break;
 574                }
 575                Dmsg3(100, "Device %s drive wrong: want=%d got=%d skipping\n",
 576                   devname.c_str(), drive, (int)device->dev->drive_index);
 577             }
 578             break;                    /* we found it but could not open a device */
 579          }
 580       }
 581    }
 582
 583    if (found) {
 584       Dmsg1(100, "Found device %s\n", device->hdr.name);
 585       dcr = new_dcr(jcr, device->dev);
 586       dcr->device = device;
 587       jcr->dcr = dcr;
 588    }
 589    return dcr;
 590 }
 591
 592
 593 /*
 594  * Mount command from Director
 595  */
 596 static bool mount_cmd(JCR *jcr)
 597 {
 598    POOL_MEM devname;
 599    BSOCK *dir = jcr->dir_bsock;
 600    DEVICE *dev;
 601    DCR *dcr;
 602    int drive;
 603    int slot = 0;
 604    bool ok;
 605
 606    ok = sscanf(dir->msg, "mount %127s drive=%d slot=%d", devname.c_str(),
 607                &drive, &slot) == 3;
 608    if (!ok) {
 609       ok = sscanf(dir->msg, "mount %127s drive=%d", devname.c_str(), &drive) == 2;
 610    }
 611    if (ok) {
 612       dcr = find_device(jcr, devname, drive);
 613       if (dcr) {
 614          dev = dcr->dev;
 615          P(dev->mutex);               /* Use P to avoid indefinite block */
 616          Dmsg1(100, "mount cmd blocked=%d\n", dev->dev_blocked);
 617          switch (dev->dev_blocked) {         /* device blocked? */
 618          case BST_WAITING_FOR_SYSOP:
 619             /* Someone is waiting, wake him */
 620             Dmsg0(100, "Waiting for mount. Attempting to wake thread\n");
 621             dev->dev_blocked = BST_MOUNT;
 622             bnet_fsend(dir, "3001 OK mount. Device=%s\n",
 623                dev->print_name());
 624             pthread_cond_broadcast(&dev->wait_next_vol);
 625             pthread_cond_broadcast(&wait_device_release);
 626             break;
 627
 628          /* In both of these two cases, we (the user) unmounted the Volume */
 629          case BST_UNMOUNTED_WAITING_FOR_SYSOP:
 630          case BST_UNMOUNTED:
 631             if (dev->is_autochanger() && slot > 0) {
 632                try_autoload_device(jcr, slot, "");
 633             }
 634             /* We freed the device, so reopen it and wake any waiting threads */
 635             if (dev->open(dcr, OPEN_READ_ONLY) < 0) {
 636                bnet_fsend(dir, _("3901 open device failed: ERR=%s\n"),
 637                   dev->bstrerror());
 638                if (dev->dev_blocked == BST_UNMOUNTED) {
 639                   /* We blocked the device, so unblock it */
 640                   Dmsg0(100, "Unmounted. Unblocking device\n");
 641                   unblock_device(dev);
 642                }
 643                break;
 644             }
 645             read_dev_volume_label(dcr);
 646             if (dev->dev_blocked == BST_UNMOUNTED) {
 647                /* We blocked the device, so unblock it */
 648                Dmsg0(100, "Unmounted. Unblocking device\n");
 649                read_label(dcr);       /* this should not be necessary */
 650                unblock_device(dev);
 651             } else {
 652                Dmsg0(100, "Unmounted waiting for mount. Attempting to wake thread\n");
 653                dev->dev_blocked = BST_MOUNT;
 654             }
 655             if (dev->is_labeled()) {
 656                bnet_fsend(dir, _("3001 Device %s is mounted with Volume \"%s\"\n"),
 657                   dev->print_name(), dev->VolHdr.VolumeName);
 658             } else {
 659                bnet_fsend(dir, _("3905 Device %s open but no Bacula volume is mounted.\n"
 660                                  "If this is not a blank tape, try unmounting and remounting the Volume.\n"),
 661                           dev->print_name());
 662             }
 663             pthread_cond_broadcast(&dev->wait_next_vol);
 664             pthread_cond_broadcast(&wait_device_release);
 665             break;
 666
 667          case BST_DOING_ACQUIRE:
 668             bnet_fsend(dir, _("3001 Device %s is doing acquire.\n"),
 669                        dev->print_name());
 670             break;
 671
 672          case BST_WRITING_LABEL:
 673             bnet_fsend(dir, _("3903 Device %s is being labeled.\n"),
 674                dev->print_name());
 675             break;
 676
 677          case BST_NOT_BLOCKED:
 678             if (dev->is_autochanger() && slot > 0) {
 679                try_autoload_device(jcr, slot, "");
 680             }
 681             if (dev->is_open()) {
 682                if (dev->is_labeled()) {
 683                   bnet_fsend(dir, _("3001 Device %s is mounted with Volume \"%s\"\n"),
 684                      dev->print_name(), dev->VolHdr.VolumeName);
 685                } else {
 686                   bnet_fsend(dir, _("3905 Device %s open but no Bacula volume is mounted.\n"
 687                                  "If this is not a blank tape, try unmounting and remounting the Volume.\n"),
 688                              dev->print_name());
 689                }
 690             } else if (dev->is_tape()) {
 691                if (dev->open(dcr, OPEN_READ_ONLY) < 0) {
 692                   bnet_fsend(dir, _("3901 open device failed: ERR=%s\n"),
 693                      dev->bstrerror());
 694                   break;
 695                }
 696                read_label(dcr);
 697                if (dev->is_labeled()) {
 698                   bnet_fsend(dir, _("3001 Device %s is already mounted with Volume \"%s\"\n"),
 699                      dev->print_name(), dev->VolHdr.VolumeName);
 700                } else {
 701                   bnet_fsend(dir, _("3905 Device %s open but no Bacula volume is mounted.\n"
 702                                     "If this is not a blank tape, try unmounting and remounting the Volume.\n"),
 703                              dev->print_name());
 704                }
 705             } else if (dev->is_dvd()) {
 706                if (mount_dvd(dev, 1)) {
 707                   bnet_fsend(dir, _("3002 Device %s is mounted.\n"),
 708                      dev->print_name());
 709                } else {
 710                   bnet_fsend(dir, _("3907 %s"), dev->bstrerror());
 711                }
 712             } else { /* must be file */
 713                bnet_fsend(dir, _("3906 File device %s is always mounted.\n"),
 714                   dev->print_name());
 715             }
 716             break;
 717
 718          default:
 719             bnet_fsend(dir, _("3905 Bizarre wait state %d\n"), dev->dev_blocked);
 720             break;
 721          }
 722          V(dev->mutex);
 723          free_dcr(dcr);
 724          jcr->dcr = NULL;
 725       } else {
 726          bnet_fsend(dir, _("3999 Device \"%s\" not found or could not be opened.\n"), devname.c_str());
 727       }
 728    } else {
 729       pm_strcpy(jcr->errmsg, dir->msg);
 730       bnet_fsend(dir, _("3909 Error scanning mount command: %s\n"), jcr->errmsg);
 731    }
 732    bnet_sig(dir, BNET_EOD);
 733    return true;
 734 }
 735
 736 /*
 737  * unmount command from Director
 738  */
 739 static bool unmount_cmd(JCR *jcr)
 740 {
 741    POOL_MEM devname;
 742    BSOCK *dir = jcr->dir_bsock;
 743    DEVICE *dev;
 744    DCR *dcr;
 745    int drive;
 746
 747    if (sscanf(dir->msg, "unmount %127s drive=%d", devname.c_str(), &drive) == 2) {
 748       dcr = find_device(jcr, devname, drive);
 749       if (dcr) {
 750          dev = dcr->dev;
 751          P(dev->mutex);               /* Use P to avoid indefinite block */
 752          if (!dev->is_open()) {
 753             if (!dev->is_busy()) {
 754                unload_autochanger(jcr->dcr, -1);
 755             }
 756             if (dev->is_dvd()) {
 757                if (unmount_dvd(dev, 0)) {
 758                   bnet_fsend(dir, _("3002 Device %s unmounted.\n"),
 759                      dev->print_name());
 760                } else {
 761                   bnet_fsend(dir, _("3907 %s"), dev->bstrerror());
 762                }
 763             } else {
 764                Dmsg0(90, "Device already unmounted\n");
 765                bnet_fsend(dir, _("3901 Device %s is already unmounted.\n"),
 766                   dev->print_name());
 767             }
 768          } else if (dev->dev_blocked == BST_WAITING_FOR_SYSOP) {
 769             Dmsg2(90, "%d waiter dev_block=%d. doing unmount\n", dev->num_waiting,
 770                dev->dev_blocked);
 771             if (!unload_autochanger(jcr->dcr, -1)) {
 772                dev->close();
 773             }
 774             if (dev->is_dvd() && !unmount_dvd(dev, 0)) {
 775                bnet_fsend(dir, _("3907 %s"), dev->bstrerror());
 776             } else {
 777                dev->dev_blocked = BST_UNMOUNTED_WAITING_FOR_SYSOP;
 778                bnet_fsend(dir, _("3001 Device %s unmounted.\n"),
 779                   dev->print_name());
 780             }
 781
 782          } else if (dev->dev_blocked == BST_DOING_ACQUIRE) {
 783             bnet_fsend(dir, _("3902 Device %s is busy in acquire.\n"),
 784                dev->print_name());
 785
 786          } else if (dev->dev_blocked == BST_WRITING_LABEL) {
 787             bnet_fsend(dir, _("3903 Device %s is being labeled.\n"),
 788                dev->print_name());
 789
 790          } else if (dev->is_busy()) {
 791             send_dir_busy_message(dir, dev);
 792          } else {                     /* device not being used */
 793             Dmsg0(90, "Device not in use, unmounting\n");
 794             /* On FreeBSD, I am having ASSERT() failures in block_device()
 795              * and I can only imagine that the thread id that we are
 796              * leaving in no_wait_id is being re-used. So here,
 797              * we simply do it by hand.  Gross, but a solution.
 798              */
 799             /*  block_device(dev, BST_UNMOUNTED); replace with 2 lines below */
 800             dev->dev_blocked = BST_UNMOUNTED;
 801             dev->no_wait_id = 0;
 802             if (!unload_autochanger(jcr->dcr, -1)) {
 803                dev->close();
 804             }
 805             if (dev->is_dvd() && !unmount_dvd(dev, 0)) {
 806                bnet_fsend(dir, _("3907 %s"), dev->bstrerror());
 807             } else {
 808                bnet_fsend(dir, _("3002 Device %s unmounted.\n"),
 809                   dev->print_name());
 810             }
 811          }
 812          V(dev->mutex);
 813          free_dcr(dcr);
 814          jcr->dcr = NULL;
 815       } else {
 816          bnet_fsend(dir, _("3999 Device \"%s\" not found or could not be opened.\n"), devname.c_str());
 817       }
 818    } else {
 819       /* NB dir->msg gets clobbered in bnet_fsend, so save command */
 820       pm_strcpy(jcr->errmsg, dir->msg);
 821       bnet_fsend(dir, _("3907 Error scanning unmount command: %s\n"), jcr->errmsg);
 822    }
 823    bnet_sig(dir, BNET_EOD);
 824    return true;
 825 }
 826
 827 /*
 828  * Release command from Director. This rewinds the device and if
 829  *   configured does a offline and ensures that Bacula will
 830  *   re-read the label of the tape before continuing. This gives
 831  *   the operator the chance to change the tape anytime before the
 832  *   next job starts.
 833  */
 834 static bool release_cmd(JCR *jcr)
 835 {
 836    POOL_MEM devname;
 837    BSOCK *dir = jcr->dir_bsock;
 838    DEVICE *dev;
 839    DCR *dcr;
 840    int drive;
 841
 842    if (sscanf(dir->msg, "release %127s drive=%d", devname.c_str(), &drive) == 2) {
 843       dcr = find_device(jcr, devname, drive);
 844       if (dcr) {
 845          dev = dcr->dev;
 846          P(dev->mutex);               /* Use P to avoid indefinite block */
 847          if (!dev->is_open()) {
 848             Dmsg0(90, "Device already released\n");
 849             bnet_fsend(dir, _("3921 Device %s already released.\n"),
 850                dev->print_name());
 851
 852          } else if (dev->dev_blocked == BST_WAITING_FOR_SYSOP ||
 853                     dev->dev_blocked == BST_UNMOUNTED_WAITING_FOR_SYSOP) {
 854             Dmsg2(90, "%d waiter dev_block=%d. doing unmount\n", dev->num_waiting,
 855                dev->dev_blocked);
 856             bnet_fsend(dir, _("3922 Device %s waiting for mount.\n"),
 857                dev->print_name());
 858
 859          } else if (dev->dev_blocked == BST_DOING_ACQUIRE) {
 860             bnet_fsend(dir, _("3923 Device %s is busy in acquire.\n"),
 861                dev->print_name());
 862
 863          } else if (dev->dev_blocked == BST_WRITING_LABEL) {
 864             bnet_fsend(dir, _("3914 Device %s is being labeled.\n"),
 865                dev->print_name());
 866
 867          } else if (dev->is_busy()) {
 868             send_dir_busy_message(dir, dev);
 869          } else {                     /* device not being used */
 870             Dmsg0(90, "Device not in use, unmounting\n");
 871             release_volume(jcr->dcr);
 872             bnet_fsend(dir, _("3022 Device %s released.\n"),
 873                dev->print_name());
 874          }
 875          V(dev->mutex);
 876          free_dcr(dcr);
 877          jcr->dcr = NULL;
 878       } else {
 879          bnet_fsend(dir, _("3999 Device \"%s\" not found or could not be opened.\n"), devname.c_str());
 880       }
 881    } else {
 882       /* NB dir->msg gets clobbered in bnet_fsend, so save command */
 883       pm_strcpy(jcr->errmsg, dir->msg);
 884       bnet_fsend(dir, _("3927 Error scanning release command: %s\n"), jcr->errmsg);
 885    }
 886    bnet_sig(dir, BNET_EOD);
 887    return true;
 888 }
 889
 890
 891 static bool bootstrap_cmd(JCR *jcr)
 892 {
 893    return get_bootstrap_file(jcr, jcr->dir_bsock);
 894 }
 895
 896 /*
 897  * Autochanger command from Director
 898  */
 899 static bool changer_cmd(JCR *jcr)
 900 {
 901    POOL_MEM devname;
 902    BSOCK *dir = jcr->dir_bsock;
 903    DEVICE *dev;
 904    DCR *dcr;
 905    const char *cmd = NULL;
 906    bool ok = false;
 907    bool dolist = false;
 908
 909    if (sscanf(dir->msg, "autochanger list %127s", devname.c_str()) == 1) {
 910       cmd = "list";
 911       dolist = ok = true;
 912    } else if (sscanf(dir->msg, "autochanger slots %127s", devname.c_str()) == 1) {
 913       cmd = "slots";
 914       ok = true;
 915    } else if (sscanf(dir->msg, "autochanger drives %127s", devname.c_str()) == 1) {
 916       cmd = "drives";
 917       ok = true;
 918    }
 919    if (ok) {
 920       dcr = find_device(jcr, devname, -1);
 921       if (dcr) {
 922          dev = dcr->dev;
 923          P(dev->mutex);               /* Use P to avoid indefinite block */
 924          if (!dev->device->changer_res) {
 925             bnet_fsend(dir, _("3995 Device %s is not an autochanger.\n"),
 926                dev->print_name());
 927          /* Under certain "safe" conditions, we can steal the lock */
 928          } else if (dolist || !dev->is_open() || dev->can_steal_lock()) {
 929             autochanger_cmd(dcr, dir, cmd);
 930          } else if (dev->is_busy() || dev->is_blocked()) {
 931             send_dir_busy_message(dir, dev);
 932          } else {                     /* device not being used */
 933             autochanger_cmd(dcr, dir, cmd);
 934          }
 935          V(dev->mutex);
 936          free_dcr(dcr);
 937          jcr->dcr = NULL;
 938       } else {
 939          bnet_fsend(dir, _("3999 Device \"%s\" not found or could not be opened.\n"), devname.c_str());
 940       }
 941    } else {  /* error on scanf */
 942       pm_strcpy(jcr->errmsg, dir->msg);
 943       bnet_fsend(dir, _("3908 Error scanning autocharger drives/list/slots command: %s\n"),
 944          jcr->errmsg);
 945    }
 946    bnet_sig(dir, BNET_EOD);
 947    return true;
 948 }
 949
 950 /*
 951  * Read and return the Volume label
 952  */
 953 static bool readlabel_cmd(JCR *jcr)
 954 {
 955    POOL_MEM devname;
 956    BSOCK *dir = jcr->dir_bsock;
 957    DEVICE *dev;
 958    DCR *dcr;
 959    int Slot;
 960    int drive;
 961
 962    if (sscanf(dir->msg, "readlabel %127s Slot=%d drive=%d", devname.c_str(),
 963        &Slot, &drive) == 3) {
 964       dcr = find_device(jcr, devname, drive);
 965       if (dcr) {
 966          dev = dcr->dev;
 967          P(dev->mutex);               /* Use P to avoid indefinite block */
 968          if (!dev->is_open()) {
 969             read_volume_label(jcr, dev, Slot);
 970             dev->close();
 971          /* Under certain "safe" conditions, we can steal the lock */
 972          } else if (dev->can_steal_lock()) {
 973             read_volume_label(jcr, dev, Slot);
 974          } else if (dev->is_busy() || dev->is_blocked()) {
 975             send_dir_busy_message(dir, dev);
 976          } else {                     /* device not being used */
 977             read_volume_label(jcr, dev, Slot);
 978          }
 979          V(dev->mutex);
 980          free_dcr(dcr);
 981          jcr->dcr = NULL;
 982       } else {
 983          bnet_fsend(dir, _("3999 Device \"%s\" not found or could not be opened.\n"), devname.c_str());
 984       }
 985    } else {
 986       pm_strcpy(jcr->errmsg, dir->msg);
 987       bnet_fsend(dir, _("3909 Error scanning readlabel command: %s\n"), jcr->errmsg);
 988    }
 989    bnet_sig(dir, BNET_EOD);
 990    return true;
 991 }
 992
 993
 994 /*
 995  * Read the tape label
 996  *
 997  *  Enter with the mutex set
 998  */
 999 static void read_volume_label(JCR *jcr, DEVICE *dev, int Slot)
1000 {
1001    BSOCK *dir = jcr->dir_bsock;
1002    bsteal_lock_t hold;
1003    DCR *dcr = jcr->dcr;
1004
1005    dcr->dev = dev;
1006    steal_device_lock(dev, &hold, BST_WRITING_LABEL);
1007
1008    if (!try_autoload_device(jcr, Slot, "")) {
1009       goto bail_out;                  /* error */
1010    }
1011
1012    dev->clear_labeled();              /* force read of label */
1013    switch (read_dev_volume_label(dcr)) {
1014    case VOL_OK:
1015       /* DO NOT add quotes around the Volume name. It is scanned in the DIR */
1016       bnet_fsend(dir, _("3001 Volume=%s Slot=%d\n"), dev->VolHdr.VolumeName, Slot);
1017       Dmsg1(100, "Volume: %s\n", dev->VolHdr.VolumeName);
1018       break;
1019    default:
1020       bnet_fsend(dir, _("3902 Cannot mount Volume on Storage Device %s because:\n%s"),
1021                  dev->print_name(), jcr->errmsg);
1022       break;
1023    }
1024
1025 bail_out:
1026    give_back_device_lock(dev, &hold);
1027    return;
1028 }
1029
1030 static bool try_autoload_device(JCR *jcr, int slot, const char *VolName)
1031 {
1032    DCR *dcr = jcr->dcr;
1033    BSOCK *dir = jcr->dir_bsock;
1034
1035    bstrncpy(dcr->VolumeName, VolName, sizeof(dcr->VolumeName));
1036    dcr->VolCatInfo.Slot = slot;
1037    dcr->VolCatInfo.InChanger = slot > 0;
1038    if (autoload_device(dcr, 0, dir) < 0) {    /* autoload if possible */
1039       return false;
1040    }
1041    return true;
1042 }
1043
1044 static void send_dir_busy_message(BSOCK *dir, DEVICE *dev)
1045 {
1046    if (dev->is_blocked()) {
1047       switch (dev->dev_blocked) {
1048       case BST_UNMOUNTED:
1049          bnet_fsend(dir, _("3931 Device %s is BLOCKED. user unmounted.\n"),
1050             dev->print_name());
1051          break;
1052       case BST_UNMOUNTED_WAITING_FOR_SYSOP:
1053          bnet_fsend(dir, _("3932 Device %s is BLOCKED. user unmounted during wait for media/mount.\n"),
1054              dev->print_name());
1055          break;
1056       case BST_WAITING_FOR_SYSOP:
1057          bnet_fsend(dir, _("3933 Device %s is BLOCKED waiting for media.\n"),
1058             dev->print_name());
1059          break;
1060       case BST_DOING_ACQUIRE:
1061          bnet_fsend(dir, _("3934 Device %s is being initialized.\n"),
1062             dev->print_name());
1063          break;
1064       case BST_WRITING_LABEL:
1065          bnet_fsend(dir, _("3935 Device %s is blocked labeling a Volume.\n"),
1066             dev->print_name());
1067          break;
1068       default:
1069          bnet_fsend(dir, _("3935 Device %s is blocked for unknown reason.\n"),
1070             dev->print_name());
1071          break;
1072       }
1073    } else if (dev->can_read()) {
1074        bnet_fsend(dir, _("3936 Device %s is busy reading.\n"),
1075                    dev->print_name());;
1076    } else {
1077        bnet_fsend(dir, _("3937 Device %s is busy with %d writer(s).\n"),
1078           dev->print_name(), dev->num_writers);
1079    }
1080 }