search for: _get_nevra

...(); foreach my $installed (@output) { $installed =~ /^(\S+)\s+(\S+)\s+(\S+)$/ or die("Unexpected return from rpm command: $installed"); @@ -779,7 +779,8 @@ sub _get_deppaths my ($name, undef, undef, undef, $arch) = $self->_get_nevra($path); - if ($self->_get_installed($name, $arch) > 0) { + my @installed = $self->_get_installed($name, $arch); + if (@installed > 0) { $required{$path} = 1; foreach my $deppath ($self->_get_de...

...0,33 @@ sub _get_deppaths ($path, $deps) = $config->match_app($desc, $app, 'i386'); }; - if (defined($path) && !$self->_newer_installed($path)) { - my ($name, undef, undef, undef, $arch) = - $self->_get_nevra($path); + if (defined($path)) { + if (!$self->{g}->exists($self->_transfer_path($path))) { + push(@$missing, $path); - my @installed = $self->_get_installed($name, $arch); - if (@installed > 0) { -...

...push(@install, $dep) unless ($self->_is_installed($dep)); - } + push(@install, $self->_get_deppaths($user_arch, @$deps)); $self->_install_rpms(1, @install); } - -# Return 1 if the requested rpm, or a newer version, is installed -# Return 0 otherwise -sub _is_installed +sub _get_nevra { my $self = shift; my ($rpm) = @_; @@ -657,8 +651,15 @@ sub _is_installed # Ensure epoch is always numeric $epoch = 0 if('(none)' eq $epoch); - # Search installed rpms matching <name>.<arch> - my $found = 0; + return ($name, $epoch, $version, $re...

...my @missing; - if (defined($kernel) && !$g->exists($self->_transfer_path($kernel))) { + if (defined($kernel) && + !$g->exists($self->{config}->get_transfer_path($g, $kernel))) + { push(@missing, $kernel); } @@ -1167,7 +1169,7 @@ sub _get_nevra my $g = $self->{g}; - $rpm = $self->_transfer_path($rpm); + $rpm = $self->{config}->get_transfer_path($g, $rpm); # Get NEVRA for the rpm to be installed my $nevra = $g->command(['rpm', '-qp', '--qf', @@ -1292,7 +1294,8 @@ sub _get_de...

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

...d{$deppath} = 1; + } + } + + } + + return keys(%required); +} + +# Return 1 if the requested rpm, or a newer version, is installed +# Return 0 otherwise +sub _newer_installed +{ + my ($rpm, $g, $config) = @_; + + my ($name, $epoch, $version, $release, $arch) = + _get_nevra($rpm, $g, $config); + + my @installed = _get_installed("$name.$arch", $g); + + # Search installed rpms matching <name>.<arch> + foreach my $pkg (@installed) { + next if _evr_cmp($pkg->[0], $pkg->[1], $pkg->[2], + $epoch, $versio...

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

...+ } + } + } + } + + return keys(%required); +} + +# Return 1 if the requested rpm, or a newer version, is installed +# Return 0 otherwise +sub _newer_installed +{ + my ($rpm, $g, $config) = @_; + + my ($name, $epoch, $version, $release, $arch) = + _get_nevra($rpm, $g, $config); + + my @installed = _get_installed("$name.$arch", $g); + + # Search installed rpms matching <name>.<arch> + foreach my $pkg (@installed) { + next if _evr_cmp($pkg->[0], $pkg->[1], $pkg->[2], + $epoch, $versio...

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