@@ -12,5 +12,6 @@ Patches contributed by:
Stepan Kasal <skasal-at-redhat-dot-com>
Ludwig Nussel <ludwig-dot-nussel-at-suse-dot-de>
Zhe Peng <zpeng-at-redhat-dot-com>
+ Osier Yang <jyang-at-redhat-dot-com>
-- End
@@ -1,5 +1,100 @@
Revision history for perl module Sys::Virt
+1.2.12 2015-01-27
+
+ - Add VIR_CONNECT_GET_ALL_DOMAINS_STATS_BACKING constant
+ - Add virDomainDefineXMLFlags API binding
+ - Add VIR_DOMAIN_DEFINE_VALIDATE, VIR_DOMAIN_START_VALIDATE
+ and VIR_ERR_INVALID_SCHEMA constants
+
+1.2.11 2014-12-15
+
+ - Add virDomainGetFSInfo API binding
+ - Add missed VIR_NODE_MEMORY_SHARED_MERGE_ACROSS_NODES constant
+ - Add new VIR_DOMAIN_TUNABLE_BLKDEV* constants
+ - Add new VIR_DOMAIN_BLOCK_IOTUNE* constants
+ - Add support for VIR_CONNECT_DOMAIN_EVENT_ID_AGENT_LIFECYCLE
+ event callbacks & constants
+ - Fix docs for Sys::Virt::Domain::get_time method
+ - Demo agent lifecycle events in example program
+
+1.2.9 2014-10-02
+
+ - Add VIR_DOMAIN_*_BANDWIDTH_BYTES constants
+ - Add VIR_DOMAIN_BLOCK_REBASE_COPY_DEV constant
+ - Add VIR_DOMAIN_JOB_STATS_COMPLETED constant
+ - Add VIR_DOMAIN_UNDEFINE_NVRAM constant
+ - Add VIR_FROM_POLKIT constant
+ - Add more VIR_DOMAIN_STATS_* constants
+ - Add more VIR_DOMAIN_JOB_* constants
+ - Add virConnectDomainEventTunable event callback & constants
+ - Add virNodeAllocPages API & constants
+ - Add VIR_MIGRATE_RDMA_PIN_ALL constant
+
+1.2.8 2014-09-05
+
+ - Add virConnectGetDomainCapabilities API
+ - Add VIR_DOMAIN_BLOCK_REBASE_RELATIVE and
+ VIR_DOMAIN_BLOCK_COMMIT_RELATIVE constants
+ - Add VIR_CONNECT_LIST_STORAGE_POOLS_ZFS constant
+ - Add virDomainOpenGraphicsFD API
+ - Add virDomainBlockCopy and related constants
+ - Add virConnectGetAllDomainStats API & constants
+
+1.2.6 2014-07-02
+
+ - Add VIR_DOMAIN_BLOCK_JOB_TYPE_ACTIVE_COMMIT and
+ VIR_DOMAIN_BLOCK_COMMIT_ACTIVE constants
+ - Add VIR_DOMAIN_EVENT_ID_BLOCK_JOB_2 constant
+ - Add virNodeGetFreePages method
+ - Add VIR_CONNECT_COMPARE_CPU_FAIL_INCOMPATIBLE
+ and VIR_ERR_CPU_INCOMPATIBLE constants
+ - Add virNetworkGetDHCPLeases and constants
+
+1.2.5 2014-06-02
+
+ - Add VIR_DOMAIN_{REBOOT,SHUTDOWN}_PARAVIRT constants
+ - Add virDomainFSFreeze/virDomainFSThaw APIs
+ - Add virDomainSetTime/virDomainGetTime APIs
+
+1.2.4 2014-05-06
+
+ - Add VIR_FROM_FIREWALL error constant
+
+1.2.3 2014-04-07
+
+ - Add VIR_FROM_CRYPTO error constant
+ - Add VIR_MIGRATE_AUTO_CONVERGE migration constant
+ - Add virDomainCoreDumpWithFormat and its constants
+
+1.2.2 2014-03-03
+
+ - Add new domain blk I/O constants
+ - Add BHyve error code
+
+1.2.1 2014-01-21
+
+ - Add new network event APIs from libvirt 1.2.1
+ - Add new constants in libvirt 1.2.1
+
+1.2.0 2013-12-02
+
+ - Add all new constants in libvirt 1.2.0
+ - Fix reversed args for virNodeDeviceLookupSCSIHostByWWN
+
+1.1.4 2013-11-05
+
+ - Add all new constants in libvirt 1.1.4
+ - Fix impl of "list_secrets" API (RT #82072)
+
+1.1.3 2013-10-02
+
+ - Add all new APIs in libvirt 1.1.3
+
+1.1.2 2013-09-27
+
+ - Add all new constants in libvirt 1.1.2
+
1.1.1 2013-07-30
- Add all new constants/apis in libvirt 1.1.1
@@ -2,12 +2,19 @@ AUTHORS
Changes
examples/auth.pl
examples/devices.pl
+examples/dhcp-leases.pl
+examples/dom-fsinfo.pl
+examples/dom-stats.pl
examples/dump-info.pl
examples/dump-xml.pl
examples/emulator-pin.pl
examples/events.pl
+examples/fs-freeze.pl
examples/hv-stat.pl
+examples/node-alloc.pl
examples/node-cpu.pl
+examples/node-devlist.pl
+examples/node-info.pl
examples/node-ksm.pl
examples/open-console.pl
examples/save-restore.pl
@@ -1,7 +1,7 @@
--- #YAML:1.0
name: Sys-Virt
abstract: Extension for the libvirt library
-version: 1.1.1
+version: 1.2.12
author:
- Daniel P. Berrange <dan@berrange.com>
license: perl
@@ -4,7 +4,7 @@
"Daniel Berrange <dan@berrange.com>"
],
"dynamic_config" : 0,
- "generated_by" : "ExtUtils::MakeMaker version 6.64, CPAN::Meta::Converter version 2.120921",
+ "generated_by" : "ExtUtils::MakeMaker version 6.98, CPAN::Meta::Converter version 2.142060",
"license" : [
"unknown"
],
@@ -42,5 +42,5 @@
}
},
"release_status" : "stable",
- "version" : "v1.1.1"
+ "version" : "v1.2.12"
}
@@ -3,25 +3,25 @@ abstract: unknown
author:
- 'Daniel Berrange <dan@berrange.com>'
build_requires:
- ExtUtils::MakeMaker: 0
+ ExtUtils::MakeMaker: '0'
configure_requires:
- ExtUtils::MakeMaker: 0
+ ExtUtils::MakeMaker: '0'
dynamic_config: 0
-generated_by: 'ExtUtils::MakeMaker version 6.64, CPAN::Meta::Converter version 2.120921'
+generated_by: 'ExtUtils::MakeMaker version 6.98, CPAN::Meta::Converter version 2.142060'
license: unknown
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: 1.4
+ version: '1.4'
name: Sys-Virt
no_index:
directory:
- t
- inc
requires:
- Test::CPAN::Changes: 0
- Test::More: 0
- Test::Pod: 0
- Test::Pod::Coverage: 0
- Time::HiRes: 0
- XML::XPath: 0
-version: v1.1.1
+ Test::CPAN::Changes: '0'
+ Test::More: '0'
+ Test::Pod: '0'
+ Test::Pod::Coverage: '0'
+ Time::HiRes: '0'
+ XML::XPath: '0'
+version: v1.2.12
@@ -3,7 +3,7 @@ use ExtUtils::MakeMaker;
# See lib/ExtUtils/MakeMaker.pm for details of how to influence
# the contents of the Makefile that is written.
-my $libvirtver = "1.1.1";
+my $libvirtver = "1.2.12";
my $stat = system "pkg-config --atleast-version=$libvirtver libvirt";
die "cannot run pkg-config to check libvirt version" if $stat == -1;
die "libvirt >= $libvirtver is required\n" unless $stat == 0;
@@ -20,7 +20,7 @@ my $gccflags = "-W -Waddress -Wall -Warray-bounds -Wattributes \\
-Wformat-extra-args -Wformat-security -Wformat-y2k \\
-Wformat-zero-length -Wformat=2 -Wfree-nonheap-object \\
-Wignored-qualifiers -Wimplicit -Wimplicit-function-declaration \\
- -Wimplicit-int -Winit-self -Winline -Wint-to-pointer-cast \\
+ -Wimplicit-int -Winit-self -Wint-to-pointer-cast \\
-Winvalid-memory-model -Winvalid-pch -Wjump-misses-init \\
-Wlogical-op -Wmain -Wmaybe-uninitialized -Wmissing-braces \\
-Wmissing-declarations -Wmissing-field-initializers \\
@@ -7,6 +7,6 @@ further details on libvirt consult its website http://libvirt.org/
The only pre-requisite for this module is libvirt itself. For
installation instructions, consult the INSTALL file.
-The current minimum required version of libvirt is 1.1.1
+The current minimum required version of libvirt is 1.2.12
-- End
@@ -1,7 +1,7 @@
/* -*- c -*-
*
- * Copyright (C) 2006 Red Hat
- * Copyright (C) 2006-2007 Daniel P. Berrange
+ * Copyright (C) 2006-2014 Red Hat
+ * Copyright (C) 2006-2014 Daniel P. Berrange
*
* This program is free software; You can redistribute it and/or modify
* it under either:
@@ -158,6 +158,120 @@ _populate_constant_ull(HV *stash, const char *name, unsigned long long val)
#define REGISTER_CONSTANT_STR(name, key) _populate_constant_str(stash, #key, name)
#define REGISTER_CONSTANT_ULL(name, key) _populate_constant_ull(stash, #key, name)
+static HV *
+vir_typed_param_to_hv(virTypedParameter *params, int nparams)
+{
+ HV *ret = (HV *)sv_2mortal((SV*)newHV());
+ unsigned int i;
+ const char *field;
+ STRLEN val_length;
+
+ for (i = 0 ; i < nparams ; i++) {
+ SV *val = NULL;
+
+ switch (params[i].type) {
+ case VIR_TYPED_PARAM_INT:
+ val = newSViv(params[i].value.i);
+ break;
+
+ case VIR_TYPED_PARAM_UINT:
+ val = newSViv((int)params[i].value.ui);
+ break;
+
+ case VIR_TYPED_PARAM_LLONG:
+ val = virt_newSVll(params[i].value.l);
+ break;
+
+ case VIR_TYPED_PARAM_ULLONG:
+ val = virt_newSVull(params[i].value.ul);
+ break;
+
+ case VIR_TYPED_PARAM_DOUBLE:
+ val = newSVnv(params[i].value.d);
+ break;
+
+ case VIR_TYPED_PARAM_BOOLEAN:
+ val = newSViv(params[i].value.b);
+ break;
+
+ case VIR_TYPED_PARAM_STRING:
+ val_length = strlen(params[i].value.s);
+ val = newSVpv(params[i].value.s, val_length);
+ break;
+
+ }
+
+ field = params[i].field;
+ (void)hv_store(ret, field, strlen(params[i].field), val, 0);
+ }
+
+ return ret;
+}
+
+
+static int
+vir_typed_param_from_hv(HV *newparams, virTypedParameter *params, int nparams)
+{
+ unsigned int i;
+ char * ptr;
+ STRLEN len;
+
+ /* We only want to set parameters which we're actually changing
+ * so here we figure out which elements of 'params' we need to
+ * update, and overwrite the others
+ */
+ for (i = 0 ; i < nparams ;) {
+ if (!hv_exists(newparams, params[i].field, strlen(params[i].field))) {
+ if ((nparams-i) > 1)
+ memmove(params+i, params+i+1, sizeof(*params)*(nparams-(i+1)));
+ nparams--;
+ continue;
+ }
+
+ i++;
+ }
+
+ for (i = 0 ; i < nparams ; i++) {
+ SV **val;
+
+ val = hv_fetch (newparams, params[i].field, strlen(params[i].field), 0);
+
+ switch (params[i].type) {
+ case VIR_TYPED_PARAM_INT:
+ params[i].value.i = SvIV(*val);
+ break;
+
+ case VIR_TYPED_PARAM_UINT:
+ params[i].value.ui = SvIV(*val);
+ break;
+
+ case VIR_TYPED_PARAM_LLONG:
+ params[i].value.l = virt_SvIVll(*val);
+ break;
+
+ case VIR_TYPED_PARAM_ULLONG:
+ params[i].value.ul = virt_SvIVull(*val);
+ break;
+
+ case VIR_TYPED_PARAM_DOUBLE:
+ params[i].value.d = SvNV(*val);
+ break;
+
+ case VIR_TYPED_PARAM_BOOLEAN:
+ params[i].value.b = SvIV(*val);
+ break;
+
+ case VIR_TYPED_PARAM_STRING:
+ ptr = SvPV(*val, len);
+ params[i].value.s = (char *)ptr;
+ break;
+ }
+ }
+
+ return nparams;
+}
+
+
static int
_domain_event_lifecycle_callback(virConnectPtr con,
virDomainPtr dom,
@@ -781,6 +895,165 @@ _domain_event_device_removed_callback(virConnectPtr con,
}
+static int
+_domain_event_tunable_callback(virConnectPtr con,
+ virDomainPtr dom,
+ virTypedParameterPtr params,
+ size_t nparams,
+ void *opaque)
+{
+ AV *data = opaque;
+ SV **self;
+ SV **cb;
+ HV *params_hv;
+ SV *domref;
+ dSP;
+
+ self = av_fetch(data, 0, 0);
+ cb = av_fetch(data, 1, 0);
+
+ SvREFCNT_inc(*self);
+
+ ENTER;
+ SAVETMPS;
+
+ PUSHMARK(SP);
+ XPUSHs(*self);
+ domref = sv_newmortal();
+ sv_setref_pv(domref, "Sys::Virt::Domain", (void*)dom);
+ virDomainRef(dom);
+
+ params_hv = vir_typed_param_to_hv(params, nparams);
+
+ XPUSHs(domref);
+ XPUSHs(newRV(( SV*)params_hv));
+ PUTBACK;
+
+ call_sv(*cb, G_DISCARD);
+
+ FREETMPS;
+ LEAVE;
+
+ return 0;
+}
+
+
+static int
+_domain_event_agent_lifecycle_callback(virConnectPtr con,
+ virDomainPtr dom,
+ int state,
+ int reason,
+ void *opaque)
+{
+ AV *data = opaque;
+ SV **self;
+ SV **cb;
+ SV *domref;
+ dSP;
+
+ self = av_fetch(data, 0, 0);
+ cb = av_fetch(data, 1, 0);
+
+ SvREFCNT_inc(*self);
+
+ ENTER;
+ SAVETMPS;
+
+ PUSHMARK(SP);
+ XPUSHs(*self);
+ domref = sv_newmortal();
+ sv_setref_pv(domref, "Sys::Virt::Domain", (void*)dom);
+ virDomainRef(dom);
+ XPUSHs(domref);
+ XPUSHs(sv_2mortal(newSViv(state)));
+ XPUSHs(sv_2mortal(newSViv(reason)));
+ PUTBACK;
+
+ call_sv(*cb, G_DISCARD);
+
+ FREETMPS;
+ LEAVE;
+
+ return 0;
+}
+
+
+static int
+_network_event_lifecycle_callback(virConnectPtr con,
+ virNetworkPtr net,
+ int event,
+ int detail,
+ void *opaque)
+{
+ AV *data = opaque;
+ SV **self;
+ SV **cb;
+ SV *netref;
+ dSP;
+
+ self = av_fetch(data, 0, 0);
+ cb = av_fetch(data, 1, 0);
+
+ SvREFCNT_inc(*self);
+
+ ENTER;
+ SAVETMPS;
+
+ PUSHMARK(SP);
+ XPUSHs(*self);
+ netref = sv_newmortal();
+ sv_setref_pv(netref, "Sys::Virt::Network", (void*)net);
+ virNetworkRef(net);
+ XPUSHs(netref);
+ XPUSHs(sv_2mortal(newSViv(event)));
+ XPUSHs(sv_2mortal(newSViv(detail)));
+ PUTBACK;
+
+ call_sv(*cb, G_DISCARD);
+
+ FREETMPS;
+ LEAVE;
+
+ return 0;
+}
+
+
+static int
+_network_event_generic_callback(virConnectPtr con,
+ virNetworkPtr net,
+ void *opaque)
+{
+ AV *data = opaque;
+ SV **self;
+ SV **cb;
+ SV *netref;
+ dSP;
+
+ self = av_fetch(data, 0, 0);
+ cb = av_fetch(data, 1, 0);
+
+ SvREFCNT_inc(*self);
+
+ ENTER;
+ SAVETMPS;
+
+ PUSHMARK(SP);
+ XPUSHs(*self);
+ netref = sv_newmortal();
+ sv_setref_pv(netref, "Sys::Virt::Network", (void*)net);
+ virNetworkRef(net);
+ XPUSHs(netref);
+ PUTBACK;
+
+ call_sv(*cb, G_DISCARD);
+
+ FREETMPS;
+ LEAVE;
+
+ return 0;
+}
+
+
static void
_domain_event_free(void *opaque)
{
@@ -790,6 +1063,14 @@ _domain_event_free(void *opaque)
static void
+_network_event_free(void *opaque)
+{
+ SV *sv = opaque;
+ SvREFCNT_dec(sv);
+}
+
+
+static void
_close_callback(virConnectPtr con,
int reason,
void *opaque)
@@ -1274,120 +1555,6 @@ _stream_recv_all_sink(virStreamPtr st,
}
-static HV *
-vir_typed_param_to_hv(virTypedParameter *params, int nparams)
-{
- HV *ret = (HV *)sv_2mortal((SV*)newHV());
- unsigned int i;
- const char *field;
- STRLEN val_length;
-
- for (i = 0 ; i < nparams ; i++) {
- SV *val = NULL;
-
- switch (params[i].type) {
- case VIR_TYPED_PARAM_INT:
- val = newSViv(params[i].value.i);
- break;
-
- case VIR_TYPED_PARAM_UINT:
- val = newSViv((int)params[i].value.ui);
- break;
-
- case VIR_TYPED_PARAM_LLONG:
- val = virt_newSVll(params[i].value.l);
- break;
-
- case VIR_TYPED_PARAM_ULLONG:
- val = virt_newSVull(params[i].value.ul);
- break;
-
- case VIR_TYPED_PARAM_DOUBLE:
- val = newSVnv(params[i].value.d);
- break;
-
- case VIR_TYPED_PARAM_BOOLEAN:
- val = newSViv(params[i].value.b);
- break;
-
- case VIR_TYPED_PARAM_STRING:
- val_length = strlen(params[i].value.s);
- val = newSVpv(params[i].value.s, val_length);
- break;
-
- }
-
- field = params[i].field;
- (void)hv_store(ret, field, strlen(params[i].field), val, 0);
- }
-
- return ret;
-}
-
-
-static int
-vir_typed_param_from_hv(HV *newparams, virTypedParameter *params, int nparams)
-{
- unsigned int i;
- char * ptr;
- STRLEN len;
-
- /* We only want to set parameters which we're actually changing
- * so here we figure out which elements of 'params' we need to
- * update, and overwrite the others
- */
- for (i = 0 ; i < nparams ;) {
- if (!hv_exists(newparams, params[i].field, strlen(params[i].field))) {
- if ((nparams-i) > 1)
- memmove(params+i, params+i+1, sizeof(*params)*(nparams-(i+1)));
- nparams--;
- continue;
- }
-
- i++;
- }
-
- for (i = 0 ; i < nparams ; i++) {
- SV **val;
-
- val = hv_fetch (newparams, params[i].field, strlen(params[i].field), 0);
-
- switch (params[i].type) {
- case VIR_TYPED_PARAM_INT:
- params[i].value.i = SvIV(*val);
- break;
-
- case VIR_TYPED_PARAM_UINT:
- params[i].value.ui = SvIV(*val);
- break;
-
- case VIR_TYPED_PARAM_LLONG:
- params[i].value.l = virt_SvIVll(*val);
- break;
-
- case VIR_TYPED_PARAM_ULLONG:
- params[i].value.ul = virt_SvIVull(*val);
- break;
-
- case VIR_TYPED_PARAM_DOUBLE:
- params[i].value.d = SvNV(*val);
- break;
-
- case VIR_TYPED_PARAM_BOOLEAN:
- params[i].value.b = SvIV(*val);
- break;
-
- case VIR_TYPED_PARAM_STRING:
- ptr = SvPV(*val, len);
- params[i].value.s = (char *)ptr;
- break;
- }
- }
-
- return nparams;
-}
-
-
MODULE = Sys::Virt PACKAGE = Sys::Virt
PROTOTYPES: ENABLE
@@ -1681,10 +1848,11 @@ get_node_cells_free_memory(con, start, end)
int end;
PREINIT:
unsigned long long *mem;
- int i, num;
+ int i, num, ncells;
PPCODE:
- Newx(mem, end-start, unsigned long long);
- if ((num = virNodeGetCellsFreeMemory(con, mem, start, end)) < 0) {
+ ncells = (end - start) + 1;
+ Newx(mem, ncells, unsigned long long);
+ if ((num = virNodeGetCellsFreeMemory(con, mem, start, ncells)) < 0) {
Safefree(mem);
_croak_error();
}
@@ -1696,6 +1864,98 @@ PREINIT:
Safefree(mem);
+void
+get_node_free_pages(con, pagesizes, start, end, flags=0)
+ virConnectPtr con;
+ SV *pagesizes;
+ int start;
+ int end;
+ unsigned int flags;
+PREINIT:
+ AV *pagesizeslist;
+ unsigned int *pages;
+ unsigned int npages;
+ unsigned long long *counts;
+ int ncells;
+ int i, j;
+ PPCODE:
+ ncells = (end - start) + 1;
+ pagesizeslist = (AV *)SvRV(pagesizes);
+ npages = av_len(pagesizeslist) + 1;
+ Newx(pages, npages, unsigned int);
+ for (i = 0; i < npages; i++) {
+ SV **pagesize = av_fetch(pagesizeslist, i, 0);
+ pages[i] = SvIV(*pagesize);
+ }
+
+ Newx(counts, npages * ncells, unsigned long long);
+
+ if (virNodeGetFreePages(con, npages, pages, start,
+ ncells, counts, flags) < 0) {
+ Safefree(counts);
+ Safefree(pages);
+ _croak_error();
+ }
+ EXTEND(SP, ncells);
+ for (i = 0; i < ncells; i++) {
+ HV *rec = newHV();
+ HV *prec = newHV();
+ (void)hv_store(rec, "cell", 4, newSViv(start + i), 0);
+ (void)hv_store(rec, "pages", 5, newRV_noinc((SV *)prec), 0);
+
+ for (j = 0; j < npages; j++) {
+ (void)hv_store_ent(prec,
+ newSViv(pages[j]),
+ virt_newSVull(counts[(i * npages) + j]),
+ 0);
+ }
+ PUSHs(newRV_noinc((SV *)rec));
+ }
+ Safefree(counts);
+ Safefree(pages);
+
+void
+node_alloc_pages(con, pages, start, end, flags=0)
+ virConnectPtr con;
+ SV *pages;
+ int start;
+ int end;
+ unsigned int flags;
+PREINIT:
+ AV *pageslist;
+ unsigned int npages;
+ unsigned int *pagesizes;
+ unsigned long long *pagecounts;
+ unsigned int ncells;
+ unsigned int i;
+ PPCODE:
+ ncells = (end - start) + 1;
+ pageslist = (AV *)SvRV(pages);
+ npages = av_len(pageslist) + 1;
+
+ Newx(pagesizes, npages, unsigned int);
+ Newx(pagecounts, npages, unsigned long long);
+ for (i = 0; i < npages; i++) {
+ SV **pageinforv = av_fetch(pageslist, i, 0);
+ AV *pageinfo = (AV*)SvRV(*pageinforv);
+ SV **pagesize = av_fetch(pageinfo, 0, 0);
+ SV **pagecount = av_fetch(pageinfo, 1, 0);
+
+ pagesizes[i] = SvIV(*pagesize);
+ pagecounts[i] = virt_SvIVull(*pagecount);
+ }
+
+ if (virNodeAllocPages(con, npages, pagesizes, pagecounts,
+ start, ncells, flags) < 0) {
+ Safefree(pagesizes);
+ Safefree(pagecounts);
+ _croak_error();
+ }
+
+ Safefree(pagesizes);
+ Safefree(pagecounts);
+
+
HV *
get_node_cpu_stats(con, cpuNum=VIR_NODE_CPU_STATS_ALL_CPUS, flags=0)
virConnectPtr con;
@@ -1724,6 +1984,8 @@ PREINIT:
(void)hv_store (RETVAL, "idle", 4, virt_newSVull(params[i].value), 0);
} else if (strcmp(params[i].field, VIR_NODE_CPU_STATS_IOWAIT) == 0) {
(void)hv_store (RETVAL, "iowait", 6, virt_newSVull(params[i].value), 0);
+ } else if (strcmp(params[i].field, VIR_NODE_CPU_STATS_INTR) == 0) {
+ (void)hv_store (RETVAL, "intr", 4, virt_newSVull(params[i].value), 0);
} else if (strcmp(params[i].field, VIR_NODE_CPU_STATS_UTILIZATION) == 0) {
(void)hv_store (RETVAL, "utilization", 11, virt_newSVull(params[i].value), 0);
}
@@ -1859,6 +2121,41 @@ PREINIT:
OUTPUT:
RETVAL
+SV *
+get_domain_capabilities(con, emulatorsv, archsv, machinesv, virttypesv, flags=0)
+ virConnectPtr con;
+ SV *emulatorsv;
+ SV *archsv;
+ SV *machinesv;
+ SV *virttypesv;
+ unsigned int flags;
+PREINIT:
+ char *emulator = NULL;
+ char *arch = NULL;
+ char *machine = NULL;
+ char *virttype = NULL;
+ char *xml;
+ CODE:
+ if (SvOK(emulatorsv))
+ emulator = SvPV_nolen(emulatorsv);
+ if (SvOK(archsv))
+ arch = SvPV_nolen(archsv);
+ if (SvOK(machinesv))
+ machine = SvPV_nolen(machinesv);
+ if (SvOK(virttypesv))
+ virttype = SvPV_nolen(virttypesv);
+
+ if (!(xml = virConnectGetDomainCapabilities(con,
+ emulator, arch,
+ machine, virttype,
+ flags)))
+ _croak_error();
+
+ RETVAL = newSVpv(xml, 0);
+ free(xml);
+ OUTPUT:
+ RETVAL
+
SV *
compare_cpu(con, xml, flags=0)
@@ -1907,6 +2204,27 @@ PREINIT:
OUTPUT:
RETVAL
+void
+get_cpu_model_names(con, arch, flags=0)
+ virConnectPtr con;
+ char *arch;
+ unsigned int flags;
+PREINIT:
+ int nnames;
+ int i;
+ char **names = NULL;
+ PPCODE:
+ if ((nnames = virConnectGetCPUModelNames(con, arch, &names, flags)) < 0)
+ _croak_error();
+
+ EXTEND(SP, nnames);
+ for (i = 0 ; i < nnames ; i++) {
+ PUSHs(sv_2mortal(newSVpv(names[i], 0)));
+ free(names[i]);
+ }
+ free(names);
+
+
int
get_max_vcpus(con, type)
@@ -2434,6 +2752,66 @@ list_nwfilter_names(con, maxnames)
Safefree(names);
+void get_all_domain_stats(con, stats, doms_sv=&PL_sv_undef, flags=0)
+ virConnectPtr con;
+ unsigned int stats;
+ SV *doms_sv;
+ unsigned int flags;
+ PREINIT:
+ AV *doms_av;
+ int ndoms;
+ int nstats;
+ int i;
+ virDomainPtr *doms = NULL;
+ virDomainStatsRecordPtr *statsrec = NULL;
+ PPCODE:
+
+ if (SvOK(doms_sv)) {
+ doms_av = (AV*)SvRV(doms_sv);
+ ndoms = av_len(doms_av) + 1;
+ fprintf(stderr, "Len %d\n", ndoms);
+ } else {
+ ndoms = 0;
+ }
+
+ if (ndoms) {
+ Newx(doms, ndoms + 1, virDomainPtr);
+
+ for (i = 0 ; i < ndoms ; i++) {
+ SV **dom = av_fetch(doms_av, i, 0);
+ doms[i] = (virDomainPtr)SvIV((SV*)SvRV(*dom));
+ }
+ doms[ndoms] = NULL;
+
+ if ((nstats = virDomainListGetStats(doms, stats, &statsrec, flags)) < 0) {
+ Safefree(doms);
+ _croak_error();
+ }
+ } else {
+ doms = NULL;
+
+ if ((nstats = virConnectGetAllDomainStats(con, stats, &statsrec, flags)) < 0) {
+ Safefree(doms);
+ _croak_error();
+ }
+ }
+
+ EXTEND(SP, nstats);
+ for (i = 0 ; i < nstats ; i++) {
+ HV *rec = newHV();
+ SV *dom = sv_newmortal();
+ HV *data = vir_typed_param_to_hv(statsrec[i]->params,
+ statsrec[i]->nparams);
+ sv_setref_pv(dom, "Sys::Virt::Domain", statsrec[i]->dom);
+ virDomainRef(statsrec[i]->dom);
+ hv_store(rec, "dom", 3, SvREFCNT_inc(dom), 0);
+ hv_store(rec, "data", 4, newRV((SV*)data), 0);
+ PUSHs(newRV_noinc((SV*)rec));
+ }
+ virDomainStatsRecordListFree(statsrec);
+ Safefree(doms);
+
+
SV *
domain_xml_from_native(con, configtype, configdata, flags=0)
virConnectPtr con;
@@ -2543,6 +2921,9 @@ PREINIT:
case VIR_DOMAIN_EVENT_ID_BLOCK_JOB:
callback = VIR_DOMAIN_EVENT_CALLBACK(_domain_event_block_job_callback);
break;
+ case VIR_DOMAIN_EVENT_ID_BLOCK_JOB_2:
+ callback = VIR_DOMAIN_EVENT_CALLBACK(_domain_event_block_job_callback);
+ break;
case VIR_DOMAIN_EVENT_ID_DISK_CHANGE:
callback = VIR_DOMAIN_EVENT_CALLBACK(_domain_event_disk_change_callback);
break;
@@ -2564,6 +2945,12 @@ PREINIT:
case VIR_DOMAIN_EVENT_ID_DEVICE_REMOVED:
callback = VIR_DOMAIN_EVENT_CALLBACK(_domain_event_device_removed_callback);
break;
+ case VIR_DOMAIN_EVENT_ID_TUNABLE:
+ callback = VIR_DOMAIN_EVENT_CALLBACK(_domain_event_tunable_callback);
+ break;
+ case VIR_DOMAIN_EVENT_ID_AGENT_LIFECYCLE:
+ callback = VIR_DOMAIN_EVENT_CALLBACK(_domain_event_agent_lifecycle_callback);
+ break;
default:
callback = VIR_DOMAIN_EVENT_CALLBACK(_domain_event_generic_callback);
break;
@@ -2588,6 +2975,53 @@ domain_event_deregister_any(con, callbackID)
virConnectDomainEventDeregisterAny(con, callbackID);
+int
+network_event_register_any(conref, netref, eventID, cb)
+ SV* conref;
+ SV* netref;
+ int eventID;
+ SV* cb;
+PREINIT:
+ AV *opaque;
+ virConnectPtr con;
+ virNetworkPtr net;
+ virConnectNetworkEventGenericCallback callback;
+ CODE:
+ con = (virConnectPtr)SvIV((SV*)SvRV(conref));
+ if (SvROK(netref)) {
+ net = (virNetworkPtr)SvIV((SV*)SvRV(netref));
+ } else {
+ net = NULL;
+ }
+
+ switch (eventID) {
+ case VIR_NETWORK_EVENT_ID_LIFECYCLE:
+ callback = VIR_NETWORK_EVENT_CALLBACK(_network_event_lifecycle_callback);
+ break;
+ default:
+ callback = VIR_NETWORK_EVENT_CALLBACK(_network_event_generic_callback);
+ break;
+ }
+
+ opaque = newAV();
+ SvREFCNT_inc(cb);
+ SvREFCNT_inc(conref);
+ av_push(opaque, conref);
+ av_push(opaque, cb);
+ if ((RETVAL = virConnectNetworkEventRegisterAny(con, net, eventID, callback, opaque, _network_event_free)) < 0)
+ _croak_error();
+OUTPUT:
+ RETVAL
+
+
+void
+network_event_deregister_any(con, callbackID)
+ virConnectPtr con;
+ int callbackID;
+ PPCODE:
+ virConnectNetworkEventDeregisterAny(con, callbackID);
+
+
void
register_close_callback(conref, cb)
SV* conref;
@@ -2708,12 +3142,18 @@ _create_with_files(con, xml, fdssv, flags=0)
virDomainPtr
-_define_xml(con, xml)
+_define_xml(con, xml, flags=0)
virConnectPtr con;
const char *xml;
+ unsigned int flags;
CODE:
- if (!(RETVAL = virDomainDefineXML(con, xml)))
- _croak_error();
+ if (flags) {
+ if (!(RETVAL = virDomainDefineXMLFlags(con, xml, flags)))
+ _croak_error();
+ } else {
+ if (!(RETVAL = virDomainDefineXML(con, xml)))
+ _croak_error();
+ }
OUTPUT:
RETVAL
@@ -2971,13 +3411,24 @@ managed_save_remove(dom, flags=0)
void
core_dump(dom, to, flags=0)
virDomainPtr dom;
- const char *to
+ const char *to;
unsigned int flags;
PPCODE:
if (virDomainCoreDump(dom, to, flags) < 0)
_croak_error();
+void
+core_dump_format(dom, to, format, flags=0)
+ virDomainPtr dom;
+ const char *to;
+ unsigned int format;
+ unsigned int flags;
+ PPCODE:
+ if (virDomainCoreDumpWithFormat(dom, to, format, flags) < 0)
+ _croak_error();
+
+
HV *
get_info(dom)
virDomainPtr dom;
@@ -2996,6 +3447,37 @@ get_info(dom)
OUTPUT:
RETVAL
+AV *
+get_time(dom, flags=0)
+ virDomainPtr dom;
+ unsigned int flags;
+ PREINIT:
+ long long secs;
+ unsigned int nsecs;
+ CODE:
+ if (virDomainGetTime(dom, &secs, &nsecs, flags) < 0)
+ _croak_error();
+
+ RETVAL = (AV *)sv_2mortal((SV*)newAV());
+ (void)av_push(RETVAL, virt_newSVull(secs));
+ (void)av_push(RETVAL, newSViv(nsecs));
+ OUTPUT:
+ RETVAL
+
+
+void
+set_time(dom, secssv, nsecs, flags=0)
+ virDomainPtr dom;
+ SV *secssv;
+ unsigned int nsecs;
+ unsigned int flags;
+ PREINIT:
+ long long secs;
+ PPCODE:
+ secs = virt_SvIVll(secssv);
+
+ if (virDomainSetTime(dom, secs, nsecs, flags) < 0)
+ _croak_error();
HV *
get_control_info(dom, flags=0)
@@ -3073,6 +3555,18 @@ open_graphics(dom, idx, fd, flags=0)
_croak_error();
+int
+open_graphics_fd(dom, idx, flags=0)
+ virDomainPtr dom;
+ unsigned int idx;
+ unsigned int flags;
+ CODE:
+ if ((RETVAL = virDomainOpenGraphicsFD(dom, idx, flags)) < 0)
+ _croak_error();
+OUTPUT:
+ RETVAL
+
+
SV *
screenshot(dom, st, screen, flags=0)
virDomainPtr dom;
@@ -3233,6 +3727,42 @@ block_rebase(dom, path, base, bandwidth, flags=0)
void
+block_copy(dom, path, destxml, newparams, flags=0)
+ virDomainPtr dom;
+ const char *path;
+ const char *destxml;
+ HV *newparams;
+ unsigned long flags;
+ PREINIT:
+ virTypedParameter *params;
+ int nparams;
+ PPCODE:
+ nparams = 3;
+ Newx(params, nparams, virTypedParameter);
+
+ strncpy(params[0].field, VIR_DOMAIN_BLOCK_COPY_BANDWIDTH,
+ VIR_TYPED_PARAM_FIELD_LENGTH);
+ params[0].type = VIR_TYPED_PARAM_ULLONG;
+
+ strncpy(params[1].field, VIR_DOMAIN_BLOCK_COPY_GRANULARITY,
+ VIR_TYPED_PARAM_FIELD_LENGTH);
+ params[1].type = VIR_TYPED_PARAM_UINT;
+
+ strncpy(params[2].field, VIR_DOMAIN_BLOCK_COPY_BUF_SIZE,
+ VIR_TYPED_PARAM_FIELD_LENGTH);
+ params[2].type = VIR_TYPED_PARAM_UINT;
+
+ nparams = vir_typed_param_from_hv(newparams, params, nparams);
+
+ if (virDomainBlockCopy(dom, path, destxml, params, nparams, flags) < 0) {
+ Safefree(params);
+ _croak_error();
+ }
+
+ Safefree(params);
+
+
+void
block_commit(dom, path, base, top, bandwidth, flags=0)
virDomainPtr dom;
const char *path;
@@ -3765,29 +4295,33 @@ _migrate(dom, destcon, newparams, flags=0)
virTypedParameter *params;
int nparams;
CODE:
- nparams = 5;
+ nparams = 6;
Newx(params, nparams, virTypedParameter);
- memcpy(params[0].field, VIR_MIGRATE_PARAM_URI,
- VIR_TYPED_PARAM_FIELD_LENGTH);
+ strncpy(params[0].field, VIR_MIGRATE_PARAM_URI,
+ VIR_TYPED_PARAM_FIELD_LENGTH);
params[0].type = VIR_TYPED_PARAM_STRING;
- memcpy(params[1].field, VIR_MIGRATE_PARAM_DEST_NAME,
- VIR_TYPED_PARAM_FIELD_LENGTH);
+ strncpy(params[1].field, VIR_MIGRATE_PARAM_DEST_NAME,
+ VIR_TYPED_PARAM_FIELD_LENGTH);
params[1].type = VIR_TYPED_PARAM_STRING;
- memcpy(params[2].field, VIR_MIGRATE_PARAM_DEST_XML,
- VIR_TYPED_PARAM_FIELD_LENGTH);
+ strncpy(params[2].field, VIR_MIGRATE_PARAM_DEST_XML,
+ VIR_TYPED_PARAM_FIELD_LENGTH);
params[2].type = VIR_TYPED_PARAM_STRING;
- memcpy(params[3].field, VIR_MIGRATE_PARAM_GRAPHICS_URI,
- VIR_TYPED_PARAM_FIELD_LENGTH);
+ strncpy(params[3].field, VIR_MIGRATE_PARAM_GRAPHICS_URI,
+ VIR_TYPED_PARAM_FIELD_LENGTH);
params[3].type = VIR_TYPED_PARAM_STRING;
- memcpy(params[4].field, VIR_MIGRATE_PARAM_BANDWIDTH,
- VIR_TYPED_PARAM_FIELD_LENGTH);
+ strncpy(params[4].field, VIR_MIGRATE_PARAM_BANDWIDTH,
+ VIR_TYPED_PARAM_FIELD_LENGTH);
params[4].type = VIR_TYPED_PARAM_ULLONG;
+ strncpy(params[5].field, VIR_MIGRATE_PARAM_LISTEN_ADDRESS,
+ VIR_TYPED_PARAM_FIELD_LENGTH);
+ params[5].type = VIR_TYPED_PARAM_STRING;
+
nparams = vir_typed_param_from_hv(newparams, params, nparams);
@@ -3814,29 +4348,33 @@ _migrate_to_uri(dom, desturi, newparams, flags=0)
virTypedParameter *params;
int nparams;
PPCODE:
- nparams = 5;
+ nparams = 6;
Newx(params, nparams, virTypedParameter);
- memcpy(params[0].field, VIR_MIGRATE_PARAM_URI,
- VIR_TYPED_PARAM_FIELD_LENGTH);
+ strncpy(params[0].field, VIR_MIGRATE_PARAM_URI,
+ VIR_TYPED_PARAM_FIELD_LENGTH);
params[0].type = VIR_TYPED_PARAM_STRING;
- memcpy(params[1].field, VIR_MIGRATE_PARAM_DEST_NAME,
- VIR_TYPED_PARAM_FIELD_LENGTH);
+ strncpy(params[1].field, VIR_MIGRATE_PARAM_DEST_NAME,
+ VIR_TYPED_PARAM_FIELD_LENGTH);
params[1].type = VIR_TYPED_PARAM_STRING;
- memcpy(params[2].field, VIR_MIGRATE_PARAM_DEST_XML,
- VIR_TYPED_PARAM_FIELD_LENGTH);
+ strncpy(params[2].field, VIR_MIGRATE_PARAM_DEST_XML,
+ VIR_TYPED_PARAM_FIELD_LENGTH);
params[2].type = VIR_TYPED_PARAM_STRING;
- memcpy(params[3].field, VIR_MIGRATE_PARAM_GRAPHICS_URI,
- VIR_TYPED_PARAM_FIELD_LENGTH);
+ strncpy(params[3].field, VIR_MIGRATE_PARAM_GRAPHICS_URI,
+ VIR_TYPED_PARAM_FIELD_LENGTH);
params[3].type = VIR_TYPED_PARAM_STRING;
- memcpy(params[4].field, VIR_MIGRATE_PARAM_BANDWIDTH,
- VIR_TYPED_PARAM_FIELD_LENGTH);
+ strncpy(params[4].field, VIR_MIGRATE_PARAM_BANDWIDTH,
+ VIR_TYPED_PARAM_FIELD_LENGTH);
params[4].type = VIR_TYPED_PARAM_ULLONG;
+ strncpy(params[5].field, VIR_MIGRATE_PARAM_LISTEN_ADDRESS,
+ VIR_TYPED_PARAM_FIELD_LENGTH);
+ params[5].type = VIR_TYPED_PARAM_STRING;
+
nparams = vir_typed_param_from_hv(newparams, params, nparams);
/* No need to support virDomainMigrateToURI/virDomainMigrateToURI2, since
@@ -4370,12 +4908,21 @@ get_vcpu_info(dom, flags=0)
maplen = VIR_CPU_MAPLEN(VIR_NODEINFO_MAXCPUS(nodeinfo));
Newx(cpumaps, dominfo.nrVirtCpu * maplen, unsigned char);
- if (flags && (flags & VIR_DOMAIN_AFFECT_CONFIG)) {
- Newx(info, dominfo.nrVirtCpu, virVcpuInfo);
+ if (!flags) {
+ Newx(info, dominfo.nrVirtCpu, virVcpuInfo);
if ((nvCpus = virDomainGetVcpus(dom, info, dominfo.nrVirtCpu, cpumaps, maplen)) < 0) {
+ virErrorPtr err = virGetLastError();
Safefree(info);
- Safefree(cpumaps);
- _croak_error();
+ info = NULL;
+ if (err && err->code == VIR_ERR_OPERATION_INVALID) {
+ if ((nvCpus = virDomainGetVcpuPinInfo(dom, dominfo.nrVirtCpu, cpumaps, maplen, flags)) < 0) {
+ Safefree(cpumaps);
+ _croak_error();
+ }
+ } else {
+ Safefree(cpumaps);
+ _croak_error();
+ }
}
} else {
info = NULL;
@@ -4393,6 +4940,10 @@ get_vcpu_info(dom, flags=0)
(void)hv_store(rec, "state", 5, newSViv(info[i].state), 0);
(void)hv_store(rec, "cpuTime", 7, virt_newSVull(info[i].cpuTime), 0);
(void)hv_store(rec, "cpu", 3, newSViv(info[i].cpu), 0);
+ } else {
+ (void)hv_store(rec, "state", 5, newSViv(0), 0);
+ (void)hv_store(rec, "cpuTime", 7, virt_newSVull(0), 0);
+ (void)hv_store(rec, "cpu", 3, newSViv(0), 0);
}
(void)hv_store(rec, "affinity", 8, newSVpvn((char*)cpumaps + (i *maplen), maplen), 0);
PUSHs(newRV_noinc((SV *)rec));
@@ -4555,6 +5106,99 @@ fs_trim(dom, mountPoint, minimumsv, flags=0)
void
+fs_freeze(dom, mountPointsSV, flags=0)
+ virDomainPtr dom;
+ SV *mountPointsSV;
+ unsigned int flags;
+PREINIT:
+ AV *mountPointsAV;
+ const char **mountPoints;
+ unsigned int nMountPoints;
+ unsigned int i;
+PPCODE:
+ mountPointsAV = (AV*)SvRV(mountPointsSV);
+ nMountPoints = av_len(mountPointsAV) + 1;
+ if (nMountPoints) {
+ Newx(mountPoints, nMountPoints, const char *);
+ for (i = 0 ; i < nMountPoints ; i++) {
+ SV **mountPoint = av_fetch(mountPointsAV, i, 0);
+ mountPoints[i] = SvPV_nolen(*mountPoint);
+ }
+ } else {
+ mountPoints = NULL;
+ }
+
+ if (virDomainFSFreeze(dom, mountPoints, nMountPoints, flags) < 0) {
+ Safefree(mountPoints);
+ _croak_error();
+ }
+
+ Safefree(mountPoints);
+
+
+void
+fs_thaw(dom, mountPointsSV, flags=0)
+ virDomainPtr dom;
+ SV *mountPointsSV;
+ unsigned int flags;
+PREINIT:
+ AV *mountPointsAV;
+ const char **mountPoints;
+ unsigned int nMountPoints;
+ unsigned int i;
+PPCODE:
+ mountPointsAV = (AV*)SvRV(mountPointsSV);
+ nMountPoints = av_len(mountPointsAV) + 1;
+ if (nMountPoints) {
+ Newx(mountPoints, nMountPoints, const char *);
+ for (i = 0 ; i < nMountPoints ; i++) {
+ SV **mountPoint = av_fetch(mountPointsAV, i, 0);
+ mountPoints[i] = SvPV_nolen(*mountPoint);
+ }
+ } else {
+ mountPoints = NULL;
+ }
+ if (virDomainFSThaw(dom, mountPoints, nMountPoints, flags) < 0) {
+ Safefree(mountPoints);
+ _croak_error();
+ }
+
+ Safefree(mountPoints);
+
+void
+get_fs_info(dom, flags=0)
+ virDomainPtr dom;
+ unsigned int flags;
+ PREINIT:
+ virDomainFSInfoPtr *info;
+ int ninfo;
+ size_t i, j;
+ PPCODE:
+
+ if ((ninfo = virDomainGetFSInfo(dom, &info, flags)) < 0)
+ _croak_error();
+
+ EXTEND(SP, ninfo);
+ for (i = 0 ; i < ninfo ; i++) {
+ HV *hv = newHV();
+ AV *av = newAV();
+
+ (void)hv_store(hv, "mountpoint", 10, newSVpv(info[i]->mountpoint, 0), 0);
+ (void)hv_store(hv, "name", 4, newSVpv(info[i]->name, 0), 0);
+ (void)hv_store(hv, "fstype", 6, newSVpv(info[i]->fstype, 0), 0);
+
+ for (j = 0; j < info[i]->ndevAlias; j++)
+ av_push(av, newSVpv(info[i]->devAlias[j], 0));
+
+ (void)hv_store(hv, "devalias", 8, newRV_noinc((SV*)av), 0);
+
+ virDomainFSInfoFree(info[i]);
+
+ PUSHs(newRV_noinc((SV*)hv));
+ }
+ free(info);
+
+void
send_process_signal(dom, pidsv, signum, flags=0)
virDomainPtr dom;
SV *pidsv;
@@ -4798,6 +5442,44 @@ get_autostart(net)
void
+get_dhcp_leases(net, macsv=&PL_sv_undef, flags=0)
+ virNetworkPtr net;
+ SV *macsv;
+ unsigned int flags;
+PREINIT:
+ virNetworkDHCPLeasePtr *leases = NULL;
+ int nleases;
+ const char *mac = NULL;
+ int i;
+ PPCODE:
+ if (SvOK(macsv))
+ mac = SvPV_nolen(macsv);
+
+ if ((nleases = virNetworkGetDHCPLeases(net, mac, &leases, flags)) < 0)
+ _croak_error();
+
+ EXTEND(SP, nleases);
+ for (i = 0 ; i < nleases ; i++) {
+ HV *hv = newHV();
+
+ (void)hv_store(hv, "iface", 5, newSVpv(leases[i]->iface, 0), 0);
+ (void)hv_store(hv, "expirytime", 10, virt_newSVll(leases[i]->expirytime), 0);
+ (void)hv_store(hv, "type", 4, newSViv(leases[i]->type), 0);
+ (void)hv_store(hv, "mac", 3, newSVpv(leases[i]->mac, 0), 0);
+ (void)hv_store(hv, "iaid", 4, newSVpv(leases[i]->iaid, 0), 0);
+ (void)hv_store(hv, "ipaddr", 6, newSVpv(leases[i]->ipaddr, 0), 0);
+ (void)hv_store(hv, "prefix", 6, newSViv(leases[i]->prefix), 0);
+ (void)hv_store(hv, "hostname", 8, newSVpv(leases[i]->hostname, 0), 0);
+ (void)hv_store(hv, "clientid", 8, newSVpv(leases[i]->clientid, 0), 0);
+
+ virNetworkDHCPLeaseFree(leases[i]);
+
+ PUSHs(newRV_noinc((SV*)hv));
+ }
+ free(leases);
+
+
+void
destroy(net_rv)
SV *net_rv;
PREINIT:
@@ -5390,8 +6072,10 @@ const char *
get_parent(dev)
virNodeDevicePtr dev;
CODE:
- if (!(RETVAL = virNodeDeviceGetParent(dev)))
- _croak_error();
+ if (!(RETVAL = virNodeDeviceGetParent(dev))) {
+ if (virGetLastError() != NULL)
+ _croak_error();
+ }
OUTPUT:
RETVAL
@@ -6439,6 +7123,7 @@ BOOT:
REGISTER_CONSTANT_STR(VIR_NODE_CPU_STATS_IOWAIT, NODE_CPU_STATS_IOWAIT);
REGISTER_CONSTANT_STR(VIR_NODE_CPU_STATS_KERNEL, NODE_CPU_STATS_KERNEL);
REGISTER_CONSTANT_STR(VIR_NODE_CPU_STATS_USER, NODE_CPU_STATS_USER);
+ REGISTER_CONSTANT_STR(VIR_NODE_CPU_STATS_INTR, NODE_CPU_STATS_INTR);
REGISTER_CONSTANT_STR(VIR_NODE_CPU_STATS_UTILIZATION, NODE_CPU_STATS_UTILIZATION);
REGISTER_CONSTANT(VIR_NODE_MEMORY_STATS_ALL_CELLS, NODE_MEMORY_STATS_ALL_CELLS);
@@ -6459,7 +7144,17 @@ BOOT:
REGISTER_CONSTANT_STR(VIR_NODE_MEMORY_SHARED_PAGES_UNSHARED, NODE_MEMORY_SHARED_PAGES_UNSHARED);
REGISTER_CONSTANT_STR(VIR_NODE_MEMORY_SHARED_PAGES_VOLATILE, NODE_MEMORY_SHARED_PAGES_VOLATILE);
REGISTER_CONSTANT_STR(VIR_NODE_MEMORY_SHARED_FULL_SCANS, NODE_MEMORY_SHARED_FULL_SCANS);
+ REGISTER_CONSTANT_STR(VIR_NODE_MEMORY_SHARED_MERGE_ACROSS_NODES, NODE_MEMORY_SHARED_MERGE_ACROSS_NODES);
+
+ REGISTER_CONSTANT(VIR_CONNECT_BASELINE_CPU_EXPAND_FEATURES, BASELINE_CPU_EXPAND_FEATURES);
+
+ REGISTER_CONSTANT(VIR_CONNECT_COMPARE_CPU_FAIL_INCOMPATIBLE, COMPARE_CPU_FAIL_INCOMPATIBLE);
+
+ REGISTER_CONSTANT(VIR_IP_ADDR_TYPE_IPV4, IP_ADDR_TYPE_IPV4);
+ REGISTER_CONSTANT(VIR_IP_ADDR_TYPE_IPV6, IP_ADDR_TYPE_IPV6);
+ REGISTER_CONSTANT(VIR_NODE_ALLOC_PAGES_ADD, NODE_ALLOC_PAGES_ADD);
+ REGISTER_CONSTANT(VIR_NODE_ALLOC_PAGES_SET, NODE_ALLOC_PAGES_SET);
stash = gv_stashpv( "Sys::Virt::Event", TRUE );
@@ -6491,11 +7186,15 @@ BOOT:
REGISTER_CONSTANT(VIR_DOMAIN_UNDEFINE_MANAGED_SAVE, UNDEFINE_MANAGED_SAVE);
REGISTER_CONSTANT(VIR_DOMAIN_UNDEFINE_SNAPSHOTS_METADATA, UNDEFINE_SNAPSHOTS_METADATA);
+ REGISTER_CONSTANT(VIR_DOMAIN_UNDEFINE_NVRAM, UNDEFINE_NVRAM);
REGISTER_CONSTANT(VIR_DOMAIN_START_PAUSED, START_PAUSED);
REGISTER_CONSTANT(VIR_DOMAIN_START_AUTODESTROY, START_AUTODESTROY);
REGISTER_CONSTANT(VIR_DOMAIN_START_BYPASS_CACHE, START_BYPASS_CACHE);
REGISTER_CONSTANT(VIR_DOMAIN_START_FORCE_BOOT, START_FORCE_BOOT);
+ REGISTER_CONSTANT(VIR_DOMAIN_START_VALIDATE, START_VALIDATE);
+
+ REGISTER_CONSTANT(VIR_DOMAIN_DEFINE_VALIDATE, DEFINE_VALIDATE);
REGISTER_CONSTANT(VIR_DOMAIN_NOSTATE_UNKNOWN, STATE_NOSTATE_UNKNOWN);
@@ -6582,12 +7281,15 @@ BOOT:
REGISTER_CONSTANT(VIR_MIGRATE_OFFLINE, MIGRATE_OFFLINE);
REGISTER_CONSTANT(VIR_MIGRATE_COMPRESSED, MIGRATE_COMPRESSED);
REGISTER_CONSTANT(VIR_MIGRATE_ABORT_ON_ERROR, MIGRATE_ABORT_ON_ERROR);
+ REGISTER_CONSTANT(VIR_MIGRATE_AUTO_CONVERGE, MIGRATE_AUTO_CONVERGE);
+ REGISTER_CONSTANT(VIR_MIGRATE_RDMA_PIN_ALL, MIGRATE_RDMA_PIN_ALL);
REGISTER_CONSTANT_STR(VIR_MIGRATE_PARAM_BANDWIDTH, MIGRATE_PARAM_BANDWIDTH);
REGISTER_CONSTANT_STR(VIR_MIGRATE_PARAM_DEST_NAME, MIGRATE_PARAM_DEST_NAME);
REGISTER_CONSTANT_STR(VIR_MIGRATE_PARAM_DEST_XML, MIGRATE_PARAM_DEST_XML);
REGISTER_CONSTANT_STR(VIR_MIGRATE_PARAM_GRAPHICS_URI, MIGRATE_PARAM_GRAPHICS_URI);
REGISTER_CONSTANT_STR(VIR_MIGRATE_PARAM_URI, MIGRATE_PARAM_URI);
+ REGISTER_CONSTANT_STR(VIR_MIGRATE_PARAM_LISTEN_ADDRESS, MIGRATE_PARAM_LISTEN_ADDRESS);
REGISTER_CONSTANT(VIR_DOMAIN_XML_SECURE, XML_SECURE);
REGISTER_CONSTANT(VIR_DOMAIN_XML_INACTIVE, XML_INACTIVE);
@@ -6615,6 +7317,23 @@ BOOT:
REGISTER_CONSTANT(VIR_KEYCODE_SET_WIN32, KEYCODE_SET_WIN32);
REGISTER_CONSTANT(VIR_KEYCODE_SET_RFB, KEYCODE_SET_RFB);
+ REGISTER_CONSTANT(VIR_DOMAIN_STATS_BALLOON, STATS_BALLOON);
+ REGISTER_CONSTANT(VIR_DOMAIN_STATS_BLOCK, STATS_BLOCK);
+ REGISTER_CONSTANT(VIR_DOMAIN_STATS_CPU_TOTAL, STATS_CPU_TOTAL);
+ REGISTER_CONSTANT(VIR_DOMAIN_STATS_INTERFACE, STATS_INTERFACE);
+ REGISTER_CONSTANT(VIR_DOMAIN_STATS_STATE, STATS_STATE);
+ REGISTER_CONSTANT(VIR_DOMAIN_STATS_VCPU, STATS_VCPU);
+
+ REGISTER_CONSTANT(VIR_CONNECT_GET_ALL_DOMAINS_STATS_ACTIVE, GET_ALL_STATS_ACTIVE);
+ REGISTER_CONSTANT(VIR_CONNECT_GET_ALL_DOMAINS_STATS_INACTIVE, GET_ALL_STATS_INACTIVE);
+ REGISTER_CONSTANT(VIR_CONNECT_GET_ALL_DOMAINS_STATS_OTHER, GET_ALL_STATS_OTHER);
+ REGISTER_CONSTANT(VIR_CONNECT_GET_ALL_DOMAINS_STATS_PAUSED, GET_ALL_STATS_PAUSED);
+ REGISTER_CONSTANT(VIR_CONNECT_GET_ALL_DOMAINS_STATS_PERSISTENT, GET_ALL_STATS_PERSISTENT);
+ REGISTER_CONSTANT(VIR_CONNECT_GET_ALL_DOMAINS_STATS_RUNNING, GET_ALL_STATS_RUNNING);
+ REGISTER_CONSTANT(VIR_CONNECT_GET_ALL_DOMAINS_STATS_SHUTOFF, GET_ALL_STATS_SHUTOFF);
+ REGISTER_CONSTANT(VIR_CONNECT_GET_ALL_DOMAINS_STATS_TRANSIENT, GET_ALL_STATS_TRANSIENT);
+ REGISTER_CONSTANT(VIR_CONNECT_GET_ALL_DOMAINS_STATS_ENFORCE_STATS, GET_ALL_STATS_ENFORCE_STATS);
+ REGISTER_CONSTANT(VIR_CONNECT_GET_ALL_DOMAINS_STATS_BACKING, GET_ALL_STATS_BACKING);
REGISTER_CONSTANT(VIR_DOMAIN_EVENT_DEFINED, EVENT_DEFINED);
REGISTER_CONSTANT(VIR_DOMAIN_EVENT_UNDEFINED, EVENT_UNDEFINED);
@@ -6695,6 +7414,8 @@ BOOT:
REGISTER_CONSTANT(VIR_DOMAIN_JOB_FAILED, JOB_FAILED);
REGISTER_CONSTANT(VIR_DOMAIN_JOB_CANCELLED, JOB_CANCELLED);
+ REGISTER_CONSTANT(VIR_DOMAIN_JOB_STATS_COMPLETED, JOB_STATS_COMPLETED);
+
REGISTER_CONSTANT_STR(VIR_DOMAIN_JOB_COMPRESSION_BYTES, JOB_COMPRESSION_BYTES);
REGISTER_CONSTANT_STR(VIR_DOMAIN_JOB_COMPRESSION_CACHE, JOB_COMPRESSION_CACHE);
REGISTER_CONSTANT_STR(VIR_DOMAIN_JOB_COMPRESSION_CACHE_MISSES, JOB_COMPRESSION_CACHE_MISSES);
@@ -6706,6 +7427,7 @@ BOOT:
REGISTER_CONSTANT_STR(VIR_DOMAIN_JOB_DISK_PROCESSED, JOB_DISK_PROCESSED);
REGISTER_CONSTANT_STR(VIR_DOMAIN_JOB_DISK_REMAINING, JOB_DISK_REMAINING);
REGISTER_CONSTANT_STR(VIR_DOMAIN_JOB_DISK_TOTAL, JOB_DISK_TOTAL);
+ REGISTER_CONSTANT_STR(VIR_DOMAIN_JOB_DISK_BPS, JOB_DISK_BPS);
REGISTER_CONSTANT_STR(VIR_DOMAIN_JOB_DOWNTIME, JOB_DOWNTIME);
REGISTER_CONSTANT_STR(VIR_DOMAIN_JOB_MEMORY_CONSTANT, JOB_MEMORY_CONSTANT);
REGISTER_CONSTANT_STR(VIR_DOMAIN_JOB_MEMORY_NORMAL, JOB_MEMORY_NORMAL);
@@ -6713,6 +7435,8 @@ BOOT:
REGISTER_CONSTANT_STR(VIR_DOMAIN_JOB_MEMORY_PROCESSED, JOB_MEMORY_PROCESSED);
REGISTER_CONSTANT_STR(VIR_DOMAIN_JOB_MEMORY_REMAINING, JOB_MEMORY_REMAINING);
REGISTER_CONSTANT_STR(VIR_DOMAIN_JOB_MEMORY_TOTAL, JOB_MEMORY_TOTAL);
+ REGISTER_CONSTANT_STR(VIR_DOMAIN_JOB_MEMORY_BPS, JOB_MEMORY_BPS);
+ REGISTER_CONSTANT_STR(VIR_DOMAIN_JOB_SETUP_TIME, JOB_SETUP_TIME);
REGISTER_CONSTANT_STR(VIR_DOMAIN_JOB_TIME_ELAPSED, JOB_TIME_ELAPSED);
REGISTER_CONSTANT_STR(VIR_DOMAIN_JOB_TIME_REMAINING, JOB_TIME_REMAINING);
@@ -6720,6 +7444,7 @@ BOOT:
REGISTER_CONSTANT(VIR_DOMAIN_BLOCK_JOB_TYPE_PULL, BLOCK_JOB_TYPE_PULL);
REGISTER_CONSTANT(VIR_DOMAIN_BLOCK_JOB_TYPE_COPY, BLOCK_JOB_TYPE_COPY);
REGISTER_CONSTANT(VIR_DOMAIN_BLOCK_JOB_TYPE_COMMIT, BLOCK_JOB_TYPE_COMMIT);
+ REGISTER_CONSTANT(VIR_DOMAIN_BLOCK_JOB_TYPE_ACTIVE_COMMIT, BLOCK_JOB_TYPE_ACTIVE_COMMIT);
REGISTER_CONSTANT(VIR_DOMAIN_BLOCK_JOB_COMPLETED, BLOCK_JOB_COMPLETED);
REGISTER_CONSTANT(VIR_DOMAIN_BLOCK_JOB_FAILED, BLOCK_JOB_FAILED);
@@ -6728,6 +7453,9 @@ BOOT:
REGISTER_CONSTANT(VIR_DOMAIN_BLOCK_COMMIT_DELETE, BLOCK_COMMIT_DELETE);
REGISTER_CONSTANT(VIR_DOMAIN_BLOCK_COMMIT_SHALLOW, BLOCK_COMMIT_SHALLOW);
+ REGISTER_CONSTANT(VIR_DOMAIN_BLOCK_COMMIT_ACTIVE, BLOCK_COMMIT_ACTIVE);
+ REGISTER_CONSTANT(VIR_DOMAIN_BLOCK_COMMIT_RELATIVE, BLOCK_COMMIT_RELATIVE);
+ REGISTER_CONSTANT(VIR_DOMAIN_BLOCK_COMMIT_BANDWIDTH_BYTES, BLOCK_COMMIT_BANDWIDTH_BYTES);
REGISTER_CONSTANT(VIR_DOMAIN_EVENT_ID_LIFECYCLE, EVENT_ID_LIFECYCLE);
REGISTER_CONSTANT(VIR_DOMAIN_EVENT_ID_REBOOT, EVENT_ID_REBOOT);
@@ -6738,6 +7466,7 @@ BOOT:
REGISTER_CONSTANT(VIR_DOMAIN_EVENT_ID_IO_ERROR_REASON, EVENT_ID_IO_ERROR_REASON);
REGISTER_CONSTANT(VIR_DOMAIN_EVENT_ID_CONTROL_ERROR, EVENT_ID_CONTROL_ERROR);
REGISTER_CONSTANT(VIR_DOMAIN_EVENT_ID_BLOCK_JOB, EVENT_ID_BLOCK_JOB);
+ REGISTER_CONSTANT(VIR_DOMAIN_EVENT_ID_BLOCK_JOB_2, EVENT_ID_BLOCK_JOB_2);
REGISTER_CONSTANT(VIR_DOMAIN_EVENT_ID_DISK_CHANGE, EVENT_ID_DISK_CHANGE);
REGISTER_CONSTANT(VIR_DOMAIN_EVENT_ID_PMSUSPEND, EVENT_ID_PMSUSPEND);
REGISTER_CONSTANT(VIR_DOMAIN_EVENT_ID_PMSUSPEND_DISK, EVENT_ID_PMSUSPEND_DISK);
@@ -6745,6 +7474,8 @@ BOOT:
REGISTER_CONSTANT(VIR_DOMAIN_EVENT_ID_TRAY_CHANGE, EVENT_ID_TRAY_CHANGE);
REGISTER_CONSTANT(VIR_DOMAIN_EVENT_ID_BALLOON_CHANGE, EVENT_ID_BALLOON_CHANGE);
REGISTER_CONSTANT(VIR_DOMAIN_EVENT_ID_DEVICE_REMOVED, EVENT_ID_DEVICE_REMOVED);
+ REGISTER_CONSTANT(VIR_DOMAIN_EVENT_ID_TUNABLE, EVENT_ID_TUNABLE);
+ REGISTER_CONSTANT(VIR_DOMAIN_EVENT_ID_AGENT_LIFECYCLE, EVENT_ID_AGENT_LIFECYCLE);
REGISTER_CONSTANT(VIR_DOMAIN_EVENT_WATCHDOG_NONE, EVENT_WATCHDOG_NONE);
REGISTER_CONSTANT(VIR_DOMAIN_EVENT_WATCHDOG_PAUSE, EVENT_WATCHDOG_PAUSE);
@@ -6766,10 +7497,18 @@ BOOT:
REGISTER_CONSTANT(VIR_DOMAIN_EVENT_GRAPHICS_ADDRESS_UNIX, EVENT_GRAPHICS_ADDRESS_UNIX);
REGISTER_CONSTANT(VIR_DOMAIN_EVENT_DISK_CHANGE_MISSING_ON_START, EVENT_DISK_CHANGE_MISSING_ON_START);
+ REGISTER_CONSTANT(VIR_DOMAIN_EVENT_DISK_DROP_MISSING_ON_START, EVENT_DISK_DROP_MISSING_ON_START);
REGISTER_CONSTANT(VIR_DOMAIN_EVENT_TRAY_CHANGE_OPEN, EVENT_TRAY_CHANGE_OPEN);
REGISTER_CONSTANT(VIR_DOMAIN_EVENT_TRAY_CHANGE_CLOSE, EVENT_TRAY_CHANGE_CLOSE);
+ REGISTER_CONSTANT(VIR_CONNECT_DOMAIN_EVENT_AGENT_LIFECYCLE_STATE_CONNECTED, EVENT_AGENT_LIFECYCLE_STATE_CONNECTED);
+ REGISTER_CONSTANT(VIR_CONNECT_DOMAIN_EVENT_AGENT_LIFECYCLE_STATE_DISCONNECTED, EVENT_AGENT_LIFECYCLE_STATE_DISCONNECTED);
+
+ REGISTER_CONSTANT(VIR_CONNECT_DOMAIN_EVENT_AGENT_LIFECYCLE_REASON_CHANNEL, EVENT_AGENT_LIFECYCLE_REASON_CHANNEL);
+ REGISTER_CONSTANT(VIR_CONNECT_DOMAIN_EVENT_AGENT_LIFECYCLE_REASON_DOMAIN_STARTED, EVENT_AGENT_LIFECYCLE_REASON_DOMAIN_STARTED);
+ REGISTER_CONSTANT(VIR_CONNECT_DOMAIN_EVENT_AGENT_LIFECYCLE_REASON_UNKNOWN, EVENT_AGENT_LIFECYCLE_REASON_UNKNOWN);
+
REGISTER_CONSTANT_STR(VIR_DOMAIN_MEMORY_HARD_LIMIT, MEMORY_HARD_LIMIT);
REGISTER_CONSTANT_STR(VIR_DOMAIN_MEMORY_SOFT_LIMIT, MEMORY_SOFT_LIMIT);
REGISTER_CONSTANT_STR(VIR_DOMAIN_MEMORY_MIN_GUARANTEE, MEMORY_MIN_GUARANTEE);
@@ -6778,6 +7517,10 @@ BOOT:
REGISTER_CONSTANT_STR(VIR_DOMAIN_BLKIO_WEIGHT, BLKIO_WEIGHT);
REGISTER_CONSTANT_STR(VIR_DOMAIN_BLKIO_DEVICE_WEIGHT, BLKIO_DEVICE_WEIGHT);
+ REGISTER_CONSTANT_STR(VIR_DOMAIN_BLKIO_DEVICE_READ_BPS, BLKIO_DEVICE_READ_BPS);
+ REGISTER_CONSTANT_STR(VIR_DOMAIN_BLKIO_DEVICE_READ_IOPS, BLKIO_DEVICE_READ_IOPS);
+ REGISTER_CONSTANT_STR(VIR_DOMAIN_BLKIO_DEVICE_WRITE_BPS, BLKIO_DEVICE_WRITE_BPS);
+ REGISTER_CONSTANT_STR(VIR_DOMAIN_BLKIO_DEVICE_WRITE_IOPS, BLKIO_DEVICE_WRITE_IOPS);
REGISTER_CONSTANT_STR(VIR_DOMAIN_SCHEDULER_CPU_SHARES, SCHEDULER_CPU_SHARES);
REGISTER_CONSTANT_STR(VIR_DOMAIN_SCHEDULER_VCPU_PERIOD, SCHEDULER_VCPU_PERIOD);
@@ -6805,6 +7548,13 @@ BOOT:
REGISTER_CONSTANT_STR(VIR_DOMAIN_BLOCK_IOTUNE_TOTAL_IOPS_SEC, BLOCK_IOTUNE_TOTAL_IOPS_SEC);
REGISTER_CONSTANT_STR(VIR_DOMAIN_BLOCK_IOTUNE_READ_IOPS_SEC, BLOCK_IOTUNE_READ_IOPS_SEC);
REGISTER_CONSTANT_STR(VIR_DOMAIN_BLOCK_IOTUNE_WRITE_IOPS_SEC, BLOCK_IOTUNE_WRITE_IOPS_SEC);
+ REGISTER_CONSTANT_STR(VIR_DOMAIN_BLOCK_IOTUNE_TOTAL_BYTES_SEC_MAX, BLOCK_IOTUNE_TOTAL_BYTES_SEC_MAX);
+ REGISTER_CONSTANT_STR(VIR_DOMAIN_BLOCK_IOTUNE_READ_BYTES_SEC_MAX, BLOCK_IOTUNE_READ_BYTES_SEC_MAX);
+ REGISTER_CONSTANT_STR(VIR_DOMAIN_BLOCK_IOTUNE_WRITE_BYTES_SEC_MAX, BLOCK_IOTUNE_WRITE_BYTES_SEC_MAX);
+ REGISTER_CONSTANT_STR(VIR_DOMAIN_BLOCK_IOTUNE_TOTAL_IOPS_SEC_MAX, BLOCK_IOTUNE_TOTAL_IOPS_SEC_MAX);
+ REGISTER_CONSTANT_STR(VIR_DOMAIN_BLOCK_IOTUNE_READ_IOPS_SEC_MAX, BLOCK_IOTUNE_READ_IOPS_SEC_MAX);
+ REGISTER_CONSTANT_STR(VIR_DOMAIN_BLOCK_IOTUNE_WRITE_IOPS_SEC_MAX, BLOCK_IOTUNE_WRITE_IOPS_SEC_MAX);
+ REGISTER_CONSTANT_STR(VIR_DOMAIN_BLOCK_IOTUNE_SIZE_IOPS_SEC, BLOCK_IOTUNE_SIZE_IOPS_SEC);
REGISTER_CONSTANT(VIR_DOMAIN_BLOCK_RESIZE_BYTES, BLOCK_RESIZE_BYTES);
@@ -6838,6 +7588,7 @@ BOOT:
REGISTER_CONSTANT(VIR_DOMAIN_SHUTDOWN_GUEST_AGENT, SHUTDOWN_GUEST_AGENT);
REGISTER_CONSTANT(VIR_DOMAIN_SHUTDOWN_INITCTL, SHUTDOWN_INITCTL);
REGISTER_CONSTANT(VIR_DOMAIN_SHUTDOWN_SIGNAL, SHUTDOWN_SIGNAL);
+ REGISTER_CONSTANT(VIR_DOMAIN_SHUTDOWN_PARAVIRT, SHUTDOWN_PARAVIRT);
REGISTER_CONSTANT(VIR_DOMAIN_REBOOT_DEFAULT, REBOOT_DEFAULT);
@@ -6845,6 +7596,7 @@ BOOT:
REGISTER_CONSTANT(VIR_DOMAIN_REBOOT_GUEST_AGENT, REBOOT_GUEST_AGENT);
REGISTER_CONSTANT(VIR_DOMAIN_REBOOT_INITCTL, REBOOT_INITCTL);
REGISTER_CONSTANT(VIR_DOMAIN_REBOOT_SIGNAL, REBOOT_SIGNAL);
+ REGISTER_CONSTANT(VIR_DOMAIN_REBOOT_PARAVIRT, REBOOT_PARAVIRT);
REGISTER_CONSTANT(VIR_DOMAIN_PROCESS_SIGNAL_NOP, PROCESS_SIGNAL_NOP);
REGISTER_CONSTANT(VIR_DOMAIN_PROCESS_SIGNAL_HUP, PROCESS_SIGNAL_HUP);
@@ -6938,6 +7690,22 @@ BOOT:
REGISTER_CONSTANT(VIR_DOMAIN_BLOCK_REBASE_REUSE_EXT, BLOCK_REBASE_REUSE_EXT);
REGISTER_CONSTANT(VIR_DOMAIN_BLOCK_REBASE_COPY_RAW, BLOCK_REBASE_COPY_RAW);
REGISTER_CONSTANT(VIR_DOMAIN_BLOCK_REBASE_COPY, BLOCK_REBASE_COPY);
+ REGISTER_CONSTANT(VIR_DOMAIN_BLOCK_REBASE_COPY_DEV, BLOCK_REBASE_COPY_DEV);
+ REGISTER_CONSTANT(VIR_DOMAIN_BLOCK_REBASE_RELATIVE, BLOCK_REBASE_RELATIVE);
+ REGISTER_CONSTANT(VIR_DOMAIN_BLOCK_REBASE_BANDWIDTH_BYTES, BLOCK_REBASE_BANDWIDTH_BYTES);
+
+ REGISTER_CONSTANT_STR(VIR_DOMAIN_BLOCK_COPY_BANDWIDTH, BLOCK_COPY_BANDWIDTH);
+ REGISTER_CONSTANT_STR(VIR_DOMAIN_BLOCK_COPY_GRANULARITY, BLOCK_COPY_GRANULARITY);
+ REGISTER_CONSTANT_STR(VIR_DOMAIN_BLOCK_COPY_BUF_SIZE, BLOCK_COPY_BUF_SIZE);
+
+ REGISTER_CONSTANT(VIR_DOMAIN_BLOCK_COPY_REUSE_EXT, BLOCK_COPY_REUSE_EXT);
+ REGISTER_CONSTANT(VIR_DOMAIN_BLOCK_COPY_SHALLOW, BLOCK_COPY_SHALLOW);
+
+ REGISTER_CONSTANT(VIR_DOMAIN_BLOCK_JOB_SPEED_BANDWIDTH_BYTES, BLOCK_JOB_SPEED_BANDWIDTH_BYTES);
+
+ REGISTER_CONSTANT(VIR_DOMAIN_BLOCK_PULL_BANDWIDTH_BYTES, BLOCK_PULL_BANDWIDTH_BYTES);
+
+ REGISTER_CONSTANT(VIR_DOMAIN_BLOCK_JOB_INFO_BANDWIDTH_BYTES, BLOCK_JOB_INFO_BANDWIDTH_BYTES);
REGISTER_CONSTANT(VIR_CONNECT_LIST_DOMAINS_ACTIVE, LIST_ACTIVE);
REGISTER_CONSTANT(VIR_CONNECT_LIST_DOMAINS_AUTOSTART, LIST_AUTOSTART);
@@ -6956,6 +7724,34 @@ BOOT:
REGISTER_CONSTANT(VIR_DOMAIN_SEND_KEY_MAX_KEYS, SEND_KEY_MAX_KEYS);
+ REGISTER_CONSTANT(VIR_DOMAIN_CORE_DUMP_FORMAT_RAW, CORE_DUMP_FORMAT_RAW);
+ REGISTER_CONSTANT(VIR_DOMAIN_CORE_DUMP_FORMAT_KDUMP_LZO, CORE_DUMP_FORMAT_KDUMP_LZO);
+ REGISTER_CONSTANT(VIR_DOMAIN_CORE_DUMP_FORMAT_KDUMP_SNAPPY, CORE_DUMP_FORMAT_KDUMP_SNAPPY);
+ REGISTER_CONSTANT(VIR_DOMAIN_CORE_DUMP_FORMAT_KDUMP_ZLIB, CORE_DUMP_FORMAT_KDUMP_ZLIB);
+
+ REGISTER_CONSTANT(VIR_DOMAIN_TIME_SYNC, TIME_SYNC);
+
+ REGISTER_CONSTANT_STR(VIR_DOMAIN_TUNABLE_CPU_CPU_SHARES, TUNABLE_CPU_CPU_SHARES);
+ REGISTER_CONSTANT_STR(VIR_DOMAIN_TUNABLE_CPU_EMULATORPIN, TUNABLE_CPU_EMULATORPIN);
+ REGISTER_CONSTANT_STR(VIR_DOMAIN_TUNABLE_CPU_EMULATOR_PERIOD, TUNABLE_CPU_EMULATOR_PERIOD);
+ REGISTER_CONSTANT_STR(VIR_DOMAIN_TUNABLE_CPU_EMULATOR_QUOTA, TUNABLE_CPU_EMULATOR_QUOTA);
+ REGISTER_CONSTANT_STR(VIR_DOMAIN_TUNABLE_CPU_VCPUPIN, TUNABLE_CPU_VCPUPIN);
+ REGISTER_CONSTANT_STR(VIR_DOMAIN_TUNABLE_CPU_VCPU_PERIOD, TUNABLE_CPU_VCPU_PERIOD);
+ REGISTER_CONSTANT_STR(VIR_DOMAIN_TUNABLE_CPU_VCPU_QUOTA, TUNABLE_CPU_VCPU_QUOTA);
+ REGISTER_CONSTANT_STR(VIR_DOMAIN_TUNABLE_BLKDEV_DISK, TUNABLE_BLKDEV_DISK);
+ REGISTER_CONSTANT_STR(VIR_DOMAIN_TUNABLE_BLKDEV_READ_BYTES_SEC, TUNABLE_BLKDEV_READ_BYTES_SEC);
+ REGISTER_CONSTANT_STR(VIR_DOMAIN_TUNABLE_BLKDEV_READ_IOPS_SEC, TUNABLE_BLKDEV_READ_IOPS_SEC);
+ REGISTER_CONSTANT_STR(VIR_DOMAIN_TUNABLE_BLKDEV_TOTAL_BYTES_SEC, TUNABLE_BLKDEV_TOTAL_BYTES_SEC);
+ REGISTER_CONSTANT_STR(VIR_DOMAIN_TUNABLE_BLKDEV_TOTAL_IOPS_SEC, TUNABLE_BLKDEV_TOTAL_IOPS_SEC);
+ REGISTER_CONSTANT_STR(VIR_DOMAIN_TUNABLE_BLKDEV_WRITE_BYTES_SEC, TUNABLE_BLKDEV_WRITE_BYTES_SEC);
+ REGISTER_CONSTANT_STR(VIR_DOMAIN_TUNABLE_BLKDEV_WRITE_IOPS_SEC, TUNABLE_BLKDEV_WRITE_IOPS_SEC);
+ REGISTER_CONSTANT_STR(VIR_DOMAIN_TUNABLE_BLKDEV_READ_BYTES_SEC_MAX, TUNABLE_BLKDEV_READ_BYTES_SEC_MAX);
+ REGISTER_CONSTANT_STR(VIR_DOMAIN_TUNABLE_BLKDEV_READ_IOPS_SEC_MAX, TUNABLE_BLKDEV_READ_IOPS_SEC_MAX);
+ REGISTER_CONSTANT_STR(VIR_DOMAIN_TUNABLE_BLKDEV_WRITE_BYTES_SEC_MAX, TUNABLE_BLKDEV_WRITE_BYTES_SEC_MAX);
+ REGISTER_CONSTANT_STR(VIR_DOMAIN_TUNABLE_BLKDEV_WRITE_IOPS_SEC_MAX, TUNABLE_BLKDEV_WRITE_IOPS_SEC_MAX);
+ REGISTER_CONSTANT_STR(VIR_DOMAIN_TUNABLE_BLKDEV_TOTAL_BYTES_SEC_MAX, TUNABLE_BLKDEV_TOTAL_BYTES_SEC_MAX);
+ REGISTER_CONSTANT_STR(VIR_DOMAIN_TUNABLE_BLKDEV_TOTAL_IOPS_SEC_MAX, TUNABLE_BLKDEV_TOTAL_IOPS_SEC_MAX);
+ REGISTER_CONSTANT_STR(VIR_DOMAIN_TUNABLE_BLKDEV_SIZE_IOPS_SEC, TUNABLE_BLKDEV_SIZE_IOPS_SEC);
stash = gv_stashpv( "Sys::Virt::DomainSnapshot", TRUE );
REGISTER_CONSTANT(VIR_DOMAIN_SNAPSHOT_DELETE_CHILDREN, DELETE_CHILDREN);
@@ -7025,6 +7821,8 @@ BOOT:
REGISTER_CONSTANT(VIR_CONNECT_LIST_STORAGE_POOLS_MPATH, LIST_MPATH);
REGISTER_CONSTANT(VIR_CONNECT_LIST_STORAGE_POOLS_RBD, LIST_RBD);
REGISTER_CONSTANT(VIR_CONNECT_LIST_STORAGE_POOLS_SHEEPDOG, LIST_SHEEPDOG);
+ REGISTER_CONSTANT(VIR_CONNECT_LIST_STORAGE_POOLS_GLUSTER, LIST_GLUSTER);
+ REGISTER_CONSTANT(VIR_CONNECT_LIST_STORAGE_POOLS_ZFS, LIST_ZFS);
stash = gv_stashpv( "Sys::Virt::Network", TRUE );
REGISTER_CONSTANT(VIR_NETWORK_XML_INACTIVE, XML_INACTIVE);
@@ -7060,6 +7858,14 @@ BOOT:
REGISTER_CONSTANT(VIR_CONNECT_LIST_NETWORKS_PERSISTENT, LIST_PERSISTENT);
REGISTER_CONSTANT(VIR_CONNECT_LIST_NETWORKS_TRANSIENT, LIST_TRANSIENT);
+ REGISTER_CONSTANT(VIR_NETWORK_EVENT_ID_LIFECYCLE, EVENT_ID_LIFECYCLE);
+
+ REGISTER_CONSTANT(VIR_NETWORK_EVENT_DEFINED, EVENT_DEFINED);
+ REGISTER_CONSTANT(VIR_NETWORK_EVENT_UNDEFINED, EVENT_UNDEFINED);
+ REGISTER_CONSTANT(VIR_NETWORK_EVENT_STARTED, EVENT_STARTED);
+ REGISTER_CONSTANT(VIR_NETWORK_EVENT_STOPPED, EVENT_STOPPED);
+
+
stash = gv_stashpv( "Sys::Virt::Interface", TRUE );
REGISTER_CONSTANT(VIR_INTERFACE_XML_INACTIVE, XML_INACTIVE);
@@ -7088,6 +7894,7 @@ BOOT:
REGISTER_CONSTANT(VIR_STORAGE_VOL_BLOCK, TYPE_BLOCK);
REGISTER_CONSTANT(VIR_STORAGE_VOL_DIR, TYPE_DIR);
REGISTER_CONSTANT(VIR_STORAGE_VOL_NETWORK, TYPE_NETWORK);
+ REGISTER_CONSTANT(VIR_STORAGE_VOL_NETDIR, TYPE_NETDIR);
REGISTER_CONSTANT(VIR_STORAGE_VOL_DELETE_NORMAL, DELETE_NORMAL);
REGISTER_CONSTANT(VIR_STORAGE_VOL_DELETE_ZEROED, DELETE_ZEROED);
@@ -7196,6 +8003,10 @@ BOOT:
REGISTER_CONSTANT(VIR_FROM_IDENTITY, FROM_IDENTITY);
REGISTER_CONSTANT(VIR_FROM_ACCESS, FROM_ACCESS);
REGISTER_CONSTANT(VIR_FROM_SYSTEMD, FROM_SYSTEMD);
+ REGISTER_CONSTANT(VIR_FROM_BHYVE, FROM_BHYVE);
+ REGISTER_CONSTANT(VIR_FROM_CRYPTO, FROM_CRYPTO);
+ REGISTER_CONSTANT(VIR_FROM_FIREWALL, FROM_FIREWALL);
+ REGISTER_CONSTANT(VIR_FROM_POLKIT, FROM_POLKIT);
REGISTER_CONSTANT(VIR_ERR_OK, ERR_OK);
@@ -7288,4 +8099,7 @@ BOOT:
REGISTER_CONSTANT(VIR_ERR_RESOURCE_BUSY, ERR_RESOURCE_BUSY);
REGISTER_CONSTANT(VIR_ERR_ACCESS_DENIED, ERR_ACCESS_DENIED);
REGISTER_CONSTANT(VIR_ERR_DBUS_SERVICE, ERR_DBUS_SERVICE);
+ REGISTER_CONSTANT(VIR_ERR_STORAGE_VOL_EXIST, ERR_STORAGE_VOL_EXIST);
+ REGISTER_CONSTANT(VIR_ERR_CPU_INCOMPATIBLE, ERR_CPU_INCOMPATIBLE);
+ REGISTER_CONSTANT(VIR_ERR_XML_INVALID_SCHEMA, ERR_INVALID_SCHEMA);
}
@@ -0,0 +1,13 @@
+#!/usr/bin/perl
+
+use Sys::Virt;
+use Data::Dumper;
+
+my $c = Sys::Virt->new(uri => "qemu:///system",
+ readonly => 1);
+
+$n = $c->get_network_by_name("default");
+
+foreach my $lease ($n->get_dhcp_leases()) {
+ print Dumper($lease);
+}
@@ -0,0 +1,21 @@
+#!/usr/bin/perl
+
+
+use strict;
+use warnings;
+
+use Sys::Virt;
+use Sys::Virt::Domain;
+
+my $uri = @ARGV ? shift @ARGV : undef;
+
+my $c = Sys::Virt->new(uri => $uri);
+
+my $dom = $c->get_domain_by_name(shift @ARGV);
+
+my @fs = $dom->get_fs_info();
+
+use Data::Dumper;
+
+print Dumper($fs[0]);
+print Dumper($fs[1]);
@@ -0,0 +1,29 @@
+#!/usr/bin/perl
+
+
+use strict;
+use warnings;
+
+use Sys::Virt;
+use Sys::Virt::Domain;
+
+my $uri = @ARGV ? shift @ARGV : undef;
+
+my $c = Sys::Virt->new(uri => $uri);
+
+my @doms;
+foreach my $name (@ARGV) {
+ push @doms, $c->get_domain_by_name($name);
+}
+
+my @stats = $c->get_all_domain_stats(Sys::Virt::Domain::STATS_STATE,
+ \@doms,
+ Sys::Virt::Domain::GET_ALL_STATS_ENFORCE_STATS);
+
+use Data::Dumper;
+
+print Dumper(\@stats);
+
+for (my $i = 0 ; $i <= $#stats ; $i++) {
+ print $stats[$i]->{'dom'}->get_name(), ": ", $stats[$i]->{'data'}->{'state.state'}, "\n";
+}
@@ -20,10 +20,20 @@ sub lifecycle_event {
print "$dom $event $detail\n";
}
+sub agent_lifecycle_event {
+ my $dom = shift;
+ my $state = shift;
+ my $reason = shift;
+
+ print "Agent $dom state=$state reason=$reason\n";
+}
$c->domain_event_register_any(undef,
Sys::Virt::Domain::EVENT_ID_LIFECYCLE,
\&lifecycle_event);
+$c->domain_event_register_any(undef,
+ Sys::Virt::Domain::EVENT_ID_AGENT_LIFECYCLE,
+ \&agent_lifecycle_event);
$c->register_close_callback(
sub {
@@ -0,0 +1,18 @@
+# -*- perl -*-
+use strict;
+use warnings;
+use Sys::Virt;
+
+die "syntax: $0 URI DOMAIN-NAME MOUNT-POINTS\n" unless int(@ARGV) >= 2;
+
+my $uri = shift @ARGV;
+my $domname = shift @ARGV;
+
+my @mountpoints = @ARGV;
+
+print "Addr $uri\n";
+my $con = Sys::Virt->new(address => $uri, readonly => 0);
+
+my $dom = $con->get_domain_by_name($domname);
+
+$dom->fs_freeze(\@mountpoints);
@@ -0,0 +1,21 @@
+#!/usr/bin/perl
+
+use Sys::Virt;
+
+if (int(@ARGV) < 2) {
+ die "syntax: $0 URI PAGESIZE=1COUNT1 PAGESIZE2=COUNT2...";
+}
+
+my $uri = shift @ARGV;
+
+my $c = Sys::Virt->new(uri => $uri);
+
+my @pages;
+foreach (@ARGV) {
+ my @bits = split /=/;
+
+ push @pages, \@bits;
+}
+
+
+$c->node_alloc_pages(\@pages, -1, -1);
@@ -0,0 +1,11 @@
+#!/usr/bin/perl
+
+use Sys::Virt;
+
+my $conn = Sys::Virt->new();
+
+my @nodelist = $conn->list_all_node_devices();
+foreach my $dev (@nodelist){
+ my $parent = $dev->get_parent();
+ printf "%s: < %s\n", $dev->get_name(), $parent;
+}
@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Sys::Virt;
+
+my $addr = @ARGV ? shift @ARGV : "";
+
+my $hv = Sys::Virt->new(address => $addr, readonly => 1);
+
+my $info = $hv->get_node_info();
+
+my @models = $hv->get_cpu_model_names($info->{model});
+
+print join ("\n", sort{ lc $a cmp lc $b } @models), "\n";
+
+my @info = $hv->get_node_free_pages([2048], 0, 0);
+
+use Data::Dumper;
+print Dumper(\@info);
+
+
+my $xml = $hv->get_domain_capabilities(undef, "x86_64", undef, "kvm");
+print $xml;
@@ -9,12 +9,12 @@ my $con = Sys::Virt->new(address => $addr, readonly => 1);
print "VMM type: ", $con->get_type(), "\n";
-foreach my $dom (sort { $a->get_id <=> $b->get_id } $con->list_domains) {
+foreach my $dom (sort { $a->get_id <=> $b->get_id } $con->list_all_domains) {
print "Domain: {\n";
print " ID: ", $dom->get_id(), " '" , $dom->get_name(), "'\n";
print " UUID: ", $dom->get_uuid_string(), "\n";
my $nodeinfo = $con->get_node_info;
- my @info = $dom->get_vcpu_info;
+ my @info = $dom->get_vcpu_info(Sys::Virt::Domain::AFFECT_CONFIG);
foreach my $info (@info) {
print " VCPU: {\n";
@@ -62,7 +62,7 @@ sub _new {
}
} elsif (exists $params{xml}) {
if ($params{nocreate}) {
- $self = Sys::Virt::Domain::_define_xml($con, $params{xml});
+ $self = Sys::Virt::Domain::_define_xml($con, $params{xml}, $params{flags});
} else {
if (exists $params{fds}) {
$self = Sys::Virt::Domain::_create_with_files($con, $params{xml},
@@ -227,6 +227,34 @@ image to C<$filename> so it can be analysed by tools such as C<crash>.
The optional C<$flags> flags parameter is currently unused and if
omitted will default to 0.
+=item $dom->core_dump_format($filename, $format, [, $flags])
+
+Trigger a core dump of the guest virtual machine, saving its memory
+image to C<$filename> so it can be analysed by tools such as C<crash>.
+The C<$format> parameter is one of the core dump format constants.
+The optional C<$flags> flags parameter is currently unused and if
+omitted will default to 0.
+
+=over 4
+
+=item Sys::Virt::Domain::CORE_DUMP_FORMAT_RAW
+
+The raw ELF format
+
+=item Sys::Virt::Domain::CORE_DUMP_FORMAT_KDUMP_ZLIB
+
+The zlib compressed ELF format
+
+=item Sys::Virt::Domain::CORE_DUMP_FORMAT_KDUMP_SNAPPY
+
+The snappy compressed ELF format
+
+=item Sys::Virt::Domain::CORE_DUMP_FORMAT_KDUMP_LZO
+
+The lzo compressed ELF format
+
+=back
+
=item $dom->destroy()
Immediately poweroff the machine. This is equivalent to removing the
@@ -445,6 +473,27 @@ the current state.
=back
+=item my $time = $dom->get_time($flags=0);
+
+Get the current time of the guest, in seconds and nanoseconds.
+The C<$flags> parameter is currently unused and defaults to
+zero. The return value is an array ref with two elements,
+the first contains the time in seconds, the second contains
+the remaining nanoseconds.
+
+=item $dom->set_time($secs, $nsecs, $flags=0);
+
+Set the current time of the guest, in seconds and nanoseconds.
+The C<$flags> parameter accepts one of
+
+=over 4
+
+=item C<Sys::Virt::Domain::TIME_SYNC>
+
+Re-sync domain time from domain's RTC.
+
+=back
+
=item my @errs = $dom->get_disk_errors($flags=0)
Returns a list of all disk errors that have occurred on
@@ -898,6 +947,14 @@ set to 0 or omitted, libvirt will choose a suitable default. Some
hypervisors do not support this feature and will return an error if
this field is used and is not 0.
+=item C<Sys::Virt::Domain::MIGRATE_PARAM_LISTEN_ADDRESS>
+
+The address on which to listen for incoming migration connections.
+If omitted, libvirt will listen on the wildcard address (0.0.0.0
+or ::). This default may be a security risk if guests, or other
+untrusted users have the ability to connect to the virtualization
+host, thus use of an explicit restricted listen address is recommended.
+
=back
=item $ddom = $dom->migrate(destcon, flags=0, dname=undef, uri=undef, bandwidth=0)
@@ -1105,6 +1162,16 @@ anoymous socket pair. The C<$flags> argument should be one of
the constants listed at the end of this document, and defaults
to 0.
+=item $fd = $dom->open_graphics_fd($idx, $flags)
+
+Open the graphics console for a guest, identified by C<$idx>,
+counting from 0. The C<$flags> argument should be one of the
+constants listed at the end of this document, and defaults
+to 0. The return value will be a file descriptor connected
+to the console which must be closed when no longer needed.
+This method is preferred over C<open_graphics> since it will
+work correctly under sVirt mandatory access control policies.
+
=item my $mimetype = $dom->screenshot($st, $screen, $flags)
Capture a screenshot of the virtual machine's monitor. The C<$screen>
@@ -1113,7 +1180,7 @@ or multi-card configuration. C<$st> must be a C<Sys::Virt::Stream>
object from which the data can be read. C<$flags> is currently unused
and defaults to 0. The mimetype of the screenshot is returned
-=item @vcpuinfo = $dom->get_vcpu_info()
+=item @vcpuinfo = $dom->get_vcpu_info($flags=0)
Obtain information about the state of all virtual CPUs in a running
guest domain. The returned list will have one element for each vCPU,
@@ -1124,7 +1191,9 @@ time of the vCPU, C<state> the running state and C<affinity> giving
the allowed shedular placement. The value for C<affinity> is a
string representing a bitmask against physical CPUs, 8 cpus per
character. To extract the bits use the C<unpack> function with
-the C<b*> template.
+the C<b*> template. NB The C<state>, C<cpuTime>, C<cpu> values are
+only available if using C<$flags> value of 0, and the domain is
+currently running; otherwise they will all be set to zero.
=item $dom->pin_vcpu($vcpu, $mask)
@@ -1214,7 +1283,7 @@ The expected amount of file remaining to be processed by the job, in bytes.
=back
-=item my ($type, $stats) = $dom->get_job_stats()
+=item my ($type, $stats) = $dom->get_job_stats($flags=0)
Returns an array summarising the execution state of the
background job. The C<$type> value is one of the JOB TYPE
@@ -1229,6 +1298,17 @@ following constants.
The type of job, one of the JOB TYPE constants listed later in
this document.
+The C<$flags> parameter defaults to zero and can take one of
+the following constants.
+
+=over 4
+
+=item Sys::Virt::Domain::JOB_STATS_COMPLETED
+
+Return the stats of the most recently completed job.
+
+=back
+
=item Sys::Virt::Domain::JOB_TIME_ELAPSED
The elapsed time in milliseconds
@@ -1275,6 +1355,10 @@ The number of pages transferred without any compression
The number of bytes transferred without any compression
+=item Sys::Virt::Domain::JOB_MEMORY_BPS
+
+The bytes per second transferred
+
=item Sys::Virt::Domain::JOB_DISK_TOTAL
The total amount of file expected to be processed by the job, in bytes.
@@ -1287,6 +1371,10 @@ The current amount of file processed by the job, in bytes.
The expected amount of file remaining to be processed by the job, in bytes.
+=item Sys::Virt::Domain::JOB_DISK_BPS
+
+The bytes per second transferred
+
=item Sys::Virt::Domain::JOB_COMPRESSION_CACHE
The size of the compression cache in bytes
@@ -1314,6 +1402,10 @@ non-compressed page.
The number of milliseconds of downtime expected during
migration switchover.
+=item Sys::Virt::Domain::JOB_SETUP_TIME
+
+The number of milliseconds of time doing setup of the job
+
=back
=item $dom->abort_job()
@@ -1324,13 +1416,32 @@ Aborts the currently executing job
Returns a hash reference summarising the execution state of
the block job. The C<$path> parameter should be the fully
-qualified path of the block device being changed.
+qualified path of the block device being changed. Valid
+C<$flags> include:
+
+=over 4
+
+=item Sys::Virt::Domain::BLOCK_JOB_INFO_BANDWIDTH_BYTES
+
+Treat bandwidth value as bytes instead of MiB.
+
+=back
=item $dom->set_block_job_speed($path, $bandwidth, $flags=0)
Change the maximum I/O bandwidth used by the block job that
is currently executing for C<$path>. The C<$bandwidth> argument
-is specified in MB/s
+is specified in MB/s. The C<$flags> parameter
+can take the bitwise union of the values:
+
+=over 4
+
+=item Sys::Virt::Domain::BLOCK_JOB_SPEED_BANDWIDTH_BYTES
+
+The C<$bandwidth> parameter value is measured in bytes/s
+instead of MB/s.
+
+=back
=item $dom->abort_block_job($path, $flags=0)
@@ -1341,20 +1452,73 @@ associated with C<$path>
Merge the backing files associated with C<$path> into the
top level file. The C<$bandwidth> parameter specifies the
-maximum I/O rate to allow in MB/s.
+maximum I/O rate to allow in MB/s. The C<$flags> parameter
+can take the bitwise union of the values:
+
+=over 4
+
+=item Sys::Virt::Domain::BLOCK_PULL_BANDWIDTH_BYTES
+
+The C<$bandwidth> parameter value is measured in bytes/s
+instead of MB/s.
+
+=back
=item $dom->block_rebase($path, $base, $bandwith, $flags=0)
Switch the backing path associated with C<$path> to instead
use C<$base>. The C<$bandwidth> parameter specifies the
-maximum I/O rate to allow in MB/s.
+maximum I/O rate to allow in MB/s. The C<$flags> parameter
+can take the bitwise union of the values:
+
+=over 4
+
+=item Sys::Virt::Domain::BLOCK_REBASE_BANDWIDTH_BYTES
+
+The C<$bandwidth> parameter value is measured in bytes/s
+instead of MB/s.
+
+=back
+
+=item $dom->block_copy($path, $destxml, $params, $flags=0)
+
+Copy contents of a disk image <$path> into the target volume
+described by C<$destxml> which follows the schema of the
+<disk> element in the domain XML. The C<$params> parameter
+is a hash of optional parameters to control the process
+
+=over 4
+
+=item Sys::Virt::Domain::BLOCK_COPY_BANDWIDTH
+
+The maximum bandwidth in bytes per second.
+
+=item Sys::Virt::Domain::BLOCK_COPY_GRANULARITY
+
+The granularity in bytes of the copy process
+
+=item Sys::Virt::Domain::BLOCK_COPY_BUF_SIZE
+
+The maximum amount of data in flight in bytes.
+
+=back
=item $dom->block_commit($path, $base, $top, $bandwith, $flags=0)
Commit changes there were made to the temporary top level file C<$top>.
Takes all the differences between C<$top> and C<$base> and merge them
into C<$base>. The C<$bandwidth> parameter specifies the
-maximum I/O rate to allow in MB/s.
+maximum I/O rate to allow in MB/s. The C<$flags> parameter
+can take the bitwise union of the values:
+
+=over 4
+
+=item Sys::Virt::Domain::BLOCK_COMMIT_BANDWIDTH_BYTES
+
+The C<$bandwidth> parameter value is measured in bytes
+instead of MB/s.
+
+=back
=item $count = $dom->num_of_snapshots()
@@ -1450,6 +1614,49 @@ to remove chunks of unused space that are at least
C<$minimum> bytes in length. C<$flags> is currently
unused and defaults to zero.
+=item $dom->fs_freeze(\@mountPoints, $flags=0);
+
+Freeze all the filesystems associated with the C<@mountPoints>
+array reference. If <@mountPoints> is an empty list, then all
+filesystems will be frozen. C<$flags> is currently
+unused and defaults to zero.
+
+=item $dom->fs_thaw(\@mountPoints, $flags=0);
+
+Thaw all the filesystems associated with the C<@mountPoints>
+array reference. If <@mountPoints> is an empty list, then all
+filesystems will be thawed. C<$flags> is currently
+unused and defaults to zero.
+
+=item @fslist = $dom->get_fs_info($flags=0);
+
+Obtain a list of all guest filesystems. The returned list will
+contain one element for each filesystem, whose value will be
+a hash reference with the following keys
+
+=over 4
+
+=item name
+
+The name of the guest device that is mounted
+
+=item fstype
+
+The filesystem type (eg 'ext4', 'fat', 'ntfs', etc)
+
+=item mountpoint
+
+The location in the filesystem tree of the mount
+
+=item devalias
+
+An array reference containing list of device aliases
+associated with the guest device. The device aliases
+correspond to disk target names in the guest XML
+configuration
+
+=back
+
=item $dom->send_process_signal($pid, $signum, $flags=0);
Send the process C<$pid> the signal C<$signum>. The
@@ -1556,8 +1763,24 @@ Do not use OS I/O cache if starting a domain with a saved state image
Boot the guest, even if there was a saved snapshot
+=item Sys::Virt::Domain::START_VALIDATE
+
+Validate the XML document against the XML schema
+
=back
+=head2 DOMAIN DEFINE
+
+The following constants can be used to control the behaviour
+of domain define operations
+
+=over 4
+
+=item Sys::Virt::Domain::DEFINE_VALIDATE
+
+Validate the XML document against the XML schema
+
+=back
=head2 KEYCODE SETS
@@ -1865,6 +2088,15 @@ Enable compression of the migration data stream
Abort if an I/O error occurrs on the disk
+=item Sys::Virt::Domain::MIGRATE_AUTO_CONVERGE
+
+Force convergance of the migration operation by
+throttling guest runtime
+
+=item Sys::Virt::Domain::MIGRATE_RDMA_PIN_ALL
+
+Pin memory for RDMA transfer
+
=back
=head2 UNDEFINE CONSTANTS
@@ -1884,6 +2116,11 @@ domain
Also remove any snapshot metadata when undefining the virtual
domain.
+=item Sys::Virt::Domain::UNDEFINE_NVRAM
+
+Also remove any NVRAM state file when undefining the virtual
+domain.
+
=back
=head2 JOB TYPES
@@ -1965,6 +2202,22 @@ The I/O weight parameter
The per-device I/O weight parameter
+=item Sys::Virt::Domain::BLKIO_DEVICE_READ_BPS
+
+The per-device I/O bytes read per second
+
+=item Sys::Virt::Domain::BLKIO_DEVICE_READ_IOPS
+
+The per-device I/O operations read per second
+
+=item Sys::Virt::Domain::BLKIO_DEVICE_WRITE_BPS
+
+The per-device I/O bytes write per second
+
+=item Sys::Virt::Domain::BLKIO_DEVICE_WRITE_IOPS
+
+The per-device I/O operations write per second
+
=back
=head2 BLKIO TUNING PARAMETERS
@@ -1998,6 +2251,34 @@ The I/O operations read per second.
The I/O operations written per second.
+=item Sys::Virt::Domain::BLOCK_IOTUNE_TOTAL_BYTES_SEC_MAX
+
+The maximum total bytes processed per second.
+
+=item Sys::Virt::Domain::BLOCK_IOTUNE_READ_BYTES_SEC_MAX
+
+The maximum bytes read per second.
+
+=item Sys::Virt::Domain::BLOCK_IOTUNE_WRITE_BYTES_SEC_MAX
+
+The maximum bytes written per second.
+
+=item Sys::Virt::Domain::BLOCK_IOTUNE_TOTAL_IOPS_SEC_MAX
+
+The maximum total I/O operations processed per second.
+
+=item Sys::Virt::Domain::BLOCK_IOTUNE_READ_IOPS_SEC_MAX
+
+The maximum I/O operations read per second.
+
+=item Sys::Virt::Domain::BLOCK_IOTUNE_WRITE_IOPS_SEC_MAX
+
+The maximum I/O operations written per second.
+
+=item Sys::Virt::Domain::BLOCK_IOTUNE_SIZE_IOPS_SEC
+
+The maximum I/O operations per second
+
=back
=head2 SCHEDULER CONSTANTS
@@ -2379,7 +2660,13 @@ Errors from the virtualization control channel
=item Sys::Virt::Domain::EVENT_ID_BLOCK_JOB
-Completion status of asynchronous block jobs
+Completion status of asynchronous block jobs,
+identified by source file name.
+
+=item Sys::Virt::Domain::EVENT_ID_BLOCK_JOB_2
+
+Completion status of asynchronous block jobs,
+identified by target device name.
=item Sys::Virt::Domain::EVENT_ID_DISK_CHANGE
@@ -2409,6 +2696,49 @@ Balloon target changes
Asynchronous guest device removal
+=item Sys::Virt::Domain::EVENT_ID_TUNABLE
+
+Changes of any domain tuning parameters. The callback
+will be provided with a hash listing all changed parameters.
+The later DOMAIN TUNABLE constants can be useful when accessing
+the hash keys
+
+=item Sys::Virt::Domain::EVENT_ID_AGENT_LIFECYCLE
+
+Domain guest agent lifecycle events. The C<state> parameter
+to the callback will match one of the constants
+
+=over 4
+
+=item Sys::Virt::Domain::EVENT_AGENT_LIFECYCLE_STATE_CONNECTED
+
+The agent is now connected
+
+=item Sys::Virt::Domain::EVENT_AGENT_LIFECYCLE_STATE_DISCONNECTED
+
+The agent is now disconnected
+
+=back
+
+The second parameter, C<reason>, matches one of the following
+constants
+
+=over 4
+
+=item Sys::Virt::Domain::EVENT_AGENT_LIFECYCLE_REASON_UNKNOWN
+
+The reason is unknown
+
+=item Sys::Virt::Domain::EVENT_AGENT_LIFECYCLE_REASON_DOMAIN_STARTED
+
+The domain was initially booted
+
+=item Sys::Virt::Domain::EVENT_AGENT_LIFECYCLE_REASON_CHANNEL
+
+The channel on a running guest changed state
+
+=back
+
=back
=head2 IO ERROR EVENT CONSTANTS
@@ -2513,7 +2843,11 @@ These constants describe the reason for a disk change event
=item Sys::Virt::Domain::EVENT_DISK_CHANGE_MISSING_ON_START
-The disk media was missing when attempting to start the guest
+The disk media was cleared, as its source was missing when attempting to start the guest
+
+=item Sys::Virt::Domain::EVENT_DISK_DROP_MISSING_ON_START
+
+The disk device was dropped, as its source was missing whe attempting to start the guest
=back
@@ -2556,6 +2890,10 @@ The block copy job type
The block commit job type
+=item Sys::Virt::Domain::BLOCK_JOB_TYPE_ACTIVE_COMMIT
+
+The block active commit job type
+
=back
=head2 DOMAIN BLOCK JOB COMPLETION CONSTANTS
@@ -2605,6 +2943,30 @@ Make destination file raw
Start a copy job
+=item Sys::Virt::Domain::BLOCK_REBASE_COPY_DEV
+
+Treat destination as a block device instead of file
+
+=item Sys::Virt::Domain::BLOCK_REBASE_RELATIVE
+
+Keep backing chain referenced using relative names
+
+=back
+
+=head2 DOMAIN BLOCK COPY CONSTANTS
+
+The following constants are useful when copying block devices
+
+=over 4
+
+=item Sys::Virt::Domain::BLOCK_COPY_SHALLOW
+
+Limit copy to top of source backing chain
+
+=item Sys::Virt::Domain::BLOCK_COPY_REUSE_EXT
+
+Reuse existing external file for copy
+
=back
=head2 DOMAIN BLOCK JOB ABORT CONSTANTS
@@ -2637,6 +2999,14 @@ Delete any files that are invalid after commit
NULL base means next backing file, not whole chain
+=item Sys::Virt::Domain::BLOCK_COMMIT_ACTIVE
+
+Allow two phase commit when top is active layer
+
+=item Sys::Virt::Domain::BLOCK_COMMIT_RELATIVE
+
+Keep backing chain referenced using relative names
+
=back
=head2 DOMAIN SAVE / RESTORE CONSTANTS
@@ -2736,6 +3106,10 @@ Shutdown by talking to initctl (containers only)
Shutdown by sending SIGTERM to the init process
+=item Sys::Virt::Domain::SHUTDOWN_PARAVIRT
+
+Shutdown by issuing a paravirt power control command
+
=back
=head2 REBOOT CONSTANTS
@@ -2765,6 +3139,10 @@ Reboot by talking to initctl (containers only)
Reboot by sending SIGHUP to the init process
+=item Sys::Virt::Domain::REBOOT_PARAVIRT
+
+Reboot by issuing a paravirt power control command
+
=back
=head2 METADATA CONSTANTS
@@ -3013,6 +3391,88 @@ The quota for the emulator in one schedular time period
=back
+=head2 DOMAIN STATS FLAG CONSTANTS
+
+The following constants are used as flags when requesting
+bulk domain stats from C<Sys::Virt::get_all_domain_stats>.
+
+=over 4
+
+=item Sys::Virt::Domain::GET_ALL_STATS_ACTIVE
+
+Include stats for active domains
+
+=item Sys::Virt::Domain::GET_ALL_STATS_INACTIVE
+
+Include stats for inactive domains
+
+=item Sys::Virt::Domain::GET_ALL_STATS_OTHER
+
+Include stats for other domains
+
+=item Sys::Virt::Domain::GET_ALL_STATS_PAUSED
+
+Include stats for paused domains
+
+=item Sys::Virt::Domain::GET_ALL_STATS_PERSISTENT
+
+Include stats for persistent domains
+
+=item Sys::Virt::Domain::GET_ALL_STATS_RUNNING
+
+Include stats for running domains
+
+=item Sys::Virt::Domain::GET_ALL_STATS_SHUTOFF
+
+Include stats for shutoff domains
+
+=item Sys::Virt::Domain::GET_ALL_STATS_TRANSIENT
+
+Include stats for transient domains
+
+=item Sys::Virt::Domain::GET_ALL_STATS_ENFORCE_STATS
+
+Require that all requested stats fields are returned
+
+=item Sys::Virt::Domain::GET_ALL_STATS_BACKING
+
+Get stats for image backing files too
+
+=back
+
+=head2 DOMAIN STATS FIELD CONSTANTS
+
+The following constants are used to control which fields
+are returned for stats queries.
+
+=over
+
+=item Sys::Virt::Domain::STATS_BALLOON
+
+Balloon statistics
+
+=item Sys::Virt::Domain::STATS_BLOCK
+
+Block device info
+
+=item Sys::Virt::Domain::STATS_CPU_TOTAL
+
+CPU usage info
+
+=item Sys::Virt::Domain::STATS_INTERFACE
+
+Network interface info
+
+=item Sys::Virt::Domain::STATS_STATE
+
+General lifecycle state
+
+=item Sys::Virt::Domain::STATS_VCPU
+
+Virtual CPU info
+
+=back
+
=head2 PROCESS SIGNALS
The following constants provide the names of signals
@@ -3283,6 +3743,99 @@ SIGRT32
=back
+=head2 DOMAIN TUNABLE CONSTANTS
+
+The following constants are useful when accessing domain
+tuning parameters in APIs and events
+
+=over 4
+
+=item Sys::Virt::Domain::TUNABLE_CPU_CPU_SHARES
+
+Proportional CPU weight
+
+=item Sys::Virt::Domain::TUNABLE_CPU_EMULATORPIN
+
+Emulator thread CPU pinning mask
+
+=item Sys::Virt::Domain::TUNABLE_CPU_EMULATOR_PERIOD
+
+Emulator thread CPU period
+
+=item Sys::Virt::Domain::TUNABLE_CPU_EMULATOR_QUOTA
+
+Emulator thread CPU quota
+
+=item Sys::Virt::Domain::TUNABLE_CPU_VCPUPIN
+
+VCPU thread pinning mask
+
+=item Sys::Virt::Domain::TUNABLE_CPU_VCPU_PERIOD
+
+VCPU thread period
+
+=item Sys::Virt::Domain::TUNABLE_CPU_VCPU_QUOTA
+
+VCPU thread quota
+
+=item Sys::Virt::Domain::TUNABLE_BLKDEV_DISK
+
+The name of guest disks
+
+=item Sys::Virt::Domain::TUNABLE_BLKDEV_READ_BYTES_SEC
+
+Read throughput in bytes per sec
+
+=item Sys::Virt::Domain::TUNABLE_BLKDEV_READ_IOPS_SEC
+
+Read throughput in I/O operations per sec
+
+=item Sys::Virt::Domain::TUNABLE_BLKDEV_TOTAL_BYTES_SEC
+
+Total throughput in bytes per sec
+
+=item Sys::Virt::Domain::TUNABLE_BLKDEV_TOTAL_IOPS_SEC
+
+Total throughput in I/O operations per sec
+
+=item Sys::Virt::Domain::TUNABLE_BLKDEV_WRITE_BYTES_SEC
+
+Write throughput in bytes per sec
+
+=item Sys::Virt::Domain::TUNABLE_BLKDEV_WRITE_IOPS_SEC
+
+Write throughput in I/O operations per sec
+
+=item Sys::Virt::Domain::TUNABLE_BLKDEV_READ_BYTES_SEC_MAX
+
+Maximum read throughput in bytes per sec
+
+=item Sys::Virt::Domain::TUNABLE_BLKDEV_READ_IOPS_SEC_MAX
+
+Maximum read throughput in I/O operations per sec
+
+=item Sys::Virt::Domain::TUNABLE_BLKDEV_TOTAL_BYTES_SEC_MAX
+
+Maximum total throughput in bytes per sec
+
+=item Sys::Virt::Domain::TUNABLE_BLKDEV_TOTAL_IOPS_SEC_MAX
+
+Maximum total throughput in I/O operations per sec
+
+=item Sys::Virt::Domain::TUNABLE_BLKDEV_WRITE_BYTES_SEC_MAX
+
+Maximum write throughput in bytes per sec
+
+=item Sys::Virt::Domain::TUNABLE_BLKDEV_WRITE_IOPS_SEC_MAX
+
+Maximum write throughput in I/O operations per sec
+
+=item Sys::Virt::Domain::TUNABLE_BLKDEV_SIZE_IOPS_SEC
+
+The maximum I/O operations per second
+
+=back
+
=head1 AUTHORS
Daniel P. Berrange <berrange@redhat.com>
@@ -362,6 +362,22 @@ The access control code
The systemd init service
+=item Sys::Virt::Error::FROM_BHYVE
+
+The FreeBSD BHyve driver
+
+=item Sys::Virt::Error::FROM_CRYPTO
+
+The cryptographic helper APIs.
+
+=item Sys::Virt::Error::FROM_FIREWALL
+
+The firewall helper APIs.
+
+=item Sys::Virt::Error::FROM_POLKIT
+
+The polkit authentication / authorization APIs
+
=back
=head2 ERROR CODE CONSTANTS
@@ -732,6 +748,18 @@ Not authorized to perform the operation
An error from a DBus service API
+=item Sys::Virt::Error::ERR_STORAGE_VOL_EXIST
+
+The storage volume already exists
+
+=item Sys::Virt::Error::ERR_CPU_INCOMPATIBLE
+
+The CPUs are not compatible
+
+=item Sys::Virt::Error::ERR_INVALID_SCHEMA
+
+The XML document does not comply with the XML schema
+
=back
=head1 AUTHORS
@@ -143,6 +143,56 @@ start upon boot. Return false, otherwise
Set the state of the autostart flag, which determines whether the
virtual network will automatically start upon boot of the host OS.
+=item @leases = $net->get_dhcp_leases($mac=undef, $flags=0)
+
+Get a list of all active DHCP leases. If C<$mac> is undefined than
+leases for all VMs are returned, otherwise only leases for the
+matching MAC address are returned. The C<$flags> parameter is
+currently unused and defaults to zero.
+
+The elements in the returned array are hash references with
+the following fields
+
+=over 4
+
+=item C<iface>
+
+Network interface name
+
+=item C<expirytime>
+
+Seconds since the epoch until the lease expires
+
+=item C<type>
+
+One of the Sys::Virt IP address type constants
+
+=item C<mac>
+
+The MAC address of the lease
+
+=item C<iaid>
+
+The IAID of the client
+
+=item C<ipaddr>
+
+The IP address of the lease
+
+=item C<prefix>
+
+The IP address prefix
+
+=item C<hostname>
+
+The optional hostname associated with the lease
+
+=item C<clientid>
+
+The client ID or DUID
+
+=back
+
=back
=head1 CONSTANTS
@@ -299,6 +349,44 @@ Insert the matching entry at the end
=back
+=head2 EVENT ID CONSTANTS
+
+=over 4
+
+=item Sys::Virt::Network::EVENT_ID_LIFECYCLE
+
+Network lifecycle events
+
+=back
+
+=head2 LIFECYCLE CHANGE EVENTS
+
+The following constants allow network lifecycle change events to be
+interpreted. The events contain both a state change, and a
+reason though the reason is currently unsed.
+
+=over 4
+
+=item Sys::Virt::Network::EVENT_DEFINED
+
+Indicates that a persistent configuration has been defined for
+the network.
+
+=item Sys::Virt::Network::EVENT_STARTED
+
+The network has started running
+
+=item Sys::Virt::Network::EVENT_STOPPED
+
+The network has stopped running
+
+=item Sys::Virt::Network::EVENT_UNDEFINED
+
+The persistent configuration has gone away
+
+=back
+
+
=cut
@@ -51,10 +51,11 @@ sub _new {
my $self;
if (exists $params{name}) {
$self = Sys::Virt::NodeDevice::_lookup_by_name($con, $params{name});
- } elsif (exists $params{wwpn}) {
+ } elsif (exists $params{wwnn}) {
$self = Sys::Virt::NodeDevice::_lookup_scsihost_by_wwn($con,
+ $params{wwnn},
$params{wwpn},
- $params{wwnn});
+ $params{flags});
} elsif (exists $params{xml}) {
$self = Sys::Virt::NodeDevice::_create_xml($con, $params{xml});
} else {
@@ -439,6 +439,13 @@ Include SCSI storage pools
Include sheepdog storage pools
+=item Sys::Virt::StoragePool::LIST_GLUSTER
+
+Include gluster storage pools
+
+=item Sys::Virt::StoragePool::LIST_ZFS
+
+Include ZFS storage pools
=back
@@ -171,6 +171,10 @@ The volume is a directory
The volume is a network source
+=item Sys::Virt::StorageVol::TYPE_NETDIR
+
+The volume is a network directory
+
=back
=head2 CREATE MODES
@@ -78,7 +78,7 @@ use Sys::Virt::NWFilter;
use Sys::Virt::DomainSnapshot;
use Sys::Virt::Stream;
-our $VERSION = '1.1.1';
+our $VERSION = '1.2.12';
require XSLoader;
XSLoader::load('Sys::Virt', $VERSION);
@@ -262,7 +262,7 @@ sub create_domain_with_files {
fds => $fds, flags => $flags);
}
-=item my $dom = $vmm->define_domain($xml);
+=item my $dom = $vmm->define_domain($xml, $flags=0);
Defines, but does not start, a new domain based on the XML description
passed into the C<$xml> parameter. The returned object is an instance
@@ -276,8 +276,9 @@ object.
sub define_domain {
my $self = shift;
my $xml = shift;
+ my $flags = shift || 0;
- return Sys::Virt::Domain->_new(connection => $self, xml => $xml, nocreate => 1);
+ return Sys::Virt::Domain->_new(connection => $self, xml => $xml, nocreate => 1, flags => $flags);
}
=item my $dom = $vmm->create_network($xml);
@@ -790,7 +791,7 @@ sub list_secrets {
my $self = shift;
my $nuuids = $self->num_of_secrets();
- my @uuids = $self->list_secrets($nuuids);
+ my @uuids = $self->list_secret_uuids($nuuids);
my @secrets;
foreach my $uuid (@uuids) {
@@ -1161,6 +1162,22 @@ C<$flags> parameter is optional, and if omitted defaults to zero. The
returned scalar is an XML document describing the discovered storage
pool sources.
+=item my @stats = $vmm->get_all_domain_stats($stats, \@doms=undef, $flags=0);
+
+Get an list of all statistics for domains known to the hypervisor.
+The C<$stats> parameter controls which data fields to return and
+should be a combination of the DOMAIN STATS FIELD CONSTANTS.
+
+The optional C<@doms> parameter is a list of Sys::Virt::Domain objects
+to return stats for. If this is undefined, then all domains will be
+returned. The C<$flags> method can be used to filter the list of
+returned domains.
+
+The return data for the method is a list, one element for each domain.
+The element will be a hash with two keys, C<dom> pointing to an instance
+of C<Sys::Virt::Domain> and C<data> pointing to another hash reference
+containing the actual statistics.
+
=item $vmm->interface_change_begin($flags)
Begin a transaction for changing the configuration of one or more
@@ -1531,6 +1548,38 @@ unregistering the event.
Unregister a callback, associated with the C<$callbackID> previously
obtained from C<domain_event_register_any>.
+=item $callback = $conn->network_event_register_any($dom, $eventID, $callback)
+
+Register a callback to received notifications of network events.
+The C<$dom> parameter can be C<undef> to request events on all
+known networks, or a specific C<Sys::Virt::Network> object to
+filter events. The C<$eventID> parameter is one of the EVENT ID
+constants described later in this document. The C<$callback> is
+a subroutine reference that will receive the events.
+
+All callbacks receive a C<Sys::Virt> connection as the first parameter
+and a C<Sys::Virt::Network> object indiciating the network on which the
+event occurred as the second parameter. Subsequent parameters vary
+according to the event type
+
+=over
+
+=item EVENT_ID_LIFECYCLE
+
+Extra C<event> and C<detail> parameters defining the lifecycle
+transition that occurred.
+
+=back
+
+The return value is a unique callback ID that must be used when
+unregistering the event.
+
+
+=item $conn->network_event_deregister_any($callbackID)
+
+Unregister a callback, associated with the C<$callbackID> previously
+obtained from C<network_event_register_any>.
+
=item $conn->register_close_callback($coderef);
Register a callback to be invoked when the connection is closed.
@@ -1548,7 +1597,24 @@ Remove the previously registered close callback.
Given an array ref whose elements are XML documents describing host CPUs,
compute the baseline CPU model that is operable across all hosts. The
XML for the baseline CPU model is returned. The optional C<$flags>
-parameter is currently unused and defaults to 0.
+parameter can take one of
+
+=over 4
+
+=item Sys::Virt::BASELINE_CPU_EXPAND_FEATURES
+
+Expand the CPU definition to list all feature flags, even those
+implied by the model name.
+
+=back
+
+=item @names = $con->get_cpu_model_names($arch, $flags=0)
+
+Get a list of valid CPU models names for the architecture
+given by C<$arch>. The C<$arch> value should be one of the
+architectures listed in the capabilities XML document.
+The C<$flags> parameter is currently unused and defaults
+to 0.
=item my $info = $con->get_node_security_model()
@@ -1561,12 +1627,32 @@ specifying the 'domain of interpretation' for security labels.
Returns an XML document describing the hypervisor capabilities
+=item my $xml = $con->get_domain_capabilities($emulator, $arch, $machine, $virttype, flags=0);
+
+Returns an XML document describing the capabilities of the
+requested guest configuration. Either C<$emulator> or C<$arch>
+must be a valid string referring to an emulator binary or an
+architecture name respectively. The C<$machine> parameter is
+an optional name of a guest machine, and C<$virttype> is an
+optional name of the virtualization type. C<$flags> is unused
+and defaults to zero.
+
=item my $result = $con->compare_cpu($xml, $flags=0);
Checks whether the CPU definition in C<$xml> is compatible with the
current hypervisor connection. This can be used to determine whether
it is safe to migrate a guest to this host. The returned result is
-one of the constants listed later
+one of the constants listed later The optional C<$flags> parameter
+can take one of the following constants
+
+=over 4
+
+=item Sys::Virt::COMPARE_CPU_FAIL_INCOMPATIBLE
+
+Raise a fatal error if the CPUs are not compatible, instead of
+just returning a special error code.
+
+=back
=item $mem = $con->get_node_free_memory();
@@ -1576,6 +1662,43 @@ Returns the current free memory on the host
Returns the free memory on each NUMA cell between C<$start> and C<$end>.
+=item @pages = $con->get_node_free_pages(\@pagesizes, $start, $end);
+
+Returns information about the number of pages free on each NUMA cell
+between C<$start> and C<$end> inclusive. The C<@pagesizes> parameter
+should be an arrayref specifying which pages sizes information should
+be returned for. Information about supported page sizes is available
+in the capabilities XML. The returned array has an element for each
+NUMA cell requested. The elements are hash references with two keys,
+'cell' specifies the NUMA cell number and 'pages' specifies the
+free page information for that cell. The 'pages' value is another
+hash reference where the keys are the page sizes and the values
+are the free count for that size.
+
+=item $con->node_alloc_pages(\@pages, $start, $end, $flags=0)
+
+Allocate further huge pages for the reserved pool. The <\@pages>
+parameter is an array reference with one entry per page size to
+allocate for. Each entry is a further array reference where the
+first element is the page size and the second element is the
+page count. The same number of pages will be allocated on each
+NUMA node in the range C<$start> to C<$end> inclusive. The
+C<$flags> parameter accepts two contants
+
+=over 4
+
+=item Sys::Virt::NODE_ALLOC_PAGES_ADD
+
+The requested number of pages will be added to the existing huge
+page reservation.
+
+=item Sys::Virt::NODE_ALLOC_PAGES_SET
+
+The huge page reservation will be set to exactly the requested
+number
+
+=back
+
=back
=head1 CONSTANTS
@@ -1736,6 +1859,10 @@ How many pages changing too fast to be placed in a tree.
How many milliseconds the shared memory service should sleep before next scan.
+=item Sys::Virt::NODE_MEMORY_SHARED_MERGE_ACROSS_NODES
+
+Whether pages can be merged across NUMA nodes
+
=back
=head2 CLOSE REASON CONSTANTS
@@ -1787,6 +1914,10 @@ Time spent executing kernel code
Time spent executing user code
+=item Sys::Virt::NODE_CPU_STATS_INTR
+
+Time spent processing interrupts
+
=item Sys::Virt::NODE_CPU_STATS_UTILIZATION
Percentage utilization of the CPU.
@@ -1817,6 +1948,22 @@ The total amount of memory
=back
+=head2 IP address constants
+
+The following constants are used to interpret IP address types
+
+=over 4
+
+=item Sys::Virt::IP_ADDR_TYPE_IPV4
+
+An IPv4 address type
+
+=item Sys::Virt::IP_ADDR_TYPE_IPV6
+
+An IPv6 address type
+
+=back
+
=head1 BUGS
Hopefully none, but the XS code needs to be audited to ensure it
@@ -1,7 +1,7 @@
# Automatically generated by perl-Sys-Virt.spec.PL
Name: perl-Sys-Virt
-Version: 1.1.1
+Version: 1.2.12
Release: 1%{?dist}%{?extra_release}
Summary: Represent and manage a libvirt hypervisor connection
License: GPLv2+ or Artistic
@@ -88,6 +88,10 @@ virConnectDomainEventPMWakeupCallback
virConnectDomainEventTrayChangeCallback
virConnectDomainEventBalloonChangeCallback
virConnectDomainEventDeviceRemovedCallback
+virConnectDomainEventTunableCallback
+virConnectDomainEventAgentLifecycleCallback
+
+virConnectNetworkEventLifecycleCallback
virEventAddHandleFunc
virEventAddTimeoutFunc
@@ -125,6 +129,8 @@ virTypedParamsGetLLong
virTypedParamsGetString
virTypedParamsGetUInt
virTypedParamsGetULLong
+
+virNetworkDHCPLeaseFree
);
foreach my $func (sort { $a cmp $b } @functions) {
@@ -161,6 +167,7 @@ VIR_CPU_USED
VIR_DOMAIN_BLKIO_FIELD_LENGTH
VIR_DOMAIN_BLOCK_STATS_FIELD_LENGTH
VIR_DOMAIN_EVENT_CALLBACK
+VIR_NETWORK_EVENT_CALLBACK
VIR_DOMAIN_MEMORY_FIELD_LENGTH
VIR_DOMAIN_MEMORY_PARAM_UNLIMITED
VIR_DOMAIN_SCHED_FIELD_LENGTH
@@ -179,6 +186,7 @@ VIR_UUID_STRING_BUFLEN
_virBlkioParameter
_virMemoryParameter
_virSchedParameter
+LIBVIR_CHECK_VERSION
);
foreach my $macro (sort { $a cmp $b } @macros) {
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More tests => 24;
+use Test::More tests => 25;
use XML::XPath;
use XML::XPath::XMLParser;
use Sys::Hostname;
@@ -77,3 +77,7 @@ SKIP: {
ok($conn->is_secure(), "connection is secure");
ok(!$conn->is_encrypted(), "connection is not encrypted");
+
+my @models = $conn->get_cpu_model_names($info->{model});
+
+ok($#models > -1, "got some cpu models");