search for: inspect_in_detail

...4 --- a/perl/lib/Sys/Guestfs/Lib.pm +++ b/perl/lib/Sys/Guestfs/Lib.pm @@ -66,7 +66,8 @@ use vars qw(@EXPORT_OK @ISA); @ISA = qw(Exporter); @EXPORT_OK = qw(open_guest get_partitions resolve_windows_path inspect_all_partitions inspect_partition - inspect_operating_systems mount_operating_system inspect_in_detail); + inspect_operating_systems mount_operating_system inspect_in_detail + inspect_linux_kernel); =head2 open_guest @@ -1551,10 +1552,19 @@ sub _check_for_kernels } $config{cmdline} = join(' ', @args) if(scalar(@args) > 0); - my $ke...

...erl/lib/Sys/Guestfs/Lib.pm | 18 ++++++++---------- 1 files changed, 8 insertions(+), 10 deletions(-) diff --git a/perl/lib/Sys/Guestfs/Lib.pm b/perl/lib/Sys/Guestfs/Lib.pm index be17a30..bbc583f 100644 --- a/perl/lib/Sys/Guestfs/Lib.pm +++ b/perl/lib/Sys/Guestfs/Lib.pm @@ -1342,7 +1342,7 @@ sub inspect_in_detail _check_for_applications ($g, $os); _check_for_kernels ($g, $os); if ($os->{os} eq "linux") { - _check_for_modprobe_aliases ($g, $os); + _find_modprobe_aliases ($g, $os); _check_for_initrd ($g, $os); } } @@ -1436,16 +1436,14 @@ sub _check_for_kernels $os->...

...Guestfs::- Lib into the flat list-of-structures that the generator supports (or modifying the generator to support trees, but that is much more complex and I don't think necessary). (ii) Decide on the final API. (iii) Decide how much of the current API to move to C. The current "inspect_in_detail" call lists applications, kernels, drivers etc installed in the guest. Furthermore the current API exposes a lot of information about individual filesystems, such as their UUID, which is nowadays unnecessary since we added calls such as guestfs_vfs_uuid to the main libguestfs API. I...

...| 278 +++++++++++++++++++++++++++++-------------- 1 files changed, 189 insertions(+), 89 deletions(-) diff --git a/perl/lib/Sys/Guestfs/Lib.pm b/perl/lib/Sys/Guestfs/Lib.pm index bbc583f..20e29ff 100644 --- a/perl/lib/Sys/Guestfs/Lib.pm +++ b/perl/lib/Sys/Guestfs/Lib.pm @@ -1343,7 +1343,6 @@ sub inspect_in_detail _check_for_kernels ($g, $os); if ($os->{os} eq "linux") { _find_modprobe_aliases ($g, $os); - _check_for_initrd ($g, $os); } } @@ -1392,48 +1391,170 @@ sub _check_for_applications sub _check_for_kernels { - local $_; - my $g = shift; - my $os = shift; +...

This is a repost of the patch I sent on Friday. I know it was already ACK'd, but I've changed a fair bit in addition to adding the requested POD. Specifically: I discovered that augeas's grub lens wasn't returning cmdline the way I expected. This is fixed. The kernel package, if known, is output as a property of the kernel. The XML output of virt-inspector is updated with all

...Locale::TextDomain 'virt-v2v'; use Sys::Guestfs; -use Sys::Guestfs::Lib qw(open_guest get_partitions inspect_all_partitions +use Sys::Guestfs::Lib qw(get_partitions inspect_all_partitions inspect_operating_systems mount_operating_system inspect_in_detail); @@ -37,6 +37,7 @@ use Sys::VirtV2V::Connection::LibVirtXML; use Sys::VirtV2V::Target::LibVirt; use Sys::VirtV2V::Target::RHEV; use Sys::VirtV2V::ExecHelper; +use Sys::VirtV2V::GuestfsHandle; use Sys::VirtV2V::GuestOS; use Sys::VirtV2V::UserMessage qw(user_message); @@ -357,18 +358,9 @@ m...

...::Guestfs::GuestOS->instantiate($g, $os, \%files); -# Mount up the disks and check for applications. +# Modify the guest and its metadata for the target hypervisor +Sys::Guestfs::HVTarget->configure($guestos, $dom, $os); -my $os = $oses->{$root_dev}; -mount_operating_system ($g, $os); -inspect_in_detail ($g, $os); -$g->umount_all (); +print $dom->toString(); +$g->umount_all(); +$g->sync(); +sub get_guestfs_handle +{ + my @params = \@_; # Initialise parameters with list of devices + if ($uri) { + push @params, address => $uri; + } + my $g = open_guest(@para...

...rt-v2v.pl +++ b/v2v/virt-v2v.pl @@ -21,8 +21,6 @@ use strict; use Pod::Usage; use Getopt::Long; -use File::Spec; -use File::stat; use Locale::TextDomain 'virt-v2v'; @@ -32,6 +30,7 @@ use Sys::Guestfs::Lib qw(open_guest get_partitions inspect_all_partitions inspect_in_detail); use Sys::VirtV2V; +use Sys::VirtV2V::Config; use Sys::VirtV2V::Converter; use Sys::VirtV2V::Connection::LibVirt; use Sys::VirtV2V::Connection::LibVirtXML; @@ -215,21 +214,7 @@ GetOptions ("help|?" => sub { # Read the config file if one was given my $config; -if(defined...

Previously, only the LibVirtXML connection translated network and bridge names in imported metadata. This change moves this functionality in Converter, making it available to LibVirt connections as well. At the same time, the format of the config file is switched to XML. The primary driver for this is that the allowable syntax of a foreign network/bridge name is not known. Rather than create a

Previously, only the LibVirtXML connection translated network and bridge names in imported metadata. This change moves this functionality in Converter, making it available to LibVirt connections as well. At the same time, the format of the config file is switched to XML. The primary driver for this is that the allowable syntax of a foreign network/bridge name is not known. Rather than create a

...open_guest (\@ARGV, rw => $rw); } $g->launch (); @@ -286,10 +286,10 @@ my $oses = inspect_operating_systems ($g, \%fses); if ($output !~ /.*fish$/) { my $root_dev; foreach $root_dev (sort keys %$oses) { - my $os = $oses->{$root_dev}; - mount_operating_system ($g, $os); - inspect_in_detail ($g, $os); - $g->umount_all (); + my $os = $oses->{$root_dev}; + mount_operating_system ($g, $os); + inspect_in_detail ($g, $os); + $g->umount_all (); } } @@ -304,7 +304,7 @@ if ($output eq "fish" || $output eq "ro-fish") { my $ro...