r77334 - in /branches/upstream/libsys-virt-perl/current: CHANGES META.yml Makefile.PL README Virt.xs examples/vol-upload-all.pl lib/Sys/Virt.pm lib/Sys/Virt/Domain.pm lib/Sys/Virt/Error.pm perl-Sys-Virt.spec perl-Sys-Virt.spec.PL
carnil at users.alioth.debian.org
carnil at users.alioth.debian.org
Mon Jul 11 05:29:19 UTC 2011
Author: carnil
Date: Mon Jul 11 05:29:15 2011
New Revision: 77334
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=77334
Log:
[svn-upgrade] new version libsys-virt-perl (0.9.2)
Modified:
branches/upstream/libsys-virt-perl/current/CHANGES
branches/upstream/libsys-virt-perl/current/META.yml
branches/upstream/libsys-virt-perl/current/Makefile.PL
branches/upstream/libsys-virt-perl/current/README
branches/upstream/libsys-virt-perl/current/Virt.xs
branches/upstream/libsys-virt-perl/current/examples/vol-upload-all.pl
branches/upstream/libsys-virt-perl/current/lib/Sys/Virt.pm
branches/upstream/libsys-virt-perl/current/lib/Sys/Virt/Domain.pm
branches/upstream/libsys-virt-perl/current/lib/Sys/Virt/Error.pm
branches/upstream/libsys-virt-perl/current/perl-Sys-Virt.spec
branches/upstream/libsys-virt-perl/current/perl-Sys-Virt.spec.PL
Modified: branches/upstream/libsys-virt-perl/current/CHANGES
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsys-virt-perl/current/CHANGES?rev=77334&op=diff
==============================================================================
--- branches/upstream/libsys-virt-perl/current/CHANGES (original)
+++ branches/upstream/libsys-virt-perl/current/CHANGES Mon Jul 11 05:29:15 2011
@@ -1,5 +1,12 @@
Sys::Virt ChangeLog
===================
+
+New in 0.9.2:
+
+ - Changed version numbering to track the corresponding
+ minimum required libvirt releases
+ - Add all new APIs in libvirt 0.9.2
+ - Requires libvirt >= 0.9.2
New in 0.2.8:
Modified: branches/upstream/libsys-virt-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsys-virt-perl/current/META.yml?rev=77334&op=diff
==============================================================================
--- branches/upstream/libsys-virt-perl/current/META.yml (original)
+++ branches/upstream/libsys-virt-perl/current/META.yml Mon Jul 11 05:29:15 2011
@@ -1,7 +1,7 @@
--- #YAML:1.0
name: Sys-Virt
abstract: Extension for the libvirt library
-version: 0.2.8
+version: 0.9.2
author:
- Daniel P. Berrange <dan at berrange.com>
license: gpl
Modified: branches/upstream/libsys-virt-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsys-virt-perl/current/Makefile.PL?rev=77334&op=diff
==============================================================================
--- branches/upstream/libsys-virt-perl/current/Makefile.PL (original)
+++ branches/upstream/libsys-virt-perl/current/Makefile.PL Mon Jul 11 05:29:15 2011
@@ -3,7 +3,7 @@
# See lib/ExtUtils/MakeMaker.pm for details of how to influence
# the contents of the Makefile that is written.
-my $libvirtver = "0.9.0";
+my $libvirtver = "0.9.2";
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;
Modified: branches/upstream/libsys-virt-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsys-virt-perl/current/README?rev=77334&op=diff
==============================================================================
--- branches/upstream/libsys-virt-perl/current/README (original)
+++ branches/upstream/libsys-virt-perl/current/README Mon Jul 11 05:29:15 2011
@@ -7,6 +7,6 @@
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 0.9.0
+The current minimum required version of libvirt is 0.9.2
-- End
Modified: branches/upstream/libsys-virt-perl/current/Virt.xs
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsys-virt-perl/current/Virt.xs?rev=77334&op=diff
==============================================================================
--- branches/upstream/libsys-virt-perl/current/Virt.xs (original)
+++ branches/upstream/libsys-virt-perl/current/Virt.xs Mon Jul 11 05:29:15 2011
@@ -1628,6 +1628,9 @@
case VIR_DOMAIN_EVENT_ID_GRAPHICS:
callback = VIR_DOMAIN_EVENT_CALLBACK(_domain_event_graphics_callback);
break;
+ case VIR_DOMAIN_EVENT_ID_CONTROL_ERROR:
+ callback = VIR_DOMAIN_EVENT_CALLBACK(_domain_event_generic_callback);
+ break;
default:
callback = VIR_DOMAIN_EVENT_CALLBACK(_domain_event_generic_callback);
break;
@@ -1651,6 +1654,33 @@
PPCODE:
virConnectDomainEventDeregisterAny(con, callbackID);
+
+void
+interface_change_begin(conn, flags=0)
+ virConnectPtr conn;
+ unsigned int flags;
+ PPCODE:
+ if (virInterfaceChangeBegin(conn, flags) < 0) {
+ _croak_error(virGetLastError());
+ }
+
+void
+interface_change_commit(conn, flags=0)
+ virConnectPtr conn;
+ unsigned int flags;
+ PPCODE:
+ if (virInterfaceChangeCommit(conn, flags) < 0) {
+ _croak_error(virGetLastError());
+ }
+
+void
+interface_change_rollback(conn, flags=0)
+ virConnectPtr conn;
+ unsigned int flags;
+ PPCODE:
+ if (virInterfaceChangeRollback(conn, flags) < 0) {
+ _croak_error(virGetLastError());
+ }
void
@@ -1906,6 +1936,34 @@
(void)hv_store (RETVAL, "cpuTime", 7, virt_newSVull(info.cpuTime), 0);
OUTPUT:
RETVAL
+
+void
+get_state(dom, flags=0)
+ virDomainPtr dom;
+ unsigned int flags;
+PREINIT:
+ int state;
+ int reason;
+ PPCODE:
+ if (virDomainGetState(dom, &state, &reason, flags) < 0) {
+ _croak_error(virGetLastError());
+ }
+
+ XPUSHs(sv_2mortal(newSViv(state)));
+ XPUSHs(sv_2mortal(newSViv(reason)));
+
+
+
+void
+screenshot(dom, st, screen, flags=0)
+ virDomainPtr dom;
+ virStreamPtr st;
+ unsigned int screen;
+ unsigned int flags;
+ PPCODE:
+ if (virDomainScreenshot(dom, st, screen, flags) < 0) {
+ _croak_error(virGetLastError());
+ }
HV *
@@ -1963,8 +2021,9 @@
HV *
-get_scheduler_parameters(dom)
- virDomainPtr dom;
+get_scheduler_parameters(dom, flags=0)
+ virDomainPtr dom;
+ unsigned int flags;
PREINIT:
virSchedParameter *params;
int nparams;
@@ -1976,9 +2035,16 @@
}
free(type);
Newx(params, nparams, virSchedParameter);
- if (virDomainGetSchedulerParameters(dom, params, &nparams) < 0) {
- Safefree(params);
- _croak_error(virGetLastError());
+ if (flags) {
+ if (virDomainGetSchedulerParametersFlags(dom, params, &nparams, flags) < 0) {
+ Safefree(params);
+ _croak_error(virGetLastError());
+ }
+ } else {
+ if (virDomainGetSchedulerParameters(dom, params, &nparams) < 0) {
+ Safefree(params);
+ _croak_error(virGetLastError());
+ }
}
RETVAL = (HV *)sv_2mortal((SV*)newHV());
for (i = 0 ; i < nparams ; i++) {
@@ -2017,9 +2083,10 @@
RETVAL
void
-set_scheduler_parameters(dom, newparams)
+set_scheduler_parameters(dom, newparams, flags=0)
virDomainPtr dom;
HV *newparams;
+ unsigned int flags;
PREINIT:
virSchedParameter *params;
int nparams;
@@ -2031,9 +2098,16 @@
}
free(type);
Newx(params, nparams, virSchedParameter);
- if (virDomainGetSchedulerParameters(dom, params, &nparams) < 0) {
- Safefree(params);
- _croak_error(virGetLastError());
+ if (flags) {
+ if (virDomainGetSchedulerParametersFlags(dom, params, &nparams, flags) < 0) {
+ Safefree(params);
+ _croak_error(virGetLastError());
+ }
+ } else {
+ if (virDomainGetSchedulerParameters(dom, params, &nparams) < 0) {
+ Safefree(params);
+ _croak_error(virGetLastError());
+ }
}
for (i = 0 ; i < nparams ; i++) {
SV **val;
@@ -2070,8 +2144,14 @@
}
}
- if (virDomainSetSchedulerParameters(dom, params, nparams) < 0) {
- _croak_error(virGetLastError());
+ if (flags) {
+ if (virDomainSetSchedulerParametersFlags(dom, params, nparams, flags) < 0) {
+ _croak_error(virGetLastError());
+ }
+ } else {
+ if (virDomainSetSchedulerParameters(dom, params, nparams) < 0) {
+ _croak_error(virGetLastError());
+ }
}
Safefree(params);
@@ -2468,6 +2548,15 @@
unsigned int flags;
PPCODE:
if (virDomainReboot(dom, flags) < 0) {
+ _croak_error(virGetLastError());
+ }
+
+void
+inject_nmi(dom, flags=0)
+ virDomainPtr dom;
+ unsigned int flags;
+ PPCODE:
+ if (virDomainInjectNMI(dom, flags) < 0) {
_croak_error(virGetLastError());
}
@@ -2536,6 +2625,62 @@
}
+virDomainPtr
+migrate2(dom, destcon, dxml=&PL_sv_undef, flags=0, dname=&PL_sv_undef, uri=&PL_sv_undef, bandwidth=0)
+ virDomainPtr dom;
+ virConnectPtr destcon;
+ SV *dxml;
+ unsigned long flags;
+ SV *dname;
+ SV *uri;
+ unsigned long bandwidth;
+PREINIT:
+ const char *dnamestr = NULL;
+ const char *uristr = NULL;
+ const char *dxmlstr = NULL;
+ CODE:
+ if (SvOK(dxml))
+ dxmlstr = SvPV_nolen(dxml);
+ if (SvOK(dname))
+ dnamestr = SvPV_nolen(dname);
+ if (SvOK(uri))
+ uristr = SvPV_nolen(uri);
+
+ if ((RETVAL = virDomainMigrate2(dom, destcon, dxmlstr,
+ flags, dnamestr, uristr, bandwidth)) == NULL) {
+ _croak_error(virGetLastError());
+ }
+ OUTPUT:
+ RETVAL
+
+
+void
+migrate_to_uri2(dom, dconnuri, miguri=&PL_sv_undef, dxml=&PL_sv_undef, flags=0, dname=&PL_sv_undef, bandwidth=0)
+ virDomainPtr dom;
+ const char *dconnuri;
+ SV *miguri;
+ SV *dxml;
+ unsigned long flags;
+ SV *dname;
+ unsigned long bandwidth;
+PREINIT:
+ const char *miguristr = NULL;
+ const char *dxmlstr = NULL;
+ const char *dnamestr = NULL;
+ PPCODE:
+ if (SvOK(dxml))
+ dxmlstr = SvPV_nolen(dxml);
+ if (SvOK(miguri))
+ miguristr = SvPV_nolen(miguri);
+ if (SvOK(dname))
+ dnamestr = SvPV_nolen(dname);
+
+ if (virDomainMigrateToURI2(dom, dconnuri, miguristr, dxmlstr,
+ flags, dnamestr, bandwidth) < 0) {
+ _croak_error(virGetLastError());
+ }
+
+
void
migrate_set_max_downtime(dom, downtime, flags=0)
virDomainPtr dom;
@@ -4506,6 +4651,43 @@
REGISTER_CONSTANT(VIR_DOMAIN_START_PAUSED, START_PAUSED);
+ REGISTER_CONSTANT(VIR_DOMAIN_NOSTATE_UNKNOWN, STATE_NOSTATE_UNKNOWN);
+
+ REGISTER_CONSTANT(VIR_DOMAIN_RUNNING_UNKNOWN, STATE_RUNNING_UNKNOWN);
+ REGISTER_CONSTANT(VIR_DOMAIN_RUNNING_BOOTED, STATE_RUNNING_BOOTED);
+ REGISTER_CONSTANT(VIR_DOMAIN_RUNNING_MIGRATED, STATE_RUNNING_MIGRATED);
+ REGISTER_CONSTANT(VIR_DOMAIN_RUNNING_RESTORED, STATE_RUNNING_RESTORED);
+ REGISTER_CONSTANT(VIR_DOMAIN_RUNNING_FROM_SNAPSHOT, STATE_RUNNING_FROM_SNAPSHOT);
+ REGISTER_CONSTANT(VIR_DOMAIN_RUNNING_UNPAUSED, STATE_RUNNING_UNPAUSED);
+ REGISTER_CONSTANT(VIR_DOMAIN_RUNNING_MIGRATION_CANCELED, STATE_RUNNING_MIGRATION_CANCELED);
+ REGISTER_CONSTANT(VIR_DOMAIN_RUNNING_SAVE_CANCELED, STATE_RUNNING_SAVE_CANCELED);
+
+ REGISTER_CONSTANT(VIR_DOMAIN_BLOCKED_UNKNOWN, STATE_RUNNING_UNKNOWN);
+
+ REGISTER_CONSTANT(VIR_DOMAIN_PAUSED_UNKNOWN, STATE_PAUSED_UNKNOWN);
+ REGISTER_CONSTANT(VIR_DOMAIN_PAUSED_USER, STATE_PAUSED_USER);
+ REGISTER_CONSTANT(VIR_DOMAIN_PAUSED_MIGRATION, STATE_PAUSED_MIGRATION);
+ REGISTER_CONSTANT(VIR_DOMAIN_PAUSED_SAVE, STATE_PAUSED_SAVE);
+ REGISTER_CONSTANT(VIR_DOMAIN_PAUSED_DUMP, STATE_PAUSED_DUMP);
+ REGISTER_CONSTANT(VIR_DOMAIN_PAUSED_IOERROR, STATE_PAUSED_IOERROR);
+ REGISTER_CONSTANT(VIR_DOMAIN_PAUSED_WATCHDOG, STATE_PAUSED_WATCHDOG);
+ REGISTER_CONSTANT(VIR_DOMAIN_PAUSED_FROM_SNAPSHOT, STATE_PAUSED_FROM_SNAPSHOT);
+
+ REGISTER_CONSTANT(VIR_DOMAIN_SHUTDOWN_UNKNOWN, STATE_SHUTDOWN_UNKNOWN);
+ REGISTER_CONSTANT(VIR_DOMAIN_SHUTDOWN_USER, STATE_SHUTDOWN_USER);
+
+ REGISTER_CONSTANT(VIR_DOMAIN_SHUTOFF_UNKNOWN, STATE_SHUTOFF_UNKNOWN);
+ REGISTER_CONSTANT(VIR_DOMAIN_SHUTOFF_SHUTDOWN, STATE_SHUTOFF_SHUTDOWN);
+ REGISTER_CONSTANT(VIR_DOMAIN_SHUTOFF_DESTROYED, STATE_SHUTOFF_DESTROYED);
+ REGISTER_CONSTANT(VIR_DOMAIN_SHUTOFF_CRASHED, STATE_SHUTOFF_CRASHED);
+ REGISTER_CONSTANT(VIR_DOMAIN_SHUTOFF_MIGRATED, STATE_SHUTOFF_MIGRATED);
+ REGISTER_CONSTANT(VIR_DOMAIN_SHUTOFF_SAVED, STATE_SHUTOFF_SAVED);
+ REGISTER_CONSTANT(VIR_DOMAIN_SHUTOFF_FAILED, STATE_SHUTOFF_FAILED);
+ REGISTER_CONSTANT(VIR_DOMAIN_SHUTOFF_FROM_SNAPSHOT, STATE_SHUTOFF_FROM_SNAPSHOT);
+
+ REGISTER_CONSTANT(VIR_DOMAIN_CRASHED_UNKNOWN, STATE_CRASHED_UNKNOWN);
+
+
/* NB: skip VIR_DOMAIN_SCHED_FIELD_* constants, because
those are not used from Perl code - handled internally
in the XS layer */
@@ -4565,6 +4747,12 @@
REGISTER_CONSTANT(VIR_DOMAIN_MEM_LIVE, MEM_LIVE);
REGISTER_CONSTANT(VIR_DOMAIN_MEM_CONFIG, MEM_CONFIG);
+
+
+ REGISTER_CONSTANT(VIR_DOMAIN_AFFECT_CURRENT, AFFECT_CURRENT);
+ REGISTER_CONSTANT(VIR_DOMAIN_AFFECT_LIVE, AFFECT_LIVE);
+ REGISTER_CONSTANT(VIR_DOMAIN_AFFECT_CONFIG, AFFECT_CONFIG);
+
REGISTER_CONSTANT(VIR_DOMAIN_JOB_NONE, JOB_NONE);
REGISTER_CONSTANT(VIR_DOMAIN_JOB_BOUNDED, JOB_BOUNDED);
@@ -4580,6 +4768,7 @@
REGISTER_CONSTANT(VIR_DOMAIN_EVENT_ID_IO_ERROR, EVENT_ID_IO_ERROR);
REGISTER_CONSTANT(VIR_DOMAIN_EVENT_ID_GRAPHICS, EVENT_ID_GRAPHICS);
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_WATCHDOG_NONE, EVENT_WATCHDOG_NONE);
REGISTER_CONSTANT(VIR_DOMAIN_EVENT_WATCHDOG_PAUSE, EVENT_WATCHDOG_PAUSE);
@@ -4695,7 +4884,7 @@
REGISTER_CONSTANT(VIR_FROM_VMWARE, FROM_VMWARE);
REGISTER_CONSTANT(VIR_FROM_EVENT, FROM_EVENT);
REGISTER_CONSTANT(VIR_FROM_LIBXL, FROM_LIBXL);
-
+ REGISTER_CONSTANT(VIR_FROM_LOCKING, FROM_LOCKING);
REGISTER_CONSTANT(VIR_ERR_OK, ERR_OK);
Modified: branches/upstream/libsys-virt-perl/current/examples/vol-upload-all.pl
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsys-virt-perl/current/examples/vol-upload-all.pl?rev=77334&op=diff
==============================================================================
--- branches/upstream/libsys-virt-perl/current/examples/vol-upload-all.pl (original)
+++ branches/upstream/libsys-virt-perl/current/examples/vol-upload-all.pl Mon Jul 11 05:29:15 2011
@@ -20,10 +20,9 @@
open FILE, "<$f" or die "cannot open $f: $!";
sub foo {
- my $st = shift;
- my $data = shift;
- my $nbytes = shift;
- return sysread FILE, $data, $nbytes;
+ my $st = $_[0];
+ my $nbytes = $_[2];
+ return sysread FILE, $_[1], $nbytes;
};
eval {
Modified: branches/upstream/libsys-virt-perl/current/lib/Sys/Virt.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsys-virt-perl/current/lib/Sys/Virt.pm?rev=77334&op=diff
==============================================================================
--- branches/upstream/libsys-virt-perl/current/lib/Sys/Virt.pm (original)
+++ branches/upstream/libsys-virt-perl/current/lib/Sys/Virt.pm Mon Jul 11 05:29:15 2011
@@ -71,7 +71,7 @@
use Sys::Virt::DomainSnapshot;
use Sys::Virt::Stream;
-our $VERSION = '0.2.8';
+our $VERSION = '0.9.2';
require XSLoader;
XSLoader::load('Sys::Virt', $VERSION);
@@ -1008,6 +1008,21 @@
returned scalar is an XML document describing the discovered storage
pool sources.
+=item $vmm->interface_change_begin($flags)
+
+Begin a transaction for changing the configuration of one or more
+network interfaces
+
+=item $vmm->interface_change_commit($flags)
+
+Complete a transaction for changing the configuration of one or more
+network interfaces
+
+=item $vmm->interface_change_rollback($flags)
+
+Abort a transaction for changing the configuration of one or more
+network interfaces
+
=item $vmm->restore_domain($savefile)
Recreate a domain from the saved state file given in the C<$savefile> parameter.
Modified: branches/upstream/libsys-virt-perl/current/lib/Sys/Virt/Domain.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsys-virt-perl/current/lib/Sys/Virt/Domain.pm?rev=77334&op=diff
==============================================================================
--- branches/upstream/libsys-virt-perl/current/lib/Sys/Virt/Domain.pm (original)
+++ branches/upstream/libsys-virt-perl/current/lib/Sys/Virt/Domain.pm Mon Jul 11 05:29:15 2011
@@ -213,6 +213,129 @@
=back
+=item my ($state, $reason) = $dom->get_state()
+
+Returns an array whose values specify the current state
+of the guest, and the reason for it being in that state.
+The C<$state> values are the same as for the C<get_info>
+API, and the C<$reason> values come from:
+
+=over 4
+
+=item Sys::Virt::Domain::STATE_CRASHED_UNKNOWN
+
+It is not known why the domain has crashed
+
+=item Sys::Virt::Domain::STATE_NOSTATE_UNKNOWN
+
+It is not known why the domain has no state
+
+=item Sys::Virt::Domain::STATE_PAUSED_DUMP
+
+The guest is paused due to a core dump operation
+
+=item Sys::Virt::Domain::STATE_PAUSED_FROM_SNAPSHOT
+
+The guest is paused due to a snapshot
+
+=item Sys::Virt::Domain::STATE_PAUSED_IOERROR
+
+The guest is paused due to an I/O error
+
+=item Sys::Virt::Domain::STATE_PAUSED_MIGRATION
+
+The guest is paused due to migration
+
+=item Sys::Virt::Domain::STATE_PAUSED_SAVE
+
+The guest is paused due to a save operation
+
+=item Sys::Virt::Domain::STATE_PAUSED_UNKNOWN
+
+It is not known why the domain has paused
+
+=item Sys::Virt::Domain::STATE_PAUSED_USER
+
+The guest is paused at admin request
+
+=item Sys::Virt::Domain::STATE_PAUSED_WATCHDOG
+
+The guest is paused due to the watchdog
+
+=item Sys::Virt::Domain::STATE_RUNNING_BOOTED
+
+The guest is running after being booted
+
+=item Sys::Virt::Domain::STATE_RUNNING_FROM_SNAPSHOT
+
+The guest is running after restore from snapshot
+
+=item Sys::Virt::Domain::STATE_RUNNING_MIGRATED
+
+The guest is running after migration
+
+=item Sys::Virt::Domain::STATE_RUNNING_MIGRATION_CANCELED
+
+The guest is running after migration abort
+
+=item Sys::Virt::Domain::STATE_RUNNING_RESTORED
+
+The guest is running after restore from file
+
+=item Sys::Virt::Domain::STATE_RUNNING_SAVE_CANCELED
+
+The guest is running after save cancel
+
+=item Sys::Virt::Domain::STATE_RUNNING_UNKNOWN
+
+It is not known why the domain has started
+
+=item Sys::Virt::Domain::STATE_RUNNING_UNPAUSED
+
+The guest is running after a resume
+
+=item Sys::Virt::Domain::STATE_SHUTDOWN_UNKNOWN
+
+It is not known why the domain has shutdown
+
+=item Sys::Virt::Domain::STATE_SHUTDOWN_USER
+
+The guest is shutdown due to admin request
+
+=item Sys::Virt::Domain::STATE_SHUTOFF_CRASHED
+
+The guest is shutoff after a crash
+
+=item Sys::Virt::Domain::STATE_SHUTOFF_DESTROYED
+
+The guest is shutoff after being destroyed
+
+=item Sys::Virt::Domain::STATE_SHUTOFF_FAILED
+
+The guest is shutoff due to a virtualization failure
+
+=item Sys::Virt::Domain::STATE_SHUTOFF_FROM_SNAPSHOT
+
+The guest is shutoff after a snapshot
+
+=item Sys::Virt::Domain::STATE_SHUTOFF_MIGRATED
+
+The guest is shutoff after migration
+
+=item Sys::Virt::Domain::STATE_SHUTOFF_SAVED
+
+The guest is shutoff after a save
+
+=item Sys::Virt::Domain::STATE_SHUTOFF_SHUTDOWN
+
+The guest is shutoff due to controlled shutdown
+
+=item Sys::Virt::Domain::STATE_SHUTOFF_UNKNOWN
+
+It is not known why the domain has shutoff
+
+=back
+
=item my $info = $dom->get_block_info($dev, $flags=0)
Returns a hash reference summarising the disk usage of
@@ -504,6 +627,11 @@
parameters are all optional, and if omitted default to zero, C<undef>,
C<undef>, and zero respectively.
+=item $ddom = $dom->migrate2(destcon, dxml, flags, dname, uri, bandwidth)
+
+Migrate a domain to an alternative host. This function works in the
+same way as C<migrate>, except is also allows C<dxml> to specify a
+changed XML configuration for the guest on the target host.
=item $dom->migrate_to_uri(desturi, flags, dname, bandwidth)
@@ -523,6 +651,15 @@
parameters are all optional, and if omitted default to zero, C<undef>,
C<undef>, and zero respectively.
+=item $dom->migrate_to_uri2(dconnuri, miguri, dxml, flags, dname, bandwidth)
+
+Migrate a domain to an alternative host. This function works in almost
+the same way as C<migrate_to_uri>, except is also allows C<dxml> to
+specify a changed XML configuration for the guest on the target host.
+The C<dconnuri> must always specify the URI of the remote libvirtd
+daemon, or be C<undef>. The C<miguri> parameter can be used to specify
+the URI for initiating the migration operation, or be C<undef>.
+
=item $dom->migrate_set_max_downtime($downtime, $flags)
@@ -537,6 +674,19 @@
Set the maximum allowed bandwidth during migration of the guest.
The C<bandwidth> parameter is measured in kilobytes/second.
The C<$flags> parameter is currently unused and defaults to zero.
+
+=item $dom->inject_nmi($flags)
+
+Trigger an NMI in the guest virtual machine. The C<$flags> parameter
+is currently unused and defaults to 0.
+
+=item $dom->screenshot($st, $screen, $flags)
+
+Capture a screenshot of the virtual machine's monitor. The C<$screen>
+parameter controls which monitor is captured when using a multi-head
+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.
=item @vcpuinfo = $dom->get_vcpu_info()
@@ -812,11 +962,40 @@
=over 4
+=item Sys::Virt::Domain::MEM_CURRENT
+
+Modify the current state
+
=item Sys::Virt::Domain::MEM_LIVE
Modify only the live state of the domain
=item Sys::Virt::Domain::MEM_CONFIG
+
+Modify only the persistent config of the domain
+
+=item Sys::Virt::Domain::MEM_MAXIMUM
+
+Modify the maximum memory value
+
+=back
+
+=head2 CONFIG OPTIONS
+
+The following constants are used to control what configuration
+a domain update changes
+
+=over 4
+
+=item Sys::Virt::Domain::AFFECT_CURRENT
+
+Modify the current state
+
+=item Sys::Virt::Domain::AFFECT_LIVE
+
+Modify only the live state of the domain
+
+=item Sys::Virt::Domain::AFFECT_CONFIG
Modify only the persistent config of the domain
@@ -1113,6 +1292,10 @@
=item Sys::Virt::Domain::EVENT_ID_IO_ERROR_REASON
File IO errors, typically from disks, with a root cause
+
+=item Sys::Virt::Domain::EVENT_ID_CONTROL_ERROR
+
+Errors from the virtualization control channel
=back
Modified: branches/upstream/libsys-virt-perl/current/lib/Sys/Virt/Error.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsys-virt-perl/current/lib/Sys/Virt/Error.pm?rev=77334&op=diff
==============================================================================
--- branches/upstream/libsys-virt-perl/current/lib/Sys/Virt/Error.pm (original)
+++ branches/upstream/libsys-virt-perl/current/lib/Sys/Virt/Error.pm Mon Jul 11 05:29:15 2011
@@ -270,6 +270,10 @@
The libxl Xen driver
+=item Sys::Virt::Error::FROM_LOCKING
+
+The lock manager drivers
+
=back
=head2 ERROR CODES
Modified: branches/upstream/libsys-virt-perl/current/perl-Sys-Virt.spec
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsys-virt-perl/current/perl-Sys-Virt.spec?rev=77334&op=diff
==============================================================================
--- branches/upstream/libsys-virt-perl/current/perl-Sys-Virt.spec (original)
+++ branches/upstream/libsys-virt-perl/current/perl-Sys-Virt.spec Mon Jul 11 05:29:15 2011
@@ -1,7 +1,7 @@
# Automatically generated by perl-Sys-Virt.spec.PL
Name: perl-Sys-Virt
-Version: 0.2.8
+Version: 0.9.2
Release: 1%{?dist}%{?extra_release}
Summary: Represent and manage a libvirt hypervisor connection
License: GPLv2+ or Artistic
@@ -13,7 +13,7 @@
BuildRequires: perl(Test::Pod)
BuildRequires: perl(Test::Pod::Coverage)
BuildRequires: perl(XML::XPath)
-BuildRequires: libvirt-devel >= 0.9.0
+BuildRequires: libvirt-devel >= 0.9.2
Requires: perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version))
%description
Modified: branches/upstream/libsys-virt-perl/current/perl-Sys-Virt.spec.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsys-virt-perl/current/perl-Sys-Virt.spec.PL?rev=77334&op=diff
==============================================================================
--- branches/upstream/libsys-virt-perl/current/perl-Sys-Virt.spec.PL (original)
+++ branches/upstream/libsys-virt-perl/current/perl-Sys-Virt.spec.PL Mon Jul 11 05:29:15 2011
@@ -35,7 +35,7 @@
BuildRequires: perl(Test::Pod)
BuildRequires: perl(Test::Pod::Coverage)
BuildRequires: perl(XML::XPath)
-BuildRequires: libvirt-devel >= 0.9.0
+BuildRequires: libvirt-devel >= 0.9.2
Requires: perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version))
%description
More information about the Pkg-perl-cvs-commits
mailing list