qemu_driver.c 255.2 KB
Newer Older
D
Daniel P. Berrange 已提交
1 2 3
/*
 * driver.c: core driver methods for managing qemu guests
 *
4
 * Copyright (C) 2006, 2007, 2008, 2009, 2010 Red Hat, Inc.
D
Daniel P. Berrange 已提交
5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
 * Copyright (C) 2006 Daniel P. Berrange
 *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2.1 of the License, or (at your option) any later version.
 *
 * This library is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with this library; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307  USA
 *
 * Author: Daniel P. Berrange <berrange@redhat.com>
 */

24
#include <config.h>
25

D
Daniel P. Berrange 已提交
26 27
#include <sys/types.h>
#include <sys/poll.h>
28
#include <sys/time.h>
D
Daniel P. Berrange 已提交
29 30 31
#include <dirent.h>
#include <limits.h>
#include <string.h>
32
#include <stdbool.h>
D
Daniel P. Berrange 已提交
33 34 35 36 37 38
#include <stdio.h>
#include <strings.h>
#include <stdarg.h>
#include <stdlib.h>
#include <unistd.h>
#include <errno.h>
39
#include <sys/utsname.h>
40 41 42 43
#include <sys/stat.h>
#include <fcntl.h>
#include <signal.h>
#include <paths.h>
44 45
#include <pwd.h>
#include <stdio.h>
46
#include <sys/wait.h>
47
#include <sys/ioctl.h>
48
#include <sys/un.h>
D
Daniel P. Berrange 已提交
49

50
#include "virterror_internal.h"
51
#include "logging.h"
52
#include "datatypes.h"
53 54
#include "qemu_driver.h"
#include "qemu_conf.h"
55
#include "qemu_monitor.h"
56
#include "qemu_monitor_text.h"
57
#include "qemu_bridge_filter.h"
J
Jim Meyering 已提交
58
#include "c-ctype.h"
59
#include "event.h"
60
#include "buf.h"
61
#include "util.h"
62
#include "nodeinfo.h"
63
#include "stats_linux.h"
64
#include "capabilities.h"
65
#include "memory.h"
66
#include "uuid.h"
67
#include "domain_conf.h"
68 69
#include "node_device_conf.h"
#include "pci.h"
70
#include "hostusb.h"
71
#include "processinfo.h"
72
#include "security/security_driver.h"
73
#include "cgroup.h"
C
Chris Lalancette 已提交
74
#include "libvirt_internal.h"
75
#include "xml.h"
76
#include "cpu/cpu.h"
77

78

79 80
#define VIR_FROM_THIS VIR_FROM_QEMU

81 82 83
typedef struct _qemuDomainObjPrivate qemuDomainObjPrivate;
typedef qemuDomainObjPrivate *qemuDomainObjPrivatePtr;
struct _qemuDomainObjPrivate {
84 85 86 87 88
    virCond jobCond; /* Use in conjunction with main virDomainObjPtr lock */
    int jobActive; /* Non-zero if a job is active. Only 1 job is allowed at any time
                    * A job includes *all* monitor commands, even those just querying
                    * information, not merely actions */

89
    qemuMonitorPtr mon;
90
    virDomainChrDefPtr monConfig;
D
Daniel P. Berrange 已提交
91
    int monJSON;
92 93 94

    int nvcpupids;
    int *vcpupids;
95 96
};

97 98
static int qemudShutdown(void);

99 100
static void qemuDriverLock(struct qemud_driver *driver)
{
101
    virMutexLock(&driver->lock);
102 103 104
}
static void qemuDriverUnlock(struct qemud_driver *driver)
{
105
    virMutexUnlock(&driver->lock);
106 107
}

108 109 110
static void qemuDomainEventFlush(int timer, void *opaque);
static void qemuDomainEventQueue(struct qemud_driver *driver,
                                 virDomainEventPtr event);
111

112 113
static int qemudStartVMDaemon(virConnectPtr conn,
                              struct qemud_driver *driver,
114
                              virDomainObjPtr vm,
115 116
                              const char *migrateFrom,
                              int stdin_fd);
117

118 119
static void qemudShutdownVMDaemon(virConnectPtr conn,
                                  struct qemud_driver *driver,
120
                                  virDomainObjPtr vm);
121

122
static int qemudDomainGetMaxVcpus(virDomainPtr dom);
123

124
static int qemuDetectVcpuPIDs(virConnectPtr conn,
125
                              struct qemud_driver *driver,
126
                              virDomainObjPtr vm);
127

128 129 130
static int qemuUpdateActivePciHostdevs(struct qemud_driver *driver,
                                       virDomainDefPtr def);

J
Jim Meyering 已提交
131
static struct qemud_driver *qemu_driver = NULL;
132

133 134 135 136 137 138 139 140 141 142 143 144 145 146 147

static void *qemuDomainObjPrivateAlloc(void)
{
    qemuDomainObjPrivatePtr priv;

    if (VIR_ALLOC(priv) < 0)
        return NULL;

    return priv;
}

static void qemuDomainObjPrivateFree(void *data)
{
    qemuDomainObjPrivatePtr priv = data;

148 149 150
    virDomainChrDefFree(priv->monConfig);
    VIR_FREE(priv->vcpupids);

151 152 153 154 155 156 157 158 159
    /* This should never be non-NULL if we get here, but just in case... */
    if (priv->mon) {
        VIR_ERROR0("Unexpected QEMU monitor still active during domain deletion");
        qemuMonitorClose(priv->mon);
    }
    VIR_FREE(priv);
}


160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177
static int qemuDomainObjPrivateXMLFormat(virBufferPtr buf, void *data)
{
    qemuDomainObjPrivatePtr priv = data;
    const char *monitorpath;

    /* priv->monitor_chr is set only for qemu */
    if (priv->monConfig) {
        switch (priv->monConfig->type) {
        case VIR_DOMAIN_CHR_TYPE_UNIX:
            monitorpath = priv->monConfig->data.nix.path;
            break;
        default:
        case VIR_DOMAIN_CHR_TYPE_PTY:
            monitorpath = priv->monConfig->data.file.path;
            break;
        }

        virBufferEscapeString(buf, "  <monitor path='%s'", monitorpath);
D
Daniel P. Berrange 已提交
178 179
        if (priv->monJSON)
            virBufferAddLit(buf, " json='1'");
180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223
        virBufferVSprintf(buf, " type='%s'/>\n",
                          virDomainChrTypeToString(priv->monConfig->type));
    }


    if (priv->nvcpupids) {
        int i;
        virBufferAddLit(buf, "  <vcpus>\n");
        for (i = 0 ; i < priv->nvcpupids ; i++) {
            virBufferVSprintf(buf, "    <vcpu pid='%d'/>\n", priv->vcpupids[i]);
        }
        virBufferAddLit(buf, "  </vcpus>\n");
    }

    return 0;
}

static int qemuDomainObjPrivateXMLParse(xmlXPathContextPtr ctxt, void *data)
{
    qemuDomainObjPrivatePtr priv = data;
    char *monitorpath;
    char *tmp;
    int n, i;
    xmlNodePtr *nodes = NULL;

    if (VIR_ALLOC(priv->monConfig) < 0) {
        virReportOOMError(NULL);
        goto error;
    }

    if (!(monitorpath =
          virXPathString(NULL, "string(./monitor[1]/@path)", ctxt))) {
        qemudReportError(NULL, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
                         "%s", _("no monitor path"));
        goto error;
    }

    tmp = virXPathString(NULL, "string(./monitor[1]/@type)", ctxt);
    if (tmp)
        priv->monConfig->type = virDomainChrTypeFromString(tmp);
    else
        priv->monConfig->type = VIR_DOMAIN_CHR_TYPE_PTY;
    VIR_FREE(tmp);

224
    if (virXPathBoolean(NULL, "count(./monitor[@json = '1']) > 0", ctxt)) {
D
Daniel P. Berrange 已提交
225
        priv->monJSON = 1;
226 227 228
    } else {
        priv->monJSON = 0;
    }
D
Daniel P. Berrange 已提交
229

230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277
    switch (priv->monConfig->type) {
    case VIR_DOMAIN_CHR_TYPE_PTY:
        priv->monConfig->data.file.path = monitorpath;
        break;
    case VIR_DOMAIN_CHR_TYPE_UNIX:
        priv->monConfig->data.nix.path = monitorpath;
        break;
    default:
        VIR_FREE(monitorpath);
        qemudReportError(NULL, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
                         _("unsupported monitor type '%s'"),
                         virDomainChrTypeToString(priv->monConfig->type));
        goto error;
    }

    n = virXPathNodeSet(NULL, "./vcpus/vcpu", ctxt, &nodes);
    if (n < 0)
        goto error;
    if (n) {
        priv->nvcpupids = n;
        if (VIR_REALLOC_N(priv->vcpupids, priv->nvcpupids) < 0) {
            virReportOOMError(NULL);
            goto error;
        }

        for (i = 0 ; i < n ; i++) {
            char *pidstr = virXMLPropString(nodes[i], "pid");
            if (!pidstr)
                goto error;

            if (virStrToLong_i(pidstr, NULL, 10, &(priv->vcpupids[i])) < 0) {
                VIR_FREE(pidstr);
                goto error;
            }
            VIR_FREE(pidstr);
        }
        VIR_FREE(nodes);
    }

    return 0;

error:
    VIR_FREE(nodes);
    return -1;
}



278 279 280 281 282 283 284 285 286
/*
 * obj must be locked before calling, qemud_driver must NOT be locked
 *
 * This must be called by anything that will change the VM state
 * in any way, or anything that will use the QEMU monitor.
 *
 * Upon successful return, the object will have its ref count increased,
 * successful calls must be followed by EndJob eventually
 */
287 288 289 290

/* Give up waiting for mutex after 30 seconds */
#define QEMU_JOB_WAIT_TIME (1000ull * 30)

291 292 293 294
static int qemuDomainObjBeginJob(virDomainObjPtr obj) ATTRIBUTE_RETURN_CHECK;
static int qemuDomainObjBeginJob(virDomainObjPtr obj)
{
    qemuDomainObjPrivatePtr priv = obj->privateData;
295 296 297 298 299 300 301 302 303 304
    struct timeval now;
    unsigned long long then;

    if (gettimeofday(&now, NULL) < 0) {
        virReportSystemError(NULL, errno, "%s",
                             _("cannot get time of day"));
        return -1;
    }
    then = (now.tv_sec * 1000ull) + (now.tv_usec / 1000);
    then += QEMU_JOB_WAIT_TIME;
305 306 307 308

    virDomainObjRef(obj);

    while (priv->jobActive) {
309
        if (virCondWaitUntil(&priv->jobCond, &obj->lock, then) < 0) {
310
            virDomainObjUnref(obj);
311 312 313 314 315 316
            if (errno == ETIMEDOUT)
                qemudReportError(NULL, NULL, NULL, VIR_ERR_OPERATION_TIMEOUT,
                                 "%s", _("cannot acquire state change lock"));
            else
                virReportSystemError(NULL, errno,
                                     "%s", _("cannot acquire job mutex"));
317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336
            return -1;
        }
    }
    priv->jobActive = 1;

    return 0;
}

/*
 * obj must be locked before calling, qemud_driver must be locked
 *
 * This must be called by anything that will change the VM state
 * in any way, or anything that will use the QEMU monitor.
 */
static int qemuDomainObjBeginJobWithDriver(struct qemud_driver *driver,
                                           virDomainObjPtr obj) ATTRIBUTE_RETURN_CHECK;
static int qemuDomainObjBeginJobWithDriver(struct qemud_driver *driver,
                                           virDomainObjPtr obj)
{
    qemuDomainObjPrivatePtr priv = obj->privateData;
337 338 339 340 341 342 343 344 345 346
    struct timeval now;
    unsigned long long then;

    if (gettimeofday(&now, NULL) < 0) {
        virReportSystemError(NULL, errno, "%s",
                             _("cannot get time of day"));
        return -1;
    }
    then = (now.tv_sec * 1000ull) + (now.tv_usec / 1000);
    then += QEMU_JOB_WAIT_TIME;
347 348 349 350 351

    virDomainObjRef(obj);
    qemuDriverUnlock(driver);

    while (priv->jobActive) {
352
        if (virCondWaitUntil(&priv->jobCond, &obj->lock, then) < 0) {
353
            virDomainObjUnref(obj);
354 355 356 357 358 359
            if (errno == ETIMEDOUT)
                qemudReportError(NULL, NULL, NULL, VIR_ERR_OPERATION_TIMEOUT,
                                 "%s", _("cannot acquire state change lock"));
            else
                virReportSystemError(NULL, errno,
                                     "%s", _("cannot acquire job mutex"));
M
Matthias Bolte 已提交
360
            qemuDriverLock(driver);
361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377
            return -1;
        }
    }
    priv->jobActive = 1;

    virDomainObjUnlock(obj);
    qemuDriverLock(driver);
    virDomainObjLock(obj);

    return 0;
}

/*
 * obj must be locked before calling, qemud_driver does not matter
 *
 * To be called after completing the work associated with the
 * earlier  qemuDomainBeginJob() call
378 379 380
 *
 * Returns remaining refcount on 'obj', maybe 0 to indicated it
 * was deleted
381
 */
382
static int ATTRIBUTE_RETURN_CHECK qemuDomainObjEndJob(virDomainObjPtr obj)
383 384 385 386 387 388
{
    qemuDomainObjPrivatePtr priv = obj->privateData;

    priv->jobActive = 0;
    virCondSignal(&priv->jobCond);

389
    return virDomainObjUnref(obj);
390 391 392 393 394 395 396 397 398 399 400
}


/*
 * obj must be locked before calling, qemud_driver must be unlocked
 *
 * To be called immediately before any QEMU monitor API call
 * Must have alrady called qemuDomainObjBeginJob().
 *
 * To be followed with qemuDomainObjExitMonitor() once complete
 */
401 402 403 404 405
static void qemuDomainObjEnterMonitor(virDomainObjPtr obj)
{
    qemuDomainObjPrivatePtr priv = obj->privateData;

    qemuMonitorLock(priv->mon);
406
    qemuMonitorRef(priv->mon);
407
    virDomainObjUnlock(obj);
408 409 410
}


411 412 413 414
/* obj must NOT be locked before calling, qemud_driver must be unlocked
 *
 * Should be paired with an earlier  qemuDomainObjEnterMonitor() call
 */
415 416 417
static void qemuDomainObjExitMonitor(virDomainObjPtr obj)
{
    qemuDomainObjPrivatePtr priv = obj->privateData;
418 419 420 421 422 423
    int refs;

    refs = qemuMonitorUnref(priv->mon);

    if (refs > 0)
        qemuMonitorUnlock(priv->mon);
424

425
    virDomainObjLock(obj);
426 427 428 429 430

    if (refs == 0) {
        virDomainObjUnref(obj);
        priv->mon = NULL;
    }
431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446
}


/*
 * obj must be locked before calling, qemud_driver must be locked
 *
 * To be called immediately before any QEMU monitor API call
 * Must have alrady called qemuDomainObjBeginJob().
 *
 * To be followed with qemuDomainObjExitMonitorWithDriver() once complete
 */
static void qemuDomainObjEnterMonitorWithDriver(struct qemud_driver *driver, virDomainObjPtr obj)
{
    qemuDomainObjPrivatePtr priv = obj->privateData;

    qemuMonitorLock(priv->mon);
447
    qemuMonitorRef(priv->mon);
448 449 450 451 452 453 454 455 456 457 458 459 460
    virDomainObjUnlock(obj);
    qemuDriverUnlock(driver);
}


/* obj must NOT be locked before calling, qemud_driver must be unlocked,
 * and will be locked after returning
 *
 * Should be paired with an earlier  qemuDomainObjEnterMonitor() call
 */
static void qemuDomainObjExitMonitorWithDriver(struct qemud_driver *driver, virDomainObjPtr obj)
{
    qemuDomainObjPrivatePtr priv = obj->privateData;
461 462 463 464 465 466
    int refs;

    refs = qemuMonitorUnref(priv->mon);

    if (refs > 0)
        qemuMonitorUnlock(priv->mon);
467 468 469

    qemuDriverLock(driver);
    virDomainObjLock(obj);
470 471 472 473 474

    if (refs == 0) {
        virDomainObjUnref(obj);
        priv->mon = NULL;
    }
475 476 477
}


478 479 480 481 482 483 484 485 486
static int qemuCgroupControllerActive(struct qemud_driver *driver,
                                      int controller)
{
    if (driver->cgroup == NULL)
        return 0;
    if (driver->cgroupControllers & (1 << controller))
        return 1;
    return 0;
}
487

488
static int
489
qemudLogFD(virConnectPtr conn, struct qemud_driver *driver, const char* name)
490 491 492
{
    char logfile[PATH_MAX];
    mode_t logmode;
G
Guido Günther 已提交
493
    int ret, fd = -1;
494

495 496
    if ((ret = snprintf(logfile, sizeof(logfile), "%s/%s.log",
                        driver->logDir, name))
G
Guido Günther 已提交
497
        < 0 || ret >= sizeof(logfile)) {
498
        virReportOOMError(conn);
499 500 501 502
        return -1;
    }

    logmode = O_CREAT | O_WRONLY;
503 504
    /* Only logrotate files in /var/log, so only append if running privileged */
    if (driver->privileged)
505
        logmode |= O_APPEND;
506 507 508
    else
        logmode |= O_TRUNC;

509
    if ((fd = open(logfile, logmode, S_IRUSR | S_IWUSR)) < 0) {
510 511 512
        virReportSystemError(conn, errno,
                             _("failed to create logfile %s"),
                             logfile);
513 514
        return -1;
    }
515
    if (virSetCloseExec(fd) < 0) {
516 517
        virReportSystemError(conn, errno, "%s",
                             _("Unable to set VM logfile close-on-exec flag"));
518 519 520 521 522 523 524
        close(fd);
        return -1;
    }
    return fd;
}


525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541
static int
qemudLogReadFD(virConnectPtr conn, const char* logDir, const char* name, off_t pos)
{
    char logfile[PATH_MAX];
    mode_t logmode = O_RDONLY;
    int ret, fd = -1;

    if ((ret = snprintf(logfile, sizeof(logfile), "%s/%s.log", logDir, name))
        < 0 || ret >= sizeof(logfile)) {
        qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
                         _("failed to build logfile name %s/%s.log"),
                         logDir, name);
        return -1;
    }


    if ((fd = open(logfile, logmode)) < 0) {
542 543 544
        virReportSystemError(conn, errno,
                             _("failed to create logfile %s"),
                             logfile);
545 546
        return -1;
    }
547
    if (virSetCloseExec(fd) < 0) {
548 549
        virReportSystemError(conn, errno, "%s",
                             _("Unable to set VM logfile close-on-exec flag"));
550 551 552 553
        close(fd);
        return -1;
    }
    if (lseek(fd, pos, SEEK_SET) < 0) {
554 555 556
        virReportSystemError(conn, errno,
                             _("Unable to seek to %lld in %s"),
                             (long long) pos, logfile);
557 558 559 560 561 562
        close(fd);
    }
    return fd;
}


563 564 565 566 567 568 569 570 571 572 573 574
struct qemuAutostartData {
    struct qemud_driver *driver;
    virConnectPtr conn;
};
static void
qemuAutostartDomain(void *payload, const char *name ATTRIBUTE_UNUSED, void *opaque)
{
    virDomainObjPtr vm = payload;
    struct qemuAutostartData *data = opaque;

    virDomainObjLock(vm);
    if (vm->autostart &&
D
Daniel P. Berrange 已提交
575
        !virDomainObjIsActive(vm)) {
576 577 578 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594 595 596
        int ret;

        virResetLastError();
        ret = qemudStartVMDaemon(data->conn, data->driver, vm, NULL, -1);
        if (ret < 0) {
            virErrorPtr err = virGetLastError();
            VIR_ERROR(_("Failed to autostart VM '%s': %s\n"),
                      vm->def->name,
                      err ? err->message : "");
        } else {
            virDomainEventPtr event =
                virDomainEventNewFromObj(vm,
                                         VIR_DOMAIN_EVENT_STARTED,
                                         VIR_DOMAIN_EVENT_STARTED_BOOTED);
            if (event)
                qemuDomainEventQueue(data->driver, event);
        }
    }
    virDomainObjUnlock(vm);
}

597 598
static void
qemudAutostartConfigs(struct qemud_driver *driver) {
599 600 601 602 603
    /* XXX: Figure out a better way todo this. The domain
     * startup code needs a connection handle in order
     * to lookup the bridge associated with a virtual
     * network
     */
604 605 606
    virConnectPtr conn = virConnectOpen(driver->privileged ?
                                        "qemu:///system" :
                                        "qemu:///session");
607
    /* Ignoring NULL conn which is mostly harmless here */
608
    struct qemuAutostartData data = { driver, conn };
609

610
    qemuDriverLock(driver);
611
    virHashForEach(driver->domains.objs, qemuAutostartDomain, &data);
612
    qemuDriverUnlock(driver);
613

614 615
    if (conn)
        virConnectClose(conn);
616 617
}

618 619 620 621 622 623 624 625 626 627 628 629 630

/**
 * qemudRemoveDomainStatus
 *
 * remove all state files of a domain from statedir
 *
 * Returns 0 on success
 */
static int
qemudRemoveDomainStatus(virConnectPtr conn,
                        struct qemud_driver *driver,
                        virDomainObjPtr vm)
{
631
    char ebuf[1024];
632 633 634
    char *file = NULL;

    if (virAsprintf(&file, "%s/%s.xml", driver->stateDir, vm->def->name) < 0) {
635
        virReportOOMError(conn);
D
Daniel Veillard 已提交
636
        return(-1);
637 638
    }

639 640
    if (unlink(file) < 0 && errno != ENOENT && errno != ENOTDIR)
        VIR_WARN(_("Failed to remove domain XML for %s: %s"),
D
Daniel Veillard 已提交
641 642 643
                 vm->def->name, virStrerror(errno, ebuf, sizeof(ebuf)));
    VIR_FREE(file);

644 645 646
    if (virFileDeletePid(driver->stateDir, vm->def->name) != 0)
        VIR_WARN(_("Failed to remove PID file for %s: %s"),
                 vm->def->name, virStrerror(errno, ebuf, sizeof(ebuf)));
647

D
Daniel Veillard 已提交
648

649
    return 0;
650 651
}

652 653 654 655 656 657 658 659 660 661 662 663 664 665

/*
 * This is a callback registered with a qemuMonitorPtr  instance,
 * and to be invoked when the monitor console hits an end of file
 * condition, or error, thus indicating VM shutdown should be
 * performed
 */
static void
qemuHandleMonitorEOF(qemuMonitorPtr mon ATTRIBUTE_UNUSED,
                     virDomainObjPtr vm,
                     int hasError) {
    struct qemud_driver *driver = qemu_driver;
    virDomainEventPtr event = NULL;

666
    VIR_DEBUG("Received EOF on %p '%s'", vm, vm->def->name);
667 668 669 670 671 672 673 674 675 676 677 678 679 680 681 682 683 684 685 686 687 688
    virDomainObjLock(vm);

    event = virDomainEventNewFromObj(vm,
                                     VIR_DOMAIN_EVENT_STOPPED,
                                     hasError ?
                                     VIR_DOMAIN_EVENT_STOPPED_FAILED :
                                     VIR_DOMAIN_EVENT_STOPPED_SHUTDOWN);

    qemudShutdownVMDaemon(NULL, driver, vm);
    if (!vm->persistent)
        virDomainRemoveInactive(&driver->domains, vm);
    else
        virDomainObjUnlock(vm);

    if (event) {
        qemuDriverLock(driver);
        qemuDomainEventQueue(driver, event);
        qemuDriverUnlock(driver);
    }
}


689 690 691 692 693 694 695 696 697 698 699 700 701 702 703 704 705 706 707 708 709 710 711 712 713 714 715 716 717 718 719 720 721 722 723 724 725 726 727 728 729 730
static virStorageEncryptionPtr
findDomainDiskEncryption(virConnectPtr conn, virDomainObjPtr vm,
                         const char *path)
{
    bool seen_volume;
    int i;

    seen_volume = false;
    for (i = 0; i < vm->def->ndisks; i++) {
        virDomainDiskDefPtr disk;

        disk = vm->def->disks[i];
        if (disk->src != NULL && STREQ(disk->src, path)) {
            seen_volume = true;
            if (disk->encryption != NULL)
                return disk->encryption;
        }
    }
    if (seen_volume)
        qemudReportError(conn, NULL, NULL, VIR_ERR_INVALID_DOMAIN,
                         _("missing <encryption> for volume %s"), path);
    else
        qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
                         _("unexpected passphrase request for volume %s"),
                         path);
    return NULL;
}


static int
findVolumeQcowPassphrase(qemuMonitorPtr mon ATTRIBUTE_UNUSED,
                         virConnectPtr conn,
                         virDomainObjPtr vm,
                         const char *path,
                         char **secretRet,
                         size_t *secretLen)
{
    virStorageEncryptionPtr enc;
    virSecretPtr secret;
    char *passphrase;
    unsigned char *data;
    size_t size;
731 732
    int ret = -1;

733
    virDomainObjLock(vm);
734 735 736 737

    if (!conn) {
        qemudReportError(NULL, NULL, NULL, VIR_ERR_NO_SUPPORT,
                         "%s", _("cannot find secrets without a connection"));
738
        goto cleanup;
739 740 741 742 743 744 745
    }

    if (conn->secretDriver == NULL ||
        conn->secretDriver->lookupByUUID == NULL ||
        conn->secretDriver->getValue == NULL) {
        qemudReportError(conn, NULL, NULL, VIR_ERR_NO_SUPPORT, "%s",
                         _("secret storage not supported"));
746
        goto cleanup;
747 748 749 750 751 752 753 754 755 756 757 758
    }

    enc = findDomainDiskEncryption(conn, vm, path);
    if (enc == NULL)
        return -1;

    if (enc->format != VIR_STORAGE_ENCRYPTION_FORMAT_QCOW ||
        enc->nsecrets != 1 ||
        enc->secrets[0]->type !=
        VIR_STORAGE_ENCRYPTION_SECRET_TYPE_PASSPHRASE) {
        qemudReportError(conn, NULL, NULL, VIR_ERR_INVALID_DOMAIN,
                         _("invalid <encryption> for volume %s"), path);
759
        goto cleanup;
760 761 762 763 764
    }

    secret = conn->secretDriver->lookupByUUID(conn,
                                              enc->secrets[0]->uuid);
    if (secret == NULL)
765
        goto cleanup;
766 767 768 769
    data = conn->secretDriver->getValue(secret, &size,
                                        VIR_SECRET_GET_VALUE_INTERNAL_CALL);
    virUnrefSecret(secret);
    if (data == NULL)
770
        goto cleanup;
771 772 773 774 775 776 777

    if (memchr(data, '\0', size) != NULL) {
        memset(data, 0, size);
        VIR_FREE(data);
        qemudReportError(conn, NULL, NULL, VIR_ERR_INVALID_SECRET,
                         _("format='qcow' passphrase for %s must not contain a "
                           "'\\0'"), path);
778
        goto cleanup;
779 780 781 782 783 784
    }

    if (VIR_ALLOC_N(passphrase, size + 1) < 0) {
        memset(data, 0, size);
        VIR_FREE(data);
        virReportOOMError(conn);
785
        goto cleanup;
786 787 788 789 790 791 792 793 794 795
    }
    memcpy(passphrase, data, size);
    passphrase[size] = '\0';

    memset(data, 0, size);
    VIR_FREE(data);

    *secretRet = passphrase;
    *secretLen = size;

796 797 798
    ret = 0;

cleanup:
799 800
    virDomainObjUnlock(vm);

801
    return ret;
802 803
}

804 805 806 807 808
static qemuMonitorCallbacks monitorCallbacks = {
    .eofNotify = qemuHandleMonitorEOF,
    .diskSecretLookup = findVolumeQcowPassphrase,
};

809
static int
810
qemuConnectMonitor(virDomainObjPtr vm)
811
{
812
    qemuDomainObjPrivatePtr priv = vm->privateData;
813

814 815 816 817
    /* Hold an extra reference because we can't allow 'vm' to be
     * deleted while the monitor is active */
    virDomainObjRef(vm);

818 819
    if ((priv->mon = qemuMonitorOpen(vm,
                                     priv->monConfig,
D
Daniel P. Berrange 已提交
820
                                     priv->monJSON,
821
                                     &monitorCallbacks)) == NULL) {
822
        VIR_ERROR(_("Failed to connect monitor for %s\n"), vm->def->name);
823
        return -1;
824
    }
825

826 827
    return 0;
}
828 829 830 831

/*
 * Open an existing VM's monitor, re-detect VCPU threads
 * and re-reserve the security labels in use
832
 */
833 834
static void
qemuReconnectDomain(void *payload, const char *name ATTRIBUTE_UNUSED, void *opaque)
835
{
836 837 838 839
    virDomainObjPtr obj = payload;
    struct qemud_driver *driver = opaque;

    virDomainObjLock(obj);
840

841 842 843 844
    VIR_DEBUG("Reconnect monitor to %p '%s'", obj, obj->def->name);

    /* XXX check PID liveliness & EXE path */
    if (qemuConnectMonitor(obj) < 0)
845
        goto error;
846

847 848 849 850
    if (qemuUpdateActivePciHostdevs(driver, obj->def) < 0) {
        goto error;
    }

851 852 853 854
    if (obj->def->seclabel.type == VIR_DOMAIN_SECLABEL_DYNAMIC &&
        driver->securityDriver &&
        driver->securityDriver->domainReserveSecurityLabel &&
        driver->securityDriver->domainReserveSecurityLabel(NULL, obj) < 0)
855
        goto error;
856

857 858
    if (obj->def->id >= driver->nextvmid)
        driver->nextvmid = obj->def->id + 1;
859

860 861
    virDomainObjUnlock(obj);
    return;
862

863
error:
864 865 866 867
    /* We can't get the monitor back, so must kill the VM
     * to remove danger of it ending up running twice if
     * user tries to start it again later */
    qemudShutdownVMDaemon(NULL, driver, obj);
868 869 870 871
    if (!obj->persistent)
        virDomainRemoveInactive(&driver->domains, obj);
    else
        virDomainObjUnlock(obj);
872
}
873

874
/**
875
 * qemudReconnectDomains
876 877 878 879 880 881 882
 *
 * Try to re-open the resources for live VMs that we care
 * about.
 */
static void
qemuReconnectDomains(struct qemud_driver *driver)
{
883
    virHashForEach(driver->domains.objs, qemuReconnectDomain, driver);
884 885
}

886 887 888 889 890 891 892 893 894 895 896 897

static int
qemudSecurityCapsInit(virSecurityDriverPtr secdrv,
                      virCapsPtr caps)
{
    const char *doi, *model;

    doi = virSecurityDriverGetDOI(secdrv);
    model = virSecurityDriverGetModel(secdrv);

    caps->host.secModel.model = strdup(model);
    if (!caps->host.secModel.model) {
898
        virReportOOMError(NULL);
899 900 901 902 903
        return -1;
    }

    caps->host.secModel.doi = strdup(doi);
    if (!caps->host.secModel.doi) {
904
        virReportOOMError(NULL);
905 906 907 908 909 910 911 912 913 914
        return -1;
    }

    VIR_DEBUG("Initialized caps for security driver \"%s\" with "
              "DOI \"%s\"", model, doi);

    return 0;
}


915 916 917 918 919 920 921 922 923 924 925 926 927 928 929 930 931 932 933 934
static int
qemudSecurityInit(struct qemud_driver *qemud_drv)
{
    int ret;
    virSecurityDriverPtr security_drv;

    ret = virSecurityDriverStartup(&security_drv,
                                   qemud_drv->securityDriverName);
    if (ret == -1) {
        VIR_ERROR0(_("Failed to start security driver"));
        return -1;
    }
    /* No security driver wanted to be enabled: just return */
    if (ret == -2) {
        VIR_INFO0(_("No security driver available"));
        return 0;
    }

    qemud_drv->securityDriver = security_drv;

935
    VIR_INFO("Initialized security driver %s", security_drv->name);
936 937 938 939 940

    /*
     * Add security policy host caps now that the security driver is
     * initialized.
     */
941 942
    return qemudSecurityCapsInit(security_drv, qemud_drv->caps);
}
943 944


945

946 947 948 949 950 951
/**
 * qemudStartup:
 *
 * Initialization function for the QEmu daemon
 */
static int
952
qemudStartup(int privileged) {
953
    char *base = NULL;
D
Daniel P. Berrange 已提交
954
    char driverConf[PATH_MAX];
955
    int rc;
956

957
    if (VIR_ALLOC(qemu_driver) < 0)
958 959
        return -1;

960
    if (virMutexInit(&qemu_driver->lock) < 0) {
961
        VIR_ERROR("%s", _("cannot initialize mutex"));
962 963 964
        VIR_FREE(qemu_driver);
        return -1;
    }
965
    qemuDriverLock(qemu_driver);
966
    qemu_driver->privileged = privileged;
967

968 969 970
    /* Don't have a dom0 so start from 1 */
    qemu_driver->nextvmid = 1;

971 972 973
    if (virDomainObjListInit(&qemu_driver->domains) < 0)
        goto out_of_memory;

974
    /* Init callback list */
975
    if (VIR_ALLOC(qemu_driver->domainEventCallbacks) < 0)
976
        goto out_of_memory;
977 978 979 980 981 982
    if (!(qemu_driver->domainEventQueue = virDomainEventQueueNew()))
        goto out_of_memory;

    if ((qemu_driver->domainEventTimer =
         virEventAddTimeout(-1, qemuDomainEventFlush, qemu_driver, NULL)) < 0)
        goto error;
983

984
    if (privileged) {
985 986
        if (virAsprintf(&qemu_driver->logDir,
                        "%s/log/libvirt/qemu", LOCAL_STATE_DIR) == -1)
987
            goto out_of_memory;
988

D
Daniel P. Berrange 已提交
989
        if ((base = strdup (SYSCONF_DIR "/libvirt")) == NULL)
990
            goto out_of_memory;
991 992

        if (virAsprintf(&qemu_driver->stateDir,
993
                      "%s/run/libvirt/qemu", LOCAL_STATE_DIR) == -1)
994
            goto out_of_memory;
995 996 997 998 999 1000 1001 1002

        if (virAsprintf(&qemu_driver->libDir,
                      "%s/lib/libvirt/qemu", LOCAL_STATE_DIR) == -1)
            goto out_of_memory;

        if (virAsprintf(&qemu_driver->cacheDir,
                      "%s/cache/libvirt/qemu", LOCAL_STATE_DIR) == -1)
            goto out_of_memory;
1003
    } else {
1004
        uid_t uid = geteuid();
1005 1006
        char *userdir = virGetUserDirectory(NULL, uid);
        if (!userdir)
1007
            goto error;
1008

1009
        if (virAsprintf(&qemu_driver->logDir,
1010 1011
                        "%s/.libvirt/qemu/log", userdir) == -1) {
            VIR_FREE(userdir);
1012
            goto out_of_memory;
1013
        }
1014

1015 1016
        if (virAsprintf(&base, "%s/.libvirt", userdir) == -1) {
            VIR_FREE(userdir);
1017
            goto out_of_memory;
1018 1019
        }
        VIR_FREE(userdir);
1020 1021 1022

        if (virAsprintf(&qemu_driver->stateDir, "%s/qemu/run", base) == -1)
            goto out_of_memory;
1023 1024 1025 1026
        if (virAsprintf(&qemu_driver->libDir, "%s/qemu/lib", base) == -1)
            goto out_of_memory;
        if (virAsprintf(&qemu_driver->cacheDir, "%s/qemu/cache", base) == -1)
            goto out_of_memory;
1027 1028 1029
    }

    if (virFileMakePath(qemu_driver->stateDir) < 0) {
1030
        char ebuf[1024];
1031 1032
        VIR_ERROR(_("Failed to create state dir '%s': %s\n"),
                  qemu_driver->stateDir, virStrerror(errno, ebuf, sizeof ebuf));
1033
        goto error;
1034
    }
1035 1036 1037 1038 1039 1040 1041 1042 1043 1044 1045 1046
    if (virFileMakePath(qemu_driver->libDir) < 0) {
        char ebuf[1024];
        VIR_ERROR(_("Failed to create lib dir '%s': %s\n"),
                  qemu_driver->libDir, virStrerror(errno, ebuf, sizeof ebuf));
        goto error;
    }
    if (virFileMakePath(qemu_driver->cacheDir) < 0) {
        char ebuf[1024];
        VIR_ERROR(_("Failed to create cache dir '%s': %s\n"),
                  qemu_driver->cacheDir, virStrerror(errno, ebuf, sizeof ebuf));
        goto error;
    }
1047 1048 1049 1050

    /* Configuration paths are either ~/.libvirt/qemu/... (session) or
     * /etc/libvirt/qemu/... (system).
     */
D
Daniel P. Berrange 已提交
1051
    if (snprintf (driverConf, sizeof(driverConf), "%s/qemu.conf", base) == -1)
1052
        goto out_of_memory;
D
Daniel P. Berrange 已提交
1053
    driverConf[sizeof(driverConf)-1] = '\0';
1054

1055
    if (virAsprintf(&qemu_driver->configDir, "%s/qemu", base) == -1)
1056 1057
        goto out_of_memory;

1058
    if (virAsprintf(&qemu_driver->autostartDir, "%s/qemu/autostart", base) == -1)
1059 1060
        goto out_of_memory;

1061
    VIR_FREE(base);
1062

1063 1064 1065 1066 1067 1068 1069
    rc = virCgroupForDriver("qemu", &qemu_driver->cgroup, privileged, 1);
    if (rc < 0) {
        char buf[1024];
        VIR_WARN("Unable to create cgroup for driver: %s",
                 virStrerror(-rc, buf, sizeof(buf)));
    }

1070
    if ((qemu_driver->caps = qemudCapsInit(NULL)) == NULL)
1071
        goto out_of_memory;
D
Daniel P. Berrange 已提交
1072

1073 1074
    qemu_driver->caps->privateDataAllocFunc = qemuDomainObjPrivateAlloc;
    qemu_driver->caps->privateDataFreeFunc = qemuDomainObjPrivateFree;
1075 1076
    qemu_driver->caps->privateDataXMLFormat = qemuDomainObjPrivateXMLFormat;
    qemu_driver->caps->privateDataXMLParse = qemuDomainObjPrivateXMLParse;
1077

1078 1079 1080
    if ((qemu_driver->activePciHostdevs = pciDeviceListNew(NULL)) == NULL)
        goto error;

1081
    if (qemudLoadDriverConfig(qemu_driver, driverConf) < 0) {
1082 1083 1084
        goto error;
    }

1085 1086 1087 1088 1089 1090 1091 1092 1093 1094 1095 1096 1097 1098 1099
    if (privileged) {
        if (chown(qemu_driver->libDir, qemu_driver->user, qemu_driver->group) < 0) {
            virReportSystemError(NULL, errno,
                                 _("unable to set ownership of '%s' to user %d:%d"),
                                 qemu_driver->libDir, qemu_driver->user, qemu_driver->group);
            goto error;
        }
        if (chown(qemu_driver->cacheDir, qemu_driver->user, qemu_driver->group) < 0) {
            virReportSystemError(NULL, errno,
                                 _("unable to set ownership of '%s' to %d:%d"),
                                 qemu_driver->cacheDir, qemu_driver->user, qemu_driver->group);
            goto error;
        }
    }

1100
    if (qemudSecurityInit(qemu_driver) < 0) {
1101
        goto error;
D
Daniel P. Berrange 已提交
1102 1103
    }

1104 1105 1106 1107 1108 1109 1110 1111 1112 1113 1114 1115 1116 1117 1118 1119 1120 1121 1122 1123 1124 1125 1126 1127 1128 1129 1130 1131 1132 1133 1134
    /* If hugetlbfs is present, then we need to create a sub-directory within
     * it, since we can't assume the root mount point has permissions that
     * will let our spawned QEMU instances use it.
     *
     * NB the check for '/', since user may config "" to disable hugepages
     * even when mounted
     */
    if (qemu_driver->hugetlbfs_mount &&
        qemu_driver->hugetlbfs_mount[0] == '/') {
        char *mempath = NULL;
        if (virAsprintf(&mempath, "%s/libvirt/qemu", qemu_driver->hugetlbfs_mount) < 0)
            goto out_of_memory;

        if ((rc = virFileMakePath(mempath)) != 0) {
            virReportSystemError(NULL, rc,
                                 _("unable to create hugepage path %s"), mempath);
            VIR_FREE(mempath);
            goto error;
        }
        if (qemu_driver->privileged &&
            chown(mempath, qemu_driver->user, qemu_driver->group) < 0) {
            virReportSystemError(NULL, errno,
                                 _("unable to set ownership on %s to %d:%d"),
                                 mempath, qemu_driver->user, qemu_driver->group);
            VIR_FREE(mempath);
            goto error;
        }

        qemu_driver->hugepage_path = mempath;
    }

1135 1136 1137 1138 1139 1140 1141 1142 1143 1144 1145 1146
    /* Get all the running persistent or transient configs first */
    if (virDomainLoadAllConfigs(NULL,
                                qemu_driver->caps,
                                &qemu_driver->domains,
                                qemu_driver->stateDir,
                                NULL,
                                1, NULL, NULL) < 0)
        goto error;

    qemuReconnectDomains(qemu_driver);

    /* Then inactive persistent configs */
1147 1148 1149 1150
    if (virDomainLoadAllConfigs(NULL,
                                qemu_driver->caps,
                                &qemu_driver->domains,
                                qemu_driver->configDir,
1151
                                qemu_driver->autostartDir,
1152
                                0, NULL, NULL) < 0)
1153
        goto error;
1154 1155
    qemuDriverUnlock(qemu_driver);

1156 1157
    qemudAutostartConfigs(qemu_driver);

1158

1159 1160
    return 0;

1161
out_of_memory:
1162
    virReportOOMError(NULL);
1163 1164 1165
error:
    if (qemu_driver)
        qemuDriverUnlock(qemu_driver);
1166
    VIR_FREE(base);
1167
    qemudShutdown();
1168 1169 1170
    return -1;
}

1171 1172 1173 1174
static void qemudNotifyLoadDomain(virDomainObjPtr vm, int newVM, void *opaque)
{
    struct qemud_driver *driver = opaque;

1175 1176 1177 1178 1179 1180 1181 1182
    if (newVM) {
        virDomainEventPtr event =
            virDomainEventNewFromObj(vm,
                                     VIR_DOMAIN_EVENT_DEFINED,
                                     VIR_DOMAIN_EVENT_DEFINED_ADDED);
        if (event)
            qemuDomainEventQueue(driver, event);
    }
1183 1184
}

1185 1186 1187 1188 1189 1190 1191 1192
/**
 * qemudReload:
 *
 * Function to restart the QEmu daemon, it will recheck the configuration
 * files and update its state and the networking
 */
static int
qemudReload(void) {
1193 1194 1195
    if (!qemu_driver)
        return 0;

1196
    qemuDriverLock(qemu_driver);
1197 1198 1199 1200
    virDomainLoadAllConfigs(NULL,
                            qemu_driver->caps,
                            &qemu_driver->domains,
                            qemu_driver->configDir,
1201
                            qemu_driver->autostartDir,
1202
                            0, qemudNotifyLoadDomain, qemu_driver);
1203
    qemuDriverUnlock(qemu_driver);
1204

1205
    qemudAutostartConfigs(qemu_driver);
1206 1207

    return 0;
1208 1209
}

1210 1211 1212 1213 1214 1215 1216 1217 1218 1219
/**
 * qemudActive:
 *
 * Checks if the QEmu daemon is active, i.e. has an active domain or
 * an active network
 *
 * Returns 1 if active, 0 otherwise
 */
static int
qemudActive(void) {
1220
    int active = 0;
1221

1222 1223 1224
    if (!qemu_driver)
        return 0;

1225
    /* XXX having to iterate here is not great because it requires many locks */
1226
    qemuDriverLock(qemu_driver);
1227
    active = virDomainObjListNumOfDomains(&qemu_driver->domains, 1);
1228 1229
    qemuDriverUnlock(qemu_driver);
    return active;
1230 1231
}

1232 1233 1234 1235 1236 1237 1238
/**
 * qemudShutdown:
 *
 * Shutdown the QEmu daemon, it will stop all active domains and networks
 */
static int
qemudShutdown(void) {
1239
    int i;
1240

1241
    if (!qemu_driver)
1242
        return -1;
1243

1244
    qemuDriverLock(qemu_driver);
1245
    pciDeviceListFree(NULL, qemu_driver->activePciHostdevs);
1246 1247
    virCapabilitiesFree(qemu_driver->caps);

1248
    virDomainObjListDeinit(&qemu_driver->domains);
1249

1250
    VIR_FREE(qemu_driver->securityDriverName);
1251
    VIR_FREE(qemu_driver->logDir);
1252 1253
    VIR_FREE(qemu_driver->configDir);
    VIR_FREE(qemu_driver->autostartDir);
1254
    VIR_FREE(qemu_driver->stateDir);
1255 1256
    VIR_FREE(qemu_driver->libDir);
    VIR_FREE(qemu_driver->cacheDir);
1257
    VIR_FREE(qemu_driver->vncTLSx509certdir);
J
Jim Meyering 已提交
1258
    VIR_FREE(qemu_driver->vncListen);
1259
    VIR_FREE(qemu_driver->vncPassword);
1260
    VIR_FREE(qemu_driver->vncSASLdir);
1261
    VIR_FREE(qemu_driver->saveImageFormat);
1262 1263
    VIR_FREE(qemu_driver->hugetlbfs_mount);
    VIR_FREE(qemu_driver->hugepage_path);
D
Daniel P. Berrange 已提交
1264

1265 1266 1267 1268 1269 1270
    if (qemu_driver->cgroupDeviceACL) {
        for (i = 0 ; qemu_driver->cgroupDeviceACL[i] != NULL ; i++)
            VIR_FREE(qemu_driver->cgroupDeviceACL[i]);
        VIR_FREE(qemu_driver->cgroupDeviceACL);
    }

1271 1272
    /* Free domain callback list */
    virDomainEventCallbackListFree(qemu_driver->domainEventCallbacks);
1273 1274 1275 1276
    virDomainEventQueueFree(qemu_driver->domainEventQueue);

    if (qemu_driver->domainEventTimer != -1)
        virEventRemoveTimeout(qemu_driver->domainEventTimer);
1277

1278 1279 1280
    if (qemu_driver->brctl)
        brShutdown(qemu_driver->brctl);

1281 1282
    virCgroupFree(&qemu_driver->cgroup);

1283
    qemuDriverUnlock(qemu_driver);
1284
    virMutexDestroy(&qemu_driver->lock);
1285
    VIR_FREE(qemu_driver);
1286 1287

    return 0;
1288 1289
}

1290 1291 1292 1293
typedef int qemuLogHandleOutput(virConnectPtr conn,
                                virDomainObjPtr vm,
                                const char *output,
                                int fd);
1294 1295 1296 1297 1298 1299 1300 1301 1302

/*
 * Returns -1 for error, 0 on success
 */
static int
qemudReadLogOutput(virConnectPtr conn,
                   virDomainObjPtr vm,
                   int fd,
                   char *buf,
G
Guido Günther 已提交
1303
                   size_t buflen,
1304
                   qemuLogHandleOutput func,
1305 1306 1307
                   const char *what,
                   int timeout)
{
1308
    int retries = (timeout*10);
1309
    int got = 0;
1310 1311 1312
    buf[0] = '\0';

    while (retries) {
1313
        ssize_t func_ret, ret;
1314
        int isdead = 0;
G
Guido Günther 已提交
1315

1316 1317
        func_ret = func(conn, vm, buf, fd);

1318 1319
        if (kill(vm->pid, 0) == -1 && errno == ESRCH)
            isdead = 1;
1320

1321 1322
        /* Any failures should be detected before we read the log, so we
         * always have something useful to report on failure. */
1323 1324
        ret = saferead(fd, buf+got, buflen-got-1);
        if (ret < 0) {
1325 1326 1327 1328 1329 1330
            virReportSystemError(conn, errno,
                                 _("Failure while reading %s log output"),
                                 what);
            return -1;
        }

1331 1332 1333 1334 1335 1336 1337 1338 1339 1340 1341 1342 1343 1344 1345 1346
        got += ret;
        buf[got] = '\0';
        if (got == buflen-1) {
            qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
                             _("Out of space while reading %s log output"),
                             what);
            return -1;
        }

        if (isdead) {
            qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
                             _("Process exited while reading %s log output"),
                             what);
            return -1;
        }

1347 1348
        if (func_ret <= 0)
            return func_ret;
1349 1350 1351 1352

        usleep(100*1000);
        retries--;
    }
1353 1354 1355

    qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
                     _("Timed out while reading %s log output"), what);
1356 1357 1358
    return -1;
}

1359

1360 1361 1362 1363 1364 1365 1366 1367
/*
 * Look at a chunk of data from the QEMU stdout logs and try to
 * find a TTY device, as indicated by a line like
 *
 * char device redirected to /dev/pts/3
 *
 * Returns -1 for error, 0 success, 1 continue reading
 */
1368
static int
1369 1370 1371 1372
qemudExtractTTYPath(virConnectPtr conn,
                    const char *haystack,
                    size_t *offset,
                    char **path)
1373
{
1374
    static const char needle[] = "char device redirected to";
1375
    char *tmp, *dev;
1376

1377
    VIR_FREE(*path);
1378
    /* First look for our magic string */
1379 1380 1381 1382 1383
    if (!(tmp = strstr(haystack + *offset, needle))) {
        return 1;
    }
    tmp += sizeof(needle);
    dev = tmp;
1384

1385 1386 1387 1388 1389
    /*
     * And look for first whitespace character and nul terminate
     * to mark end of the pty path
     */
    while (*tmp) {
1390
        if (c_isspace(*tmp)) {
1391 1392
            *path = strndup(dev, tmp-dev);
            if (*path == NULL) {
1393
                virReportOOMError(conn);
1394 1395
                return -1;
            }
1396

1397
            /* ... now further update offset till we get EOL */
1398
            *offset = tmp - haystack;
1399 1400
            return 0;
        }
1401
        tmp++;
1402 1403 1404 1405 1406
    }

    /*
     * We found a path, but didn't find any whitespace,
     * so it must be still incomplete - we should at
1407 1408
     * least see a \n - indicate that we want to carry
     * on trying again
1409
     */
1410
    return 1;
1411 1412
}

1413 1414 1415 1416 1417 1418 1419 1420 1421 1422 1423 1424 1425 1426 1427 1428 1429 1430
static int
qemudFindCharDevicePTYsMonitor(virConnectPtr conn,
                               virDomainObjPtr vm,
                               virHashTablePtr paths)
{
    int i;

#define LOOKUP_PTYS(array, arraylen, idprefix)                            \
    for (i = 0 ; i < (arraylen) ; i++) {                                  \
        virDomainChrDefPtr chr = (array)[i];                              \
        if (chr->type == VIR_DOMAIN_CHR_TYPE_PTY) {                       \
            char id[16];                                                  \
                                                                          \
            if (snprintf(id, sizeof(id), idprefix "%i", i) >= sizeof(id)) \
                return -1;                                                \
                                                                          \
            const char *path = (const char *) virHashLookup(paths, id);   \
            if (path == NULL) {                                           \
1431 1432 1433 1434 1435 1436 1437 1438 1439 1440 1441
                if (chr->data.file.path == NULL) {                        \
                    /* neither the log output nor 'info chardev' had a */ \
                    /* pty path for this chardev, report an error */      \
                    qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR, \
                                     _("no assigned pty for device %s"), id);  \
                    return -1;                                                 \
                } else {                                                  \
                    /* 'info chardev' had no pty path for this chardev, */\
                    /* but the log output had, so we're fine */           \
                    continue;                                             \
                }                                                         \
1442 1443
            }                                                             \
                                                                          \
1444
            VIR_FREE(chr->data.file.path);                                \
1445
            chr->data.file.path = strdup(path);                           \
1446 1447 1448 1449 1450
                                                                          \
            if (chr->data.file.path == NULL) {                            \
                virReportOOMError(conn);                                  \
                return -1;                                                \
            }                                                             \
1451 1452 1453 1454 1455 1456
        }                                                                 \
    }

    LOOKUP_PTYS(vm->def->serials,   vm->def->nserials,   "serial");
    LOOKUP_PTYS(vm->def->parallels, vm->def->nparallels, "parallel");
    LOOKUP_PTYS(vm->def->channels,  vm->def->nchannels,  "channel");
1457
#undef LOOKUP_PTYS
1458 1459 1460 1461

    return 0;
}

1462
static int
1463
qemudFindCharDevicePTYs(virConnectPtr conn,
1464
                        virDomainObjPtr vm,
1465 1466
                        const char *output,
                        int fd ATTRIBUTE_UNUSED)
1467
{
1468
    size_t offset = 0;
1469
    int ret, i;
1470 1471

    /* The order in which QEMU prints out the PTY paths is
1472 1473
       the order in which it procsses its serial and parallel
       device args. This code must match that ordering.... */
1474

1475
    /* first comes the serial devices */
1476 1477
    for (i = 0 ; i < vm->def->nserials ; i++) {
        virDomainChrDefPtr chr = vm->def->serials[i];
1478
        if (chr->type == VIR_DOMAIN_CHR_TYPE_PTY) {
1479 1480
            if ((ret = qemudExtractTTYPath(conn, output, &offset,
                                           &chr->data.file.path)) != 0)
1481
                return ret;
1482 1483 1484
        }
    }

1485
    /* then the parallel devices */
1486 1487
    for (i = 0 ; i < vm->def->nparallels ; i++) {
        virDomainChrDefPtr chr = vm->def->parallels[i];
1488
        if (chr->type == VIR_DOMAIN_CHR_TYPE_PTY) {
1489 1490
            if ((ret = qemudExtractTTYPath(conn, output, &offset,
                                           &chr->data.file.path)) != 0)
1491
                return ret;
1492 1493 1494
        }
    }

1495 1496 1497 1498 1499 1500 1501 1502 1503 1504
    /* then the channel devices */
    for (i = 0 ; i < vm->def->nchannels ; i++) {
        virDomainChrDefPtr chr = vm->def->channels[i];
        if (chr->type == VIR_DOMAIN_CHR_TYPE_PTY) {
            if ((ret = qemudExtractTTYPath(conn, output, &offset,
                                           &chr->data.file.path)) != 0)
                return ret;
        }
    }

1505
    return 0;
1506 1507
}

1508 1509 1510 1511 1512
static void qemudFreePtyPath(void *payload, const char *name ATTRIBUTE_UNUSED)
{
    VIR_FREE(payload);
}

1513 1514 1515 1516
static int
qemudWaitForMonitor(virConnectPtr conn,
                    struct qemud_driver* driver,
                    virDomainObjPtr vm, off_t pos)
1517
{
1518
    char buf[4096]; /* Plenty of space to get startup greeting */
1519
    int logfd;
1520
    int ret = -1;
1521 1522 1523

    if ((logfd = qemudLogReadFD(conn, driver->logDir, vm->def->name, pos))
        < 0)
1524
        return -1;
1525

1526 1527 1528
    ret = qemudReadLogOutput(conn, vm, logfd, buf, sizeof(buf),
                             qemudFindCharDevicePTYs,
                             "console", 3);
1529
    if (close(logfd) < 0) {
1530
        char ebuf[4096];
1531
        VIR_WARN(_("Unable to close logfile: %s\n"),
1532 1533
                 virStrerror(errno, ebuf, sizeof ebuf));
    }
1534

1535 1536 1537 1538 1539 1540
    if (ret < 0) {
        /* Unexpected end of file - inform user of QEMU log data */
        qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
                         _("unable to start guest: %s"), buf);
        return -1;
    }
1541

1542 1543
    VIR_DEBUG("Connect monitor to %p '%s'", vm, vm->def->name);
    if (qemuConnectMonitor(vm) < 0)
1544 1545
        return -1;

1546 1547 1548 1549 1550 1551 1552 1553 1554 1555
    /* Try to get the pty path mappings again via the monitor. This is much more
     * reliable if it's available.
     * Note that the monitor itself can be on a pty, so we still need to try the
     * log output method. */
    virHashTablePtr paths = virHashCreate(0);
    if (paths == NULL) {
        virReportOOMError(NULL);
        goto cleanup;
    }

1556
    qemuDomainObjEnterMonitorWithDriver(driver, vm);
1557 1558
    qemuDomainObjPrivatePtr priv = vm->privateData;
    ret = qemuMonitorGetPtyPaths(priv->mon, paths);
1559
    qemuDomainObjExitMonitorWithDriver(driver, vm);
1560 1561 1562 1563 1564 1565 1566 1567 1568 1569 1570 1571

    VIR_DEBUG("qemuMonitorGetPtyPaths returned %i", ret);
    if (ret == 0) {
        ret = qemudFindCharDevicePTYsMonitor(conn, vm, paths);
    }

cleanup:
    if (paths) {
        virHashFree(paths, qemudFreePtyPath);
    }

    return ret;
1572 1573
}

1574
static int
1575
qemuDetectVcpuPIDs(virConnectPtr conn,
1576
                   struct qemud_driver *driver,
1577 1578 1579
                   virDomainObjPtr vm) {
    pid_t *cpupids = NULL;
    int ncpupids;
1580
    qemuDomainObjPrivatePtr priv = vm->privateData;
1581

1582
    if (vm->def->virtType != VIR_DOMAIN_VIRT_KVM) {
1583 1584
        priv->nvcpupids = 1;
        if (VIR_ALLOC_N(priv->vcpupids, priv->nvcpupids) < 0) {
1585 1586 1587
            virReportOOMError(conn);
            return -1;
        }
1588
        priv->vcpupids[0] = vm->pid;
1589 1590 1591
        return 0;
    }

1592
    /* What follows is now all KVM specific */
1593

1594
    qemuDomainObjEnterMonitorWithDriver(driver, vm);
1595
    if ((ncpupids = qemuMonitorGetCPUInfo(priv->mon, &cpupids)) < 0) {
1596
        qemuDomainObjExitMonitorWithDriver(driver, vm);
1597
        return -1;
1598
    }
1599
    qemuDomainObjExitMonitorWithDriver(driver, vm);
1600

1601 1602 1603
    /* Treat failure to get VCPU<->PID mapping as non-fatal */
    if (ncpupids == 0)
        return 0;
1604

1605 1606 1607 1608 1609 1610 1611
    if (ncpupids != vm->def->vcpus) {
        qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
                         _("got wrong number of vCPU pids from QEMU monitor. got %d, wanted %d"),
                         ncpupids, (int)vm->def->vcpus);
        VIR_FREE(cpupids);
        return -1;
    }
1612

1613 1614
    priv->nvcpupids = ncpupids;
    priv->vcpupids = cpupids;
1615 1616 1617
    return 0;
}

1618
static int
1619 1620
qemudInitCpuAffinity(virConnectPtr conn,
                     virDomainObjPtr vm) {
1621
    int i, hostcpus, maxcpu = QEMUD_CPUMASK_LEN;
1622
    virNodeInfo nodeinfo;
1623 1624
    unsigned char *cpumap;
    int cpumaplen;
1625
    qemuDomainObjPrivatePtr priv = vm->privateData;
1626

1627
    if (nodeGetInfo(conn, &nodeinfo) < 0)
1628 1629 1630 1631
        return -1;

    /* setaffinity fails if you set bits for CPUs which
     * aren't present, so we have to limit ourselves */
1632 1633 1634
    hostcpus = VIR_NODEINFO_MAXCPUS(nodeinfo);
    if (maxcpu > hostcpus)
        maxcpu = hostcpus;
1635

1636 1637 1638 1639 1640 1641
    cpumaplen = VIR_CPU_MAPLEN(maxcpu);
    if (VIR_ALLOC_N(cpumap, cpumaplen) < 0) {
        virReportOOMError(conn);
        return -1;
    }

D
Daniel P. Berrange 已提交
1642
    if (vm->def->cpumask) {
1643 1644 1645
        /* XXX why don't we keep 'cpumask' in the libvirt cpumap
         * format to start with ?!?! */
        for (i = 0 ; i < maxcpu && i < vm->def->cpumasklen ; i++)
D
Daniel P. Berrange 已提交
1646
            if (vm->def->cpumask[i])
1647
                VIR_USE_CPU(cpumap, i);
D
Daniel P. Berrange 已提交
1648
    } else {
1649 1650 1651 1652
        /* You may think this is redundant, but we can't assume libvirtd
         * itself is running on all pCPUs, so we need to explicitly set
         * the spawned QEMU instance to all pCPUs if no map is given in
         * its config file */
D
Daniel P. Berrange 已提交
1653
        for (i = 0 ; i < maxcpu ; i++)
1654
            VIR_USE_CPU(cpumap, i);
D
Daniel P. Berrange 已提交
1655
    }
1656

1657 1658
    /* The XML config only gives a per-VM affinity, so we apply
     * the same mapping to all vCPUs */
1659 1660
    for (i = 0 ; i < priv->nvcpupids ; i++) {
        if (virProcessInfoSetAffinity(priv->vcpupids[i],
1661 1662
                                      cpumap, cpumaplen, maxcpu) < 0) {
            VIR_FREE(cpumap);
1663 1664 1665
            return -1;
        }
    }
1666
    VIR_FREE(cpumap);
1667 1668 1669 1670 1671

    return 0;
}


1672
static int
1673 1674
qemuInitPasswords(struct qemud_driver *driver,
                  virDomainObjPtr vm) {
1675
    int ret = 0;
1676
    qemuDomainObjPrivatePtr priv = vm->privateData;
1677

1678 1679 1680
    if ((vm->def->ngraphics == 1) &&
        vm->def->graphics[0]->type == VIR_DOMAIN_GRAPHICS_TYPE_VNC &&
        (vm->def->graphics[0]->data.vnc.passwd || driver->vncPassword)) {
1681

1682
        qemuDomainObjEnterMonitorWithDriver(driver, vm);
1683
        ret = qemuMonitorSetVNCPassword(priv->mon,
1684 1685 1686
                                        vm->def->graphics[0]->data.vnc.passwd ?
                                        vm->def->graphics[0]->data.vnc.passwd :
                                        driver->vncPassword);
1687
        qemuDomainObjExitMonitorWithDriver(driver, vm);
1688 1689
    }

1690
    return ret;
1691 1692 1693
}


1694
static int qemudNextFreeVNCPort(struct qemud_driver *driver ATTRIBUTE_UNUSED) {
1695 1696 1697 1698 1699 1700 1701 1702 1703 1704 1705 1706 1707 1708 1709 1710 1711 1712 1713 1714 1715 1716 1717 1718 1719 1720 1721 1722 1723 1724 1725 1726 1727 1728 1729
    int i;

    for (i = 5900 ; i < 6000 ; i++) {
        int fd;
        int reuse = 1;
        struct sockaddr_in addr;
        addr.sin_family = AF_INET;
        addr.sin_port = htons(i);
        addr.sin_addr.s_addr = htonl(INADDR_ANY);
        fd = socket(PF_INET, SOCK_STREAM, 0);
        if (fd < 0)
            return -1;

        if (setsockopt(fd, SOL_SOCKET, SO_REUSEADDR, (void*)&reuse, sizeof(reuse)) < 0) {
            close(fd);
            break;
        }

        if (bind(fd, (struct sockaddr*)&addr, sizeof(addr)) == 0) {
            /* Not in use, lets grab it */
            close(fd);
            return i;
        }
        close(fd);

        if (errno == EADDRINUSE) {
            /* In use, try next */
            continue;
        }
        /* Some other bad failure, get out.. */
        break;
    }
    return -1;
}

1730 1731 1732 1733 1734
static pciDeviceList *
qemuGetPciHostDeviceList(virConnectPtr conn,
                         virDomainDefPtr def)
{
    pciDeviceList *list;
1735 1736
    int i;

1737 1738
    if (!(list = pciDeviceListNew(conn)))
        return NULL;
1739 1740 1741 1742 1743 1744 1745 1746 1747 1748 1749 1750 1751 1752 1753

    for (i = 0 ; i < def->nhostdevs ; i++) {
        virDomainHostdevDefPtr hostdev = def->hostdevs[i];
        pciDevice *dev;

        if (hostdev->mode != VIR_DOMAIN_HOSTDEV_MODE_SUBSYS)
            continue;
        if (hostdev->source.subsys.type != VIR_DOMAIN_HOSTDEV_SUBSYS_TYPE_PCI)
            continue;

        dev = pciGetDevice(conn,
                           hostdev->source.subsys.u.pci.domain,
                           hostdev->source.subsys.u.pci.bus,
                           hostdev->source.subsys.u.pci.slot,
                           hostdev->source.subsys.u.pci.function);
1754 1755 1756 1757
        if (!dev) {
            pciDeviceListFree(conn, list);
            return NULL;
        }
1758

1759
        if (pciDeviceListAdd(conn, list, dev) < 0) {
1760
            pciFreeDevice(conn, dev);
1761 1762
            pciDeviceListFree(conn, list);
            return NULL;
1763 1764
        }

1765
        pciDeviceSetManaged(dev, hostdev->managed);
1766 1767
    }

1768 1769 1770 1771
    return list;
}

static int
1772 1773 1774 1775
qemuUpdateActivePciHostdevs(struct qemud_driver *driver,
                            virDomainDefPtr def)
{
    pciDeviceList *pcidevs;
1776
    int ret = -1;
1777 1778 1779 1780 1781 1782 1783

    if (!def->nhostdevs)
        return 0;

    if (!(pcidevs = qemuGetPciHostDeviceList(NULL, def)))
        return -1;

1784 1785
    while (pciDeviceListCount(pcidevs) > 0) {
        pciDevice *dev = pciDeviceListSteal(NULL, pcidevs, 0);
1786 1787
        if (pciDeviceListAdd(NULL,
                             driver->activePciHostdevs,
1788 1789 1790
                             dev) < 0) {
            pciFreeDevice(NULL, dev);
            goto cleanup;
1791 1792 1793
        }
    }

1794 1795 1796
    ret = 0;

cleanup:
1797 1798 1799 1800 1801 1802 1803 1804
    pciDeviceListFree(NULL, pcidevs);
    return ret;
}

static int
qemuPrepareHostDevices(virConnectPtr conn,
                       struct qemud_driver *driver,
                       virDomainDefPtr def)
1805 1806 1807
{
    pciDeviceList *pcidevs;
    int i;
1808
    int ret = -1;
1809 1810 1811 1812 1813 1814 1815

    if (!def->nhostdevs)
        return 0;

    if (!(pcidevs = qemuGetPciHostDeviceList(conn, def)))
        return -1;

1816
    /* We have to use 3 loops here. *All* devices must
1817 1818
     * be detached before we reset any of them, because
     * in some cases you have to reset the whole PCI,
1819 1820
     * which impacts all devices on it. Also, all devices
     * must be reset before being marked as active.
1821 1822 1823 1824 1825 1826 1827
     */

    /* XXX validate that non-managed device isn't in use, eg
     * by checking that device is either un-bound, or bound
     * to pci-stub.ko
     */

1828 1829 1830 1831 1832 1833
    for (i = 0; i < pciDeviceListCount(pcidevs); i++) {
        pciDevice *dev = pciDeviceListGet(pcidevs, i);
        if (pciDeviceGetManaged(dev) &&
            pciDettachDevice(conn, dev) < 0)
            goto cleanup;
    }
1834 1835 1836

    /* Now that all the PCI hostdevs have be dettached, we can safely
     * reset them */
1837 1838 1839
    for (i = 0; i < pciDeviceListCount(pcidevs); i++) {
        pciDevice *dev = pciDeviceListGet(pcidevs, i);
        if (pciResetDevice(conn, dev,
1840
                           driver->activePciHostdevs) < 0)
1841 1842
            goto cleanup;
    }
1843

1844
    /* Now mark all the devices as active */
1845 1846 1847
    for (i = 0; i < pciDeviceListCount(pcidevs); i++) {
        pciDevice *dev = pciDeviceListGet(pcidevs, i);
        pciDeviceListSteal(NULL, pcidevs, dev);
1848 1849
        if (pciDeviceListAdd(conn,
                             driver->activePciHostdevs,
1850 1851 1852 1853
                             dev) < 0) {
            pciFreeDevice(NULL, dev);
            goto cleanup;
        }
1854 1855
    }

1856
    ret = 0;
1857

1858
cleanup:
1859
    pciDeviceListFree(conn, pcidevs);
1860
    return ret;
1861 1862
}

1863
static void
1864 1865 1866
qemuDomainReAttachHostDevices(virConnectPtr conn,
                              struct qemud_driver *driver,
                              virDomainDefPtr def)
1867
{
1868
    pciDeviceList *pcidevs;
1869 1870
    int i;

1871 1872
    if (!def->nhostdevs)
        return;
1873

1874 1875 1876 1877 1878 1879
    if (!(pcidevs = qemuGetPciHostDeviceList(conn, def))) {
        virErrorPtr err = virGetLastError();
        VIR_ERROR(_("Failed to allocate pciDeviceList: %s\n"),
                  err ? err->message : "");
        virResetError(err);
        return;
1880 1881
    }

1882 1883
    /* Again 3 loops; mark all devices as inactive before reset
     * them and reset all the devices before re-attach */
1884

1885 1886 1887 1888
    for (i = 0; i < pciDeviceListCount(pcidevs); i++) {
        pciDevice *dev = pciDeviceListGet(pcidevs, i);
        pciDeviceListDel(conn, driver->activePciHostdevs, dev);
    }
1889

1890 1891 1892
    for (i = 0; i < pciDeviceListCount(pcidevs); i++) {
        pciDevice *dev = pciDeviceListGet(pcidevs, i);
        if (pciResetDevice(conn, dev,
1893
                           driver->activePciHostdevs) < 0) {
1894
            virErrorPtr err = virGetLastError();
1895
            VIR_ERROR(_("Failed to reset PCI device: %s\n"),
1896 1897 1898
                      err ? err->message : "");
            virResetError(err);
        }
1899
    }
1900

1901 1902 1903 1904
    for (i = 0; i < pciDeviceListCount(pcidevs); i++) {
        pciDevice *dev = pciDeviceListGet(pcidevs, i);
        if (pciDeviceGetManaged(dev) &&
            pciReAttachDevice(NULL, dev) < 0) {
1905
            virErrorPtr err = virGetLastError();
1906
            VIR_ERROR(_("Failed to re-attach PCI device: %s\n"),
1907 1908 1909
                      err ? err->message : "");
            virResetError(err);
        }
1910
    }
1911

1912
    pciDeviceListFree(conn, pcidevs);
1913 1914
}

1915 1916 1917 1918 1919 1920 1921 1922 1923 1924
static const char *const defaultDeviceACL[] = {
    "/dev/null", "/dev/full", "/dev/zero",
    "/dev/random", "/dev/urandom",
    "/dev/ptmx", "/dev/kvm", "/dev/kqemu",
    "/dev/rtc", "/dev/hpet", "/dev/net/tun",
    NULL,
};
#define DEVICE_PTY_MAJOR 136
#define DEVICE_SND_MAJOR 116

1925 1926 1927 1928 1929 1930
static int qemuSetupCgroup(virConnectPtr conn,
                           struct qemud_driver *driver,
                           virDomainObjPtr vm)
{
    virCgroupPtr cgroup = NULL;
    int rc;
1931
    unsigned int i;
1932 1933 1934 1935
    const char *const *deviceACL =
        driver->cgroupDeviceACL ?
        (const char *const *)driver->cgroupDeviceACL :
        defaultDeviceACL;
1936 1937 1938 1939 1940 1941 1942 1943 1944 1945 1946 1947

    if (driver->cgroup == NULL)
        return 0; /* Not supported, so claim success */

    rc = virCgroupForDomain(driver->cgroup, vm->def->name, &cgroup, 1);
    if (rc != 0) {
        virReportSystemError(conn, -rc,
                             _("Unable to create cgroup for %s"),
                             vm->def->name);
        goto cleanup;
    }

1948 1949
    if (qemuCgroupControllerActive(driver, VIR_CGROUP_CONTROLLER_DEVICES)) {
        rc = virCgroupDenyAllDevices(cgroup);
1950
        if (rc != 0) {
1951 1952 1953 1954 1955
            if (rc == -EPERM) {
                VIR_WARN0("Group devices ACL is not accessible, disabling whitelisting");
                goto done;
            }

1956
            virReportSystemError(conn, -rc,
1957
                                 _("Unable to deny all devices for %s"), vm->def->name);
1958 1959 1960
            goto cleanup;
        }

1961 1962 1963 1964 1965 1966 1967 1968 1969 1970 1971 1972 1973 1974
        for (i = 0; i < vm->def->ndisks ; i++) {
            if (vm->def->disks[i]->type != VIR_DOMAIN_DISK_TYPE_BLOCK ||
                vm->def->disks[i]->src == NULL)
                continue;

            rc = virCgroupAllowDevicePath(cgroup,
                                          vm->def->disks[i]->src);
            if (rc != 0) {
                virReportSystemError(conn, -rc,
                                     _("Unable to allow device %s for %s"),
                                     vm->def->disks[i]->src, vm->def->name);
                goto cleanup;
            }
        }
1975

1976
        rc = virCgroupAllowDeviceMajor(cgroup, 'c', DEVICE_PTY_MAJOR);
1977 1978
        if (rc != 0) {
            virReportSystemError(conn, -rc, "%s",
1979
                                 _("unable to allow /dev/pts/ devices"));
1980 1981 1982
            goto cleanup;
        }

1983 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 1994 1995 1996 1997 1998 1999 2000 2001
        if (vm->def->nsounds) {
            rc = virCgroupAllowDeviceMajor(cgroup, 'c', DEVICE_SND_MAJOR);
            if (rc != 0) {
                virReportSystemError(conn, -rc, "%s",
                                     _("unable to allow /dev/snd/ devices"));
                goto cleanup;
            }
        }

        for (i = 0; deviceACL[i] != NULL ; i++) {
            rc = virCgroupAllowDevicePath(cgroup,
                                          deviceACL[i]);
            if (rc < 0 &&
                rc != -ENOENT) {
                virReportSystemError(conn, -rc,
                                     _("unable to allow device %s"),
                                     deviceACL[i]);
                goto cleanup;
            }
2002 2003 2004 2005
        }
    }

done:
2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 2016 2017 2018 2019
    virCgroupFree(&cgroup);
    return 0;

cleanup:
    if (cgroup) {
        virCgroupRemove(cgroup);
        virCgroupFree(&cgroup);
    }
    return -1;
}


static int qemuRemoveCgroup(virConnectPtr conn,
                            struct qemud_driver *driver,
2020 2021
                            virDomainObjPtr vm,
                            int quiet)
2022 2023 2024 2025 2026 2027 2028 2029 2030
{
    virCgroupPtr cgroup;
    int rc;

    if (driver->cgroup == NULL)
        return 0; /* Not supported, so claim success */

    rc = virCgroupForDomain(driver->cgroup, vm->def->name, &cgroup, 0);
    if (rc != 0) {
2031 2032 2033 2034
        if (!quiet)
            qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
                             _("Unable to find cgroup for %s\n"),
                             vm->def->name);
2035 2036 2037 2038 2039 2040 2041 2042 2043 2044 2045 2046 2047 2048 2049 2050 2051 2052 2053 2054 2055 2056 2057 2058 2059 2060 2061 2062 2063 2064 2065 2066 2067 2068 2069 2070 2071 2072 2073 2074 2075 2076
        return rc;
    }

    rc = virCgroupRemove(cgroup);
    virCgroupFree(&cgroup);
    return rc;
}

static int qemuAddToCgroup(struct qemud_driver *driver,
                           virDomainDefPtr def)
{
    virCgroupPtr cgroup = NULL;
    int ret = -1;
    int rc;

    if (driver->cgroup == NULL)
        return 0; /* Not supported, so claim success */

    rc = virCgroupForDomain(driver->cgroup, def->name, &cgroup, 0);
    if (rc != 0) {
        virReportSystemError(NULL, -rc,
                             _("unable to find cgroup for domain %s"),
                             def->name);
        goto cleanup;
    }

    rc = virCgroupAddTask(cgroup, getpid());
    if (rc != 0) {
        virReportSystemError(NULL, -rc,
                             _("unable to add domain %s task %d to cgroup"),
                             def->name, getpid());
        goto cleanup;
    }

    ret = 0;

cleanup:
    virCgroupFree(&cgroup);
    return ret;
}


2077 2078 2079 2080 2081 2082 2083 2084 2085
static int qemudDomainSetSecurityLabel(virConnectPtr conn, struct qemud_driver *driver, virDomainObjPtr vm)
{
    if (vm->def->seclabel.label != NULL)
        if (driver->securityDriver && driver->securityDriver->domainSetSecurityLabel)
            return driver->securityDriver->domainSetSecurityLabel(conn, driver->securityDriver,
                                                                 vm);
    return 0;
}

2086 2087

#ifdef __linux__
2088 2089 2090 2091 2092 2093 2094 2095 2096 2097 2098
struct qemuFileOwner {
    uid_t uid;
    gid_t gid;
};

static int qemuDomainSetHostdevUSBOwnershipActor(virConnectPtr conn,
                                                 usbDevice *dev ATTRIBUTE_UNUSED,
                                                 const char *file, void *opaque)
{
    struct qemuFileOwner *owner = opaque;

2099 2100
    VIR_DEBUG("Setting ownership on %s to %d:%d", file, owner->uid, owner->gid);

2101 2102 2103 2104 2105 2106 2107 2108
    if (chown(file, owner->uid, owner->gid) < 0) {
        virReportSystemError(conn, errno, _("cannot set ownership on %s"), file);
        return -1;
    }

    return 0;
}

2109 2110 2111 2112
static int qemuDomainSetHostdevUSBOwnership(virConnectPtr conn,
                                            virDomainHostdevDefPtr def,
                                            uid_t uid, gid_t gid)
{
2113 2114
    struct qemuFileOwner owner = { uid, gid };
    int ret = -1;
2115

2116 2117
    usbDevice *dev = usbGetDevice(conn,
                                  def->source.subsys.u.usb.bus,
2118 2119 2120
                                  def->source.subsys.u.usb.device,
                                  def->source.subsys.u.usb.vendor,
                                  def->source.subsys.u.usb.product);
2121 2122 2123 2124 2125 2126

    if (!dev)
        goto cleanup;

    ret = usbDeviceFileIterate(conn, dev,
                               qemuDomainSetHostdevUSBOwnershipActor, &owner);
2127

2128 2129 2130 2131 2132 2133 2134 2135 2136 2137 2138
    usbFreeDevice(conn, dev);
cleanup:
    return ret;
}

static int qemuDomainSetHostdevPCIOwnershipActor(virConnectPtr conn,
                                                 pciDevice *dev ATTRIBUTE_UNUSED,
                                                 const char *file, void *opaque)
{
    struct qemuFileOwner *owner = opaque;

2139 2140
    VIR_DEBUG("Setting ownership on %s to %d:%d", file, owner->uid, owner->gid);

2141 2142
    if (chown(file, owner->uid, owner->gid) < 0) {
        virReportSystemError(conn, errno, _("cannot set ownership on %s"), file);
2143 2144 2145 2146 2147 2148 2149 2150 2151 2152
        return -1;
    }

    return 0;
}

static int qemuDomainSetHostdevPCIOwnership(virConnectPtr conn,
                                            virDomainHostdevDefPtr def,
                                            uid_t uid, gid_t gid)
{
2153
    struct qemuFileOwner owner = { uid, gid };
2154 2155
    int ret = -1;

2156 2157 2158 2159 2160
    pciDevice *dev = pciGetDevice(conn,
                                  def->source.subsys.u.pci.domain,
                                  def->source.subsys.u.pci.bus,
                                  def->source.subsys.u.pci.slot,
                                  def->source.subsys.u.pci.function);
2161

2162
    if (!dev)
2163 2164
        goto cleanup;

2165 2166
    ret = pciDeviceFileIterate(conn, dev,
                               qemuDomainSetHostdevPCIOwnershipActor, &owner);
2167

2168
    pciFreeDevice(conn, dev);
2169 2170 2171 2172 2173 2174 2175 2176 2177 2178 2179 2180 2181 2182 2183 2184 2185 2186 2187 2188 2189 2190 2191 2192
cleanup:
    return ret;
}
#endif


static int qemuDomainSetHostdevOwnership(virConnectPtr conn,
                                         virDomainHostdevDefPtr def,
                                         uid_t uid, gid_t gid)
{
    if (def->mode != VIR_DOMAIN_HOSTDEV_MODE_SUBSYS)
        return 0;

#ifdef __linux__
    switch (def->source.subsys.type) {
    case VIR_DOMAIN_HOSTDEV_SUBSYS_TYPE_USB:
        return qemuDomainSetHostdevUSBOwnership(conn, def, uid, gid);

    case VIR_DOMAIN_HOSTDEV_SUBSYS_TYPE_PCI:
        return qemuDomainSetHostdevPCIOwnership(conn, def, uid, gid);

    }
    return 0;
#else
C
Cole Robinson 已提交
2193
    qemudReportError(conn, NULL, NULL, VIR_ERR_NO_SUPPORT, "%s",
2194 2195 2196 2197 2198 2199
                     _("unable to set host device ownership on this platform"));
    return -1;
#endif

}

2200 2201
static int qemuDomainSetFileOwnership(virConnectPtr conn,
                                      const char *path,
2202 2203 2204
                                      uid_t uid, gid_t gid)
{

2205
    if (!path)
2206 2207
        return 0;

2208 2209
    VIR_DEBUG("Setting ownership on %s to %d:%d", path, uid, gid);
    if (chown(path, uid, gid) < 0) {
2210
        virReportSystemError(conn, errno, _("cannot set ownership on %s"),
2211
                             path);
2212 2213 2214 2215 2216 2217 2218 2219 2220 2221 2222 2223 2224 2225 2226 2227 2228 2229 2230 2231 2232 2233 2234 2235 2236 2237 2238 2239 2240
        return -1;
    }
    return 0;
}

static int qemuDomainSetDeviceOwnership(virConnectPtr conn,
                                        struct qemud_driver *driver,
                                        virDomainDeviceDefPtr def,
                                        int restore)
{
    uid_t uid;
    gid_t gid;

    if (!driver->privileged)
        return 0;

    /* short circuit case of root:root */
    if (!driver->user && !driver->group)
        return 0;

    uid = restore ? 0 : driver->user;
    gid = restore ? 0 : driver->group;

    switch (def->type) {
    case VIR_DOMAIN_DEVICE_DISK:
        if (restore &&
            (def->data.disk->readonly || def->data.disk->shared))
            return 0;

2241
        return qemuDomainSetFileOwnership(conn, def->data.disk->src, uid, gid);
2242 2243 2244 2245 2246 2247 2248 2249 2250 2251 2252 2253 2254 2255 2256 2257 2258 2259 2260 2261 2262 2263 2264 2265 2266 2267 2268

    case VIR_DOMAIN_DEVICE_HOSTDEV:
        return qemuDomainSetHostdevOwnership(conn, def->data.hostdev, uid, gid);
    }

    return 0;
}

static int qemuDomainSetAllDeviceOwnership(virConnectPtr conn,
                                           struct qemud_driver *driver,
                                           virDomainDefPtr def,
                                           int restore)
{
    int i;
    uid_t uid;
    gid_t gid;

    if (!driver->privileged)
        return 0;

    /* short circuit case of root:root */
    if (!driver->user && !driver->group)
        return 0;

    uid = restore ? 0 : driver->user;
    gid = restore ? 0 : driver->group;

2269 2270 2271 2272
    if (qemuDomainSetFileOwnership(conn, def->os.kernel, uid, gid) < 0 ||
        qemuDomainSetFileOwnership(conn, def->os.initrd, uid, gid) < 0)
        return -1;

2273 2274 2275 2276 2277
    for (i = 0 ; i < def->ndisks ; i++) {
        if (restore &&
            (def->disks[i]->readonly || def->disks[i]->shared))
            continue;

2278
        if (qemuDomainSetFileOwnership(conn, def->disks[i]->src, uid, gid) < 0)
2279 2280 2281 2282 2283 2284 2285 2286 2287 2288 2289
            return -1;
    }

    for (i = 0 ; i < def->nhostdevs ; i++) {
        if (qemuDomainSetHostdevOwnership(conn, def->hostdevs[i], uid, gid) < 0)
            return -1;
    }

    return 0;
}

2290 2291 2292
static virDomainPtr qemudDomainLookupByName(virConnectPtr conn,
                                            const char *name);

2293 2294 2295 2296
struct qemudHookData {
    virConnectPtr conn;
    virDomainObjPtr vm;
    struct qemud_driver *driver;
2297 2298 2299
};

static int qemudSecurityHook(void *data) {
2300 2301 2302 2303
    struct qemudHookData *h = data;

    if (qemuAddToCgroup(h->driver, h->vm->def) < 0)
        return -1;
2304

2305
    if (qemudDomainSetSecurityLabel(h->conn, h->driver, h->vm) < 0)
2306 2307 2308 2309 2310
        return -1;

    if (h->driver->privileged) {
        if (qemuDomainSetAllDeviceOwnership(h->conn, h->driver, h->vm->def, 0) < 0)
            return -1;
2311

2312 2313
        DEBUG("Dropping privileges of VM to %d:%d", h->driver->user, h->driver->group);

2314 2315 2316 2317 2318
        if (h->driver->group) {
            if (setregid(h->driver->group, h->driver->group) < 0) {
                virReportSystemError(NULL, errno,
                                     _("cannot change to '%d' group"),
                                     h->driver->group);
2319
                return -1;
2320
            }
2321
        }
2322 2323 2324 2325 2326 2327 2328 2329 2330 2331 2332
        if (h->driver->user) {
            if (setreuid(h->driver->user, h->driver->user) < 0) {
                virReportSystemError(NULL, errno,
                                     _("cannot change to '%d' user"),
                                     h->driver->user);
                return -1;
            }
        }
    }

    return 0;
2333 2334
}

2335 2336 2337
static int
qemuPrepareMonitorChr(virConnectPtr conn,
                      struct qemud_driver *driver,
2338
                      virDomainChrDefPtr monConfig,
2339 2340
                      const char *vm)
{
2341
    monConfig->targetType = VIR_DOMAIN_CHR_TARGET_TYPE_MONITOR;
2342

2343 2344
    monConfig->type = VIR_DOMAIN_CHR_TYPE_UNIX;
    monConfig->data.nix.listen = 1;
2345

2346
    if (virAsprintf(&monConfig->data.nix.path, "%s/%s.monitor",
2347
                    driver->libDir, vm) < 0) {
2348 2349 2350 2351 2352 2353 2354
        virReportOOMError(conn);
        return -1;
    }

    return 0;
}

2355 2356
static int qemudStartVMDaemon(virConnectPtr conn,
                              struct qemud_driver *driver,
2357
                              virDomainObjPtr vm,
2358 2359
                              const char *migrateFrom,
                              int stdin_fd) {
2360
    const char **argv = NULL, **tmp;
2361
    const char **progenv = NULL;
2362
    int i, ret;
2363
    struct stat sb;
2364 2365
    int *tapfds = NULL;
    int ntapfds = 0;
2366
    unsigned int qemuCmdFlags;
2367
    fd_set keepfd;
2368
    const char *emulator;
G
Guido Günther 已提交
2369
    pid_t child;
2370
    int pos = -1;
2371
    char ebuf[1024];
2372
    char *pidfile = NULL;
2373
    int logfile;
2374
    qemuDomainObjPrivatePtr priv = vm->privateData;
2375

2376
    struct qemudHookData hookData;
2377 2378 2379 2380
    hookData.conn = conn;
    hookData.vm = vm;
    hookData.driver = driver;

2381
    FD_ZERO(&keepfd);
2382

D
Daniel P. Berrange 已提交
2383
    if (virDomainObjIsActive(vm)) {
2384
        qemudReportError(conn, NULL, NULL, VIR_ERR_OPERATION_INVALID,
2385
                         "%s", _("VM is already active"));
2386 2387 2388
        return -1;
    }

2389 2390 2391 2392 2393 2394 2395 2396
    /* If you are using a SecurityDriver with dynamic labelling,
       then generate a security label for isolation */
    if (vm->def->seclabel.type == VIR_DOMAIN_SECLABEL_DYNAMIC &&
        driver->securityDriver &&
        driver->securityDriver->domainGenSecurityLabel &&
        driver->securityDriver->domainGenSecurityLabel(conn, vm) < 0)
        return -1;

2397
    /* Ensure no historical cgroup for this VM is lieing around bogus settings */
2398
    qemuRemoveCgroup(conn, driver, vm, 1);
2399

2400 2401 2402
    if ((vm->def->ngraphics == 1) &&
        vm->def->graphics[0]->type == VIR_DOMAIN_GRAPHICS_TYPE_VNC &&
        vm->def->graphics[0]->data.vnc.autoport) {
2403
        int port = qemudNextFreeVNCPort(driver);
2404
        if (port < 0) {
2405
            qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
2406
                             "%s", _("Unable to find an unused VNC port"));
2407
            goto cleanup;
2408
        }
2409
        vm->def->graphics[0]->data.vnc.port = port;
2410
    }
2411

2412
    if (virFileMakePath(driver->logDir) < 0) {
2413 2414 2415
        virReportSystemError(conn, errno,
                             _("cannot create log directory %s"),
                             driver->logDir);
2416
        goto cleanup;
2417 2418
    }

2419
    if ((logfile = qemudLogFD(conn, driver, vm->def->name)) < 0)
2420
        goto cleanup;
2421

2422 2423
    emulator = vm->def->emulator;

2424 2425 2426 2427
    /* Make sure the binary we are about to try exec'ing exists.
     * Technically we could catch the exec() failure, but that's
     * in a sub-process so its hard to feed back a useful error
     */
2428
    if (stat(emulator, &sb) < 0) {
2429 2430 2431
        virReportSystemError(conn, errno,
                             _("Cannot find QEMU binary %s"),
                             emulator);
2432
        goto cleanup;
2433 2434
    }

2435
    if (qemudExtractVersionInfo(emulator,
2436
                                NULL,
2437
                                &qemuCmdFlags) < 0)
2438
        goto cleanup;
2439

2440 2441 2442
    if (qemuSetupCgroup(conn, driver, vm) < 0)
        goto cleanup;

2443
    if (qemuPrepareHostDevices(conn, driver, vm->def) < 0)
2444
        goto cleanup;
2445

2446
    if (VIR_ALLOC(priv->monConfig) < 0) {
2447 2448 2449 2450
        virReportOOMError(conn);
        goto cleanup;
    }

2451
    if (qemuPrepareMonitorChr(conn, driver, priv->monConfig, vm->def->name) < 0)
2452
        goto cleanup;
2453

D
Daniel P. Berrange 已提交
2454 2455 2456
#if HAVE_YAJL
    if (qemuCmdFlags & QEMUD_CMD_FLAG_MONITOR_JSON)
        priv->monJSON = 1;
2457
    else
D
Daniel P. Berrange 已提交
2458
#endif
2459
        priv->monJSON = 0;
D
Daniel P. Berrange 已提交
2460

D
Daniel P. Berrange 已提交
2461 2462 2463 2464 2465 2466 2467
    if ((ret = virFileDeletePid(driver->stateDir, vm->def->name)) != 0) {
        virReportSystemError(conn, ret,
                             _("Cannot remove stale PID file for %s"),
                             vm->def->name);
        goto cleanup;
    }

2468 2469 2470 2471 2472
    if (!(pidfile = virFilePid(driver->stateDir, vm->def->name))) {
        virReportSystemError(conn, errno,
                             "%s", _("Failed to build pidfile path."));
        goto cleanup;
    }
D
Daniel P. Berrange 已提交
2473

2474
    vm->def->id = driver->nextvmid++;
2475
    if (qemudBuildCommandLine(conn, driver, vm->def, priv->monConfig,
D
Daniel P. Berrange 已提交
2476
                              priv->monJSON, qemuCmdFlags, &argv, &progenv,
2477 2478
                              &tapfds, &ntapfds, migrateFrom) < 0)
        goto cleanup;
2479

2480 2481
    tmp = progenv;
    while (*tmp) {
2482
        if (safewrite(logfile, *tmp, strlen(*tmp)) < 0)
2483
            VIR_WARN(_("Unable to write envv to logfile: %s\n"),
2484
                     virStrerror(errno, ebuf, sizeof ebuf));
2485
        if (safewrite(logfile, " ", 1) < 0)
2486
            VIR_WARN(_("Unable to write envv to logfile: %s\n"),
2487
                     virStrerror(errno, ebuf, sizeof ebuf));
2488 2489
        tmp++;
    }
2490 2491
    tmp = argv;
    while (*tmp) {
2492
        if (safewrite(logfile, *tmp, strlen(*tmp)) < 0)
2493
            VIR_WARN(_("Unable to write argv to logfile: %s\n"),
2494
                     virStrerror(errno, ebuf, sizeof ebuf));
2495
        if (safewrite(logfile, " ", 1) < 0)
2496
            VIR_WARN(_("Unable to write argv to logfile: %s\n"),
2497
                     virStrerror(errno, ebuf, sizeof ebuf));
2498 2499
        tmp++;
    }
2500
    if (safewrite(logfile, "\n", 1) < 0)
2501
        VIR_WARN(_("Unable to write argv to logfile: %s\n"),
2502
                 virStrerror(errno, ebuf, sizeof ebuf));
2503

2504
    if ((pos = lseek(logfile, 0, SEEK_END)) < 0)
2505
        VIR_WARN(_("Unable to seek to end of logfile: %s\n"),
2506
                 virStrerror(errno, ebuf, sizeof ebuf));
2507

2508 2509 2510
    for (i = 0 ; i < ntapfds ; i++)
        FD_SET(tapfds[i], &keepfd);

2511
    ret = virExecDaemonize(conn, argv, progenv, &keepfd, &child,
2512
                           stdin_fd, &logfile, &logfile,
2513
                           VIR_EXEC_NONBLOCK | VIR_EXEC_CLEAR_CAPS,
2514 2515 2516
                           qemudSecurityHook, &hookData,
                           pidfile);
    VIR_FREE(pidfile);
G
Guido Günther 已提交
2517 2518 2519

    /* wait for qemu process to to show up */
    if (ret == 0) {
2520
        if (virFileReadPid(driver->stateDir, vm->def->name, &vm->pid)) {
2521
            qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
2522
                             _("Domain %s didn't show up\n"), vm->def->name);
2523
            ret = -1;
G
Guido Günther 已提交
2524
        }
2525 2526 2527 2528 2529 2530 2531 2532 2533 2534 2535
    } else if (ret == -2) {
        /* The virExec process that launches the daemon failed. Pending on
         * when it failed (we can't determine for sure), there may be
         * extra info in the domain log (if the hook failed for example).
         *
         * Pretend like things succeeded, and let 'WaitForMonitor' report
         * the log contents for us.
         */
        vm->pid = child;
        ret = 0;
    }
2536 2537

    vm->state = migrateFrom ? VIR_DOMAIN_PAUSED : VIR_DOMAIN_RUNNING;
2538

2539
    for (i = 0 ; argv[i] ; i++)
2540 2541
        VIR_FREE(argv[i]);
    VIR_FREE(argv);
2542

2543 2544 2545 2546
    for (i = 0 ; progenv[i] ; i++)
        VIR_FREE(progenv[i]);
    VIR_FREE(progenv);

2547 2548 2549
    if (tapfds) {
        for (i = 0 ; i < ntapfds ; i++) {
            close(tapfds[i]);
2550
        }
2551
        VIR_FREE(tapfds);
2552 2553
    }

2554
    if (ret == -1) /* The VM failed to start */
2555 2556
        goto cleanup;

2557 2558 2559
    if (qemudWaitForMonitor(conn, driver, vm, pos) < 0)
        goto abort;

2560
    if (qemuDetectVcpuPIDs(conn, driver, vm) < 0)
2561 2562
        goto abort;

2563
    if (qemudInitCpuAffinity(conn, vm) < 0)
2564 2565 2566 2567 2568
        goto abort;

    if (qemuInitPasswords(driver, vm) < 0)
        goto abort;

2569
    qemuDomainObjEnterMonitorWithDriver(driver, vm);
2570
    if (qemuMonitorSetBalloon(priv->mon, vm->def->memory) < 0) {
2571
        qemuDomainObjExitMonitorWithDriver(driver, vm);
2572
        goto abort;
2573
    }
2574 2575 2576 2577 2578 2579 2580 2581 2582 2583 2584

    if (migrateFrom == NULL) {
        /* Allow the CPUS to start executing */
        if (qemuMonitorStartCPUs(priv->mon, conn) < 0) {
            if (virGetLastError() == NULL)
                qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
                                 "%s", _("resume operation failed"));
            qemuDomainObjExitMonitorWithDriver(driver, vm);
            goto abort;
        }
    }
2585
    qemuDomainObjExitMonitorWithDriver(driver, vm);
2586

2587

2588
    if (virDomainSaveStatus(conn, driver->caps, driver->stateDir, vm) < 0)
2589
        goto abort;
2590

2591
    return 0;
2592 2593

cleanup:
2594 2595 2596
    /* We jump here if we failed to start the VM for any reason
     * XXX investigate if we can kill this block and safely call
     * qemudShutdownVMDaemon even though no PID is running */
2597 2598 2599 2600 2601
    if (vm->def->seclabel.type == VIR_DOMAIN_SECLABEL_DYNAMIC) {
        VIR_FREE(vm->def->seclabel.model);
        VIR_FREE(vm->def->seclabel.label);
        VIR_FREE(vm->def->seclabel.imagelabel);
    }
2602
    qemuRemoveCgroup(conn, driver, vm, 0);
2603 2604 2605 2606
    if ((vm->def->ngraphics == 1) &&
        vm->def->graphics[0]->type == VIR_DOMAIN_GRAPHICS_TYPE_VNC &&
        vm->def->graphics[0]->data.vnc.autoport)
        vm->def->graphics[0]->data.vnc.port = -1;
2607 2608
    if (logfile != -1)
        close(logfile);
2609 2610
    vm->def->id = -1;
    return -1;
2611 2612 2613 2614 2615 2616 2617 2618 2619 2620

abort:
    /* We jump here if we failed to initialize the now running VM
     * killing it off and pretend we never started it */
    qemudShutdownVMDaemon(conn, driver, vm);

    if (logfile != -1)
        close(logfile);

    return -1;
2621 2622 2623
}


2624
static void qemudShutdownVMDaemon(virConnectPtr conn,
2625 2626
                                  struct qemud_driver *driver,
                                  virDomainObjPtr vm) {
D
Daniel P. Berrange 已提交
2627
    int ret;
2628
    int retries = 0;
2629
    qemuDomainObjPrivatePtr priv = vm->privateData;
2630
    virErrorPtr orig_err;
D
Daniel P. Berrange 已提交
2631

D
Daniel P. Berrange 已提交
2632
    if (!virDomainObjIsActive(vm))
2633
        return;
2634

2635
    VIR_DEBUG("Shutting down VM '%s'", vm->def->name);
2636

2637 2638 2639 2640
    /* This method is routinely used in clean up paths. Disable error
     * reporting so we don't squash a legit error. */
    orig_err = virSaveLastError();

2641 2642 2643 2644 2645 2646 2647 2648 2649 2650 2651 2652 2653 2654 2655 2656
    if (driver->macFilter) {
        int i;
        virDomainDefPtr def = vm->def;
        for (i = 0 ; i < def->nnets ; i++) {
            virDomainNetDefPtr net = def->nets[i];
            if (net->ifname == NULL)
                continue;
            if ((errno = networkDisallowMacOnPort(conn, driver, net->ifname,
                                                  net->mac))) {
                virReportSystemError(conn, errno,
             _("failed to remove ebtables rule to allow MAC address on  '%s'"),
                                     net->ifname);
            }
        }
    }

G
Guido Günther 已提交
2657 2658
    if (virKillProcess(vm->pid, 0) == 0 &&
        virKillProcess(vm->pid, SIGTERM) < 0)
2659 2660 2661
        virReportSystemError(conn, errno,
                             _("Failed to send SIGTERM to %s (%d)"),
                             vm->def->name, vm->pid);
2662

2663 2664 2665
    if (priv->mon &&
        qemuMonitorClose(priv->mon) == 0) {
        virDomainObjUnref(vm);
2666
        priv->mon = NULL;
2667
    }
2668

2669 2670 2671 2672 2673
    if (priv->monConfig) {
        if (priv->monConfig->type == VIR_DOMAIN_CHR_TYPE_UNIX)
            unlink(priv->monConfig->data.nix.path);
        virDomainChrDefFree(priv->monConfig);
        priv->monConfig = NULL;
2674 2675
    }

G
Guido Günther 已提交
2676 2677
    /* shut it off for sure */
    virKillProcess(vm->pid, SIGKILL);
2678

2679 2680 2681 2682
    /* Reset Security Labels */
    if (driver->securityDriver)
        driver->securityDriver->domainRestoreSecurityLabel(conn, vm);

2683 2684 2685 2686 2687 2688 2689
    /* Clear out dynamically assigned labels */
    if (vm->def->seclabel.type == VIR_DOMAIN_SECLABEL_DYNAMIC) {
        VIR_FREE(vm->def->seclabel.model);
        VIR_FREE(vm->def->seclabel.label);
        VIR_FREE(vm->def->seclabel.imagelabel);
    }

2690 2691 2692 2693
    if (qemuDomainSetAllDeviceOwnership(conn, driver, vm->def, 1) < 0)
        VIR_WARN("Failed to restore all device ownership for %s",
                 vm->def->name);

2694
    qemuDomainReAttachHostDevices(conn, driver, vm->def);
2695

2696
retry:
2697
    if ((ret = qemuRemoveCgroup(conn, driver, vm, 0)) < 0) {
2698 2699 2700 2701 2702 2703 2704 2705
        if (ret == -EBUSY && (retries++ < 5)) {
            usleep(200*1000);
            goto retry;
        }
        VIR_WARN("Failed to remove cgroup for %s",
                 vm->def->name);
    }

2706
    qemudRemoveDomainStatus(conn, driver, vm);
D
Daniel P. Berrange 已提交
2707

2708
    vm->pid = -1;
2709
    vm->def->id = -1;
2710
    vm->state = VIR_DOMAIN_SHUTOFF;
2711 2712
    VIR_FREE(priv->vcpupids);
    priv->nvcpupids = 0;
2713 2714

    if (vm->newDef) {
2715
        virDomainDefFree(vm->def);
2716
        vm->def = vm->newDef;
2717
        vm->def->id = -1;
2718 2719
        vm->newDef = NULL;
    }
2720 2721 2722 2723 2724

    if (orig_err) {
        virSetError(orig_err);
        virFreeError(orig_err);
    }
2725 2726 2727
}


2728
static virDrvOpenStatus qemudOpen(virConnectPtr conn,
2729
                                  virConnectAuthPtr auth ATTRIBUTE_UNUSED,
2730
                                  int flags ATTRIBUTE_UNUSED) {
2731
    if (conn->uri == NULL) {
2732 2733 2734
        if (qemu_driver == NULL)
            return VIR_DRV_OPEN_DECLINED;

2735
        conn->uri = xmlParseURI(qemu_driver->privileged ?
2736 2737
                                "qemu:///system" :
                                "qemu:///session");
2738
        if (!conn->uri) {
2739
            virReportOOMError(conn);
2740 2741
            return VIR_DRV_OPEN_ERROR;
        }
2742 2743 2744 2745 2746 2747 2748 2749 2750 2751
    } else {
        /* If URI isn't 'qemu' its definitely not for us */
        if (conn->uri->scheme == NULL ||
            STRNEQ(conn->uri->scheme, "qemu"))
            return VIR_DRV_OPEN_DECLINED;

        /* Allow remote driver to deal with URIs with hostname server */
        if (conn->uri->server != NULL)
            return VIR_DRV_OPEN_DECLINED;

2752 2753 2754 2755 2756 2757
        if (qemu_driver == NULL) {
            qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR, "%s",
                             _("qemu state driver is not active"));
            return VIR_DRV_OPEN_ERROR;
        }

2758 2759 2760 2761 2762 2763 2764 2765 2766
        if (conn->uri->path == NULL) {
            qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
                             _("no QEMU URI path given, try %s"),
                             qemu_driver->privileged
                               ? "qemu:///system"
                               : "qemu:///session");
                return VIR_DRV_OPEN_ERROR;
        }

2767
        if (qemu_driver->privileged) {
2768 2769 2770 2771 2772 2773 2774 2775 2776 2777 2778 2779 2780 2781 2782
            if (STRNEQ (conn->uri->path, "/system") &&
                STRNEQ (conn->uri->path, "/session")) {
                qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
                                 _("unexpected QEMU URI path '%s', try qemu:///system"),
                                 conn->uri->path);
                return VIR_DRV_OPEN_ERROR;
            }
        } else {
            if (STRNEQ (conn->uri->path, "/session")) {
                qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
                                 _("unexpected QEMU URI path '%s', try qemu:///session"),
                                 conn->uri->path);
                return VIR_DRV_OPEN_ERROR;
            }
        }
2783 2784 2785 2786 2787 2788 2789
    }
    conn->privateData = qemu_driver;

    return VIR_DRV_OPEN_SUCCESS;
}

static int qemudClose(virConnectPtr conn) {
2790
    struct qemud_driver *driver = conn->privateData;
2791 2792

    /* Get rid of callbacks registered for this conn */
2793
    qemuDriverLock(driver);
2794
    virDomainEventCallbackListRemoveConn(conn, driver->domainEventCallbacks);
2795
    qemuDriverUnlock(driver);
2796 2797 2798 2799 2800 2801

    conn->privateData = NULL;

    return 0;
}

D
Daniel Veillard 已提交
2802 2803 2804 2805 2806
/* Which features are supported by this driver? */
static int
qemudSupportsFeature (virConnectPtr conn ATTRIBUTE_UNUSED, int feature)
{
    switch (feature) {
2807 2808 2809 2810 2811
    case VIR_DRV_FEATURE_MIGRATION_V2:
    case VIR_DRV_FEATURE_MIGRATION_P2P:
        return 1;
    default:
        return 0;
D
Daniel Veillard 已提交
2812 2813 2814
    }
}

2815
static const char *qemudGetType(virConnectPtr conn ATTRIBUTE_UNUSED) {
2816
    return "QEMU";
2817 2818
}

2819

2820 2821 2822 2823 2824 2825 2826 2827 2828 2829 2830 2831 2832
static int qemuIsSecure(virConnectPtr conn ATTRIBUTE_UNUSED)
{
    /* Trivially secure, since always inside the daemon */
    return 1;
}

static int qemuIsEncrypted(virConnectPtr conn ATTRIBUTE_UNUSED)
{
    /* Not encrypted, but remote driver takes care of that */
    return 0;
}


2833 2834 2835 2836
static int kvmGetMaxVCPUs(void) {
    int maxvcpus = 1;

    int r, fd;
2837

2838 2839
    fd = open(KVM_DEVICE, O_RDONLY);
    if (fd < 0) {
2840 2841
        virReportSystemError(NULL, errno, _("Unable to open %s"), KVM_DEVICE);
        return -1;
2842 2843 2844 2845 2846 2847 2848 2849 2850 2851 2852
    }

    r = ioctl(fd, KVM_CHECK_EXTENSION, KVM_CAP_NR_VCPUS);
    if (r > 0)
        maxvcpus = r;

    close(fd);
    return maxvcpus;
}


2853
static int qemudGetMaxVCPUs(virConnectPtr conn, const char *type) {
2854 2855 2856
    if (!type)
        return 16;

2857
    if (STRCASEEQ(type, "qemu"))
2858 2859
        return 16;

2860
    if (STRCASEEQ(type, "kvm"))
2861
        return kvmGetMaxVCPUs();
2862

2863
    if (STRCASEEQ(type, "kqemu"))
2864
        return 1;
2865 2866 2867

    qemudReportError(conn, NULL, NULL, VIR_ERR_INVALID_ARG,
                     _("unknown type '%s'"), type);
2868 2869 2870
    return -1;
}

2871

2872
static char *qemudGetCapabilities(virConnectPtr conn) {
2873
    struct qemud_driver *driver = conn->privateData;
2874
    virCapsPtr caps = NULL;
2875
    char *xml = NULL;
2876

2877
    qemuDriverLock(driver);
2878 2879
    if ((caps = qemudCapsInit(qemu_driver->caps)) == NULL)
        goto no_memory;
2880

2881 2882 2883
    caps->privateDataAllocFunc = qemuDomainObjPrivateAlloc;
    caps->privateDataFreeFunc = qemuDomainObjPrivateFree;

2884
    if (qemu_driver->securityDriver &&
2885 2886
        qemudSecurityCapsInit(qemu_driver->securityDriver, caps) < 0)
        goto no_memory;
2887

2888
    virCapabilitiesFree(qemu_driver->caps);
2889 2890 2891
    qemu_driver->caps = caps;

    if ((xml = virCapabilitiesFormatXML(driver->caps)) == NULL)
2892
        virReportOOMError(conn);
2893 2894

cleanup:
2895
    qemuDriverUnlock(driver);
2896

2897
    return xml;
2898 2899 2900 2901 2902

no_memory:
    virCapabilitiesFree(caps);
    virReportOOMError(conn);
    goto cleanup;
2903 2904 2905
}


2906
static int qemudGetProcessInfo(unsigned long long *cpuTime, int *lastCpu, int pid, int tid) {
D
Daniel P. Berrange 已提交
2907 2908
    char proc[PATH_MAX];
    FILE *pidinfo;
2909
    unsigned long long usertime, systime;
2910 2911
    int cpu;
    int ret;
D
Daniel P. Berrange 已提交
2912

2913 2914 2915 2916 2917 2918
    if (tid)
        ret = snprintf(proc, sizeof(proc), "/proc/%d/task/%d/stat", pid, tid);
    else
        ret = snprintf(proc, sizeof(proc), "/proc/%d/stat", pid);
    if (ret >= (int)sizeof(proc)) {
        errno = E2BIG;
D
Daniel P. Berrange 已提交
2919 2920 2921 2922
        return -1;
    }

    if (!(pidinfo = fopen(proc, "r"))) {
2923
        /*printf("cannot read pid info");*/
D
Daniel P. Berrange 已提交
2924
        /* VM probably shut down, so fake 0 */
2925 2926 2927 2928
        if (cpuTime)
            *cpuTime = 0;
        if (lastCpu)
            *lastCpu = 0;
D
Daniel P. Berrange 已提交
2929 2930 2931
        return 0;
    }

2932 2933 2934 2935 2936 2937 2938 2939 2940 2941
    /* See 'man proc' for information about what all these fields are. We're
     * only interested in a very few of them */
    if (fscanf(pidinfo,
               /* pid -> stime */
               "%*d %*s %*c %*d %*d %*d %*d %*d %*u %*u %*u %*u %*u %llu %llu"
               /* cutime -> endcode */
               "%*d %*d %*d %*d %*d %*u %*u %*d %*u %*u %*u %*u"
               /* startstack -> processor */
               "%*u %*u %*u %*u %*u %*u %*u %*u %*u %*u %*d %d",
               &usertime, &systime, &cpu) != 3) {
2942
        fclose(pidinfo);
2943 2944
        VIR_WARN0("cannot parse process status data");
        errno = -EINVAL;
D
Daniel P. Berrange 已提交
2945 2946 2947 2948 2949 2950 2951 2952
        return -1;
    }

    /* We got jiffies
     * We want nanoseconds
     * _SC_CLK_TCK is jiffies per second
     * So calulate thus....
     */
2953 2954 2955 2956 2957
    if (cpuTime)
        *cpuTime = 1000ull * 1000ull * 1000ull * (usertime + systime) / (unsigned long long)sysconf(_SC_CLK_TCK);
    if (lastCpu)
        *lastCpu = cpu;

D
Daniel P. Berrange 已提交
2958

2959 2960
    VIR_DEBUG("Got status for %d/%d user=%llu sys=%llu cpu=%d",
              pid, tid, usertime, systime, cpu);
D
Daniel P. Berrange 已提交
2961 2962 2963 2964 2965 2966 2967

    fclose(pidinfo);

    return 0;
}


2968
static virDomainPtr qemudDomainLookupByID(virConnectPtr conn,
2969
                                          int id) {
2970 2971 2972 2973
    struct qemud_driver *driver = conn->privateData;
    virDomainObjPtr vm;
    virDomainPtr dom = NULL;

2974
    qemuDriverLock(driver);
2975
    vm  = virDomainFindByID(&driver->domains, id);
2976
    qemuDriverUnlock(driver);
2977 2978

    if (!vm) {
2979 2980
        qemudReportError(conn, NULL, NULL, VIR_ERR_NO_DOMAIN,
                         _("no domain with matching id %d"), id);
2981
        goto cleanup;
2982 2983
    }

2984
    dom = virGetDomain(conn, vm->def->name, vm->def->uuid);
2985
    if (dom) dom->id = vm->def->id;
2986 2987

cleanup:
2988 2989
    if (vm)
        virDomainObjUnlock(vm);
2990 2991
    return dom;
}
2992

2993
static virDomainPtr qemudDomainLookupByUUID(virConnectPtr conn,
2994
                                            const unsigned char *uuid) {
2995 2996 2997
    struct qemud_driver *driver = conn->privateData;
    virDomainObjPtr vm;
    virDomainPtr dom = NULL;
2998

2999
    qemuDriverLock(driver);
3000
    vm = virDomainFindByUUID(&driver->domains, uuid);
3001 3002
    qemuDriverUnlock(driver);

3003
    if (!vm) {
3004 3005 3006
        char uuidstr[VIR_UUID_STRING_BUFLEN];
        virUUIDFormat(uuid, uuidstr);
        qemudReportError(conn, NULL, NULL, VIR_ERR_NO_DOMAIN,
3007
                         _("no domain with matching uuid '%s'"), uuidstr);
3008
        goto cleanup;
3009 3010
    }

3011
    dom = virGetDomain(conn, vm->def->name, vm->def->uuid);
3012
    if (dom) dom->id = vm->def->id;
3013 3014

cleanup:
3015 3016
    if (vm)
        virDomainObjUnlock(vm);
3017 3018
    return dom;
}
3019

3020
static virDomainPtr qemudDomainLookupByName(virConnectPtr conn,
3021
                                            const char *name) {
3022 3023 3024
    struct qemud_driver *driver = conn->privateData;
    virDomainObjPtr vm;
    virDomainPtr dom = NULL;
3025

3026
    qemuDriverLock(driver);
3027
    vm = virDomainFindByName(&driver->domains, name);
3028 3029
    qemuDriverUnlock(driver);

3030
    if (!vm) {
3031 3032
        qemudReportError(conn, NULL, NULL, VIR_ERR_NO_DOMAIN,
                         _("no domain with matching name '%s'"), name);
3033
        goto cleanup;
3034 3035
    }

3036
    dom = virGetDomain(conn, vm->def->name, vm->def->uuid);
3037
    if (dom) dom->id = vm->def->id;
3038 3039

cleanup:
3040 3041
    if (vm)
        virDomainObjUnlock(vm);
3042 3043 3044
    return dom;
}

3045 3046 3047 3048 3049 3050 3051 3052 3053 3054 3055 3056 3057 3058 3059 3060 3061 3062 3063 3064 3065 3066 3067 3068 3069 3070 3071 3072 3073 3074 3075 3076 3077 3078 3079 3080 3081 3082 3083 3084 3085 3086 3087 3088

static int qemuDomainIsActive(virDomainPtr dom)
{
    struct qemud_driver *driver = dom->conn->privateData;
    virDomainObjPtr obj;
    int ret = -1;

    qemuDriverLock(driver);
    obj = virDomainFindByUUID(&driver->domains, dom->uuid);
    qemuDriverUnlock(driver);
    if (!obj) {
        qemudReportError(dom->conn, NULL, NULL, VIR_ERR_NO_DOMAIN, NULL);
        goto cleanup;
    }
    ret = virDomainObjIsActive(obj);

cleanup:
    if (obj)
        virDomainObjUnlock(obj);
    return ret;
}

static int qemuDomainIsPersistent(virDomainPtr dom)
{
    struct qemud_driver *driver = dom->conn->privateData;
    virDomainObjPtr obj;
    int ret = -1;

    qemuDriverLock(driver);
    obj = virDomainFindByUUID(&driver->domains, dom->uuid);
    qemuDriverUnlock(driver);
    if (!obj) {
        qemudReportError(dom->conn, NULL, NULL, VIR_ERR_NO_DOMAIN, NULL);
        goto cleanup;
    }
    ret = obj->persistent;

cleanup:
    if (obj)
        virDomainObjUnlock(obj);
    return ret;
}


3089
static int qemudGetVersion(virConnectPtr conn, unsigned long *version) {
3090 3091 3092
    struct qemud_driver *driver = conn->privateData;
    int ret = -1;

3093
    qemuDriverLock(driver);
3094
    if (qemudExtractVersion(conn, driver) < 0)
3095
        goto cleanup;
3096

3097
    *version = qemu_driver->qemuVersion;
3098 3099 3100
    ret = 0;

cleanup:
3101
    qemuDriverUnlock(driver);
3102
    return ret;
D
Daniel P. Berrange 已提交
3103 3104
}

3105
static int qemudListDomains(virConnectPtr conn, int *ids, int nids) {
3106
    struct qemud_driver *driver = conn->privateData;
3107
    int n;
3108

3109
    qemuDriverLock(driver);
3110
    n = virDomainObjListGetActiveIDs(&driver->domains, ids, nids);
3111
    qemuDriverUnlock(driver);
3112

3113
    return n;
D
Daniel P. Berrange 已提交
3114
}
3115

3116
static int qemudNumDomains(virConnectPtr conn) {
3117
    struct qemud_driver *driver = conn->privateData;
3118
    int n;
3119

3120
    qemuDriverLock(driver);
3121
    n = virDomainObjListNumOfDomains(&driver->domains, 1);
3122
    qemuDriverUnlock(driver);
3123

3124
    return n;
D
Daniel P. Berrange 已提交
3125
}
3126

3127
static virDomainPtr qemudDomainCreate(virConnectPtr conn, const char *xml,
3128
                                      unsigned int flags ATTRIBUTE_UNUSED) {
3129
    struct qemud_driver *driver = conn->privateData;
3130
    virDomainDefPtr def;
3131
    virDomainObjPtr vm = NULL;
3132
    virDomainPtr dom = NULL;
3133
    virDomainEventPtr event = NULL;
D
Daniel P. Berrange 已提交
3134

3135
    qemuDriverLock(driver);
3136 3137
    if (!(def = virDomainDefParseString(conn, driver->caps, xml,
                                        VIR_DOMAIN_XML_INACTIVE)))
3138
        goto cleanup;
3139

3140 3141 3142
    if (virSecurityDriverVerify(conn, def) < 0)
        goto cleanup;

3143 3144
    if (virDomainObjIsDuplicate(&driver->domains, def, 1) < 0)
        goto cleanup;
3145

3146
    if (!(vm = virDomainAssignDef(conn,
3147
                                  driver->caps,
3148
                                  &driver->domains,
3149 3150 3151 3152
                                  def)))
        goto cleanup;

    def = NULL;
D
Daniel P. Berrange 已提交
3153

3154 3155 3156
    if (qemuDomainObjBeginJobWithDriver(driver, vm) < 0)
        goto cleanup; /* XXXX free the 'vm' we created ? */

3157
    if (qemudStartVMDaemon(conn, driver, vm, NULL, -1) < 0) {
3158 3159 3160
        if (qemuDomainObjEndJob(vm) > 0)
            virDomainRemoveInactive(&driver->domains,
                                    vm);
3161
        vm = NULL;
3162
        goto endjob;
D
Daniel P. Berrange 已提交
3163
    }
3164 3165 3166 3167

    event = virDomainEventNewFromObj(vm,
                                     VIR_DOMAIN_EVENT_STARTED,
                                     VIR_DOMAIN_EVENT_STARTED_BOOTED);
D
Daniel P. Berrange 已提交
3168

3169
    dom = virGetDomain(conn, vm->def->name, vm->def->uuid);
3170
    if (dom) dom->id = vm->def->id;
3171

3172
endjob:
3173 3174 3175
    if (vm &&
        qemuDomainObjEndJob(vm) == 0)
        vm = NULL;
3176

3177 3178
cleanup:
    virDomainDefFree(def);
3179 3180
    if (vm)
        virDomainObjUnlock(vm);
3181 3182
    if (event)
        qemuDomainEventQueue(driver, event);
3183
    qemuDriverUnlock(driver);
3184
    return dom;
D
Daniel P. Berrange 已提交
3185 3186 3187
}


3188
static int qemudDomainSuspend(virDomainPtr dom) {
3189 3190 3191
    struct qemud_driver *driver = dom->conn->privateData;
    virDomainObjPtr vm;
    int ret = -1;
3192
    virDomainEventPtr event = NULL;
3193

3194
    qemuDriverLock(driver);
3195
    vm = virDomainFindByUUID(&driver->domains, dom->uuid);
3196

D
Daniel P. Berrange 已提交
3197
    if (!vm) {
3198 3199 3200 3201
        char uuidstr[VIR_UUID_STRING_BUFLEN];
        virUUIDFormat(dom->uuid, uuidstr);
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_NO_DOMAIN,
                         _("no domain with matching uuid '%s'"), uuidstr);
3202
        goto cleanup;
D
Daniel P. Berrange 已提交
3203
    }
3204 3205 3206
    if (qemuDomainObjBeginJobWithDriver(driver, vm) < 0)
        goto cleanup;

D
Daniel P. Berrange 已提交
3207
    if (!virDomainObjIsActive(vm)) {
3208
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_OPERATION_INVALID,
3209
                         "%s", _("domain is not running"));
3210
        goto endjob;
D
Daniel P. Berrange 已提交
3211
    }
3212
    if (vm->state != VIR_DOMAIN_PAUSED) {
3213
        qemuDomainObjPrivatePtr priv = vm->privateData;
3214
        qemuDomainObjEnterMonitorWithDriver(driver, vm);
3215
        if (qemuMonitorStopCPUs(priv->mon) < 0) {
3216 3217
            qemuDomainObjExitMonitorWithDriver(driver, vm);
            goto endjob;
3218
        }
3219
        qemuDomainObjExitMonitorWithDriver(driver, vm);
3220
        vm->state = VIR_DOMAIN_PAUSED;
3221 3222 3223
        event = virDomainEventNewFromObj(vm,
                                         VIR_DOMAIN_EVENT_SUSPENDED,
                                         VIR_DOMAIN_EVENT_SUSPENDED_PAUSED);
D
Daniel P. Berrange 已提交
3224
    }
3225
    if (virDomainSaveStatus(dom->conn, driver->caps, driver->stateDir, vm) < 0)
3226
        goto endjob;
3227 3228
    ret = 0;

3229
endjob:
3230 3231
    if (qemuDomainObjEndJob(vm) == 0)
        vm = NULL;
3232

3233
cleanup:
3234 3235
    if (vm)
        virDomainObjUnlock(vm);
3236

3237
    if (event)
3238
        qemuDomainEventQueue(driver, event);
3239
    qemuDriverUnlock(driver);
3240
    return ret;
D
Daniel P. Berrange 已提交
3241 3242 3243
}


3244
static int qemudDomainResume(virDomainPtr dom) {
3245 3246 3247
    struct qemud_driver *driver = dom->conn->privateData;
    virDomainObjPtr vm;
    int ret = -1;
3248
    virDomainEventPtr event = NULL;
3249

3250
    qemuDriverLock(driver);
3251
    vm = virDomainFindByUUID(&driver->domains, dom->uuid);
3252

D
Daniel P. Berrange 已提交
3253
    if (!vm) {
3254 3255 3256 3257
        char uuidstr[VIR_UUID_STRING_BUFLEN];
        virUUIDFormat(dom->uuid, uuidstr);
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_NO_DOMAIN,
                         _("no domain with matching uuid '%s'"), uuidstr);
3258
        goto cleanup;
D
Daniel P. Berrange 已提交
3259
    }
3260 3261 3262 3263

    if (qemuDomainObjBeginJobWithDriver(driver, vm) < 0)
        goto cleanup;

D
Daniel P. Berrange 已提交
3264
    if (!virDomainObjIsActive(vm)) {
3265
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_OPERATION_INVALID,
3266
                         "%s", _("domain is not running"));
3267
        goto endjob;
D
Daniel P. Berrange 已提交
3268
    }
3269
    if (vm->state == VIR_DOMAIN_PAUSED) {
3270
        qemuDomainObjPrivatePtr priv = vm->privateData;
3271
        qemuDomainObjEnterMonitorWithDriver(driver, vm);
3272
        if (qemuMonitorStartCPUs(priv->mon, dom->conn) < 0) {
3273
            qemuDomainObjExitMonitorWithDriver(driver, vm);
3274 3275 3276
            if (virGetLastError() == NULL)
                qemudReportError(dom->conn, dom, NULL, VIR_ERR_OPERATION_FAILED,
                                 "%s", _("resume operation failed"));
3277
            goto endjob;
3278
        }
3279
        qemuDomainObjExitMonitorWithDriver(driver, vm);
3280
        vm->state = VIR_DOMAIN_RUNNING;
3281 3282 3283
        event = virDomainEventNewFromObj(vm,
                                         VIR_DOMAIN_EVENT_RESUMED,
                                         VIR_DOMAIN_EVENT_RESUMED_UNPAUSED);
D
Daniel P. Berrange 已提交
3284
    }
3285
    if (virDomainSaveStatus(dom->conn, driver->caps, driver->stateDir, vm) < 0)
3286
        goto endjob;
3287 3288
    ret = 0;

3289
endjob:
3290 3291
    if (qemuDomainObjEndJob(vm) == 0)
        vm = NULL;
3292

3293
cleanup:
3294 3295
    if (vm)
        virDomainObjUnlock(vm);
3296
    if (event)
3297
        qemuDomainEventQueue(driver, event);
3298
    qemuDriverUnlock(driver);
3299
    return ret;
D
Daniel P. Berrange 已提交
3300 3301 3302
}


3303
static int qemudDomainShutdown(virDomainPtr dom) {
3304 3305 3306
    struct qemud_driver *driver = dom->conn->privateData;
    virDomainObjPtr vm;
    int ret = -1;
3307

3308
    qemuDriverLock(driver);
3309
    vm = virDomainFindByUUID(&driver->domains, dom->uuid);
3310 3311
    qemuDriverUnlock(driver);

3312
    if (!vm) {
3313 3314 3315 3316
        char uuidstr[VIR_UUID_STRING_BUFLEN];
        virUUIDFormat(dom->uuid, uuidstr);
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_NO_DOMAIN,
                         _("no domain with matching uuid '%s'"), uuidstr);
3317
        goto cleanup;
3318 3319
    }

3320 3321 3322
    if (qemuDomainObjBeginJob(vm) < 0)
        goto cleanup;

D
Daniel P. Berrange 已提交
3323
    if (!virDomainObjIsActive(vm)) {
3324 3325
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_OPERATION_INVALID,
                         "%s", _("domain is not running"));
3326
        goto endjob;
3327 3328
    }

3329
    qemuDomainObjPrivatePtr priv = vm->privateData;
3330 3331 3332
    qemuDomainObjEnterMonitor(vm);
    ret = qemuMonitorSystemPowerdown(priv->mon);
    qemuDomainObjExitMonitor(vm);
3333

3334
endjob:
3335 3336
    if (qemuDomainObjEndJob(vm) == 0)
        vm = NULL;
3337

3338
cleanup:
3339 3340
    if (vm)
        virDomainObjUnlock(vm);
3341
    return ret;
3342 3343 3344
}


3345
static int qemudDomainDestroy(virDomainPtr dom) {
3346 3347 3348
    struct qemud_driver *driver = dom->conn->privateData;
    virDomainObjPtr vm;
    int ret = -1;
3349
    virDomainEventPtr event = NULL;
3350

3351
    qemuDriverLock(driver);
3352
    vm  = virDomainFindByUUID(&driver->domains, dom->uuid);
D
Daniel P. Berrange 已提交
3353
    if (!vm) {
3354 3355 3356 3357
        char uuidstr[VIR_UUID_STRING_BUFLEN];
        virUUIDFormat(dom->uuid, uuidstr);
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_NO_DOMAIN,
                         _("no domain with matching uuid '%s'"), uuidstr);
3358
        goto cleanup;
D
Daniel P. Berrange 已提交
3359
    }
3360 3361 3362 3363

    if (qemuDomainObjBeginJobWithDriver(driver, vm) < 0)
        goto cleanup;

D
Daniel P. Berrange 已提交
3364
    if (!virDomainObjIsActive(vm)) {
3365
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_OPERATION_INVALID,
3366
                         "%s", _("domain is not running"));
3367
        goto endjob;
3368
    }
3369

3370
    qemudShutdownVMDaemon(dom->conn, driver, vm);
3371 3372 3373
    event = virDomainEventNewFromObj(vm,
                                     VIR_DOMAIN_EVENT_STOPPED,
                                     VIR_DOMAIN_EVENT_STOPPED_DESTROYED);
3374
    if (!vm->persistent) {
3375 3376 3377
        if (qemuDomainObjEndJob(vm) > 0)
            virDomainRemoveInactive(&driver->domains,
                                    vm);
3378 3379
        vm = NULL;
    }
3380 3381
    ret = 0;

3382
endjob:
3383 3384 3385
    if (vm &&
        qemuDomainObjEndJob(vm) == 0)
        vm = NULL;
3386

3387
cleanup:
3388 3389
    if (vm)
        virDomainObjUnlock(vm);
3390 3391
    if (event)
        qemuDomainEventQueue(driver, event);
3392
    qemuDriverUnlock(driver);
3393
    return ret;
D
Daniel P. Berrange 已提交
3394 3395 3396
}


3397
static char *qemudDomainGetOSType(virDomainPtr dom) {
3398 3399 3400
    struct qemud_driver *driver = dom->conn->privateData;
    virDomainObjPtr vm;
    char *type = NULL;
3401

3402
    qemuDriverLock(driver);
3403
    vm = virDomainFindByUUID(&driver->domains, dom->uuid);
3404
    qemuDriverUnlock(driver);
3405
    if (!vm) {
3406 3407 3408 3409
        char uuidstr[VIR_UUID_STRING_BUFLEN];
        virUUIDFormat(dom->uuid, uuidstr);
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_NO_DOMAIN,
                         _("no domain with matching uuid '%s'"), uuidstr);
3410
        goto cleanup;
3411 3412
    }

3413
    if (!(type = strdup(vm->def->os.type)))
3414
        virReportOOMError(dom->conn);
3415 3416

cleanup:
3417 3418
    if (vm)
        virDomainObjUnlock(vm);
3419 3420 3421
    return type;
}

3422 3423
/* Returns max memory in kb, 0 if error */
static unsigned long qemudDomainGetMaxMemory(virDomainPtr dom) {
3424 3425 3426
    struct qemud_driver *driver = dom->conn->privateData;
    virDomainObjPtr vm;
    unsigned long ret = 0;
3427

3428
    qemuDriverLock(driver);
3429
    vm = virDomainFindByUUID(&driver->domains, dom->uuid);
3430 3431
    qemuDriverUnlock(driver);

3432
    if (!vm) {
3433 3434
        char uuidstr[VIR_UUID_STRING_BUFLEN];
        virUUIDFormat(dom->uuid, uuidstr);
3435
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_NO_DOMAIN,
3436
                         _("no domain with matching uuid '%s'"), uuidstr);
3437
        goto cleanup;
3438 3439
    }

3440 3441 3442
    ret = vm->def->maxmem;

cleanup:
3443 3444
    if (vm)
        virDomainObjUnlock(vm);
3445
    return ret;
3446 3447 3448
}

static int qemudDomainSetMaxMemory(virDomainPtr dom, unsigned long newmax) {
3449 3450 3451
    struct qemud_driver *driver = dom->conn->privateData;
    virDomainObjPtr vm;
    int ret = -1;
3452

3453
    qemuDriverLock(driver);
3454
    vm = virDomainFindByUUID(&driver->domains, dom->uuid);
3455 3456
    qemuDriverUnlock(driver);

3457
    if (!vm) {
3458 3459
        char uuidstr[VIR_UUID_STRING_BUFLEN];
        virUUIDFormat(dom->uuid, uuidstr);
3460
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_NO_DOMAIN,
3461
                         _("no domain with matching uuid '%s'"), uuidstr);
3462
        goto cleanup;
3463 3464 3465 3466
    }

    if (newmax < vm->def->memory) {
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_INVALID_ARG,
3467
                         "%s", _("cannot set max memory lower than current memory"));
3468
        goto cleanup;;
3469 3470 3471
    }

    vm->def->maxmem = newmax;
3472 3473 3474
    ret = 0;

cleanup:
3475 3476
    if (vm)
        virDomainObjUnlock(vm);
3477
    return ret;
3478 3479
}

3480

3481
static int qemudDomainSetMemory(virDomainPtr dom, unsigned long newmem) {
3482 3483 3484
    struct qemud_driver *driver = dom->conn->privateData;
    virDomainObjPtr vm;
    int ret = -1;
3485

3486
    qemuDriverLock(driver);
3487
    vm = virDomainFindByUUID(&driver->domains, dom->uuid);
3488
    qemuDriverUnlock(driver);
3489
    if (!vm) {
3490 3491
        char uuidstr[VIR_UUID_STRING_BUFLEN];
        virUUIDFormat(dom->uuid, uuidstr);
3492
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_NO_DOMAIN,
3493
                         _("no domain with matching uuid '%s'"), uuidstr);
3494
        goto cleanup;
3495 3496 3497 3498
    }

    if (newmem > vm->def->maxmem) {
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_INVALID_ARG,
3499
                         "%s", _("cannot set memory higher than max memory"));
3500
        goto cleanup;
3501 3502
    }

3503 3504 3505
    if (qemuDomainObjBeginJob(vm) < 0)
        goto cleanup;

D
Daniel P. Berrange 已提交
3506
    if (virDomainObjIsActive(vm)) {
3507
        qemuDomainObjPrivatePtr priv = vm->privateData;
3508
        qemuDomainObjEnterMonitor(vm);
3509
        int r = qemuMonitorSetBalloon(priv->mon, newmem);
3510
        qemuDomainObjExitMonitor(vm);
3511
        if (r < 0)
3512
            goto endjob;
3513 3514 3515

        /* Lack of balloon support is a fatal error */
        if (r == 0) {
3516 3517
            qemudReportError(dom->conn, dom, NULL, VIR_ERR_NO_SUPPORT,
                             "%s", _("cannot set memory of an active domain"));
3518
            goto endjob;
3519
        }
3520 3521 3522
    } else {
        vm->def->memory = newmem;
    }
3523
    ret = 0;
3524

3525
endjob:
3526 3527
    if (qemuDomainObjEndJob(vm) == 0)
        vm = NULL;
3528

3529
cleanup:
3530 3531
    if (vm)
        virDomainObjUnlock(vm);
3532
    return ret;
3533 3534
}

3535
static int qemudDomainGetInfo(virDomainPtr dom,
3536
                              virDomainInfoPtr info) {
3537 3538 3539
    struct qemud_driver *driver = dom->conn->privateData;
    virDomainObjPtr vm;
    int ret = -1;
3540 3541
    int err;
    unsigned long balloon;
3542

3543
    qemuDriverLock(driver);
3544
    vm = virDomainFindByUUID(&driver->domains, dom->uuid);
3545
    qemuDriverUnlock(driver);
D
Daniel P. Berrange 已提交
3546
    if (!vm) {
3547 3548 3549 3550
        char uuidstr[VIR_UUID_STRING_BUFLEN];
        virUUIDFormat(dom->uuid, uuidstr);
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_NO_DOMAIN,
                         _("no domain with matching uuid '%s'"), uuidstr);
3551
        goto cleanup;
D
Daniel P. Berrange 已提交
3552 3553
    }

3554
    info->state = vm->state;
D
Daniel P. Berrange 已提交
3555

D
Daniel P. Berrange 已提交
3556
    if (!virDomainObjIsActive(vm)) {
3557
        info->cpuTime = 0;
D
Daniel P. Berrange 已提交
3558
    } else {
3559
        if (qemudGetProcessInfo(&(info->cpuTime), NULL, vm->pid, 0) < 0) {
3560
            qemudReportError(dom->conn, dom, NULL, VIR_ERR_OPERATION_FAILED, ("cannot read cputime for domain"));
3561
            goto cleanup;
D
Daniel P. Berrange 已提交
3562 3563 3564
        }
    }

3565
    info->maxMem = vm->def->maxmem;
3566

D
Daniel P. Berrange 已提交
3567
    if (virDomainObjIsActive(vm)) {
3568
        qemuDomainObjPrivatePtr priv = vm->privateData;
3569 3570 3571
        if (!priv->jobActive) {
            if (qemuDomainObjBeginJob(vm) < 0)
                goto cleanup;
3572

3573 3574 3575 3576
            qemuDomainObjEnterMonitor(vm);
            err = qemuMonitorGetBalloonInfo(priv->mon, &balloon);
            qemuDomainObjExitMonitor(vm);
            if (err < 0) {
3577 3578
                if (qemuDomainObjEndJob(vm) == 0)
                    vm = NULL;
3579 3580 3581 3582 3583 3584 3585 3586 3587
                goto cleanup;
            }

            if (err == 0)
                /* Balloon not supported, so maxmem is always the allocation */
                info->memory = vm->def->maxmem;
            else
                info->memory = balloon;

3588 3589 3590 3591
            if (qemuDomainObjEndJob(vm) == 0) {
                vm = NULL;
                goto cleanup;
            }
3592 3593 3594
        } else {
            info->memory = vm->def->memory;
        }
3595 3596 3597 3598
    } else {
        info->memory = vm->def->memory;
    }

3599
    info->nrVirtCpu = vm->def->vcpus;
3600 3601 3602
    ret = 0;

cleanup:
3603 3604
    if (vm)
        virDomainObjUnlock(vm);
3605
    return ret;
D
Daniel P. Berrange 已提交
3606 3607 3608
}


3609
#define QEMUD_SAVE_MAGIC "LibvirtQemudSave"
3610 3611 3612
#define QEMUD_SAVE_VERSION 2

enum qemud_save_formats {
3613 3614 3615
    QEMUD_SAVE_FORMAT_RAW = 0,
    QEMUD_SAVE_FORMAT_GZIP = 1,
    QEMUD_SAVE_FORMAT_BZIP2 = 2,
3616 3617
    /*
     * Deprecated by xz and never used as part of a release
3618
     * QEMUD_SAVE_FORMAT_LZMA
3619 3620
     */
    QEMUD_SAVE_FORMAT_XZ = 3,
3621
    QEMUD_SAVE_FORMAT_LZOP = 4,
3622 3623 3624
    /* Note: add new members only at the end.
       These values are used in the on-disk format.
       Do not change or re-use numbers. */
3625 3626

    QEMUD_SAVE_FORMAT_LAST
3627
};
3628

3629 3630 3631 3632 3633
VIR_ENUM_DECL(qemudSaveCompression)
VIR_ENUM_IMPL(qemudSaveCompression, QEMUD_SAVE_FORMAT_LAST,
              "raw",
              "gzip",
              "bzip2",
3634 3635
              "xz",
              "lzop")
3636

3637 3638 3639 3640 3641
struct qemud_save_header {
    char magic[sizeof(QEMUD_SAVE_MAGIC)-1];
    int version;
    int xml_len;
    int was_running;
3642 3643
    int compressed;
    int unused[15];
3644 3645
};

3646
static int qemudDomainSave(virDomainPtr dom,
3647 3648
                           const char *path)
{
3649
    struct qemud_driver *driver = dom->conn->privateData;
3650
    virDomainObjPtr vm = NULL;
3651 3652
    int fd = -1;
    char *xml = NULL;
3653
    struct qemud_save_header header;
3654
    int ret = -1;
3655
    int rc;
3656
    virDomainEventPtr event = NULL;
3657 3658 3659 3660 3661

    memset(&header, 0, sizeof(header));
    memcpy(header.magic, QEMUD_SAVE_MAGIC, sizeof(header.magic));
    header.version = QEMUD_SAVE_VERSION;

3662
    qemuDriverLock(driver);
3663 3664 3665
    if (driver->saveImageFormat == NULL)
        header.compressed = QEMUD_SAVE_FORMAT_RAW;
    else {
3666 3667 3668 3669 3670 3671
        header.compressed =
            qemudSaveCompressionTypeFromString(driver->saveImageFormat);
        if (header.compressed < 0) {
            qemudReportError(dom->conn, dom, NULL, VIR_ERR_OPERATION_FAILED,
                             "%s", _("Invalid save image format specified "
                                     "in configuration file"));
3672
            goto cleanup;
3673
        }
3674 3675
    }

3676
    vm = virDomainFindByUUID(&driver->domains, dom->uuid);
3677

D
Daniel P. Berrange 已提交
3678
    if (!vm) {
3679 3680 3681 3682
        char uuidstr[VIR_UUID_STRING_BUFLEN];
        virUUIDFormat(dom->uuid, uuidstr);
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_NO_DOMAIN,
                         _("no domain with matching uuid '%s'"), uuidstr);
3683
        goto cleanup;
D
Daniel P. Berrange 已提交
3684
    }
3685

3686 3687 3688
    if (qemuDomainObjBeginJobWithDriver(driver, vm) < 0)
        goto cleanup;

D
Daniel P. Berrange 已提交
3689
    if (!virDomainObjIsActive(vm)) {
3690
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_OPERATION_INVALID,
3691
                         "%s", _("domain is not running"));
3692
        goto endjob;
D
Daniel P. Berrange 已提交
3693
    }
3694 3695 3696

    /* Pause */
    if (vm->state == VIR_DOMAIN_RUNNING) {
3697
        qemuDomainObjPrivatePtr priv = vm->privateData;
3698
        header.was_running = 1;
3699
        qemuDomainObjEnterMonitorWithDriver(driver, vm);
3700
        if (qemuMonitorStopCPUs(priv->mon) < 0) {
3701 3702
            qemuDomainObjExitMonitorWithDriver(driver, vm);
            goto endjob;
3703
        }
3704
        qemuDomainObjExitMonitorWithDriver(driver, vm);
3705
        vm->state = VIR_DOMAIN_PAUSED;
3706 3707 3708
    }

    /* Get XML for the domain */
3709
    xml = virDomainDefFormat(dom->conn, vm->def, VIR_DOMAIN_XML_SECURE);
3710 3711
    if (!xml) {
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_OPERATION_FAILED,
3712
                         "%s", _("failed to get domain xml"));
3713
        goto endjob;
3714 3715 3716 3717 3718 3719
    }
    header.xml_len = strlen(xml) + 1;

    /* Write header to file, followed by XML */
    if ((fd = open(path, O_CREAT|O_TRUNC|O_WRONLY, S_IRUSR|S_IWUSR)) < 0) {
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_OPERATION_FAILED,
3720
                         _("failed to create '%s'"), path);
3721
        goto endjob;
3722 3723 3724 3725
    }

    if (safewrite(fd, &header, sizeof(header)) != sizeof(header)) {
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_OPERATION_FAILED,
3726
                         "%s", _("failed to write save header"));
3727
        goto endjob;
3728 3729 3730 3731
    }

    if (safewrite(fd, xml, header.xml_len) != header.xml_len) {
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_OPERATION_FAILED,
3732
                         "%s", _("failed to write xml"));
3733
        goto endjob;
3734 3735
    }

3736
    if (close(fd) < 0) {
3737 3738 3739
        virReportSystemError(dom->conn, errno,
                             _("unable to save file %s"),
                             path);
3740
        goto endjob;
3741 3742
    }
    fd = -1;
3743

3744 3745 3746 3747 3748 3749 3750 3751 3752 3753 3754 3755 3756
    if (driver->privileged &&
        chown(path, driver->user, driver->group) < 0) {
        virReportSystemError(NULL, errno,
                             _("unable to set ownership of '%s' to user %d:%d"),
                             path, driver->user, driver->group);
        goto endjob;
    }

    if (driver->securityDriver &&
        driver->securityDriver->domainSetSavedStateLabel &&
        driver->securityDriver->domainSetSavedStateLabel(dom->conn, vm, path) == -1)
        goto endjob;

3757 3758
    if (header.compressed == QEMUD_SAVE_FORMAT_RAW) {
        const char *args[] = { "cat", NULL };
3759
        qemuDomainObjPrivatePtr priv = vm->privateData;
M
Matthias Bolte 已提交
3760
        qemuDomainObjEnterMonitorWithDriver(driver, vm);
3761
        rc = qemuMonitorMigrateToCommand(priv->mon, 0, args, path);
M
Matthias Bolte 已提交
3762
        qemuDomainObjExitMonitorWithDriver(driver, vm);
3763
    } else {
3764
        const char *prog = qemudSaveCompressionTypeToString(header.compressed);
3765
        qemuDomainObjPrivatePtr priv = vm->privateData;
3766 3767 3768 3769 3770
        const char *args[] = {
            prog,
            "-c",
            NULL
        };
M
Matthias Bolte 已提交
3771
        qemuDomainObjEnterMonitorWithDriver(driver, vm);
3772
        rc = qemuMonitorMigrateToCommand(priv->mon, 0, args, path);
M
Matthias Bolte 已提交
3773
        qemuDomainObjExitMonitorWithDriver(driver, vm);
3774 3775
    }

3776
    if (rc < 0)
3777
        goto endjob;
3778

3779 3780 3781 3782 3783 3784 3785 3786 3787 3788 3789 3790 3791 3792 3793
    if (driver->privileged &&
        chown(path, 0, 0) < 0) {
        virReportSystemError(NULL, errno,
                             _("unable to set ownership of '%s' to user %d:%d"),
                             path, 0, 0);
        goto endjob;
    }

    if (driver->securityDriver &&
        driver->securityDriver->domainRestoreSavedStateLabel &&
        driver->securityDriver->domainRestoreSavedStateLabel(dom->conn, path) == -1)
        goto endjob;

    ret = 0;

3794 3795
    /* Shut it down */
    qemudShutdownVMDaemon(dom->conn, driver, vm);
3796 3797 3798
    event = virDomainEventNewFromObj(vm,
                                     VIR_DOMAIN_EVENT_STOPPED,
                                     VIR_DOMAIN_EVENT_STOPPED_SAVED);
3799
    if (!vm->persistent) {
3800 3801 3802
        if (qemuDomainObjEndJob(vm) > 0)
            virDomainRemoveInactive(&driver->domains,
                                    vm);
3803 3804
        vm = NULL;
    }
3805

3806
endjob:
3807 3808 3809
    if (vm &&
        qemuDomainObjEndJob(vm) == 0)
        vm = NULL;
3810

3811 3812 3813 3814 3815 3816
cleanup:
    if (fd != -1)
        close(fd);
    VIR_FREE(xml);
    if (ret != 0)
        unlink(path);
3817 3818
    if (vm)
        virDomainObjUnlock(vm);
3819 3820
    if (event)
        qemuDomainEventQueue(driver, event);
3821
    qemuDriverUnlock(driver);
3822
    return ret;
D
Daniel P. Berrange 已提交
3823 3824 3825
}


P
Paolo Bonzini 已提交
3826 3827 3828 3829 3830 3831
static int qemudDomainCoreDump(virDomainPtr dom,
                               const char *path,
                               int flags ATTRIBUTE_UNUSED) {
    struct qemud_driver *driver = dom->conn->privateData;
    virDomainObjPtr vm;
    int resume = 0, paused = 0;
3832
    int ret = -1, fd = -1;
3833
    virDomainEventPtr event = NULL;
3834 3835 3836 3837
    const char *args[] = {
        "cat",
        NULL,
    };
P
Paolo Bonzini 已提交
3838 3839 3840 3841 3842 3843 3844 3845 3846 3847 3848 3849 3850

    qemuDriverLock(driver);
    vm = virDomainFindByUUID(&driver->domains, dom->uuid);
    qemuDriverUnlock(driver);

    if (!vm) {
        char uuidstr[VIR_UUID_STRING_BUFLEN];
        virUUIDFormat(dom->uuid, uuidstr);
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_NO_DOMAIN,
                         _("no domain with matching uuid '%s'"), uuidstr);
        goto cleanup;
    }

3851 3852 3853
    if (qemuDomainObjBeginJob(vm) < 0)
        goto cleanup;

D
Daniel P. Berrange 已提交
3854
    if (!virDomainObjIsActive(vm)) {
P
Paolo Bonzini 已提交
3855 3856
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_OPERATION_INVALID,
                         "%s", _("domain is not running"));
3857
        goto endjob;
P
Paolo Bonzini 已提交
3858 3859
    }

3860 3861 3862 3863 3864 3865 3866 3867 3868 3869 3870 3871 3872 3873 3874 3875 3876 3877 3878 3879 3880 3881 3882 3883 3884 3885 3886
    /* Create an empty file with appropriate ownership.  */
    if ((fd = open(path, O_CREAT|O_TRUNC|O_WRONLY, S_IRUSR|S_IWUSR)) < 0) {
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_OPERATION_FAILED,
                         _("failed to create '%s'"), path);
        goto endjob;
    }

    if (close(fd) < 0) {
        virReportSystemError(dom->conn, errno,
                             _("unable to save file %s"),
                             path);
        goto endjob;
    }

    if (driver->privileged &&
        chown(path, driver->user, driver->group) < 0) {
        virReportSystemError(NULL, errno,
                             _("unable to set ownership of '%s' to user %d:%d"),
                             path, driver->user, driver->group);
        goto endjob;
    }

    if (driver->securityDriver &&
        driver->securityDriver->domainSetSavedStateLabel &&
        driver->securityDriver->domainSetSavedStateLabel(dom->conn, vm, path) == -1)
        goto endjob;

P
Paolo Bonzini 已提交
3887 3888
    /* Migrate will always stop the VM, so the resume condition is
       independent of whether the stop command is issued.  */
P
Paolo Bonzini 已提交
3889 3890
    resume = (vm->state == VIR_DOMAIN_RUNNING);

3891 3892
    qemuDomainObjPrivatePtr priv = vm->privateData;

P
Paolo Bonzini 已提交
3893
    /* Pause domain for non-live dump */
P
Paolo Bonzini 已提交
3894
    if (!(flags & VIR_DUMP_LIVE) && vm->state == VIR_DOMAIN_RUNNING) {
3895 3896 3897
        qemuDomainObjEnterMonitor(vm);
        if (qemuMonitorStopCPUs(priv->mon) < 0) {
            qemuDomainObjExitMonitor(vm);
3898
            goto endjob;
3899 3900
        }
        qemuDomainObjExitMonitor(vm);
P
Paolo Bonzini 已提交
3901 3902 3903
        paused = 1;
    }

3904
    qemuDomainObjEnterMonitor(vm);
3905
    ret = qemuMonitorMigrateToCommand(priv->mon, 0, args, path);
3906
    qemuDomainObjExitMonitor(vm);
3907 3908 3909 3910 3911 3912 3913 3914 3915
    paused |= (ret == 0);

    if (driver->privileged &&
        chown(path, 0, 0) < 0) {
        virReportSystemError(NULL, errno,
                             _("unable to set ownership of '%s' to user %d:%d"),
                             path, 0, 0);
        goto endjob;
    }
P
Paolo Bonzini 已提交
3916

3917 3918 3919 3920 3921 3922
    if (driver->securityDriver &&
        driver->securityDriver->domainRestoreSavedStateLabel &&
        driver->securityDriver->domainRestoreSavedStateLabel(dom->conn, path) == -1)
        goto endjob;

endjob:
3923 3924 3925 3926 3927 3928 3929
    if ((ret == 0) && (flags & VIR_DUMP_CRASH)) {
        qemudShutdownVMDaemon(dom->conn, driver, vm);
        event = virDomainEventNewFromObj(vm,
                                         VIR_DOMAIN_EVENT_STOPPED,
                                         VIR_DOMAIN_EVENT_STOPPED_CRASHED);
    }

P
Paolo Bonzini 已提交
3930 3931 3932
    /* Since the monitor is always attached to a pty for libvirt, it
       will support synchronous operations so we always get here after
       the migration is complete.  */
3933
    else if (resume && paused) {
3934
        qemuDomainObjEnterMonitor(vm);
3935
        if (qemuMonitorStartCPUs(priv->mon, dom->conn) < 0) {
3936 3937 3938
            if (virGetLastError() == NULL)
                qemudReportError(dom->conn, dom, NULL, VIR_ERR_OPERATION_FAILED,
                                 "%s", _("resuming after dump failed"));
P
Paolo Bonzini 已提交
3939
        }
3940
        qemuDomainObjExitMonitor(vm);
P
Paolo Bonzini 已提交
3941
    }
3942

3943 3944
    if (qemuDomainObjEndJob(vm) == 0)
        vm = NULL;
3945
    else if ((ret == 0) && (flags & VIR_DUMP_CRASH) && !vm->persistent) {
3946 3947 3948 3949
        virDomainRemoveInactive(&driver->domains,
                                vm);
        vm = NULL;
    }
3950 3951

cleanup:
3952 3953
    if (ret != 0)
        unlink(path);
P
Paolo Bonzini 已提交
3954 3955
    if (vm)
        virDomainObjUnlock(vm);
3956 3957
    if (event)
        qemuDomainEventQueue(driver, event);
P
Paolo Bonzini 已提交
3958 3959 3960 3961
    return ret;
}


3962
static int qemudDomainSetVcpus(virDomainPtr dom, unsigned int nvcpus) {
3963 3964
    struct qemud_driver *driver = dom->conn->privateData;
    virDomainObjPtr vm;
3965
    int max;
3966
    int ret = -1;
3967
    const char *type;
3968

3969
    qemuDriverLock(driver);
3970
    vm = virDomainFindByUUID(&driver->domains, dom->uuid);
3971 3972
    qemuDriverUnlock(driver);

3973
    if (!vm) {
3974 3975
        char uuidstr[VIR_UUID_STRING_BUFLEN];
        virUUIDFormat(dom->uuid, uuidstr);
3976
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_NO_DOMAIN,
3977
                         _("no domain with matching uuid '%s'"), uuidstr);
3978
        goto cleanup;
3979 3980
    }

3981 3982 3983
    if (qemuDomainObjBeginJob(vm) < 0)
        goto cleanup;

D
Daniel P. Berrange 已提交
3984
    if (virDomainObjIsActive(vm)) {
3985
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_OPERATION_INVALID, "%s",
3986
                         _("cannot change vcpu count of an active domain"));
3987
        goto endjob;
3988 3989
    }

3990 3991 3992 3993
    if (!(type = virDomainVirtTypeToString(vm->def->virtType))) {
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_INTERNAL_ERROR,
                         _("unknown virt type in domain definition '%d'"),
                         vm->def->virtType);
3994
        goto endjob;
3995 3996 3997
    }

    if ((max = qemudGetMaxVCPUs(dom->conn, type)) < 0) {
3998 3999
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_INTERNAL_ERROR, "%s",
                         _("could not determine max vcpus for the domain"));
4000
        goto endjob;
4001 4002 4003 4004 4005 4006
    }

    if (nvcpus > max) {
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_INVALID_ARG,
                         _("requested vcpus is greater than max allowable"
                           " vcpus for the domain: %d > %d"), nvcpus, max);
4007
        goto endjob;
4008 4009 4010
    }

    vm->def->vcpus = nvcpus;
4011 4012
    ret = 0;

4013
endjob:
4014 4015
    if (qemuDomainObjEndJob(vm) == 0)
        vm = NULL;
4016

4017
cleanup:
4018 4019
    if (vm)
        virDomainObjUnlock(vm);
4020
    return ret;
4021 4022
}

4023 4024 4025 4026 4027 4028

static int
qemudDomainPinVcpu(virDomainPtr dom,
                   unsigned int vcpu,
                   unsigned char *cpumap,
                   int maplen) {
4029 4030
    struct qemud_driver *driver = dom->conn->privateData;
    virDomainObjPtr vm;
4031
    int maxcpu, hostcpus;
4032
    virNodeInfo nodeinfo;
4033
    int ret = -1;
4034
    qemuDomainObjPrivatePtr priv;
4035

4036
    qemuDriverLock(driver);
4037
    vm = virDomainFindByUUID(&driver->domains, dom->uuid);
4038 4039
    qemuDriverUnlock(driver);

4040 4041 4042 4043 4044 4045 4046 4047
    if (!vm) {
        char uuidstr[VIR_UUID_STRING_BUFLEN];
        virUUIDFormat(dom->uuid, uuidstr);
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_NO_DOMAIN,
                         _("no domain with matching uuid '%s'"), uuidstr);
        goto cleanup;
    }

D
Daniel P. Berrange 已提交
4048
    if (!virDomainObjIsActive(vm)) {
4049
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_OPERATION_INVALID,
4050
                         "%s",_("cannot pin vcpus on an inactive domain"));
4051
        goto cleanup;
4052 4053
    }

4054 4055 4056
    priv = vm->privateData;

    if (vcpu > (priv->nvcpupids-1)) {
4057 4058
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_INVALID_ARG,
                         _("vcpu number out of range %d > %d"),
4059
                         vcpu, priv->nvcpupids);
4060
        goto cleanup;
4061 4062
    }

4063
    if (nodeGetInfo(dom->conn, &nodeinfo) < 0)
4064
        goto cleanup;
4065

4066
    hostcpus = VIR_NODEINFO_MAXCPUS(nodeinfo);
4067
    maxcpu = maplen * 8;
4068 4069
    if (maxcpu > hostcpus)
        maxcpu = hostcpus;
4070

4071 4072
    if (priv->vcpupids != NULL) {
        if (virProcessInfoSetAffinity(priv->vcpupids[vcpu],
4073
                                      cpumap, maplen, maxcpu) < 0)
4074
            goto cleanup;
4075 4076 4077
    } else {
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_NO_SUPPORT,
                         "%s", _("cpu affinity is not supported"));
4078
        goto cleanup;
4079
    }
4080
    ret = 0;
4081

4082
cleanup:
4083 4084
    if (vm)
        virDomainObjUnlock(vm);
4085
    return ret;
4086 4087 4088 4089 4090 4091 4092 4093
}

static int
qemudDomainGetVcpus(virDomainPtr dom,
                    virVcpuInfoPtr info,
                    int maxinfo,
                    unsigned char *cpumaps,
                    int maplen) {
4094 4095
    struct qemud_driver *driver = dom->conn->privateData;
    virDomainObjPtr vm;
4096
    virNodeInfo nodeinfo;
4097
    int i, v, maxcpu, hostcpus;
4098
    int ret = -1;
4099
    qemuDomainObjPrivatePtr priv;
4100

4101
    qemuDriverLock(driver);
4102
    vm = virDomainFindByUUID(&driver->domains, dom->uuid);
4103 4104
    qemuDriverUnlock(driver);

4105 4106 4107 4108 4109 4110 4111 4112
    if (!vm) {
        char uuidstr[VIR_UUID_STRING_BUFLEN];
        virUUIDFormat(dom->uuid, uuidstr);
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_NO_DOMAIN,
                         _("no domain with matching uuid '%s'"), uuidstr);
        goto cleanup;
    }

D
Daniel P. Berrange 已提交
4113
    if (!virDomainObjIsActive(vm)) {
4114
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_OPERATION_INVALID,
4115 4116
                         "%s",
                         _("cannot list vcpu pinning for an inactive domain"));
4117
        goto cleanup;
4118 4119
    }

4120 4121
    priv = vm->privateData;

4122
    if (nodeGetInfo(dom->conn, &nodeinfo) < 0)
4123
        goto cleanup;
4124

4125
    hostcpus = VIR_NODEINFO_MAXCPUS(nodeinfo);
4126
    maxcpu = maplen * 8;
4127 4128
    if (maxcpu > hostcpus)
        maxcpu = hostcpus;
4129 4130

    /* Clamp to actual number of vcpus */
4131 4132
    if (maxinfo > priv->nvcpupids)
        maxinfo = priv->nvcpupids;
4133

4134 4135 4136 4137 4138 4139
    if (maxinfo >= 1) {
        if (info != NULL) {
            memset(info, 0, sizeof(*info) * maxinfo);
            for (i = 0 ; i < maxinfo ; i++) {
                info[i].number = i;
                info[i].state = VIR_VCPU_RUNNING;
4140

4141
                if (priv->vcpupids != NULL &&
4142 4143 4144
                    qemudGetProcessInfo(&(info[i].cpuTime),
                                        &(info[i].cpu),
                                        vm->pid,
4145
                                        priv->vcpupids[i]) < 0) {
4146 4147 4148 4149
                    virReportSystemError(dom->conn, errno, "%s",
                                         _("cannot get vCPU placement & pCPU time"));
                    goto cleanup;
                }
4150
            }
4151 4152
        }

4153 4154
        if (cpumaps != NULL) {
            memset(cpumaps, 0, maplen * maxinfo);
4155
            if (priv->vcpupids != NULL) {
4156 4157 4158
                for (v = 0 ; v < maxinfo ; v++) {
                    unsigned char *cpumap = VIR_GET_CPUMAP(cpumaps, maplen, v);

4159
                    if (virProcessInfoGetAffinity(priv->vcpupids[v],
4160
                                                  cpumap, maplen, maxcpu) < 0)
4161
                        goto cleanup;
4162
                }
4163 4164 4165 4166
            } else {
                qemudReportError(dom->conn, dom, NULL, VIR_ERR_NO_SUPPORT,
                                 "%s", _("cpu affinity is not available"));
                goto cleanup;
4167 4168 4169
            }
        }
    }
4170
    ret = maxinfo;
4171

4172
cleanup:
4173 4174
    if (vm)
        virDomainObjUnlock(vm);
4175
    return ret;
4176 4177 4178
}


4179
static int qemudDomainGetMaxVcpus(virDomainPtr dom) {
4180 4181
    struct qemud_driver *driver = dom->conn->privateData;
    virDomainObjPtr vm;
4182
    const char *type;
4183
    int ret = -1;
4184

4185
    qemuDriverLock(driver);
4186
    vm = virDomainFindByUUID(&driver->domains, dom->uuid);
4187 4188
    qemuDriverUnlock(driver);

4189
    if (!vm) {
4190 4191
        char uuidstr[VIR_UUID_STRING_BUFLEN];
        virUUIDFormat(dom->uuid, uuidstr);
4192
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_NO_DOMAIN,
4193
                         _("no domain with matching uuid '%s'"), uuidstr);
4194
        goto cleanup;
4195 4196
    }

4197
    if (!(type = virDomainVirtTypeToString(vm->def->virtType))) {
4198 4199 4200
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_INTERNAL_ERROR,
                         _("unknown virt type in domain definition '%d'"),
                         vm->def->virtType);
4201
        goto cleanup;
4202 4203
    }

4204
    ret = qemudGetMaxVCPUs(dom->conn, type);
4205

4206
cleanup:
4207 4208
    if (vm)
        virDomainObjUnlock(vm);
4209 4210 4211
    return ret;
}

4212 4213 4214 4215 4216 4217 4218 4219 4220 4221
static int qemudDomainGetSecurityLabel(virDomainPtr dom, virSecurityLabelPtr seclabel)
{
    struct qemud_driver *driver = (struct qemud_driver *)dom->conn->privateData;
    virDomainObjPtr vm;
    const char *type;
    int ret = -1;

    qemuDriverLock(driver);
    vm = virDomainFindByUUID(&driver->domains, dom->uuid);

4222 4223
    memset(seclabel, 0, sizeof(*seclabel));

4224 4225 4226
    if (!vm) {
        char uuidstr[VIR_UUID_STRING_BUFLEN];
        virUUIDFormat(dom->uuid, uuidstr);
4227
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_NO_DOMAIN,
4228 4229 4230 4231 4232 4233 4234 4235 4236 4237 4238 4239 4240 4241 4242 4243 4244 4245 4246 4247 4248 4249 4250 4251 4252
                         _("no domain with matching uuid '%s'"), uuidstr);
        goto cleanup;
    }

    if (!(type = virDomainVirtTypeToString(vm->def->virtType))) {
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_INTERNAL_ERROR,
                         _("unknown virt type in domain definition '%d'"),
                         vm->def->virtType);
        goto cleanup;
    }

    /*
     * Theoretically, the pid can be replaced during this operation and
     * return the label of a different process.  If atomicity is needed,
     * further validation will be required.
     *
     * Comment from Dan Berrange:
     *
     *   Well the PID as stored in the virDomainObjPtr can't be changed
     *   because you've got a locked object.  The OS level PID could have
     *   exited, though and in extreme circumstances have cycled through all
     *   PIDs back to ours. We could sanity check that our PID still exists
     *   after reading the label, by checking that our FD connecting to the
     *   QEMU monitor hasn't seen SIGHUP/ERR on poll().
     */
D
Daniel P. Berrange 已提交
4253
    if (virDomainObjIsActive(vm)) {
4254 4255 4256
        if (driver->securityDriver && driver->securityDriver->domainGetSecurityLabel) {
            if (driver->securityDriver->domainGetSecurityLabel(dom->conn, vm, seclabel) == -1) {
                qemudReportError(dom->conn, dom, NULL, VIR_ERR_INTERNAL_ERROR,
4257
                                 "%s", _("Failed to get security label"));
4258 4259 4260 4261 4262 4263 4264 4265 4266 4267
                goto cleanup;
            }
        }
    }

    ret = 0;

cleanup:
    if (vm)
        virDomainObjUnlock(vm);
4268
    qemuDriverUnlock(driver);
4269 4270 4271
    return ret;
}

4272 4273
static int qemudNodeGetSecurityModel(virConnectPtr conn,
                                     virSecurityModelPtr secmodel)
4274 4275 4276
{
    struct qemud_driver *driver = (struct qemud_driver *)conn->privateData;
    char *p;
4277
    int ret = 0;
4278

4279 4280
    qemuDriverLock(driver);
    if (!driver->securityDriver) {
4281
        memset(secmodel, 0, sizeof (*secmodel));
4282 4283
        goto cleanup;
    }
4284

4285 4286 4287 4288 4289
    p = driver->caps->host.secModel.model;
    if (strlen(p) >= VIR_SECURITY_MODEL_BUFLEN-1) {
        qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
                         _("security model string exceeds max %d bytes"),
                         VIR_SECURITY_MODEL_BUFLEN-1);
4290 4291
        ret = -1;
        goto cleanup;
4292 4293 4294 4295 4296 4297 4298 4299
    }
    strcpy(secmodel->model, p);

    p = driver->caps->host.secModel.doi;
    if (strlen(p) >= VIR_SECURITY_DOI_BUFLEN-1) {
        qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
                         _("security DOI string exceeds max %d bytes"),
                         VIR_SECURITY_DOI_BUFLEN-1);
4300 4301
        ret = -1;
        goto cleanup;
4302 4303
    }
    strcpy(secmodel->doi, p);
4304 4305 4306 4307

cleanup:
    qemuDriverUnlock(driver);
    return ret;
4308 4309 4310
}

/* TODO: check seclabel restore */
4311
static int qemudDomainRestore(virConnectPtr conn,
4312 4313 4314
                              const char *path) {
    struct qemud_driver *driver = conn->privateData;
    virDomainDefPtr def = NULL;
4315
    virDomainObjPtr vm = NULL;
4316 4317 4318
    int fd = -1;
    int ret = -1;
    char *xml = NULL;
4319
    struct qemud_save_header header;
4320
    virDomainEventPtr event = NULL;
4321 4322 4323
    int intermediatefd = -1;
    pid_t intermediate_pid = -1;
    int childstat;
4324

4325
    qemuDriverLock(driver);
4326 4327 4328
    /* Verify the header and read the XML */
    if ((fd = open(path, O_RDONLY)) < 0) {
        qemudReportError(conn, NULL, NULL, VIR_ERR_OPERATION_FAILED,
4329
                         "%s", _("cannot read domain image"));
4330
        goto cleanup;
4331 4332 4333 4334
    }

    if (saferead(fd, &header, sizeof(header)) != sizeof(header)) {
        qemudReportError(conn, NULL, NULL, VIR_ERR_OPERATION_FAILED,
4335
                         "%s", _("failed to read qemu header"));
4336
        goto cleanup;
4337 4338 4339 4340
    }

    if (memcmp(header.magic, QEMUD_SAVE_MAGIC, sizeof(header.magic)) != 0) {
        qemudReportError(conn, NULL, NULL, VIR_ERR_OPERATION_FAILED,
4341
                         "%s", _("image magic is incorrect"));
4342
        goto cleanup;
4343 4344 4345 4346
    }

    if (header.version > QEMUD_SAVE_VERSION) {
        qemudReportError(conn, NULL, NULL, VIR_ERR_OPERATION_FAILED,
4347
                         _("image version is not supported (%d > %d)"),
4348
                         header.version, QEMUD_SAVE_VERSION);
4349
        goto cleanup;
4350 4351
    }

4352
    if (VIR_ALLOC_N(xml, header.xml_len) < 0) {
4353
        virReportOOMError(conn);
4354
        goto cleanup;
4355 4356 4357 4358
    }

    if (saferead(fd, xml, header.xml_len) != header.xml_len) {
        qemudReportError(conn, NULL, NULL, VIR_ERR_OPERATION_FAILED,
4359
                         "%s", _("failed to read XML"));
4360
        goto cleanup;
4361 4362 4363
    }

    /* Create a domain from this XML */
4364 4365
    if (!(def = virDomainDefParseString(conn, driver->caps, xml,
                                        VIR_DOMAIN_XML_INACTIVE))) {
4366
        qemudReportError(conn, NULL, NULL, VIR_ERR_OPERATION_FAILED,
4367
                         "%s", _("failed to parse XML"));
4368
        goto cleanup;
4369 4370
    }

4371 4372
    if (virDomainObjIsDuplicate(&driver->domains, def, 1) < 0)
        goto cleanup;
4373

4374
    if (!(vm = virDomainAssignDef(conn,
4375
                                  driver->caps,
4376 4377
                                  &driver->domains,
                                  def))) {
4378
        qemudReportError(conn, NULL, NULL, VIR_ERR_OPERATION_FAILED,
4379
                         "%s", _("failed to assign new VM"));
4380
        goto cleanup;
4381
    }
4382
    def = NULL;
4383

4384 4385 4386
    if (qemuDomainObjBeginJobWithDriver(driver, vm) < 0)
        goto cleanup;

4387 4388
    if (header.version == 2) {
        const char *intermediate_argv[3] = { NULL, "-dc", NULL };
4389 4390
        const char *prog = qemudSaveCompressionTypeToString(header.compressed);
        if (prog == NULL) {
4391
            qemudReportError(conn, NULL, NULL, VIR_ERR_OPERATION_FAILED,
4392
                             _("Invalid compressed save format %d"),
4393
                             header.compressed);
4394
            goto endjob;
4395
        }
4396

4397
        if (header.compressed != QEMUD_SAVE_FORMAT_RAW) {
4398
            intermediate_argv[0] = prog;
4399 4400 4401 4402 4403 4404 4405
            intermediatefd = fd;
            fd = -1;
            if (virExec(conn, intermediate_argv, NULL, NULL,
                        &intermediate_pid, intermediatefd, &fd, NULL, 0) < 0) {
                qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
                                 _("Failed to start decompression binary %s"),
                                 intermediate_argv[0]);
4406
                goto endjob;
4407 4408 4409
            }
        }
    }
4410
    /* Set the migration source and start it up. */
4411
    ret = qemudStartVMDaemon(conn, driver, vm, "stdio", fd);
4412 4413 4414 4415 4416 4417 4418
    if (intermediate_pid != -1) {
        /* Wait for intermediate process to exit */
        while (waitpid(intermediate_pid, &childstat, 0) == -1 &&
               errno == EINTR);
    }
    if (intermediatefd != -1)
        close(intermediatefd);
4419
    close(fd);
4420
    fd = -1;
4421
    if (ret < 0) {
4422
        if (!vm->persistent) {
4423 4424 4425
            if (qemuDomainObjEndJob(vm) > 0)
                virDomainRemoveInactive(&driver->domains,
                                        vm);
4426 4427
            vm = NULL;
        }
4428
        goto endjob;
4429 4430
    }

4431 4432 4433
    event = virDomainEventNewFromObj(vm,
                                     VIR_DOMAIN_EVENT_STARTED,
                                     VIR_DOMAIN_EVENT_STARTED_RESTORED);
4434

4435 4436
    /* If it was running before, resume it now. */
    if (header.was_running) {
4437
        qemuDomainObjPrivatePtr priv = vm->privateData;
4438
        qemuDomainObjEnterMonitorWithDriver(driver, vm);
4439
        if (qemuMonitorStartCPUs(priv->mon, conn) < 0) {
4440 4441 4442
            if (virGetLastError() == NULL)
                qemudReportError(conn, NULL, NULL, VIR_ERR_OPERATION_FAILED,
                                 "%s", _("failed to resume domain"));
4443 4444
            qemuDomainObjExitMonitorWithDriver(driver,vm);
            goto endjob;
4445
        }
4446
        qemuDomainObjExitMonitorWithDriver(driver, vm);
4447
        vm->state = VIR_DOMAIN_RUNNING;
4448
        virDomainSaveStatus(conn, driver->caps, driver->stateDir, vm);
4449
    }
4450
    ret = 0;
4451

4452
endjob:
4453 4454 4455
    if (vm &&
        qemuDomainObjEndJob(vm) == 0)
        vm = NULL;
4456

4457 4458 4459 4460 4461
cleanup:
    virDomainDefFree(def);
    VIR_FREE(xml);
    if (fd != -1)
        close(fd);
4462 4463
    if (vm)
        virDomainObjUnlock(vm);
4464 4465
    if (event)
        qemuDomainEventQueue(driver, event);
4466
    qemuDriverUnlock(driver);
4467
    return ret;
D
Daniel P. Berrange 已提交
4468 4469 4470
}


4471
static char *qemudDomainDumpXML(virDomainPtr dom,
4472
                                int flags) {
4473 4474 4475
    struct qemud_driver *driver = dom->conn->privateData;
    virDomainObjPtr vm;
    char *ret = NULL;
4476 4477
    unsigned long balloon;
    int err;
4478

4479
    qemuDriverLock(driver);
4480
    vm = virDomainFindByUUID(&driver->domains, dom->uuid);
4481 4482
    qemuDriverUnlock(driver);

D
Daniel P. Berrange 已提交
4483
    if (!vm) {
4484 4485 4486 4487
        char uuidstr[VIR_UUID_STRING_BUFLEN];
        virUUIDFormat(dom->uuid, uuidstr);
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_NO_DOMAIN,
                         _("no domain with matching uuid '%s'"), uuidstr);
4488
        goto cleanup;
D
Daniel P. Berrange 已提交
4489 4490
    }

4491
    /* Refresh current memory based on balloon info */
D
Daniel P. Berrange 已提交
4492
    if (virDomainObjIsActive(vm)) {
4493
        qemuDomainObjPrivatePtr priv = vm->privateData;
4494 4495 4496 4497 4498 4499 4500 4501 4502
        /* Don't delay if someone's using the monitor, just use
         * existing most recent data instead */
        if (!priv->jobActive) {
            if (qemuDomainObjBeginJob(vm) < 0)
                goto cleanup;

            qemuDomainObjEnterMonitor(vm);
            err = qemuMonitorGetBalloonInfo(priv->mon, &balloon);
            qemuDomainObjExitMonitor(vm);
4503 4504 4505 4506
            if (qemuDomainObjEndJob(vm) == 0) {
                vm = NULL;
                goto cleanup;
            }
4507 4508 4509 4510 4511 4512
            if (err < 0)
                goto cleanup;
            if (err > 0)
                vm->def->memory = balloon;
            /* err == 0 indicates no balloon support, so ignore it */
        }
4513
    }
4514

4515 4516 4517 4518 4519 4520
    ret = virDomainDefFormat(dom->conn,
                             (flags & VIR_DOMAIN_XML_INACTIVE) && vm->newDef ?
                             vm->newDef : vm->def,
                             flags);

cleanup:
4521 4522
    if (vm)
        virDomainObjUnlock(vm);
4523
    return ret;
D
Daniel P. Berrange 已提交
4524 4525 4526
}


4527 4528 4529 4530
static char *qemuDomainXMLFromNative(virConnectPtr conn,
                                     const char *format,
                                     const char *config,
                                     unsigned int flags ATTRIBUTE_UNUSED) {
4531
    struct qemud_driver *driver = conn->privateData;
4532 4533 4534 4535 4536 4537 4538 4539 4540
    virDomainDefPtr def = NULL;
    char *xml = NULL;

    if (STRNEQ(format, QEMU_CONFIG_FORMAT_ARGV)) {
        qemudReportError(conn, NULL, NULL, VIR_ERR_INVALID_ARG,
                         _("unsupported config type %s"), format);
        goto cleanup;
    }

4541
    qemuDriverLock(driver);
4542
    def = qemuParseCommandLineString(conn, driver->caps, config);
4543
    qemuDriverUnlock(driver);
4544 4545 4546 4547 4548 4549 4550 4551 4552 4553
    if (!def)
        goto cleanup;

    xml = virDomainDefFormat(conn, def, VIR_DOMAIN_XML_INACTIVE);

cleanup:
    virDomainDefFree(def);
    return xml;
}

4554 4555 4556 4557 4558 4559
static char *qemuDomainXMLToNative(virConnectPtr conn,
                                   const char *format,
                                   const char *xmlData,
                                   unsigned int flags ATTRIBUTE_UNUSED) {
    struct qemud_driver *driver = conn->privateData;
    virDomainDefPtr def = NULL;
4560
    virDomainChrDef monConfig;
4561 4562 4563 4564 4565 4566 4567 4568 4569 4570
    const char *emulator;
    unsigned int qemuCmdFlags;
    struct stat sb;
    const char **retargv = NULL;
    const char **retenv = NULL;
    const char **tmp;
    virBuffer buf = VIR_BUFFER_INITIALIZER;
    char *ret = NULL;
    int i;

4571 4572
    qemuDriverLock(driver);

4573 4574 4575 4576 4577 4578 4579 4580 4581 4582 4583 4584 4585 4586 4587 4588 4589 4590 4591 4592 4593 4594 4595 4596 4597 4598 4599 4600 4601 4602 4603 4604 4605 4606 4607 4608 4609 4610 4611 4612 4613 4614 4615 4616 4617 4618 4619 4620 4621 4622 4623 4624 4625 4626 4627 4628 4629 4630 4631 4632 4633 4634 4635 4636 4637 4638
    if (STRNEQ(format, QEMU_CONFIG_FORMAT_ARGV)) {
        qemudReportError(conn, NULL, NULL, VIR_ERR_INVALID_ARG,
                         _("unsupported config type %s"), format);
        goto cleanup;
    }

    def = virDomainDefParseString(conn, driver->caps, xmlData, 0);
    if (!def)
        goto cleanup;

    /* Since we're just exporting args, we can't do bridge/network
     * setups, since libvirt will normally create TAP devices
     * directly. We convert those configs into generic 'ethernet'
     * config and assume the user has suitable 'ifup-qemu' scripts
     */
    for (i = 0 ; i < def->nnets ; i++) {
        virDomainNetDefPtr net = def->nets[i];
        if (net->type == VIR_DOMAIN_NET_TYPE_NETWORK) {
            VIR_FREE(net->data.network.name);

            memset(net, 0, sizeof *net);

            net->type = VIR_DOMAIN_NET_TYPE_ETHERNET;
            net->data.ethernet.dev = NULL;
            net->data.ethernet.script = NULL;
            net->data.ethernet.ipaddr = NULL;
        } else if (net->type == VIR_DOMAIN_NET_TYPE_BRIDGE) {
            char *brname = net->data.bridge.brname;
            char *script = net->data.bridge.script;
            char *ipaddr = net->data.bridge.ipaddr;

            memset(net, 0, sizeof *net);

            net->type = VIR_DOMAIN_NET_TYPE_ETHERNET;
            net->data.ethernet.dev = brname;
            net->data.ethernet.script = script;
            net->data.ethernet.ipaddr = ipaddr;
        }
    }
    for (i = 0 ; i < def->ngraphics ; i++) {
        if (def->graphics[i]->type == VIR_DOMAIN_GRAPHICS_TYPE_VNC &&
            def->graphics[i]->data.vnc.autoport)
            def->graphics[i]->data.vnc.port = 5900;
    }
    emulator = def->emulator;

    /* Make sure the binary we are about to try exec'ing exists.
     * Technically we could catch the exec() failure, but that's
     * in a sub-process so its hard to feed back a useful error
     */
    if (stat(emulator, &sb) < 0) {
        virReportSystemError(conn, errno,
                             _("Cannot find QEMU binary %s"),
                             emulator);
        goto cleanup;
    }

    if (qemudExtractVersionInfo(emulator,
                                NULL,
                                &qemuCmdFlags) < 0) {
        qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
                         _("Cannot determine QEMU argv syntax %s"),
                         emulator);
        goto cleanup;
    }

4639
    if (qemuPrepareMonitorChr(conn, driver, &monConfig, def->name) < 0)
4640
        goto cleanup;
4641 4642

    if (qemudBuildCommandLine(conn, driver, def,
D
Daniel P. Berrange 已提交
4643
                              &monConfig, 0, qemuCmdFlags,
4644 4645 4646 4647 4648 4649 4650 4651 4652 4653 4654 4655 4656 4657 4658 4659 4660 4661 4662
                              &retargv, &retenv,
                              NULL, NULL, /* Don't want it to create TAP devices */
                              NULL) < 0) {
        goto cleanup;
    }

    tmp = retenv;
    while (*tmp) {
        virBufferAdd(&buf, *tmp, strlen(*tmp));
        virBufferAddLit(&buf, " ");
        tmp++;
    }
    tmp = retargv;
    while (*tmp) {
        virBufferAdd(&buf, *tmp, strlen(*tmp));
        virBufferAddLit(&buf, " ");
        tmp++;
    }

4663 4664 4665
    if (virBufferError(&buf)) {
        virBufferFreeAndReset(&buf);
        virReportOOMError(conn);
4666
        goto cleanup;
4667
    }
4668 4669 4670 4671

    ret = virBufferContentAndReset(&buf);

cleanup:
4672
    qemuDriverUnlock(driver);
4673 4674 4675 4676 4677 4678 4679 4680 4681 4682 4683 4684 4685
    for (tmp = retargv ; tmp && *tmp ; tmp++)
        VIR_FREE(*tmp);
    VIR_FREE(retargv);

    for (tmp = retenv ; tmp && *tmp ; tmp++)
        VIR_FREE(*tmp);
    VIR_FREE(retenv);

    virDomainDefFree(def);
    return ret;
}


4686
static int qemudListDefinedDomains(virConnectPtr conn,
4687
                            char **const names, int nnames) {
4688
    struct qemud_driver *driver = conn->privateData;
4689
    int n;
4690

4691
    qemuDriverLock(driver);
4692
    n = virDomainObjListGetInactiveNames(&driver->domains, names, nnames);
4693
    qemuDriverUnlock(driver);
4694
    return n;
D
Daniel P. Berrange 已提交
4695 4696
}

4697
static int qemudNumDefinedDomains(virConnectPtr conn) {
4698
    struct qemud_driver *driver = conn->privateData;
4699
    int n;
4700

4701
    qemuDriverLock(driver);
4702
    n = virDomainObjListNumOfDomains(&driver->domains, 0);
4703
    qemuDriverUnlock(driver);
4704

4705
    return n;
D
Daniel P. Berrange 已提交
4706 4707 4708
}


4709
static int qemudDomainStart(virDomainPtr dom) {
4710 4711 4712
    struct qemud_driver *driver = dom->conn->privateData;
    virDomainObjPtr vm;
    int ret = -1;
4713
    virDomainEventPtr event = NULL;
4714

4715
    qemuDriverLock(driver);
4716
    vm = virDomainFindByUUID(&driver->domains, dom->uuid);
4717

4718
    if (!vm) {
4719 4720 4721 4722
        char uuidstr[VIR_UUID_STRING_BUFLEN];
        virUUIDFormat(dom->uuid, uuidstr);
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_NO_DOMAIN,
                         _("no domain with matching uuid '%s'"), uuidstr);
4723
        goto cleanup;
4724 4725
    }

4726 4727 4728 4729 4730 4731 4732 4733 4734
    if (qemuDomainObjBeginJobWithDriver(driver, vm) < 0)
        goto cleanup;

    if (virDomainObjIsActive(vm)) {
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_OPERATION_INVALID,
                         "%s", _("domain is already running"));
        goto endjob;
    }

4735
    ret = qemudStartVMDaemon(dom->conn, driver, vm, NULL, -1);
4736
    if (ret != -1)
4737 4738 4739
        event = virDomainEventNewFromObj(vm,
                                         VIR_DOMAIN_EVENT_STARTED,
                                         VIR_DOMAIN_EVENT_STARTED_BOOTED);
4740

4741
endjob:
4742 4743
    if (qemuDomainObjEndJob(vm) == 0)
        vm = NULL;
4744

4745
cleanup:
4746 4747
    if (vm)
        virDomainObjUnlock(vm);
4748
    if (event)
4749
        qemuDomainEventQueue(driver, event);
4750
    qemuDriverUnlock(driver);
4751
    return ret;
D
Daniel P. Berrange 已提交
4752 4753
}

4754 4755 4756 4757 4758 4759 4760 4761 4762 4763 4764 4765 4766 4767 4768
static int
qemudCanonicalizeMachineFromInfo(virDomainDefPtr def,
                                 virCapsGuestDomainInfoPtr info,
                                 char **canonical)
{
    int i;

    *canonical = NULL;

    for (i = 0; i < info->nmachines; i++) {
        virCapsGuestMachinePtr machine = info->machines[i];

        if (!machine->canonical)
            continue;

4769
        if (STRNEQ(def->os.machine, machine->name))
4770 4771 4772 4773 4774 4775 4776 4777 4778 4779 4780 4781 4782
            continue;

        if (!(*canonical = strdup(machine->canonical))) {
            virReportOOMError(NULL);
            return -1;
        }

        break;
    }

    return 0;
}

4783 4784 4785 4786 4787 4788 4789 4790 4791 4792 4793 4794 4795 4796 4797
static int
qemudCanonicalizeMachineDirect(virDomainDefPtr def, char **canonical)
{
    virCapsGuestMachinePtr *machines = NULL;
    int i, nmachines = 0;

    if (qemudProbeMachineTypes(def->emulator, &machines, &nmachines) < 0) {
        virReportOOMError(NULL);
        return -1;
    }

    for (i = 0; i < nmachines; i++) {
        if (!machines[i]->canonical)
            continue;

4798
        if (STRNEQ(def->os.machine, machines[i]->name))
4799 4800 4801 4802 4803 4804 4805 4806 4807 4808 4809 4810
            continue;

        *canonical = machines[i]->canonical;
        machines[i]->canonical = NULL;
        break;
    }

    virCapabilitiesFreeMachines(machines, nmachines);

    return 0;
}

4811 4812
int
qemudCanonicalizeMachine(struct qemud_driver *driver, virDomainDefPtr def)
4813 4814 4815 4816 4817 4818
{
    char *canonical = NULL;
    int i;

    for (i = 0; i < driver->caps->nguests; i++) {
        virCapsGuestPtr guest = driver->caps->guests[i];
4819
        virCapsGuestDomainInfoPtr info;
4820 4821 4822
        int j;

        for (j = 0; j < guest->arch.ndomains; j++) {
4823
            info = &guest->arch.domains[j]->info;
4824

4825 4826 4827 4828 4829 4830 4831 4832 4833
            if (!info->emulator || !STREQ(info->emulator, def->emulator))
                continue;

            if (!info->nmachines)
                info = &guest->arch.defaultInfo;

            if (qemudCanonicalizeMachineFromInfo(def, info, &canonical) < 0)
                return -1;
            goto out;
4834 4835
        }

4836 4837 4838 4839
        info = &guest->arch.defaultInfo;

        if (info->emulator && STREQ(info->emulator, def->emulator)) {
            if (qemudCanonicalizeMachineFromInfo(def, info, &canonical) < 0)
4840 4841 4842 4843
                return -1;
            goto out;
        }
    }
4844 4845 4846 4847

    if (qemudCanonicalizeMachineDirect(def, &canonical) < 0)
        return -1;

4848 4849 4850 4851 4852 4853 4854
out:
    if (canonical) {
        VIR_FREE(def->os.machine);
        def->os.machine = canonical;
    }
    return 0;
}
D
Daniel P. Berrange 已提交
4855

4856
static virDomainPtr qemudDomainDefine(virConnectPtr conn, const char *xml) {
4857
    struct qemud_driver *driver = conn->privateData;
4858
    virDomainDefPtr def;
4859
    virDomainObjPtr vm = NULL;
4860
    virDomainPtr dom = NULL;
4861
    virDomainEventPtr event = NULL;
4862
    int dupVM;
4863

4864
    qemuDriverLock(driver);
4865 4866
    if (!(def = virDomainDefParseString(conn, driver->caps, xml,
                                        VIR_DOMAIN_XML_INACTIVE)))
4867
        goto cleanup;
4868

4869 4870 4871
    if (virSecurityDriverVerify(conn, def) < 0)
        goto cleanup;

4872 4873
    if ((dupVM = virDomainObjIsDuplicate(&driver->domains, def, 0)) < 0)
        goto cleanup;
4874

4875
    if (qemudCanonicalizeMachine(driver, def) < 0)
4876 4877
        goto cleanup;

4878
    if (!(vm = virDomainAssignDef(conn,
4879
                                  driver->caps,
4880 4881
                                  &driver->domains,
                                  def))) {
4882
        goto cleanup;
4883
    }
4884
    def = NULL;
4885
    vm->persistent = 1;
4886

4887 4888
    if (virDomainSaveConfig(conn,
                            driver->configDir,
4889
                            vm->newDef ? vm->newDef : vm->def) < 0) {
4890 4891
        virDomainRemoveInactive(&driver->domains,
                                vm);
4892
        vm = NULL;
4893
        goto cleanup;
4894 4895
    }

4896 4897
    event = virDomainEventNewFromObj(vm,
                                     VIR_DOMAIN_EVENT_DEFINED,
4898
                                     !dupVM ?
4899 4900
                                     VIR_DOMAIN_EVENT_DEFINED_ADDED :
                                     VIR_DOMAIN_EVENT_DEFINED_UPDATED);
4901

4902
    dom = virGetDomain(conn, vm->def->name, vm->def->uuid);
4903
    if (dom) dom->id = vm->def->id;
4904 4905

cleanup:
4906
    virDomainDefFree(def);
4907 4908
    if (vm)
        virDomainObjUnlock(vm);
4909 4910
    if (event)
        qemuDomainEventQueue(driver, event);
4911
    qemuDriverUnlock(driver);
4912
    return dom;
D
Daniel P. Berrange 已提交
4913 4914
}

4915
static int qemudDomainUndefine(virDomainPtr dom) {
4916 4917
    struct qemud_driver *driver = dom->conn->privateData;
    virDomainObjPtr vm;
4918
    virDomainEventPtr event = NULL;
4919
    int ret = -1;
D
Daniel P. Berrange 已提交
4920

4921
    qemuDriverLock(driver);
4922
    vm = virDomainFindByUUID(&driver->domains, dom->uuid);
4923

D
Daniel P. Berrange 已提交
4924
    if (!vm) {
4925 4926 4927 4928
        char uuidstr[VIR_UUID_STRING_BUFLEN];
        virUUIDFormat(dom->uuid, uuidstr);
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_NO_DOMAIN,
                         _("no domain with matching uuid '%s'"), uuidstr);
4929
        goto cleanup;
D
Daniel P. Berrange 已提交
4930 4931
    }

D
Daniel P. Berrange 已提交
4932
    if (virDomainObjIsActive(vm)) {
4933
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_OPERATION_INVALID,
4934
                         "%s", _("cannot delete active domain"));
4935
        goto cleanup;
D
Daniel P. Berrange 已提交
4936 4937
    }

4938 4939 4940
    if (!vm->persistent) {
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_INTERNAL_ERROR,
                         "%s", _("cannot undefine transient domain"));
4941
        goto cleanup;
4942 4943 4944
    }

    if (virDomainDeleteConfig(dom->conn, driver->configDir, driver->autostartDir, vm) < 0)
4945
        goto cleanup;
D
Daniel P. Berrange 已提交
4946

4947 4948 4949
    event = virDomainEventNewFromObj(vm,
                                     VIR_DOMAIN_EVENT_UNDEFINED,
                                     VIR_DOMAIN_EVENT_UNDEFINED_REMOVED);
4950

4951 4952
    virDomainRemoveInactive(&driver->domains,
                            vm);
4953
    vm = NULL;
4954
    ret = 0;
D
Daniel P. Berrange 已提交
4955

4956
cleanup:
4957 4958
    if (vm)
        virDomainObjUnlock(vm);
4959 4960
    if (event)
        qemuDomainEventQueue(driver, event);
4961
    qemuDriverUnlock(driver);
4962
    return ret;
D
Daniel P. Berrange 已提交
4963 4964
}

4965
/* Return the disks name for use in monitor commands */
4966
static char *qemudDiskDeviceName(const virConnectPtr conn,
4967
                                 const virDomainDiskDefPtr disk) {
4968 4969 4970 4971 4972 4973

    int busid, devid;
    int ret;
    char *devname;

    if (virDiskNameToBusDeviceIndex(disk, &busid, &devid) < 0) {
4974
        qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
4975 4976 4977 4978 4979 4980 4981
                         _("cannot convert disk '%s' to bus/device index"),
                         disk->dst);
        return NULL;
    }

    switch (disk->bus) {
        case VIR_DOMAIN_DISK_BUS_IDE:
4982
            if (disk->device== VIR_DOMAIN_DISK_DEVICE_DISK)
4983
                ret = virAsprintf(&devname, "ide%d-hd%d", busid, devid);
4984
            else
4985
                ret = virAsprintf(&devname, "ide%d-cd%d", busid, devid);
4986 4987
            break;
        case VIR_DOMAIN_DISK_BUS_SCSI:
4988
            if (disk->device == VIR_DOMAIN_DISK_DEVICE_DISK)
4989
                ret = virAsprintf(&devname, "scsi%d-hd%d", busid, devid);
4990
            else
4991
                ret = virAsprintf(&devname, "scsi%d-cd%d", busid, devid);
4992 4993
            break;
        case VIR_DOMAIN_DISK_BUS_FDC:
4994
            ret = virAsprintf(&devname, "floppy%d", devid);
4995 4996
            break;
        case VIR_DOMAIN_DISK_BUS_VIRTIO:
4997
            ret = virAsprintf(&devname, "virtio%d", devid);
4998 4999
            break;
        default:
5000
            qemudReportError(conn, NULL, NULL, VIR_ERR_NO_SUPPORT,
5001 5002 5003 5004 5005 5006
                             _("Unsupported disk name mapping for bus '%s'"),
                             virDomainDiskBusTypeToString(disk->bus));
            return NULL;
    }

    if (ret == -1) {
5007
        virReportOOMError(conn);
5008 5009 5010 5011 5012 5013
        return NULL;
    }

    return devname;
}

5014
static int qemudDomainChangeEjectableMedia(virConnectPtr conn,
5015
                                           struct qemud_driver *driver,
5016
                                           virDomainObjPtr vm,
5017 5018
                                           virDomainDeviceDefPtr dev,
                                           unsigned int qemuCmdFlags)
5019
{
5020
    virDomainDiskDefPtr origdisk = NULL, newdisk;
5021
    char *devname = NULL;
5022
    int i;
5023
    int ret;
5024

5025
    origdisk = NULL;
5026
    newdisk = dev->data.disk;
5027 5028 5029 5030
    for (i = 0 ; i < vm->def->ndisks ; i++) {
        if (vm->def->disks[i]->bus == newdisk->bus &&
            STREQ(vm->def->disks[i]->dst, newdisk->dst)) {
            origdisk = vm->def->disks[i];
5031
            break;
5032
        }
5033 5034 5035
    }

    if (!origdisk) {
5036
        qemudReportError(conn, dom, NULL, VIR_ERR_INTERNAL_ERROR,
5037 5038 5039 5040 5041 5042 5043
                         _("No device with bus '%s' and target '%s'"),
                         virDomainDiskBusTypeToString(newdisk->bus),
                         newdisk->dst);
        return -1;
    }

    if (qemuCmdFlags & QEMUD_CMD_FLAG_DRIVE) {
5044
        if (!(devname = qemudDiskDeviceName(conn, newdisk)))
5045 5046 5047 5048 5049 5050 5051 5052 5053
            return -1;
    } else {
        /* Back compat for no -drive option */
        if (newdisk->device == VIR_DOMAIN_DISK_DEVICE_FLOPPY)
            devname = strdup(newdisk->dst);
        else if (newdisk->device == VIR_DOMAIN_DISK_DEVICE_CDROM &&
                 STREQ(newdisk->dst, "hdc"))
            devname = strdup("cdrom");
        else {
5054
            qemudReportError(conn, dom, NULL, VIR_ERR_INTERNAL_ERROR,
5055 5056 5057 5058 5059 5060 5061 5062
                             _("Emulator version does not support removable "
                               "media for device '%s' and target '%s'"),
                               virDomainDiskDeviceTypeToString(newdisk->device),
                               newdisk->dst);
            return -1;
        }

        if (!devname) {
5063
            virReportOOMError(conn);
5064 5065 5066
            return -1;
        }
    }
5067

5068
    qemuDomainObjPrivatePtr priv = vm->privateData;
5069
    qemuDomainObjEnterMonitorWithDriver(driver, vm);
5070
    if (newdisk->src) {
5071 5072 5073 5074 5075 5076 5077 5078
        const char *format = NULL;
        if (newdisk->type != VIR_DOMAIN_DISK_TYPE_DIR) {
            if (newdisk->driverType)
                format = newdisk->driverType;
            else if (origdisk->driverType)
                format = origdisk->driverType;
        }
        ret = qemuMonitorChangeMedia(priv->mon, devname, newdisk->src, format);
5079
    } else {
5080
        ret = qemuMonitorEjectMedia(priv->mon, devname);
5081
    }
5082
    qemuDomainObjExitMonitorWithDriver(driver, vm);
5083

5084 5085 5086 5087 5088
    if (ret == 0) {
        VIR_FREE(origdisk->src);
        origdisk->src = newdisk->src;
        newdisk->src = NULL;
        origdisk->type = newdisk->type;
5089
    }
5090
    VIR_FREE(devname);
5091

5092
    return ret;
5093 5094
}

5095

5096
static int qemudDomainAttachPciDiskDevice(virConnectPtr conn,
5097
                                          struct qemud_driver *driver,
5098 5099
                                          virDomainObjPtr vm,
                                          virDomainDeviceDefPtr dev)
5100
{
5101
    int i, ret;
5102
    const char* type = virDomainDiskBusTypeToString(dev->data.disk->bus);
5103
    qemuDomainObjPrivatePtr priv = vm->privateData;
5104
    virDomainDevicePCIAddress guestAddr;
5105 5106 5107

    for (i = 0 ; i < vm->def->ndisks ; i++) {
        if (STREQ(vm->def->disks[i]->dst, dev->data.disk->dst)) {
5108
            qemudReportError(conn, dom, NULL, VIR_ERR_OPERATION_FAILED,
5109 5110 5111 5112 5113 5114
                           _("target %s already exists"), dev->data.disk->dst);
            return -1;
        }
    }

    if (VIR_REALLOC_N(vm->def->disks, vm->def->ndisks+1) < 0) {
5115
        virReportOOMError(conn);
5116 5117 5118
        return -1;
    }

5119
    qemuDomainObjEnterMonitorWithDriver(driver, vm);
5120 5121 5122
    ret = qemuMonitorAddPCIDisk(priv->mon,
                                dev->data.disk->src,
                                type,
5123
                                &guestAddr);
5124
    qemuDomainObjExitMonitorWithDriver(driver, vm);
5125

5126 5127
    if (ret == 0) {
        dev->data.disk->info.type = VIR_DOMAIN_DEVICE_ADDRESS_TYPE_PCI;
5128
        memcpy(&dev->data.disk->info.addr.pci, &guestAddr, sizeof(guestAddr));
5129
        virDomainDiskInsertPreAlloced(vm->def, dev->data.disk);
5130
    }
5131

5132
    return ret;
5133
}
5134

5135 5136 5137 5138 5139 5140 5141 5142 5143 5144 5145 5146 5147 5148 5149 5150 5151 5152 5153 5154 5155 5156 5157 5158 5159 5160 5161 5162 5163 5164 5165 5166 5167 5168 5169 5170 5171 5172
static int qemudDomainAttachPciControllerDevice(virConnectPtr conn,
                                                struct qemud_driver *driver,
                                                virDomainObjPtr vm,
                                                virDomainControllerDefPtr def)
{
    int i, ret;
    const char* type = virDomainControllerTypeToString(def->type);
    qemuDomainObjPrivatePtr priv = vm->privateData;

    for (i = 0 ; i < vm->def->ncontrollers ; i++) {
        if ((vm->def->controllers[i]->type == def->type) &&
            (vm->def->controllers[i]->idx == def->idx)) {
            qemudReportError(conn, dom, NULL, VIR_ERR_OPERATION_FAILED,
                             _("target %s:%d already exists"),
                             type, def->idx);
            return -1;
        }
    }

    if (VIR_REALLOC_N(vm->def->controllers, vm->def->ncontrollers+1) < 0) {
        virReportOOMError(conn);
        return -1;
    }

    qemuDomainObjEnterMonitorWithDriver(driver, vm);
    ret = qemuMonitorAttachPCIDiskController(priv->mon,
                                             type,
                                             &def->info.addr.pci);
    qemuDomainObjExitMonitorWithDriver(driver, vm);

    if (ret == 0) {
        def->info.type = VIR_DOMAIN_DEVICE_ADDRESS_TYPE_PCI;
        virDomainControllerInsertPreAlloced(vm->def, def);
    }

    return ret;
}

5173 5174 5175 5176 5177 5178 5179 5180 5181 5182 5183 5184 5185 5186 5187 5188 5189 5190 5191 5192 5193 5194 5195 5196 5197 5198 5199 5200 5201 5202 5203 5204 5205 5206 5207 5208 5209 5210 5211 5212 5213 5214 5215 5216 5217 5218 5219 5220 5221 5222 5223 5224 5225 5226 5227 5228 5229 5230 5231 5232 5233 5234 5235 5236 5237 5238 5239 5240 5241 5242 5243 5244 5245 5246 5247 5248 5249 5250 5251 5252 5253 5254 5255 5256 5257 5258 5259 5260 5261 5262 5263 5264 5265 5266 5267 5268 5269 5270 5271 5272 5273 5274 5275 5276 5277 5278 5279 5280 5281 5282
static virDomainControllerDefPtr
qemuDomainFindOrCreateSCSIDiskController(virConnectPtr conn,
                                         struct qemud_driver *driver,
                                         virDomainObjPtr vm,
                                         int controller)
{
    int i;
    virDomainControllerDefPtr cont;
    for (i = 0 ; i < vm->def->ncontrollers ; i++) {
        cont = vm->def->controllers[i];

        if (cont->type != VIR_DOMAIN_CONTROLLER_TYPE_SCSI)
            continue;

        if (cont->idx == controller)
            return cont;
    }

    /* No SCSI controller present, for back compatability we
     * now hotplug a controller */
    if (VIR_ALLOC(cont) < 0) {
        virReportOOMError(conn);
        return NULL;
    }
    cont->type = VIR_DOMAIN_CONTROLLER_TYPE_SCSI;
    cont->idx = 0;

    VIR_INFO0("No SCSI controller present, hotplugging one");
    if (qemudDomainAttachPciControllerDevice(conn, driver,
                                             vm, cont) < 0) {
        VIR_FREE(cont);
        return NULL;
    }
    return cont;
}

static int qemudDomainAttachSCSIDisk(virConnectPtr conn,
                                     struct qemud_driver *driver,
                                     virDomainObjPtr vm,
                                     virDomainDiskDefPtr dev,
                                     int qemuCmdFlags)
{
    int i;
    qemuDomainObjPrivatePtr priv = vm->privateData;
    virDomainDeviceDriveAddress driveAddr;
    virDomainControllerDefPtr cont;
    char *drivestr = NULL;
    int ret = -1;

    for (i = 0 ; i < vm->def->ndisks ; i++) {
        if (STREQ(vm->def->disks[i]->dst, dev->dst)) {
            qemudReportError(conn, dom, NULL, VIR_ERR_OPERATION_FAILED,
                           _("target %s already exists"), dev->dst);
            goto cleanup;
        }
    }

    /* This func allocates the bus/unit IDs so must be before
     * we search for controller
     */
    if (!(drivestr = qemuBuildDriveStr(dev, 0, qemuCmdFlags)))
        goto cleanup;


    /* We should have an adddress now, so make sure */
    if (dev->info.type != VIR_DOMAIN_DEVICE_ADDRESS_TYPE_DRIVE) {
        qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
                         _("unexpected disk address type %s"),
                         virDomainDeviceAddressTypeToString(dev->info.type));
        goto cleanup;
    }

    for (i = 0 ; i < dev->info.addr.drive.controller ; i++) {
        cont = qemuDomainFindOrCreateSCSIDiskController(conn, driver, vm, i);
        if (!cont)
            goto cleanup;
    }

    if (cont->info.type != VIR_DOMAIN_DEVICE_ADDRESS_TYPE_PCI) {
        qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
                         _("SCSI controller %d was missing its PCI address"), cont->idx);
        goto cleanup;
    }

    if (VIR_REALLOC_N(vm->def->disks, vm->def->ndisks+1) < 0) {
        virReportOOMError(conn);
        goto cleanup;
    }

    qemuDomainObjEnterMonitorWithDriver(driver, vm);
    ret = qemuMonitorAttachDrive(priv->mon,
                                 drivestr,
                                 &cont->info.addr.pci,
                                 &driveAddr);

    qemuDomainObjExitMonitorWithDriver(driver, vm);

    if (ret == 0) {
        /* XXX we should probably validate that the addr matches
         * our existing defined addr instead of overwriting */
        dev->info.type = VIR_DOMAIN_DEVICE_ADDRESS_TYPE_DRIVE;
        memcpy(&dev->info.addr.drive, &driveAddr, sizeof(driveAddr));
        virDomainDiskInsertPreAlloced(vm->def, dev);
    }

cleanup:
    VIR_FREE(drivestr);
    return ret;
}

5283

5284
static int qemudDomainAttachUsbMassstorageDevice(virConnectPtr conn,
5285
                                                 struct qemud_driver *driver,
5286 5287
                                                 virDomainObjPtr vm,
                                                 virDomainDeviceDefPtr dev)
5288
{
5289
    qemuDomainObjPrivatePtr priv = vm->privateData;
5290
    int i, ret;
5291

5292 5293
    for (i = 0 ; i < vm->def->ndisks ; i++) {
        if (STREQ(vm->def->disks[i]->dst, dev->data.disk->dst)) {
5294
            qemudReportError(conn, NULL, NULL, VIR_ERR_OPERATION_FAILED,
5295 5296 5297 5298 5299
                           _("target %s already exists"), dev->data.disk->dst);
            return -1;
        }
    }

5300 5301 5302
    if (!dev->data.disk->src) {
        qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
                         "%s", _("disk source path is missing"));
5303 5304 5305
        return -1;
    }

5306
    if (VIR_REALLOC_N(vm->def->disks, vm->def->ndisks+1) < 0) {
5307
        virReportOOMError(conn);
5308 5309 5310
        return -1;
    }

5311
    qemuDomainObjEnterMonitorWithDriver(driver, vm);
5312
    ret = qemuMonitorAddUSBDisk(priv->mon, dev->data.disk->src);
5313
    qemuDomainObjExitMonitorWithDriver(driver, vm);
5314

5315 5316
    if (ret == 0)
        virDomainDiskInsertPreAlloced(vm->def, dev->data.disk);
5317

5318
    return ret;
5319 5320
}

M
Mark McLoughlin 已提交
5321
static int qemudDomainAttachNetDevice(virConnectPtr conn,
5322
                                      struct qemud_driver *driver,
M
Mark McLoughlin 已提交
5323 5324 5325 5326 5327
                                      virDomainObjPtr vm,
                                      virDomainDeviceDefPtr dev,
                                      unsigned int qemuCmdFlags)
{
    virDomainNetDefPtr net = dev->data.net;
5328
    qemuDomainObjPrivatePtr priv = vm->privateData;
5329
    char *tapfd_name = NULL;
5330
    int i, tapfd = -1;
5331
    char *nicstr = NULL;
5332
    char *netstr = NULL;
5333
    int ret = -1;
5334
    virDomainDevicePCIAddress guestAddr;
M
Mark McLoughlin 已提交
5335 5336 5337 5338 5339 5340 5341 5342 5343

    if (!(qemuCmdFlags & QEMUD_CMD_FLAG_HOST_NET_ADD)) {
        qemudReportError(conn, dom, NULL, VIR_ERR_NO_SUPPORT, "%s",
                         _("installed qemu version does not support host_net_add"));
        return -1;
    }

    if (net->type == VIR_DOMAIN_NET_TYPE_BRIDGE ||
        net->type == VIR_DOMAIN_NET_TYPE_NETWORK) {
5344
        if (priv->monConfig->type != VIR_DOMAIN_CHR_TYPE_UNIX) {
5345 5346 5347 5348 5349 5350 5351 5352 5353
            qemudReportError(conn, dom, NULL, VIR_ERR_NO_SUPPORT,
                             _("network device type '%s' cannot be attached: "
                               "qemu is not using a unix socket monitor"),
                             virDomainNetTypeToString(net->type));
            return -1;
        }

        if ((tapfd = qemudNetworkIfaceConnect(conn, driver, net, qemuCmdFlags)) < 0)
            return -1;
M
Mark McLoughlin 已提交
5354 5355
    }

5356 5357
    if (VIR_REALLOC_N(vm->def->nets, vm->def->nnets+1) < 0)
        goto no_memory;
M
Mark McLoughlin 已提交
5358 5359

    if ((qemuCmdFlags & QEMUD_CMD_FLAG_NET_NAME) &&
5360 5361
        qemuAssignNetNames(vm->def, net) < 0)
        goto no_memory;
M
Mark McLoughlin 已提交
5362 5363 5364 5365 5366 5367 5368 5369 5370

    /* Choose a vlan value greater than all other values since
     * older versions did not store the value in the state file.
     */
    net->vlan = vm->def->nnets;
    for (i = 0; i < vm->def->nnets; i++)
        if (vm->def->nets[i]->vlan >= net->vlan)
            net->vlan = vm->def->nets[i]->vlan;

5371 5372 5373 5374
    if (tapfd != -1) {
        if (virAsprintf(&tapfd_name, "fd-%s", net->hostnet_name) < 0)
            goto no_memory;

5375
        qemuDomainObjEnterMonitorWithDriver(driver, vm);
5376
        if (qemuMonitorSendFileHandle(priv->mon, tapfd_name, tapfd) < 0) {
5377
            qemuDomainObjExitMonitorWithDriver(driver, vm);
5378
            goto cleanup;
5379
        }
5380
        qemuDomainObjExitMonitorWithDriver(driver, vm);
5381 5382
    }

5383 5384
    if (qemuBuildHostNetStr(conn, net, ' ',
                            net->vlan, tapfd_name, &netstr) < 0)
5385
        goto try_tapfd_close;
M
Mark McLoughlin 已提交
5386

5387
    qemuDomainObjEnterMonitorWithDriver(driver, vm);
5388
    if (qemuMonitorAddHostNetwork(priv->mon, netstr) < 0) {
5389
        qemuDomainObjExitMonitorWithDriver(driver, vm);
5390
        goto try_tapfd_close;
5391
    }
5392
    qemuDomainObjExitMonitorWithDriver(driver, vm);
M
Mark McLoughlin 已提交
5393

5394 5395 5396
    if (tapfd != -1)
        close(tapfd);
    tapfd = -1;
M
Mark McLoughlin 已提交
5397

5398
    if (qemuBuildNicStr(conn, net, NULL, net->vlan, &nicstr) < 0)
5399
        goto try_remove;
M
Mark McLoughlin 已提交
5400

5401
    qemuDomainObjEnterMonitorWithDriver(driver, vm);
5402
    if (qemuMonitorAddPCINetwork(priv->mon, nicstr,
5403
                                 &guestAddr) < 0) {
5404
        qemuDomainObjExitMonitorWithDriver(driver, vm);
5405
        goto try_remove;
5406
    }
5407
    net->info.type = VIR_DOMAIN_DEVICE_ADDRESS_TYPE_PCI;
5408
    memcpy(&net->info.addr.pci, &guestAddr, sizeof(guestAddr));
5409
    qemuDomainObjExitMonitorWithDriver(driver, vm);
5410

5411
    ret = 0;
M
Mark McLoughlin 已提交
5412 5413 5414

    vm->def->nets[vm->def->nnets++] = net;

5415 5416 5417 5418 5419 5420
cleanup:
    VIR_FREE(nicstr);
    VIR_FREE(netstr);
    VIR_FREE(tapfd_name);
    if (tapfd != -1)
        close(tapfd);
5421

5422
    return ret;
5423

5424 5425
try_remove:
    if (!net->hostnet_name || net->vlan == 0)
5426
        VIR_WARN0(_("Unable to remove network backend\n"));
5427
    else {
5428
        qemuDomainObjEnterMonitorWithDriver(driver, vm);
5429 5430 5431
        if (qemuMonitorRemoveHostNetwork(priv->mon, net->vlan, net->hostnet_name) < 0)
            VIR_WARN(_("Failed to remove network backend for vlan %d, net %s"),
                     net->vlan, net->hostnet_name);
5432
        qemuDomainObjExitMonitorWithDriver(driver, vm);
5433
    }
5434
    goto cleanup;
5435

5436
try_tapfd_close:
5437
    if (tapfd_name) {
5438
        qemuDomainObjEnterMonitorWithDriver(driver, vm);
5439 5440
        if (qemuMonitorCloseFileHandle(priv->mon, tapfd_name) < 0)
            VIR_WARN(_("Failed to close tapfd with '%s'\n"), tapfd_name);
5441
        qemuDomainObjExitMonitorWithDriver(driver, vm);
5442
    }
5443

5444 5445
    goto cleanup;

5446 5447
no_memory:
    virReportOOMError(conn);
5448
    goto cleanup;
M
Mark McLoughlin 已提交
5449 5450
}

5451
static int qemudDomainAttachHostPciDevice(virConnectPtr conn,
5452
                                          struct qemud_driver *driver,
5453 5454 5455
                                          virDomainObjPtr vm,
                                          virDomainDeviceDefPtr dev)
{
5456
    qemuDomainObjPrivatePtr priv = vm->privateData;
5457
    virDomainHostdevDefPtr hostdev = dev->data.hostdev;
5458
    pciDevice *pci;
5459
    int ret;
5460
    virDomainDevicePCIAddress guestAddr;
5461 5462 5463 5464 5465 5466

    if (VIR_REALLOC_N(vm->def->hostdevs, vm->def->nhostdevs+1) < 0) {
        virReportOOMError(conn);
        return -1;
    }

5467 5468 5469 5470 5471
    pci = pciGetDevice(conn,
                       hostdev->source.subsys.u.pci.domain,
                       hostdev->source.subsys.u.pci.bus,
                       hostdev->source.subsys.u.pci.slot,
                       hostdev->source.subsys.u.pci.function);
5472
    if (!pci)
5473
        return -1;
5474

5475
    if ((hostdev->managed && pciDettachDevice(conn, pci) < 0) ||
5476 5477 5478 5479 5480 5481
        pciResetDevice(conn, pci, driver->activePciHostdevs) < 0) {
        pciFreeDevice(conn, pci);
        return -1;
    }

    if (pciDeviceListAdd(conn, driver->activePciHostdevs, pci) < 0) {
5482
        pciFreeDevice(conn, pci);
5483
        return -1;
5484 5485
    }

5486
    qemuDomainObjEnterMonitorWithDriver(driver, vm);
5487
    ret = qemuMonitorAddPCIHostDevice(priv->mon,
5488 5489
                                      &hostdev->source.subsys.u.pci,
                                      &guestAddr);
5490
    qemuDomainObjExitMonitorWithDriver(driver, vm);
5491
    if (ret < 0)
5492
        goto error;
5493
    hostdev->info.type = VIR_DOMAIN_DEVICE_ADDRESS_TYPE_PCI;
5494
    memcpy(&hostdev->info.addr.pci, &guestAddr, sizeof(guestAddr));
5495 5496 5497 5498

    vm->def->hostdevs[vm->def->nhostdevs++] = hostdev;

    return 0;
5499 5500 5501 5502 5503

error:
    pciDeviceListDel(conn, driver->activePciHostdevs, pci);

    return -1;
5504 5505
}

M
Mark McLoughlin 已提交
5506
static int qemudDomainAttachHostUsbDevice(virConnectPtr conn,
5507
                                          struct qemud_driver *driver,
M
Mark McLoughlin 已提交
5508 5509
                                          virDomainObjPtr vm,
                                          virDomainDeviceDefPtr dev)
5510 5511
{
    int ret;
5512
    qemuDomainObjPrivatePtr priv = vm->privateData;
5513

5514
    if (VIR_REALLOC_N(vm->def->hostdevs, vm->def->nhostdevs+1) < 0) {
5515
        virReportOOMError(conn);
5516 5517
        return -1;
    }
5518

5519
    qemuDomainObjEnterMonitorWithDriver(driver, vm);
5520
    if (dev->data.hostdev->source.subsys.u.usb.vendor) {
5521
        ret = qemuMonitorAddUSBDeviceMatch(priv->mon,
5522 5523
                                           dev->data.hostdev->source.subsys.u.usb.vendor,
                                           dev->data.hostdev->source.subsys.u.usb.product);
5524
    } else {
5525
        ret = qemuMonitorAddUSBDeviceExact(priv->mon,
5526 5527
                                           dev->data.hostdev->source.subsys.u.usb.bus,
                                           dev->data.hostdev->source.subsys.u.usb.device);
5528
    }
5529
    qemuDomainObjExitMonitorWithDriver(driver, vm);
5530

5531 5532
    if (ret != -1)
        vm->def->hostdevs[vm->def->nhostdevs++] = dev->data.hostdev;
5533

5534
    return ret;
5535 5536
}

M
Mark McLoughlin 已提交
5537 5538 5539 5540 5541 5542 5543 5544 5545 5546 5547 5548 5549 5550 5551 5552
static int qemudDomainAttachHostDevice(virConnectPtr conn,
                                       struct qemud_driver *driver,
                                       virDomainObjPtr vm,
                                       virDomainDeviceDefPtr dev)
{
    virDomainHostdevDefPtr hostdev = dev->data.hostdev;

    if (hostdev->mode != VIR_DOMAIN_HOSTDEV_MODE_SUBSYS) {
        qemudReportError(conn, dom, NULL, VIR_ERR_NO_SUPPORT,
                         _("hostdev mode '%s' not supported"),
                         virDomainHostdevModeTypeToString(hostdev->mode));
        return -1;
    }

    if (qemuDomainSetDeviceOwnership(conn, driver, dev, 0) < 0)
        return -1;
5553 5554 5555
    if (driver->securityDriver &&
        driver->securityDriver->domainSetSecurityHostdevLabel(conn, vm, dev->data.hostdev) < 0)
        return -1;
M
Mark McLoughlin 已提交
5556 5557

    switch (hostdev->source.subsys.type) {
5558
    case VIR_DOMAIN_HOSTDEV_SUBSYS_TYPE_PCI:
5559
        return qemudDomainAttachHostPciDevice(conn, driver, vm, dev);
M
Mark McLoughlin 已提交
5560
    case VIR_DOMAIN_HOSTDEV_SUBSYS_TYPE_USB:
5561
        return qemudDomainAttachHostUsbDevice(conn, driver, vm, dev);
M
Mark McLoughlin 已提交
5562 5563 5564 5565 5566 5567 5568 5569
    default:
        qemudReportError(conn, dom, NULL, VIR_ERR_NO_SUPPORT,
                         _("hostdev subsys type '%s' not supported"),
                         virDomainHostdevSubsysTypeToString(hostdev->source.subsys.type));
        return -1;
    }
}

5570 5571
static int qemudDomainAttachDevice(virDomainPtr dom,
                                   const char *xml) {
5572 5573 5574
    struct qemud_driver *driver = dom->conn->privateData;
    virDomainObjPtr vm;
    virDomainDeviceDefPtr dev = NULL;
5575
    unsigned int qemuCmdFlags;
5576
    virCgroupPtr cgroup = NULL;
5577
    int ret = -1;
5578

5579
    qemuDriverLock(driver);
5580
    vm = virDomainFindByUUID(&driver->domains, dom->uuid);
5581
    if (!vm) {
5582 5583 5584 5585
        char uuidstr[VIR_UUID_STRING_BUFLEN];
        virUUIDFormat(dom->uuid, uuidstr);
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_NO_DOMAIN,
                         _("no domain with matching uuid '%s'"), uuidstr);
5586
        goto cleanup;
5587 5588
    }

5589 5590 5591
    if (qemuDomainObjBeginJobWithDriver(driver, vm) < 0)
        goto cleanup;

D
Daniel P. Berrange 已提交
5592
    if (!virDomainObjIsActive(vm)) {
5593
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_OPERATION_INVALID,
5594
                         "%s", _("cannot attach device on inactive domain"));
5595
        goto endjob;
5596 5597
    }

5598 5599
    dev = virDomainDeviceDefParse(dom->conn, driver->caps, vm->def, xml,
                                  VIR_DOMAIN_XML_INACTIVE);
5600
    if (dev == NULL)
5601
        goto endjob;
5602

5603 5604 5605
    if (qemudExtractVersionInfo(vm->def->emulator,
                                NULL,
                                &qemuCmdFlags) < 0)
5606
        goto endjob;
5607

5608
    if (dev->type == VIR_DOMAIN_DEVICE_DISK) {
5609
        if (qemuCgroupControllerActive(driver, VIR_CGROUP_CONTROLLER_DEVICES)) {
5610 5611 5612 5613
            if (virCgroupForDomain(driver->cgroup, vm->def->name, &cgroup, 0) !=0 ) {
                qemudReportError(dom->conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
                                 _("Unable to find cgroup for %s\n"),
                                 vm->def->name);
5614
                goto endjob;
5615 5616 5617 5618 5619 5620 5621 5622
            }
            if (dev->data.disk->src != NULL &&
                dev->data.disk->type == VIR_DOMAIN_DISK_TYPE_BLOCK &&
                virCgroupAllowDevicePath(cgroup,
                                         dev->data.disk->src) < 0) {
                qemudReportError(dom->conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
                                 _("unable to allow device %s"),
                                 dev->data.disk->src);
5623
                goto endjob;
5624 5625 5626
            }
        }

5627
        switch (dev->data.disk->device) {
5628 5629
        case VIR_DOMAIN_DISK_DEVICE_CDROM:
        case VIR_DOMAIN_DISK_DEVICE_FLOPPY:
5630 5631
            if (driver->securityDriver)
                driver->securityDriver->domainSetSecurityImageLabel(dom->conn, vm, dev->data.disk);
5632 5633

            if (qemuDomainSetDeviceOwnership(dom->conn, driver, dev, 0) < 0)
5634
                goto endjob;
5635

5636
            ret = qemudDomainChangeEjectableMedia(dom->conn, driver, vm, dev, qemuCmdFlags);
5637
            break;
5638

5639
        case VIR_DOMAIN_DISK_DEVICE_DISK:
5640 5641
            if (driver->securityDriver)
                driver->securityDriver->domainSetSecurityImageLabel(dom->conn, vm, dev->data.disk);
5642 5643

            if (qemuDomainSetDeviceOwnership(dom->conn, driver, dev, 0) < 0)
5644
                goto endjob;
5645

5646
            if (dev->data.disk->bus == VIR_DOMAIN_DISK_BUS_USB) {
5647
                ret = qemudDomainAttachUsbMassstorageDevice(dom->conn, driver, vm, dev);
5648
            } else if (dev->data.disk->bus == VIR_DOMAIN_DISK_BUS_VIRTIO) {
5649
                ret = qemudDomainAttachPciDiskDevice(dom->conn, driver, vm, dev);
5650 5651
            } else if (dev->data.disk->bus == VIR_DOMAIN_DISK_BUS_SCSI) {
                ret = qemudDomainAttachSCSIDisk(dom->conn, driver, vm, dev->data.disk, qemuCmdFlags);
5652 5653 5654 5655
            } else {
                qemudReportError(dom->conn, dom, NULL, VIR_ERR_NO_SUPPORT,
                                 _("disk bus '%s' cannot be hotplugged."),
                                 virDomainDiskBusTypeToString(dev->data.disk->bus));
5656
                /* fallthrough */
5657 5658
            }
            break;
5659

5660 5661
        default:
            qemudReportError(dom->conn, dom, NULL, VIR_ERR_NO_SUPPORT,
5662 5663
                             _("disk device type '%s' cannot be hotplugged"),
                             virDomainDiskDeviceTypeToString(dev->data.disk->device));
5664 5665
            /* Fallthrough */
        }
5666
        if (ret != 0 && cgroup) {
5667 5668
            virCgroupDenyDevicePath(cgroup,
                                    dev->data.disk->src);
5669
        }
5670 5671 5672 5673 5674 5675 5676 5677 5678
    } else if (dev->type == VIR_DOMAIN_DEVICE_CONTROLLER) {
        if (dev->data.controller->type == VIR_DOMAIN_CONTROLLER_TYPE_SCSI) {
            ret = qemudDomainAttachPciControllerDevice(dom->conn, driver, vm, dev->data.controller);
        } else {
            qemudReportError(dom->conn, dom, NULL, VIR_ERR_NO_SUPPORT,
                             _("disk controller bus '%s' cannot be hotplugged."),
                             virDomainControllerTypeToString(dev->data.controller->type));
            /* fallthrough */
        }
M
Mark McLoughlin 已提交
5679
    } else if (dev->type == VIR_DOMAIN_DEVICE_NET) {
5680
        ret = qemudDomainAttachNetDevice(dom->conn, driver, vm, dev, qemuCmdFlags);
M
Mark McLoughlin 已提交
5681 5682
    } else if (dev->type == VIR_DOMAIN_DEVICE_HOSTDEV) {
        ret = qemudDomainAttachHostDevice(dom->conn, driver, vm, dev);
5683
    } else {
5684
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_NO_SUPPORT,
5685 5686
                         _("device type '%s' cannot be attached"),
                         virDomainDeviceTypeToString(dev->type));
5687
        goto endjob;
5688 5689
    }

5690
    if (!ret && virDomainSaveStatus(dom->conn, driver->caps, driver->stateDir, vm) < 0)
5691 5692
        ret = -1;

5693
endjob:
5694 5695
    if (qemuDomainObjEndJob(vm) == 0)
        vm = NULL;
5696

5697
cleanup:
5698 5699 5700
    if (cgroup)
        virCgroupFree(&cgroup);

5701
    if (ret < 0 && dev != NULL) {
5702 5703
        if (qemuDomainSetDeviceOwnership(dom->conn, driver, dev, 1) < 0)
            VIR_WARN0("Fail to restore disk device ownership");
G
Guido Günther 已提交
5704
        virDomainDeviceDefFree(dev);
5705
    }
5706 5707
    if (vm)
        virDomainObjUnlock(vm);
5708
    qemuDriverUnlock(driver);
5709 5710 5711
    return ret;
}

5712
static int qemudDomainDetachPciDiskDevice(virConnectPtr conn,
5713 5714 5715
                                          struct qemud_driver *driver,
                                          virDomainObjPtr vm,
                                          virDomainDeviceDefPtr dev)
5716 5717 5718
{
    int i, ret = -1;
    virDomainDiskDefPtr detach = NULL;
5719
    qemuDomainObjPrivatePtr priv = vm->privateData;
5720 5721 5722 5723 5724 5725 5726 5727 5728

    for (i = 0 ; i < vm->def->ndisks ; i++) {
        if (STREQ(vm->def->disks[i]->dst, dev->data.disk->dst)) {
            detach = vm->def->disks[i];
            break;
        }
    }

    if (!detach) {
5729
        qemudReportError(conn, NULL, NULL, VIR_ERR_OPERATION_FAILED,
5730
                         _("disk %s not found"), dev->data.disk->dst);
5731
        goto cleanup;
5732 5733
    }

5734 5735 5736 5737
    if (!virDomainDeviceAddressIsValid(&detach->info,
                                       VIR_DOMAIN_DEVICE_ADDRESS_TYPE_PCI)) {
        qemudReportError(conn, NULL, NULL, VIR_ERR_OPERATION_FAILED, "%s",
                         _("device cannot be detached without a PCI address"));
5738
        goto cleanup;
5739 5740
    }

5741
    qemuDomainObjEnterMonitorWithDriver(driver, vm);
5742
    if (qemuMonitorRemovePCIDevice(priv->mon,
5743
                                   &detach->info.addr.pci) < 0) {
5744
        qemuDomainObjExitMonitor(vm);
5745
        goto cleanup;
5746
    }
5747
    qemuDomainObjExitMonitorWithDriver(driver, vm);
5748

5749 5750 5751 5752 5753 5754 5755 5756 5757 5758
    if (vm->def->ndisks > 1) {
        memmove(vm->def->disks + i,
                vm->def->disks + i + 1,
                sizeof(*vm->def->disks) *
                (vm->def->ndisks - (i + 1)));
        vm->def->ndisks--;
        if (VIR_REALLOC_N(vm->def->disks, vm->def->ndisks) < 0) {
            /* ignore, harmless */
        }
    } else {
5759
        VIR_FREE(vm->def->disks);
5760
        vm->def->ndisks = 0;
5761
    }
5762
    virDomainDiskDefFree(detach);
5763

5764
    ret = 0;
5765 5766

cleanup:
5767 5768 5769
    return ret;
}

5770 5771 5772 5773 5774 5775 5776 5777 5778 5779 5780 5781 5782 5783 5784 5785 5786 5787 5788 5789 5790 5791 5792 5793 5794 5795 5796 5797 5798 5799 5800 5801 5802 5803 5804 5805 5806 5807 5808 5809 5810 5811 5812 5813 5814 5815 5816 5817 5818 5819 5820 5821 5822 5823 5824 5825 5826 5827 5828 5829 5830
static int qemudDomainDetachPciControllerDevice(virConnectPtr conn,
                                                struct qemud_driver *driver,
                                                virDomainObjPtr vm,
                                                virDomainDeviceDefPtr dev)
{
    int i, ret = -1;
    virDomainControllerDefPtr detach = NULL;
    qemuDomainObjPrivatePtr priv = vm->privateData;

    for (i = 0 ; i < vm->def->ncontrollers ; i++) {
        if ((vm->def->controllers[i]->type == dev->data.controller->type) &&
            (vm->def->controllers[i]->idx == dev->data.controller->idx)) {
            detach = vm->def->controllers[i];
            break;
        }
    }

    if (!detach) {
        qemudReportError(conn, NULL, NULL, VIR_ERR_OPERATION_FAILED,
                         _("disk controller %s:%d not found"),
                         virDomainControllerTypeToString(dev->data.controller->type),
                         dev->data.controller->idx);
        goto cleanup;
    }

    if (!virDomainDeviceAddressIsValid(&detach->info,
                                       VIR_DOMAIN_DEVICE_ADDRESS_TYPE_PCI)) {
        qemudReportError(conn, NULL, NULL, VIR_ERR_OPERATION_FAILED, "%s",
                         _("device cannot be detached without a PCI address"));
        goto cleanup;
    }

    qemuDomainObjEnterMonitorWithDriver(driver, vm);
    if (qemuMonitorRemovePCIDevice(priv->mon,
                                   &detach->info.addr.pci) < 0) {
        qemuDomainObjExitMonitor(vm);
        goto cleanup;
    }
    qemuDomainObjExitMonitorWithDriver(driver, vm);

    if (vm->def->ncontrollers > 1) {
        memmove(vm->def->controllers + i,
                vm->def->controllers + i + 1,
                sizeof(*vm->def->controllers) *
                (vm->def->ncontrollers - (i + 1)));
        vm->def->ncontrollers--;
        if (VIR_REALLOC_N(vm->def->controllers, vm->def->ncontrollers) < 0) {
            /* ignore, harmless */
        }
    } else {
        VIR_FREE(vm->def->controllers);
        vm->def->ncontrollers = 0;
    }
    virDomainControllerDefFree(detach);

    ret = 0;

cleanup:
    return ret;
}

5831 5832
static int
qemudDomainDetachNetDevice(virConnectPtr conn,
5833
                           struct qemud_driver *driver,
5834 5835 5836 5837 5838
                           virDomainObjPtr vm,
                           virDomainDeviceDefPtr dev)
{
    int i, ret = -1;
    virDomainNetDefPtr detach = NULL;
5839
    qemuDomainObjPrivatePtr priv = vm->privateData;
5840 5841 5842 5843 5844 5845 5846 5847 5848 5849 5850 5851 5852 5853 5854 5855 5856 5857 5858

    for (i = 0 ; i < vm->def->nnets ; i++) {
        virDomainNetDefPtr net = vm->def->nets[i];

        if (!memcmp(net->mac, dev->data.net->mac,  sizeof(net->mac))) {
            detach = net;
            break;
        }
    }

    if (!detach) {
        qemudReportError(conn, NULL, NULL, VIR_ERR_OPERATION_FAILED,
                         _("network device %02x:%02x:%02x:%02x:%02x:%02x not found"),
                         dev->data.net->mac[0], dev->data.net->mac[1],
                         dev->data.net->mac[2], dev->data.net->mac[3],
                         dev->data.net->mac[4], dev->data.net->mac[5]);
        goto cleanup;
    }

5859 5860 5861 5862 5863 5864 5865 5866
    if (!virDomainDeviceAddressIsValid(&detach->info,
                                       VIR_DOMAIN_DEVICE_ADDRESS_TYPE_PCI)) {
        qemudReportError(conn, NULL, NULL, VIR_ERR_OPERATION_FAILED,
                         "%s", _("device cannot be detached without a PCI address"));
        goto cleanup;
    }

    if (detach->vlan < 0 || !detach->hostnet_name) {
5867 5868 5869 5870 5871
        qemudReportError(conn, NULL, NULL, VIR_ERR_OPERATION_FAILED,
                         "%s", _("network device cannot be detached - device state missing"));
        goto cleanup;
    }

5872
    qemuDomainObjEnterMonitorWithDriver(driver, vm);
5873
    if (qemuMonitorRemovePCIDevice(priv->mon,
5874
                                   &detach->info.addr.pci) < 0) {
5875
        qemuDomainObjExitMonitorWithDriver(driver, vm);
5876
        goto cleanup;
5877
    }
5878

5879
    if (qemuMonitorRemoveHostNetwork(priv->mon, detach->vlan, detach->hostnet_name) < 0) {
5880
        qemuDomainObjExitMonitorWithDriver(driver, vm);
5881
        goto cleanup;
5882
    }
5883
    qemuDomainObjExitMonitorWithDriver(driver, vm);
5884

5885 5886 5887 5888 5889 5890 5891 5892 5893 5894 5895
    if ((driver->macFilter) && (detach->ifname != NULL)) {
        if ((errno = networkDisallowMacOnPort(conn,
                                              driver,
                                              detach->ifname,
                                              detach->mac))) {
            virReportSystemError(conn, errno,
             _("failed to remove ebtables rule on  '%s'"),
                                 detach->ifname);
        }
    }

5896 5897 5898 5899 5900 5901 5902 5903 5904 5905
    if (vm->def->nnets > 1) {
        memmove(vm->def->nets + i,
                vm->def->nets + i + 1,
                sizeof(*vm->def->nets) *
                (vm->def->nnets - (i + 1)));
        vm->def->nnets--;
        if (VIR_REALLOC_N(vm->def->nets, vm->def->nnets) < 0) {
            /* ignore, harmless */
        }
    } else {
5906
        VIR_FREE(vm->def->nets);
5907
        vm->def->nnets = 0;
5908
    }
5909
    virDomainNetDefFree(detach);
5910

5911 5912 5913 5914 5915 5916
    ret = 0;

cleanup:
    return ret;
}

5917
static int qemudDomainDetachHostPciDevice(virConnectPtr conn,
5918
                                          struct qemud_driver *driver,
5919 5920 5921
                                          virDomainObjPtr vm,
                                          virDomainDeviceDefPtr dev)
{
5922
    virDomainHostdevDefPtr detach = NULL;
5923
    qemuDomainObjPrivatePtr priv = vm->privateData;
5924
    int i, ret;
5925
    pciDevice *pci;
5926 5927 5928 5929 5930 5931 5932 5933 5934 5935 5936 5937 5938 5939 5940 5941 5942 5943 5944 5945 5946 5947 5948 5949 5950 5951

    for (i = 0 ; i < vm->def->nhostdevs ; i++) {
        unsigned domain   = vm->def->hostdevs[i]->source.subsys.u.pci.domain;
        unsigned bus      = vm->def->hostdevs[i]->source.subsys.u.pci.bus;
        unsigned slot     = vm->def->hostdevs[i]->source.subsys.u.pci.slot;
        unsigned function = vm->def->hostdevs[i]->source.subsys.u.pci.function;

        if (dev->data.hostdev->source.subsys.u.pci.domain   == domain &&
            dev->data.hostdev->source.subsys.u.pci.bus      == bus &&
            dev->data.hostdev->source.subsys.u.pci.slot     == slot &&
            dev->data.hostdev->source.subsys.u.pci.function == function) {
            detach = vm->def->hostdevs[i];
            break;
        }
    }

    if (!detach) {
        qemudReportError(conn, NULL, NULL, VIR_ERR_OPERATION_FAILED,
                         _("host pci device %.4x:%.2x:%.2x.%.1x not found"),
                         dev->data.hostdev->source.subsys.u.pci.domain,
                         dev->data.hostdev->source.subsys.u.pci.bus,
                         dev->data.hostdev->source.subsys.u.pci.slot,
                         dev->data.hostdev->source.subsys.u.pci.function);
        return -1;
    }

5952 5953
    if (!virDomainDeviceAddressIsValid(&detach->info,
                                       VIR_DOMAIN_DEVICE_ADDRESS_TYPE_PCI)) {
5954
        qemudReportError(conn, NULL, NULL, VIR_ERR_OPERATION_FAILED,
5955
                         "%s", _("device cannot be detached without a PCI address"));
5956 5957 5958
        return -1;
    }

5959
    qemuDomainObjEnterMonitorWithDriver(driver, vm);
5960
    if (qemuMonitorRemovePCIDevice(priv->mon,
5961
                                   &detach->info.addr.pci) < 0) {
5962
        qemuDomainObjExitMonitorWithDriver(driver, vm);
5963
        return -1;
5964
    }
5965
    qemuDomainObjExitMonitorWithDriver(driver, vm);
5966 5967 5968

    ret = 0;

5969 5970 5971 5972 5973 5974 5975 5976
    pci = pciGetDevice(conn,
                       detach->source.subsys.u.pci.domain,
                       detach->source.subsys.u.pci.bus,
                       detach->source.subsys.u.pci.slot,
                       detach->source.subsys.u.pci.function);
    if (!pci)
        ret = -1;
    else {
5977 5978
        pciDeviceListDel(conn, driver->activePciHostdevs, pci);
        if (pciResetDevice(conn, pci, driver->activePciHostdevs) < 0)
5979 5980
            ret = -1;
        if (detach->managed && pciReAttachDevice(conn, pci) < 0)
5981
            ret = -1;
5982
        pciFreeDevice(conn, pci);
5983 5984
    }

5985 5986 5987 5988 5989 5990 5991 5992 5993 5994 5995 5996
    if (vm->def->nhostdevs > 1) {
        memmove(vm->def->hostdevs + i,
                vm->def->hostdevs + i + 1,
                sizeof(*vm->def->hostdevs) *
                (vm->def->nhostdevs - (i + 1)));
        vm->def->nhostdevs--;
        if (VIR_REALLOC_N(vm->def->hostdevs, vm->def->nhostdevs) < 0) {
            /* ignore, harmless */
        }
    } else {
        VIR_FREE(vm->def->hostdevs);
        vm->def->nhostdevs = 0;
5997
    }
5998
    virDomainHostdevDefFree(detach);
5999 6000 6001 6002 6003 6004 6005 6006 6007 6008 6009 6010 6011 6012 6013 6014 6015 6016 6017 6018 6019

    return ret;
}

static int qemudDomainDetachHostDevice(virConnectPtr conn,
                                       struct qemud_driver *driver,
                                       virDomainObjPtr vm,
                                       virDomainDeviceDefPtr dev)
{
    virDomainHostdevDefPtr hostdev = dev->data.hostdev;
    int ret;

    if (hostdev->mode != VIR_DOMAIN_HOSTDEV_MODE_SUBSYS) {
        qemudReportError(conn, dom, NULL, VIR_ERR_NO_SUPPORT,
                         _("hostdev mode '%s' not supported"),
                         virDomainHostdevModeTypeToString(hostdev->mode));
        return -1;
    }

    switch (hostdev->source.subsys.type) {
    case VIR_DOMAIN_HOSTDEV_SUBSYS_TYPE_PCI:
6020
        ret = qemudDomainDetachHostPciDevice(conn, driver, vm, dev);
6021
        break;
6022 6023 6024 6025 6026 6027 6028
    default:
        qemudReportError(conn, dom, NULL, VIR_ERR_NO_SUPPORT,
                         _("hostdev subsys type '%s' not supported"),
                         virDomainHostdevSubsysTypeToString(hostdev->source.subsys.type));
        return -1;
    }

6029 6030 6031 6032
    if (driver->securityDriver &&
        driver->securityDriver->domainSetSecurityHostdevLabel(conn, vm, dev->data.hostdev) < 0)
        VIR_WARN0("Failed to restore device labelling");

6033
    if (qemuDomainSetDeviceOwnership(conn, driver, dev, 1) < 0)
6034
        VIR_WARN0("Failed to restore device ownership");
6035 6036 6037 6038

    return ret;
}

6039 6040
static int qemudDomainDetachDevice(virDomainPtr dom,
                                   const char *xml) {
6041 6042 6043 6044
    struct qemud_driver *driver = dom->conn->privateData;
    virDomainObjPtr vm;
    virDomainDeviceDefPtr dev = NULL;
    int ret = -1;
6045

6046
    qemuDriverLock(driver);
6047
    vm = virDomainFindByUUID(&driver->domains, dom->uuid);
6048
    if (!vm) {
6049 6050 6051 6052
        char uuidstr[VIR_UUID_STRING_BUFLEN];
        virUUIDFormat(dom->uuid, uuidstr);
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_NO_DOMAIN,
                         _("no domain with matching uuid '%s'"), uuidstr);
6053
        goto cleanup;
6054 6055
    }

6056 6057 6058
    if (qemuDomainObjBeginJobWithDriver(driver, vm) < 0)
        goto cleanup;

D
Daniel P. Berrange 已提交
6059
    if (!virDomainObjIsActive(vm)) {
6060
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_OPERATION_INVALID,
G
Guido Günther 已提交
6061
                         "%s", _("cannot detach device on inactive domain"));
6062
        goto endjob;
6063 6064
    }

6065 6066
    dev = virDomainDeviceDefParse(dom->conn, driver->caps, vm->def, xml,
                                  VIR_DOMAIN_XML_INACTIVE);
6067
    if (dev == NULL)
6068
        goto endjob;
6069

6070 6071 6072

    if (dev->type == VIR_DOMAIN_DEVICE_DISK &&
        dev->data.disk->device == VIR_DOMAIN_DISK_DEVICE_DISK &&
6073
        dev->data.disk->bus == VIR_DOMAIN_DISK_BUS_VIRTIO) {
6074
        ret = qemudDomainDetachPciDiskDevice(dom->conn, driver, vm, dev);
6075
        if (driver->securityDriver)
6076
            driver->securityDriver->domainRestoreSecurityImageLabel(dom->conn, vm, dev->data.disk);
6077 6078
        if (qemuDomainSetDeviceOwnership(dom->conn, driver, dev, 1) < 0)
            VIR_WARN0("Fail to restore disk device ownership");
6079
    } else if (dev->type == VIR_DOMAIN_DEVICE_NET) {
6080
        ret = qemudDomainDetachNetDevice(dom->conn, driver, vm, dev);
6081 6082 6083 6084 6085 6086 6087 6088 6089
    } else if (dev->type == VIR_DOMAIN_DEVICE_CONTROLLER) {
        if (dev->data.controller->type == VIR_DOMAIN_CONTROLLER_TYPE_SCSI) {
            ret = qemudDomainDetachPciControllerDevice(dom->conn, driver, vm, dev);
        } else {
            qemudReportError(dom->conn, dom, NULL, VIR_ERR_NO_SUPPORT,
                             _("disk controller bus '%s' cannot be hotunplugged."),
                             virDomainControllerTypeToString(dev->data.controller->type));
            /* fallthrough */
        }
6090 6091
    } else if (dev->type == VIR_DOMAIN_DEVICE_HOSTDEV) {
        ret = qemudDomainDetachHostDevice(dom->conn, driver, vm, dev);
6092
    } else {
6093
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_NO_SUPPORT,
6094 6095
                         "%s", _("This type of device cannot be hot unplugged"));
    }
6096

6097
    if (!ret && virDomainSaveStatus(dom->conn, driver->caps, driver->stateDir, vm) < 0)
6098 6099
        ret = -1;

6100
endjob:
6101 6102
    if (qemuDomainObjEndJob(vm) == 0)
        vm = NULL;
6103

6104 6105
cleanup:
    virDomainDeviceDefFree(dev);
6106 6107
    if (vm)
        virDomainObjUnlock(vm);
6108
    qemuDriverUnlock(driver);
6109 6110 6111
    return ret;
}

6112
static int qemudDomainGetAutostart(virDomainPtr dom,
6113
                                   int *autostart) {
6114 6115 6116
    struct qemud_driver *driver = dom->conn->privateData;
    virDomainObjPtr vm;
    int ret = -1;
6117

6118
    qemuDriverLock(driver);
6119
    vm = virDomainFindByUUID(&driver->domains, dom->uuid);
6120 6121
    qemuDriverUnlock(driver);

6122
    if (!vm) {
6123 6124 6125 6126
        char uuidstr[VIR_UUID_STRING_BUFLEN];
        virUUIDFormat(dom->uuid, uuidstr);
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_NO_DOMAIN,
                         _("no domain with matching uuid '%s'"), uuidstr);
6127
        goto cleanup;
6128 6129 6130
    }

    *autostart = vm->autostart;
6131
    ret = 0;
6132

6133
cleanup:
6134 6135
    if (vm)
        virDomainObjUnlock(vm);
6136
    return ret;
6137 6138
}

6139
static int qemudDomainSetAutostart(virDomainPtr dom,
6140
                                   int autostart) {
6141 6142
    struct qemud_driver *driver = dom->conn->privateData;
    virDomainObjPtr vm;
6143 6144
    char *configFile = NULL, *autostartLink = NULL;
    int ret = -1;
6145

6146
    qemuDriverLock(driver);
6147
    vm = virDomainFindByUUID(&driver->domains, dom->uuid);
6148

6149
    if (!vm) {
6150 6151 6152 6153
        char uuidstr[VIR_UUID_STRING_BUFLEN];
        virUUIDFormat(dom->uuid, uuidstr);
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_NO_DOMAIN,
                         _("no domain with matching uuid '%s'"), uuidstr);
6154
        goto cleanup;
6155 6156
    }

6157 6158 6159
    if (!vm->persistent) {
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_INTERNAL_ERROR,
                         "%s", _("cannot set autostart for transient domain"));
6160
        goto cleanup;
6161 6162
    }

6163 6164
    autostart = (autostart != 0);

6165 6166 6167 6168 6169
    if (vm->autostart != autostart) {
        if ((configFile = virDomainConfigFile(dom->conn, driver->configDir, vm->def->name)) == NULL)
            goto cleanup;
        if ((autostartLink = virDomainConfigFile(dom->conn, driver->autostartDir, vm->def->name)) == NULL)
            goto cleanup;
6170

6171 6172
        if (autostart) {
            int err;
6173

6174
            if ((err = virFileMakePath(driver->autostartDir))) {
6175 6176 6177
                virReportSystemError(dom->conn, err,
                                     _("cannot create autostart directory %s"),
                                     driver->autostartDir);
6178 6179
                goto cleanup;
            }
6180

6181
            if (symlink(configFile, autostartLink) < 0) {
6182 6183 6184
                virReportSystemError(dom->conn, errno,
                                     _("Failed to create symlink '%s to '%s'"),
                                     autostartLink, configFile);
6185 6186 6187 6188
                goto cleanup;
            }
        } else {
            if (unlink(autostartLink) < 0 && errno != ENOENT && errno != ENOTDIR) {
6189 6190 6191
                virReportSystemError(dom->conn, errno,
                                     _("Failed to delete symlink '%s'"),
                                     autostartLink);
6192 6193
                goto cleanup;
            }
6194 6195
        }

6196
        vm->autostart = autostart;
6197
    }
6198
    ret = 0;
6199

6200 6201 6202
cleanup:
    VIR_FREE(configFile);
    VIR_FREE(autostartLink);
6203 6204
    if (vm)
        virDomainObjUnlock(vm);
6205
    qemuDriverUnlock(driver);
6206
    return ret;
6207 6208
}

6209 6210 6211 6212 6213

static char *qemuGetSchedulerType(virDomainPtr dom,
                                  int *nparams)
{
    struct qemud_driver *driver = dom->conn->privateData;
6214
    char *ret = NULL;
6215

6216
    qemuDriverLock(driver);
6217
    if (!qemuCgroupControllerActive(driver, VIR_CGROUP_CONTROLLER_CPU)) {
6218 6219
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_NO_SUPPORT,
                         __FUNCTION__);
6220
        goto cleanup;
6221 6222 6223 6224 6225 6226 6227 6228
    }

    if (nparams)
        *nparams = 1;

    ret = strdup("posix");
    if (!ret)
        virReportOOMError(dom->conn);
6229 6230 6231

cleanup:
    qemuDriverUnlock(driver);
6232 6233 6234 6235 6236 6237 6238 6239 6240 6241 6242 6243 6244
    return ret;
}

static int qemuSetSchedulerParameters(virDomainPtr dom,
                                      virSchedParameterPtr params,
                                      int nparams)
{
    struct qemud_driver *driver = dom->conn->privateData;
    int i;
    virCgroupPtr group = NULL;
    virDomainObjPtr vm = NULL;
    int ret = -1;

6245
    qemuDriverLock(driver);
6246
    if (!qemuCgroupControllerActive(driver, VIR_CGROUP_CONTROLLER_CPU)) {
6247 6248
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_NO_SUPPORT,
                         __FUNCTION__);
6249
        goto cleanup;
6250 6251 6252 6253 6254 6255 6256 6257 6258 6259 6260 6261 6262 6263 6264 6265 6266 6267 6268 6269 6270 6271
    }

    vm = virDomainFindByUUID(&driver->domains, dom->uuid);

    if (vm == NULL) {
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_INTERNAL_ERROR,
                         _("No such domain %s"), dom->uuid);
        goto cleanup;
    }

    if (virCgroupForDomain(driver->cgroup, vm->def->name, &group, 0) != 0) {
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_INTERNAL_ERROR,
                         _("cannot find cgroup for domain %s"), vm->def->name);
        goto cleanup;
    }

    for (i = 0; i < nparams; i++) {
        virSchedParameterPtr param = &params[i];

        if (STREQ(param->field, "cpu_shares")) {
            int rc;
            if (param->type != VIR_DOMAIN_SCHED_FIELD_ULLONG) {
C
Chris Lalancette 已提交
6272
                qemudReportError(dom->conn, dom, NULL, VIR_ERR_INVALID_ARG, "%s",
6273 6274 6275 6276 6277 6278 6279 6280 6281 6282 6283 6284 6285 6286 6287 6288 6289 6290 6291 6292 6293 6294
                                 _("invalid type for cpu_shares tunable, expected a 'ullong'"));
                goto cleanup;
            }

            rc = virCgroupSetCpuShares(group, params[i].value.ul);
            if (rc != 0) {
                virReportSystemError(dom->conn, -rc, "%s",
                                     _("unable to set cpu shares tunable"));
                goto cleanup;
            }
        } else {
            qemudReportError(dom->conn, domain, NULL, VIR_ERR_INVALID_ARG,
                             _("Invalid parameter `%s'"), param->field);
            goto cleanup;
        }
    }
    ret = 0;

cleanup:
    virCgroupFree(&group);
    if (vm)
        virDomainObjUnlock(vm);
6295
    qemuDriverUnlock(driver);
6296 6297 6298 6299 6300 6301 6302 6303 6304 6305 6306 6307 6308 6309
    return ret;
}

static int qemuGetSchedulerParameters(virDomainPtr dom,
                                      virSchedParameterPtr params,
                                      int *nparams)
{
    struct qemud_driver *driver = dom->conn->privateData;
    virCgroupPtr group = NULL;
    virDomainObjPtr vm = NULL;
    unsigned long long val;
    int ret = -1;
    int rc;

6310
    qemuDriverLock(driver);
6311
    if (!qemuCgroupControllerActive(driver, VIR_CGROUP_CONTROLLER_CPU)) {
6312 6313
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_NO_SUPPORT,
                         __FUNCTION__);
6314
        goto cleanup;
6315 6316 6317 6318 6319
    }

    if ((*nparams) != 1) {
        qemudReportError(dom->conn, domain, NULL, VIR_ERR_INVALID_ARG,
                         "%s", _("Invalid parameter count"));
6320
        goto cleanup;
6321 6322 6323 6324 6325 6326 6327 6328 6329 6330 6331 6332 6333 6334 6335 6336 6337 6338 6339 6340 6341 6342 6343 6344
    }

    vm = virDomainFindByUUID(&driver->domains, dom->uuid);

    if (vm == NULL) {
        qemudReportError(dom->conn, domain, NULL, VIR_ERR_INTERNAL_ERROR,
                         _("No such domain %s"), dom->uuid);
        goto cleanup;
    }

    if (virCgroupForDomain(driver->cgroup, vm->def->name, &group, 0) != 0) {
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_INTERNAL_ERROR,
                         _("cannot find cgroup for domain %s"), vm->def->name);
        goto cleanup;
    }

    rc = virCgroupGetCpuShares(group, &val);
    if (rc != 0) {
        virReportSystemError(dom->conn, -rc, "%s",
                             _("unable to get cpu shares tunable"));
        goto cleanup;
    }
    params[0].value.ul = val;
    params[0].type = VIR_DOMAIN_SCHED_FIELD_ULLONG;
C
Chris Lalancette 已提交
6345 6346 6347 6348 6349
    if (virStrcpyStatic(params[0].field, "cpu_shares") == NULL) {
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_INTERNAL_ERROR,
                         "%s", _("Field cpu_shares too long for destination"));
        goto cleanup;
    }
6350 6351 6352 6353 6354 6355 6356

    ret = 0;

cleanup:
    virCgroupFree(&group);
    if (vm)
        virDomainObjUnlock(vm);
6357
    qemuDriverUnlock(driver);
6358 6359 6360 6361
    return ret;
}


6362 6363 6364 6365 6366 6367 6368 6369 6370
/* This uses the 'info blockstats' monitor command which was
 * integrated into both qemu & kvm in late 2007.  If the command is
 * not supported we detect this and return the appropriate error.
 */
static int
qemudDomainBlockStats (virDomainPtr dom,
                       const char *path,
                       struct _virDomainBlockStats *stats)
{
6371
    struct qemud_driver *driver = dom->conn->privateData;
6372 6373
    const char *qemu_dev_name = NULL;
    int i, ret = -1;
6374
    virDomainObjPtr vm;
6375
    virDomainDiskDefPtr disk = NULL;
6376

6377
    qemuDriverLock(driver);
6378
    vm = virDomainFindByUUID(&driver->domains, dom->uuid);
6379
    qemuDriverUnlock(driver);
6380
    if (!vm) {
6381 6382 6383 6384
        char uuidstr[VIR_UUID_STRING_BUFLEN];
        virUUIDFormat(dom->uuid, uuidstr);
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_NO_DOMAIN,
                         _("no domain with matching uuid '%s'"), uuidstr);
6385
        goto cleanup;
6386
    }
6387 6388 6389 6390

    if (qemuDomainObjBeginJob(vm) < 0)
        goto cleanup;

D
Daniel P. Berrange 已提交
6391
    if (!virDomainObjIsActive (vm)) {
6392
        qemudReportError (dom->conn, dom, NULL, VIR_ERR_OPERATION_INVALID,
6393
                          "%s", _("domain is not running"));
6394
        goto endjob;
6395 6396
    }

6397 6398 6399 6400 6401 6402 6403 6404
    for (i = 0 ; i < vm->def->ndisks ; i++) {
        if (STREQ(path, vm->def->disks[i]->dst)) {
            disk = vm->def->disks[i];
            break;
        }
    }

    if (!disk) {
6405 6406
        qemudReportError (dom->conn, dom, NULL, VIR_ERR_INVALID_ARG,
                          _("invalid path: %s"), path);
6407
        goto endjob;
6408 6409
    }

6410
    qemu_dev_name = qemudDiskDeviceName(dom->conn, disk);
6411
    if (!qemu_dev_name)
6412
        goto endjob;
6413

6414
    qemuDomainObjPrivatePtr priv = vm->privateData;
6415 6416 6417 6418 6419 6420 6421 6422 6423
    qemuDomainObjEnterMonitor(vm);
    ret = qemuMonitorGetBlockStatsInfo(priv->mon,
                                       qemu_dev_name,
                                       &stats->rd_req,
                                       &stats->rd_bytes,
                                       &stats->wr_req,
                                       &stats->wr_bytes,
                                       &stats->errs);
    qemuDomainObjExitMonitor(vm);
6424

6425
endjob:
6426 6427
    if (qemuDomainObjEndJob(vm) == 0)
        vm = NULL;
6428

6429
cleanup:
6430
    VIR_FREE(qemu_dev_name);
6431 6432
    if (vm)
        virDomainObjUnlock(vm);
6433
    return ret;
6434 6435
}

6436
#ifdef __linux__
6437 6438 6439 6440 6441
static int
qemudDomainInterfaceStats (virDomainPtr dom,
                           const char *path,
                           struct _virDomainInterfaceStats *stats)
{
6442 6443
    struct qemud_driver *driver = dom->conn->privateData;
    virDomainObjPtr vm;
6444
    int i;
6445
    int ret = -1;
6446

6447
    qemuDriverLock(driver);
6448
    vm = virDomainFindByUUID(&driver->domains, dom->uuid);
6449 6450
    qemuDriverUnlock(driver);

6451
    if (!vm) {
6452 6453 6454 6455
        char uuidstr[VIR_UUID_STRING_BUFLEN];
        virUUIDFormat(dom->uuid, uuidstr);
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_NO_DOMAIN,
                         _("no domain with matching uuid '%s'"), uuidstr);
6456
        goto cleanup;
6457 6458
    }

D
Daniel P. Berrange 已提交
6459
    if (!virDomainObjIsActive(vm)) {
6460
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_OPERATION_INVALID,
6461
                         "%s", _("domain is not running"));
6462
        goto cleanup;
6463 6464 6465
    }

    /* Check the path is one of the domain's network interfaces. */
6466 6467
    for (i = 0 ; i < vm->def->nnets ; i++) {
        if (vm->def->nets[i]->ifname &&
6468 6469 6470 6471
            STREQ (vm->def->nets[i]->ifname, path)) {
            ret = 0;
            break;
        }
6472 6473
    }

6474 6475 6476 6477 6478
    if (ret == 0)
        ret = linuxDomainInterfaceStats (dom->conn, path, stats);
    else
        qemudReportError (dom->conn, dom, NULL, VIR_ERR_INVALID_ARG,
                          _("invalid path, '%s' is not a known interface"), path);
6479

6480
cleanup:
6481 6482
    if (vm)
        virDomainObjUnlock(vm);
6483 6484
    return ret;
}
6485
#else
6486 6487 6488 6489
static int
qemudDomainInterfaceStats (virDomainPtr dom,
                           const char *path ATTRIBUTE_UNUSED,
                           struct _virDomainInterfaceStats *stats ATTRIBUTE_UNUSED)
6490 6491 6492 6493
    qemudReportError (dom->conn, dom, NULL, VIR_ERR_NO_SUPPORT,
                      "%s", __FUNCTION__);
    return -1;
}
6494
#endif
6495

6496 6497 6498 6499 6500 6501 6502 6503 6504 6505 6506 6507 6508 6509 6510 6511 6512 6513 6514 6515 6516 6517 6518 6519 6520 6521 6522 6523 6524 6525 6526 6527 6528 6529 6530 6531 6532
static int
qemudDomainMemoryStats (virDomainPtr dom,
                        struct _virDomainMemoryStat *stats,
                        unsigned int nr_stats)
{
    struct qemud_driver *driver = dom->conn->privateData;
    virDomainObjPtr vm;
    unsigned int ret = -1;

    qemuDriverLock(driver);
    vm = virDomainFindByUUID(&driver->domains, dom->uuid);
    qemuDriverUnlock(driver);

    if (!vm) {
        char uuidstr[VIR_UUID_STRING_BUFLEN];
        virUUIDFormat(dom->uuid, uuidstr);
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_NO_DOMAIN,
                         _("no domain with matching uuid '%s'"), uuidstr);
        goto cleanup;
    }

    if (virDomainObjIsActive(vm)) {
        qemuDomainObjPrivatePtr priv = vm->privateData;
        qemuDomainObjEnterMonitor(vm);
        ret = qemuMonitorTextGetMemoryStats(priv->mon, stats, nr_stats);
        qemuDomainObjExitMonitor(vm);
    } else {
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_OPERATION_INVALID,
                         "%s", _("domain is not running"));
    }

cleanup:
    if (vm)
        virDomainObjUnlock(vm);
    return ret;
}

6533 6534 6535 6536 6537 6538 6539
static int
qemudDomainBlockPeek (virDomainPtr dom,
                      const char *path,
                      unsigned long long offset, size_t size,
                      void *buffer,
                      unsigned int flags ATTRIBUTE_UNUSED)
{
6540 6541 6542
    struct qemud_driver *driver = dom->conn->privateData;
    virDomainObjPtr vm;
    int fd = -1, ret = -1, i;
6543

6544
    qemuDriverLock(driver);
6545
    vm = virDomainFindByUUID(&driver->domains, dom->uuid);
6546 6547
    qemuDriverUnlock(driver);

6548
    if (!vm) {
6549 6550 6551 6552
        char uuidstr[VIR_UUID_STRING_BUFLEN];
        virUUIDFormat(dom->uuid, uuidstr);
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_NO_DOMAIN,
                         _("no domain with matching uuid '%s'"), uuidstr);
6553
        goto cleanup;
6554 6555 6556 6557
    }

    if (!path || path[0] == '\0') {
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_INVALID_ARG,
J
Jim Meyering 已提交
6558
                         "%s", _("NULL or empty path"));
6559
        goto cleanup;
6560 6561 6562
    }

    /* Check the path belongs to this domain. */
6563 6564
    for (i = 0 ; i < vm->def->ndisks ; i++) {
        if (vm->def->disks[i]->src != NULL &&
6565 6566 6567 6568
            STREQ (vm->def->disks[i]->src, path)) {
            ret = 0;
            break;
        }
6569 6570
    }

6571 6572 6573 6574 6575
    if (ret == 0) {
        ret = -1;
        /* The path is correct, now try to open it and get its size. */
        fd = open (path, O_RDONLY);
        if (fd == -1) {
6576 6577
            virReportSystemError (dom->conn, errno,
                                  _("%s: failed to open"), path);
6578 6579
            goto cleanup;
        }
6580

6581 6582 6583 6584 6585 6586
        /* Seek and read. */
        /* NB. Because we configure with AC_SYS_LARGEFILE, off_t should
         * be 64 bits on all platforms.
         */
        if (lseek (fd, offset, SEEK_SET) == (off_t) -1 ||
            saferead (fd, buffer, size) == (ssize_t) -1) {
6587 6588
            virReportSystemError (dom->conn, errno,
                                  _("%s: failed to seek or read"), path);
6589 6590 6591 6592 6593 6594 6595
            goto cleanup;
        }

        ret = 0;
    } else {
        qemudReportError (dom->conn, dom, NULL, VIR_ERR_INVALID_ARG,
                          "%s", _("invalid path"));
6596 6597
    }

6598 6599 6600
cleanup:
    if (fd >= 0)
        close (fd);
6601 6602
    if (vm)
        virDomainObjUnlock(vm);
6603 6604 6605
    return ret;
}

R
Richard W.M. Jones 已提交
6606 6607 6608 6609 6610 6611
static int
qemudDomainMemoryPeek (virDomainPtr dom,
                       unsigned long long offset, size_t size,
                       void *buffer,
                       unsigned int flags)
{
6612 6613
    struct qemud_driver *driver = dom->conn->privateData;
    virDomainObjPtr vm;
6614
    char *tmp = NULL;
R
Richard W.M. Jones 已提交
6615 6616
    int fd = -1, ret = -1;

6617
    qemuDriverLock(driver);
6618
    vm = virDomainFindByUUID(&driver->domains, dom->uuid);
6619
    qemuDriverUnlock(driver);
R
Richard W.M. Jones 已提交
6620 6621

    if (!vm) {
6622 6623 6624 6625
        char uuidstr[VIR_UUID_STRING_BUFLEN];
        virUUIDFormat(dom->uuid, uuidstr);
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_NO_DOMAIN,
                         _("no domain with matching uuid '%s'"), uuidstr);
6626 6627 6628
        goto cleanup;
    }

6629
    if (flags != VIR_MEMORY_VIRTUAL && flags != VIR_MEMORY_PHYSICAL) {
6630
        qemudReportError (dom->conn, dom, NULL, VIR_ERR_INVALID_ARG,
6631
                     "%s", _("flags parameter must be VIR_MEMORY_VIRTUAL or VIR_MEMORY_PHYSICAL"));
6632
        goto cleanup;
R
Richard W.M. Jones 已提交
6633 6634
    }

6635 6636 6637
    if (qemuDomainObjBeginJob(vm) < 0)
        goto cleanup;

D
Daniel P. Berrange 已提交
6638
    if (!virDomainObjIsActive(vm)) {
6639
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_OPERATION_INVALID,
R
Richard W.M. Jones 已提交
6640
                         "%s", _("domain is not running"));
6641
        goto endjob;
R
Richard W.M. Jones 已提交
6642 6643
    }

6644 6645
    if (virAsprintf(&tmp, driver->cacheDir,  "/qemu.mem.XXXXXX") < 0) {
        virReportOOMError(dom->conn);
6646
        goto endjob;
6647 6648
    }

R
Richard W.M. Jones 已提交
6649 6650
    /* Create a temporary filename. */
    if ((fd = mkstemp (tmp)) == -1) {
6651 6652
        virReportSystemError (dom->conn, errno,
                              _("mkstemp(\"%s\") failed"), tmp);
6653
        goto endjob;
R
Richard W.M. Jones 已提交
6654 6655
    }

6656
    qemuDomainObjPrivatePtr priv = vm->privateData;
6657
    qemuDomainObjEnterMonitor(vm);
6658
    if (flags == VIR_MEMORY_VIRTUAL) {
6659 6660
        if (qemuMonitorSaveVirtualMemory(priv->mon, offset, size, tmp) < 0) {
            qemuDomainObjExitMonitor(vm);
6661
            goto endjob;
6662
        }
6663
    } else {
6664 6665
        if (qemuMonitorSavePhysicalMemory(priv->mon, offset, size, tmp) < 0) {
            qemuDomainObjExitMonitor(vm);
6666
            goto endjob;
6667
        }
R
Richard W.M. Jones 已提交
6668
    }
6669
    qemuDomainObjExitMonitor(vm);
R
Richard W.M. Jones 已提交
6670 6671 6672

    /* Read the memory file into buffer. */
    if (saferead (fd, buffer, size) == (ssize_t) -1) {
6673 6674 6675
        virReportSystemError (dom->conn, errno,
                              _("failed to read temporary file "
                                "created with template %s"), tmp);
6676
        goto endjob;
R
Richard W.M. Jones 已提交
6677 6678 6679
    }

    ret = 0;
6680

6681
endjob:
6682 6683
    if (qemuDomainObjEndJob(vm) == 0)
        vm = NULL;
6684

6685
cleanup:
6686
    VIR_FREE(tmp);
R
Richard W.M. Jones 已提交
6687 6688
    if (fd >= 0) close (fd);
    unlink (tmp);
6689 6690
    if (vm)
        virDomainObjUnlock(vm);
R
Richard W.M. Jones 已提交
6691 6692 6693
    return ret;
}

6694

6695 6696
static int
qemudDomainEventRegister (virConnectPtr conn,
6697
                          virConnectDomainEventCallback callback,
6698 6699
                          void *opaque,
                          virFreeCallback freecb)
6700
{
6701 6702 6703
    struct qemud_driver *driver = conn->privateData;
    int ret;

6704
    qemuDriverLock(driver);
6705 6706
    ret = virDomainEventCallbackListAdd(conn, driver->domainEventCallbacks,
                                        callback, opaque, freecb);
6707
    qemuDriverUnlock(driver);
6708

6709
    return ret;
6710 6711 6712 6713
}

static int
qemudDomainEventDeregister (virConnectPtr conn,
6714
                            virConnectDomainEventCallback callback)
6715
{
6716 6717 6718
    struct qemud_driver *driver = conn->privateData;
    int ret;

6719
    qemuDriverLock(driver);
6720 6721 6722 6723 6724 6725
    if (driver->domainEventDispatching)
        ret = virDomainEventCallbackListMarkDelete(conn, driver->domainEventCallbacks,
                                                   callback);
    else
        ret = virDomainEventCallbackListRemove(conn, driver->domainEventCallbacks,
                                               callback);
6726
    qemuDriverUnlock(driver);
6727

6728
    return ret;
6729 6730
}

6731 6732 6733 6734 6735
static void qemuDomainEventDispatchFunc(virConnectPtr conn,
                                        virDomainEventPtr event,
                                        virConnectDomainEventCallback cb,
                                        void *cbopaque,
                                        void *opaque)
6736
{
6737
    struct qemud_driver *driver = opaque;
6738

6739 6740 6741 6742 6743 6744 6745 6746 6747 6748 6749 6750 6751 6752 6753 6754 6755 6756 6757 6758 6759 6760 6761 6762 6763 6764 6765 6766 6767 6768 6769 6770 6771 6772 6773 6774 6775 6776 6777 6778 6779 6780 6781 6782
    /* Drop the lock whle dispatching, for sake of re-entrancy */
    qemuDriverUnlock(driver);
    virDomainEventDispatchDefaultFunc(conn, event, cb, cbopaque, NULL);
    qemuDriverLock(driver);
}

static void qemuDomainEventFlush(int timer ATTRIBUTE_UNUSED, void *opaque)
{
    struct qemud_driver *driver = opaque;
    virDomainEventQueue tempQueue;

    qemuDriverLock(driver);

    driver->domainEventDispatching = 1;

    /* Copy the queue, so we're reentrant safe */
    tempQueue.count = driver->domainEventQueue->count;
    tempQueue.events = driver->domainEventQueue->events;
    driver->domainEventQueue->count = 0;
    driver->domainEventQueue->events = NULL;

    virEventUpdateTimeout(driver->domainEventTimer, -1);
    virDomainEventQueueDispatch(&tempQueue,
                                driver->domainEventCallbacks,
                                qemuDomainEventDispatchFunc,
                                driver);

    /* Purge any deleted callbacks */
    virDomainEventCallbackListPurgeMarked(driver->domainEventCallbacks);

    driver->domainEventDispatching = 0;
    qemuDriverUnlock(driver);
}


/* driver must be locked before calling */
static void qemuDomainEventQueue(struct qemud_driver *driver,
                                 virDomainEventPtr event)
{
    if (virDomainEventQueuePush(driver->domainEventQueue,
                                event) < 0)
        virDomainEventFree(event);
    if (qemu_driver->domainEventQueue->count == 1)
        virEventUpdateTimeout(driver->domainEventTimer, 0);
6783 6784
}

D
Daniel Veillard 已提交
6785 6786
/* Migration support. */

C
Chris Lalancette 已提交
6787 6788 6789 6790 6791 6792 6793 6794 6795 6796 6797 6798 6799 6800 6801 6802 6803 6804 6805 6806 6807 6808 6809 6810 6811 6812 6813 6814 6815 6816 6817 6818 6819 6820 6821 6822 6823 6824 6825 6826 6827 6828 6829 6830 6831 6832 6833 6834 6835 6836 6837 6838 6839 6840 6841 6842 6843 6844 6845 6846 6847 6848 6849 6850 6851 6852 6853 6854 6855 6856 6857 6858 6859 6860 6861 6862 6863 6864 6865 6866 6867 6868 6869 6870 6871 6872 6873 6874 6875 6876 6877 6878 6879 6880 6881 6882 6883 6884 6885 6886 6887 6888 6889 6890 6891 6892 6893 6894 6895 6896 6897 6898 6899 6900 6901 6902 6903 6904 6905 6906 6907 6908 6909 6910 6911 6912 6913 6914 6915 6916 6917 6918 6919 6920 6921 6922 6923 6924 6925 6926 6927 6928 6929 6930 6931 6932 6933 6934 6935 6936 6937 6938 6939 6940 6941 6942 6943 6944 6945 6946 6947 6948 6949 6950 6951 6952 6953 6954 6955 6956 6957 6958 6959
/* Tunnelled migration stream support */
struct qemuStreamMigFile {
    int fd;

    int watch;
    unsigned int cbRemoved;
    unsigned int dispatching;
    virStreamEventCallback cb;
    void *opaque;
    virFreeCallback ff;
};

static int qemuStreamMigRemoveCallback(virStreamPtr stream)
{
    struct qemud_driver *driver = stream->conn->privateData;
    struct qemuStreamMigFile *qemust = stream->privateData;
    int ret = -1;

    if (!qemust) {
        qemudReportError(stream->conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
                         "%s", _("stream is not open"));
        return -1;
    }

    qemuDriverLock(driver);
    if (qemust->watch == 0) {
        qemudReportError(stream->conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
                         "%s", _("stream does not have a callback registered"));
        goto cleanup;
    }

    virEventRemoveHandle(qemust->watch);
    if (qemust->dispatching)
        qemust->cbRemoved = 1;
    else if (qemust->ff)
        (qemust->ff)(qemust->opaque);

    qemust->watch = 0;
    qemust->ff = NULL;
    qemust->cb = NULL;
    qemust->opaque = NULL;

    ret = 0;

cleanup:
    qemuDriverUnlock(driver);
    return ret;
}

static int qemuStreamMigUpdateCallback(virStreamPtr stream, int events)
{
    struct qemud_driver *driver = stream->conn->privateData;
    struct qemuStreamMigFile *qemust = stream->privateData;
    int ret = -1;

    if (!qemust) {
        qemudReportError(stream->conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
                         "%s", _("stream is not open"));
        return -1;
    }

    qemuDriverLock(driver);
    if (qemust->watch == 0) {
        qemudReportError(stream->conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
                         "%s", _("stream does not have a callback registered"));
        goto cleanup;
    }

    virEventUpdateHandle(qemust->watch, events);

    ret = 0;

cleanup:
    qemuDriverUnlock(driver);
    return ret;
}

static void qemuStreamMigEvent(int watch ATTRIBUTE_UNUSED,
                               int fd ATTRIBUTE_UNUSED,
                               int events,
                               void *opaque)
{
    virStreamPtr stream = opaque;
    struct qemud_driver *driver = stream->conn->privateData;
    struct qemuStreamMigFile *qemust = stream->privateData;
    virStreamEventCallback cb;
    void *cbopaque;
    virFreeCallback ff;

    qemuDriverLock(driver);
    if (!qemust || !qemust->cb) {
        qemuDriverUnlock(driver);
        return;
    }

    cb = qemust->cb;
    cbopaque = qemust->opaque;
    ff = qemust->ff;
    qemust->dispatching = 1;
    qemuDriverUnlock(driver);

    cb(stream, events, cbopaque);

    qemuDriverLock(driver);
    qemust->dispatching = 0;
    if (qemust->cbRemoved && ff)
        (ff)(cbopaque);
    qemuDriverUnlock(driver);
}

static int
qemuStreamMigAddCallback(virStreamPtr st,
                         int events,
                         virStreamEventCallback cb,
                         void *opaque,
                         virFreeCallback ff)
{
    struct qemud_driver *driver = st->conn->privateData;
    struct qemuStreamMigFile *qemust = st->privateData;
    int ret = -1;

    if (!qemust) {
        qemudReportError(st->conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
                         "%s", _("stream is not open"));
        return -1;
    }

    qemuDriverLock(driver);
    if (qemust->watch != 0) {
        qemudReportError(st->conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
                         "%s", _("stream already has a callback registered"));
        goto cleanup;
    }

    if ((qemust->watch = virEventAddHandle(qemust->fd,
                                           events,
                                           qemuStreamMigEvent,
                                           st,
                                           NULL)) < 0) {
        qemudReportError(st->conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
                         "%s", _("cannot register file watch on stream"));
        goto cleanup;
    }

    qemust->cbRemoved = 0;
    qemust->cb = cb;
    qemust->opaque = opaque;
    qemust->ff = ff;
    virStreamRef(st);

    ret = 0;

cleanup:
    qemuDriverUnlock(driver);
    return ret;
}

static void qemuStreamMigFree(struct qemuStreamMigFile *qemust)
{
    if (qemust->fd != -1)
        close(qemust->fd);
    VIR_FREE(qemust);
}

static struct qemuStreamMigFile *qemuStreamMigOpen(virStreamPtr st,
                                                   const char *unixfile)
{
    struct qemuStreamMigFile *qemust = NULL;
    struct sockaddr_un sa_qemu;
    int i = 0;
    int timeout = 3;
    int ret;

6960 6961
    if (VIR_ALLOC(qemust) < 0) {
        virReportOOMError(st->conn);
C
Chris Lalancette 已提交
6962
        return NULL;
6963
    }
C
Chris Lalancette 已提交
6964 6965 6966 6967 6968 6969 6970 6971 6972 6973 6974 6975 6976 6977 6978 6979 6980 6981 6982 6983 6984 6985 6986 6987 6988 6989 6990 6991 6992 6993 6994 6995 6996 6997 6998 6999 7000 7001 7002 7003 7004 7005 7006 7007 7008 7009 7010 7011 7012 7013 7014 7015 7016 7017 7018 7019 7020 7021 7022 7023 7024 7025 7026 7027 7028 7029 7030 7031 7032 7033 7034 7035 7036 7037 7038 7039 7040 7041 7042 7043 7044 7045 7046 7047 7048 7049 7050 7051 7052 7053 7054 7055 7056 7057 7058 7059 7060 7061 7062 7063 7064 7065 7066 7067 7068 7069 7070 7071 7072 7073 7074 7075 7076 7077 7078 7079 7080 7081 7082 7083 7084 7085 7086 7087 7088 7089 7090 7091 7092 7093 7094 7095 7096 7097 7098 7099 7100 7101 7102 7103 7104 7105 7106 7107 7108 7109 7110

    qemust->fd = socket(AF_UNIX, SOCK_STREAM, 0);
    if (qemust->fd < 0)
        goto cleanup;

    memset(&sa_qemu, 0, sizeof(sa_qemu));
    sa_qemu.sun_family = AF_UNIX;
    if (virStrcpy(sa_qemu.sun_path, unixfile, sizeof(sa_qemu.sun_path)) == NULL)
        goto cleanup;

    do {
        ret = connect(qemust->fd, (struct sockaddr *)&sa_qemu, sizeof(sa_qemu));
        if (ret == 0)
            break;

        if (errno == ENOENT || errno == ECONNREFUSED) {
            /* ENOENT       : Socket may not have shown up yet
             * ECONNREFUSED : Leftover socket hasn't been removed yet */
            continue;
        }

        goto cleanup;
    } while ((++i <= timeout*5) && (usleep(.2 * 1000000) <= 0));

    if ((st->flags & VIR_STREAM_NONBLOCK) && virSetNonBlock(qemust->fd) < 0)
        goto cleanup;

    return qemust;

cleanup:
    qemuStreamMigFree(qemust);
    return NULL;
}

static int
qemuStreamMigClose(virStreamPtr st)
{
    struct qemud_driver *driver = st->conn->privateData;
    struct qemuStreamMigFile *qemust = st->privateData;

    if (!qemust)
        return 0;

    qemuDriverLock(driver);

    qemuStreamMigFree(qemust);

    st->privateData = NULL;

    qemuDriverUnlock(driver);

    return 0;
}

static int qemuStreamMigWrite(virStreamPtr st, const char *bytes, size_t nbytes)
{
    struct qemud_driver *driver = st->conn->privateData;
    struct qemuStreamMigFile *qemust = st->privateData;
    int ret;

    if (!qemust) {
        qemudReportError(st->conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
                         "%s", _("stream is not open"));
        return -1;
    }

    qemuDriverLock(driver);

retry:
    ret = write(qemust->fd, bytes, nbytes);
    if (ret < 0) {
        if (errno == EAGAIN || errno == EWOULDBLOCK) {
            ret = -2;
        } else if (errno == EINTR) {
            goto retry;
        } else {
            ret = -1;
            virReportSystemError(st->conn, errno, "%s",
                                 _("cannot write to stream"));
        }
    }

    qemuDriverUnlock(driver);
    return ret;
}

static virStreamDriver qemuStreamMigDrv = {
    .streamSend = qemuStreamMigWrite,
    .streamFinish = qemuStreamMigClose,
    .streamAbort = qemuStreamMigClose,
    .streamAddCallback = qemuStreamMigAddCallback,
    .streamUpdateCallback = qemuStreamMigUpdateCallback,
    .streamRemoveCallback = qemuStreamMigRemoveCallback
};

/* Prepare is the first step, and it runs on the destination host.
 *
 * This version starts an empty VM listening on a localhost TCP port, and
 * sets up the corresponding virStream to handle the incoming data.
 */
static int
qemudDomainMigratePrepareTunnel(virConnectPtr dconn,
                                virStreamPtr st,
                                unsigned long flags,
                                const char *dname,
                                unsigned long resource ATTRIBUTE_UNUSED,
                                const char *dom_xml)
{
    struct qemud_driver *driver = dconn->privateData;
    virDomainDefPtr def = NULL;
    virDomainObjPtr vm = NULL;
    char *migrateFrom;
    virDomainEventPtr event = NULL;
    int ret = -1;
    int internalret;
    char *unixfile = NULL;
    unsigned int qemuCmdFlags;
    struct qemuStreamMigFile *qemust = NULL;

    qemuDriverLock(driver);
    if (!dom_xml) {
        qemudReportError(dconn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
                         "%s", _("no domain XML passed"));
        goto cleanup;
    }
    if (!(flags & VIR_MIGRATE_TUNNELLED)) {
        qemudReportError(dconn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
                         "%s", _("PrepareTunnel called but no TUNNELLED flag set"));
        goto cleanup;
    }
    if (st == NULL) {
        qemudReportError(dconn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
                         "%s", _("tunnelled migration requested but NULL stream passed"));
        goto cleanup;
    }

    /* Parse the domain XML. */
    if (!(def = virDomainDefParseString(dconn, driver->caps, dom_xml,
                                        VIR_DOMAIN_XML_INACTIVE))) {
        qemudReportError(dconn, NULL, NULL, VIR_ERR_OPERATION_FAILED,
                         "%s", _("failed to parse XML"));
        goto cleanup;
    }

    /* Target domain name, maybe renamed. */
    dname = dname ? dname : def->name;

7111 7112
    if (virDomainObjIsDuplicate(&driver->domains, def, 1) < 0)
        goto cleanup;
C
Chris Lalancette 已提交
7113 7114

    if (!(vm = virDomainAssignDef(dconn,
7115
                                  driver->caps,
C
Chris Lalancette 已提交
7116 7117 7118 7119 7120 7121 7122 7123
                                  &driver->domains,
                                  def))) {
        qemudReportError(dconn, NULL, NULL, VIR_ERR_OPERATION_FAILED,
                         "%s", _("failed to assign new VM"));
        goto cleanup;
    }
    def = NULL;

7124 7125 7126
    if (qemuDomainObjBeginJobWithDriver(driver, vm) < 0)
        goto cleanup;

C
Chris Lalancette 已提交
7127 7128 7129 7130 7131 7132
    /* Domain starts inactive, even if the domain XML had an id field. */
    vm->def->id = -1;

    if (virAsprintf(&unixfile, "%s/qemu.tunnelmigrate.dest.%s",
                    driver->stateDir, vm->def->name) < 0) {
        virReportOOMError (dconn);
7133
        goto endjob;
C
Chris Lalancette 已提交
7134 7135 7136 7137 7138 7139 7140 7141
    }
    unlink(unixfile);

    /* check that this qemu version supports the interactive exec */
    if (qemudExtractVersionInfo(vm->def->emulator, NULL, &qemuCmdFlags) < 0) {
        qemudReportError(dconn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
                         _("Cannot determine QEMU argv syntax %s"),
                         vm->def->emulator);
7142
        goto endjob;
C
Chris Lalancette 已提交
7143 7144 7145 7146 7147 7148 7149 7150
    }
    if (qemuCmdFlags & QEMUD_CMD_FLAG_MIGRATE_QEMU_UNIX)
        internalret = virAsprintf(&migrateFrom, "unix:%s", unixfile);
    else if (qemuCmdFlags & QEMUD_CMD_FLAG_MIGRATE_QEMU_EXEC)
        internalret = virAsprintf(&migrateFrom, "exec:nc -U -l %s", unixfile);
    else {
        qemudReportError(dconn, NULL, NULL, VIR_ERR_OPERATION_FAILED,
                         "%s", _("Destination qemu is too old to support tunnelled migration"));
7151
        goto endjob;
C
Chris Lalancette 已提交
7152 7153 7154
    }
    if (internalret < 0) {
        virReportOOMError(dconn);
7155
        goto endjob;
C
Chris Lalancette 已提交
7156 7157 7158 7159 7160 7161 7162 7163 7164 7165 7166 7167 7168 7169
    }
    /* Start the QEMU daemon, with the same command-line arguments plus
     * -incoming unix:/path/to/file or exec:nc -U /path/to/file
     */
    internalret = qemudStartVMDaemon(dconn, driver, vm, migrateFrom, -1);
    VIR_FREE(migrateFrom);
    if (internalret < 0) {
        /* Note that we don't set an error here because qemudStartVMDaemon
         * should have already done that.
         */
        if (!vm->persistent) {
            virDomainRemoveInactive(&driver->domains, vm);
            vm = NULL;
        }
7170
        goto endjob;
C
Chris Lalancette 已提交
7171 7172 7173 7174 7175
    }

    qemust = qemuStreamMigOpen(st, unixfile);
    if (qemust == NULL) {
        qemudShutdownVMDaemon(NULL, driver, vm);
7176
        if (!vm->persistent) {
7177 7178
            if (qemuDomainObjEndJob(vm) > 0)
                virDomainRemoveInactive(&driver->domains, vm);
7179 7180
            vm = NULL;
        }
C
Chris Lalancette 已提交
7181 7182 7183
        virReportSystemError(dconn, errno,
                             _("cannot open unix socket '%s' for tunnelled migration"),
                             unixfile);
7184
        goto endjob;
C
Chris Lalancette 已提交
7185 7186 7187 7188 7189 7190 7191 7192 7193 7194
    }

    st->driver = &qemuStreamMigDrv;
    st->privateData = qemust;

    event = virDomainEventNewFromObj(vm,
                                     VIR_DOMAIN_EVENT_STARTED,
                                     VIR_DOMAIN_EVENT_STARTED_MIGRATED);
    ret = 0;

7195
endjob:
7196 7197 7198
    if (vm &&
        qemuDomainObjEndJob(vm) == 0)
        vm = NULL;
7199

C
Chris Lalancette 已提交
7200 7201
cleanup:
    virDomainDefFree(def);
7202 7203
    if (unixfile)
        unlink(unixfile);
C
Chris Lalancette 已提交
7204 7205 7206 7207 7208 7209 7210 7211 7212
    VIR_FREE(unixfile);
    if (vm)
        virDomainObjUnlock(vm);
    if (event)
        qemuDomainEventQueue(driver, event);
    qemuDriverUnlock(driver);
    return ret;
}

D
Daniel Veillard 已提交
7213 7214 7215 7216
/* Prepare is the first step, and it runs on the destination host.
 *
 * This starts an empty VM listening on a TCP port.
 */
7217
static int ATTRIBUTE_NONNULL (5)
D
Daniel Veillard 已提交
7218 7219 7220 7221 7222
qemudDomainMigratePrepare2 (virConnectPtr dconn,
                            char **cookie ATTRIBUTE_UNUSED,
                            int *cookielen ATTRIBUTE_UNUSED,
                            const char *uri_in,
                            char **uri_out,
C
Chris Lalancette 已提交
7223
                            unsigned long flags,
D
Daniel Veillard 已提交
7224 7225 7226 7227 7228
                            const char *dname,
                            unsigned long resource ATTRIBUTE_UNUSED,
                            const char *dom_xml)
{
    static int port = 0;
7229 7230
    struct qemud_driver *driver = dconn->privateData;
    virDomainDefPtr def = NULL;
D
Daniel Veillard 已提交
7231 7232
    virDomainObjPtr vm = NULL;
    int this_port;
7233
    char *hostname;
D
Daniel Veillard 已提交
7234 7235
    char migrateFrom [64];
    const char *p;
7236
    virDomainEventPtr event = NULL;
7237
    int ret = -1;
7238
    int internalret;
7239 7240

    *uri_out = NULL;
D
Daniel Veillard 已提交
7241

7242
    qemuDriverLock(driver);
C
Chris Lalancette 已提交
7243 7244 7245 7246 7247 7248 7249 7250 7251
    if (flags & VIR_MIGRATE_TUNNELLED) {
        /* this is a logical error; we never should have gotten here with
         * VIR_MIGRATE_TUNNELLED set
         */
        qemudReportError(dconn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
                         "%s", _("Tunnelled migration requested but invalid RPC method called"));
        goto cleanup;
    }

D
Daniel Veillard 已提交
7252 7253 7254
    if (!dom_xml) {
        qemudReportError (dconn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
                          "%s", _("no domain XML passed"));
7255
        goto cleanup;
D
Daniel Veillard 已提交
7256 7257 7258 7259 7260 7261 7262 7263 7264 7265 7266 7267 7268 7269 7270 7271 7272
    }

    /* The URI passed in may be NULL or a string "tcp://somehostname:port".
     *
     * If the URI passed in is NULL then we allocate a port number
     * from our pool of port numbers and return a URI of
     * "tcp://ourhostname:port".
     *
     * If the URI passed in is not NULL then we try to parse out the
     * port number and use that (note that the hostname is assumed
     * to be a correct hostname which refers to the target machine).
     */
    if (uri_in == NULL) {
        this_port = QEMUD_MIGRATION_FIRST_PORT + port++;
        if (port == QEMUD_MIGRATION_NUM_PORTS) port = 0;

        /* Get hostname */
7273
        if ((hostname = virGetHostname(dconn)) == NULL)
7274
            goto cleanup;
D
Daniel Veillard 已提交
7275

7276 7277 7278 7279 7280
        /* XXX this really should have been a properly well-formed
         * URI, but we can't add in tcp:// now without breaking
         * compatability with old targets. We at least make the
         * new targets accept both syntaxes though.
         */
D
Daniel Veillard 已提交
7281
        /* Caller frees */
7282 7283 7284
        internalret = virAsprintf(uri_out, "tcp:%s:%d", hostname, this_port);
        VIR_FREE(hostname);
        if (internalret < 0) {
7285
            virReportOOMError (dconn);
7286
            goto cleanup;
D
Daniel Veillard 已提交
7287 7288 7289 7290 7291 7292
        }
    } else {
        /* Check the URI starts with "tcp:".  We will escape the
         * URI when passing it to the qemu monitor, so bad
         * characters in hostname part don't matter.
         */
7293
        if (!STRPREFIX (uri_in, "tcp:")) {
D
Daniel Veillard 已提交
7294
            qemudReportError (dconn, NULL, NULL, VIR_ERR_INVALID_ARG,
7295
                  "%s", _("only tcp URIs are supported for KVM/QEMU migrations"));
7296
            goto cleanup;
D
Daniel Veillard 已提交
7297 7298 7299 7300
        }

        /* Get the port number. */
        p = strrchr (uri_in, ':');
7301 7302 7303 7304 7305 7306 7307 7308 7309 7310 7311 7312 7313 7314 7315 7316 7317 7318 7319 7320
        if (p == strchr(uri_in, ':')) {
            /* Generate a port */
            this_port = QEMUD_MIGRATION_FIRST_PORT + port++;
            if (port == QEMUD_MIGRATION_NUM_PORTS)
                port = 0;

            /* Caller frees */
            if (virAsprintf(uri_out, "%s:%d", uri_in, this_port) < 0) {
                virReportOOMError (dconn);
                goto cleanup;
            }

        } else {
            p++; /* definitely has a ':' in it, see above */
            this_port = virParseNumber (&p);
            if (this_port == -1 || p-uri_in != strlen (uri_in)) {
                qemudReportError (dconn, NULL, NULL, VIR_ERR_INVALID_ARG,
                                  "%s", _("URI ended with incorrect ':port'"));
                goto cleanup;
            }
D
Daniel Veillard 已提交
7321 7322 7323
        }
    }

7324
    if (*uri_out)
7325 7326
        VIR_DEBUG("Generated uri_out=%s", *uri_out);

D
Daniel Veillard 已提交
7327
    /* Parse the domain XML. */
7328 7329
    if (!(def = virDomainDefParseString(dconn, driver->caps, dom_xml,
                                        VIR_DOMAIN_XML_INACTIVE))) {
D
Daniel Veillard 已提交
7330 7331
        qemudReportError (dconn, NULL, NULL, VIR_ERR_OPERATION_FAILED,
                          "%s", _("failed to parse XML"));
7332
        goto cleanup;
D
Daniel Veillard 已提交
7333 7334 7335 7336 7337
    }

    /* Target domain name, maybe renamed. */
    dname = dname ? dname : def->name;

7338 7339
    if (virDomainObjIsDuplicate(&driver->domains, def, 1) < 0)
        goto cleanup;
D
Daniel Veillard 已提交
7340 7341

    if (!(vm = virDomainAssignDef(dconn,
7342
                                  driver->caps,
D
Daniel Veillard 已提交
7343 7344 7345 7346
                                  &driver->domains,
                                  def))) {
        qemudReportError (dconn, NULL, NULL, VIR_ERR_OPERATION_FAILED,
                          "%s", _("failed to assign new VM"));
7347
        goto cleanup;
D
Daniel Veillard 已提交
7348
    }
7349
    def = NULL;
D
Daniel Veillard 已提交
7350

7351 7352 7353
    if (qemuDomainObjBeginJobWithDriver(driver, vm) < 0)
        goto cleanup;

D
Daniel Veillard 已提交
7354 7355 7356 7357 7358 7359 7360
    /* Domain starts inactive, even if the domain XML had an id field. */
    vm->def->id = -1;

    /* Start the QEMU daemon, with the same command-line arguments plus
     * -incoming tcp:0.0.0.0:port
     */
    snprintf (migrateFrom, sizeof (migrateFrom), "tcp:0.0.0.0:%d", this_port);
7361
    if (qemudStartVMDaemon (dconn, driver, vm, migrateFrom, -1) < 0) {
7362 7363 7364
        /* Note that we don't set an error here because qemudStartVMDaemon
         * should have already done that.
         */
7365
        if (!vm->persistent) {
7366 7367
            if (qemuDomainObjEndJob(vm) > 0)
                virDomainRemoveInactive(&driver->domains, vm);
7368 7369
            vm = NULL;
        }
7370
        goto endjob;
D
Daniel Veillard 已提交
7371
    }
7372 7373 7374 7375

    event = virDomainEventNewFromObj(vm,
                                     VIR_DOMAIN_EVENT_STARTED,
                                     VIR_DOMAIN_EVENT_STARTED_MIGRATED);
7376
    ret = 0;
D
Daniel Veillard 已提交
7377

7378
endjob:
7379 7380 7381
    if (vm &&
        qemuDomainObjEndJob(vm) == 0)
        vm = NULL;
7382

7383 7384 7385 7386 7387
cleanup:
    virDomainDefFree(def);
    if (ret != 0) {
        VIR_FREE(*uri_out);
    }
7388 7389
    if (vm)
        virDomainObjUnlock(vm);
7390 7391
    if (event)
        qemuDomainEventQueue(driver, event);
7392
    qemuDriverUnlock(driver);
7393
    return ret;
C
Chris Lalancette 已提交
7394 7395 7396

}

7397 7398 7399 7400 7401

/* Perform migration using QEMU's native TCP migrate support,
 * not encrypted obviously
 */
static int doNativeMigrate(virDomainPtr dom,
7402
                           struct qemud_driver *driver,
7403 7404 7405 7406 7407 7408 7409
                           virDomainObjPtr vm,
                           const char *uri,
                           unsigned long flags ATTRIBUTE_UNUSED,
                           const char *dname ATTRIBUTE_UNUSED,
                           unsigned long resource)
{
    int ret = -1;
7410
    xmlURIPtr uribits = NULL;
7411 7412
    int status;
    unsigned long long transferred, remaining, total;
7413
    qemuDomainObjPrivatePtr priv = vm->privateData;
7414 7415 7416 7417 7418 7419 7420 7421 7422 7423 7424 7425 7426 7427 7428 7429 7430 7431 7432 7433

    /* Issue the migrate command. */
    if (STRPREFIX(uri, "tcp:") && !STRPREFIX(uri, "tcp://")) {
        /* HACK: source host generates bogus URIs, so fix them up */
        char *tmpuri;
        if (virAsprintf(&tmpuri, "tcp://%s", uri + strlen("tcp:")) < 0) {
            virReportOOMError(dom->conn);
            goto cleanup;
        }
        uribits = xmlParseURI(tmpuri);
        VIR_FREE(tmpuri);
    } else {
        uribits = xmlParseURI(uri);
    }
    if (!uribits) {
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_INTERNAL_ERROR,
                         _("cannot parse URI %s"), uri);
        goto cleanup;
    }

7434
    qemuDomainObjEnterMonitorWithDriver(driver, vm);
7435
    if (resource > 0 &&
7436
        qemuMonitorSetMigrationSpeed(priv->mon, resource) < 0) {
7437
        qemuDomainObjExitMonitorWithDriver(driver, vm);
7438
        goto cleanup;
7439
    }
7440

7441
    if (qemuMonitorMigrateToHost(priv->mon, 0, uribits->server, uribits->port) < 0) {
7442
        qemuDomainObjExitMonitorWithDriver(driver, vm);
7443
        goto cleanup;
7444
    }
7445 7446 7447 7448

    /* it is also possible that the migrate didn't fail initially, but
     * rather failed later on.  Check the output of "info migrate"
     */
7449 7450
    if (qemuMonitorGetMigrationStatus(priv->mon,
                                      &status,
7451 7452 7453
                                      &transferred,
                                      &remaining,
                                      &total) < 0) {
7454
        qemuDomainObjExitMonitorWithDriver(driver, vm);
7455 7456
        goto cleanup;
    }
7457
    qemuDomainObjExitMonitorWithDriver(driver, vm);
7458 7459 7460 7461 7462 7463 7464 7465 7466 7467 7468 7469 7470 7471 7472

    if (status != QEMU_MONITOR_MIGRATION_STATUS_COMPLETED) {
        qemudReportError (dom->conn, dom, NULL, VIR_ERR_OPERATION_FAILED,
                          "%s", _("migrate did not successfully complete"));
        goto cleanup;
    }

    ret = 0;

cleanup:
    xmlFreeURI(uribits);
    return ret;
}


7473 7474 7475 7476 7477 7478 7479 7480 7481 7482 7483 7484 7485 7486 7487 7488 7489 7490 7491 7492 7493
static int doTunnelSendAll(virDomainPtr dom,
                           virStreamPtr st,
                           int sock)
{
    char buffer[65536];
    int nbytes = sizeof(buffer);

    /* XXX should honour the 'resource' parameter here */
    for (;;) {
        nbytes = saferead(sock, buffer, nbytes);
        if (nbytes < 0) {
            virStreamAbort(st);
            virReportSystemError(dom->conn, errno, "%s",
                                 _("tunnelled migration failed to read from qemu"));
            return -1;
        }
        else if (nbytes == 0)
            /* EOF; get out of here */
            break;

        if (virStreamSend(st, buffer, nbytes) < 0) {
C
Chris Lalancette 已提交
7494
            qemudReportError(dom->conn, dom, NULL, VIR_ERR_OPERATION_FAILED, "%s",
7495 7496 7497 7498 7499 7500 7501 7502 7503 7504 7505 7506
                             _("Failed to write migration data to remote libvirtd"));
            return -1;
        }
    }

    if (virStreamFinish(st) < 0)
        /* virStreamFinish set the error for us */
        return -1;

    return 0;
}

C
Chris Lalancette 已提交
7507
static int doTunnelMigrate(virDomainPtr dom,
7508
                           struct qemud_driver *driver,
7509
                           virConnectPtr dconn,
C
Chris Lalancette 已提交
7510
                           virDomainObjPtr vm,
7511
                           const char *dom_xml,
C
Chris Lalancette 已提交
7512 7513 7514 7515 7516
                           const char *uri,
                           unsigned long flags,
                           const char *dname,
                           unsigned long resource)
{
7517
    qemuDomainObjPrivatePtr priv = vm->privateData;
7518 7519
    int client_sock = -1;
    int qemu_sock = -1;
C
Chris Lalancette 已提交
7520 7521
    struct sockaddr_un sa_qemu, sa_client;
    socklen_t addrlen;
7522
    virDomainPtr ddomain = NULL;
C
Chris Lalancette 已提交
7523
    int retval = -1;
7524
    virStreamPtr st = NULL;
C
Chris Lalancette 已提交
7525 7526 7527 7528 7529 7530
    char *unixfile = NULL;
    int internalret;
    unsigned int qemuCmdFlags;
    int status;
    unsigned long long transferred, remaining, total;

7531 7532 7533 7534 7535 7536 7537 7538
    /*
     * The order of operations is important here to avoid touching
     * the source VM until we are very sure we can successfully
     * start the migration operation.
     *
     *   1. setup local support infrastructure (eg sockets)
     *   2. setup destination fully
     *   3. start migration on source
C
Chris Lalancette 已提交
7539 7540
     */

7541

7542
    /* Stage 1. setup local support infrastructure */
C
Chris Lalancette 已提交
7543 7544 7545 7546

    if (virAsprintf(&unixfile, "%s/qemu.tunnelmigrate.src.%s",
                    driver->stateDir, vm->def->name) < 0) {
        virReportOOMError(dom->conn);
7547
        goto cleanup;
C
Chris Lalancette 已提交
7548 7549 7550 7551 7552 7553
    }

    qemu_sock = socket(AF_UNIX, SOCK_STREAM, 0);
    if (qemu_sock < 0) {
        virReportSystemError(dom->conn, errno, "%s",
                             _("cannot open tunnelled migration socket"));
7554
        goto cleanup;
C
Chris Lalancette 已提交
7555 7556 7557 7558 7559 7560 7561 7562
    }
    memset(&sa_qemu, 0, sizeof(sa_qemu));
    sa_qemu.sun_family = AF_UNIX;
    if (virStrcpy(sa_qemu.sun_path, unixfile,
                  sizeof(sa_qemu.sun_path)) == NULL) {
        qemudReportError(dom->conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
                         _("Unix socket '%s' too big for destination"),
                         unixfile);
7563
        goto cleanup;
C
Chris Lalancette 已提交
7564 7565 7566 7567 7568 7569
    }
    unlink(unixfile);
    if (bind(qemu_sock, (struct sockaddr *)&sa_qemu, sizeof(sa_qemu)) < 0) {
        virReportSystemError(dom->conn, errno,
                             _("Cannot bind to unix socket '%s' for tunnelled migration"),
                             unixfile);
7570
        goto cleanup;
C
Chris Lalancette 已提交
7571 7572 7573 7574 7575
    }
    if (listen(qemu_sock, 1) < 0) {
        virReportSystemError(dom->conn, errno,
                             _("Cannot listen on unix socket '%s' for tunnelled migration"),
                             unixfile);
7576
        goto cleanup;
C
Chris Lalancette 已提交
7577 7578 7579 7580 7581 7582 7583
    }

    /* check that this qemu version supports the unix migration */
    if (qemudExtractVersionInfo(vm->def->emulator, NULL, &qemuCmdFlags) < 0) {
        qemudReportError(dom->conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
                         _("Cannot extract Qemu version from '%s'"),
                         vm->def->emulator);
7584 7585 7586 7587 7588 7589 7590 7591
        goto cleanup;
    }

    if (!(qemuCmdFlags & QEMUD_CMD_FLAG_MIGRATE_QEMU_UNIX) &&
        !(qemuCmdFlags & QEMUD_CMD_FLAG_MIGRATE_QEMU_EXEC)) {
        qemudReportError(dom->conn, NULL, NULL, VIR_ERR_OPERATION_FAILED,
                         "%s", _("Source qemu is too old to support tunnelled migration"));
        goto cleanup;
C
Chris Lalancette 已提交
7592
    }
7593 7594 7595 7596 7597 7598 7599 7600 7601 7602 7603 7604 7605 7606 7607 7608 7609 7610 7611 7612 7613


    /* Stage 2. setup destination fully
     *
     * Once stage 2 has completed successfully, we *must* call finish
     * to cleanup the target whether we succeed or fail
     */
    st = virStreamNew(dconn, 0);
    if (st == NULL)
        /* virStreamNew only fails on OOM, and it reports the error itself */
        goto cleanup;

    internalret = dconn->driver->domainMigratePrepareTunnel(dconn, st,
                                                            flags, dname,
                                                            resource, dom_xml);

    if (internalret < 0)
        /* domainMigratePrepareTunnel sets the error for us */
        goto cleanup;

    /*   3. start migration on source */
7614
    qemuDomainObjEnterMonitorWithDriver(driver, vm);
C
Chris Lalancette 已提交
7615
    if (qemuCmdFlags & QEMUD_CMD_FLAG_MIGRATE_QEMU_UNIX)
7616
        internalret = qemuMonitorMigrateToUnix(priv->mon, 1, unixfile);
C
Chris Lalancette 已提交
7617 7618
    else if (qemuCmdFlags & QEMUD_CMD_FLAG_MIGRATE_QEMU_EXEC) {
        const char *args[] = { "nc", "-U", unixfile, NULL };
7619
        internalret = qemuMonitorMigrateToCommand(priv->mon, 1, args, "/dev/null");
7620 7621
    } else {
        internalret = -1;
C
Chris Lalancette 已提交
7622
    }
7623
    qemuDomainObjExitMonitorWithDriver(driver, vm);
C
Chris Lalancette 已提交
7624 7625 7626
    if (internalret < 0) {
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_OPERATION_FAILED,
                         "%s", _("tunnelled migration monitor command failed"));
7627
        goto finish;
C
Chris Lalancette 已提交
7628 7629
    }

7630 7631 7632
    /* From this point onwards we *must* call cancel to abort the
     * migration on source if anything goes wrong */

C
Chris Lalancette 已提交
7633 7634 7635
    /* it is also possible that the migrate didn't fail initially, but
     * rather failed later on.  Check the output of "info migrate"
     */
7636
    qemuDomainObjEnterMonitorWithDriver(driver, vm);
7637 7638
    if (qemuMonitorGetMigrationStatus(priv->mon,
                                      &status,
C
Chris Lalancette 已提交
7639 7640 7641
                                      &transferred,
                                      &remaining,
                                      &total) < 0) {
7642
        qemuDomainObjExitMonitorWithDriver(driver, vm);
7643
        goto cancel;
C
Chris Lalancette 已提交
7644
    }
7645
    qemuDomainObjExitMonitorWithDriver(driver, vm);
C
Chris Lalancette 已提交
7646 7647 7648 7649

    if (status == QEMU_MONITOR_MIGRATION_STATUS_ERROR) {
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_OPERATION_FAILED,
                         "%s",_("migrate failed"));
7650
        goto cancel;
C
Chris Lalancette 已提交
7651 7652 7653 7654 7655 7656 7657 7658
    }

    addrlen = sizeof(sa_client);
    while ((client_sock = accept(qemu_sock, (struct sockaddr *)&sa_client, &addrlen)) < 0) {
        if (errno == EAGAIN || errno == EINTR)
            continue;
        virReportSystemError(dom->conn, errno, "%s",
                             _("tunnelled migration failed to accept from qemu"));
7659
        goto cancel;
C
Chris Lalancette 已提交
7660 7661
    }

7662
    retval = doTunnelSendAll(dom, st, client_sock);
7663

7664
cancel:
7665
    if (retval != 0) {
7666
        qemuDomainObjEnterMonitorWithDriver(driver, vm);
7667
        qemuMonitorMigrateCancel(priv->mon);
7668
        qemuDomainObjExitMonitorWithDriver(driver, vm);
7669
    }
C
Chris Lalancette 已提交
7670

7671
finish:
C
Chris Lalancette 已提交
7672 7673 7674
    dname = dname ? dname : dom->name;
    ddomain = dconn->driver->domainMigrateFinish2
        (dconn, dname, NULL, 0, uri, flags, retval);
7675 7676 7677 7678 7679 7680 7681

cleanup:
    if (client_sock != -1)
        close(client_sock);
    if (qemu_sock != -1)
        close(qemu_sock);

C
Chris Lalancette 已提交
7682 7683 7684
    if (ddomain)
        virUnrefDomain(ddomain);

7685 7686 7687 7688
    if (unixfile) {
        unlink(unixfile);
        VIR_FREE(unixfile);
    }
C
Chris Lalancette 已提交
7689

7690 7691 7692
    if (st)
        /* don't call virStreamFree(), because that resets any pending errors */
        virUnrefStream(st);
7693 7694 7695 7696
    return retval;
}


7697 7698 7699 7700
/* This is essentially a simplified re-impl of
 * virDomainMigrateVersion2 from libvirt.c, but running in source
 * libvirtd context, instead of client app context */
static int doNonTunnelMigrate(virDomainPtr dom,
7701
                              struct qemud_driver *driver,
7702 7703 7704 7705 7706 7707 7708 7709 7710 7711 7712 7713 7714 7715 7716 7717 7718 7719 7720 7721 7722 7723 7724 7725 7726
                              virConnectPtr dconn,
                              virDomainObjPtr vm,
                              const char *dom_xml,
                              const char *uri ATTRIBUTE_UNUSED,
                              unsigned long flags,
                              const char *dname,
                              unsigned long resource)
{
    virDomainPtr ddomain = NULL;
    int retval = -1;
    char *uri_out = NULL;

    /* NB we don't pass 'uri' into this, since that's the libvirtd
     * URI in this context - so we let dest pick it */
    if (dconn->driver->domainMigratePrepare2(dconn,
                                             NULL, /* cookie */
                                             0, /* cookielen */
                                             NULL, /* uri */
                                             &uri_out,
                                             flags, dname,
                                             resource, dom_xml) < 0)
        /* domainMigratePrepare2 sets the error for us */
        goto cleanup;

    if (uri_out == NULL) {
C
Chris Lalancette 已提交
7727
        qemudReportError(NULL, NULL, NULL, VIR_ERR_INTERNAL_ERROR, "%s",
7728
                         _("domainMigratePrepare2 did not set uri"));
7729
        goto cleanup;
7730 7731
    }

7732
    if (doNativeMigrate(dom, driver, vm, uri_out, flags, dname, resource) < 0)
7733 7734 7735 7736 7737 7738 7739 7740 7741 7742 7743 7744 7745 7746 7747 7748 7749
        goto finish;

    retval = 0;

finish:
    dname = dname ? dname : dom->name;
    ddomain = dconn->driver->domainMigrateFinish2
        (dconn, dname, NULL, 0, uri_out, flags, retval);

    if (ddomain)
        virUnrefDomain(ddomain);

cleanup:
    return retval;
}


7750
static int doPeer2PeerMigrate(virDomainPtr dom,
7751
                              struct qemud_driver *driver,
7752 7753 7754 7755 7756 7757 7758 7759 7760 7761 7762 7763 7764 7765 7766 7767 7768 7769 7770 7771 7772
                              virDomainObjPtr vm,
                              const char *uri,
                              unsigned long flags,
                              const char *dname,
                              unsigned long resource)
{
    int ret = -1;
    virConnectPtr dconn = NULL;
    char *dom_xml;

    /* the order of operations is important here; we make sure the
     * destination side is completely setup before we touch the source
     */

    dconn = virConnectOpen(uri);
    if (dconn == NULL) {
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_OPERATION_FAILED,
                         _("Failed to connect to remote libvirt URI %s"), uri);
        return -1;
    }
    if (!VIR_DRV_SUPPORTS_FEATURE(dconn->driver, dconn,
7773
                                  VIR_DRV_FEATURE_MIGRATION_P2P)) {
7774
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_OPERATION_FAILED, "%s",
7775
                         _("Destination libvirt does not support peer-to-peer migration protocol"));
7776 7777 7778 7779 7780 7781 7782 7783 7784 7785
        goto cleanup;
    }

    dom_xml = virDomainDefFormat(dom->conn, vm->def, VIR_DOMAIN_XML_SECURE);
    if (!dom_xml) {
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_OPERATION_FAILED,
                         "%s", _("failed to get domain xml"));
        goto cleanup;
    }

7786
    if (flags & VIR_MIGRATE_TUNNELLED)
7787
        ret = doTunnelMigrate(dom, driver, dconn, vm, dom_xml, uri, flags, dname, resource);
7788
    else
7789
        ret = doNonTunnelMigrate(dom, driver, dconn, vm, dom_xml, uri, flags, dname, resource);
7790 7791 7792

cleanup:
    VIR_FREE(dom_xml);
C
Chris Lalancette 已提交
7793 7794 7795
    /* don't call virConnectClose(), because that resets any pending errors */
    virUnrefConnect(dconn);

7796
    return ret;
D
Daniel Veillard 已提交
7797 7798
}

7799

D
Daniel Veillard 已提交
7800 7801 7802 7803 7804 7805
/* Perform is the second step, and it runs on the source host. */
static int
qemudDomainMigratePerform (virDomainPtr dom,
                           const char *cookie ATTRIBUTE_UNUSED,
                           int cookielen ATTRIBUTE_UNUSED,
                           const char *uri,
7806
                           unsigned long flags,
7807
                           const char *dname,
D
Daniel Veillard 已提交
7808 7809
                           unsigned long resource)
{
7810 7811
    struct qemud_driver *driver = dom->conn->privateData;
    virDomainObjPtr vm;
7812
    virDomainEventPtr event = NULL;
7813
    int ret = -1;
7814
    int paused = 0;
D
Daniel Veillard 已提交
7815

7816
    qemuDriverLock(driver);
7817
    vm = virDomainFindByUUID(&driver->domains, dom->uuid);
D
Daniel Veillard 已提交
7818
    if (!vm) {
7819 7820 7821 7822
        char uuidstr[VIR_UUID_STRING_BUFLEN];
        virUUIDFormat(dom->uuid, uuidstr);
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_NO_DOMAIN,
                         _("no domain with matching uuid '%s'"), uuidstr);
7823
        goto cleanup;
D
Daniel Veillard 已提交
7824 7825
    }

7826 7827 7828
    if (qemuDomainObjBeginJobWithDriver(driver, vm) < 0)
        goto cleanup;

D
Daniel P. Berrange 已提交
7829
    if (!virDomainObjIsActive(vm)) {
7830
        qemudReportError (dom->conn, dom, NULL, VIR_ERR_OPERATION_INVALID,
D
Daniel Veillard 已提交
7831
                          "%s", _("domain is not running"));
7832
        goto endjob;
D
Daniel Veillard 已提交
7833 7834
    }

7835
    if (!(flags & VIR_MIGRATE_LIVE) && vm->state == VIR_DOMAIN_RUNNING) {
7836
        qemuDomainObjPrivatePtr priv = vm->privateData;
7837
        /* Pause domain for non-live migration */
7838
        qemuDomainObjEnterMonitorWithDriver(driver, vm);
7839
        if (qemuMonitorStopCPUs(priv->mon) < 0) {
7840 7841
            qemuDomainObjExitMonitorWithDriver(driver, vm);
            goto endjob;
7842
        }
7843
        qemuDomainObjExitMonitorWithDriver(driver, vm);
7844
        paused = 1;
7845

7846
        vm->state = VIR_DOMAIN_PAUSED;
7847 7848 7849 7850 7851 7852
        event = virDomainEventNewFromObj(vm,
                                         VIR_DOMAIN_EVENT_SUSPENDED,
                                         VIR_DOMAIN_EVENT_SUSPENDED_MIGRATED);
        if (event)
            qemuDomainEventQueue(driver, event);
        event = NULL;
7853 7854
    }

7855
    if ((flags & (VIR_MIGRATE_TUNNELLED | VIR_MIGRATE_PEER2PEER))) {
7856
        if (doPeer2PeerMigrate(dom, driver, vm, uri, flags, dname, resource) < 0)
7857
            /* doPeer2PeerMigrate already set the error, so just get out */
7858
            goto endjob;
7859
    } else {
7860 7861
        if (doNativeMigrate(dom, driver, vm, uri, flags, dname, resource) < 0)
            goto endjob;
7862 7863
    }

D
Daniel Veillard 已提交
7864 7865
    /* Clean up the source domain. */
    qemudShutdownVMDaemon (dom->conn, driver, vm);
7866
    paused = 0;
7867 7868 7869 7870

    event = virDomainEventNewFromObj(vm,
                                     VIR_DOMAIN_EVENT_STOPPED,
                                     VIR_DOMAIN_EVENT_STOPPED_MIGRATED);
C
Chris Lalancette 已提交
7871 7872
    if (!vm->persistent || (flags & VIR_MIGRATE_UNDEFINE_SOURCE)) {
        virDomainDeleteConfig(dom->conn, driver->configDir, driver->autostartDir, vm);
7873 7874
        if (qemuDomainObjEndJob(vm) > 0)
            virDomainRemoveInactive(&driver->domains, vm);
7875 7876
        vm = NULL;
    }
7877
    ret = 0;
D
Daniel Veillard 已提交
7878

7879
endjob:
7880
    if (paused) {
7881
        qemuDomainObjPrivatePtr priv = vm->privateData;
7882
        /* we got here through some sort of failure; start the domain again */
7883
        qemuDomainObjEnterMonitorWithDriver(driver, vm);
7884
        if (qemuMonitorStartCPUs(priv->mon, dom->conn) < 0) {
7885 7886 7887 7888
            /* Hm, we already know we are in error here.  We don't want to
             * overwrite the previous error, though, so we just throw something
             * to the logs and hope for the best
             */
7889 7890
            VIR_ERROR(_("Failed to resume guest %s after failure\n"),
                      vm->def->name);
7891
        }
7892
        qemuDomainObjExitMonitorWithDriver(driver, vm);
7893

7894
        vm->state = VIR_DOMAIN_RUNNING;
7895 7896 7897 7898
        event = virDomainEventNewFromObj(vm,
                                         VIR_DOMAIN_EVENT_RESUMED,
                                         VIR_DOMAIN_EVENT_RESUMED_MIGRATED);
    }
7899 7900 7901
    if (vm &&
        qemuDomainObjEndJob(vm) == 0)
        vm = NULL;
7902

7903
cleanup:
7904 7905
    if (vm)
        virDomainObjUnlock(vm);
7906 7907
    if (event)
        qemuDomainEventQueue(driver, event);
7908
    qemuDriverUnlock(driver);
7909
    return ret;
D
Daniel Veillard 已提交
7910 7911 7912 7913 7914 7915 7916 7917 7918
}

/* Finish is the third and final step, and it runs on the destination host. */
static virDomainPtr
qemudDomainMigrateFinish2 (virConnectPtr dconn,
                           const char *dname,
                           const char *cookie ATTRIBUTE_UNUSED,
                           int cookielen ATTRIBUTE_UNUSED,
                           const char *uri ATTRIBUTE_UNUSED,
C
Chris Lalancette 已提交
7919
                           unsigned long flags,
D
Daniel Veillard 已提交
7920 7921
                           int retcode)
{
7922 7923 7924
    struct qemud_driver *driver = dconn->privateData;
    virDomainObjPtr vm;
    virDomainPtr dom = NULL;
7925
    virDomainEventPtr event = NULL;
7926
    virErrorPtr orig_err;
C
Chris Lalancette 已提交
7927
    int newVM = 1;
D
Daniel Veillard 已提交
7928

7929 7930 7931
    /* Migration failed. Save the current error so nothing squashes it */
    orig_err = virSaveLastError();

7932
    qemuDriverLock(driver);
7933
    vm = virDomainFindByName(&driver->domains, dname);
D
Daniel Veillard 已提交
7934
    if (!vm) {
7935 7936
        qemudReportError (dconn, NULL, NULL, VIR_ERR_NO_DOMAIN,
                          _("no domain with matching name '%s'"), dname);
7937
        goto cleanup;
D
Daniel Veillard 已提交
7938 7939
    }

7940 7941 7942
    if (qemuDomainObjBeginJobWithDriver(driver, vm) < 0)
        goto cleanup;

D
Daniel Veillard 已提交
7943 7944 7945 7946
    /* Did the migration go as planned?  If yes, return the domain
     * object, but if no, clean up the empty qemu process.
     */
    if (retcode == 0) {
C
Chris Lalancette 已提交
7947 7948 7949 7950 7951 7952 7953 7954 7955 7956 7957 7958 7959 7960 7961 7962
        if (flags & VIR_MIGRATE_PERSIST_DEST) {
            if (vm->persistent)
                newVM = 0;
            vm->persistent = 1;

            if (virDomainSaveConfig(dconn, driver->configDir, vm->def) < 0) {
                /* Hmpf.  Migration was successful, but making it persistent
                 * was not.  If we report successful, then when this domain
                 * shuts down, management tools are in for a surprise.  On the
                 * other hand, if we report failure, then the management tools
                 * might try to restart the domain on the source side, even
                 * though the domain is actually running on the destination.
                 * Return a NULL dom pointer, and hope that this is a rare
                 * situation and management tools are smart.
                 */
                vm = NULL;
7963
                goto endjob;
C
Chris Lalancette 已提交
7964 7965 7966 7967 7968 7969 7970 7971 7972
            }

            event = virDomainEventNewFromObj(vm,
                                             VIR_DOMAIN_EVENT_DEFINED,
                                             newVM ?
                                             VIR_DOMAIN_EVENT_DEFINED_ADDED :
                                             VIR_DOMAIN_EVENT_DEFINED_UPDATED);
            if (event)
                qemuDomainEventQueue(driver, event);
7973
            event = NULL;
C
Chris Lalancette 已提交
7974 7975

        }
7976
        qemuDomainObjPrivatePtr priv = vm->privateData;
D
Daniel Veillard 已提交
7977
        dom = virGetDomain (dconn, vm->def->name, vm->def->uuid);
7978

7979 7980 7981 7982 7983 7984 7985 7986 7987 7988 7989 7990 7991
        if (!(flags & VIR_MIGRATE_PAUSED)) {
            /* run 'cont' on the destination, which allows migration on qemu
             * >= 0.10.6 to work properly.  This isn't strictly necessary on
             * older qemu's, but it also doesn't hurt anything there
             */
            qemuDomainObjEnterMonitorWithDriver(driver, vm);
            if (qemuMonitorStartCPUs(priv->mon, dconn) < 0) {
                if (virGetLastError() == NULL)
                    qemudReportError(dconn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
                                     "%s", _("resume operation failed"));
                qemuDomainObjExitMonitorWithDriver(driver, vm);
                goto endjob;
            }
7992
            qemuDomainObjExitMonitorWithDriver(driver, vm);
7993 7994

            vm->state = VIR_DOMAIN_RUNNING;
7995 7996
        }

7997 7998 7999
        event = virDomainEventNewFromObj(vm,
                                         VIR_DOMAIN_EVENT_RESUMED,
                                         VIR_DOMAIN_EVENT_RESUMED_MIGRATED);
8000 8001 8002 8003 8004 8005
        if (vm->state == VIR_DOMAIN_PAUSED) {
            qemuDomainEventQueue(driver, event);
            event = virDomainEventNewFromObj(vm,
                                             VIR_DOMAIN_EVENT_SUSPENDED,
                                             VIR_DOMAIN_EVENT_SUSPENDED_PAUSED);
        }
8006
        virDomainSaveStatus(dconn, driver->caps, driver->stateDir, vm);
D
Daniel Veillard 已提交
8007 8008
    } else {
        qemudShutdownVMDaemon (dconn, driver, vm);
8009 8010 8011
        event = virDomainEventNewFromObj(vm,
                                         VIR_DOMAIN_EVENT_STOPPED,
                                         VIR_DOMAIN_EVENT_STOPPED_FAILED);
8012
        if (!vm->persistent) {
8013 8014
            if (qemuDomainObjEndJob(vm) > 0)
                virDomainRemoveInactive(&driver->domains, vm);
8015 8016
            vm = NULL;
        }
D
Daniel Veillard 已提交
8017
    }
8018

8019
endjob:
8020 8021 8022
    if (vm &&
        qemuDomainObjEndJob(vm) == 0)
        vm = NULL;
8023

8024
cleanup:
8025 8026 8027 8028
    if (orig_err) {
        virSetError(orig_err);
        virFreeError(orig_err);
    }
8029 8030
    if (vm)
        virDomainObjUnlock(vm);
8031 8032
    if (event)
        qemuDomainEventQueue(driver, event);
8033
    qemuDriverUnlock(driver);
8034
    return dom;
D
Daniel Veillard 已提交
8035 8036
}

8037 8038 8039 8040 8041 8042 8043 8044 8045 8046 8047 8048 8049 8050 8051 8052
static int
qemudNodeDeviceGetPciInfo (virNodeDevicePtr dev,
                           unsigned *domain,
                           unsigned *bus,
                           unsigned *slot,
                           unsigned *function)
{
    virNodeDeviceDefPtr def = NULL;
    virNodeDevCapsDefPtr cap;
    char *xml = NULL;
    int ret = -1;

    xml = virNodeDeviceGetXMLDesc(dev, 0);
    if (!xml)
        goto out;

8053
    def = virNodeDeviceDefParseString(dev->conn, xml, EXISTING_DEVICE);
8054 8055 8056 8057 8058 8059 8060 8061 8062 8063 8064 8065 8066 8067 8068 8069 8070 8071 8072 8073 8074 8075 8076 8077 8078 8079 8080 8081 8082 8083 8084 8085 8086 8087 8088 8089 8090 8091 8092 8093 8094 8095 8096 8097 8098 8099 8100 8101 8102 8103 8104 8105 8106 8107 8108 8109 8110 8111 8112 8113 8114 8115 8116 8117 8118 8119 8120 8121 8122 8123 8124 8125 8126 8127 8128 8129 8130 8131
    if (!def)
        goto out;

    cap = def->caps;
    while (cap) {
        if (cap->type == VIR_NODE_DEV_CAP_PCI_DEV) {
            *domain   = cap->data.pci_dev.domain;
            *bus      = cap->data.pci_dev.bus;
            *slot     = cap->data.pci_dev.slot;
            *function = cap->data.pci_dev.function;
            break;
        }

        cap = cap->next;
    }

    if (!cap) {
        qemudReportError(dev->conn, NULL, NULL, VIR_ERR_INVALID_ARG,
                         _("device %s is not a PCI device"), dev->name);
        goto out;
    }

    ret = 0;
out:
    virNodeDeviceDefFree(def);
    VIR_FREE(xml);
    return ret;
}

static int
qemudNodeDeviceDettach (virNodeDevicePtr dev)
{
    pciDevice *pci;
    unsigned domain, bus, slot, function;
    int ret = -1;

    if (qemudNodeDeviceGetPciInfo(dev, &domain, &bus, &slot, &function) < 0)
        return -1;

    pci = pciGetDevice(dev->conn, domain, bus, slot, function);
    if (!pci)
        return -1;

    if (pciDettachDevice(dev->conn, pci) < 0)
        goto out;

    ret = 0;
out:
    pciFreeDevice(dev->conn, pci);
    return ret;
}

static int
qemudNodeDeviceReAttach (virNodeDevicePtr dev)
{
    pciDevice *pci;
    unsigned domain, bus, slot, function;
    int ret = -1;

    if (qemudNodeDeviceGetPciInfo(dev, &domain, &bus, &slot, &function) < 0)
        return -1;

    pci = pciGetDevice(dev->conn, domain, bus, slot, function);
    if (!pci)
        return -1;

    if (pciReAttachDevice(dev->conn, pci) < 0)
        goto out;

    ret = 0;
out:
    pciFreeDevice(dev->conn, pci);
    return ret;
}

static int
qemudNodeDeviceReset (virNodeDevicePtr dev)
{
8132
    struct qemud_driver *driver = dev->conn->privateData;
8133 8134 8135 8136 8137 8138 8139 8140 8141 8142 8143
    pciDevice *pci;
    unsigned domain, bus, slot, function;
    int ret = -1;

    if (qemudNodeDeviceGetPciInfo(dev, &domain, &bus, &slot, &function) < 0)
        return -1;

    pci = pciGetDevice(dev->conn, domain, bus, slot, function);
    if (!pci)
        return -1;

8144 8145 8146
    qemuDriverLock(driver);

    if (pciResetDevice(dev->conn, pci, driver->activePciHostdevs) < 0)
8147 8148 8149 8150
        goto out;

    ret = 0;
out:
8151
    qemuDriverUnlock(driver);
8152 8153 8154 8155
    pciFreeDevice(dev->conn, pci);
    return ret;
}

8156 8157 8158 8159 8160 8161 8162 8163 8164 8165 8166 8167 8168 8169 8170 8171 8172 8173 8174 8175 8176 8177
static int
qemuCPUCompare(virConnectPtr conn,
               const char *xmlDesc,
               unsigned int flags ATTRIBUTE_UNUSED)
{
    struct qemud_driver *driver = conn->privateData;
    int ret = VIR_CPU_COMPARE_ERROR;

    qemuDriverLock(driver);

    if (!driver->caps || !driver->caps->host.cpu) {
        qemudReportError(conn, NULL, NULL, VIR_ERR_NO_SUPPORT,
                         "%s", _("cannot get host CPU capabilities"));
    }
    else
        ret = cpuCompareXML(conn, driver->caps->host.cpu, xmlDesc);

    qemuDriverUnlock(driver);

    return ret;
}

8178 8179 8180 8181 8182
static virDriver qemuDriver = {
    VIR_DRV_QEMU,
    "QEMU",
    qemudOpen, /* open */
    qemudClose, /* close */
D
Daniel Veillard 已提交
8183
    qemudSupportsFeature, /* supports_feature */
8184 8185
    qemudGetType, /* type */
    qemudGetVersion, /* version */
8186
    NULL, /* libvirtVersion (impl. in libvirt.c) */
8187
    virGetHostname, /* getHostname */
8188
    qemudGetMaxVCPUs, /* getMaxVcpus */
8189
    nodeGetInfo, /* nodeGetInfo */
8190 8191 8192
    qemudGetCapabilities, /* getCapabilities */
    qemudListDomains, /* listDomains */
    qemudNumDomains, /* numOfDomains */
8193
    qemudDomainCreate, /* domainCreateXML */
8194 8195 8196 8197 8198
    qemudDomainLookupByID, /* domainLookupByID */
    qemudDomainLookupByUUID, /* domainLookupByUUID */
    qemudDomainLookupByName, /* domainLookupByName */
    qemudDomainSuspend, /* domainSuspend */
    qemudDomainResume, /* domainResume */
8199
    qemudDomainShutdown, /* domainShutdown */
8200 8201 8202
    NULL, /* domainReboot */
    qemudDomainDestroy, /* domainDestroy */
    qemudDomainGetOSType, /* domainGetOSType */
8203 8204 8205
    qemudDomainGetMaxMemory, /* domainGetMaxMemory */
    qemudDomainSetMaxMemory, /* domainSetMaxMemory */
    qemudDomainSetMemory, /* domainSetMemory */
8206 8207 8208
    qemudDomainGetInfo, /* domainGetInfo */
    qemudDomainSave, /* domainSave */
    qemudDomainRestore, /* domainRestore */
P
Paolo Bonzini 已提交
8209
    qemudDomainCoreDump, /* domainCoreDump */
8210
    qemudDomainSetVcpus, /* domainSetVcpus */
8211 8212
    qemudDomainPinVcpu, /* domainPinVcpu */
    qemudDomainGetVcpus, /* domainGetVcpus */
8213
    qemudDomainGetMaxVcpus, /* domainGetMaxVcpus */
8214 8215
    qemudDomainGetSecurityLabel, /* domainGetSecurityLabel */
    qemudNodeGetSecurityModel, /* nodeGetSecurityModel */
8216
    qemudDomainDumpXML, /* domainDumpXML */
8217
    qemuDomainXMLFromNative, /* domainXmlFromNative */
8218
    qemuDomainXMLToNative, /* domainXMLToNative */
8219 8220
    qemudListDefinedDomains, /* listDefinedDomains */
    qemudNumDefinedDomains, /* numOfDefinedDomains */
8221 8222 8223
    qemudDomainStart, /* domainCreate */
    qemudDomainDefine, /* domainDefineXML */
    qemudDomainUndefine, /* domainUndefine */
8224
    qemudDomainAttachDevice, /* domainAttachDevice */
8225
    qemudDomainDetachDevice, /* domainDetachDevice */
8226 8227
    qemudDomainGetAutostart, /* domainGetAutostart */
    qemudDomainSetAutostart, /* domainSetAutostart */
8228 8229 8230
    qemuGetSchedulerType, /* domainGetSchedulerType */
    qemuGetSchedulerParameters, /* domainGetSchedulerParameters */
    qemuSetSchedulerParameters, /* domainSetSchedulerParameters */
D
Daniel Veillard 已提交
8231 8232
    NULL, /* domainMigratePrepare (v1) */
    qemudDomainMigratePerform, /* domainMigratePerform */
8233
    NULL, /* domainMigrateFinish */
8234
    qemudDomainBlockStats, /* domainBlockStats */
8235
    qemudDomainInterfaceStats, /* domainInterfaceStats */
8236
    qemudDomainMemoryStats, /* domainMemoryStats */
8237
    qemudDomainBlockPeek, /* domainBlockPeek */
R
Richard W.M. Jones 已提交
8238
    qemudDomainMemoryPeek, /* domainMemoryPeek */
8239 8240
    nodeGetCellsFreeMemory, /* nodeGetCellsFreeMemory */
    nodeGetFreeMemory,  /* getFreeMemory */
8241 8242
    qemudDomainEventRegister, /* domainEventRegister */
    qemudDomainEventDeregister, /* domainEventDeregister */
D
Daniel Veillard 已提交
8243 8244
    qemudDomainMigratePrepare2, /* domainMigratePrepare2 */
    qemudDomainMigrateFinish2, /* domainMigrateFinish2 */
8245 8246 8247
    qemudNodeDeviceDettach, /* nodeDeviceDettach */
    qemudNodeDeviceReAttach, /* nodeDeviceReAttach */
    qemudNodeDeviceReset, /* nodeDeviceReset */
C
Chris Lalancette 已提交
8248
    qemudDomainMigratePrepareTunnel, /* domainMigratePrepareTunnel */
8249 8250 8251 8252
    qemuIsEncrypted,
    qemuIsSecure,
    qemuDomainIsActive,
    qemuDomainIsPersistent,
8253
    qemuCPUCompare, /* cpuCompare */
8254 8255 8256
};


8257
static virStateDriver qemuStateDriver = {
8258
    .name = "QEMU",
8259 8260 8261 8262
    .initialize = qemudStartup,
    .cleanup = qemudShutdown,
    .reload = qemudReload,
    .active = qemudActive,
8263
};
8264

8265
int qemuRegister(void) {
8266 8267 8268 8269
    virRegisterDriver(&qemuDriver);
    virRegisterStateDriver(&qemuStateDriver);
    return 0;
}