search for: get_dom

The following patches are where I'm currently at with ESX support. I can now import a domain from ESX along with its storage. Note that I'm not yet doing any conversion. In fact, I've never even tested past the import stage (I just had an exit in there). The meat is really in the 4th patch. The rename of MetadataReader->Connection was because the Connection is now really providing

With this patchset I have successfully[1] imported a RHEL 5 guest directly from ESX with the following command line: virt-v2v -ic 'esx://yellow.marston/?no_verify=1' -op transfer RHEL5-64 Login details are stored in ~/.netrc Note that this is the only guest I've tested against. I haven't for example, checked that I haven't broken Xen imports. Matt [1] With the exception of

....pm b/lib/Sys/VirtV2V/Connection.pm index 501772b..46bd020 100644 --- a/lib/Sys/VirtV2V/Connection.pm +++ b/lib/Sys/VirtV2V/Connection.pm @@ -38,7 +38,8 @@ Sys::VirtV2V::Connection - Obtain domain metadata $conn = Sys::VirtV2V::Connection::LibVirt->new($uri, $name, $pool); $dom = $conn->get_dom(); - @storage = $conn->get_local_storage(); + $storage = $conn->get_storage_paths(); + $devices = $conn->get_storage_devices(); =head1 DESCRIPTION @@ -53,18 +54,33 @@ directly. Use one of the subclasses: =over -=item get_local_storage +=item get_storage_paths -Return a list of...

...on::LibVirt - Read libvirt metadata from libvirtd use Sys::VirtV2V::Connection::LibVirt; $conn = Sys::VirtV2V::Connection::LibVirt->new - ("xen+ssh://xenserver.example.com/", $name, $pool); + ("xen+ssh://xenserver.example.com/", $name, $target); $dom = $conn->get_dom(); =head1 DESCRIPTION @@ -59,11 +58,10 @@ libvirt connection. =over -=item new(uri, name, pool) +=item new(uri, name, target) Create a new Sys::VirtV2V::Connection::LibVirt. Domain I<name> will be -obtained from I<uri>. Remote storage will be copied to a new volume, which -wi...

If a volume is not an exact multiple of 512 bytes, qemu-img will report its size rounded down to a 512 byte boundary. However, when copying, the file is still read until EOF, which will return more data than was expected. This change prevents that causing a failure in itself. The situation is still not resolved, however, as there are still situations where this will cause a failure. For example,

...#39;; =head1 NAME -Sys::VirtV2V::Connection::LibVirt - Read libvirt metadata from libvirtd - -=head1 SYNOPSIS - - use Sys::VirtV2V::Connection::LibVirt; - - $conn = Sys::VirtV2V::Connection::LibVirt->new - ("xen+ssh://xenserver.example.com/", $name, $target); - $dom = $conn->get_dom(); +Sys::VirtV2V::Connection::LibVirt - Access storage and metadata from libvirt =head1 DESCRIPTION -Sys::VirtV2V::Connection::LibVirt is an implementation of -Sys::VirtV2V::Connection which reads a guest's libvirt XML directly from a -libvirt connection. - -=head1 METHODS - -=over - -=ite...

...9;], + require => 1; + +=pod + +=head1 NAME + +Sys::Guestfs::MetadataReader - Read a variety of guest metadata formats + +=head1 SYNOPSIS + + use Sys::Guestfs::MetadataReader; + + $reader = Sys::Guestfs::MetadataReader->get_instance("libvirtxml); + $dom = $reader->get_dom(); + +=head1 DESCRIPTION + +Sys::Guestfs::MetadataReader reads the metadata of a, possibly foreign, +guest. It provides the DOM representation of an equivalent libvirt XML +representation. + +Sys::Guestfs::MetadataReader is an interface to various backends, each of +which implement a consistent API...

...rtV2V/Connection.pm @@ -36,7 +36,7 @@ Sys::VirtV2V::Connection - Obtain domain metadata use Sys::VirtV2V::Connection::LibVirt; - $conn = Sys::VirtV2V::Connection::LibVirt->new($uri, $name, $pool); + $conn = Sys::VirtV2V::Connection::LibVirt->new($uri, $name, $target); $dom = $conn->get_dom(); $storage = $conn->get_storage_paths(); $devices = $conn->get_storage_devices(); @@ -106,7 +106,7 @@ sub _storage_iterate { my $self = shift; - my ($transfer, $pool) = @_; + my ($transfer, $target) = @_; my $dom = $self->get_dom(); @@ -121,8 +121,8 @@ sub _stor...

...quot;, - input => $input)); - exit(1); -} - -exit(1) unless($mdr->is_configured()); - -############################################################################### -## Start of processing - -# Get a libvirt configuration for the guest -my $dom = $mdr->get_dom(); -exit(1) unless(defined($dom)); - -my $pool = _get_pool($vmm); - -if($commit) { - _commit_guest($dom, $vmm, $pool) == 0 or exit(1); -} - -elsif($rollback) { - my $retval; - ($retval, $dom) = _rollback_guest($dom, $vmm, $pool); - - exit(1) unless($retval == 0); -} - -# No commit or ro...

...bVirtXML.pm @@ -39,7 +39,7 @@ Sys::VirtV2V::Connection::LibVirtXML - Read libvirt XML from a file use Sys::VirtV2V::Connection::LibVirtXML; - $conn = Sys::VirtV2V::Connection::LibVirtXML->new($config, $path); + $conn = Sys::VirtV2V::Connection::LibVirtXML->new($path); $dom = $conn->get_dom(); =head1 DESCRIPTION @@ -52,10 +52,9 @@ file. =over -=item new(config, path) +=item new(path) -Create a new LibVirtXML connection. Configuration for transforming the metadata -is taken from I<config>, and the metadata itself is read from I<path>. +Create a new LibVirtXML conn...

...bVirtXML.pm @@ -39,7 +39,7 @@ Sys::VirtV2V::Connection::LibVirtXML - Read libvirt XML from a file use Sys::VirtV2V::Connection::LibVirtXML; - $conn = Sys::VirtV2V::Connection::LibVirtXML->new($config, $path); + $conn = Sys::VirtV2V::Connection::LibVirtXML->new($path); $dom = $conn->get_dom(); =head1 DESCRIPTION @@ -52,10 +52,9 @@ file. =over -=item new(config, path) +=item new(path) -Create a new LibVirtXML connection. Configuration for transforming the metadata -is taken from I<config>, and the metadata itself is read from I<path>. +Create a new LibVirtXML conn...