search for: _install_rpms

...> 0); + my @missing; + if (!$self->{g}->exists($self->_transfer_path($app))) { + push(@missing, $app); + } else { + return undef if ($self->_newer_installed($app)); + } - # Install any required kernel dependencies - $self->_install_rpms(1, @deps); + my $user_arch = $kernel_arch eq 'i686' ? 'i386' : $kernel_arch; - # Inspect the rpm to work out what kernel version it contains - my $version; - my $g = $self->{g}; - foreach my $file ($g->command_lines - (["rpm", "-qlp&q...

...39;i686' ? 'i386' : $kernel_arch; + my @deps = $self->_get_deppaths(\@missing, $user_arch, @$depnames); + + # We can't proceed if there are any files missing + _die_missing(@missing) if (@missing > 0); + # Install any required kernel dependencies - $self->_install_rpms(1, $self->_get_deppaths($user_arch, @$depnames)); + $self->_install_rpms(1, @deps); # Inspect the rpm to work out what kernel version it contains my $version; @@ -514,6 +524,15 @@ sub add_kernel return $version; } +sub _die_missing +{ + # We can't proceed if ther...

...S/RedHat.pm @@ -862,6 +862,9 @@ sub remove_application $g->command(['rpm', '-e', $name]); }; die($@) if($@); + + # Make augeas reload in case the removal changed anything + $g->aug_load(); } =item get_application_owner(file) @@ -902,6 +905,9 @@ sub _install_rpms # Propagate command failure die($@) if($@); + + # Reload augeas in case the rpm installation changed anything + $g->aug_load(); } # Get full, local path of a file on the transfer mount -- 1.6.6

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

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

...>_is_installed($app)); + return undef if ($self->_newer_installed($app)); - my @install; - # Install any kernel dependencies which aren't already installed - foreach my $dep (@$deps) { - push(@install, $dep) unless($self->_is_installed($dep)); - } - $self->_install_rpms(1, @install); + my $user_arch = $kernel_arch eq 'i686' ? 'i386' : $kernel_arch; + + # Install any required kernel dependencies + $self->_install_rpms(1, $self->_get_deppaths($user_arch, @$depnames)); # Inspect the rpm to work out what kernel version it contains...

...,11 +2065,33 @@ sub _install_config 'files referenced in the configuration file are '. 'required, but missing: {list}', list => join(' ', @missing)) if scalar(@missing) > 0; - # Install any non-kernel requirements - _install_rpms($g, $config, 1, @user_paths); - if (defined($kernel)) { - _install_rpms($g, $config, 0, ($kernel)); + # If a SUSE kernel is being added, a -base kernel could have been added to + # to @user_paths (as a dep app). If so, move it to a new list containing + # both kernel and kerne...

...failed because the following '. 'files referenced in the configuration file are '. 'required, but missing: {list}', list => join(' ', @missing)) if scalar(@missing) > 0; - # Install any non-kernel requirements - _install_rpms($g, $config, 1, @user_paths); - if (defined($kernel)) { - _install_rpms($g, $config, 0, ($kernel)); + # If a SUSE kernel is being added, a -base kernel could have been added to + # to @user_paths (as a dep app). If so, move it to a new list containing + # both kernel and kerne...

...my $g = $self->{g}; + + if (!$g->exists($self->{config}->get_transfer_path($g, $path))) + { push(@$missing, $path); foreach my $deppath ($self->_get_deppaths($missing, @@ -1482,10 +1488,11 @@ sub _install_rpms # Nothing to do if we got an empty set return if(scalar(@rpms) == 0); + my $g = $self->{g}; + # All paths are relative to the transfer mount. Need to make them absolute. - @rpms = map { $_ = $self->_transfer_path($_) } @rpms; + @rpms = map { $_ = $self->{config}-&...

...th); + eval { + $kernel = $g->aug_get($path); + }; + $self->_augeas_error($@) if ($@); # Prepend the grub filesystem to the kernel path $kernel = "$grub$kernel" if(defined($grub)); @@ -521,7 +583,11 @@ sub add_kernel $self->_install_rpms(0, ($app)); # Make augeas reload so it'll find the new kernel - $g->aug_load(); + eval { + $g->aug_load(); + }; + + $self->_augeas_error($@) if ($@); return $version; } @@ -603,17 +669,15 @@ sub remove_kernel unless(defined($version));...

This patch series includes a repost of Milan's unmodified RHN support patch because I haven't pushed it yet. On top of that patch, it includes the capabilities patch in as many bits as I could make it into. The big one is 7/8. I've tested all of the following guests both with and without RHN registration: Xen RHEL 54 PV Xen RHEL 51 PV Xen RHEL 48 PV ESX RHEL 54 FV

...def if($self->_is_installed($app)); my @install; # Install any kernel dependencies which aren't already installed - foreach my $dep (@{$app->{deps}}) { + foreach my $dep (@$deps) { push(@install, $dep) unless($self->_is_installed($dep)); } $self->_install_rpms(1, @install); @@ -500,7 +509,7 @@ sub add_kernel my $version; my $g = $self->{g}; foreach my $file ($g->command_lines - (["rpm", "-qlp", $self->_transfer_path($path)])) + (["rpm", "-qlp", $self->_transfer_path($app)]))...

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 >

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

...failed because the following '. + 'files referenced in the configuration file are '. + 'required, but missing: {list}', + list => join(' ', @missing)) if scalar(@missing) > 0; + # Install any non-kernel requirements + _install_rpms($g, $config, 1, @user_paths); + + if (defined($kernel)) { + _install_rpms($g, $config, 0, (@$kernel)); + } + + return 1; +} + +# Install a set of rpms +sub _install_rpms +{ + local $_; + my ($g, $config, $update, @rpms) = @_; + + # Nothing to do if we got an empty set +...

...failed because the following '. + 'files referenced in the configuration file are '. + 'required, but missing: {list}', + list => join(' ', @missing)) if scalar(@missing) > 0; + # Install any non-kernel requirements + _install_rpms($g, $config, 1, @user_paths); + + if (defined($kernel)) { + _install_rpms($g, $config, 0, (@$kernel)); + } + + return 1; +} + +# Install a set of rpms +sub _install_rpms +{ + local $_; + my ($g, $config, $upgrade, @rpms) = @_; + + # Nothing to do if we got an empty set +...

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

These 2 patches are mostly code motion. They were prompted by an apparent augeas error in BZ 613967 which didn't display useful error message. The error seems to happen in Converter::Linux. GuestOS::RedHat had a handy function which displayed verbose augeas error messages. This function moves into the new module where it can be used by both modules. The second patch is an consequential tidy

..._net_run($g, sub { > + eval { > + # Try to fetch these dependencies using the guest's native update > + # tool > + $success = _install_zypper($kernel, $install, $update, $g); Obvious RedHat.pm diff. > +# Install a set of rpms > +sub _install_rpms > +{ > + local $_; > + my ($g, $config, $update, @rpms) = @_; > + > + # Nothing to do if we got an empty set > + return if(scalar(@rpms) == 0); > + > + # All paths are relative to the transfer mount. Need to make them absolute. > + # No need to check get...