Archipelago » qemu

void hmp_info_spice(Monitor *mon)

{

    SpiceChannelList *chan;

    SpiceInfo *info;

    info = qmp_query_spice(NULL);

    if (!info->enabled) {

        monitor_printf(mon, "Server: disabled\n");

        goto out;

    }

    monitor_printf(mon, "Server:\n");

    if (info->has_port) {

        monitor_printf(mon, "     address: %s:%" PRId64 "\n",

                       info->host, info->port);

    }

    if (info->has_tls_port) {

        monitor_printf(mon, "     address: %s:%" PRId64 " [tls]\n",

                       info->host, info->tls_port);

    }

    monitor_printf(mon, "        auth: %s\n", info->auth);

    monitor_printf(mon, "    compiled: %s\n", info->compiled_version);

    if (!info->has_channels || info->channels == NULL) {

        monitor_printf(mon, "Channels: none\n");

    } else {

        for (chan = info->channels; chan; chan = chan->next) {

            monitor_printf(mon, "Channel:\n");

            monitor_printf(mon, "     address: %s:%s%s\n",

                           chan->value->host, chan->value->port,

                           chan->value->tls ? " [tls]" : "");

            monitor_printf(mon, "     session: %" PRId64 "\n",

                           chan->value->connection_id);

            monitor_printf(mon, "     channel: %" PRId64 ":%" PRId64 "\n",

                           chan->value->channel_type, chan->value->channel_id);

        }

    }

out:

    qapi_free_SpiceInfo(info);

}

void hmp_info_spice(Monitor *mon);

        .mhandler.info = hmp_info_spice,

# @SpiceChannel

#

# Information about a SPICE client channel.

#

# @host: The host name of the client.  QEMU tries to resolve this to a DNS name

#        when possible.

#

# @family: 'ipv6' if the client is connected via IPv6 and TCP

#          'ipv4' if the client is connected via IPv4 and TCP

#          'unix' if the client is connected via a unix domain socket

#          'unknown' otherwise

#

# @port: The client's port number.

#

# @connection-id: SPICE connection id number.  All channels with the same id

#                 belong to the same SPICE session.

#

# @connection-type: SPICE channel type number.  "1" is the main control channel,

#                   filter for this one if you want track spice sessions only

#

# @channel-id: SPICE channel ID number.  Usually "0", might be different needed

#              when multiple channels of the same type exist, such as multiple

#              display channels in a multihead setup

#

# @tls: true if the channel is encrypted, false otherwise.

#

# Since: 0.14.0

##

{ 'type': 'SpiceChannel',

  'data': {'host': 'str', 'family': 'str', 'port': 'str',

           'connection-id': 'int', 'channel-type': 'int', 'channel-id': 'int',

           'tls': 'bool'} }

##

# @SpiceInfo

#

# Information about the SPICE session.

# 

# @enabled: true if the SPICE server is enabled, false otherwise

#

# @host: #optional The hostname the SPICE server is bound to.  This depends on

#        the name resolution on the host and may be an IP address.

#

# @port: #optional The SPICE server's port number.

#

# @compiled-version: #optional SPICE server version.

#

# @tls-port: #optional The SPICE server's TLS port number.

#

# @auth: #optional the current authentication type used by the server

#        'none' if no authentication is being used

#        'spice' (TODO: describe)

#

# @channels: a list of @SpiceChannel for each active spice channel

#

# Since: 0.14.0

##

{ 'type': 'SpiceInfo',

  'data': {'enabled': 'bool', '*host': 'str', '*port': 'int',

           '*tls-port': 'int', '*auth': 'str', '*compiled-version': 'str',

           '*channels': ['SpiceChannel']} }

##

# @query-spice

#

# Returns information about the current SPICE server

#

# Returns: @SpiceInfo

#

# Since: 0.14.0

##

{ 'command': 'query-spice', 'returns': 'SpiceInfo' }

##

#if defined(CONFIG_SPICE)

    {

        .name       = "query-spice",

        .args_type  = "",

        .mhandler.cmd_new = qmp_marshal_input_query_spice,

    },

#endif

#ifndef CONFIG_SPICE

/* If SPICE support is enabled, the "true" query-spice command is

   defined in the SPICE subsystem. Also note that we use a small

   trick to maintain query-spice's original behavior, which is not

   to be available in the namespace if SPICE is not compiled in */

SpiceInfo *qmp_query_spice(Error **errp)

{

    error_set(errp, QERR_COMMAND_NOT_FOUND, "query-spice");

    return NULL;

};

#endif

#include "qmp-commands.h"

static SpiceChannelList *qmp_query_spice_channels(void)

    SpiceChannelList *cur_item = NULL, *head = NULL;

    ChannelList *item;

    QTAILQ_FOREACH(item, &channel_list, link) {

        SpiceChannelList *chan;

        char host[NI_MAXHOST], port[NI_MAXSERV];

        chan = g_malloc0(sizeof(*chan));

        chan->value = g_malloc0(sizeof(*chan->value));

        getnameinfo(&item->info->paddr, item->info->plen,

                    host, sizeof(host), port, sizeof(port),

                    NI_NUMERICHOST | NI_NUMERICSERV);

        chan->value->host = g_strdup(host);

        chan->value->port = g_strdup(port);

        chan->value->family = g_strdup(inet_strfamily(item->info->paddr.sa_family));

        chan->value->connection_id = item->info->connection_id;

        chan->value->channel_type = item->info->type;

        chan->value->channel_id = item->info->id;

        chan->value->tls = item->info->flags & SPICE_CHANNEL_EVENT_FLAG_TLS;

       /* XXX: waiting for the qapi to support GSList */

        if (!cur_item) {

            head = cur_item = chan;

        } else {

            cur_item->next = chan;

            cur_item = chan;

        }

    return head;

SpiceInfo *qmp_query_spice(Error **errp)

    const char *addr;

    SpiceInfo *info;

    info = g_malloc0(sizeof(*info));

        info->enabled = false;

        return info;

    info->enabled = true;

    info->has_auth = true;

    info->auth = g_strdup(auth);

    info->has_host = true;

    info->host = g_strdup(addr ? addr : "0.0.0.0");

    info->has_compiled_version = true;

    info->compiled_version = g_strdup(version_string);

        info->has_port = true;

        info->port = port;

        info->has_tls_port = true;

        info->tls_port = tls_port;

    /* for compatibility with the original command */

    info->has_channels = true;

    info->channels = qmp_query_spice_channels();

    return info;