search for: inspect_get_major_version

Hi Richard I've noticed this snippet in import-to-ovirt.pl my $minor_version = $g->inspect_get_major_version ($root); I guess you meant here my $minor_version = $g->inspect_get_minor_version ($root); Emmanuel

...ct_get_type($root); - $desc{distro} = $g->inspect_get_distro($root); + $desc{distro} = $g->inspect_get_distro($root) + if $desc{os} eq 'linux'; $desc{product_name} = $g->inspect_get_product_name($root); $desc{major_version} = $g->inspect_get_major_version($root); $desc{minor_version} = $g->inspect_get_minor_version($root); -- 1.7.4.4

*** BLURB HERE *** Pino Toscano (3): python: modernize inspect_vm example perl: silence usage of add_cdrom in test python: silence usage of add_cdrom in test perl/t/060-handle-properties.t | 7 +++++-- python/examples/inspect_vm.py | 26 ++++++++++++-------------- python/t/test050HandleProperties.py | 5 ++++- 3 files changed, 21 insertions(+), 17 deletions(-) -- 2.20.1

...$root, $kernel_arch); return ($kernel_pkg, $kernel_arch, $kernel_ver); } @@ -1989,57 +2278,115 @@ sub _get_replacement_kernel_name # Make an informed choice about a replacement kernel for distros we know # about - # RHEL 5 - if (_is_rhel_family($g, $root) && $g->inspect_get_major_version($root) eq '5') { - if ($arch eq 'i686') { - # XXX: This assumes that PAE will be available in the hypervisor. - # While this is almost certainly true, it's theoretically possible - # that it isn't. The information we need is availabl...

The following series of patches adds support for converting SUSE guests through virt-v2v. These changes should not impact non-SUSE guest conversions. Mike Latimer (4): Add perl-Bootloader support to grub packages Add conversion support for SUSE guests Add SUSE to capabilities db and conf Add SUSE support documentation lib/Sys/VirtConvert/Converter/Linux.pm | 480

...$root, $kernel_arch); return ($kernel_pkg, $kernel_arch, $kernel_ver); } @@ -1989,57 +2266,115 @@ sub _get_replacement_kernel_name # Make an informed choice about a replacement kernel for distros we know # about - # RHEL 5 - if (_is_rhel_family($g, $root) && $g->inspect_get_major_version($root) eq '5') { - if ($arch eq 'i686') { - # XXX: This assumes that PAE will be available in the hypervisor. - # While this is almost certainly true, it's theoretically possible - # that it isn't. The information we need is availabl...

...ement apis would accept and return the enhanced descriptor. Inspection APIS: All take a root filesystem as an argument, which may not be a block device. inspect_get_arch inspect_get_distro inspect_get_drive_mappings inspect_get_filesystems inspect_get_format inspect_get_hostname inspect_get_icon inspect_get_major_version inspect_get_minor_version inspect_get_mountpoints inspect_get_package_format inspect_get_package_management inspect_get_product_name inspect_get_product_variant inspect_get_type inspect_get_windows_current_control_set inspect_get_windows_systemroot inspect_is_live inspect_is_multipart inspect_is_ne...

On Friday, October 04, 2013 09:38:58 AM Matthew Booth wrote: > It's specifically an error if we're attempting to configure virtio, and > there's no detected virtio kernel. It shouldn't have been possible to > get here in that state, hence it's a programmer error. The code below > attempts to install *any* kernel in the case that we aren't configuring >

...,11 +823,11 @@ sub _get_os_type sub _get_os_type_windows { - my ($desc, $arch_suffix) = @_; + my ($g, $root, $arch_suffix) = @_; - my $major = $desc->{major_version}; - my $minor = $desc->{minor_version}; - my $product = $desc->{product_name}; + my $major = $g->inspect_get_major_version($root); + my $minor = $g->inspect_get_minor_version($root); + my $product = $g->inspect_get_product_name($root); if ($major == 5) { if ($minor == 1 || @@ -847,7 +848,7 @@ sub _get_os_type_windows } if ($major == 6 && $minor == 1) { - if ($des...

On Sat, Dec 24, 2016 at 02:28:18PM +0100, Emmanuel Kasper wrote: > Hi Richard > > I've noticed this snippet in import-to-ovirt.pl > > my $minor_version = $g->inspect_get_major_version ($root); > > I guess you meant here > > my $minor_version = $g->inspect_get_minor_version ($root); Indeed I did, and that also means that some of the metadata in imported guests would have been broken. All fixed now, thanks! http://git.annexia.org/?p=import-to-ovirt.git;a=commit...

...+243,10 @@ let process_image acc_entries filename repo tmprepo index interactive let root = Array.get roots 0 in let inspected_arch = g#inspect_get_arch root in let product = g#inspect_get_product_name root in - let distro = g#inspect_get_distro root in - let version_major = g#inspect_get_major_version root in - let version_minor = g#inspect_get_minor_version root in + let shortid = g#inspect_get_osinfo root in let lvs = g#lvs () in let filesystems = g#inspect_get_filesystems root in - let shortid = compute_short_id distro version_major version_minor in - g#close ();...

...ernels are there first > + my @k_before = $g->glob_expand('/boot/vmlinuz-*') if defined($kernel); > + > + # If a SLES11 kernel is being added, add -base kernel > + if (defined($kernel)) { > + if (_is_sles_family($g, $root) && > + $g->inspect_get_major_version($root) == 11) { > + $kernel->[1][0] = $kernel->[0][0].'-base'; > + for my $count (1..4) { > + if (defined($kernel->[0][$count])) { > + $kernel->[1][$count] = $kernel->[0][$count]; > + } >...

...fore = $g->glob_expand('/boot/vmlinuz-*') if > > defined($kernel); > > > > + # If a SLES11 kernel is being added, add -base kernel > > + if (defined($kernel)) { > > + if (_is_suse_family($g, $root) && > > + ($g->inspect_get_major_version($root) == 11)) { > > + my $tmp; > > + push(@$tmp, $kernel); > > + $tmp->[1][0] = $tmp->[0][0].'-base'; > > + for my $count (1..4) { > > + if (defined($tmp->[0][$count])) { > > +...

...ling a kernel, check which kernels are there first + my @k_before = $g->glob_expand('/boot/vmlinuz-*') if defined($kernel); + + # If a SLES11 kernel is being added, add -base kernel + if (defined($kernel)) { + if (_is_suse_family($g, $root) && + ($g->inspect_get_major_version($root) == 11)) { + my $tmp; + push(@$tmp, $kernel); + $tmp->[1][0] = $tmp->[0][0].'-base'; + for my $count (1..4) { + if (defined($tmp->[0][$count])) { + $tmp->[1][$count] = $tmp->[0][$count]; +...

This is a new conversion module to convert SUSE Linux and openSUSE guests. The converter is based on the RedHat module, and should offer the same functionality on both SUSE and RedHat hosts. There are a few additional messages in this module, such as reporting of packages when installing through zypper or the local virt-v2v repo. These messages don't necessarily flow unless verbose switches

...;/boot/vmlinuz-*') if > > > defined($kernel); > > > > > > + # If a SLES11 kernel is being added, add -base kernel > > > + if (defined($kernel)) { > > > + if (_is_suse_family($g, $root) && > > > + ($g->inspect_get_major_version($root) == 11)) { > > > + my $tmp; > > > + push(@$tmp, $kernel); > > > + $tmp->[1][0] = $tmp->[0][0].'-base'; > > > + for my $count (1..4) { > > > + if (defined($tmp->[0][$count])...

...nels are there first > my @k_before = $g->glob_expand('/boot/vmlinuz-*') if defined($kernel); > > + # If a SLES11 kernel is being added, add -base kernel > + if (defined($kernel)) { > + if (_is_suse_family($g, $root) && > + ($g->inspect_get_major_version($root) == 11)) { > + my $tmp; > + push(@$tmp, $kernel); > + $tmp->[1][0] = $tmp->[0][0].'-base'; > + for my $count (1..4) { > + if (defined($tmp->[0][$count])) { > + $tmp->[1][$count]...

...unt_ro = 0 libguestfs: trace: inspect_get_type "/dev/sda1" libguestfs: trace: inspect_get_type = "windows" libguestfs: trace: inspect_get_product_name "/dev/sda1" libguestfs: trace: inspect_get_product_name = "Microsoft Windows Server 2003" libguestfs: trace: inspect_get_major_version "/dev/sda1" libguestfs: trace: inspect_get_major_version = 5 libguestfs: trace: inspect_get_minor_version "/dev/sda1" libguestfs: trace: inspect_get_minor_version = 2 libguestfs: trace: inspect_get_arch "/dev/sda1" libguestfs: trace: inspect_get_arch = "i386"...

...alling a kernel, check which kernels are there first + my @k_before = $g->glob_expand('/boot/vmlinuz-*') if defined($kernel); + + # If a SLES11 kernel is being added, add -base kernel + if (defined($kernel)) { + if (_is_sles_family($g, $root) && + $g->inspect_get_major_version($root) == 11) { + $kernel->[1][0] = $kernel->[0][0].'-base'; + for my $count (1..4) { + if (defined($kernel->[0][$count])) { + $kernel->[1][$count] = $kernel->[0][$count]; + } + } + } +...

...seed" libguestfs: trace: is_file = 0 libguestfs: trace: inspect_get_type "/dev/sda2" libguestfs: trace: inspect_get_type = "linux" libguestfs: trace: inspect_get_distro "/dev/sda2" libguestfs: trace: inspect_get_distro = "debian" libguestfs: trace: inspect_get_major_version "/dev/sda2" libguestfs: trace: inspect_get_major_version = 8 libguestfs: trace: mkdir_p "/usr/lib/virt-sysprep" [ 3.4] Installing firstboot script: /utilities/1041/startup.sh libguestfs: trace: mkdir_p = 0 libguestfs: trace: mkdir_p "/usr/lib/virt-sysprep/scripts&quo...