src/lxc/monitor.c

	monitor.c revision 2366b8a769b9403fda3c4780c84ad87d07b21d7e
e88e76e782853e826d00524ee1133e64fb69b3d9Aki Tuomi/*
e88e76e782853e826d00524ee1133e64fb69b3d9Aki Tuomi * lxc: linux Container library
e88e76e782853e826d00524ee1133e64fb69b3d9Aki Tuomi *
e88e76e782853e826d00524ee1133e64fb69b3d9Aki Tuomi * (C) Copyright IBM Corp. 2007, 2008
e88e76e782853e826d00524ee1133e64fb69b3d9Aki Tuomi *
e88e76e782853e826d00524ee1133e64fb69b3d9Aki Tuomi * Authors:
e88e76e782853e826d00524ee1133e64fb69b3d9Aki Tuomi * Daniel Lezcano <daniel.lezcano at free.fr>
e88e76e782853e826d00524ee1133e64fb69b3d9Aki Tuomi * Dwight Engen <dwight.engen@oracle.com>
e88e76e782853e826d00524ee1133e64fb69b3d9Aki Tuomi *
e88e76e782853e826d00524ee1133e64fb69b3d9Aki Tuomi * This library is free software; you can redistribute it and/or
e88e76e782853e826d00524ee1133e64fb69b3d9Aki Tuomi * modify it under the terms of the GNU Lesser General Public
e88e76e782853e826d00524ee1133e64fb69b3d9Aki Tuomi * License as published by the Free Software Foundation; either
e88e76e782853e826d00524ee1133e64fb69b3d9Aki Tuomi * version 2.1 of the License, or (at your option) any later version.
e88e76e782853e826d00524ee1133e64fb69b3d9Aki Tuomi *
e88e76e782853e826d00524ee1133e64fb69b3d9Aki Tuomi * This library is distributed in the hope that it will be useful,
e88e76e782853e826d00524ee1133e64fb69b3d9Aki Tuomi * but WITHOUT ANY WARRANTY; without even the implied warranty of
e88e76e782853e826d00524ee1133e64fb69b3d9Aki Tuomi * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
e88e76e782853e826d00524ee1133e64fb69b3d9Aki Tuomi * Lesser General Public License for more details.
e88e76e782853e826d00524ee1133e64fb69b3d9Aki Tuomi *
e88e76e782853e826d00524ee1133e64fb69b3d9Aki Tuomi * You should have received a copy of the GNU Lesser General Public
e88e76e782853e826d00524ee1133e64fb69b3d9Aki Tuomi * License along with this library; if not, write to the Free Software
e88e76e782853e826d00524ee1133e64fb69b3d9Aki Tuomi * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
e88e76e782853e826d00524ee1133e64fb69b3d9Aki Tuomi */
e88e76e782853e826d00524ee1133e64fb69b3d9Aki Tuomi
e88e76e782853e826d00524ee1133e64fb69b3d9Aki Tuomi#include <stdio.h>
e88e76e782853e826d00524ee1133e64fb69b3d9Aki Tuomi#include <errno.h>
e88e76e782853e826d00524ee1133e64fb69b3d9Aki Tuomi#include <unistd.h>
e88e76e782853e826d00524ee1133e64fb69b3d9Aki Tuomi#include <string.h>
e88e76e782853e826d00524ee1133e64fb69b3d9Aki Tuomi#include <stdlib.h>
#include <stddef.h>
#include <fcntl.h>
#include <inttypes.h>
#include <stdint.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <sys/param.h>
#include <sys/socket.h>
#include <sys/wait.h>
#include <netinet/in.h>
#include <net/if.h>
#include <poll.h>

#include "error.h"
#include "af_unix.h"
#include "log.h"
#include "lxclock.h"
#include "state.h"
#include "monitor.h"
#include "utils.h"

lxc_log_define(lxc_monitor, lxc);

/* routines used by monitor publishers (containers) */
int lxc_monitor_fifo_name(const char *lxcpath, char *fifo_path, size_t fifo_path_sz,
              int do_mkdirp)
{
    int ret;
    char *rundir;

    rundir = get_rundir();
    if (!rundir)
        return -1;

    if (do_mkdirp) {
        ret = snprintf(fifo_path, fifo_path_sz, "%s/lxc/%s", rundir, lxcpath);
        if (ret < 0 || ret >= fifo_path_sz) {
            ERROR("rundir/lxcpath (%s/%s) too long for monitor fifo", rundir, lxcpath);
            free(rundir);
            return -1;
        }
        ret = mkdir_p(fifo_path, 0755);
        if (ret < 0) {
            ERROR("unable to create monitor fifo dir %s", fifo_path);
            free(rundir);
            return ret;
        }
    }
    ret = snprintf(fifo_path, fifo_path_sz, "%s/lxc/%s/monitor-fifo", rundir, lxcpath);
    if (ret < 0 || ret >= fifo_path_sz) {
        ERROR("rundir/lxcpath (%s/%s) too long for monitor fifo", rundir, lxcpath);
        free(rundir);
        return -1;
    }
    free(rundir);
    return 0;
}

static void lxc_monitor_fifo_send(struct lxc_msg *msg, const char *lxcpath)
{
    int fd,ret;
    char fifo_path[PATH_MAX];

    BUILD_BUG_ON(sizeof(*msg) > PIPE_BUF); /* write not guaranteed atomic */

    ret = lxc_monitor_fifo_name(lxcpath, fifo_path, sizeof(fifo_path), 0);
    if (ret < 0)
        return;

    /* open the fifo nonblock in case the monitor is dead, we don't want
     * the open to wait for a reader since it may never come.
     */
    fd = open(fifo_path, O_WRONLY|O_NONBLOCK);
    if (fd < 0) {
        /* it is normal for this open to fail ENXIO when there is no
         * monitor running, so we don't log it
         */
        return;
    }

    if (fcntl(fd, F_SETFL, O_WRONLY) < 0) {
        close(fd);
        return;
    }

    ret = write(fd, msg, sizeof(*msg));
    if (ret != sizeof(*msg)) {
        close(fd);
        SYSERROR("failed to write monitor fifo %s", fifo_path);
        return;
    }

    close(fd);
}

void lxc_monitor_send_state(const char *name, lxc_state_t state, const char *lxcpath)
{
    struct lxc_msg msg = { .type = lxc_msg_state,
                   .value = state };
    strncpy(msg.name, name, sizeof(msg.name));
    msg.name[sizeof(msg.name) - 1] = 0;

    lxc_monitor_fifo_send(&msg, lxcpath);
}

void lxc_monitor_send_exit_code(const char *name, int exit_code, const char *lxcpath)
{
    struct lxc_msg msg = { .type = lxc_msg_exit_code,
                   .value = exit_code };
    strncpy(msg.name, name, sizeof(msg.name));
    msg.name[sizeof(msg.name) - 1] = 0;

    lxc_monitor_fifo_send(&msg, lxcpath);
}


/* routines used by monitor subscribers (lxc-monitor) */
int lxc_monitor_close(int fd)
{
    return close(fd);
}

int lxc_monitor_sock_name(const char *lxcpath, struct sockaddr_un *addr) {
    size_t len;
    int ret;
    char *sockname = &addr->sun_path[1];
    char *path;
    uint64_t hash;

    /* addr.sun_path is only 108 bytes, so we hash the full name and
     * then append as much of the name as we can fit.
     */
    memset(addr, 0, sizeof(*addr));
    addr->sun_family = AF_UNIX;
    len = strlen(lxcpath) + 18;
    path = alloca(len);
    ret = snprintf(path, len, "lxc/%s/monitor-sock", lxcpath);
    if (ret < 0 || ret >= len) {
        ERROR("memory error creating monitor path");
        return -1;
    }

    len = sizeof(addr->sun_path) - 1;
    hash = fnv_64a_buf(path, ret, FNV1A_64_INIT);
    ret = snprintf(sockname, len, "lxc/%016" PRIx64 "/%s", hash, lxcpath);
    if (ret < 0)
        return -1;
    sockname[sizeof(addr->sun_path)-3] = '\0';
    INFO("using monitor sock name %s", sockname);
    return 0;
}

int lxc_monitor_open(const char *lxcpath)
{
    struct sockaddr_un addr;
    int fd,ret;
    int retry,backoff_ms[] = {10, 50, 100};
    size_t len;

    if (lxc_monitor_sock_name(lxcpath, &addr) < 0)
        return -1;

    fd = socket(PF_UNIX, SOCK_STREAM, 0);
    if (fd < 0) {
        ERROR("socket : %s", strerror(errno));
        return -1;
    }

    len = strlen(&addr.sun_path[1]) + 1;
    if (len >= sizeof(addr.sun_path) - 1) {
        ret = -1;
        errno = ENAMETOOLONG;
        goto err1;
    }

    for (retry = 0; retry < sizeof(backoff_ms)/sizeof(backoff_ms[0]); retry++) {
        ret = connect(fd, (struct sockaddr *)&addr, offsetof(struct sockaddr_un, sun_path) + len);
        if (ret == 0 || errno != ECONNREFUSED)
            break;
        ERROR("connect : backing off %d", backoff_ms[retry]);
        usleep(backoff_ms[retry] * 1000);
    }

    if (ret < 0) {
        ERROR("connect : %s", strerror(errno));
        goto err1;
    }
    return fd;
err1:
    close(fd);
    return ret;
}

int lxc_monitor_read_fdset(struct pollfd *fds, nfds_t nfds, struct lxc_msg *msg,
               int timeout)
{
    long i;
    int ret;

    ret = poll(fds, nfds, timeout * 1000);
    if (ret == -1)
        return -1;
    else if (ret == 0)
        return -2;  // timed out

    /* only read from the first ready fd, the others will remain ready
     * for when this routine is called again
     */
    for (i = 0; i < nfds; i++) {
        if (fds[i].revents != 0) {
            fds[i].revents = 0;
            ret = recv(fds[i].fd, msg, sizeof(*msg), 0);
            if (ret <= 0) {
                SYSERROR("client failed to recv (monitord died?) %s",
                     strerror(errno));
                return -1;
            }
            return ret;
        }
    }
    SYSERROR("no ready fd found?");
    return -1;
}

int lxc_monitor_read_timeout(int fd, struct lxc_msg *msg, int timeout)
{
    struct pollfd fds;

    fds.fd = fd;
    fds.events = POLLIN | POLLPRI;
    fds.revents = 0;

    return lxc_monitor_read_fdset(&fds, 1, msg, timeout);
}

int lxc_monitor_read(int fd, struct lxc_msg *msg)
{
    return lxc_monitor_read_timeout(fd, msg, -1);
}


#define LXC_MONITORD_PATH LIBEXECDIR "/lxc/lxc-monitord"

/* used to spawn a monitord either on startup of a daemon container, or when
 * lxc-monitor starts
 */
int lxc_monitord_spawn(const char *lxcpath)
{
    pid_t pid1,pid2;
    int pipefd[2];
    char pipefd_str[11];

    char * const args[] = {
        LXC_MONITORD_PATH,
        (char *)lxcpath,
        pipefd_str,
        NULL,
    };

    /* double fork to avoid zombies when monitord exits */
    pid1 = fork();
    if (pid1 < 0) {
        SYSERROR("failed to fork");
        return -1;
    }

    if (pid1) {
        if (waitpid(pid1, NULL, 0) != pid1)
            return -1;
        return 0;
    }

    if (pipe(pipefd) < 0) {
        SYSERROR("failed to create pipe");
        exit(EXIT_FAILURE);
    }

    pid2 = fork();
    if (pid2 < 0) {
        SYSERROR("failed to fork");
        exit(EXIT_FAILURE);
    }
    if (pid2) {
        char c;
        /* wait for daemon to create socket */
        close(pipefd[1]);
        /* sync with child, we're ignoring the return from read
         * because regardless if it works or not, either way we've
         * synced with the child process. the if-empty-statement
         * construct is to quiet the warn-unused-result warning.
         */
        if (read(pipefd[0], &c, 1))
            ;
        close(pipefd[0]);
        exit(EXIT_SUCCESS);
    }

    if (setsid() < 0) {
        SYSERROR("failed to setsid");
        exit(EXIT_FAILURE);
    }
    lxc_check_inherited(NULL, true, pipefd[1]);
    close(0);
    close(1);
    close(2);
    open("/dev/null", O_RDONLY);
    open("/dev/null", O_RDWR);
    open("/dev/null", O_RDWR);
    close(pipefd[0]);
    sprintf(pipefd_str, "%d", pipefd[1]);
    execvp(args[0], args);
    exit(EXIT_FAILURE);
}