ui/ui-hmp-cmds.c

   1 /*
   2  * HMP commands related to UI
   3  *
   4  * Copyright IBM, Corp. 2011
   5  *
   6  * Authors:
   7  *  Anthony Liguori   <aliguori@us.ibm.com>
   8  *
   9  * This work is licensed under the terms of the GNU GPL, version 2.  See
  10  * the COPYING file in the top-level directory.
  11  *
  12  * Contributions after 2012-01-13 are licensed under the terms of the
  13  * GNU GPL, version 2 or (at your option) any later version.
  14  */
  15
  16 #include "qemu/osdep.h"
  17 #ifdef CONFIG_SPICE
  18 #include <spice/enums.h>
  19 #endif
  20 #include "monitor/hmp.h"
  21 #include "monitor/monitor-internal.h"
  22 #include "qapi/error.h"
  23 #include "qapi/qapi-commands-ui.h"
  24 #include "qapi/qmp/qdict.h"
  25 #include "qemu/cutils.h"
  26 #include "ui/console.h"
  27 #include "ui/input.h"
  28
  29 static int mouse_button_state;
  30
  31 void hmp_mouse_move(Monitor *mon, const QDict *qdict)
  32 {
  33     int dx, dy, dz, button;
  34     const char *dx_str = qdict_get_str(qdict, "dx_str");
  35     const char *dy_str = qdict_get_str(qdict, "dy_str");
  36     const char *dz_str = qdict_get_try_str(qdict, "dz_str");
  37
  38     dx = strtol(dx_str, NULL, 0);
  39     dy = strtol(dy_str, NULL, 0);
  40     qemu_input_queue_rel(NULL, INPUT_AXIS_X, dx);
  41     qemu_input_queue_rel(NULL, INPUT_AXIS_Y, dy);
  42
  43     if (dz_str) {
  44         dz = strtol(dz_str, NULL, 0);
  45         if (dz != 0) {
  46             button = (dz > 0) ? INPUT_BUTTON_WHEEL_UP : INPUT_BUTTON_WHEEL_DOWN;
  47             qemu_input_queue_btn(NULL, button, true);
  48             qemu_input_event_sync();
  49             qemu_input_queue_btn(NULL, button, false);
  50         }
  51     }
  52     qemu_input_event_sync();
  53 }
  54
  55 void hmp_mouse_button(Monitor *mon, const QDict *qdict)
  56 {
  57     static uint32_t bmap[INPUT_BUTTON__MAX] = {
  58         [INPUT_BUTTON_LEFT]       = MOUSE_EVENT_LBUTTON,
  59         [INPUT_BUTTON_MIDDLE]     = MOUSE_EVENT_MBUTTON,
  60         [INPUT_BUTTON_RIGHT]      = MOUSE_EVENT_RBUTTON,
  61     };
  62     int button_state = qdict_get_int(qdict, "button_state");
  63
  64     if (mouse_button_state == button_state) {
  65         return;
  66     }
  67     qemu_input_update_buttons(NULL, bmap, mouse_button_state, button_state);
  68     qemu_input_event_sync();
  69     mouse_button_state = button_state;
  70 }
  71
  72 void hmp_mouse_set(Monitor *mon, const QDict *qdict)
  73 {
  74     Error *err = NULL;
  75
  76     qemu_mouse_set(qdict_get_int(qdict, "index"), &err);
  77     hmp_handle_error(mon, err);
  78 }
  79
  80 void hmp_info_mice(Monitor *mon, const QDict *qdict)
  81 {
  82     MouseInfoList *mice_list, *mouse;
  83
  84     mice_list = qmp_query_mice(NULL);
  85     if (!mice_list) {
  86         monitor_printf(mon, "No mouse devices connected\n");
  87         return;
  88     }
  89
  90     for (mouse = mice_list; mouse; mouse = mouse->next) {
  91         monitor_printf(mon, "%c Mouse #%" PRId64 ": %s%s\n",
  92                        mouse->value->current ? '*' : ' ',
  93                        mouse->value->index, mouse->value->name,
  94                        mouse->value->absolute ? " (absolute)" : "");
  95     }
  96
  97     qapi_free_MouseInfoList(mice_list);
  98 }
  99
 100 #ifdef CONFIG_VNC
 101 /* Helper for hmp_info_vnc_clients, _servers */
 102 static void hmp_info_VncBasicInfo(Monitor *mon, VncBasicInfo *info,
 103                                   const char *name)
 104 {
 105     monitor_printf(mon, "  %s: %s:%s (%s%s)\n",
 106                    name,
 107                    info->host,
 108                    info->service,
 109                    NetworkAddressFamily_str(info->family),
 110                    info->websocket ? " (Websocket)" : "");
 111 }
 112
 113 /* Helper displaying and auth and crypt info */
 114 static void hmp_info_vnc_authcrypt(Monitor *mon, const char *indent,
 115                                    VncPrimaryAuth auth,
 116                                    VncVencryptSubAuth *vencrypt)
 117 {
 118     monitor_printf(mon, "%sAuth: %s (Sub: %s)\n", indent,
 119                    VncPrimaryAuth_str(auth),
 120                    vencrypt ? VncVencryptSubAuth_str(*vencrypt) : "none");
 121 }
 122
 123 static void hmp_info_vnc_clients(Monitor *mon, VncClientInfoList *client)
 124 {
 125     while (client) {
 126         VncClientInfo *cinfo = client->value;
 127
 128         hmp_info_VncBasicInfo(mon, qapi_VncClientInfo_base(cinfo), "Client");
 129         monitor_printf(mon, "    x509_dname: %s\n",
 130                        cinfo->x509_dname ?: "none");
 131         monitor_printf(mon, "    sasl_username: %s\n",
 132                        cinfo->sasl_username ?: "none");
 133
 134         client = client->next;
 135     }
 136 }
 137
 138 static void hmp_info_vnc_servers(Monitor *mon, VncServerInfo2List *server)
 139 {
 140     while (server) {
 141         VncServerInfo2 *sinfo = server->value;
 142         hmp_info_VncBasicInfo(mon, qapi_VncServerInfo2_base(sinfo), "Server");
 143         hmp_info_vnc_authcrypt(mon, "    ", sinfo->auth,
 144                                sinfo->has_vencrypt ? &sinfo->vencrypt : NULL);
 145         server = server->next;
 146     }
 147 }
 148
 149 void hmp_info_vnc(Monitor *mon, const QDict *qdict)
 150 {
 151     VncInfo2List *info2l, *info2l_head;
 152     Error *err = NULL;
 153
 154     info2l = qmp_query_vnc_servers(&err);
 155     info2l_head = info2l;
 156     if (hmp_handle_error(mon, err)) {
 157         return;
 158     }
 159     if (!info2l) {
 160         monitor_printf(mon, "None\n");
 161         return;
 162     }
 163
 164     while (info2l) {
 165         VncInfo2 *info = info2l->value;
 166         monitor_printf(mon, "%s:\n", info->id);
 167         hmp_info_vnc_servers(mon, info->server);
 168         hmp_info_vnc_clients(mon, info->clients);
 169         if (!info->server) {
 170             /*
 171              * The server entry displays its auth, we only need to
 172              * display in the case of 'reverse' connections where
 173              * there's no server.
 174              */
 175             hmp_info_vnc_authcrypt(mon, "  ", info->auth,
 176                                info->has_vencrypt ? &info->vencrypt : NULL);
 177         }
 178         if (info->display) {
 179             monitor_printf(mon, "  Display: %s\n", info->display);
 180         }
 181         info2l = info2l->next;
 182     }
 183
 184     qapi_free_VncInfo2List(info2l_head);
 185
 186 }
 187 #endif
 188
 189 #ifdef CONFIG_SPICE
 190 void hmp_info_spice(Monitor *mon, const QDict *qdict)
 191 {
 192     SpiceChannelList *chan;
 193     SpiceInfo *info;
 194     const char *channel_name;
 195     static const char *const channel_names[] = {
 196         [SPICE_CHANNEL_MAIN] = "main",
 197         [SPICE_CHANNEL_DISPLAY] = "display",
 198         [SPICE_CHANNEL_INPUTS] = "inputs",
 199         [SPICE_CHANNEL_CURSOR] = "cursor",
 200         [SPICE_CHANNEL_PLAYBACK] = "playback",
 201         [SPICE_CHANNEL_RECORD] = "record",
 202         [SPICE_CHANNEL_TUNNEL] = "tunnel",
 203         [SPICE_CHANNEL_SMARTCARD] = "smartcard",
 204         [SPICE_CHANNEL_USBREDIR] = "usbredir",
 205         [SPICE_CHANNEL_PORT] = "port",
 206         [SPICE_CHANNEL_WEBDAV] = "webdav",
 207     };
 208
 209     info = qmp_query_spice(NULL);
 210
 211     if (!info->enabled) {
 212         monitor_printf(mon, "Server: disabled\n");
 213         goto out;
 214     }
 215
 216     monitor_printf(mon, "Server:\n");
 217     if (info->has_port) {
 218         monitor_printf(mon, "     address: %s:%" PRId64 "\n",
 219                        info->host, info->port);
 220     }
 221     if (info->has_tls_port) {
 222         monitor_printf(mon, "     address: %s:%" PRId64 " [tls]\n",
 223                        info->host, info->tls_port);
 224     }
 225     monitor_printf(mon, "    migrated: %s\n",
 226                    info->migrated ? "true" : "false");
 227     monitor_printf(mon, "        auth: %s\n", info->auth);
 228     monitor_printf(mon, "    compiled: %s\n", info->compiled_version);
 229     monitor_printf(mon, "  mouse-mode: %s\n",
 230                    SpiceQueryMouseMode_str(info->mouse_mode));
 231
 232     if (!info->has_channels || info->channels == NULL) {
 233         monitor_printf(mon, "Channels: none\n");
 234     } else {
 235         for (chan = info->channels; chan; chan = chan->next) {
 236             monitor_printf(mon, "Channel:\n");
 237             monitor_printf(mon, "     address: %s:%s%s\n",
 238                            chan->value->host, chan->value->port,
 239                            chan->value->tls ? " [tls]" : "");
 240             monitor_printf(mon, "     session: %" PRId64 "\n",
 241                            chan->value->connection_id);
 242             monitor_printf(mon, "     channel: %" PRId64 ":%" PRId64 "\n",
 243                            chan->value->channel_type, chan->value->channel_id);
 244
 245             channel_name = "unknown";
 246             if (chan->value->channel_type > 0 &&
 247                 chan->value->channel_type < ARRAY_SIZE(channel_names) &&
 248                 channel_names[chan->value->channel_type]) {
 249                 channel_name = channel_names[chan->value->channel_type];
 250             }
 251
 252             monitor_printf(mon, "     channel name: %s\n", channel_name);
 253         }
 254     }
 255
 256 out:
 257     qapi_free_SpiceInfo(info);
 258 }
 259 #endif
 260
 261 void hmp_set_password(Monitor *mon, const QDict *qdict)
 262 {
 263     const char *protocol  = qdict_get_str(qdict, "protocol");
 264     const char *password  = qdict_get_str(qdict, "password");
 265     const char *display = qdict_get_try_str(qdict, "display");
 266     const char *connected = qdict_get_try_str(qdict, "connected");
 267     Error *err = NULL;
 268
 269     SetPasswordOptions opts = {
 270         .password = (char *)password,
 271         .has_connected = !!connected,
 272     };
 273
 274     opts.connected = qapi_enum_parse(&SetPasswordAction_lookup, connected,
 275                                      SET_PASSWORD_ACTION_KEEP, &err);
 276     if (err) {
 277         goto out;
 278     }
 279
 280     opts.protocol = qapi_enum_parse(&DisplayProtocol_lookup, protocol,
 281                                     DISPLAY_PROTOCOL_VNC, &err);
 282     if (err) {
 283         goto out;
 284     }
 285
 286     if (opts.protocol == DISPLAY_PROTOCOL_VNC) {
 287         opts.u.vnc.display = (char *)display;
 288     }
 289
 290     qmp_set_password(&opts, &err);
 291
 292 out:
 293     hmp_handle_error(mon, err);
 294 }
 295
 296 void hmp_expire_password(Monitor *mon, const QDict *qdict)
 297 {
 298     const char *protocol  = qdict_get_str(qdict, "protocol");
 299     const char *whenstr = qdict_get_str(qdict, "time");
 300     const char *display = qdict_get_try_str(qdict, "display");
 301     Error *err = NULL;
 302
 303     ExpirePasswordOptions opts = {
 304         .time = (char *)whenstr,
 305     };
 306
 307     opts.protocol = qapi_enum_parse(&DisplayProtocol_lookup, protocol,
 308                                     DISPLAY_PROTOCOL_VNC, &err);
 309     if (err) {
 310         goto out;
 311     }
 312
 313     if (opts.protocol == DISPLAY_PROTOCOL_VNC) {
 314         opts.u.vnc.display = (char *)display;
 315     }
 316
 317     qmp_expire_password(&opts, &err);
 318
 319 out:
 320     hmp_handle_error(mon, err);
 321 }
 322
 323 #ifdef CONFIG_VNC
 324 static void hmp_change_read_arg(void *opaque, const char *password,
 325                                 void *readline_opaque)
 326 {
 327     qmp_change_vnc_password(password, NULL);
 328     monitor_read_command(opaque, 1);
 329 }
 330
 331 void hmp_change_vnc(Monitor *mon, const char *device, const char *target,
 332                     const char *arg, const char *read_only, bool force,
 333                     Error **errp)
 334 {
 335     if (read_only) {
 336         error_setg(errp, "Parameter 'read-only-mode' is invalid for VNC");
 337         return;
 338     }
 339     if (strcmp(target, "passwd") && strcmp(target, "password")) {
 340         error_setg(errp, "Expected 'password' after 'vnc'");
 341         return;
 342     }
 343     if (!arg) {
 344         MonitorHMP *hmp_mon = container_of(mon, MonitorHMP, common);
 345         monitor_read_password(hmp_mon, hmp_change_read_arg, NULL);
 346     } else {
 347         qmp_change_vnc_password(arg, errp);
 348     }
 349 }
 350 #endif
 351
 352 void hmp_sendkey(Monitor *mon, const QDict *qdict)
 353 {
 354     const char *keys = qdict_get_str(qdict, "keys");
 355     KeyValue *v = NULL;
 356     KeyValueList *head = NULL, **tail = &head;
 357     int has_hold_time = qdict_haskey(qdict, "hold-time");
 358     int hold_time = qdict_get_try_int(qdict, "hold-time", -1);
 359     Error *err = NULL;
 360     const char *separator;
 361     int keyname_len;
 362
 363     while (1) {
 364         separator = qemu_strchrnul(keys, '-');
 365         keyname_len = separator - keys;
 366
 367         /* Be compatible with old interface, convert user inputted "<" */
 368         if (keys[0] == '<' && keyname_len == 1) {
 369             keys = "less";
 370             keyname_len = 4;
 371         }
 372
 373         v = g_malloc0(sizeof(*v));
 374
 375         if (strstart(keys, "0x", NULL)) {
 376             const char *endp;
 377             int value;
 378
 379             if (qemu_strtoi(keys, &endp, 0, &value) < 0) {
 380                 goto err_out;
 381             }
 382             assert(endp <= keys + keyname_len);
 383             if (endp != keys + keyname_len) {
 384                 goto err_out;
 385             }
 386             v->type = KEY_VALUE_KIND_NUMBER;
 387             v->u.number.data = value;
 388         } else {
 389             int idx = index_from_key(keys, keyname_len);
 390             if (idx == Q_KEY_CODE__MAX) {
 391                 goto err_out;
 392             }
 393             v->type = KEY_VALUE_KIND_QCODE;
 394             v->u.qcode.data = idx;
 395         }
 396         QAPI_LIST_APPEND(tail, v);
 397         v = NULL;
 398
 399         if (!*separator) {
 400             break;
 401         }
 402         keys = separator + 1;
 403     }
 404
 405     qmp_send_key(head, has_hold_time, hold_time, &err);
 406     hmp_handle_error(mon, err);
 407
 408 out:
 409     qapi_free_KeyValue(v);
 410     qapi_free_KeyValueList(head);
 411     return;
 412
 413 err_out:
 414     monitor_printf(mon, "invalid parameter: %.*s\n", keyname_len, keys);
 415     goto out;
 416 }
 417
 418 void sendkey_completion(ReadLineState *rs, int nb_args, const char *str)
 419 {
 420     int i;
 421     char *sep;
 422     size_t len;
 423
 424     if (nb_args != 2) {
 425         return;
 426     }
 427     sep = strrchr(str, '-');
 428     if (sep) {
 429         str = sep + 1;
 430     }
 431     len = strlen(str);
 432     readline_set_completion_index(rs, len);
 433     for (i = 0; i < Q_KEY_CODE__MAX; i++) {
 434         if (!strncmp(str, QKeyCode_str(i), len)) {
 435             readline_add_completion(rs, QKeyCode_str(i));
 436         }
 437     }
 438 }
 439
 440 #ifdef CONFIG_PIXMAN
 441 void coroutine_fn
 442 hmp_screendump(Monitor *mon, const QDict *qdict)
 443 {
 444     const char *filename = qdict_get_str(qdict, "filename");
 445     const char *id = qdict_get_try_str(qdict, "device");
 446     int64_t head = qdict_get_try_int(qdict, "head", 0);
 447     const char *input_format  = qdict_get_try_str(qdict, "format");
 448     Error *err = NULL;
 449     ImageFormat format;
 450
 451     format = qapi_enum_parse(&ImageFormat_lookup, input_format,
 452                               IMAGE_FORMAT_PPM, &err);
 453     if (err) {
 454         goto end;
 455     }
 456
 457     qmp_screendump(filename, id, id != NULL, head,
 458                    input_format != NULL, format, &err);
 459 end:
 460     hmp_handle_error(mon, err);
 461 }
 462 #endif
 463
 464 void hmp_client_migrate_info(Monitor *mon, const QDict *qdict)
 465 {
 466     Error *err = NULL;
 467     const char *protocol = qdict_get_str(qdict, "protocol");
 468     const char *hostname = qdict_get_str(qdict, "hostname");
 469     bool has_port        = qdict_haskey(qdict, "port");
 470     int port             = qdict_get_try_int(qdict, "port", -1);
 471     bool has_tls_port    = qdict_haskey(qdict, "tls-port");
 472     int tls_port         = qdict_get_try_int(qdict, "tls-port", -1);
 473     const char *cert_subject = qdict_get_try_str(qdict, "cert-subject");
 474
 475     qmp_client_migrate_info(protocol, hostname,
 476                             has_port, port, has_tls_port, tls_port,
 477                             cert_subject, &err);
 478     hmp_handle_error(mon, err);
 479 }