1 /*
2  * HMP commands related to migration
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 #include "block/qapi.h"
18 #include "migration/snapshot.h"
19 #include "monitor/hmp.h"
20 #include "monitor/monitor.h"
21 #include "qapi/error.h"
22 #include "qapi/qapi-commands-migration.h"
23 #include "qapi/qapi-visit-migration.h"
24 #include "qapi/qmp/qdict.h"
25 #include "qapi/string-input-visitor.h"
26 #include "qapi/string-output-visitor.h"
27 #include "qemu/cutils.h"
28 #include "qemu/error-report.h"
29 #include "qemu/sockets.h"
30 #include "sysemu/runstate.h"
31 #include "ui/qemu-spice.h"
32 #include "sysemu/sysemu.h"
33 #include "migration.h"
34 
35 static void migration_global_dump(Monitor *mon)
36 {
37     MigrationState *ms = migrate_get_current();
38 
39     monitor_printf(mon, "globals:\n");
40     monitor_printf(mon, "store-global-state: %s\n",
41                    ms->store_global_state ? "on" : "off");
42     monitor_printf(mon, "only-migratable: %s\n",
43                    only_migratable ? "on" : "off");
44     monitor_printf(mon, "send-configuration: %s\n",
45                    ms->send_configuration ? "on" : "off");
46     monitor_printf(mon, "send-section-footer: %s\n",
47                    ms->send_section_footer ? "on" : "off");
48     monitor_printf(mon, "decompress-error-check: %s\n",
49                    ms->decompress_error_check ? "on" : "off");
50     monitor_printf(mon, "clear-bitmap-shift: %u\n",
51                    ms->clear_bitmap_shift);
52 }
53 
54 void hmp_info_migrate(Monitor *mon, const QDict *qdict)
55 {
56     MigrationInfo *info;
57 
58     info = qmp_query_migrate(NULL);
59 
60     migration_global_dump(mon);
61 
62     if (info->blocked_reasons) {
63         strList *reasons = info->blocked_reasons;
64         monitor_printf(mon, "Outgoing migration blocked:\n");
65         while (reasons) {
66             monitor_printf(mon, "  %s\n", reasons->value);
67             reasons = reasons->next;
68         }
69     }
70 
71     if (info->has_status) {
72         monitor_printf(mon, "Migration status: %s",
73                        MigrationStatus_str(info->status));
74         if (info->status == MIGRATION_STATUS_FAILED && info->error_desc) {
75             monitor_printf(mon, " (%s)\n", info->error_desc);
76         } else {
77             monitor_printf(mon, "\n");
78         }
79 
80         monitor_printf(mon, "total time: %" PRIu64 " ms\n",
81                        info->total_time);
82         if (info->has_expected_downtime) {
83             monitor_printf(mon, "expected downtime: %" PRIu64 " ms\n",
84                            info->expected_downtime);
85         }
86         if (info->has_downtime) {
87             monitor_printf(mon, "downtime: %" PRIu64 " ms\n",
88                            info->downtime);
89         }
90         if (info->has_setup_time) {
91             monitor_printf(mon, "setup: %" PRIu64 " ms\n",
92                            info->setup_time);
93         }
94     }
95 
96     if (info->ram) {
97         monitor_printf(mon, "transferred ram: %" PRIu64 " kbytes\n",
98                        info->ram->transferred >> 10);
99         monitor_printf(mon, "throughput: %0.2f mbps\n",
100                        info->ram->mbps);
101         monitor_printf(mon, "remaining ram: %" PRIu64 " kbytes\n",
102                        info->ram->remaining >> 10);
103         monitor_printf(mon, "total ram: %" PRIu64 " kbytes\n",
104                        info->ram->total >> 10);
105         monitor_printf(mon, "duplicate: %" PRIu64 " pages\n",
106                        info->ram->duplicate);
107         monitor_printf(mon, "skipped: %" PRIu64 " pages\n",
108                        info->ram->skipped);
109         monitor_printf(mon, "normal: %" PRIu64 " pages\n",
110                        info->ram->normal);
111         monitor_printf(mon, "normal bytes: %" PRIu64 " kbytes\n",
112                        info->ram->normal_bytes >> 10);
113         monitor_printf(mon, "dirty sync count: %" PRIu64 "\n",
114                        info->ram->dirty_sync_count);
115         monitor_printf(mon, "page size: %" PRIu64 " kbytes\n",
116                        info->ram->page_size >> 10);
117         monitor_printf(mon, "multifd bytes: %" PRIu64 " kbytes\n",
118                        info->ram->multifd_bytes >> 10);
119         monitor_printf(mon, "pages-per-second: %" PRIu64 "\n",
120                        info->ram->pages_per_second);
121 
122         if (info->ram->dirty_pages_rate) {
123             monitor_printf(mon, "dirty pages rate: %" PRIu64 " pages\n",
124                            info->ram->dirty_pages_rate);
125         }
126         if (info->ram->postcopy_requests) {
127             monitor_printf(mon, "postcopy request count: %" PRIu64 "\n",
128                            info->ram->postcopy_requests);
129         }
130         if (info->ram->precopy_bytes) {
131             monitor_printf(mon, "precopy ram: %" PRIu64 " kbytes\n",
132                            info->ram->precopy_bytes >> 10);
133         }
134         if (info->ram->downtime_bytes) {
135             monitor_printf(mon, "downtime ram: %" PRIu64 " kbytes\n",
136                            info->ram->downtime_bytes >> 10);
137         }
138         if (info->ram->postcopy_bytes) {
139             monitor_printf(mon, "postcopy ram: %" PRIu64 " kbytes\n",
140                            info->ram->postcopy_bytes >> 10);
141         }
142         if (info->ram->dirty_sync_missed_zero_copy) {
143             monitor_printf(mon,
144                            "Zero-copy-send fallbacks happened: %" PRIu64 " times\n",
145                            info->ram->dirty_sync_missed_zero_copy);
146         }
147     }
148 
149     if (info->disk) {
150         monitor_printf(mon, "transferred disk: %" PRIu64 " kbytes\n",
151                        info->disk->transferred >> 10);
152         monitor_printf(mon, "remaining disk: %" PRIu64 " kbytes\n",
153                        info->disk->remaining >> 10);
154         monitor_printf(mon, "total disk: %" PRIu64 " kbytes\n",
155                        info->disk->total >> 10);
156     }
157 
158     if (info->xbzrle_cache) {
159         monitor_printf(mon, "cache size: %" PRIu64 " bytes\n",
160                        info->xbzrle_cache->cache_size);
161         monitor_printf(mon, "xbzrle transferred: %" PRIu64 " kbytes\n",
162                        info->xbzrle_cache->bytes >> 10);
163         monitor_printf(mon, "xbzrle pages: %" PRIu64 " pages\n",
164                        info->xbzrle_cache->pages);
165         monitor_printf(mon, "xbzrle cache miss: %" PRIu64 " pages\n",
166                        info->xbzrle_cache->cache_miss);
167         monitor_printf(mon, "xbzrle cache miss rate: %0.2f\n",
168                        info->xbzrle_cache->cache_miss_rate);
169         monitor_printf(mon, "xbzrle encoding rate: %0.2f\n",
170                        info->xbzrle_cache->encoding_rate);
171         monitor_printf(mon, "xbzrle overflow: %" PRIu64 "\n",
172                        info->xbzrle_cache->overflow);
173     }
174 
175     if (info->compression) {
176         monitor_printf(mon, "compression pages: %" PRIu64 " pages\n",
177                        info->compression->pages);
178         monitor_printf(mon, "compression busy: %" PRIu64 "\n",
179                        info->compression->busy);
180         monitor_printf(mon, "compression busy rate: %0.2f\n",
181                        info->compression->busy_rate);
182         monitor_printf(mon, "compressed size: %" PRIu64 " kbytes\n",
183                        info->compression->compressed_size >> 10);
184         monitor_printf(mon, "compression rate: %0.2f\n",
185                        info->compression->compression_rate);
186     }
187 
188     if (info->has_cpu_throttle_percentage) {
189         monitor_printf(mon, "cpu throttle percentage: %" PRIu64 "\n",
190                        info->cpu_throttle_percentage);
191     }
192 
193     if (info->has_dirty_limit_throttle_time_per_round) {
194         monitor_printf(mon, "dirty-limit throttle time: %" PRIu64 " us\n",
195                        info->dirty_limit_throttle_time_per_round);
196     }
197 
198     if (info->has_dirty_limit_ring_full_time) {
199         monitor_printf(mon, "dirty-limit ring full time: %" PRIu64 " us\n",
200                        info->dirty_limit_ring_full_time);
201     }
202 
203     if (info->has_postcopy_blocktime) {
204         monitor_printf(mon, "postcopy blocktime: %u\n",
205                        info->postcopy_blocktime);
206     }
207 
208     if (info->has_postcopy_vcpu_blocktime) {
209         Visitor *v;
210         char *str;
211         v = string_output_visitor_new(false, &str);
212         visit_type_uint32List(v, NULL, &info->postcopy_vcpu_blocktime,
213                               &error_abort);
214         visit_complete(v, &str);
215         monitor_printf(mon, "postcopy vcpu blocktime: %s\n", str);
216         g_free(str);
217         visit_free(v);
218     }
219     if (info->has_socket_address) {
220         SocketAddressList *addr;
221 
222         monitor_printf(mon, "socket address: [\n");
223 
224         for (addr = info->socket_address; addr; addr = addr->next) {
225             char *s = socket_uri(addr->value);
226             monitor_printf(mon, "\t%s\n", s);
227             g_free(s);
228         }
229         monitor_printf(mon, "]\n");
230     }
231 
232     if (info->vfio) {
233         monitor_printf(mon, "vfio device transferred: %" PRIu64 " kbytes\n",
234                        info->vfio->transferred >> 10);
235     }
236 
237     qapi_free_MigrationInfo(info);
238 }
239 
240 void hmp_info_migrate_capabilities(Monitor *mon, const QDict *qdict)
241 {
242     MigrationCapabilityStatusList *caps, *cap;
243 
244     caps = qmp_query_migrate_capabilities(NULL);
245 
246     if (caps) {
247         for (cap = caps; cap; cap = cap->next) {
248             monitor_printf(mon, "%s: %s\n",
249                            MigrationCapability_str(cap->value->capability),
250                            cap->value->state ? "on" : "off");
251         }
252     }
253 
254     qapi_free_MigrationCapabilityStatusList(caps);
255 }
256 
257 void hmp_info_migrate_parameters(Monitor *mon, const QDict *qdict)
258 {
259     MigrationParameters *params;
260 
261     params = qmp_query_migrate_parameters(NULL);
262 
263     if (params) {
264         monitor_printf(mon, "%s: %" PRIu64 " ms\n",
265             MigrationParameter_str(MIGRATION_PARAMETER_ANNOUNCE_INITIAL),
266             params->announce_initial);
267         monitor_printf(mon, "%s: %" PRIu64 " ms\n",
268             MigrationParameter_str(MIGRATION_PARAMETER_ANNOUNCE_MAX),
269             params->announce_max);
270         monitor_printf(mon, "%s: %" PRIu64 "\n",
271             MigrationParameter_str(MIGRATION_PARAMETER_ANNOUNCE_ROUNDS),
272             params->announce_rounds);
273         monitor_printf(mon, "%s: %" PRIu64 " ms\n",
274             MigrationParameter_str(MIGRATION_PARAMETER_ANNOUNCE_STEP),
275             params->announce_step);
276         assert(params->has_compress_level);
277         monitor_printf(mon, "%s: %u\n",
278             MigrationParameter_str(MIGRATION_PARAMETER_COMPRESS_LEVEL),
279             params->compress_level);
280         assert(params->has_compress_threads);
281         monitor_printf(mon, "%s: %u\n",
282             MigrationParameter_str(MIGRATION_PARAMETER_COMPRESS_THREADS),
283             params->compress_threads);
284         assert(params->has_compress_wait_thread);
285         monitor_printf(mon, "%s: %s\n",
286             MigrationParameter_str(MIGRATION_PARAMETER_COMPRESS_WAIT_THREAD),
287             params->compress_wait_thread ? "on" : "off");
288         assert(params->has_decompress_threads);
289         monitor_printf(mon, "%s: %u\n",
290             MigrationParameter_str(MIGRATION_PARAMETER_DECOMPRESS_THREADS),
291             params->decompress_threads);
292         assert(params->has_throttle_trigger_threshold);
293         monitor_printf(mon, "%s: %u\n",
294             MigrationParameter_str(MIGRATION_PARAMETER_THROTTLE_TRIGGER_THRESHOLD),
295             params->throttle_trigger_threshold);
296         assert(params->has_cpu_throttle_initial);
297         monitor_printf(mon, "%s: %u\n",
298             MigrationParameter_str(MIGRATION_PARAMETER_CPU_THROTTLE_INITIAL),
299             params->cpu_throttle_initial);
300         assert(params->has_cpu_throttle_increment);
301         monitor_printf(mon, "%s: %u\n",
302             MigrationParameter_str(MIGRATION_PARAMETER_CPU_THROTTLE_INCREMENT),
303             params->cpu_throttle_increment);
304         assert(params->has_cpu_throttle_tailslow);
305         monitor_printf(mon, "%s: %s\n",
306             MigrationParameter_str(MIGRATION_PARAMETER_CPU_THROTTLE_TAILSLOW),
307             params->cpu_throttle_tailslow ? "on" : "off");
308         assert(params->has_max_cpu_throttle);
309         monitor_printf(mon, "%s: %u\n",
310             MigrationParameter_str(MIGRATION_PARAMETER_MAX_CPU_THROTTLE),
311             params->max_cpu_throttle);
312         assert(params->tls_creds);
313         monitor_printf(mon, "%s: '%s'\n",
314             MigrationParameter_str(MIGRATION_PARAMETER_TLS_CREDS),
315             params->tls_creds);
316         assert(params->tls_hostname);
317         monitor_printf(mon, "%s: '%s'\n",
318             MigrationParameter_str(MIGRATION_PARAMETER_TLS_HOSTNAME),
319             params->tls_hostname);
320         assert(params->has_max_bandwidth);
321         monitor_printf(mon, "%s: %" PRIu64 " bytes/second\n",
322             MigrationParameter_str(MIGRATION_PARAMETER_MAX_BANDWIDTH),
323             params->max_bandwidth);
324         assert(params->has_avail_switchover_bandwidth);
325         monitor_printf(mon, "%s: %" PRIu64 " bytes/second\n",
326             MigrationParameter_str(MIGRATION_PARAMETER_AVAIL_SWITCHOVER_BANDWIDTH),
327             params->avail_switchover_bandwidth);
328         assert(params->has_downtime_limit);
329         monitor_printf(mon, "%s: %" PRIu64 " ms\n",
330             MigrationParameter_str(MIGRATION_PARAMETER_DOWNTIME_LIMIT),
331             params->downtime_limit);
332         assert(params->has_x_checkpoint_delay);
333         monitor_printf(mon, "%s: %u ms\n",
334             MigrationParameter_str(MIGRATION_PARAMETER_X_CHECKPOINT_DELAY),
335             params->x_checkpoint_delay);
336         assert(params->has_block_incremental);
337         monitor_printf(mon, "%s: %s\n",
338             MigrationParameter_str(MIGRATION_PARAMETER_BLOCK_INCREMENTAL),
339             params->block_incremental ? "on" : "off");
340         monitor_printf(mon, "%s: %u\n",
341             MigrationParameter_str(MIGRATION_PARAMETER_MULTIFD_CHANNELS),
342             params->multifd_channels);
343         monitor_printf(mon, "%s: %s\n",
344             MigrationParameter_str(MIGRATION_PARAMETER_MULTIFD_COMPRESSION),
345             MultiFDCompression_str(params->multifd_compression));
346         monitor_printf(mon, "%s: %" PRIu64 " bytes\n",
347             MigrationParameter_str(MIGRATION_PARAMETER_XBZRLE_CACHE_SIZE),
348             params->xbzrle_cache_size);
349         monitor_printf(mon, "%s: %" PRIu64 "\n",
350             MigrationParameter_str(MIGRATION_PARAMETER_MAX_POSTCOPY_BANDWIDTH),
351             params->max_postcopy_bandwidth);
352         monitor_printf(mon, "%s: '%s'\n",
353             MigrationParameter_str(MIGRATION_PARAMETER_TLS_AUTHZ),
354             params->tls_authz);
355 
356         if (params->has_block_bitmap_mapping) {
357             const BitmapMigrationNodeAliasList *bmnal;
358 
359             monitor_printf(mon, "%s:\n",
360                            MigrationParameter_str(
361                                MIGRATION_PARAMETER_BLOCK_BITMAP_MAPPING));
362 
363             for (bmnal = params->block_bitmap_mapping;
364                  bmnal;
365                  bmnal = bmnal->next)
366             {
367                 const BitmapMigrationNodeAlias *bmna = bmnal->value;
368                 const BitmapMigrationBitmapAliasList *bmbal;
369 
370                 monitor_printf(mon, "  '%s' -> '%s'\n",
371                                bmna->node_name, bmna->alias);
372 
373                 for (bmbal = bmna->bitmaps; bmbal; bmbal = bmbal->next) {
374                     const BitmapMigrationBitmapAlias *bmba = bmbal->value;
375 
376                     monitor_printf(mon, "    '%s' -> '%s'\n",
377                                    bmba->name, bmba->alias);
378                 }
379             }
380         }
381 
382         monitor_printf(mon, "%s: %" PRIu64 " ms\n",
383         MigrationParameter_str(MIGRATION_PARAMETER_X_VCPU_DIRTY_LIMIT_PERIOD),
384         params->x_vcpu_dirty_limit_period);
385 
386         monitor_printf(mon, "%s: %" PRIu64 " MB/s\n",
387             MigrationParameter_str(MIGRATION_PARAMETER_VCPU_DIRTY_LIMIT),
388             params->vcpu_dirty_limit);
389     }
390 
391     qapi_free_MigrationParameters(params);
392 }
393 
394 void hmp_loadvm(Monitor *mon, const QDict *qdict)
395 {
396     int saved_vm_running  = runstate_is_running();
397     const char *name = qdict_get_str(qdict, "name");
398     Error *err = NULL;
399 
400     vm_stop(RUN_STATE_RESTORE_VM);
401 
402     if (load_snapshot(name, NULL, false, NULL, &err) && saved_vm_running) {
403         vm_start();
404     }
405     hmp_handle_error(mon, err);
406 }
407 
408 void hmp_savevm(Monitor *mon, const QDict *qdict)
409 {
410     Error *err = NULL;
411 
412     save_snapshot(qdict_get_try_str(qdict, "name"),
413                   true, NULL, false, NULL, &err);
414     hmp_handle_error(mon, err);
415 }
416 
417 void hmp_delvm(Monitor *mon, const QDict *qdict)
418 {
419     Error *err = NULL;
420     const char *name = qdict_get_str(qdict, "name");
421 
422     delete_snapshot(name, false, NULL, &err);
423     hmp_handle_error(mon, err);
424 }
425 
426 void hmp_migrate_cancel(Monitor *mon, const QDict *qdict)
427 {
428     qmp_migrate_cancel(NULL);
429 }
430 
431 void hmp_migrate_continue(Monitor *mon, const QDict *qdict)
432 {
433     Error *err = NULL;
434     const char *state = qdict_get_str(qdict, "state");
435     int val = qapi_enum_parse(&MigrationStatus_lookup, state, -1, &err);
436 
437     if (val >= 0) {
438         qmp_migrate_continue(val, &err);
439     }
440 
441     hmp_handle_error(mon, err);
442 }
443 
444 void hmp_migrate_incoming(Monitor *mon, const QDict *qdict)
445 {
446     Error *err = NULL;
447     const char *uri = qdict_get_str(qdict, "uri");
448 
449     qmp_migrate_incoming(uri, &err);
450 
451     hmp_handle_error(mon, err);
452 }
453 
454 void hmp_migrate_recover(Monitor *mon, const QDict *qdict)
455 {
456     Error *err = NULL;
457     const char *uri = qdict_get_str(qdict, "uri");
458 
459     qmp_migrate_recover(uri, &err);
460 
461     hmp_handle_error(mon, err);
462 }
463 
464 void hmp_migrate_pause(Monitor *mon, const QDict *qdict)
465 {
466     Error *err = NULL;
467 
468     qmp_migrate_pause(&err);
469 
470     hmp_handle_error(mon, err);
471 }
472 
473 
474 void hmp_migrate_set_capability(Monitor *mon, const QDict *qdict)
475 {
476     const char *cap = qdict_get_str(qdict, "capability");
477     bool state = qdict_get_bool(qdict, "state");
478     Error *err = NULL;
479     MigrationCapabilityStatusList *caps = NULL;
480     MigrationCapabilityStatus *value;
481     int val;
482 
483     val = qapi_enum_parse(&MigrationCapability_lookup, cap, -1, &err);
484     if (val < 0) {
485         goto end;
486     }
487 
488     value = g_malloc0(sizeof(*value));
489     value->capability = val;
490     value->state = state;
491     QAPI_LIST_PREPEND(caps, value);
492     qmp_migrate_set_capabilities(caps, &err);
493     qapi_free_MigrationCapabilityStatusList(caps);
494 
495 end:
496     hmp_handle_error(mon, err);
497 }
498 
499 void hmp_migrate_set_parameter(Monitor *mon, const QDict *qdict)
500 {
501     const char *param = qdict_get_str(qdict, "parameter");
502     const char *valuestr = qdict_get_str(qdict, "value");
503     Visitor *v = string_input_visitor_new(valuestr);
504     MigrateSetParameters *p = g_new0(MigrateSetParameters, 1);
505     uint64_t valuebw = 0;
506     uint64_t cache_size;
507     Error *err = NULL;
508     int val, ret;
509 
510     val = qapi_enum_parse(&MigrationParameter_lookup, param, -1, &err);
511     if (val < 0) {
512         goto cleanup;
513     }
514 
515     switch (val) {
516     case MIGRATION_PARAMETER_COMPRESS_LEVEL:
517         p->has_compress_level = true;
518         visit_type_uint8(v, param, &p->compress_level, &err);
519         break;
520     case MIGRATION_PARAMETER_COMPRESS_THREADS:
521         p->has_compress_threads = true;
522         visit_type_uint8(v, param, &p->compress_threads, &err);
523         break;
524     case MIGRATION_PARAMETER_COMPRESS_WAIT_THREAD:
525         p->has_compress_wait_thread = true;
526         visit_type_bool(v, param, &p->compress_wait_thread, &err);
527         break;
528     case MIGRATION_PARAMETER_DECOMPRESS_THREADS:
529         p->has_decompress_threads = true;
530         visit_type_uint8(v, param, &p->decompress_threads, &err);
531         break;
532     case MIGRATION_PARAMETER_THROTTLE_TRIGGER_THRESHOLD:
533         p->has_throttle_trigger_threshold = true;
534         visit_type_uint8(v, param, &p->throttle_trigger_threshold, &err);
535         break;
536     case MIGRATION_PARAMETER_CPU_THROTTLE_INITIAL:
537         p->has_cpu_throttle_initial = true;
538         visit_type_uint8(v, param, &p->cpu_throttle_initial, &err);
539         break;
540     case MIGRATION_PARAMETER_CPU_THROTTLE_INCREMENT:
541         p->has_cpu_throttle_increment = true;
542         visit_type_uint8(v, param, &p->cpu_throttle_increment, &err);
543         break;
544     case MIGRATION_PARAMETER_CPU_THROTTLE_TAILSLOW:
545         p->has_cpu_throttle_tailslow = true;
546         visit_type_bool(v, param, &p->cpu_throttle_tailslow, &err);
547         break;
548     case MIGRATION_PARAMETER_MAX_CPU_THROTTLE:
549         p->has_max_cpu_throttle = true;
550         visit_type_uint8(v, param, &p->max_cpu_throttle, &err);
551         break;
552     case MIGRATION_PARAMETER_TLS_CREDS:
553         p->tls_creds = g_new0(StrOrNull, 1);
554         p->tls_creds->type = QTYPE_QSTRING;
555         visit_type_str(v, param, &p->tls_creds->u.s, &err);
556         break;
557     case MIGRATION_PARAMETER_TLS_HOSTNAME:
558         p->tls_hostname = g_new0(StrOrNull, 1);
559         p->tls_hostname->type = QTYPE_QSTRING;
560         visit_type_str(v, param, &p->tls_hostname->u.s, &err);
561         break;
562     case MIGRATION_PARAMETER_TLS_AUTHZ:
563         p->tls_authz = g_new0(StrOrNull, 1);
564         p->tls_authz->type = QTYPE_QSTRING;
565         visit_type_str(v, param, &p->tls_authz->u.s, &err);
566         break;
567     case MIGRATION_PARAMETER_MAX_BANDWIDTH:
568         p->has_max_bandwidth = true;
569         /*
570          * Can't use visit_type_size() here, because it
571          * defaults to Bytes rather than Mebibytes.
572          */
573         ret = qemu_strtosz_MiB(valuestr, NULL, &valuebw);
574         if (ret < 0 || valuebw > INT64_MAX
575             || (size_t)valuebw != valuebw) {
576             error_setg(&err, "Invalid size %s", valuestr);
577             break;
578         }
579         p->max_bandwidth = valuebw;
580         break;
581     case MIGRATION_PARAMETER_AVAIL_SWITCHOVER_BANDWIDTH:
582         p->has_avail_switchover_bandwidth = true;
583         ret = qemu_strtosz_MiB(valuestr, NULL, &valuebw);
584         if (ret < 0 || valuebw > INT64_MAX
585             || (size_t)valuebw != valuebw) {
586             error_setg(&err, "Invalid size %s", valuestr);
587             break;
588         }
589         p->avail_switchover_bandwidth = valuebw;
590         break;
591     case MIGRATION_PARAMETER_DOWNTIME_LIMIT:
592         p->has_downtime_limit = true;
593         visit_type_size(v, param, &p->downtime_limit, &err);
594         break;
595     case MIGRATION_PARAMETER_X_CHECKPOINT_DELAY:
596         p->has_x_checkpoint_delay = true;
597         visit_type_uint32(v, param, &p->x_checkpoint_delay, &err);
598         break;
599     case MIGRATION_PARAMETER_BLOCK_INCREMENTAL:
600         p->has_block_incremental = true;
601         visit_type_bool(v, param, &p->block_incremental, &err);
602         break;
603     case MIGRATION_PARAMETER_MULTIFD_CHANNELS:
604         p->has_multifd_channels = true;
605         visit_type_uint8(v, param, &p->multifd_channels, &err);
606         break;
607     case MIGRATION_PARAMETER_MULTIFD_COMPRESSION:
608         p->has_multifd_compression = true;
609         visit_type_MultiFDCompression(v, param, &p->multifd_compression,
610                                       &err);
611         break;
612     case MIGRATION_PARAMETER_MULTIFD_ZLIB_LEVEL:
613         p->has_multifd_zlib_level = true;
614         visit_type_uint8(v, param, &p->multifd_zlib_level, &err);
615         break;
616     case MIGRATION_PARAMETER_MULTIFD_ZSTD_LEVEL:
617         p->has_multifd_zstd_level = true;
618         visit_type_uint8(v, param, &p->multifd_zstd_level, &err);
619         break;
620     case MIGRATION_PARAMETER_XBZRLE_CACHE_SIZE:
621         p->has_xbzrle_cache_size = true;
622         if (!visit_type_size(v, param, &cache_size, &err)) {
623             break;
624         }
625         if (cache_size > INT64_MAX || (size_t)cache_size != cache_size) {
626             error_setg(&err, "Invalid size %s", valuestr);
627             break;
628         }
629         p->xbzrle_cache_size = cache_size;
630         break;
631     case MIGRATION_PARAMETER_MAX_POSTCOPY_BANDWIDTH:
632         p->has_max_postcopy_bandwidth = true;
633         visit_type_size(v, param, &p->max_postcopy_bandwidth, &err);
634         break;
635     case MIGRATION_PARAMETER_ANNOUNCE_INITIAL:
636         p->has_announce_initial = true;
637         visit_type_size(v, param, &p->announce_initial, &err);
638         break;
639     case MIGRATION_PARAMETER_ANNOUNCE_MAX:
640         p->has_announce_max = true;
641         visit_type_size(v, param, &p->announce_max, &err);
642         break;
643     case MIGRATION_PARAMETER_ANNOUNCE_ROUNDS:
644         p->has_announce_rounds = true;
645         visit_type_size(v, param, &p->announce_rounds, &err);
646         break;
647     case MIGRATION_PARAMETER_ANNOUNCE_STEP:
648         p->has_announce_step = true;
649         visit_type_size(v, param, &p->announce_step, &err);
650         break;
651     case MIGRATION_PARAMETER_BLOCK_BITMAP_MAPPING:
652         error_setg(&err, "The block-bitmap-mapping parameter can only be set "
653                    "through QMP");
654         break;
655     case MIGRATION_PARAMETER_X_VCPU_DIRTY_LIMIT_PERIOD:
656         p->has_x_vcpu_dirty_limit_period = true;
657         visit_type_size(v, param, &p->x_vcpu_dirty_limit_period, &err);
658         break;
659     case MIGRATION_PARAMETER_VCPU_DIRTY_LIMIT:
660         p->has_vcpu_dirty_limit = true;
661         visit_type_size(v, param, &p->vcpu_dirty_limit, &err);
662         break;
663     default:
664         assert(0);
665     }
666 
667     if (err) {
668         goto cleanup;
669     }
670 
671     qmp_migrate_set_parameters(p, &err);
672 
673  cleanup:
674     qapi_free_MigrateSetParameters(p);
675     visit_free(v);
676     hmp_handle_error(mon, err);
677 }
678 
679 void hmp_migrate_start_postcopy(Monitor *mon, const QDict *qdict)
680 {
681     Error *err = NULL;
682     qmp_migrate_start_postcopy(&err);
683     hmp_handle_error(mon, err);
684 }
685 
686 #ifdef CONFIG_REPLICATION
687 void hmp_x_colo_lost_heartbeat(Monitor *mon, const QDict *qdict)
688 {
689     Error *err = NULL;
690 
691     qmp_x_colo_lost_heartbeat(&err);
692     hmp_handle_error(mon, err);
693 }
694 #endif
695 
696 typedef struct HMPMigrationStatus {
697     QEMUTimer *timer;
698     Monitor *mon;
699     bool is_block_migration;
700 } HMPMigrationStatus;
701 
702 static void hmp_migrate_status_cb(void *opaque)
703 {
704     HMPMigrationStatus *status = opaque;
705     MigrationInfo *info;
706 
707     info = qmp_query_migrate(NULL);
708     if (!info->has_status || info->status == MIGRATION_STATUS_ACTIVE ||
709         info->status == MIGRATION_STATUS_SETUP) {
710         if (info->disk) {
711             int progress;
712 
713             if (info->disk->remaining) {
714                 progress = info->disk->transferred * 100 / info->disk->total;
715             } else {
716                 progress = 100;
717             }
718 
719             monitor_printf(status->mon, "Completed %d %%\r", progress);
720             monitor_flush(status->mon);
721         }
722 
723         timer_mod(status->timer, qemu_clock_get_ms(QEMU_CLOCK_REALTIME) + 1000);
724     } else {
725         if (status->is_block_migration) {
726             monitor_printf(status->mon, "\n");
727         }
728         if (info->error_desc) {
729             error_report("%s", info->error_desc);
730         }
731         monitor_resume(status->mon);
732         timer_free(status->timer);
733         g_free(status);
734     }
735 
736     qapi_free_MigrationInfo(info);
737 }
738 
739 void hmp_migrate(Monitor *mon, const QDict *qdict)
740 {
741     bool detach = qdict_get_try_bool(qdict, "detach", false);
742     bool blk = qdict_get_try_bool(qdict, "blk", false);
743     bool inc = qdict_get_try_bool(qdict, "inc", false);
744     bool resume = qdict_get_try_bool(qdict, "resume", false);
745     const char *uri = qdict_get_str(qdict, "uri");
746     Error *err = NULL;
747 
748     qmp_migrate(uri, !!blk, blk, !!inc, inc,
749                 false, false, true, resume, &err);
750     if (hmp_handle_error(mon, err)) {
751         return;
752     }
753 
754     if (!detach) {
755         HMPMigrationStatus *status;
756 
757         if (monitor_suspend(mon) < 0) {
758             monitor_printf(mon, "terminal does not allow synchronous "
759                            "migration, continuing detached\n");
760             return;
761         }
762 
763         status = g_malloc0(sizeof(*status));
764         status->mon = mon;
765         status->is_block_migration = blk || inc;
766         status->timer = timer_new_ms(QEMU_CLOCK_REALTIME, hmp_migrate_status_cb,
767                                           status);
768         timer_mod(status->timer, qemu_clock_get_ms(QEMU_CLOCK_REALTIME));
769     }
770 }
771 
772 void migrate_set_capability_completion(ReadLineState *rs, int nb_args,
773                                        const char *str)
774 {
775     size_t len;
776 
777     len = strlen(str);
778     readline_set_completion_index(rs, len);
779     if (nb_args == 2) {
780         int i;
781         for (i = 0; i < MIGRATION_CAPABILITY__MAX; i++) {
782             readline_add_completion_of(rs, str, MigrationCapability_str(i));
783         }
784     } else if (nb_args == 3) {
785         readline_add_completion_of(rs, str, "on");
786         readline_add_completion_of(rs, str, "off");
787     }
788 }
789 
790 void migrate_set_parameter_completion(ReadLineState *rs, int nb_args,
791                                       const char *str)
792 {
793     size_t len;
794 
795     len = strlen(str);
796     readline_set_completion_index(rs, len);
797     if (nb_args == 2) {
798         int i;
799         for (i = 0; i < MIGRATION_PARAMETER__MAX; i++) {
800             readline_add_completion_of(rs, str, MigrationParameter_str(i));
801         }
802     }
803 }
804 
805 static void vm_completion(ReadLineState *rs, const char *str)
806 {
807     size_t len;
808     BlockDriverState *bs;
809     BdrvNextIterator it;
810 
811     GRAPH_RDLOCK_GUARD_MAINLOOP();
812 
813     len = strlen(str);
814     readline_set_completion_index(rs, len);
815 
816     for (bs = bdrv_first(&it); bs; bs = bdrv_next(&it)) {
817         SnapshotInfoList *snapshots, *snapshot;
818         AioContext *ctx = bdrv_get_aio_context(bs);
819         bool ok = false;
820 
821         aio_context_acquire(ctx);
822         if (bdrv_can_snapshot(bs)) {
823             ok = bdrv_query_snapshot_info_list(bs, &snapshots, NULL) == 0;
824         }
825         aio_context_release(ctx);
826         if (!ok) {
827             continue;
828         }
829 
830         snapshot = snapshots;
831         while (snapshot) {
832             readline_add_completion_of(rs, str, snapshot->value->name);
833             readline_add_completion_of(rs, str, snapshot->value->id);
834             snapshot = snapshot->next;
835         }
836         qapi_free_SnapshotInfoList(snapshots);
837     }
838 
839 }
840 
841 void delvm_completion(ReadLineState *rs, int nb_args, const char *str)
842 {
843     if (nb_args == 2) {
844         vm_completion(rs, str);
845     }
846 }
847 
848 void loadvm_completion(ReadLineState *rs, int nb_args, const char *str)
849 {
850     if (nb_args == 2) {
851         vm_completion(rs, str);
852     }
853 }
854