search for: match_app

..._viostor my $devices = shift; my $config = shift; - my $driverpath = "/windows/system32/drivers"; - $driverpath = $g->case_sensitive_path ($driverpath); + # Check we have all required files + my @missing; + my %files; - my ($app, $depnames) = $config->match_app ($desc, "viostor", $desc->{arch}); - $app = $config->get_transfer_path ($g, $app); - $g->cp ($app, $driverpath); -} + for my $file ("viostor", "firstboot", "firstbootapp", "rhsrvany") { + my ($path) = $config->match_app (...

...my ($app, $depnames); - eval { + my $version; + + # systemid exists, assume the system is registered w/ RHN + if ($self->{g}->exists('/etc/sysconfig/rhn/systemid')) { my $desc = $self->{desc}; - ($app, $depnames) = - $self->{config}->match_app($desc, $kernel_pkg, $kernel_arch); - }; - # Return undef if we didn't find a kernel - if ($@) { - print STDERR $@; - return undef; - } + my ($min_virtio_ver, @kern_vr, @preinst_cmd, @inst_cmd, $inst_fmt); - my @missing; - if (!$self->{g}->exists($s...

...sc, name, arch) - -Return a string describing what v2v is looking for in the config file. The -string is intended to be presented to the user to help improve the configuration -file. - -=cut - -sub get_app_search +sub _get_app_search { my ($desc, $name, $arch) = @_; @@ -216,6 +213,10 @@ sub match_app my $dom = $self->{dom}; + die(user_message(__x("No config specified. No app match for {search}", + search => _get_app_search($desc, $name, $arch)))) + unless (defined($dom)); + my $distro = $desc->{distro}; my $major = $desc-&...

...estOS/RedHat.pm | 83 +++++++++++++++++++++++++++++-------- 2 files changed, 65 insertions(+), 27 deletions(-) diff --git a/lib/Sys/VirtV2V/Config.pm b/lib/Sys/VirtV2V/Config.pm index 5aa9917..3fff455 100644 --- a/lib/Sys/VirtV2V/Config.pm +++ b/lib/Sys/VirtV2V/Config.pm @@ -258,15 +258,6 @@ sub match_app xml => $app->toString()))) unless (defined($path)); $path = $path->getData(); - my ($pathroot) = $dom->findnodes('/virt-v2v/path-root/text()'); - my $abs = defined($pathroot) ? $pathroot->getData()."/$path" : $path; - - die(...

...,12 @@ sub _upload_viostor my $desc = shift; my $devices = shift; my $config = shift; - my $transfer_mount = shift; my $driverpath = "/windows/system32/drivers"; $driverpath = $g->case_sensitive_path ($driverpath); my ($app, $depnames) = $config->match_app ($desc, "viostor", $desc->{arch}); - $app = _transfer_path ($transfer_mount, $app); + $app = $config->get_transfer_path ($g, $app); $g->cp ($app, $driverpath); } @@ -380,36 +366,26 @@ sub _upload_service my $desc = shift; my $devices = shift; my $conf...

...in 'virt-v2v'; + +=pod + +=head1 NAME + +Sys::VirtV2V::Config - Manage virt-v2v's configuration file + +=head1 SYNOPSIS + + use Sys::VirtV2V::Config; + + $eh = Sys::VirtV2V::Config->new($config_path); + + my $isopath = $config->get_transfer_iso(); + my ($path, $deps) = $config->match_app($desc, $name, $arch); + my ($name, $type) = $config->map_network($oldname, $oldtype); + +=head1 DESCRIPTION + +Sys::VirtV2V::Config parses and queries the virt-v2v config file. + +=head1 METHODS + +=over + +=item new(path) + +Create a new Sys::VirtV2V::Config object to operate on the config file...

...@ -462,7 +462,7 @@ sub add_kernel } } - my ($app, $deps); + my ($app, $depnames); eval { my $desc = $self->{desc}; @@ -475,7 +475,8 @@ sub add_kernel search => $search))); } - ($app, $deps) = $config->match_app($desc, $kernel_pkg, $kernel_arch); + ($app, $depnames) = + $config->match_app($desc, $kernel_pkg, $kernel_arch); }; # Return undef if we didn't find a kernel if ($@) { @@ -483,14 +484,12 @@ sub add_kernel return undef; } - return undef if($...

...ift; + my $devices = shift; + my $config = shift; + + # Copy the target VirtIO drivers to the guest + my $driverdir = File::Spec->catdir($g->case_sensitive_path("/windows"), "Drivers/VirtIO"); + + $g->mkdir_p($driverdir); + + my ($virtio) = $config->match_app ($desc, 'virtio', $desc->{arch}); + $virtio = $config->get_transfer_path($g, $virtio); + + foreach my $src ($g->ls($virtio)) { + my $name = $src; + $src = File::Spec->catfile($virtio); + my $dst = File::Spec->catfile($driverdir, $name); + $g-...

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

...$g = shift; + my $tmpdir = shift; + my $vmm = shift; + my $desc = shift; + my $devices = shift; + my $config = shift; + + my $driverpath = "/windows/system32/drivers"; + $driverpath = $g->case_sensitive_path ($driverpath); + + my ($app, $depnames) = $config->match_app ($desc, "viostor", $desc->{arch}); + $app = $self->_transfer_path ($app); + $g->cp ($app, $driverpath); +} + +sub _upload_service +{ + my $self = shift; + my $g = shift; + my $tmpdir = shift; + my $vmm = shift; + my $desc = shift; + my $devices = shift; +...

...($path); + + if ($path_st->mtime > $iso_st->mtime) { + $rebuild = 1; + last; + } + } + + return $iso_path if (!$rebuild); + } } # Re-create the transfer iso @@ -247,6 +257,15 @@ sub match_app xml => $app->toString()))) unless (defined($path)); $path = $path->getData(); + my ($pathroot) = $dom->findnodes('/virt-v2v/path-root/text()'); + my $abs = defined($pathroot) ? $pathroot->getData()."/$path" : $path; + + die(...

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

This patch allows paths in virt-v2v.conf to be either relative or absolute. If relative, they are relative to software-root. This allows virt-v2v.conf to use files provided by packages independent of virt-v2v. --- lib/Sys/VirtV2V/Config.pm | 10 ++++++---- 1 files changed, 6 insertions(+), 4 deletions(-) diff --git a/lib/Sys/VirtV2V/Config.pm b/lib/Sys/VirtV2V/Config.pm index f703152..121e774

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

...fig) = @_; + + my ($kernel, $user); + if (defined($kernel_naevr)) { + foreach my $kernel_entry (@$kernel_naevr) { + my ($kernel_pkg, $kernel_arch) = @$kernel_entry; + my ($tmp_kernel, $tmp_user); + ($tmp_kernel, $tmp_user) = + $config->match_app($g, $root, $kernel_pkg, $kernel_arch); + push(@$kernel, $tmp_kernel); + foreach my $tmp_app (@$tmp_user) { + if (defined($tmp_app)) { + push(@$user, $tmp_app); + } + } + } + } else { + $user = []; +...

...fig) = @_; + + my ($kernel, $user); + if (defined($kernel_naevr)) { + foreach my $kernel_entry (@$kernel_naevr) { + my ($kernel_pkg, $kernel_arch) = @$kernel_entry; + my ($tmp_kernel, $tmp_user); + ($tmp_kernel, $tmp_user) = + $config->match_app($g, $root, $kernel_pkg, $kernel_arch); + push(@$kernel, $tmp_kernel); + foreach my $tmp_app (@$tmp_user) { + if (defined($tmp_app)) { + push(@$user, $tmp_app); + } + } + } + } else { + $user = []; +...

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