search for: v2vdie

...39,20 +579,74 @@ sub inspect_guest my $oses = inspect_operating_systems ($g, \%fses); - # Only work on single-root operating systems. + # Get list of roots, sorted. my $root_dev; - my @roots = keys %$oses; + my @roots = sort (keys %$oses); if(@roots == 0) { v2vdie __('No root device found in this operating system image.'); } - if(@roots > 1) { - v2vdie __('Multiboot operating systems are not supported by virt-v2v.'); + if (@roots == 1) { + $root_dev = $roots[0]; + } else { + # > 1 roots found. Depen...

...ith grubby, or > + # Bootloader::Tools->GetSection, but for now just do the replacement > + # if the file exists. > + my $initrd; > + ($initrd = $path) =~ s/vmlinuz/initrd/; > + if ($g->exists($initrd)) { > + return $initrd; > + } > + > + v2vdie __x('Didn\'t find initrd for kernel {path}', path => $path); > +} I would accept this, but in general I've tried to avoid heuristics. Could you make this more reliable? > +sub get_default_image > +{ > + my $self = shift; > + my ($path) = @_; > + > +...

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

...fe ASCII characters. Note that we include the $output_name +# string directly in XML so it must not contain < > &. Libvirt allows +# any character at all. Hypervisors running under libvirt (except +# libvirt-managed ones like KVM) will probably be more strict than +# this simple test. +v2vdie __x('Domain {name} contains illegal characters. Use the "-on" option to rename the guest.', + name => $output_name) + if $output_name !~ m{^[-#\$%()*+,./:;=?\@{}\[\]\^\w]+$}i; + # Check that the guest doesn't already exist on the target v2vdie __x('Domai...

...rd replacing vmlinuz. This can be confirmed with grubby, or + # Bootloader::Tools->GetSection, but for now just do the replacement + # if the file exists. + my $initrd; + ($initrd = $path) =~ s/vmlinuz/initrd/; + if ($g->exists($initrd)) { + return $initrd; + } + + v2vdie __x('Didn\'t find initrd for kernel {path}', path => $path); +} + +sub get_default_image +{ + my $self = shift; + my ($path) = @_; + + my $g = $self->{g}; + + my $default = $g->command(['/usr/bin/perl', + '-MBootloader::Tools', +...

...ove it. + $initrd =~ s/^\(hd.*\)//; + return $initrd; + } + } + + # If all else fails, use heuristics if the file exists + (($initrd = $path) =~ s/vmlinuz/initrd/) if (!defined($initrd)); + if ($g->exists($initrd)) { + return $initrd; + } + + v2vdie __x('Didn\'t find initrd for kernel {path}', path => $path); +} + +sub get_default_image +{ + my $self = shift; + my $default; + + my $g = $self->{g}; + + if ($g->exists('/sbin/grubby')) { + $default = $g->command(['grubby', '--default-...

...e of the guest target. $output_name = $source->get_name() unless defined $output_name; +if (defined($verbose)) { + logmsg NOTICE, __x('Validating guest: {output}', + output => $output_name) +} # Check that the guest doesn't already exist on the target v2vdie __x('Domain {name} already exists on the target.', @@ -593,9 +629,14 @@ v2vdie __('Guest doesn\'t define any storage devices') unless @{$meta->{disks}} > 0; # Copy source storage to target +if (defined($verbose)) { + logmsg NOTICE, __x('Copying virtual machi...

...-312,13 +312,24 @@ sub _prepare_virtio_drivers return ($block, $net); } - # We can't proceed if there are any files missing + # We can't install any drivers if the defined virtio path is missing my $virtio_guest = $config->get_transfer_path($virtio_host); - v2vdie __x('Installation failed because the following '. - 'files referenced in the configuration file are '. - 'required, but missing: {list}', - list => $virtio_host) - unless (defined($virtio_host) && $g->exists($vir...

...ools->GetSection, but for now just do the replacement > > + # if the file exists. > > + my $initrd; > > + ($initrd = $path) =~ s/vmlinuz/initrd/; > > + if ($g->exists($initrd)) { > > + return $initrd; > > + } > > + > > + v2vdie __x('Didn\'t find initrd for kernel {path}', path => $path); > > +} > > I would accept this, but in general I've tried to avoid heuristics. > Could you make this more reliable? Yes, I can change it to perl-Bootloader, but I think those are the only two options I...

...- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/lib/Sys/VirtV2V/Connection/Source.pm b/lib/Sys/VirtV2V/Connection/Source.pm index 960aff3..8cbfe25 100644 --- a/lib/Sys/VirtV2V/Connection/Source.pm +++ b/lib/Sys/VirtV2V/Connection/Source.pm @@ -167,7 +167,7 @@ sub _volume_copy v2vdie __x('Didn\'t receive full volume. Received {received} '. 'of {total} bytes.', received => $total, total => $src->get_size()) - if $src->get_format() eq "raw" && $total != $src->get_size(); + if $src...

...e os to be converted. sub inspect_guest { my $g = shift; # Get list of roots, sorted - my @roots = $g->inspect_os (); + my @roots = $g->inspect_os(); @roots = sort @roots; # Only work on single-root operating systems. @@ -390,41 +388,7 @@ sub inspect_guest v2vdie __('Multiboot operating systems are not supported.') if @roots > 1; - my $root_dev = $roots[0]; - - # Mount up the disks. - my %fses = $g->inspect_get_mountpoints ($root_dev); - my @fses = sort { length $a <=> length $b } keys %fses; - foreach (@fses) {...

...rts with (hdX,X), remove it. + $initrd =~ s/^\(hd.*\)//; + return $initrd if ($initrd =~ /^\//); + } } + # If all else fails, use heuristics if the file exists + ($initrd = $path) =~ s/vmlinuz/initrd/; + return $initrd if ($g->exists($initrd)); + v2vdie __x('Didn\'t find initrd for kernel {path}', path => $path); } +sub get_default_image +{ + my $self = shift; + my $default; + + my $g = $self->{g}; + + if ($g->exists('/sbin/grubby')) { + $default = $g->command(['grubby', '--default-...

...:GrubLegacy; -use Sys::VirtConvert::Util; +use Sys::VirtConvert::Util qw(:DEFAULT augeas_error); use File::Basename; use Locale::TextDomain 'virt-v2v'; @@ -1055,7 +1055,7 @@ sub _configure_kernel unless defined($boot_kernel); } else { v2vdie __x('Failed to find a {name} package to install', - name => "kernel_pkg.$kernel_arch"); + name => "$kernel_pkg.$kernel_arch"); } } } @@ -1512,7 +1512,7 @@ sub _install_capability...

...rts with (hdX,X), remove it. + $initrd =~ s/^\(hd.*\)//; + return $initrd if ($initrd =~ /^\//); + } } + # If all else fails, use heuristics if the file exists + ($initrd = $path) =~ s/vmlinuz/initrd/; + return $initrd if ($g->exists($initrd)); + v2vdie __x('Didn\'t find initrd for kernel {path}', path => $path); } +sub get_default_image +{ + my $self = shift; + my $default; + + my $g = $self->{g}; + + if ($g->exists('/sbin/grubby')) { + $default = $g->command(['grubby', '--default-...

In preparation for an upcoming patch which adds support for SUSE guest conversions, it makes sense to have an intermediate steps that changes the RedHat.pm converter into a more generic Linux converter. The SUSE changes will then be limited in scope to only what is required for SUSE support. This series of patches accomplishes the following: - Renames RedHat.pm to Linux.pm - Modifies Linux.pm

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 >

...s is also why it's a plain die with no translation. > > # If none of the installed kernels are appropriate, install a new one > @@ -1055,7 +1155,7 @@ sub _configure_kernel > unless defined($boot_kernel); > } else { > v2vdie __x('Failed to find a {name} package to install', > - name => "kernel_pkg.$kernel_arch"); > + name => "$kernel_pkg.$kernel_arch"); Thanks :) > @@ -1631,14 +1752,38 @@ sub _install_any > # If we...