qemu_driver.c 92.1 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 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 26

#ifdef WITH_QEMU
27

D
Daniel P. Berrange 已提交
28 29 30 31 32 33 34 35 36 37 38
#include <sys/types.h>
#include <sys/poll.h>
#include <dirent.h>
#include <limits.h>
#include <string.h>
#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 44
#include <sys/stat.h>
#include <fcntl.h>
#include <signal.h>
#include <paths.h>
#include <ctype.h>
45 46
#include <pwd.h>
#include <stdio.h>
47
#include <sys/wait.h>
48
#include <libxml/uri.h>
D
Daniel P. Berrange 已提交
49

50
#include "libvirt/virterror.h"
D
Daniel P. Berrange 已提交
51

52
#include "event.h"
53
#include "buf.h"
54
#include "util.h"
55 56
#include "qemu_driver.h"
#include "qemu_conf.h"
57
#include "nodeinfo.h"
58
#include "stats_linux.h"
59
#include "capabilities.h"
60

61 62
static int qemudShutdown(void);

63 64 65
/* qemudDebug statements should be changed to use this macro instead. */
#define DEBUG(fmt,...) VIR_DEBUG(__FILE__, fmt, __VA_ARGS__)
#define DEBUG0(msg) VIR_DEBUG(__FILE__, "%s", msg)
66

67 68
#define qemudLog(level, msg...) fprintf(stderr, msg)

69 70 71 72 73 74 75 76 77
static int qemudSetCloseExec(int fd) {
    int flags;
    if ((flags = fcntl(fd, F_GETFD)) < 0)
        goto error;
    flags |= FD_CLOEXEC;
    if ((fcntl(fd, F_SETFD, flags)) < 0)
        goto error;
    return 0;
 error:
J
Jim Meyering 已提交
78 79
    qemudLog(QEMUD_ERR,
             "%s", _("Failed to set close-on-exec file descriptor flag"));
80 81 82 83 84 85 86 87 88 89 90 91 92
    return -1;
}


static int qemudSetNonBlock(int fd) {
    int flags;
    if ((flags = fcntl(fd, F_GETFL)) < 0)
        goto error;
    flags |= O_NONBLOCK;
    if ((fcntl(fd, F_SETFL, flags)) < 0)
        goto error;
    return 0;
 error:
J
Jim Meyering 已提交
93 94
    qemudLog(QEMUD_ERR,
             "%s", _("Failed to set non-blocking file descriptor flag"));
95 96 97 98
    return -1;
}


99
static void qemudDispatchVMEvent(int fd, int events, void *opaque);
100 101 102
static int qemudStartVMDaemon(virConnectPtr conn,
                              struct qemud_driver *driver,
                              struct qemud_vm *vm);
103

104 105 106
static void qemudShutdownVMDaemon(virConnectPtr conn,
                                  struct qemud_driver *driver,
                                  struct qemud_vm *vm);
107

108 109 110
static int qemudStartNetworkDaemon(virConnectPtr conn,
                                   struct qemud_driver *driver,
                                   struct qemud_network *network);
111

112 113 114
static int qemudShutdownNetworkDaemon(virConnectPtr conn,
                                      struct qemud_driver *driver,
                                      struct qemud_network *network);
115

J
Jim Meyering 已提交
116
static struct qemud_driver *qemu_driver = NULL;
117 118 119 120 121 122 123 124 125 126 127 128 129


static
void qemudAutostartConfigs(struct qemud_driver *driver) {
    struct qemud_network *network;
    struct qemud_vm *vm;

    network = driver->networks;
    while (network != NULL) {
        struct qemud_network *next = network->next;

        if (network->autostart &&
            !qemudIsActiveNetwork(network) &&
130
            qemudStartNetworkDaemon(NULL, driver, network) < 0) {
131
            virErrorPtr err = virGetLastError();
132
            qemudLog(QEMUD_ERR, _("Failed to autostart network '%s': %s"),
133 134 135 136 137 138 139 140 141 142 143 144
                     network->def->name, err->message);
        }

        network = next;
    }

    vm = driver->vms;
    while (vm != NULL) {
        struct qemud_vm *next = vm->next;

        if (vm->autostart &&
            !qemudIsActiveVM(vm) &&
145
            qemudStartVMDaemon(NULL, driver, vm) < 0) {
146
            virErrorPtr err = virGetLastError();
147
            qemudLog(QEMUD_ERR, _("Failed to autostart VM '%s': %s"),
148 149 150 151 152
                     vm->def->name, err->message);
        }

        vm = next;
    }
153 154
}

155 156 157 158 159 160 161
/**
 * qemudStartup:
 *
 * Initialization function for the QEmu daemon
 */
static int
qemudStartup(void) {
162 163 164
    uid_t uid = geteuid();
    struct passwd *pw;
    char *base = NULL;
D
Daniel P. Berrange 已提交
165
    char driverConf[PATH_MAX];
166

167
    if (!(qemu_driver = calloc(1, sizeof(*qemu_driver)))) {
168 169 170 171 172 173 174 175 176 177
        return -1;
    }

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

    if (!uid) {
        if (snprintf(qemu_driver->logDir, PATH_MAX, "%s/log/libvirt/qemu", LOCAL_STATE_DIR) >= PATH_MAX)
            goto snprintf_error;

D
Daniel P. Berrange 已提交
178
        if ((base = strdup (SYSCONF_DIR "/libvirt")) == NULL)
179 180 181
            goto out_of_memory;
    } else {
        if (!(pw = getpwuid(uid))) {
182
            qemudLog(QEMUD_ERR, _("Failed to find user record for uid '%d': %s"),
183 184 185 186 187 188 189
                     uid, strerror(errno));
            goto out_of_memory;
        }

        if (snprintf(qemu_driver->logDir, PATH_MAX, "%s/.libvirt/qemu/log", pw->pw_dir) >= PATH_MAX)
            goto snprintf_error;

D
Daniel P. Berrange 已提交
190
        if (asprintf (&base, "%s/.libvirt", pw->pw_dir) == -1) {
J
Jim Meyering 已提交
191 192
            qemudLog (QEMUD_ERR,
                      "%s", _("out of memory in asprintf"));
193 194 195 196 197 198 199
            goto out_of_memory;
        }
    }

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

D
Daniel P. Berrange 已提交
204
    if (asprintf (&qemu_driver->configDir, "%s/qemu", base) == -1)
205 206
        goto out_of_memory;

D
Daniel P. Berrange 已提交
207
    if (asprintf (&qemu_driver->autostartDir, "%s/qemu/autostart", base) == -1)
208 209
        goto out_of_memory;

D
Daniel P. Berrange 已提交
210 211 212 213
    if (asprintf (&qemu_driver->networkConfigDir, "%s/qemu/networks", base) == -1)
        goto out_of_memory;

    if (asprintf (&qemu_driver->networkAutostartDir, "%s/qemu/networks/autostart",
214 215 216
                  base) == -1)
        goto out_of_memory;

D
Daniel P. Berrange 已提交
217
    free(base);
218 219 220 221
    base = NULL;

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

    if (qemudLoadDriverConfig(qemu_driver, driverConf) < 0) {
224
        qemudShutdown();
D
Daniel P. Berrange 已提交
225 226 227 228 229 230 231
        return -1;
    }

    if (qemudScanConfigs(qemu_driver) < 0) {
        qemudShutdown();
        return -1;
    }
232 233 234 235 236
    qemudAutostartConfigs(qemu_driver);

    return 0;

 snprintf_error:
237
    qemudLog(QEMUD_ERR,
J
Jim Meyering 已提交
238
             "%s", _("Resulting path to long for buffer in qemudInitPaths()"));
239 240 241
    return -1;

 out_of_memory:
J
Jim Meyering 已提交
242 243
    qemudLog (QEMUD_ERR,
              "%s", _("qemudStartup: out of memory"));
244
    free (base);
245 246 247 248 249
    free(qemu_driver);
    qemu_driver = NULL;
    return -1;
}

250 251 252 253 254 255 256 257
/**
 * qemudReload:
 *
 * Function to restart the QEmu daemon, it will recheck the configuration
 * files and update its state and the networking
 */
static int
qemudReload(void) {
258 259 260
    qemudScanConfigs(qemu_driver);

     if (qemu_driver->iptables) {
J
Jim Meyering 已提交
261 262
        qemudLog(QEMUD_INFO,
                 "%s", _("Reloading iptables rules"));
263
        iptablesReloadRules(qemu_driver->iptables);
264
    }
265 266

    qemudAutostartConfigs(qemu_driver);
267 268

    return 0;
269 270
}

271 272 273 274 275 276 277 278 279 280
/**
 * 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) {
281 282 283 284 285 286 287 288 289 290 291
    /* If we've any active networks or guests, then we
     * mark this driver as active
     */
    if (qemu_driver->nactivenetworks &&
        qemu_driver->nactivevms)
        return 1;

    /* Otherwise we're happy to deal with a shutdown */
    return 0;
}

292 293 294 295 296 297 298
/**
 * qemudShutdown:
 *
 * Shutdown the QEmu daemon, it will stop all active domains and networks
 */
static int
qemudShutdown(void) {
299 300 301
    struct qemud_vm *vm;
    struct qemud_network *network;

302
    if (!qemu_driver)
303
        return -1;
304

305 306
    virCapabilitiesFree(qemu_driver->caps);

307
    /* shutdown active VMs */
308
    vm = qemu_driver->vms;
309 310 311
    while (vm) {
        struct qemud_vm *next = vm->next;
        if (qemudIsActiveVM(vm))
312
            qemudShutdownVMDaemon(NULL, qemu_driver, vm);
313 314
        if (!vm->configFile[0])
            qemudRemoveInactiveVM(qemu_driver, vm);
315 316
        vm = next;
    }
317

318
    /* free inactive VMs */
319
    vm = qemu_driver->vms;
320 321 322 323 324
    while (vm) {
        struct qemud_vm *next = vm->next;
        qemudFreeVM(vm);
        vm = next;
    }
325 326 327
    qemu_driver->vms = NULL;
    qemu_driver->nactivevms = 0;
    qemu_driver->ninactivevms = 0;
328 329

    /* shutdown active networks */
330
    network = qemu_driver->networks;
331 332 333
    while (network) {
        struct qemud_network *next = network->next;
        if (qemudIsActiveNetwork(network))
334
            qemudShutdownNetworkDaemon(NULL, qemu_driver, network);
335 336
        network = next;
    }
337

338
    /* free inactive networks */
339
    network = qemu_driver->networks;
340 341 342 343 344
    while (network) {
        struct qemud_network *next = network->next;
        qemudFreeNetwork(network);
        network = next;
    }
345 346 347 348
    qemu_driver->networks = NULL;
    qemu_driver->nactivenetworks = 0;
    qemu_driver->ninactivenetworks = 0;

349 350 351 352 353
    free(qemu_driver->configDir);
    free(qemu_driver->autostartDir);
    free(qemu_driver->networkConfigDir);
    free(qemu_driver->networkAutostartDir);
    free(qemu_driver->vncTLSx509certdir);
D
Daniel P. Berrange 已提交
354

355 356 357 358 359 360 361
    if (qemu_driver->brctl)
        brShutdown(qemu_driver->brctl);
    if (qemu_driver->iptables)
        iptablesContextFree(qemu_driver->iptables);

    free(qemu_driver);
    qemu_driver = NULL;
362 363

    return 0;
364 365 366
}

/* Return -1 for error, 1 to continue reading and 0 for success */
367 368
typedef int qemudHandlerMonitorOutput(virConnectPtr conn,
                                      struct qemud_driver *driver,
369 370 371 372 373
                                      struct qemud_vm *vm,
                                      const char *output,
                                      int fd);

static int
374 375
qemudReadMonitorOutput(virConnectPtr conn,
                       struct qemud_driver *driver,
376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393
                       struct qemud_vm *vm,
                       int fd,
                       char *buf,
                       int buflen,
                       qemudHandlerMonitorOutput func,
                       const char *what)
{
#define MONITOR_TIMEOUT 3000

    int got = 0;
    buf[0] = '\0';

   /* Consume & discard the initial greeting */
    while (got < (buflen-1)) {
        int ret;

        ret = read(fd, buf+got, buflen-got-1);
        if (ret == 0) {
394
            qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
395
                             _("QEMU quit during %s startup\n%s"), what, buf);
396 397 398 399 400 401 402 403
            return -1;
        }
        if (ret < 0) {
            struct pollfd pfd = { .fd = fd, .events = POLLIN };
            if (errno == EINTR)
                continue;

            if (errno != EAGAIN) {
404
                qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
405
                                 _("Failure while reading %s startup output: %s"),
406 407 408 409 410 411
                                 what, strerror(errno));
                return -1;
            }

            ret = poll(&pfd, 1, MONITOR_TIMEOUT);
            if (ret == 0) {
412
                qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
413
                                 _("Timed out while reading %s startup output"), what);
414 415 416
                return -1;
            } else if (ret == -1) {
                if (errno != EINTR) {
417
                    qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
418
                                     _("Failure while reading %s startup output: %s"),
419 420 421 422 423 424 425 426 427
                                     what, strerror(errno));
                    return -1;
                }
            } else {
                /* Make sure we continue loop & read any further data
                   available before dealing with EOF */
                if (pfd.revents & (POLLIN | POLLHUP))
                    continue;

428
                qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
429
                                 _("Failure while reading %s startup output"), what);
430 431 432 433 434
                return -1;
            }
        } else {
            got += ret;
            buf[got] = '\0';
435
            if ((ret = func(conn, driver, vm, buf, fd)) != 1)
436 437 438 439
                return ret;
        }
    }

440
    qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
441
                     _("Out of space while reading %s startup output"), what);
442 443 444 445 446 447
    return -1;

#undef MONITOR_TIMEOUT
}

static int
448 449
qemudCheckMonitorPrompt(virConnectPtr conn ATTRIBUTE_UNUSED,
                        struct qemud_driver *driver ATTRIBUTE_UNUSED,
450 451 452 453 454 455 456 457 458 459 460 461
                        struct qemud_vm *vm,
                        const char *output,
                        int fd)
{
    if (strstr(output, "(qemu) ") == NULL)
        return 1; /* keep reading */

    vm->monitor = fd;

    return 0;
}

462 463 464 465
static int qemudOpenMonitor(virConnectPtr conn,
                            struct qemud_driver *driver,
                            struct qemud_vm *vm,
                            const char *monitor) {
466 467 468 469 470
    int monfd;
    char buf[1024];
    int ret = -1;

    if (!(monfd = open(monitor, O_RDWR))) {
471
        qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
472
                         _("Unable to open monitor path %s"), monitor);
473 474 475
        return -1;
    }
    if (qemudSetCloseExec(monfd) < 0) {
476
        qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
477
                         _("Unable to set monitor close-on-exec flag"));
478 479 480
        goto error;
    }
    if (qemudSetNonBlock(monfd) < 0) {
481
        qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
482
                         _("Unable to put monitor into non-blocking mode"));
483 484 485
        goto error;
    }

486 487
    ret = qemudReadMonitorOutput(conn,
                                 driver, vm, monfd,
488 489 490
                                 buf, sizeof(buf),
                                 qemudCheckMonitorPrompt,
                                 "monitor");
491 492 493 494 495

    /* Keep monitor open upon success */
    if (ret == 0)
        return ret;

496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531
 error:
    close(monfd);
    return ret;
}

static int qemudExtractMonitorPath(const char *haystack, char *path, int pathmax) {
    static const char needle[] = "char device redirected to";
    char *tmp;

    if (!(tmp = strstr(haystack, needle)))
        return -1;

    strncpy(path, tmp+sizeof(needle), pathmax-1);
    path[pathmax-1] = '\0';

    while (*path) {
        /*
         * The monitor path ends at first whitespace char
         * so lets search for it & NULL terminate it there
         */
        if (isspace(*path)) {
            *path = '\0';
            return 0;
        }
        path++;
    }

    /*
     * We found a path, but didn't find any whitespace,
     * so it must be still incomplete - we should at
     * least see a \n
     */
    return -1;
}

static int
532 533
qemudOpenMonitorPath(virConnectPtr conn,
                     struct qemud_driver *driver,
534 535 536 537 538 539 540 541 542
                     struct qemud_vm *vm,
                     const char *output,
                     int fd ATTRIBUTE_UNUSED)
{
    char monitor[PATH_MAX];

    if (qemudExtractMonitorPath(output, monitor, sizeof(monitor)) < 0)
        return 1; /* keep reading */

543
    return qemudOpenMonitor(conn, driver, vm, monitor);
544 545
}

546 547 548
static int qemudWaitForMonitor(virConnectPtr conn,
                               struct qemud_driver *driver,
                               struct qemud_vm *vm) {
549
    char buf[1024]; /* Plenty of space to get startup greeting */
550 551
    int ret = qemudReadMonitorOutput(conn,
                                     driver, vm, vm->stderr,
552 553 554 555 556
                                     buf, sizeof(buf),
                                     qemudOpenMonitorPath,
                                     "console");

    buf[sizeof(buf)-1] = '\0';
557 558

    if (safewrite(vm->logfile, buf, strlen(buf)) < 0) {
559
        /* Log, but ignore failures to write logfile for VM */
560
        qemudLog(QEMUD_WARN, _("Unable to log VM console data: %s"),
561 562 563 564 565
                 strerror(errno));
    }
    return ret;
}

566
static int qemudNextFreeVNCPort(struct qemud_driver *driver ATTRIBUTE_UNUSED) {
567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594 595 596 597 598 599 600 601
    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;
}

602 603 604
static int qemudStartVMDaemon(virConnectPtr conn,
                              struct qemud_driver *driver,
                              struct qemud_vm *vm) {
605
    char **argv = NULL, **tmp;
606
    int i;
607 608 609
    char logfile[PATH_MAX];

    if (qemudIsActiveVM(vm)) {
610
        qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
611
                         _("VM is already active"));
612 613 614 615
        return -1;
    }

    if (vm->def->vncPort < 0) {
616
        int port = qemudNextFreeVNCPort(driver);
617
        if (port < 0) {
618
            qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
619
                             _("Unable to find an unused VNC port"));
620 621 622 623 624 625
            return -1;
        }
        vm->def->vncActivePort = port;
    } else
        vm->def->vncActivePort = vm->def->vncPort;

626
    if ((strlen(driver->logDir) + /* path */
627 628 629 630
         1 + /* Separator */
         strlen(vm->def->name) + /* basename */
         4 + /* suffix .log */
         1 /* NULL */) > PATH_MAX) {
631
        qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
632
                         _("config file path too long: %s/%s.log"),
633
                         driver->logDir, vm->def->name);
634 635
        return -1;
    }
636
    strcpy(logfile, driver->logDir);
637 638 639 640
    strcat(logfile, "/");
    strcat(logfile, vm->def->name);
    strcat(logfile, ".log");

641
    if (virFileMakePath(driver->logDir) < 0) {
642
        qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
643
                         _("cannot create log directory %s: %s"),
644
                         driver->logDir, strerror(errno));
645 646 647 648 649
        return -1;
    }

    if ((vm->logfile = open(logfile, O_CREAT | O_TRUNC | O_WRONLY,
                            S_IRUSR | S_IWUSR)) < 0) {
650
        qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
651
                         _("failed to create logfile %s: %s"),
652 653 654
                         logfile, strerror(errno));
        return -1;
    }
655 656
    if (qemudSetCloseExec(vm->logfile) < 0) {
        qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
657
                         _("Unable to set VM logfile close-on-exec flag %s"),
658 659 660 661 662
                         strerror(errno));
        close(vm->logfile);
        vm->logfile = -1;
        return -1;
    }
663

664
    if (qemudBuildCommandLine(conn, driver, vm, &argv) < 0) {
665 666 667 668 669 670 671
        close(vm->logfile);
        vm->logfile = -1;
        return -1;
    }

    tmp = argv;
    while (*tmp) {
672
        if (safewrite(vm->logfile, *tmp, strlen(*tmp)) < 0)
673
            qemudLog(QEMUD_WARN, _("Unable to write argv to logfile %d: %s"),
674
                     errno, strerror(errno));
675
        if (safewrite(vm->logfile, " ", 1) < 0)
676
            qemudLog(QEMUD_WARN, _("Unable to write argv to logfile %d: %s"),
677 678 679
                     errno, strerror(errno));
        tmp++;
    }
680
    if (safewrite(vm->logfile, "\n", 1) < 0)
681
        qemudLog(QEMUD_WARN, _("Unable to write argv to logfile %d: %s"),
682 683
                 errno, strerror(errno));

684
    if (virExecNonBlock(conn, argv, &vm->pid,
685
                        vm->stdin, &vm->stdout, &vm->stderr) == 0) {
686
        vm->id = driver->nextvmid++;
687
        vm->state = vm->migrateFrom[0] ? VIR_DOMAIN_PAUSED : VIR_DOMAIN_RUNNING;
688

689 690
        driver->ninactivevms--;
        driver->nactivevms++;
691 692
    }

693 694 695 696
    for (i = 0 ; argv[i] ; i++)
        free(argv[i]);
    free(argv);

697 698 699 700 701 702 703 704 705 706
    if (vm->tapfds) {
        for (i = 0; vm->tapfds[i] != -1; i++) {
            close(vm->tapfds[i]);
            vm->tapfds[i] = -1;
        }
        free(vm->tapfds);
        vm->tapfds = NULL;
        vm->ntapfds = 0;
    }

707 708 709
    if (virEventAddHandle(vm->stdout,
                          POLLIN | POLLERR | POLLHUP,
                          qemudDispatchVMEvent,
710
                          driver) < 0) {
711
        qemudShutdownVMDaemon(conn, driver, vm);
712 713 714 715 716 717
        return -1;
    }

    if (virEventAddHandle(vm->stderr,
                          POLLIN | POLLERR | POLLHUP,
                          qemudDispatchVMEvent,
718
                          driver) < 0) {
719
        qemudShutdownVMDaemon(conn, driver, vm);
720 721 722
        return -1;
    }

723 724
    if (qemudWaitForMonitor(conn, driver, vm) < 0) {
        qemudShutdownVMDaemon(conn, driver, vm);
725 726 727 728
        return -1;
    }

    return 0;
729 730
}

731
static int qemudVMData(struct qemud_driver *driver ATTRIBUTE_UNUSED,
732 733 734 735 736 737 738 739 740 741 742 743 744 745 746 747 748
                       struct qemud_vm *vm, int fd) {
    char buf[4096];
    if (vm->pid < 0)
        return 0;

    for (;;) {
        int ret = read(fd, buf, sizeof(buf)-1);
        if (ret < 0) {
            if (errno == EAGAIN)
                return 0;
            return -1;
        }
        if (ret == 0) {
            return 0;
        }
        buf[ret] = '\0';

749
        if (safewrite(vm->logfile, buf, ret) < 0) {
750
            /* Log, but ignore failures to write logfile for VM */
751
            qemudLog(QEMUD_WARN, _("Unable to log VM console data: %s"),
752 753 754
                     strerror(errno));
        }
    }
755 756

    qemudAutostartConfigs(qemu_driver);
757 758 759
}


760 761
static void qemudShutdownVMDaemon(virConnectPtr conn ATTRIBUTE_UNUSED,
                                  struct qemud_driver *driver, struct qemud_vm *vm) {
762
    if (!qemudIsActiveVM(vm))
763
        return;
764

765
    qemudLog(QEMUD_INFO, _("Shutting down VM '%s'"), vm->def->name);
766 767 768

    kill(vm->pid, SIGTERM);

769 770
    qemudVMData(driver, vm, vm->stdout);
    qemudVMData(driver, vm, vm->stderr);
771 772 773 774 775

    virEventRemoveHandle(vm->stdout);
    virEventRemoveHandle(vm->stderr);

    if (close(vm->logfile) < 0)
776 777
        qemudLog(QEMUD_WARN, _("Unable to close logfile %d: %s"),
                 errno, strerror(errno));
778 779 780 781 782 783 784 785 786 787 788 789
    close(vm->stdout);
    close(vm->stderr);
    if (vm->monitor != -1)
        close(vm->monitor);
    vm->logfile = -1;
    vm->stdout = -1;
    vm->stderr = -1;
    vm->monitor = -1;

    if (waitpid(vm->pid, NULL, WNOHANG) != vm->pid) {
        kill(vm->pid, SIGKILL);
        if (waitpid(vm->pid, NULL, 0) != vm->pid) {
J
Jim Meyering 已提交
790 791
            qemudLog(QEMUD_WARN,
                     "%s", _("Got unexpected pid, damn"));
792 793 794 795 796
        }
    }

    vm->pid = -1;
    vm->id = -1;
797
    vm->state = VIR_DOMAIN_SHUTOFF;
798 799 800 801 802 803 804

    if (vm->newDef) {
        qemudFreeVMDef(vm->def);
        vm->def = vm->newDef;
        vm->newDef = NULL;
    }

805 806
    driver->nactivevms--;
    driver->ninactivevms++;
807 808
}

809
static int qemudDispatchVMLog(struct qemud_driver *driver, struct qemud_vm *vm, int fd) {
810 811 812 813 814
    if (qemudVMData(driver, vm, fd) < 0) {
        qemudShutdownVMDaemon(NULL, driver, vm);
        if (!vm->configFile[0])
            qemudRemoveInactiveVM(driver, vm);
    }
815 816 817
    return 0;
}

818
static int qemudDispatchVMFailure(struct qemud_driver *driver, struct qemud_vm *vm,
819
                                  int fd ATTRIBUTE_UNUSED) {
820 821 822
    qemudShutdownVMDaemon(NULL, driver, vm);
    if (!vm->configFile[0])
        qemudRemoveInactiveVM(driver, vm);
823 824 825 826
    return 0;
}

static int
827 828
qemudBuildDnsmasqArgv(virConnectPtr conn,
                      struct qemud_network *network,
829 830 831 832 833 834 835 836 837 838 839 840 841 842 843 844 845 846 847
                      char ***argv) {
    int i, len;
    char buf[PATH_MAX];
    struct qemud_dhcp_range_def *range;

    len =
        1 + /* dnsmasq */
        1 + /* --keep-in-foreground */
        1 + /* --strict-order */
        1 + /* --bind-interfaces */
        2 + /* --pid-file "" */
        2 + /* --conf-file "" */
        /*2 + *//* --interface virbr0 */
        2 + /* --except-interface lo */
        2 + /* --listen-address 10.0.0.1 */
        1 + /* --dhcp-leasefile=path */
        (2 * network->def->nranges) + /* --dhcp-range 10.0.0.2,10.0.0.254 */
        1;  /* NULL */

848
    if (!(*argv = calloc(len, sizeof(**argv))))
849 850 851 852 853 854 855 856 857
        goto no_memory;

#define APPEND_ARG(v, n, s) do {     \
        if (!((v)[(n)] = strdup(s))) \
            goto no_memory;          \
    } while (0)

    i = 0;

858
    APPEND_ARG(*argv, i++, DNSMASQ);
859 860 861 862

    APPEND_ARG(*argv, i++, "--keep-in-foreground");
    /*
     * Needed to ensure dnsmasq uses same algorithm for processing
863
     * multiple namedriver entries in /etc/resolv.conf as GLibC.
864 865 866 867 868 869 870 871 872 873 874 875 876 877 878 879 880 881 882 883 884 885 886 887 888 889 890 891 892 893 894 895 896 897 898 899 900 901 902 903 904 905 906 907 908 909 910 911 912 913 914 915 916 917 918
     */
    APPEND_ARG(*argv, i++, "--strict-order");
    APPEND_ARG(*argv, i++, "--bind-interfaces");

    APPEND_ARG(*argv, i++, "--pid-file");
    APPEND_ARG(*argv, i++, "");

    APPEND_ARG(*argv, i++, "--conf-file");
    APPEND_ARG(*argv, i++, "");

    /*
     * XXX does not actually work, due to some kind of
     * race condition setting up ipv6 addresses on the
     * interface. A sleep(10) makes it work, but that's
     * clearly not practical
     *
     * APPEND_ARG(*argv, i++, "--interface");
     * APPEND_ARG(*argv, i++, network->def->bridge);
     */
    APPEND_ARG(*argv, i++, "--listen-address");
    APPEND_ARG(*argv, i++, network->def->ipAddress);

    APPEND_ARG(*argv, i++, "--except-interface");
    APPEND_ARG(*argv, i++, "lo");

    /*
     * NB, dnsmasq command line arg bug means we need to
     * use a single arg '--dhcp-leasefile=path' rather than
     * two separate args in '--dhcp-leasefile path' style
     */
    snprintf(buf, sizeof(buf), "--dhcp-leasefile=%s/lib/libvirt/dhcp-%s.leases",
             LOCAL_STATE_DIR, network->def->name);
    APPEND_ARG(*argv, i++, buf);

    range = network->def->ranges;
    while (range) {
        snprintf(buf, sizeof(buf), "%s,%s",
                 range->start, range->end);

        APPEND_ARG(*argv, i++, "--dhcp-range");
        APPEND_ARG(*argv, i++, buf);

        range = range->next;
    }

#undef APPEND_ARG

    return 0;

 no_memory:
    if (argv) {
        for (i = 0; (*argv)[i]; i++)
            free((*argv)[i]);
        free(*argv);
    }
919
    qemudReportError(conn, NULL, NULL, VIR_ERR_NO_MEMORY, "dnsmasq argv");
920 921 922 923 924
    return -1;
}


static int
925 926
dhcpStartDhcpDaemon(virConnectPtr conn,
                    struct qemud_network *network)
927 928 929 930 931
{
    char **argv;
    int ret, i;

    if (network->def->ipAddress[0] == '\0') {
932
        qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
933
                         _("cannot start dhcp daemon without IP address for server"));
934 935 936 937
        return -1;
    }

    argv = NULL;
938
    if (qemudBuildDnsmasqArgv(conn, network, &argv) < 0)
939 940
        return -1;

941
    ret = virExecNonBlock(conn, argv, &network->dnsmasqPid, -1, NULL, NULL);
942 943 944 945 946 947 948 949 950

    for (i = 0; argv[i]; i++)
        free(argv[i]);
    free(argv);

    return ret;
}

static int
951 952
qemudAddIptablesRules(virConnectPtr conn,
                      struct qemud_driver *driver,
953 954 955
                      struct qemud_network *network) {
    int err;

956
    if (!driver->iptables && !(driver->iptables = iptablesContextNew())) {
957
        qemudReportError(conn, NULL, NULL, VIR_ERR_NO_MEMORY, "iptables support");
958 959 960 961 962
        return 1;
    }


    /* allow DHCP requests through to dnsmasq */
963
    if ((err = iptablesAddTcpInput(driver->iptables, network->bridge, 67))) {
964
        qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
965
                         _("failed to add iptables rule to allow DHCP requests from '%s' : %s\n"),
966 967 968 969
                         network->bridge, strerror(err));
        goto err1;
    }

970
    if ((err = iptablesAddUdpInput(driver->iptables, network->bridge, 67))) {
971
        qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
972
                         _("failed to add iptables rule to allow DHCP requests from '%s' : %s\n"),
973 974 975 976 977
                         network->bridge, strerror(err));
        goto err2;
    }

    /* allow DNS requests through to dnsmasq */
978
    if ((err = iptablesAddTcpInput(driver->iptables, network->bridge, 53))) {
979
        qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
980
                         _("failed to add iptables rule to allow DNS requests from '%s' : %s\n"),
981 982 983 984
                         network->bridge, strerror(err));
        goto err3;
    }

985
    if ((err = iptablesAddUdpInput(driver->iptables, network->bridge, 53))) {
986
        qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
987
                         _("failed to add iptables rule to allow DNS requests from '%s' : %s\n"),
988 989 990 991 992 993 994
                         network->bridge, strerror(err));
        goto err4;
    }


    /* Catch all rules to block forwarding to/from bridges */

995
    if ((err = iptablesAddForwardRejectOut(driver->iptables, network->bridge))) {
996
        qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
997
                         _("failed to add iptables rule to block outbound traffic from '%s' : %s\n"),
998 999 1000 1001
                         network->bridge, strerror(err));
        goto err5;
    }

1002
    if ((err = iptablesAddForwardRejectIn(driver->iptables, network->bridge))) {
1003
        qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
1004
                         _("failed to add iptables rule to block inbound traffic to '%s' : %s\n"),
1005 1006 1007 1008 1009
                         network->bridge, strerror(err));
        goto err6;
    }

    /* Allow traffic between guests on the same bridge */
1010
    if ((err = iptablesAddForwardAllowCross(driver->iptables, network->bridge))) {
1011
        qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
1012
                         _("failed to add iptables rule to allow cross bridge traffic on '%s' : %s\n"),
1013 1014 1015 1016 1017 1018
                         network->bridge, strerror(err));
        goto err7;
    }


    /* The remaining rules are only needed for IP forwarding */
1019 1020
    if (!network->def->forward) {
        iptablesSaveRules(driver->iptables);
1021
        return 1;
1022
    }
1023 1024

    /* allow forwarding packets from the bridge interface */
1025
    if ((err = iptablesAddForwardAllowOut(driver->iptables,
1026 1027 1028
                                          network->def->network,
                                          network->bridge,
                                          network->def->forwardDev))) {
1029
        qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
1030
                         _("failed to add iptables rule to allow forwarding from '%s' : %s\n"),
1031 1032 1033 1034 1035
                         network->bridge, strerror(err));
        goto err8;
    }

    /* allow forwarding packets to the bridge interface if they are part of an existing connection */
1036
    if ((err = iptablesAddForwardAllowIn(driver->iptables,
1037 1038 1039
                                         network->def->network,
                                         network->bridge,
                                         network->def->forwardDev))) {
1040
        qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
1041
                         _("failed to add iptables rule to allow forwarding to '%s' : %s\n"),
1042 1043 1044 1045 1046
                         network->bridge, strerror(err));
        goto err9;
    }

    /* enable masquerading */
1047
    if ((err = iptablesAddForwardMasquerade(driver->iptables,
1048 1049
                                            network->def->network,
                                            network->def->forwardDev))) {
1050
        qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
1051
                         _("failed to add iptables rule to enable masquerading : %s\n"),
1052 1053 1054 1055
                         strerror(err));
        goto err10;
    }

1056 1057
    iptablesSaveRules(driver->iptables);

1058 1059 1060
    return 1;

 err10:
1061
    iptablesRemoveForwardAllowIn(driver->iptables,
1062 1063 1064 1065
                                 network->def->network,
                                 network->bridge,
                                 network->def->forwardDev);
 err9:
1066
    iptablesRemoveForwardAllowOut(driver->iptables,
1067 1068 1069 1070
                                  network->def->network,
                                  network->bridge,
                                  network->def->forwardDev);
 err8:
1071
    iptablesRemoveForwardAllowCross(driver->iptables,
1072 1073
                                    network->bridge);
 err7:
1074
    iptablesRemoveForwardRejectIn(driver->iptables,
1075 1076
                                  network->bridge);
 err6:
1077
    iptablesRemoveForwardRejectOut(driver->iptables,
1078 1079
                                   network->bridge);
 err5:
1080
    iptablesRemoveUdpInput(driver->iptables, network->bridge, 53);
1081
 err4:
1082
    iptablesRemoveTcpInput(driver->iptables, network->bridge, 53);
1083
 err3:
1084
    iptablesRemoveUdpInput(driver->iptables, network->bridge, 67);
1085
 err2:
1086
    iptablesRemoveTcpInput(driver->iptables, network->bridge, 67);
1087 1088 1089 1090 1091
 err1:
    return 0;
}

static void
1092
qemudRemoveIptablesRules(struct qemud_driver *driver,
1093 1094
                         struct qemud_network *network) {
    if (network->def->forward) {
1095
        iptablesRemoveForwardMasquerade(driver->iptables,
1096 1097
                                     network->def->network,
                                     network->def->forwardDev);
1098
        iptablesRemoveForwardAllowIn(driver->iptables,
1099 1100 1101
                                   network->def->network,
                                   network->bridge,
                                   network->def->forwardDev);
1102
        iptablesRemoveForwardAllowOut(driver->iptables,
1103 1104 1105 1106
                                      network->def->network,
                                      network->bridge,
                                      network->def->forwardDev);
    }
1107 1108 1109 1110 1111 1112 1113
    iptablesRemoveForwardAllowCross(driver->iptables, network->bridge);
    iptablesRemoveForwardRejectIn(driver->iptables, network->bridge);
    iptablesRemoveForwardRejectOut(driver->iptables, network->bridge);
    iptablesRemoveUdpInput(driver->iptables, network->bridge, 53);
    iptablesRemoveTcpInput(driver->iptables, network->bridge, 53);
    iptablesRemoveUdpInput(driver->iptables, network->bridge, 67);
    iptablesRemoveTcpInput(driver->iptables, network->bridge, 67);
1114
    iptablesSaveRules(driver->iptables);
1115 1116 1117 1118 1119 1120 1121 1122 1123 1124 1125 1126
}

static int
qemudEnableIpForwarding(void)
{
#define PROC_IP_FORWARD "/proc/sys/net/ipv4/ip_forward"

    int fd, ret;

    if ((fd = open(PROC_IP_FORWARD, O_WRONLY|O_TRUNC)) == -1)
        return 0;

1127
    if (safewrite(fd, "1\n", 2) < 0)
1128 1129 1130 1131 1132 1133 1134 1135 1136
        ret = 0;

    close (fd);

    return 1;

#undef PROC_IP_FORWARD
}

1137 1138 1139
static int qemudStartNetworkDaemon(virConnectPtr conn,
                                   struct qemud_driver *driver,
                                   struct qemud_network *network) {
1140 1141 1142 1143
    const char *name;
    int err;

    if (qemudIsActiveNetwork(network)) {
1144
        qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
1145
                         _("network is already active"));
1146 1147 1148
        return -1;
    }

1149
    if (!driver->brctl && (err = brInit(&driver->brctl))) {
1150
        qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
1151
                         _("cannot initialize bridge support: %s"), strerror(err));
1152 1153 1154 1155 1156 1157 1158 1159 1160 1161
        return -1;
    }

    if (network->def->bridge[0] == '\0' ||
        strchr(network->def->bridge, '%')) {
        name = "vnet%d";
    } else {
        name = network->def->bridge;
    }

1162
    if ((err = brAddBridge(driver->brctl, name, network->bridge, sizeof(network->bridge)))) {
1163
        qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
1164
                         _("cannot create bridge '%s' : %s"), name, strerror(err));
1165 1166 1167
        return -1;
    }

1168 1169 1170

    if (network->def->forwardDelay &&
        (err = brSetForwardDelay(driver->brctl, network->bridge, network->def->forwardDelay))) {
1171
        qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
1172
                         _("failed to set bridge forward delay to %d\n"),
1173 1174 1175 1176
                         network->def->forwardDelay);
        goto err_delbr;
    }

1177
    if ((err = brSetEnableSTP(driver->brctl, network->bridge, network->def->disableSTP ? 0 : 1))) {
1178
        qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
1179
                         _("failed to set bridge STP to %s\n"),
1180 1181 1182 1183
                         network->def->disableSTP ? "off" : "on");
        goto err_delbr;
    }

1184
    if (network->def->ipAddress[0] &&
1185
        (err = brSetInetAddress(driver->brctl, network->bridge, network->def->ipAddress))) {
1186
        qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
1187
                         _("cannot set IP address on bridge '%s' to '%s' : %s\n"),
1188 1189 1190 1191 1192
                         network->bridge, network->def->ipAddress, strerror(err));
        goto err_delbr;
    }

    if (network->def->netmask[0] &&
1193
        (err = brSetInetNetmask(driver->brctl, network->bridge, network->def->netmask))) {
1194
        qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
1195
                         _("cannot set netmask on bridge '%s' to '%s' : %s\n"),
1196 1197 1198 1199 1200
                         network->bridge, network->def->netmask, strerror(err));
        goto err_delbr;
    }

    if (network->def->ipAddress[0] &&
1201
        (err = brSetInterfaceUp(driver->brctl, network->bridge, 1))) {
1202
        qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
1203
                         _("failed to bring the bridge '%s' up : %s\n"),
1204 1205 1206 1207
                         network->bridge, strerror(err));
        goto err_delbr;
    }

1208
    if (!qemudAddIptablesRules(conn, driver, network))
1209 1210 1211 1212
        goto err_delbr1;

    if (network->def->forward &&
        !qemudEnableIpForwarding()) {
1213
        qemudReportError(conn, NULL, NULL, VIR_ERR_INTERNAL_ERROR,
1214
                         _("failed to enable IP forwarding : %s\n"), strerror(err));
1215 1216 1217 1218
        goto err_delbr2;
    }

    if (network->def->ranges &&
1219
        dhcpStartDhcpDaemon(conn, network) < 0)
1220 1221 1222 1223
        goto err_delbr2;

    network->active = 1;

1224 1225
    driver->ninactivenetworks--;
    driver->nactivenetworks++;
1226 1227 1228 1229

    return 0;

 err_delbr2:
1230
    qemudRemoveIptablesRules(driver, network);
1231 1232 1233

 err_delbr1:
    if (network->def->ipAddress[0] &&
1234
        (err = brSetInterfaceUp(driver->brctl, network->bridge, 0))) {
1235
        qemudLog(QEMUD_WARN, _("Failed to bring down bridge '%s' : %s"),
1236 1237 1238 1239
                 network->bridge, strerror(err));
    }

 err_delbr:
1240
    if ((err = brDeleteBridge(driver->brctl, network->bridge))) {
1241
        qemudLog(QEMUD_WARN, _("Failed to delete bridge '%s' : %s\n"),
1242 1243 1244 1245 1246 1247 1248
                 network->bridge, strerror(err));
    }

    return -1;
}


1249 1250 1251
static int qemudShutdownNetworkDaemon(virConnectPtr conn ATTRIBUTE_UNUSED,
                                      struct qemud_driver *driver,
                                      struct qemud_network *network) {
1252 1253
    int err;

1254
    qemudLog(QEMUD_INFO, _("Shutting down network '%s'"), network->def->name);
1255 1256 1257 1258 1259 1260 1261

    if (!qemudIsActiveNetwork(network))
        return 0;

    if (network->dnsmasqPid > 0)
        kill(network->dnsmasqPid, SIGTERM);

1262
    qemudRemoveIptablesRules(driver, network);
1263 1264

    if (network->def->ipAddress[0] &&
1265
        (err = brSetInterfaceUp(driver->brctl, network->bridge, 0))) {
1266
        qemudLog(QEMUD_WARN, _("Failed to bring down bridge '%s' : %s\n"),
1267 1268 1269
                 network->bridge, strerror(err));
    }

1270
    if ((err = brDeleteBridge(driver->brctl, network->bridge))) {
1271
        qemudLog(QEMUD_WARN, _("Failed to delete bridge '%s' : %s\n"),
1272 1273 1274 1275 1276 1277 1278
                 network->bridge, strerror(err));
    }

    if (network->dnsmasqPid > 0 &&
        waitpid(network->dnsmasqPid, NULL, WNOHANG) != network->dnsmasqPid) {
        kill(network->dnsmasqPid, SIGKILL);
        if (waitpid(network->dnsmasqPid, NULL, 0) != network->dnsmasqPid)
J
Jim Meyering 已提交
1279 1280
            qemudLog(QEMUD_WARN,
                     "%s", _("Got unexpected pid for dnsmasq\n"));
1281 1282 1283 1284 1285 1286 1287 1288 1289 1290 1291 1292
    }

    network->bridge[0] = '\0';
    network->dnsmasqPid = -1;
    network->active = 0;

    if (network->newDef) {
        qemudFreeNetworkDef(network->def);
        network->def = network->newDef;
        network->newDef = NULL;
    }

1293 1294
    driver->nactivenetworks--;
    driver->ninactivenetworks++;
1295

1296
    if (!network->configFile[0])
1297
        qemudRemoveInactiveNetwork(driver, network);
1298

1299 1300 1301 1302 1303
    return 0;
}


static void qemudDispatchVMEvent(int fd, int events, void *opaque) {
1304 1305
    struct qemud_driver *driver = (struct qemud_driver *)opaque;
    struct qemud_vm *vm = driver->vms;
1306 1307 1308 1309 1310 1311 1312 1313 1314 1315 1316 1317 1318

    while (vm) {
        if (qemudIsActiveVM(vm) &&
            (vm->stdout == fd ||
             vm->stderr == fd))
            break;

        vm = vm->next;
    }

    if (!vm)
        return;

1319
    if (events == POLLIN)
1320
        qemudDispatchVMLog(driver, vm, fd);
1321
    else
1322
        qemudDispatchVMFailure(driver, vm, fd);
1323 1324
}

1325 1326 1327 1328 1329
static int
qemudMonitorCommand (const struct qemud_driver *driver ATTRIBUTE_UNUSED,
                     const struct qemud_vm *vm,
                     const char *cmd,
                     char **reply) {
D
Daniel P. Berrange 已提交
1330 1331
    int size = 0;
    char *buf = NULL;
1332
    size_t cmdlen = strlen(cmd);
D
Daniel P. Berrange 已提交
1333

1334 1335 1336
    if (safewrite(vm->monitor, cmd, cmdlen) != cmdlen)
        return -1;
    if (safewrite(vm->monitor, "\r", 1) != 1)
D
Daniel P. Berrange 已提交
1337 1338 1339 1340 1341 1342 1343 1344 1345 1346 1347 1348
        return -1;

    *reply = NULL;

    for (;;) {
        struct pollfd fd = { vm->monitor, POLLIN | POLLERR | POLLHUP, 0 };
        char *tmp;

        /* Read all the data QEMU has sent thus far */
        for (;;) {
            char data[1024];
            int got = read(vm->monitor, data, sizeof(data));
1349
            char *b;
D
Daniel P. Berrange 已提交
1350

1351 1352
            if (got == 0)
                goto error;
D
Daniel P. Berrange 已提交
1353 1354 1355 1356 1357
            if (got < 0) {
                if (errno == EINTR)
                    continue;
                if (errno == EAGAIN)
                    break;
1358
                goto error;
1359
            }
1360 1361 1362
            if (!(b = realloc(buf, size+got+1)))
                goto error;

1363
            buf = b;
D
Daniel P. Berrange 已提交
1364 1365 1366 1367
            memmove(buf+size, data, got);
            buf[size+got] = '\0';
            size += got;
        }
1368

D
Daniel P. Berrange 已提交
1369
        /* Look for QEMU prompt to indicate completion */
D
Daniel P. Berrange 已提交
1370
        if (buf && ((tmp = strstr(buf, "\n(qemu) ")) != NULL)) {
D
Daniel P. Berrange 已提交
1371 1372 1373 1374 1375 1376 1377 1378
            tmp[0] = '\0';
            break;
        }
    pollagain:
        /* Need to wait for more data */
        if (poll(&fd, 1, -1) < 0) {
            if (errno == EINTR)
                goto pollagain;
1379
            goto error;
D
Daniel P. Berrange 已提交
1380 1381 1382
        }
    }

1383 1384
    /* Log, but ignore failures to write logfile for VM */
    if (safewrite(vm->logfile, buf, strlen(buf)) < 0)
1385
        qemudLog(QEMUD_WARN, _("Unable to log VM console data: %s"),
1386 1387
                 strerror(errno));

D
Daniel P. Berrange 已提交
1388 1389
    *reply = buf;
    return 0;
1390 1391 1392 1393 1394

 error:
    if (buf) {
        /* Log, but ignore failures to write logfile for VM */
        if (safewrite(vm->logfile, buf, strlen(buf)) < 0)
1395
            qemudLog(QEMUD_WARN, _("Unable to log VM console data: %s"),
1396 1397 1398 1399
                     strerror(errno));
        free(buf);
    }
    return -1;
D
Daniel P. Berrange 已提交
1400 1401
}

1402 1403 1404 1405 1406 1407 1408 1409 1410 1411 1412 1413 1414 1415 1416 1417 1418 1419 1420
/**
 * qemudProbe:
 *
 * Probe for the availability of the qemu driver, assume the
 * presence of QEmu emulation if the binaries are installed
 */
static const char *qemudProbe(void)
{
    if ((virFileExists("/usr/bin/qemu")) ||
        (virFileExists("/usr/bin/qemu-kvm")) ||
	(virFileExists("/usr/bin/xenner"))) {
        if (getuid() == 0) {
	    return("qemu:///system");
	} else {
	    return("qemu:///session");
	}
    }
    return(NULL);
}
1421

1422
static virDrvOpenStatus qemudOpen(virConnectPtr conn,
1423
                                  xmlURIPtr uri,
1424
                                  virConnectAuthPtr auth ATTRIBUTE_UNUSED,
1425
                                  int flags ATTRIBUTE_UNUSED) {
1426 1427 1428
    uid_t uid = getuid();

    if (qemu_driver == NULL)
1429
        goto decline;
1430

1431 1432 1433 1434 1435 1436
    if (uri == NULL || uri->scheme == NULL || uri->path == NULL)
        goto decline;

    if (STRNEQ (uri->scheme, "qemu"))
        goto decline;

1437
    if (uid != 0) {
1438 1439
        if (STRNEQ (uri->path, "/session"))
            goto decline;
1440
    } else { /* root */
1441 1442
        if (STRNEQ (uri->path, "/system") &&
            STRNEQ (uri->path, "/session"))
1443
            goto decline;
1444 1445 1446 1447 1448
    }

    conn->privateData = qemu_driver;

    return VIR_DRV_OPEN_SUCCESS;
1449 1450

 decline:
1451
    return VIR_DRV_OPEN_DECLINED;
1452 1453 1454 1455 1456 1457 1458 1459 1460 1461 1462
}

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

    conn->privateData = NULL;

    return 0;
}

static const char *qemudGetType(virConnectPtr conn ATTRIBUTE_UNUSED) {
1463
    return "QEMU";
1464 1465 1466 1467 1468 1469 1470 1471 1472 1473 1474 1475 1476 1477 1478 1479 1480 1481 1482 1483
}

static int qemudGetMaxVCPUs(virConnectPtr conn ATTRIBUTE_UNUSED,
                            const char *type) {
    if (!type)
        return 16;

    if (!strcmp(type, "qemu"))
        return 16;

    /* XXX future KVM will support SMP. Need to probe
       kernel to figure out KVM module version i guess */
    if (!strcmp(type, "kvm"))
        return 1;

    if (!strcmp(type, "kqemu"))
        return 1;
    return -1;
}

1484 1485 1486
static int qemudGetNodeInfo(virConnectPtr conn,
                            virNodeInfoPtr nodeinfo) {
    return virNodeInfoPopulate(conn, nodeinfo);
1487 1488 1489
}


1490 1491 1492
static char *qemudGetCapabilities(virConnectPtr conn) {
    struct qemud_driver *driver = (struct qemud_driver *)conn->privateData;
    char *xml;
1493

1494 1495
    if ((xml = virCapabilitiesFormatXML(driver->caps)) == NULL) {
        qemudReportError(conn, NULL, NULL, VIR_ERR_NO_MEMORY, "capabilities");
1496 1497 1498
        return NULL;
    }

1499
    return xml;
1500 1501 1502 1503
}



D
Daniel P. Berrange 已提交
1504 1505 1506
static int qemudGetProcessInfo(unsigned long long *cpuTime, int pid) {
    char proc[PATH_MAX];
    FILE *pidinfo;
1507
    unsigned long long usertime, systime;
D
Daniel P. Berrange 已提交
1508 1509 1510 1511 1512 1513 1514 1515 1516 1517 1518 1519

    if (snprintf(proc, sizeof(proc), "/proc/%d/stat", pid) >= (int)sizeof(proc)) {
        return -1;
    }

    if (!(pidinfo = fopen(proc, "r"))) {
        /*printf("cannnot read pid info");*/
        /* VM probably shut down, so fake 0 */
        *cpuTime = 0;
        return 0;
    }

1520
    if (fscanf(pidinfo, "%*d %*s %*c %*d %*d %*d %*d %*d %*u %*u %*u %*u %*u %llu %llu", &usertime, &systime) != 2) {
1521
        qemudDebug("not enough arg");
D
Daniel P. Berrange 已提交
1522 1523 1524 1525 1526 1527 1528 1529
        return -1;
    }

    /* We got jiffies
     * We want nanoseconds
     * _SC_CLK_TCK is jiffies per second
     * So calulate thus....
     */
1530
    *cpuTime = 1000ull * 1000ull * 1000ull * (usertime + systime) / (unsigned long long)sysconf(_SC_CLK_TCK);
D
Daniel P. Berrange 已提交
1531

1532
    qemudDebug("Got %llu %llu %llu", usertime, systime, *cpuTime);
D
Daniel P. Berrange 已提交
1533 1534 1535 1536 1537 1538 1539

    fclose(pidinfo);

    return 0;
}


1540
static virDomainPtr qemudDomainLookupByID(virConnectPtr conn,
1541 1542 1543 1544 1545 1546
                                   int id) {
    struct qemud_driver *driver = (struct qemud_driver *)conn->privateData;
    struct qemud_vm *vm = qemudFindVMByID(driver, id);
    virDomainPtr dom;

    if (!vm) {
1547
        qemudReportError(conn, NULL, NULL, VIR_ERR_NO_DOMAIN, NULL);
1548 1549 1550
        return NULL;
    }

1551
    dom = virGetDomain(conn, vm->def->name, vm->def->uuid);
1552
    if (dom) dom->id = vm->id;
1553 1554
    return dom;
}
1555
static virDomainPtr qemudDomainLookupByUUID(virConnectPtr conn,
1556 1557 1558 1559 1560 1561
                                     const unsigned char *uuid) {
    struct qemud_driver *driver = (struct qemud_driver *)conn->privateData;
    struct qemud_vm *vm = qemudFindVMByUUID(driver, uuid);
    virDomainPtr dom;

    if (!vm) {
1562
        qemudReportError(conn, NULL, NULL, VIR_ERR_NO_DOMAIN, NULL);
1563 1564 1565
        return NULL;
    }

1566
    dom = virGetDomain(conn, vm->def->name, vm->def->uuid);
1567
    if (dom) dom->id = vm->id;
1568 1569
    return dom;
}
1570
static virDomainPtr qemudDomainLookupByName(virConnectPtr conn,
1571 1572 1573 1574 1575 1576
                                     const char *name) {
    struct qemud_driver *driver = (struct qemud_driver *)conn->privateData;
    struct qemud_vm *vm = qemudFindVMByName(driver, name);
    virDomainPtr dom;

    if (!vm) {
1577
        qemudReportError(conn, NULL, NULL, VIR_ERR_NO_DOMAIN, NULL);
1578 1579 1580
        return NULL;
    }

1581
    dom = virGetDomain(conn, vm->def->name, vm->def->uuid);
1582
    if (dom) dom->id = vm->id;
1583 1584 1585
    return dom;
}

1586
static int qemudGetVersion(virConnectPtr conn, unsigned long *version) {
1587
    struct qemud_driver *driver = (struct qemud_driver *)conn->privateData;
1588
    if (qemudExtractVersion(conn, driver) < 0)
1589 1590
        return -1;

1591 1592
    *version = qemu_driver->qemuVersion;
    return 0;
D
Daniel P. Berrange 已提交
1593 1594
}

1595 1596 1597 1598 1599 1600 1601 1602 1603 1604 1605 1606 1607 1608 1609 1610 1611 1612 1613 1614 1615 1616
static char *
qemudGetHostname (virConnectPtr conn)
{
    int r;
    char hostname[HOST_NAME_MAX+1], *str;

    r = gethostname (hostname, HOST_NAME_MAX+1);
    if (r == -1) {
        qemudReportError (conn, NULL, NULL, VIR_ERR_SYSTEM_ERROR,
                          "%s", strerror (errno));
        return NULL;
    }
    /* Caller frees this string. */
    str = strdup (hostname);
    if (str == NULL) {
        qemudReportError (conn, NULL, NULL, VIR_ERR_SYSTEM_ERROR,
                         "%s", strerror (errno));
        return NULL;
    }
    return str;
}

1617
static int qemudListDomains(virConnectPtr conn, int *ids, int nids) {
1618
    struct qemud_driver *driver = (struct qemud_driver *)conn->privateData;
1619
    struct qemud_vm *vm = driver->vms;
D
Daniel P. Berrange 已提交
1620 1621
    int got = 0;
    while (vm && got < nids) {
1622 1623 1624 1625
        if (qemudIsActiveVM(vm)) {
            ids[got] = vm->id;
            got++;
        }
D
Daniel P. Berrange 已提交
1626 1627 1628 1629
        vm = vm->next;
    }
    return got;
}
1630
static int qemudNumDomains(virConnectPtr conn) {
1631
    struct qemud_driver *driver = (struct qemud_driver *)conn->privateData;
1632
    return driver->nactivevms;
D
Daniel P. Berrange 已提交
1633
}
1634
static virDomainPtr qemudDomainCreate(virConnectPtr conn, const char *xml,
1635
                                      unsigned int flags ATTRIBUTE_UNUSED) {
1636
    struct qemud_vm_def *def;
D
Daniel P. Berrange 已提交
1637
    struct qemud_vm *vm;
1638 1639
    virDomainPtr dom;
    struct qemud_driver *driver = (struct qemud_driver *)conn->privateData;
D
Daniel P. Berrange 已提交
1640

1641
    if (!(def = qemudParseVMDef(conn, driver, xml, NULL)))
1642 1643
        return NULL;

1644
    if (!(vm = qemudAssignVMDef(conn, driver, def))) {
1645
        qemudFreeVMDef(def);
D
Daniel P. Berrange 已提交
1646 1647 1648
        return NULL;
    }

1649
    if (qemudStartVMDaemon(conn, driver, vm) < 0) {
1650
        qemudRemoveInactiveVM(driver, vm);
D
Daniel P. Berrange 已提交
1651 1652 1653
        return NULL;
    }

1654
    dom = virGetDomain(conn, vm->def->name, vm->def->uuid);
1655
    if (dom) dom->id = vm->id;
1656
    return dom;
D
Daniel P. Berrange 已提交
1657 1658 1659
}


1660
static int qemudDomainSuspend(virDomainPtr dom) {
1661
    struct qemud_driver *driver = (struct qemud_driver *)dom->conn->privateData;
D
Daniel P. Berrange 已提交
1662
    char *info;
1663
    struct qemud_vm *vm = qemudFindVMByID(driver, dom->id);
D
Daniel P. Berrange 已提交
1664
    if (!vm) {
1665
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_INVALID_DOMAIN, _("no domain with matching id %d"), dom->id);
D
Daniel P. Berrange 已提交
1666 1667
        return -1;
    }
1668
    if (!qemudIsActiveVM(vm)) {
1669
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_OPERATION_FAILED, _("domain is not running"));
D
Daniel P. Berrange 已提交
1670 1671
        return -1;
    }
1672
    if (vm->state == VIR_DOMAIN_PAUSED)
D
Daniel P. Berrange 已提交
1673
        return 0;
D
Daniel P. Berrange 已提交
1674

1675
    if (qemudMonitorCommand(driver, vm, "stop", &info) < 0) {
1676
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_OPERATION_FAILED, _("suspend operation failed"));
D
Daniel P. Berrange 已提交
1677 1678
        return -1;
    }
1679
    vm->state = VIR_DOMAIN_PAUSED;
1680
    qemudDebug("Reply %s", info);
D
Daniel P. Berrange 已提交
1681 1682 1683 1684 1685
    free(info);
    return 0;
}


1686
static int qemudDomainResume(virDomainPtr dom) {
1687
    struct qemud_driver *driver = (struct qemud_driver *)dom->conn->privateData;
D
Daniel P. Berrange 已提交
1688
    char *info;
1689
    struct qemud_vm *vm = qemudFindVMByID(driver, dom->id);
D
Daniel P. Berrange 已提交
1690
    if (!vm) {
1691
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_INVALID_DOMAIN, _("no domain with matching id %d"), dom->id);
D
Daniel P. Berrange 已提交
1692 1693
        return -1;
    }
1694
    if (!qemudIsActiveVM(vm)) {
1695
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_OPERATION_FAILED, _("domain is not running"));
D
Daniel P. Berrange 已提交
1696 1697
        return -1;
    }
1698
    if (vm->state == VIR_DOMAIN_RUNNING)
D
Daniel P. Berrange 已提交
1699
        return 0;
1700
    if (qemudMonitorCommand(driver, vm, "cont", &info) < 0) {
1701
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_OPERATION_FAILED, _("resume operation failed"));
D
Daniel P. Berrange 已提交
1702 1703
        return -1;
    }
1704
    vm->state = VIR_DOMAIN_RUNNING;
1705
    qemudDebug("Reply %s", info);
D
Daniel P. Berrange 已提交
1706
    free(info);
D
Daniel P. Berrange 已提交
1707
    return 0;
D
Daniel P. Berrange 已提交
1708 1709 1710
}


1711 1712 1713 1714 1715 1716 1717
static int qemudDomainShutdown(virDomainPtr dom) {
    struct qemud_driver *driver = (struct qemud_driver *)dom->conn->privateData;
    struct qemud_vm *vm = qemudFindVMByID(driver, dom->id);
    char* info;

    if (!vm) {
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_INVALID_DOMAIN,
1718
                         _("no domain with matching id %d"), dom->id);
1719 1720 1721 1722 1723
        return -1;
    }

    if (qemudMonitorCommand(driver, vm, "system_powerdown", &info) < 0) {
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_OPERATION_FAILED,
1724
                         _("shutdown operation failed"));
1725 1726 1727 1728 1729 1730 1731
        return -1;
    }
    return 0;

}


1732
static int qemudDomainDestroy(virDomainPtr dom) {
1733 1734
    struct qemud_driver *driver = (struct qemud_driver *)dom->conn->privateData;
    struct qemud_vm *vm = qemudFindVMByID(driver, dom->id);
1735

D
Daniel P. Berrange 已提交
1736
    if (!vm) {
1737
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_INVALID_DOMAIN,
1738
                         _("no domain with matching id %d"), dom->id);
D
Daniel P. Berrange 已提交
1739 1740
        return -1;
    }
1741

1742 1743 1744
    qemudShutdownVMDaemon(dom->conn, driver, vm);
    if (!vm->configFile[0])
        qemudRemoveInactiveVM(driver, vm);
1745

1746
    return 0;
D
Daniel P. Berrange 已提交
1747 1748 1749
}


1750 1751 1752 1753 1754 1755 1756
static char *qemudDomainGetOSType(virDomainPtr dom) {
    struct qemud_driver *driver = (struct qemud_driver *)dom->conn->privateData;
    struct qemud_vm *vm = qemudFindVMByUUID(driver, dom->uuid);
    char *type;

    if (!vm) {
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_INVALID_DOMAIN,
1757
                         _("no domain with matching uuid"));
1758 1759 1760 1761 1762 1763 1764 1765 1766 1767
        return NULL;
    }

    if (!(type = strdup(vm->def->os.type))) {
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_NO_MEMORY, "ostype");
        return NULL;
    }
    return type;
}

1768 1769 1770 1771 1772 1773 1774 1775 1776 1777 1778 1779 1780 1781 1782 1783 1784 1785 1786 1787 1788 1789 1790 1791 1792 1793 1794 1795 1796 1797 1798 1799 1800 1801 1802 1803 1804 1805 1806 1807 1808 1809 1810 1811 1812 1813 1814 1815 1816 1817 1818 1819 1820 1821 1822 1823 1824 1825 1826 1827
/* Returns max memory in kb, 0 if error */
static unsigned long qemudDomainGetMaxMemory(virDomainPtr dom) {
    struct qemud_driver *driver = (struct qemud_driver *)dom->conn->privateData;
    struct qemud_vm *vm = qemudFindVMByUUID(driver, dom->uuid);

    if (!vm) {
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_INVALID_DOMAIN,
                         _("no domain with matching uuid '%s'"), dom->uuid);
        return 0;
    }

    return vm->def->maxmem;
}

static int qemudDomainSetMaxMemory(virDomainPtr dom, unsigned long newmax) {
    struct qemud_driver *driver = (struct qemud_driver *)dom->conn->privateData;
    struct qemud_vm *vm = qemudFindVMByUUID(driver, dom->uuid);

    if (!vm) {
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_INVALID_DOMAIN,
                         _("no domain with matching uuid '%s'"), dom->uuid);
        return -1;
    }

    if (newmax < vm->def->memory) {
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_INVALID_ARG,
                         _("cannot set max memory lower than current memory"));
        return -1;
    }

    vm->def->maxmem = newmax;
    return 0;
}

static int qemudDomainSetMemory(virDomainPtr dom, unsigned long newmem) {
    struct qemud_driver *driver = (struct qemud_driver *)dom->conn->privateData;
    struct qemud_vm *vm = qemudFindVMByUUID(driver, dom->uuid);

    if (!vm) {
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_INVALID_DOMAIN,
                         _("no domain with matching uuid '%s'"), dom->uuid);
        return -1;
    }

    if (qemudIsActiveVM(vm)) {
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_INTERNAL_ERROR,
                         _("cannot set memory of an active domain"));
        return -1;
    }

    if (newmem > vm->def->maxmem) {
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_INVALID_ARG,
                         _("cannot set memory higher than max memory"));
        return -1;
    }

    vm->def->memory = newmem;
    return 0;
}

1828
static int qemudDomainGetInfo(virDomainPtr dom,
1829 1830 1831
                       virDomainInfoPtr info) {
    struct qemud_driver *driver = (struct qemud_driver *)dom->conn->privateData;
    struct qemud_vm *vm = qemudFindVMByUUID(driver, dom->uuid);
D
Daniel P. Berrange 已提交
1832
    if (!vm) {
1833
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_INVALID_DOMAIN, _("no domain with matching uuid"));
D
Daniel P. Berrange 已提交
1834 1835 1836
        return -1;
    }

1837
    info->state = vm->state;
D
Daniel P. Berrange 已提交
1838

1839
    if (!qemudIsActiveVM(vm)) {
1840
        info->cpuTime = 0;
D
Daniel P. Berrange 已提交
1841
    } else {
1842
        if (qemudGetProcessInfo(&(info->cpuTime), vm->pid) < 0) {
1843
            qemudReportError(dom->conn, dom, NULL, VIR_ERR_OPERATION_FAILED, ("cannot read cputime for domain"));
D
Daniel P. Berrange 已提交
1844 1845 1846 1847
            return -1;
        }
    }

1848 1849 1850
    info->maxMem = vm->def->maxmem;
    info->memory = vm->def->memory;
    info->nrVirtCpu = vm->def->vcpus;
D
Daniel P. Berrange 已提交
1851 1852 1853 1854
    return 0;
}


D
Daniel P. Berrange 已提交
1855
static char *qemudEscape(const char *in, int shell)
1856 1857 1858 1859 1860 1861 1862 1863 1864 1865 1866 1867 1868 1869 1870 1871 1872 1873 1874 1875 1876
{
    int len = 0;
    int i, j;
    char *out;

    /* To pass through the QEMU monitor, we need to use escape
       sequences: \r, \n, \", \\

       To pass through both QEMU + the shell, we need to escape
       the single character ' as the five characters '\\''
    */

    for (i = 0; in[i] != '\0'; i++) {
        switch(in[i]) {
        case '\r':
        case '\n':
        case '"':
        case '\\':
            len += 2;
            break;
        case '\'':
D
Daniel P. Berrange 已提交
1877 1878 1879 1880
            if (shell)
                len += 5;
            else
                len += 1;
1881 1882 1883 1884 1885 1886 1887 1888 1889 1890 1891 1892 1893 1894 1895 1896 1897 1898 1899 1900 1901 1902 1903 1904 1905 1906
            break;
        default:
            len += 1;
            break;
        }
    }

    if ((out = (char *)malloc(len + 1)) == NULL)
        return NULL;

    for (i = j = 0; in[i] != '\0'; i++) {
        switch(in[i]) {
        case '\r':
            out[j++] = '\\';
            out[j++] = 'r';
            break;
        case '\n':
            out[j++] = '\\';
            out[j++] = 'n';
            break;
        case '"':
        case '\\':
            out[j++] = '\\';
            out[j++] = in[i];
            break;
        case '\'':
D
Daniel P. Berrange 已提交
1907 1908 1909 1910 1911 1912 1913 1914 1915
            if (shell) {
                out[j++] = '\'';
                out[j++] = '\\';
                out[j++] = '\\';
                out[j++] = '\'';
                out[j++] = '\'';
            } else {
                out[j++] = in[i];
            }
1916 1917 1918 1919 1920 1921 1922 1923 1924 1925 1926
            break;
        default:
            out[j++] = in[i];
            break;
        }
    }
    out[j] = '\0';

    return out;
}

1927 1928 1929 1930 1931
static char *qemudEscapeMonitorArg(const char *in)
{
    return qemudEscape(in, 0);
}

D
Daniel P. Berrange 已提交
1932 1933 1934 1935
static char *qemudEscapeShellArg(const char *in)
{
    return qemudEscape(in, 1);
}
1936

1937 1938 1939 1940 1941 1942 1943 1944 1945 1946 1947
#define QEMUD_SAVE_MAGIC "LibvirtQemudSave"
#define QEMUD_SAVE_VERSION 1

struct qemud_save_header {
    char magic[sizeof(QEMUD_SAVE_MAGIC)-1];
    int version;
    int xml_len;
    int was_running;
    int unused[16];
};

1948
static int qemudDomainSave(virDomainPtr dom,
1949
                           const char *path) {
1950 1951
    struct qemud_driver *driver = (struct qemud_driver *)dom->conn->privateData;
    struct qemud_vm *vm = qemudFindVMByID(driver, dom->id);
1952 1953 1954 1955 1956 1957 1958 1959 1960 1961
    char *command, *info;
    int fd;
    char *safe_path;
    char *xml;
    struct qemud_save_header header;

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

D
Daniel P. Berrange 已提交
1962
    if (!vm) {
1963
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_INVALID_DOMAIN,
1964
                         _("no domain with matching id %d"), dom->id);
D
Daniel P. Berrange 已提交
1965 1966
        return -1;
    }
1967

1968
    if (!qemudIsActiveVM(vm)) {
1969
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_OPERATION_FAILED,
1970
                         _("domain is not running"));
D
Daniel P. Berrange 已提交
1971 1972
        return -1;
    }
1973 1974 1975 1976 1977 1978

    /* Pause */
    if (vm->state == VIR_DOMAIN_RUNNING) {
        header.was_running = 1;
        if (qemudDomainSuspend(dom) != 0) {
            qemudReportError(dom->conn, dom, NULL, VIR_ERR_OPERATION_FAILED,
1979
                             _("failed to pause domain"));
1980 1981 1982 1983 1984 1985 1986 1987
            return -1;
        }
    }

    /* Get XML for the domain */
    xml = qemudGenerateXML(dom->conn, driver, vm, vm->def, 0);
    if (!xml) {
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_OPERATION_FAILED,
1988
                         _("failed to get domain xml"));
1989 1990 1991 1992 1993 1994 1995
        return -1;
    }
    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,
1996
                         _("failed to create '%s'"), path);
1997 1998 1999 2000 2001 2002
        free(xml);
        return -1;
    }

    if (safewrite(fd, &header, sizeof(header)) != sizeof(header)) {
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_OPERATION_FAILED,
2003
                         _("failed to write save header"));
2004 2005 2006 2007 2008 2009 2010
        close(fd);
        free(xml);
        return -1;
    }

    if (safewrite(fd, xml, header.xml_len) != header.xml_len) {
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_OPERATION_FAILED,
2011
                         _("failed to write xml"));
2012 2013 2014 2015 2016 2017 2018 2019 2020 2021 2022 2023
        close(fd);
        free(xml);
        return -1;
    }

    close(fd);
    free(xml);

    /* Migrate to file */
    safe_path = qemudEscapeShellArg(path);
    if (!safe_path) {
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_OPERATION_FAILED,
2024
                         _("out of memory"));
2025 2026 2027 2028
        return -1;
    }
    if (asprintf (&command, "migrate \"exec:"
                  "dd of='%s' oflag=append conv=notrunc 2>/dev/null"
2029
                  "\"", safe_path) == -1) {
2030
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_OPERATION_FAILED,
2031
                         _("out of memory"));
2032 2033 2034 2035 2036 2037 2038
        free(safe_path);
        return -1;
    }
    free(safe_path);

    if (qemudMonitorCommand(driver, vm, command, &info) < 0) {
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_OPERATION_FAILED,
2039
                         _("migrate operation failed"));
2040 2041 2042 2043 2044 2045 2046 2047 2048 2049 2050 2051 2052
        free(command);
        return -1;
    }

    free(info);
    free(command);

    /* Shut it down */
    qemudShutdownVMDaemon(dom->conn, driver, vm);
    if (!vm->configFile[0])
        qemudRemoveInactiveVM(driver, vm);

    return 0;
D
Daniel P. Berrange 已提交
2053 2054 2055
}


2056
static int qemudDomainRestore(virConnectPtr conn,
2057 2058 2059 2060 2061
                       const char *path) {
    struct qemud_driver *driver = (struct qemud_driver *)conn->privateData;
    struct qemud_vm_def *def;
    struct qemud_vm *vm;
    int fd;
2062
    int ret;
2063 2064 2065 2066 2067 2068
    char *xml;
    struct qemud_save_header header;

    /* Verify the header and read the XML */
    if ((fd = open(path, O_RDONLY)) < 0) {
        qemudReportError(conn, NULL, NULL, VIR_ERR_OPERATION_FAILED,
2069
                         _("cannot read domain image"));
2070 2071 2072 2073 2074
        return -1;
    }

    if (saferead(fd, &header, sizeof(header)) != sizeof(header)) {
        qemudReportError(conn, NULL, NULL, VIR_ERR_OPERATION_FAILED,
2075
                         _("failed to read qemu header"));
2076 2077 2078 2079 2080 2081
        close(fd);
        return -1;
    }

    if (memcmp(header.magic, QEMUD_SAVE_MAGIC, sizeof(header.magic)) != 0) {
        qemudReportError(conn, NULL, NULL, VIR_ERR_OPERATION_FAILED,
2082
                         _("image magic is incorrect"));
2083 2084 2085 2086 2087 2088
        close(fd);
        return -1;
    }

    if (header.version > QEMUD_SAVE_VERSION) {
        qemudReportError(conn, NULL, NULL, VIR_ERR_OPERATION_FAILED,
2089
                         _("image version is not supported (%d > %d)"),
2090 2091 2092 2093 2094 2095 2096
                         header.version, QEMUD_SAVE_VERSION);
        close(fd);
        return -1;
    }

    if ((xml = (char *)malloc(header.xml_len)) == NULL) {
        qemudReportError(conn, NULL, NULL, VIR_ERR_OPERATION_FAILED,
2097
                         _("out of memory"));
2098 2099 2100 2101 2102 2103
        close(fd);
        return -1;
    }

    if (saferead(fd, xml, header.xml_len) != header.xml_len) {
        qemudReportError(conn, NULL, NULL, VIR_ERR_OPERATION_FAILED,
2104
                         _("failed to read XML"));
2105 2106 2107 2108 2109 2110 2111 2112
        close(fd);
        free(xml);
        return -1;
    }

    /* Create a domain from this XML */
    if (!(def = qemudParseVMDef(conn, driver, xml, NULL))) {
        qemudReportError(conn, NULL, NULL, VIR_ERR_OPERATION_FAILED,
2113
                         _("failed to parse XML"));
2114 2115 2116 2117 2118 2119 2120 2121 2122 2123 2124
        close(fd);
        free(xml);
        return -1;
    }
    free(xml);

    /* Ensure the name and UUID don't already exist in an active VM */
    vm = qemudFindVMByUUID(driver, def->uuid);
    if (!vm) vm = qemudFindVMByName(driver, def->name);
    if (vm && qemudIsActiveVM(vm)) {
        qemudReportError(conn, NULL, NULL, VIR_ERR_OPERATION_FAILED,
2125
                         _("domain is already active as '%s'"), vm->def->name);
2126 2127 2128 2129 2130 2131
        close(fd);
        return -1;
    }

    if (!(vm = qemudAssignVMDef(conn, driver, def))) {
        qemudReportError(conn, NULL, NULL, VIR_ERR_OPERATION_FAILED,
2132
                         _("failed to assign new VM"));
2133 2134 2135 2136 2137 2138 2139 2140
        qemudFreeVMDef(def);
        close(fd);
        return -1;
    }

    /* Set the migration source and start it up. */
    snprintf(vm->migrateFrom, sizeof(vm->migrateFrom), "stdio");
    vm->stdin = fd;
2141 2142 2143 2144 2145
    ret = qemudStartVMDaemon(conn, driver, vm);
    close(fd);
    vm->migrateFrom[0] = '\0';
    vm->stdin = -1;
    if (ret < 0) {
2146
        qemudReportError(conn, NULL, NULL, VIR_ERR_OPERATION_FAILED,
2147
                         _("failed to start VM"));
2148 2149 2150 2151 2152 2153 2154 2155
        if (!vm->configFile[0])
            qemudRemoveInactiveVM(driver, vm);
        return -1;
    }

    /* If it was running before, resume it now. */
    if (header.was_running) {
        char *info;
2156
        if (qemudMonitorCommand(driver, vm, "cont", &info) < 0) {
2157
            qemudReportError(conn, NULL, NULL, VIR_ERR_OPERATION_FAILED,
2158
                             _("failed to resume domain"));
2159 2160 2161 2162 2163 2164 2165
            return -1;
        }
        free(info);
        vm->state = VIR_DOMAIN_RUNNING;
    }

    return 0;
D
Daniel P. Berrange 已提交
2166 2167 2168
}


2169
static char *qemudDomainDumpXML(virDomainPtr dom,
2170 2171 2172
                         int flags ATTRIBUTE_UNUSED) {
    struct qemud_driver *driver = (struct qemud_driver *)dom->conn->privateData;
    struct qemud_vm *vm = qemudFindVMByUUID(driver, dom->uuid);
D
Daniel P. Berrange 已提交
2173
    if (!vm) {
2174
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_INVALID_DOMAIN, _("no domain with matching uuid"));
2175
        return NULL;
D
Daniel P. Berrange 已提交
2176 2177
    }

2178
    return qemudGenerateXML(dom->conn, driver, vm, vm->def, 1);
D
Daniel P. Berrange 已提交
2179 2180 2181
}


2182
static int qemudListDefinedDomains(virConnectPtr conn,
2183 2184
                            char **const names, int nnames) {
    struct qemud_driver *driver = (struct qemud_driver *)conn->privateData;
2185
    struct qemud_vm *vm = driver->vms;
2186
    int got = 0, i;
D
Daniel P. Berrange 已提交
2187
    while (vm && got < nnames) {
2188
        if (!qemudIsActiveVM(vm)) {
2189 2190 2191 2192
            if (!(names[got] = strdup(vm->def->name))) {
                qemudReportError(conn, NULL, NULL, VIR_ERR_NO_MEMORY, "names");
                goto cleanup;
            }
2193 2194
            got++;
        }
D
Daniel P. Berrange 已提交
2195 2196 2197
        vm = vm->next;
    }
    return got;
2198 2199 2200 2201 2202

 cleanup:
    for (i = 0 ; i < got ; i++)
        free(names[i]);
    return -1;
D
Daniel P. Berrange 已提交
2203 2204 2205
}


2206
static int qemudNumDefinedDomains(virConnectPtr conn) {
2207
    struct qemud_driver *driver = (struct qemud_driver *)conn->privateData;
2208
    return driver->ninactivevms;
D
Daniel P. Berrange 已提交
2209 2210 2211
}


2212
static int qemudDomainStart(virDomainPtr dom) {
2213 2214
    struct qemud_driver *driver = (struct qemud_driver *)dom->conn->privateData;
    struct qemud_vm *vm = qemudFindVMByUUID(driver, dom->uuid);
2215 2216

    if (!vm) {
2217
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_INVALID_DOMAIN,
2218
                         _("no domain with matching uuid"));
2219
        return -1;
2220 2221
    }

2222
    return qemudStartVMDaemon(dom->conn, driver, vm);
D
Daniel P. Berrange 已提交
2223 2224 2225
}


2226
static virDomainPtr qemudDomainDefine(virConnectPtr conn, const char *xml) {
2227
    struct qemud_driver *driver = (struct qemud_driver *)conn->privateData;
2228 2229
    struct qemud_vm_def *def;
    struct qemud_vm *vm;
2230
    virDomainPtr dom;
2231

2232
    if (!(def = qemudParseVMDef(conn, driver, xml, NULL)))
2233 2234
        return NULL;

2235
    if (!(vm = qemudAssignVMDef(conn, driver, def))) {
2236 2237 2238 2239
        qemudFreeVMDef(def);
        return NULL;
    }

2240
    if (qemudSaveVMDef(conn, driver, vm, def) < 0) {
2241
        qemudRemoveInactiveVM(driver, vm);
2242 2243 2244
        return NULL;
    }

2245
    dom = virGetDomain(conn, vm->def->name, vm->def->uuid);
2246
    if (dom) dom->id = vm->id;
2247
    return dom;
D
Daniel P. Berrange 已提交
2248 2249
}

2250
static int qemudDomainUndefine(virDomainPtr dom) {
2251 2252
    struct qemud_driver *driver = (struct qemud_driver *)dom->conn->privateData;
    struct qemud_vm *vm = qemudFindVMByUUID(driver, dom->uuid);
D
Daniel P. Berrange 已提交
2253 2254

    if (!vm) {
2255
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_INVALID_DOMAIN, _("no domain with matching uuid"));
D
Daniel P. Berrange 已提交
2256 2257 2258
        return -1;
    }

2259
    if (qemudIsActiveVM(vm)) {
2260
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_INTERNAL_ERROR, _("cannot delete active domain"));
D
Daniel P. Berrange 已提交
2261 2262 2263
        return -1;
    }

2264
    if (qemudDeleteConfig(dom->conn, driver, vm->configFile, vm->def->name) < 0)
D
Daniel P. Berrange 已提交
2265 2266
        return -1;

2267
    if (unlink(vm->autostartLink) < 0 && errno != ENOENT && errno != ENOTDIR)
2268
        qemudLog(QEMUD_WARN, _("Failed to delete autostart link '%s': %s"),
2269 2270
                 vm->autostartLink, strerror(errno));

2271
    vm->configFile[0] = '\0';
2272
    vm->autostartLink[0] = '\0';
2273

2274
    qemudRemoveInactiveVM(driver, vm);
D
Daniel P. Berrange 已提交
2275 2276 2277 2278

    return 0;
}

2279 2280 2281 2282 2283 2284 2285
static int qemudDomainChangeCDROM(virDomainPtr dom,
                                  struct qemud_vm *vm,
                                  struct qemud_vm_disk_def *olddisk,
                                  struct qemud_vm_disk_def *newdisk) {
    struct qemud_driver *driver = (struct qemud_driver *)dom->conn->privateData;
    char *cmd, *reply, *safe_path;

2286 2287 2288 2289
    if (newdisk->src[0]) {
        safe_path = qemudEscapeMonitorArg(newdisk->src);
        if (!safe_path) {
            qemudReportError(dom->conn, dom, NULL, VIR_ERR_OPERATION_FAILED,
2290
                             _("out of memory"));
2291 2292 2293 2294 2295 2296 2297
            return -1;
        }
        if (asprintf (&cmd, "change %s \"%s\"",
                      /* XXX qemu may support multiple CDROM in future */
                      /* olddisk->dst */ "cdrom",
                      safe_path) == -1) {
            qemudReportError(dom->conn, dom, NULL, VIR_ERR_OPERATION_FAILED,
2298
                             _("out of memory"));
2299 2300 2301 2302 2303 2304
            free(safe_path);
            return -1;
        }
        free(safe_path);

    } else if (asprintf(&cmd, "eject cdrom") == -1) {
2305
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_OPERATION_FAILED,
2306
                         _("out of memory"));
2307 2308 2309 2310
        return -1;
    }

    if (qemudMonitorCommand(driver, vm, cmd, &reply) < 0) {
2311
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_OPERATION_FAILED, _("cannot change cdrom media"));
2312 2313 2314 2315 2316
        free(cmd);
        return -1;
    }
    free(reply);
    free(cmd);
2317
    strcpy(olddisk->src, newdisk->src);
2318 2319 2320 2321 2322 2323 2324 2325 2326 2327 2328 2329
    olddisk->type = newdisk->type;
    return 0;
}

static int qemudDomainAttachDevice(virDomainPtr dom,
                                   const char *xml) {
    struct qemud_driver *driver = (struct qemud_driver *)dom->conn->privateData;
    struct qemud_vm *vm = qemudFindVMByUUID(driver, dom->uuid);
    struct qemud_vm_device_def *dev;
    struct qemud_vm_disk_def *disk;

    if (!vm) {
2330
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_INVALID_DOMAIN, _("no domain with matching uuid"));
2331 2332 2333 2334
        return -1;
    }

    if (!qemudIsActiveVM(vm)) {
2335
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_INTERNAL_ERROR, _("cannot attach device on inactive domain"));
2336 2337 2338 2339 2340 2341 2342 2343 2344
        return -1;
    }

    dev = qemudParseVMDeviceDef(dom->conn, driver, xml);
    if (dev == NULL) {
        return -1;
    }

    if (dev->type != QEMUD_DEVICE_DISK || dev->data.disk.device != QEMUD_DISK_CDROM) {
2345
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_NO_SUPPORT, _("only CDROM disk devices can be attached"));
2346 2347 2348 2349 2350 2351 2352 2353 2354 2355 2356 2357 2358
        free(dev);
        return -1;
    }

    disk = vm->def->disks;
    while (disk) {
        if (disk->device == QEMUD_DISK_CDROM &&
            STREQ(disk->dst, dev->data.disk.dst))
            break;
        disk = disk->next;
    }

    if (!disk) {
2359
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_NO_SUPPORT, _("CDROM not attached, cannot change media"));
2360 2361 2362 2363 2364 2365 2366 2367 2368 2369 2370 2371 2372
        free(dev);
        return -1;
    }

    if (qemudDomainChangeCDROM(dom, vm, disk, &dev->data.disk) < 0) {
        free(dev);
        return -1;
    }

    free(dev);
    return 0;
}

2373
static int qemudDomainGetAutostart(virDomainPtr dom,
2374 2375 2376
                            int *autostart) {
    struct qemud_driver *driver = (struct qemud_driver *)dom->conn->privateData;
    struct qemud_vm *vm = qemudFindVMByUUID(driver, dom->uuid);
2377 2378

    if (!vm) {
2379
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_INVALID_DOMAIN, _("no domain with matching uuid"));
2380 2381 2382 2383 2384 2385 2386 2387
        return -1;
    }

    *autostart = vm->autostart;

    return 0;
}

2388
static int qemudDomainSetAutostart(virDomainPtr dom,
2389 2390 2391
                            int autostart) {
    struct qemud_driver *driver = (struct qemud_driver *)dom->conn->privateData;
    struct qemud_vm *vm = qemudFindVMByUUID(driver, dom->uuid);
2392 2393

    if (!vm) {
2394
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_INVALID_DOMAIN, _("no domain with matching uuid"));
2395 2396 2397 2398 2399 2400 2401 2402
        return -1;
    }

    autostart = (autostart != 0);

    if (vm->autostart == autostart)
        return 0;

2403 2404 2405
    if (autostart) {
        int err;

2406
        if ((err = virFileMakePath(driver->autostartDir))) {
2407
            qemudReportError(dom->conn, dom, NULL, VIR_ERR_INTERNAL_ERROR,
2408
                             _("cannot create autostart directory %s: %s"),
2409
                             driver->autostartDir, strerror(err));
2410 2411 2412 2413
            return -1;
        }

        if (symlink(vm->configFile, vm->autostartLink) < 0) {
2414
            qemudReportError(dom->conn, dom, NULL, VIR_ERR_INTERNAL_ERROR,
2415
                             _("Failed to create symlink '%s' to '%s': %s"),
2416 2417 2418 2419 2420
                             vm->autostartLink, vm->configFile, strerror(errno));
            return -1;
        }
    } else {
        if (unlink(vm->autostartLink) < 0 && errno != ENOENT && errno != ENOTDIR) {
2421
            qemudReportError(dom->conn, dom, NULL, VIR_ERR_INTERNAL_ERROR,
2422
                             _("Failed to delete symlink '%s': %s"),
2423 2424 2425 2426 2427
                             vm->autostartLink, strerror(errno));
            return -1;
        }
    }

2428 2429 2430 2431 2432
    vm->autostart = autostart;

    return 0;
}

2433 2434 2435 2436 2437 2438 2439 2440 2441 2442 2443 2444 2445 2446 2447 2448 2449 2450 2451 2452 2453 2454 2455 2456 2457 2458 2459 2460 2461 2462 2463 2464 2465 2466 2467 2468 2469 2470 2471 2472 2473 2474 2475 2476 2477 2478 2479 2480 2481 2482 2483 2484 2485 2486 2487 2488 2489 2490 2491 2492 2493 2494 2495 2496 2497 2498 2499 2500 2501 2502 2503 2504 2505 2506 2507 2508 2509 2510 2511 2512 2513 2514 2515 2516 2517 2518 2519 2520 2521 2522 2523 2524 2525 2526 2527 2528 2529 2530 2531 2532 2533 2534 2535 2536 2537 2538 2539 2540 2541 2542 2543 2544 2545 2546 2547 2548 2549 2550 2551 2552 2553 2554 2555 2556 2557 2558 2559 2560 2561 2562 2563 2564 2565 2566 2567 2568 2569 2570 2571 2572 2573 2574
/* 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)
{
    const struct qemud_driver *driver =
        (struct qemud_driver *)dom->conn->privateData;
    char *dummy, *info;
    const char *p, *eol;
    char qemu_dev_name[32];
    size_t len;
    const struct qemud_vm *vm = qemudFindVMByID(driver, dom->id);

    if (!vm) {
        qemudReportError (dom->conn, dom, NULL, VIR_ERR_INVALID_DOMAIN,
                          _("no domain with matching id %d"), dom->id);
        return -1;
    }
    if (!qemudIsActiveVM (vm)) {
        qemudReportError (dom->conn, dom, NULL, VIR_ERR_OPERATION_FAILED,
                          "%s", _("domain is not running"));
        return -1;
    }

    /*
     * QEMU internal block device names are different from the device
     * names we use in libvirt, so we need to map between them:
     *
     *   hd[a-]   to  ide0-hd[0-]
     *   cdrom    to  ide1-cd0
     *   fd[a-]   to  floppy[0-]
     */
    if (STREQLEN (path, "hd", 2) && path[2] >= 'a' && path[2] <= 'z')
        snprintf (qemu_dev_name, sizeof (qemu_dev_name),
                  "ide0-hd%d", path[2] - 'a');
    else if (STREQ (path, "cdrom"))
        strcpy (qemu_dev_name, "ide1-cd0");
    else if (STREQLEN (path, "fd", 2) && path[2] >= 'a' && path[2] <= 'z')
        snprintf (qemu_dev_name, sizeof (qemu_dev_name),
                  "floppy%d", path[2] - 'a');
    else {
        qemudReportError (dom->conn, dom, NULL, VIR_ERR_INVALID_ARG,
                          _("invalid path: %s"), path);
        return -1;
    }

    len = strlen (qemu_dev_name);

    if (qemudMonitorCommand (driver, vm, "info blockstats", &info) < 0) {
        qemudReportError (dom->conn, dom, NULL, VIR_ERR_OPERATION_FAILED,
                          "%s", _("'info blockstats' command failed"));
        return -1;
    }

    DEBUG ("info blockstats reply: %s", info);

    /* If the command isn't supported then qemu prints the supported
     * info commands, so the output starts "info ".  Since this is
     * unlikely to be the name of a block device, we can use this
     * to detect if qemu supports the command.
     */
    if (STREQLEN (info, "info ", 5)) {
        free (info);
        qemudReportError (dom->conn, dom, NULL, VIR_ERR_NO_SUPPORT,
                          "%s",
                          _("'info blockstats' not supported by this qemu"));
        return -1;
    }

    stats->rd_req = -1;
    stats->rd_bytes = -1;
    stats->wr_req = -1;
    stats->wr_bytes = -1;
    stats->errs = -1;

    /* The output format for both qemu & KVM is:
     *   blockdevice: rd_bytes=% wr_bytes=% rd_operations=% wr_operations=%
     *   (repeated for each block device)
     * where '%' is a 64 bit number.
     */
    p = info;

    while (*p) {
        if (STREQLEN (p, qemu_dev_name, len)
            && p[len] == ':' && p[len+1] == ' ') {

            eol = strchr (p, '\n');
            if (!eol)
                eol = p + strlen (p);

            p += len+2;         /* Skip to first label. */

            while (*p) {
                if (STREQLEN (p, "rd_bytes=", 9)) {
                    p += 9;
                    if (virStrToLong_ll (p, &dummy, 10, &stats->rd_bytes) == -1)
                        DEBUG ("error reading rd_bytes: %s", p);
                } else if (STREQLEN (p, "wr_bytes=", 9)) {
                    p += 9;
                    if (virStrToLong_ll (p, &dummy, 10, &stats->wr_bytes) == -1)
                        DEBUG ("error reading wr_bytes: %s", p);
                } else if (STREQLEN (p, "rd_operations=", 14)) {
                    p += 14;
                    if (virStrToLong_ll (p, &dummy, 10, &stats->rd_req) == -1)
                        DEBUG ("error reading rd_req: %s", p);
                } else if (STREQLEN (p, "wr_operations=", 14)) {
                    p += 14;
                    if (virStrToLong_ll (p, &dummy, 10, &stats->wr_req) == -1)
                        DEBUG ("error reading wr_req: %s", p);
                } else
                    DEBUG ("unknown block stat near %s", p);

                /* Skip to next label. */
                p = strchr (p, ' ');
                if (!p || p >= eol) break;
                p++;
            }

            goto done;
        }

        /* Skip to next line. */
        p = strchr (p, '\n');
        if (!p) break;
        p++;
    }

    /* If we reach here then the device was not found. */
    free (info);
    qemudReportError (dom->conn, dom, NULL, VIR_ERR_INVALID_ARG,
                      _("device not found: %s (%s)"), path, qemu_dev_name);
    return -1;

 done:
    free (info);
    return 0;
}

2575 2576 2577 2578 2579 2580 2581 2582 2583 2584 2585 2586
static int
qemudDomainInterfaceStats (virDomainPtr dom,
                           const char *path,
                           struct _virDomainInterfaceStats *stats)
{
#ifdef __linux__
    struct qemud_driver *driver = (struct qemud_driver *)dom->conn->privateData;
    struct qemud_vm *vm = qemudFindVMByID (driver, dom->id);
    struct qemud_vm_net_def *net;

    if (!vm) {
        qemudReportError (dom->conn, dom, NULL, VIR_ERR_INVALID_DOMAIN,
2587
                          _("no domain with matching id %d"), dom->id);
2588 2589 2590 2591 2592
        return -1;
    }

    if (!qemudIsActiveVM(vm)) {
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_OPERATION_FAILED,
2593
                         _("domain is not running"));
2594 2595 2596 2597 2598
        return -1;
    }

    if (!path || path[0] == '\0') {
        qemudReportError(dom->conn, dom, NULL, VIR_ERR_INVALID_ARG,
2599
                         _("NULL or empty path"));
2600 2601 2602 2603 2604 2605 2606 2607 2608 2609 2610 2611 2612 2613 2614 2615 2616 2617 2618 2619 2620 2621
        return -1;
    }

    /* Check the path is one of the domain's network interfaces. */
    for (net = vm->def->nets; net; net = net->next) {
        switch (net->type) {
        case QEMUD_NET_NETWORK:
            if (STREQ (net->dst.network.ifname, path))
                goto ok;
            break;
        case QEMUD_NET_ETHERNET:
            if (STREQ (net->dst.ethernet.ifname, path))
                goto ok;
            break;
        case QEMUD_NET_BRIDGE:
            if (STREQ (net->dst.bridge.ifname, path))
                goto ok;
            break;
        }
    }

    qemudReportError (dom->conn, dom, NULL, VIR_ERR_INVALID_ARG,
2622
                      _("invalid path, '%s' is not a known interface"), path);
2623 2624 2625 2626 2627 2628 2629 2630 2631 2632 2633
    return -1;
 ok:

    return linuxDomainInterfaceStats (dom->conn, path, stats);
#else
    qemudReportError (dom->conn, dom, NULL, VIR_ERR_NO_SUPPORT,
                      "%s", __FUNCTION__);
    return -1;
#endif
}

2634
static virNetworkPtr qemudNetworkLookupByUUID(virConnectPtr conn ATTRIBUTE_UNUSED,
2635
                                     const unsigned char *uuid) {
2636
    struct qemud_driver *driver = (struct qemud_driver *)conn->networkPrivateData;
2637 2638 2639 2640
    struct qemud_network *network = qemudFindNetworkByUUID(driver, uuid);
    virNetworkPtr net;

    if (!network) {
2641
        qemudReportError(conn, NULL, NULL, VIR_ERR_NO_NETWORK, _("no network with matching uuid"));
2642 2643 2644
        return NULL;
    }

2645
    net = virGetNetwork(conn, network->def->name, network->def->uuid);
2646 2647
    return net;
}
2648
static virNetworkPtr qemudNetworkLookupByName(virConnectPtr conn ATTRIBUTE_UNUSED,
2649
                                     const char *name) {
2650
    struct qemud_driver *driver = (struct qemud_driver *)conn->networkPrivateData;
2651 2652 2653 2654
    struct qemud_network *network = qemudFindNetworkByName(driver, name);
    virNetworkPtr net;

    if (!network) {
2655
        qemudReportError(conn, NULL, NULL, VIR_ERR_NO_NETWORK, _("no network with matching name"));
2656 2657 2658
        return NULL;
    }

2659
    net = virGetNetwork(conn, network->def->name, network->def->uuid);
2660 2661 2662 2663
    return net;
}

static virDrvOpenStatus qemudOpenNetwork(virConnectPtr conn,
2664
                                         xmlURIPtr uri ATTRIBUTE_UNUSED,
2665
                                         virConnectAuthPtr auth ATTRIBUTE_UNUSED,
2666 2667 2668 2669 2670 2671 2672 2673 2674 2675 2676 2677 2678
                                         int flags ATTRIBUTE_UNUSED) {
    if (!qemu_driver)
        return VIR_DRV_OPEN_DECLINED;

    conn->networkPrivateData = qemu_driver;
    return VIR_DRV_OPEN_SUCCESS;
}

static int qemudCloseNetwork(virConnectPtr conn) {
    conn->networkPrivateData = NULL;
    return 0;
}

2679
static int qemudNumNetworks(virConnectPtr conn) {
2680
    struct qemud_driver *driver = (struct qemud_driver *)conn->networkPrivateData;
2681
    return driver->nactivenetworks;
2682 2683
}

2684
static int qemudListNetworks(virConnectPtr conn, char **const names, int nnames) {
2685
    struct qemud_driver *driver = (struct qemud_driver *)conn->networkPrivateData;
2686
    struct qemud_network *network = driver->networks;
2687
    int got = 0, i;
2688
    while (network && got < nnames) {
2689
        if (qemudIsActiveNetwork(network)) {
2690 2691 2692 2693
            if (!(names[got] = strdup(network->def->name))) {
                qemudReportError(conn, NULL, NULL, VIR_ERR_NO_MEMORY, "names");
                goto cleanup;
            }
2694 2695
            got++;
        }
2696 2697 2698
        network = network->next;
    }
    return got;
2699 2700 2701 2702 2703

 cleanup:
    for (i = 0 ; i < got ; i++)
        free(names[i]);
    return -1;
2704 2705
}

2706
static int qemudNumDefinedNetworks(virConnectPtr conn) {
2707
    struct qemud_driver *driver = (struct qemud_driver *)conn->networkPrivateData;
2708
    return driver->ninactivenetworks;
2709 2710
}

2711
static int qemudListDefinedNetworks(virConnectPtr conn, char **const names, int nnames) {
2712
    struct qemud_driver *driver = (struct qemud_driver *)conn->networkPrivateData;
2713
    struct qemud_network *network = driver->networks;
2714
    int got = 0, i;
2715
    while (network && got < nnames) {
2716
        if (!qemudIsActiveNetwork(network)) {
2717 2718 2719 2720
            if (!(names[got] = strdup(network->def->name))) {
                qemudReportError(conn, NULL, NULL, VIR_ERR_NO_MEMORY, "names");
                goto cleanup;
            }
2721 2722
            got++;
        }
2723 2724 2725
        network = network->next;
    }
    return got;
2726 2727 2728 2729 2730

 cleanup:
    for (i = 0 ; i < got ; i++)
        free(names[i]);
    return -1;
2731 2732
}

2733
static virNetworkPtr qemudNetworkCreate(virConnectPtr conn, const char *xml) {
2734
    struct qemud_driver *driver = (struct qemud_driver *)conn->networkPrivateData;
2735
    struct qemud_network_def *def;
2736
    struct qemud_network *network;
2737
    virNetworkPtr net;
2738

2739
    if (!(def = qemudParseNetworkDef(conn, driver, xml, NULL)))
2740 2741
        return NULL;

2742
    if (!(network = qemudAssignNetworkDef(conn, driver, def))) {
2743
        qemudFreeNetworkDef(def);
2744 2745 2746
        return NULL;
    }

2747
    if (qemudStartNetworkDaemon(conn, driver, network) < 0) {
2748
        qemudRemoveInactiveNetwork(driver, network);
2749 2750 2751
        return NULL;
    }

2752
    net = virGetNetwork(conn, network->def->name, network->def->uuid);
2753
    return net;
2754 2755
}

2756
static virNetworkPtr qemudNetworkDefine(virConnectPtr conn, const char *xml) {
2757
    struct qemud_driver *driver = (struct qemud_driver *)conn->networkPrivateData;
2758 2759
    struct qemud_network_def *def;
    struct qemud_network *network;
2760
    virNetworkPtr net;
2761

2762
    if (!(def = qemudParseNetworkDef(conn, driver, xml, NULL)))
2763 2764
        return NULL;

2765
    if (!(network = qemudAssignNetworkDef(conn, driver, def))) {
2766 2767 2768 2769
        qemudFreeNetworkDef(def);
        return NULL;
    }

2770
    if (qemudSaveNetworkDef(conn, driver, network, def) < 0) {
2771
        qemudRemoveInactiveNetwork(driver, network);
2772 2773 2774
        return NULL;
    }

2775
    net = virGetNetwork(conn, network->def->name, network->def->uuid);
2776
    return net;
2777 2778
}

2779
static int qemudNetworkUndefine(virNetworkPtr net) {
2780 2781
    struct qemud_driver *driver = (struct qemud_driver *)net->conn->networkPrivateData;
    struct qemud_network *network = qemudFindNetworkByUUID(driver, net->uuid);
2782 2783

    if (!network) {
2784
        qemudReportError(net->conn, NULL, net, VIR_ERR_INVALID_DOMAIN, _("no network with matching uuid"));
2785 2786 2787
        return -1;
    }

2788
    if (qemudDeleteConfig(net->conn, driver, network->configFile, network->def->name) < 0)
2789 2790
        return -1;

2791
    if (unlink(network->autostartLink) < 0 && errno != ENOENT && errno != ENOTDIR)
2792
        qemudLog(QEMUD_WARN, _("Failed to delete autostart link '%s': %s"),
2793 2794
                 network->autostartLink, strerror(errno));

2795
    network->configFile[0] = '\0';
2796
    network->autostartLink[0] = '\0';
2797

2798
    qemudRemoveInactiveNetwork(driver, network);
2799 2800

    return 0;
2801 2802
}

2803
static int qemudNetworkStart(virNetworkPtr net) {
2804 2805
    struct qemud_driver *driver = (struct qemud_driver *)net->conn->networkPrivateData;
    struct qemud_network *network = qemudFindNetworkByUUID(driver, net->uuid);
2806 2807

    if (!network) {
2808
        qemudReportError(net->conn, NULL, net, VIR_ERR_INVALID_NETWORK,
2809
                         _("no network with matching uuid"));
2810
        return -1;
2811 2812
    }

2813
    return qemudStartNetworkDaemon(net->conn, driver, network);
2814 2815
}

2816
static int qemudNetworkDestroy(virNetworkPtr net) {
2817 2818
    struct qemud_driver *driver = (struct qemud_driver *)net->conn->networkPrivateData;
    struct qemud_network *network = qemudFindNetworkByUUID(driver, net->uuid);
2819
    int ret;
2820

2821
    if (!network) {
2822
        qemudReportError(net->conn, NULL, net, VIR_ERR_INVALID_NETWORK,
2823
                         _("no network with matching uuid"));
2824 2825 2826
        return -1;
    }

2827
    ret = qemudShutdownNetworkDaemon(net->conn, driver, network);
2828 2829

    return ret;
2830 2831
}

2832
static char *qemudNetworkDumpXML(virNetworkPtr net, int flags ATTRIBUTE_UNUSED) {
2833 2834 2835
    struct qemud_driver *driver = (struct qemud_driver *)net->conn->networkPrivateData;
    struct qemud_network *network = qemudFindNetworkByUUID(driver, net->uuid);

2836
    if (!network) {
2837
        qemudReportError(net->conn, NULL, net, VIR_ERR_INVALID_NETWORK,
2838
                         _("no network with matching uuid"));
2839
        return NULL;
2840 2841
    }

2842
    return qemudGenerateNetworkXML(net->conn, driver, network, network->def);
2843
}
D
Daniel P. Berrange 已提交
2844

2845
static char *qemudNetworkGetBridgeName(virNetworkPtr net) {
2846 2847 2848
    struct qemud_driver *driver = (struct qemud_driver *)net->conn->networkPrivateData;
    struct qemud_network *network = qemudFindNetworkByUUID(driver, net->uuid);
    char *bridge;
2849
    if (!network) {
2850 2851
        qemudReportError(net->conn, NULL, net, VIR_ERR_INVALID_NETWORK, "no network with matching id");
        return NULL;
2852 2853
    }

2854 2855 2856 2857 2858 2859
    bridge = strdup(network->bridge);
    if (!bridge) {
        qemudReportError(net->conn, NULL, net, VIR_ERR_NO_MEMORY, "bridge");
        return NULL;
    }
    return bridge;
2860 2861
}

2862
static int qemudNetworkGetAutostart(virNetworkPtr net,
2863
                             int *autostart) {
2864 2865
    struct qemud_driver *driver = (struct qemud_driver *)net->conn->networkPrivateData;
    struct qemud_network *network = qemudFindNetworkByUUID(driver, net->uuid);
2866 2867

    if (!network) {
2868
        qemudReportError(net->conn, NULL, net, VIR_ERR_INVALID_NETWORK, _("no network with matching uuid"));
2869 2870 2871 2872 2873 2874 2875 2876
        return -1;
    }

    *autostart = network->autostart;

    return 0;
}

2877
static int qemudNetworkSetAutostart(virNetworkPtr net,
2878
                             int autostart) {
2879 2880
    struct qemud_driver *driver = (struct qemud_driver *)net->conn->networkPrivateData;
    struct qemud_network *network = qemudFindNetworkByUUID(driver, net->uuid);
2881 2882

    if (!network) {
2883
        qemudReportError(net->conn, NULL, net, VIR_ERR_INVALID_NETWORK, _("no network with matching uuid"));
2884 2885 2886 2887 2888 2889 2890 2891
        return -1;
    }

    autostart = (autostart != 0);

    if (network->autostart == autostart)
        return 0;

2892 2893 2894
    if (autostart) {
        int err;

2895
        if ((err = virFileMakePath(driver->networkAutostartDir))) {
2896
            qemudReportError(net->conn, NULL, net, VIR_ERR_INTERNAL_ERROR,
2897
                             _("cannot create autostart directory %s: %s"),
2898
                             driver->networkAutostartDir, strerror(err));
2899 2900 2901 2902
            return -1;
        }

        if (symlink(network->configFile, network->autostartLink) < 0) {
2903
            qemudReportError(net->conn, NULL, net, VIR_ERR_INTERNAL_ERROR,
2904
                             _("Failed to create symlink '%s' to '%s': %s"),
2905 2906 2907 2908 2909
                             network->autostartLink, network->configFile, strerror(errno));
            return -1;
        }
    } else {
        if (unlink(network->autostartLink) < 0 && errno != ENOENT && errno != ENOTDIR) {
2910
            qemudReportError(net->conn, NULL, net, VIR_ERR_INTERNAL_ERROR,
2911
                             _("Failed to delete symlink '%s': %s"),
2912 2913 2914 2915 2916
                             network->autostartLink, strerror(errno));
            return -1;
        }
    }

2917 2918 2919 2920 2921
    network->autostart = autostart;

    return 0;
}

2922 2923 2924 2925
static virDriver qemuDriver = {
    VIR_DRV_QEMU,
    "QEMU",
    LIBVIR_VERSION_NUMBER,
2926
    qemudProbe, /* probe */
2927 2928
    qemudOpen, /* open */
    qemudClose, /* close */
2929
    NULL, /* supports_feature */
2930 2931
    qemudGetType, /* type */
    qemudGetVersion, /* version */
2932
    qemudGetHostname, /* hostname */
2933
    NULL, /* URI  */
2934 2935 2936 2937 2938 2939 2940 2941 2942 2943 2944
    qemudGetMaxVCPUs, /* getMaxVcpus */
    qemudGetNodeInfo, /* nodeGetInfo */
    qemudGetCapabilities, /* getCapabilities */
    qemudListDomains, /* listDomains */
    qemudNumDomains, /* numOfDomains */
    qemudDomainCreate, /* domainCreateLinux */
    qemudDomainLookupByID, /* domainLookupByID */
    qemudDomainLookupByUUID, /* domainLookupByUUID */
    qemudDomainLookupByName, /* domainLookupByName */
    qemudDomainSuspend, /* domainSuspend */
    qemudDomainResume, /* domainResume */
2945
    qemudDomainShutdown, /* domainShutdown */
2946 2947 2948
    NULL, /* domainReboot */
    qemudDomainDestroy, /* domainDestroy */
    qemudDomainGetOSType, /* domainGetOSType */
2949 2950 2951
    qemudDomainGetMaxMemory, /* domainGetMaxMemory */
    qemudDomainSetMaxMemory, /* domainSetMaxMemory */
    qemudDomainSetMemory, /* domainSetMemory */
2952 2953 2954 2955 2956 2957 2958 2959 2960 2961 2962 2963 2964 2965
    qemudDomainGetInfo, /* domainGetInfo */
    qemudDomainSave, /* domainSave */
    qemudDomainRestore, /* domainRestore */
    NULL, /* domainCoreDump */
    NULL, /* domainSetVcpus */
    NULL, /* domainPinVcpu */
    NULL, /* domainGetVcpus */
    NULL, /* domainGetMaxVcpus */
    qemudDomainDumpXML, /* domainDumpXML */
    qemudListDefinedDomains, /* listDomains */
    qemudNumDefinedDomains, /* numOfDomains */
    qemudDomainStart, /* domainCreate */
    qemudDomainDefine, /* domainDefineXML */
    qemudDomainUndefine, /* domainUndefine */
2966
    qemudDomainAttachDevice, /* domainAttachDevice */
2967 2968 2969 2970 2971 2972
    NULL, /* domainDetachDevice */
    qemudDomainGetAutostart, /* domainGetAutostart */
    qemudDomainSetAutostart, /* domainSetAutostart */
    NULL, /* domainGetSchedulerType */
    NULL, /* domainGetSchedulerParameters */
    NULL, /* domainSetSchedulerParameters */
2973 2974 2975
    NULL, /* domainMigratePrepare */
    NULL, /* domainMigratePerform */
    NULL, /* domainMigrateFinish */
2976
    qemudDomainBlockStats, /* domainBlockStats */
2977
    qemudDomainInterfaceStats, /* domainInterfaceStats */
2978
    NULL, /* nodeGetCellsFreeMemory */
2979
    NULL, /* getFreeMemory */
2980 2981 2982
};

static virNetworkDriver qemuNetworkDriver = {
2983
    "QEMU",
2984 2985 2986 2987 2988 2989 2990 2991 2992 2993 2994 2995 2996 2997 2998 2999 3000 3001 3002
    qemudOpenNetwork, /* open */
    qemudCloseNetwork, /* close */
    qemudNumNetworks, /* numOfNetworks */
    qemudListNetworks, /* listNetworks */
    qemudNumDefinedNetworks, /* numOfDefinedNetworks */
    qemudListDefinedNetworks, /* listDefinedNetworks */
    qemudNetworkLookupByUUID, /* networkLookupByUUID */
    qemudNetworkLookupByName, /* networkLookupByName */
    qemudNetworkCreate, /* networkCreateXML */
    qemudNetworkDefine, /* networkDefineXML */
    qemudNetworkUndefine, /* networkUndefine */
    qemudNetworkStart, /* networkCreate */
    qemudNetworkDestroy, /* networkDestroy */
    qemudNetworkDumpXML, /* networkDumpXML */
    qemudNetworkGetBridgeName, /* networkGetBridgeName */
    qemudNetworkGetAutostart, /* networkGetAutostart */
    qemudNetworkSetAutostart, /* networkSetAutostart */
};

3003 3004 3005 3006 3007 3008
static virStateDriver qemuStateDriver = {
    qemudStartup,
    qemudShutdown,
    qemudReload,
    qemudActive,
};
3009

3010 3011 3012 3013 3014 3015 3016
int qemudRegister(void) {
    virRegisterDriver(&qemuDriver);
    virRegisterNetworkDriver(&qemuNetworkDriver);
    virRegisterStateDriver(&qemuStateDriver);
    return 0;
}

3017 3018
#endif /* WITH_QEMU */

D
Daniel P. Berrange 已提交
3019 3020 3021 3022 3023 3024 3025 3026
/*
 * Local variables:
 *  indent-tabs-mode: nil
 *  c-indent-level: 4
 *  c-basic-offset: 4
 *  tab-width: 4
 * End:
 */