Matthew Booth
2009-Dec-21 17:56 UTC
[Libguestfs] Refactor virt-v2v to be more like a 'big script'
These patches combine HVSource and HVTarget into a single Converter. This should make it more obvious where to hack without losing any practical flexibility. GuestOS remains separate. GuestOS is now a misnomer, because it's really only a Linux distro abstraction. It will be useless for Windows, for example. Functions which you'd expect to be different on a non-RH distro should live in GuestOS. By this measure it's currently too fat. I'll gradually move non-distro specific things out of it as I touch them. Matt
This is in preparation for a merge of HVSource and HVTarget.
---
MANIFEST | 4 +-
lib/Sys/VirtV2V.pm | 2 +-
lib/Sys/VirtV2V/{HVTarget.pm => Converter.pm} | 44
+++++++++++-----------
lib/Sys/VirtV2V/{HVTarget => Converter}/Linux.pm | 34 ++++++++--------
lib/Sys/VirtV2V/HVSource.pm | 2 +-
v2v/virt-v2v.pl | 4 +-
6 files changed, 45 insertions(+), 45 deletions(-)
rename lib/Sys/VirtV2V/{HVTarget.pm => Converter.pm} (65%)
rename lib/Sys/VirtV2V/{HVTarget => Converter}/Linux.pm (95%)
diff --git a/MANIFEST b/MANIFEST
index 3489ff1..8710a84 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -8,8 +8,8 @@ lib/Sys/VirtV2V/GuestOS.pm
lib/Sys/VirtV2V/GuestOS/RedHat.pm
lib/Sys/VirtV2V/HVSource.pm
lib/Sys/VirtV2V/HVSource/Xen/Linux.pm
-lib/Sys/VirtV2V/HVTarget.pm
-lib/Sys/VirtV2V/HVTarget/Linux.pm
+lib/Sys/VirtV2V/Converter.pm
+lib/Sys/VirtV2V/Converter/Linux.pm
lib/Sys/VirtV2V/MetadataReader.pm
lib/Sys/VirtV2V/MetadataReader/LibVirt.pm
lib/Sys/VirtV2V/MetadataReader/LibVirtXML.pm
diff --git a/lib/Sys/VirtV2V.pm b/lib/Sys/VirtV2V.pm
index 50f16d0..a8731af 100644
--- a/lib/Sys/VirtV2V.pm
+++ b/lib/Sys/VirtV2V.pm
@@ -63,7 +63,7 @@ L<virt-v2v(1)>,
L<v2v-snapshot(1)>,
L<Sys::VirtV2V::GuestOS(3pm)>,
L<Sys::VirtV2V::HVSource(3pm)>,
-L<Sys::VirtV2V::HVTarget(3pm)>,
+L<Sys::VirtV2V::Converter(3pm)>,
L<Sys::VirtV2V::MetadataReader(3pm)>,
L<http://libguestfs.org/>
diff --git a/lib/Sys/VirtV2V/HVTarget.pm b/lib/Sys/VirtV2V/Converter.pm
similarity index 65%
rename from lib/Sys/VirtV2V/HVTarget.pm
rename to lib/Sys/VirtV2V/Converter.pm
index dfb6396..e78e940 100644
--- a/lib/Sys/VirtV2V/HVTarget.pm
+++ b/lib/Sys/VirtV2V/Converter.pm
@@ -1,4 +1,4 @@
-# Sys::VirtV2V::HVTarget
+# Sys::VirtV2V::Converter
# Copyright (C) 2009 Red Hat Inc.
#
# This library is free software; you can redistribute it and/or
@@ -15,13 +15,13 @@
# License along with this library; if not, write to the Free Software
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
-package Sys::VirtV2V::HVTarget;
+package Sys::VirtV2V::Converter;
use strict;
use warnings;
use Module::Pluggable sub_name => 'modules',
- search_path => ['Sys::VirtV2V::HVTarget'],
+ search_path => ['Sys::VirtV2V::Converter'],
require => 1;
use Locale::TextDomain 'virt-v2v';
@@ -30,28 +30,28 @@ use Locale::TextDomain 'virt-v2v';
=head1 NAME
-Sys::VirtV2V::HVTarget - Configure a guest to run on KVM
+Sys::VirtV2V::Converter - Convert a guest to run on KVM
=head1 SYNOPSIS
use Sys::VirtV2V::GuestOS;
- use Sys::VirtV2V::HVTarget;
+ use Sys::VirtV2V::Converter;
my $guestos = Sys::VirtV2V::GuestOS->instantiate($g, $os);
- Sys::VirtV2V::HVTarget->configure($vmm, $guestos, $dom, $os);
+ Sys::VirtV2V::Converter->convert($vmm, $guestos, $dom, $os);
=head1 DESCRIPTION
-Sys::VirtV2V::HVTarget instantiates an appropriate backend for the target guest
-OS, and uses it to configure the guest to run on KVM.
+Sys::VirtV2V::Converter instantiates an appropriate backend for the target
guest
+OS, and uses it to convert the guest to run on KVM.
=head1 METHODS
=over
-=item Sys::VirtV2V::HVTarget->configure(vmm, guestos, dom, desc)
+=item Sys::VirtV2V::Converter->convert(vmm, guestos, dom, desc)
-Instantiate an appropriate backend and call configure on it.
+Instantiate an appropriate backend and call convert on it.
=over
@@ -75,25 +75,25 @@ The OS description returned by Sys::Guestfs::Lib.
=cut
-sub configure
+sub convert
{
my $class = shift;
my ($vmm, $guestos, $dom, $desc) = @_;
- carp("configure called without vmm argument") unless
defined($vmm);
- carp("configure called without guestos argument") unless
defined($guestos);
- carp("configure called without dom argument") unless
defined($dom);
- carp("configure called without desc argument") unless
defined($desc);
+ carp("convert called without vmm argument") unless defined($vmm);
+ carp("convert called without guestos argument") unless
defined($guestos);
+ carp("convert called without dom argument") unless defined($dom);
+ carp("convert called without desc argument") unless
defined($desc);
- # Find a module which can configure this guest and run it
+ # Find a module which can convert this guest and run it
foreach my $module ($class->modules()) {
if($module->can_handle($desc)) {
- $module->configure($vmm, $guestos, $dom, $desc);
+ $module->convert($vmm, $guestos, $dom, $desc);
return;
}
}
- die(__"Unable to find a module to configure this guest");
+ die(__"Unable to find a module to convert this guest");
}
=back
@@ -114,11 +114,11 @@ An OS description as returned by Sys::Guestfs::Lib.
=back
-=item CLASS->configure(vmm, guestos, dom, desc)
+=item CLASS->convert(vmm, guestos, dom, desc)
-Configure the target guest to run on KVM.
+Convert the target guest to run on KVM.
-can_handle() must have been checked prior to running configure().
+can_handle() must have been checked prior to running convert().
=over
@@ -152,7 +152,7 @@ Please see the file COPYING.LIB for the full license.
=head1 SEE ALSO
-L<Sys::VirtV2V::HVTarget::Linux(3pm)>,
+L<Sys::VirtV2V::Converter::Linux(3pm)>,
L<Sys::VirtV2V::GuestOS(3pm)>,
L<Sys::Guestfs::Lib(3pm)>,
L<Sys::Virt(3pm)>,
diff --git a/lib/Sys/VirtV2V/HVTarget/Linux.pm
b/lib/Sys/VirtV2V/Converter/Linux.pm
similarity index 95%
rename from lib/Sys/VirtV2V/HVTarget/Linux.pm
rename to lib/Sys/VirtV2V/Converter/Linux.pm
index dc546de..070c4f3 100644
--- a/lib/Sys/VirtV2V/HVTarget/Linux.pm
+++ b/lib/Sys/VirtV2V/Converter/Linux.pm
@@ -1,4 +1,4 @@
-# Sys::VirtV2V::HVTarget::Linux
+# Sys::VirtV2V::Converter::Linux
# Copyright (C) 2009 Red Hat Inc.
#
# This library is free software; you can redistribute it and/or
@@ -15,7 +15,7 @@
# License along with this library; if not, write to the Free Software
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
-package Sys::VirtV2V::HVTarget::Linux;
+package Sys::VirtV2V::Converter::Linux;
use strict;
use warnings;
@@ -35,20 +35,20 @@ use Carp;
=head1 NAME
-Sys::VirtV2V::HVTarget::Linux - Configure a Linux guest to run on KVM
+Sys::VirtV2V::Converter::Linux - Convert a Linux guest to run on KVM
=head1 SYNOPSIS
use Sys::VirtV2V::GuestOS;
- use Sys::VirtV2V::HVTarget;
+ use Sys::VirtV2V::Converter;
my $guestos = Sys::VirtV2V::GuestOS->instantiate($g, $os);
- Sys::VirtV2V::HVTarget->configure($vmm, $guestos, $dom, $os);
+ Sys::VirtV2V::Converter->convert($vmm, $guestos, $dom, $os);
=head1 DESCRIPTION
-Sys::VirtV2V::HVTarget::Linux configures a Linux guest to use KVM. It is an
-implementation of the Sys::VirtV2V::HVTarget interface.
+Sys::VirtV2V::Converter::Linux convert a Linux guest to use KVM. It is an
+implementation of the Sys::VirtV2V::Converter interface.
=head1 METHODS
@@ -95,9 +95,9 @@ use constant KVM_XML_NOVIRTIO => "
</domain>
";
-=item Sys::VirtV2V::HVTarget::Linux->can_handle(desc)
+=item Sys::VirtV2V::Converter::Linux->can_handle(desc)
-See BACKEND INTERFACE in L<Sys::VirtV2V::HVTarget> for details.
+See BACKEND INTERFACE in L<Sys::VirtV2V::Converter> for details.
=cut
@@ -111,21 +111,21 @@ sub can_handle
return ($desc->{os} eq 'linux');
}
-=item Sys::VirtV2V::HVTarget::Linux->configure(vmm, guestos, dom, desc)
+=item Sys::VirtV2V::Converter::Linux->convert(vmm, guestos, dom, desc)
-See BACKEND INTERFACE in L<Sys::VirtV2V::HVTarget> for details.
+See BACKEND INTERFACE in L<Sys::VirtV2V::Converter> for details.
=cut
-sub configure
+sub convert
{
my $class = shift;
my ($vmm, $guestos, $dom, $desc) = @_;
- carp("configure called without vmm argument") unless
defined($vmm);
- carp("configure called without guestos argument") unless
defined($guestos);
- carp("configure called without dom argument") unless
defined($dom);
- carp("configure called without desc argument") unless
defined($desc);
+ carp("convert called without vmm argument") unless defined($vmm);
+ carp("convert called without guestos argument") unless
defined($guestos);
+ carp("convert called without dom argument") unless defined($dom);
+ carp("convert called without desc argument") unless
defined($desc);
# Un-configure HV specific attributes which don't require a direct
# replacement
@@ -645,7 +645,7 @@ Please see the file COPYING.LIB for the full license.
=head1 SEE ALSO
-L<Sys::VirtV2V::HVTarget(3pm)>,
+L<Sys::VirtV2V::Converter(3pm)>,
L<Sys::VirtV2V(3pm)>,
L<virt-v2v(1)>,
L<http://libguestfs.org/>.
diff --git a/lib/Sys/VirtV2V/HVSource.pm b/lib/Sys/VirtV2V/HVSource.pm
index a9e4602..621d54b 100644
--- a/lib/Sys/VirtV2V/HVSource.pm
+++ b/lib/Sys/VirtV2V/HVSource.pm
@@ -45,7 +45,7 @@ Sys::VirtV2V::HVSource - Discover source hypervisor artifacts
in a guest
Sys::VirtV2V::HVSource provides a mechanism for identifying properties of a
guest operating system which relate specifically to a particular hypervisor. It
-is used by a Sys::VirtV2V::HVTarget when reconfiguring the guest.
+is used by a Sys::VirtV2V::Converter when reconfiguring the guest.
A call to any of these methods will call, and aggregate if relevant, all
implemented Sys::VirtV2V::HVSource backends.
diff --git a/v2v/virt-v2v.pl b/v2v/virt-v2v.pl
index a0f7843..9eee590 100755
--- a/v2v/virt-v2v.pl
+++ b/v2v/virt-v2v.pl
@@ -32,7 +32,7 @@ use Sys::Guestfs::Lib qw(open_guest get_partitions
inspect_all_partitions
use Sys::VirtV2V;
use Sys::VirtV2V::GuestOS;
-use Sys::VirtV2V::HVTarget;
+use Sys::VirtV2V::Converter;
use Sys::VirtV2V::MetadataReader;
use Sys::VirtV2V::UserMessage qw(user_message);
@@ -240,7 +240,7 @@ my $os = inspect_guest($g);
my $guestos = Sys::VirtV2V::GuestOS->instantiate($g, $os);
# Modify the guest and its metadata for the target hypervisor
-Sys::VirtV2V::HVTarget->configure($vmm, $guestos, $dom, $os);
+Sys::VirtV2V::Converter->convert($vmm, $guestos, $dom, $os);
$g->umount_all();
$g->sync();
--
1.6.5.2
Matthew Booth
2009-Dec-21 17:56 UTC
[Libguestfs] [PATCH 2/3] po: Update translations for HVTarget -> Converter rename
---
po/POTFILES.in | 4 ++--
po/es.po | 18 +++++++++---------
po/fr.po | 18 +++++++++---------
po/it.po | 18 +++++++++---------
po/pl.po | 18 +++++++++---------
po/ru.po | 18 +++++++++---------
po/virt-v2v.pot | 18 +++++++++---------
po/zh_CN.po | 18 +++++++++---------
8 files changed, 65 insertions(+), 65 deletions(-)
diff --git a/po/POTFILES.in b/po/POTFILES.in
index 7a91db0..40331c8 100644
--- a/po/POTFILES.in
+++ b/po/POTFILES.in
@@ -2,8 +2,8 @@
../lib/Sys/VirtV2V/GuestOS/RedHat.pm
../lib/Sys/VirtV2V/HVSource.pm
../lib/Sys/VirtV2V/HVSource/Xen/Linux.pm
-../lib/Sys/VirtV2V/HVTarget/Linux.pm
-../lib/Sys/VirtV2V/HVTarget.pm
+../lib/Sys/VirtV2V/Converter/Linux.pm
+../lib/Sys/VirtV2V/Converter.pm
../lib/Sys/VirtV2V/MetadataReader/LibVirt.pm
../lib/Sys/VirtV2V/MetadataReader/LibVirtXML.pm
../lib/Sys/VirtV2V/MetadataReader.pm
diff --git a/po/es.po b/po/es.po
index e3fd29d..4ca3dcc 100644
--- a/po/es.po
+++ b/po/es.po
@@ -120,17 +120,17 @@ msgstr ""
msgid "Unable to open /etc/rc.local: {error}"
msgstr "No es posible abrir /etc/rc.local: {error}"
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:154
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:154
#, perl-brace-format
msgid "{name} configured with virtio drivers"
msgstr "{name} configurado con controladores virtio"
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:157
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:157
#, perl-brace-format
msgid "{name} configured without virtio drivers"
msgstr "{name} configurado sin controladores virtio"
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:255
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:255
#, perl-brace-format
msgid ""
"WARNING: Don't know how to update {module}, which loads the
{modulename} "
@@ -139,7 +139,7 @@ msgstr ""
"ADVERTENCIA: No se sabe c??mo actualizar {module}, encargado de cargar el
"
"m??dulo {modulename}. "
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:340
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:340
msgid ""
"No bootable kernels installed, and no replacement specified in "
"configuration.\n"
@@ -149,7 +149,7 @@ msgstr ""
"remplazo en la configuraci??n.\n"
"No es posible continuar."
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:469
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:469
#, perl-brace-format
msgid ""
"WARNING: No replacement found for {xpath} in domain XML. The node was
"
@@ -158,22 +158,22 @@ msgstr ""
"ADVERTENCIA: No se ha encontrado un reemplazo para {xpath} en el dominio
"
"XML. El nodo ha sido eliminado."
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:520
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:520
#, perl-brace-format
msgid "The connected hypervisor does not support a {arch} kvm guest"
msgstr "El hipervisor conectado no tiene soporte para un hu??sped KVM
{arch}"
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:551
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:551
#, perl-brace-format
msgid "The connected hypervisor does not support a machine type of
{machine}."
msgstr "El hipervisor conectado no tiene soporte para una m??quina del
tipo {machine}."
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:570
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:570
#, perl-brace-format
msgid "The connected hypervisor does not support feature {feature}"
msgstr "El hipervisor conectado no soporta la caracter??stica
{feature}"
-#: ../lib/Sys/VirtV2V/HVTarget.pm:96
+#: ../lib/Sys/VirtV2V/Converter.pm:96
msgid "Unable to find a module to configure this guest"
msgstr "No es posible encontrar un m??dulo para configurar este
hu??sped"
diff --git a/po/fr.po b/po/fr.po
index 0ac740f..d95a3c0 100644
--- a/po/fr.po
+++ b/po/fr.po
@@ -109,53 +109,53 @@ msgstr ""
msgid "Unable to open /etc/rc.local: {error}"
msgstr ""
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:154
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:154
#, perl-brace-format
msgid "{name} configured with virtio drivers"
msgstr ""
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:157
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:157
#, perl-brace-format
msgid "{name} configured without virtio drivers"
msgstr ""
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:255
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:255
#, perl-brace-format
msgid ""
"WARNING: Don't know how to update {module}, which loads the
{modulename} "
"module."
msgstr ""
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:340
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:340
msgid ""
"No bootable kernels installed, and no replacement specified in "
"configuration.\n"
"Unable to continue."
msgstr ""
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:469
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:469
#, perl-brace-format
msgid ""
"WARNING: No replacement found for {xpath} in domain XML. The node was
"
"removed."
msgstr ""
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:520
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:520
#, perl-brace-format
msgid "The connected hypervisor does not support a {arch} kvm guest"
msgstr ""
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:551
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:551
#, perl-brace-format
msgid "The connected hypervisor does not support a machine type of
{machine}."
msgstr ""
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:570
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:570
#, perl-brace-format
msgid "The connected hypervisor does not support feature {feature}"
msgstr ""
-#: ../lib/Sys/VirtV2V/HVTarget.pm:96
+#: ../lib/Sys/VirtV2V/Converter.pm:96
msgid "Unable to find a module to configure this guest"
msgstr ""
diff --git a/po/it.po b/po/it.po
index fc5e52a..2324fe3 100644
--- a/po/it.po
+++ b/po/it.po
@@ -117,17 +117,17 @@ msgstr ""
msgid "Unable to open /etc/rc.local: {error}"
msgstr "Impossibile aprire /etc/rc.local: {error}"
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:154
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:154
#, perl-brace-format
msgid "{name} configured with virtio drivers"
msgstr "{name} configurato con driver virtio"
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:157
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:157
#, perl-brace-format
msgid "{name} configured without virtio drivers"
msgstr "{name} configurato senza driver virtio"
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:255
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:255
#, perl-brace-format
msgid ""
"WARNING: Don't know how to update {module}, which loads the
{modulename} "
@@ -136,7 +136,7 @@ msgstr ""
"ATTENZIONE: impossibile determinare come aggiornare {module}, che esegue
il "
"caricamento del modulo {modulename}."
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:340
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:340
msgid ""
"No bootable kernels installed, and no replacement specified in "
"configuration.\n"
@@ -146,7 +146,7 @@ msgstr ""
"configurazione.\n"
"Impossibile continuare."
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:469
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:469
#, perl-brace-format
msgid ""
"WARNING: No replacement found for {xpath} in domain XML. The node was
"
@@ -155,22 +155,22 @@ msgstr ""
"ATTENZIONE: nessuna sostituzione trovata per {xpath} nell'XML del
dominio. "
"Questo nodo ?? stato eliminato."
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:520
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:520
#, perl-brace-format
msgid "The connected hypervisor does not support a {arch} kvm guest"
msgstr "L'hypervisor connesso non supporta ospiti kvm con architetura
{arch}"
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:551
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:551
#, perl-brace-format
msgid "The connected hypervisor does not support a machine type of
{machine}."
msgstr "L'hypervisor connesso non supporta macchine di tipo
{machine}."
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:570
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:570
#, perl-brace-format
msgid "The connected hypervisor does not support feature {feature}"
msgstr "L'hypervisor connesso non supporta la funzione {feature}"
-#: ../lib/Sys/VirtV2V/HVTarget.pm:96
+#: ../lib/Sys/VirtV2V/Converter.pm:96
msgid "Unable to find a module to configure this guest"
msgstr "Impossibile trovare un modulo per la configurazione
dell'ospite"
diff --git a/po/pl.po b/po/pl.po
index da5031f..8e06175 100644
--- a/po/pl.po
+++ b/po/pl.po
@@ -110,17 +110,17 @@ msgstr ""
msgid "Unable to open /etc/rc.local: {error}"
msgstr "Nie mo??na otworzy?? /etc/rc.local: {error}"
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:154
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:154
#, perl-brace-format
msgid "{name} configured with virtio drivers"
msgstr "{name} jest skonfigurowane ze sterownikami virtio"
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:157
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:157
#, perl-brace-format
msgid "{name} configured without virtio drivers"
msgstr "{name} jest skonfigurowane bez sterownik??w virtio"
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:255
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:255
#, perl-brace-format
msgid ""
"WARNING: Don't know how to update {module}, which loads the
{modulename} "
@@ -129,7 +129,7 @@ msgstr ""
"OSTRZE??ENIE: nie wiadomo, jak zaktualizowa?? {module}, kt??ry wczytuje
modu?? "
"{modulename}"
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:340
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:340
msgid ""
"No bootable kernels installed, and no replacement specified in "
"configuration.\n"
@@ -139,7 +139,7 @@ msgstr ""
"konfiguracji.\n"
"Nie mo??na kontynuowa??."
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:469
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:469
#, perl-brace-format
msgid ""
"WARNING: No replacement found for {xpath} in domain XML. The node was
"
@@ -148,22 +148,22 @@ msgstr ""
"OSTRZE??ENIE: nie odnaleziono zamiennika dla {xpath} w domenie XML.
W??ze?? "
"zosta?? usuni??ty."
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:520
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:520
#, perl-brace-format
msgid "The connected hypervisor does not support a {arch} kvm guest"
msgstr "Po????czony nadzorca nie obs??uguje go??cia KVM {arch}"
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:551
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:551
#, perl-brace-format
msgid "The connected hypervisor does not support a machine type of
{machine}."
msgstr "Po????czony nadzorca nie obs??uguje typu komputera
{machine}."
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:570
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:570
#, perl-brace-format
msgid "The connected hypervisor does not support feature {feature}"
msgstr "Po????czony nadzorca nie obs??uguje funkcji {feature}"
-#: ../lib/Sys/VirtV2V/HVTarget.pm:96
+#: ../lib/Sys/VirtV2V/Converter.pm:96
msgid "Unable to find a module to configure this guest"
msgstr "Nie mo??na odnale???? modu??u do skonfigurowania tego
go??cia"
diff --git a/po/ru.po b/po/ru.po
index b358c2d..436160a 100644
--- a/po/ru.po
+++ b/po/ru.po
@@ -113,17 +113,17 @@ msgstr "????????????????: ?????? ??????????????????
initrd ?? grub ?????? ??????
msgid "Unable to open /etc/rc.local: {error}"
msgstr "???? ?????????????? ?????????????? /etc/rc.local: {error}"
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:154
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:154
#, perl-brace-format
msgid "{name} configured with virtio drivers"
msgstr "{name} ???????????????? ?? ???????????????????? virtio"
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:157
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:157
#, perl-brace-format
msgid "{name} configured without virtio drivers"
msgstr "{name} ???????????????? ?????? ?????????????????? virtio"
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:255
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:255
#, perl-brace-format
msgid ""
"WARNING: Don't know how to update {module}, which loads the
{modulename} "
@@ -132,7 +132,7 @@ msgstr ""
"????????????????: ????????????????????, ?????? ???????????????? {module},
?????????????? ?????????????????? ???????????? "
"{modulename}."
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:340
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:340
msgid ""
"No bootable kernels installed, and no replacement specified in "
"configuration.\n"
@@ -141,29 +141,29 @@ msgstr ""
"???? ?????????????????????? ?????????????????????? ???????? ?? ??
???????????????????? ???? ???????????????????? ????????????.\n"
"?????????????????????? ????????????????????."
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:469
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:469
#, perl-brace-format
msgid ""
"WARNING: No replacement found for {xpath} in domain XML. The node was
"
"removed."
msgstr "????????????????: ???? ?????????????? ???????????? {xpath} ?? XML
????????????. ???????? ?????? ????????????."
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:520
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:520
#, perl-brace-format
msgid "The connected hypervisor does not support a {arch} kvm guest"
msgstr "???????????????????????? ???????????????????? ????
???????????????????????? KVM-???????????? {arch}"
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:551
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:551
#, perl-brace-format
msgid "The connected hypervisor does not support a machine type of
{machine}."
msgstr "???????????????????????? ???????????????????? ????
???????????????????????? ?????? ?????????? {machine}."
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:570
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:570
#, perl-brace-format
msgid "The connected hypervisor does not support feature {feature}"
msgstr "???????????????????????? ???????????????????? ????
???????????????????????? ?????????????????????? {feature}"
-#: ../lib/Sys/VirtV2V/HVTarget.pm:96
+#: ../lib/Sys/VirtV2V/Converter.pm:96
msgid "Unable to find a module to configure this guest"
msgstr "???? ???????????? ???????????? ?????? ??????????????????
?????????? ??????????"
diff --git a/po/virt-v2v.pot b/po/virt-v2v.pot
index 0ac740f..d95a3c0 100644
--- a/po/virt-v2v.pot
+++ b/po/virt-v2v.pot
@@ -109,53 +109,53 @@ msgstr ""
msgid "Unable to open /etc/rc.local: {error}"
msgstr ""
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:154
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:154
#, perl-brace-format
msgid "{name} configured with virtio drivers"
msgstr ""
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:157
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:157
#, perl-brace-format
msgid "{name} configured without virtio drivers"
msgstr ""
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:255
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:255
#, perl-brace-format
msgid ""
"WARNING: Don't know how to update {module}, which loads the
{modulename} "
"module."
msgstr ""
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:340
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:340
msgid ""
"No bootable kernels installed, and no replacement specified in "
"configuration.\n"
"Unable to continue."
msgstr ""
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:469
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:469
#, perl-brace-format
msgid ""
"WARNING: No replacement found for {xpath} in domain XML. The node was
"
"removed."
msgstr ""
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:520
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:520
#, perl-brace-format
msgid "The connected hypervisor does not support a {arch} kvm guest"
msgstr ""
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:551
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:551
#, perl-brace-format
msgid "The connected hypervisor does not support a machine type of
{machine}."
msgstr ""
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:570
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:570
#, perl-brace-format
msgid "The connected hypervisor does not support feature {feature}"
msgstr ""
-#: ../lib/Sys/VirtV2V/HVTarget.pm:96
+#: ../lib/Sys/VirtV2V/Converter.pm:96
msgid "Unable to find a module to configure this guest"
msgstr ""
diff --git a/po/zh_CN.po b/po/zh_CN.po
index 54b0691..1200971 100644
--- a/po/zh_CN.po
+++ b/po/zh_CN.po
@@ -113,24 +113,24 @@ msgstr "?????????grub ????????????????????? {version}
??? initrd ??????"
msgid "Unable to open /etc/rc.local: {error}"
msgstr "???????????? /etc/rc.local???{error}"
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:154
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:154
#, perl-brace-format
msgid "{name} configured with virtio drivers"
msgstr "virtio ????????????????????? {name}"
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:157
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:157
#, perl-brace-format
msgid "{name} configured without virtio drivers"
msgstr "??? virtio ????????????????????? {name}"
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:255
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:255
#, perl-brace-format
msgid ""
"WARNING: Don't know how to update {module}, which loads the
{modulename} "
"module."
msgstr "?????????????????????????????? {module}???????????????
{modulename} ?????????"
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:340
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:340
msgid ""
"No bootable kernels installed, and no replacement specified in "
"configuration.\n"
@@ -140,29 +140,29 @@ msgstr ""
"\n"
"???????????????"
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:469
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:469
#, perl-brace-format
msgid ""
"WARNING: No replacement found for {xpath} in domain XML. The node was
"
"removed."
msgstr "??????????????? XML ????????????????????? {xpath}
??????????????????????????????"
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:520
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:520
#, perl-brace-format
msgid "The connected hypervisor does not support a {arch} kvm guest"
msgstr "?????????????????????????????? {arch} kvm ?????????"
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:551
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:551
#, perl-brace-format
msgid "The connected hypervisor does not support a machine type of
{machine}."
msgstr "?????????????????????????????????????????? {machine}???"
-#: ../lib/Sys/VirtV2V/HVTarget/Linux.pm:570
+#: ../lib/Sys/VirtV2V/Converter/Linux.pm:570
#, perl-brace-format
msgid "The connected hypervisor does not support feature {feature}"
msgstr "???????????????????????????????????? {feature}"
-#: ../lib/Sys/VirtV2V/HVTarget.pm:96
+#: ../lib/Sys/VirtV2V/Converter.pm:96
msgid "Unable to find a module to configure this guest"
msgstr "??????????????????????????????????????????"
--
1.6.5.2
Matthew Booth
2009-Dec-21 17:56 UTC
[Libguestfs] [PATCH 3/3] Converter: Move HVSource functionality into Converter
Remove HVSource, moving it into Converter. This makes the Converter more like a
'big script'.
At the same time, separate metadata changes from guest changes. Metadata changes
all move into Converter.pm. Guest changes move into Linux.pm.
---
MANIFEST | 2 -
lib/Sys/VirtV2V/Converter.pm | 352 +++++++++++++++++++++++++++++---
lib/Sys/VirtV2V/Converter/Linux.pm | 360 ++++++++++-----------------------
lib/Sys/VirtV2V/HVSource.pm | 178 ----------------
lib/Sys/VirtV2V/HVSource/Xen/Linux.pm | 273 -------------------------
5 files changed, 437 insertions(+), 728 deletions(-)
delete mode 100644 lib/Sys/VirtV2V/HVSource.pm
delete mode 100644 lib/Sys/VirtV2V/HVSource/Xen/Linux.pm
diff --git a/MANIFEST b/MANIFEST
index 8710a84..8603430 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -6,8 +6,6 @@ lib/Sys/VirtV2V.pm
lib/Sys/VirtV2V/ExecHelper.pm
lib/Sys/VirtV2V/GuestOS.pm
lib/Sys/VirtV2V/GuestOS/RedHat.pm
-lib/Sys/VirtV2V/HVSource.pm
-lib/Sys/VirtV2V/HVSource/Xen/Linux.pm
lib/Sys/VirtV2V/Converter.pm
lib/Sys/VirtV2V/Converter/Linux.pm
lib/Sys/VirtV2V/MetadataReader.pm
diff --git a/lib/Sys/VirtV2V/Converter.pm b/lib/Sys/VirtV2V/Converter.pm
index e78e940..3b0500b 100644
--- a/lib/Sys/VirtV2V/Converter.pm
+++ b/lib/Sys/VirtV2V/Converter.pm
@@ -26,6 +26,8 @@ use Module::Pluggable sub_name => 'modules',
use Locale::TextDomain 'virt-v2v';
+use Sys::VirtV2V::UserMessage qw(user_message);
+
=pod
=head1 NAME
@@ -49,6 +51,47 @@ OS, and uses it to convert the guest to run on KVM.
=over
+=cut
+
+# Default values for a KVM configuration
+use constant KVM_XML_VIRTIO => "
+<domain type='kvm'>
+ <os>
+ <type machine='pc'>hvm</type>
+ <boot dev='hd'/>
+ </os>
+ <devices>
+ <disk device='disk'>
+ <target bus='virtio'/>
+ </disk>
+ <interface type='network'>
+ <model type='virtio'/>
+ </interface>
+ <input type='mouse' bus='ps2'/>
+ <graphics type='vnc' port='-1'
listen='127.0.0.1'/>
+ </devices>
+</domain>
+";
+
+use constant KVM_XML_NOVIRTIO => "
+<domain type='kvm'>
+ <os>
+ <type machine='pc'>hvm</type>
+ <boot dev='hd'/>
+ </os>
+ <devices>
+ <disk device='disk'>
+ <target bus='scsi'/>
+ </disk>
+ <interface type='network'>
+ <model type='e1000'/>
+ </interface>
+ <input type='mouse' bus='ps2'/>
+ <graphics type='vnc' port='-1'
listen='127.0.0.1'/>
+ </devices>
+</domain>
+";
+
=item Sys::VirtV2V::Converter->convert(vmm, guestos, dom, desc)
Instantiate an appropriate backend and call convert on it.
@@ -85,60 +128,317 @@ sub convert
carp("convert called without dom argument") unless defined($dom);
carp("convert called without desc argument") unless
defined($desc);
- # Find a module which can convert this guest and run it
+ my $guestcaps;
+
+ # Find a module which can convert the guest and run it
foreach my $module ($class->modules()) {
if($module->can_handle($desc)) {
- $module->convert($vmm, $guestos, $dom, $desc);
- return;
+ $guestcaps = $module->convert($vmm, $guestos, $dom, $desc);
+ last;
}
}
- die(__"Unable to find a module to convert this guest");
+ die(__"Unable to find a module to convert this guest")
+ unless (defined($guestcaps));
+
+ # Convert the metadata
+ _configure_metadata($vmm, $dom, $desc, $guestcaps);
+
+ my ($name) = $dom->findnodes('/domain/name/text()');
+ $name = $name->getNodeValue();
+
+ if($guestcaps->{virtio}) {
+ print user_message
+ (__x("{name} configured with virtio drivers", name =>
$name));
+ } else {
+ print user_message
+ (__x("{name} configured without virtio drivers", name
=> $name));
+ }
}
-=back
+sub _configure_metadata
+{
+ my ($vmm, $dom, $desc, $guestcaps) = @_;
-=head1 BACKEND INTERFACE
+ my $arch = $guestcaps->{arch};
+ my $virtio = $guestcaps->{virtio};
-=over
+ my $default_dom;
+ if($virtio) {
+ $default_dom = new XML::DOM::Parser->parse(KVM_XML_VIRTIO);
+ } else {
+ $default_dom = new XML::DOM::Parser->parse(KVM_XML_NOVIRTIO);
+ }
-=item CLASS->can_handle(desc)
+ # Replace source hypervisor metadata with KVM defaults
+ _unconfigure_hvs($dom, $default_dom);
-Returns 1 if the backend can handle the guest described by $desc, 0 otherwise.
+ # Configure guest according to local hypervisor's capabilities
+ _configure_capabilities($dom, $vmm, $guestcaps);
-=over
+ # Remove any configuration related to a PV kernel bootloader
+ _unconfigure_bootloaders($dom);
-=item desc
+ # Configure network and block drivers in the guest
+ _configure_drivers($dom, $virtio);
-An OS description as returned by Sys::Guestfs::Lib.
+ # Add a default os section if none exists
+ _configure_os($dom, $default_dom, $arch);
+}
-=back
+sub _unconfigure_hvs
+{
+ my ($dom, $default_dom) = @_;
+ die("unconfigure_hvs called without dom argument")
+ unless defined($dom);
+ die("unconfigure_hvs called without default_dom argument")
+ unless defined($default_dom);
+
+ # Get a list of source HV specific metadata nodes
+ my @nodeinfo = _find_hv_metadata($dom);
+
+ for(my $i = 0; $i < $#nodeinfo; $i += 2) {
+ my $node = $nodeinfo[$i];
+ my $xpath = $nodeinfo[$i + 1]->[0];
+ my $required = $nodeinfo[$i + 1]->[1];
+
+ # Look for a replacement in the defaults
+ my ($default) = $default_dom->findnodes($xpath);
+ if(defined($default)) {
+ if($node->isa('XML::DOM::Attr')) {
+ $node->setNodeValue($default->getNodeValue());
+ } else {
+ my $replacement = $default->cloneNode(1);
+ $replacement->setOwnerDocument($dom);
+
+ $node->getParentNode()->replaceChild($replacement,
$node);
+ }
+ }
-=item CLASS->convert(vmm, guestos, dom, desc)
+ else {
+ # Warn if a replacement is required, but none was found
+ print STDERR user_message
+ (__x("WARNING: No replacement found for {xpath} in ".
+ "domain XML. The node was removed.",
+ xpath => $xpath)) if($required);
-Convert the target guest to run on KVM.
+ $node->getParentNode()->removeChild($node);
+ }
+ }
+}
-can_handle() must have been checked prior to running convert().
+sub _configure_os
+{
+ my ($dom, $default_dom, $arch) = @_;
-=over
+ my ($os) = $dom->findnodes('/domain/os');
-=item vmm
+ # If there's no os element, copy one from the default
+ if(!defined($os)) {
+ ($os) = $default_dom->findnodes('/domain/os');
+ $os = $os->cloneNode(1);
+ $os->setOwnerDocument($dom);
-A Sys::Virt connection.
+ my ($domain) = $dom->findnodes('/domain');
+ $domain->appendChild($os);
+ }
-=item guestos
+ my ($type) = $os->findnodes('type');
-An initialised Sys::VirtV2V::GuestOS object for the guest.
+ # If there's no type element, copy one from the default
+ if(!defined($type)) {
+ ($type) = $default_dom->findnodes('/domain/os/type');
+ $type = $type->cloneNode(1);
+ $type->setOwnerDocument($dom);
-=item dom
+ $os->appendChild($type);
+ }
-An XML::DOM object resulting from parsing the guests's libvirt domain XML.
+ # Set type/@arch unless it's already set
+ my $arch_attr = $type->getAttributes()->getNamedItem('arch');
+ $type->setAttribute('arch', $arch) unless(defined($arch_attr));
+}
-=item desc
+sub _configure_capabilities
+{
+ my ($dom, $vmm, $guestcaps) = @_;
-The OS description returned by Sys::Guestfs::Lib.
+ # Parse the capabilities of the connected libvirt
+ my $caps = new XML::DOM::Parser->parse($vmm->get_capabilities());
-=back
+ my $arch = $guestcaps->{arch};
+
+ (my $guestcap) = $caps->findnodes
+
("/capabilities/guest[arch[\@name='$arch']/domain/\@type='kvm']");
+
+ die(__x("The connected hypervisor does not support a {arch} kvm
guest",
+ arch => $arch)) unless(defined($guestcap));
+
+ # Ensure that /domain/@type = 'kvm'
+ my ($type) = $dom->findnodes('/domain/@type');
+ $type->setNodeValue('kvm');
+
+ # Set /domain/os/type to the value taken from capabilities
+ my ($os_type) = $dom->findnodes('/domain/os/type/text()');
+ if(defined($os_type)) {
+ my ($caps_os_type) = $guestcap->findnodes('os_type/text()');
+ $os_type->setNodeValue($caps_os_type->getNodeValue());
+ }
+
+ # Check that /domain/os/type/@machine, if set, is listed in capabilities
+ my ($machine) = $dom->findnodes('/domain/os/type/@machine');
+ if(defined($machine)) {
+ my @machine_caps = $guestcap->findnodes
+ ("arch[\@name='$arch']/machine/text()");
+
+ my $found = 0;
+ foreach my $machine_cap (@machine_caps) {
+ if($machine eq $machine_cap) {
+ $found = 1;
+ last;
+ }
+ }
+
+ # If the machine isn't listed as a capability, warn and remove it
+ if(!$found) {
+ print STDERR user_message
+ (__x("The connected hypervisor does not support a ".
+ "machine type of {machine}.",
+ machine => $machine->getValue()));
+
+ my ($type) = $dom->findnodes('/domain/os/type');
+ $type->getAttributes()->removeNamedItem('machine');
+ }
+ }
+
+ # Check that /domain/features are listed in capabilities
+ # Get a list of supported features
+ my %features;
+ foreach my $feature ($guestcap->findnodes('features/*')) {
+ $features{$feature->getNodeName()} = 1;
+ }
+
+ foreach my $feature ($dom->findnodes('/domain/features/*')) {
+ if (!exists($features{$feature->getNodeName()})) {
+ print STDERR user_message
+ (__x("The connected hypervisor does not support ".
+ "feature {feature}", feature =>
$feature->getNodeName()));
+ $feature->getParentNode()->removeChild($feature);
+ }
+ }
+}
+
+sub _unconfigure_bootloaders
+{
+ my ($dom) = @_;
+
+ # A list of paths which relate to assisted booting of a kernel on hvm
+ my @bootloader_paths = (
+ '/domain/os/loader',
+ '/domain/os/kernel',
+ '/domain/os/initrd',
+ '/domain/os/root',
+ '/domain/os/cmdline'
+ );
+
+ foreach my $path (@bootloader_paths) {
+ my ($node) = $dom->findnodes($path);
+ $node->getParentNode()->removeChild($node) if defined($node);
+ }
+}
+
+sub _configure_drivers
+{
+ my ($dom, $virtio) = @_;
+
+ # Convert disks
+ # N.B. <disk> is required to have a <target> element
+
+ # Convert alternate bus specifications
+ foreach my $bus
($dom->findnodes('/domain/devices/disk/target/@bus')) {
+ $bus->setNodeValue($virtio ? 'virtio' : 'scsi');
+ }
+
+ # Add an explicit bus specification to targets without one
+ foreach my $target
+ ($dom->findnodes('/domain/devices/disk/target[not(@bus)]'))
+ {
+ $target->setAttribute('bus', $virtio ? 'virtio' :
'scsi');
+ }
+
+ # Convert network adapters
+ # N.B. <interface> is not required to have a <model> element,
but <model>
+ # is required to have a type attribute
+
+ # Convert interfaces which already have a model element
+ foreach my $type
+ ($dom->findnodes('/domain/devices/interface/model/@type'))
+ {
+ $type->setNodeValue($virtio ? 'virtio' : 'e1000');
+ }
+
+ # Add a model element to interfaces which don't have one
+ foreach my $interface
+ ($dom->findnodes('/domain/devices/interface[not(model)]'))
+ {
+ my $model = $dom->createElement('model');
+ $model->setAttribute('type', $virtio ? 'virtio' :
'e1000');
+ $interface->appendChild($model);
+ }
+}
+
+sub _find_hv_metadata
+{
+ my ($dom) = @_;
+
+ return _find_xen_metadata($dom);
+}
+
+sub _find_xen_metadata
+{
+ my $dom = shift;
+ defined($dom) or carp("find_metadata called without dom
argument");
+
+ # List of nodes requiring changes if they exist and match a particular
+ # pattern, and whether they need to be replaced for a guest to function
+ # Most of this is taken from inspection of domain.rng
+ my @check_nodes = (
+ [ '/domain/@type', 'xen', 1 ],
+ [ '/domain/devices/emulator', 'xen', 0 ],
+ [ '/domain/devices/input/@bus', 'xen', 1 ],
+ [ '/domain/devices/interface/script/@path',
'vif-bridge', 0],
+ [ '/domain/os/loader', 'xen', 0 ],
+ [ '/domain/os/type/@machine', '(xenpv|xenfv|xenner)', 0
],
+ [ '/domain/devices/disk/target/@bus', 'xen', 0 ],
+ [ '/domain/bootloader', undef, 0],
+ [ '/domain/bootloader_args', undef, 0]
+ );
+
+ my @nodeinfo = ();
+ foreach my $check_node (@check_nodes) {
+ my $xpath = $check_node->[0];
+ my $pattern = $check_node->[1];
+ my $required = $check_node->[2];
+
+ foreach my $node ($dom->findnodes($xpath)) {
+ if(defined($pattern)) {
+ my $value;
+ if($node->isa('XML::DOM::Attr')) {
+ $value = $node->getNodeValue();
+ } else {
+ my ($text) = $node->findnodes('text()');
+ $value = $text->getNodeValue();
+ }
+
+ next unless($value =~ m{$pattern});
+ }
+
+ push(@nodeinfo, $node => [ $xpath, $required ]);
+ }
+ }
+
+ return @nodeinfo;
+}
=back
diff --git a/lib/Sys/VirtV2V/Converter/Linux.pm
b/lib/Sys/VirtV2V/Converter/Linux.pm
index 070c4f3..db7a1ed 100644
--- a/lib/Sys/VirtV2V/Converter/Linux.pm
+++ b/lib/Sys/VirtV2V/Converter/Linux.pm
@@ -26,7 +26,6 @@ use Locale::TextDomain 'virt-v2v';
use XML::DOM;
use XML::DOM::XPath;
-use Sys::VirtV2V::HVSource;
use Sys::VirtV2V::UserMessage qw(user_message);
use Carp;
@@ -54,47 +53,6 @@ implementation of the Sys::VirtV2V::Converter interface.
=over
-=cut
-
-# Default values for a KVM configuration
-use constant KVM_XML_VIRTIO => "
-<domain type='kvm'>
- <os>
- <type machine='pc'>hvm</type>
- <boot dev='hd'/>
- </os>
- <devices>
- <disk device='disk'>
- <target bus='virtio'/>
- </disk>
- <interface type='network'>
- <model type='virtio'/>
- </interface>
- <input type='mouse' bus='ps2'/>
- <graphics type='vnc' port='-1'
listen='127.0.0.1'/>
- </devices>
-</domain>
-";
-
-use constant KVM_XML_NOVIRTIO => "
-<domain type='kvm'>
- <os>
- <type machine='pc'>hvm</type>
- <boot dev='hd'/>
- </os>
- <devices>
- <disk device='disk'>
- <target bus='scsi'/>
- </disk>
- <interface type='network'>
- <model type='e1000'/>
- </interface>
- <input type='mouse' bus='ps2'/>
- <graphics type='vnc' port='-1'
listen='127.0.0.1'/>
- </devices>
-</domain>
-";
-
=item Sys::VirtV2V::Converter::Linux->can_handle(desc)
See BACKEND INTERFACE in L<Sys::VirtV2V::Converter> for details.
@@ -129,7 +87,7 @@ sub convert
# Un-configure HV specific attributes which don't require a direct
# replacement
- Sys::VirtV2V::HVSource->unconfigure($guestos, $desc);
+ _unconfigure_hv($guestos, $desc);
# Get the best available kernel
my $kernel = _configure_kernel($guestos, $desc);
@@ -143,19 +101,12 @@ sub convert
_configure_kernel_modules($guestos, $desc, $virtio);
_configure_boot($guestos, $kernel, $virtio);
- # Configure libvirt
- _configure_metadata($vmm, $dom, $desc, $virtio);
+ my %guestcaps;
- my ($name) = $dom->findnodes('/domain/name/text()');
- $name = $name->getNodeValue();
+ $guestcaps{virtio} = $virtio;
+ $guestcaps{arch} = _get_os_arch($desc);
- if($virtio) {
- print user_message
- (__x("{name} configured with virtio drivers", name =>
$name));
- } else {
- print user_message
- (__x("{name} configured without virtio drivers", name
=> $name));
- }
+ return \%guestcaps;
}
sub _remap_block_devices
@@ -205,7 +156,7 @@ sub _configure_kernel_modules
# Get a list of all old-hypervisor specific kernel modules which need to be
# replaced or removed
my %hvs_modules;
- foreach my $module
(Sys::VirtV2V::HVSource->find_kernel_modules($guestos)) {
+ foreach my $module (_find_hv_kernel_modules($guestos)) {
$hvs_modules{$module} = undef;
}
@@ -312,11 +263,14 @@ sub _configure_kernel
my @remove_kernels = ();
- # Remove old-HV kernels
- foreach my $kernel (Sys::VirtV2V::HVSource->find_kernels($desc)) {
+ # Remove foreign hypervisor specific kernels from the list of available
+ # kernels
+ foreach my $kernel (_find_hv_kernels($desc)) {
# Remove the kernel from our cache
delete($kernels{$kernel});
+ # Don't actually try to remove them yet in case we remove them all.
This
+ # would make your dependency checker unhappy.
push(@remove_kernels, $kernel);
}
@@ -341,8 +295,7 @@ sub _configure_kernel
"specified in configuration.\nUnable to
continue."))
unless(keys(%kernels) > 0 || defined($boot_kernel));
- # Remove old kernels. We do this after installing a new kernel to keep rpm
- # happy
+ # It's safe to remove kernels now
foreach my $kernel (@remove_kernels) {
# Uninstall the kernel from the guest
$guestos->remove_kernel($kernel);
@@ -397,240 +350,149 @@ sub _get_os_arch
return $arch;
}
-sub _configure_metadata
+# Return a list of foreign hypervisor specific kernels
+sub _find_hv_kernels
{
- my ($vmm, $dom, $desc, $virtio) = @_;
- die("configure_metadata called without vmm argument")
- unless defined($vmm);
- die("configure_metadata called without dom argument")
- unless defined($dom);
- die("configure_metadata called without desc argument")
- unless defined($desc);
- die("configure_metadata called without virtio argument")
- unless defined($virtio);
-
- my $default_dom;
- if($virtio) {
- $default_dom = new XML::DOM::Parser->parse(KVM_XML_VIRTIO);
- } else {
- $default_dom = new XML::DOM::Parser->parse(KVM_XML_NOVIRTIO);
- }
+ my $desc = shift;
- my $arch = _get_os_arch($desc);
+ my $boot = $desc->{boot};
+ return () unless(defined($boot));
- # Replace source hypervisor metadata with KVM defaults
- _unconfigure_hvs($dom, $default_dom);
+ my $configs = $desc->{boot}->{configs};
+ return () unless(defined($configs));
- # Configure guest according to local hypervisor's capabilities
- _configure_capabilities($dom, $vmm, $arch);
+ # Xen PV kernels can be distinguished from other kernels by their inclusion
+ # of the xennet driver
+ my @kernels = ();
+ foreach my $config (@$configs) {
+ my $kernel = $config->{kernel};
+ next unless(defined($kernel));
- # Remove any configuration related to a PV kernel bootloader
- _unconfigure_bootloaders($dom);
+ my $modules = $kernel->{modules};
+ next unless(defined($modules));
- # Configure network and block drivers in the guest
- _configure_drivers($dom, $virtio);
+ # Look for the xennet driver in the modules list
+ if(grep(/^xennet$/, @$modules) > 0) {
+ push(@kernels, $kernel->{version});
+ }
+ }
- # Add a default os section if none exists
- _configure_os($dom, $default_dom, $arch);
+ return @kernels;
}
-sub _unconfigure_hvs
+sub _unconfigure_hv
{
- my ($dom, $default_dom) = @_;
- die("unconfigure_hvs called without dom argument")
- unless defined($dom);
- die("unconfigure_hvs called without default_dom argument")
- unless defined($default_dom);
-
- # Get a list of source HV specific metadata nodes
- my @nodeinfo = Sys::VirtV2V::HVSource->find_metadata($dom);
-
- for(my $i = 0; $i < $#nodeinfo; $i += 2) {
- my $node = $nodeinfo[$i];
- my $xpath = $nodeinfo[$i + 1]->[0];
- my $required = $nodeinfo[$i + 1]->[1];
-
- # Look for a replacement in the defaults
- my ($default) = $default_dom->findnodes($xpath);
- if(defined($default)) {
- if($node->isa('XML::DOM::Attr')) {
- $node->setNodeValue($default->getNodeValue());
- } else {
- my $replacement = $default->cloneNode(1);
- $replacement->setOwnerDocument($dom);
-
- $node->getParentNode()->replaceChild($replacement,
$node);
- }
- }
-
- else {
- # Warn if a replacement is required, but none was found
- print STDERR user_message
- (__x("WARNING: No replacement found for {xpath} in ".
- "domain XML. The node was removed.",
- xpath => $xpath)) if($required);
+ my ($guestos, $desc) = @_;
- $node->getParentNode()->removeChild($node);
- }
- }
+ _unconfigure_xen($guestos, $desc);
}
-sub _configure_os
+# Unconfigure Xen specific guest modifications
+sub _unconfigure_xen
{
- my ($dom, $default_dom, $arch) = @_;
-
- my ($os) = $dom->findnodes('/domain/os');
-
- # If there's no os element, copy one from the default
- if(!defined($os)) {
- ($os) = $default_dom->findnodes('/domain/os');
- $os = $os->cloneNode(1);
- $os->setOwnerDocument($dom);
+ my ($guestos, $desc) = @_;
- my ($domain) = $dom->findnodes('/domain');
- $domain->appendChild($os);
- }
+ carp("unconfigure called without guestos argument")
+ unless defined($guestos);
+ carp("unconfigure called without desc argument")
+ unless defined($desc);
- my ($type) = $os->findnodes('type');
+ my $found_kmod = 0;
- # If there's no type element, copy one from the default
- if(!defined($type)) {
- ($type) = $default_dom->findnodes('/domain/os/type');
- $type = $type->cloneNode(1);
- $type->setOwnerDocument($dom);
+ # Look for kmod-xenpv-*, which can be found on RHEL 3 machines
+ foreach my $app (@{$desc->{apps}}) {
+ my $name = $app->{name};
- $os->appendChild($type);
+ if($name =~ /^kmod-xenpv(-.*)?$/) {
+ $guestos->remove_application($name);
+ $found_kmod = 1;
+ }
}
- # Set type/@arch unless it's already set
- my $arch_attr = $type->getAttributes()->getNamedItem('arch');
- $type->setAttribute('arch', $arch) unless(defined($arch_attr));
-}
-
-sub _configure_capabilities
-{
- my ($dom, $vmm, $arch) = @_;
-
- # Parse the capabilities of the connected libvirt
- my $caps = new XML::DOM::Parser->parse($vmm->get_capabilities());
-
- (my $guestcap) = $caps->findnodes
-
("/capabilities/guest[arch[\@name='$arch']/domain/\@type='kvm']");
-
- die(__x("The connected hypervisor does not support a {arch} kvm
guest",
- arch => $arch)) unless(defined($guestcap));
+ # Undo related nastiness if kmod-xenpv was installed
+ if($found_kmod) {
+ # What follows is custom nastiness, so we need to use the libguestfs
+ # handle directly
+ my $g = $guestos->get_handle();
- # Ensure that /domain/@type = 'kvm'
- my ($type) = $dom->findnodes('/domain/@type');
- $type->setNodeValue('kvm');
+ # kmod-xenpv modules may have been manually copied to other kernels.
+ # Hunt them down and destroy them.
+ foreach my $dir (grep(m{/xenpv$}, $g->find('/lib/modules')))
{
+ $dir = '/lib/modules/'.$dir;
- # Set /domain/os/type to the value taken from capabilities
- my ($os_type) = $dom->findnodes('/domain/os/type/text()');
- if(defined($os_type)) {
- my ($caps_os_type) = $guestcap->findnodes('os_type/text()');
- $os_type->setNodeValue($caps_os_type->getNodeValue());
- }
+ # Check it's a directory
+ next unless($g->is_dir($dir));
- # Check that /domain/os/type/@machine, if set, is listed in capabilities
- my ($machine) = $dom->findnodes('/domain/os/type/@machine');
- if(defined($machine)) {
- my @machine_caps = $guestcap->findnodes
- ("arch[\@name='$arch']/machine/text()");
+ # Check it's not owned by an installed application
+ eval {
+ $g->get_application_owner($dir);
+ };
- my $found = 0;
- foreach my $machine_cap (@machine_caps) {
- if($machine eq $machine_cap) {
- $found = 1;
- last;
+ # Remove it if get_application_owner didn't find an owner
+ if($@) {
+ $g->rm_rf($dir);
}
}
- # If the machine isn't listed as a capability, warn and remove it
- if(!$found) {
- print STDERR user_message
- (__x("The connected hypervisor does not support a ".
- "machine type of {machine}.",
- machine => $machine->getValue()));
+ # rc.local may contain an insmod or modprobe of the xen-vbd driver
+ my @rc_local = ();
+ eval {
+ @rc_local = $g->read_lines('/etc/rc.local');
+ };
- my ($type) = $dom->findnodes('/domain/os/type');
- $type->getAttributes()->removeNamedItem('machine');
+ if($@) {
+ print STDERR user_message(__x("Unable to open /etc/rc.local:
".
+ "{error}", error =>
$@));
}
- }
- # Check that /domain/features are listed in capabilities
- # Get a list of supported features
- my %features;
- foreach my $feature ($guestcap->findnodes('features/*')) {
- $features{$feature->getNodeName()} = 1;
- }
+ else {
+ my $size = 0;
- foreach my $feature ($dom->findnodes('/domain/features/*')) {
- if(!exists($features{$feature->getNodeName()})) {
- print STDERR user_message
- (__x("The connected hypervisor does not support ".
- "feature {feature}", feature =>
$feature->getNodeName()));
- $feature->getParentNode()->removeChild($feature);
+ foreach my $line (@rc_local) {
+ if($line =~ /\b(insmod|modprobe)\b.*\bxen-vbd/) {
+ $line = '#'.$line;
+ }
+
+ $size += length($line) + 1;
+ }
+
+ $g->write_file('/etc/rc.local', join("\n",
@rc_local)."\n", $size);
}
}
}
-sub _unconfigure_bootloaders
+# Get a list of all foreign hypervisor specific kernel modules which are being
+# used by the guest
+sub _find_hv_kernel_modules
{
- my ($dom) = @_;
-
- # A list of paths which relate to assisted booting of a kernel on hvm
- my @bootloader_paths = (
- '/domain/os/loader',
- '/domain/os/kernel',
- '/domain/os/initrd',
- '/domain/os/root',
- '/domain/os/cmdline'
- );
-
- foreach my $path (@bootloader_paths) {
- my ($node) = $dom->findnodes($path);
- $node->getParentNode()->removeChild($node) if defined($node);
- }
+ my ($desc) = @_;
+
+ return _find_xen_kernel_modules($desc);
}
-sub _configure_drivers
+# Get a list of xen specific kernel modules which are being used by the guest
+sub _find_xen_kernel_modules
{
- my ($dom, $virtio) = @_;
-
- # Convert disks
- # N.B. <disk> is required to have a <target> element
-
- # Convert alternate bus specifications
- foreach my $bus
($dom->findnodes('/domain/devices/disk/target/@bus')) {
- $bus->setNodeValue($virtio ? 'virtio' : 'scsi');
- }
+ my ($desc) = @_;
+ carp("find_kernel_modules called without desc argument")
+ unless defined($desc);
- # Add an explicit bus specification to targets without one
- foreach my $target
- ($dom->findnodes('/domain/devices/disk/target[not(@bus)]'))
- {
- $target->setAttribute('bus', $virtio ? 'virtio' :
'scsi');
- }
+ my $aliases = $desc->{modprobe_aliases};
+ return unless defined($aliases);
- # Convert network adapters
- # N.B. <interface> is not required to have a <model> element,
but <model>
- # is required to have a type attribute
+ my @modules = ();
+ foreach my $alias (keys(%$aliases)) {
+ my $modulename = $aliases->{$alias}->{modulename};
- # Convert interfaces which already have a model element
- foreach my $type
- ($dom->findnodes('/domain/devices/interface/model/@type'))
- {
- $type->setNodeValue($virtio ? 'virtio' : 'e1000');
+ foreach my $xen_module qw(xennet xen-vnif xenblk xen-vbd) {
+ if($modulename eq $xen_module) {
+ push(@modules, $alias);
+ last;
+ }
+ }
}
- # Add a model element to interfaces which don't have one
- foreach my $interface
- ($dom->findnodes('/domain/devices/interface[not(model)]'))
- {
- my $model = $dom->createElement('model');
- $model->setAttribute('type', $virtio ? 'virtio' :
'e1000');
- $interface->appendChild($model);
- }
+ return @modules;
}
=back
diff --git a/lib/Sys/VirtV2V/HVSource.pm b/lib/Sys/VirtV2V/HVSource.pm
deleted file mode 100644
index 621d54b..0000000
--- a/lib/Sys/VirtV2V/HVSource.pm
+++ /dev/null
@@ -1,178 +0,0 @@
-# Sys::VirtV2V::HVSource
-# Copyright (C) 2009 Red Hat Inc.
-#
-# This library is free software; you can redistribute it and/or
-# modify it under the terms of the GNU Lesser General Public
-# License as published by the Free Software Foundation; either
-# version 2 of the License, or (at your option) any later version.
-#
-# This library is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-# Lesser General Public License for more details.
-#
-# You should have received a copy of the GNU Lesser General Public
-# License along with this library; if not, write to the Free Software
-# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
-
-package Sys::VirtV2V::HVSource;
-
-use strict;
-use warnings;
-
-use Module::Pluggable sub_name => 'modules',
- search_path => ['Sys::VirtV2V::HVSource'],
- require => 1;
-use Carp;
-
-=pod
-
-=head1 NAME
-
-Sys::VirtV2V::HVSource - Discover source hypervisor artifacts in a guest
-
-=head1 SYNOPSIS
-
- use Sys::VirtV2V::HVSource;
-
- my @modules = Sys::VirtV2V::HVSource->find_kernel_modules(desc);
- my @kernels = Sys::VirtV2V::HVSource->find_kernels(desc);
- my @xpaths = Sys::VirtV2V::HVSource->find_metadata(dom);
-
- Sys::VirtV2V::HVSource->unconfigure(g, guestos, desc);
-
-=head1 DESCRIPTION
-
-Sys::VirtV2V::HVSource provides a mechanism for identifying properties of a
-guest operating system which relate specifically to a particular hypervisor. It
-is used by a Sys::VirtV2V::Converter when reconfiguring the guest.
-
-A call to any of these methods will call, and aggregate if relevant, all
-implemented Sys::VirtV2V::HVSource backends.
-
-=head1 METHODS
-
-In each of these methods, the desc argument is an OS description as returned by
-Sys::Guestfs::Lib.
-
-=over
-
-=item Sys::VirtV2V::HVSource->find_kernel_modules(desc)
-
-Return a list of modprobe aliases which load hypervisor-specific modules.
-
-=cut
-
-sub find_kernel_modules
-{
- my $class = shift;
-
- my $desc = shift;
- carp("find_kernel_modules called without desc argument")
- unless defined($desc);
-
- my @modules = ();
- foreach my $module ($class->modules()) {
- push(@modules, $module->find_kernel_modules($desc));
- }
-
- return @modules;
-}
-
-=item Sys::VirtV2V::HVSource->find_kernels(desc)
-
-Return a list of version numbers of kernels which will only boot on a specific
-hypervisor.
-
-=cut
-
-sub find_kernels
-{
- my $class = shift;
-
- my $desc = shift;
- carp("find_kernels called without desc argument")
- unless defined($desc);
-
- my @kernels = ();
- foreach my $module ($class->modules()) {
- push(@kernels, $module->find_kernels($desc));
- }
-
- return @kernels;
-}
-
-=item Sys::VirtV2V::HVSource->find_metadata(dom)
-
-Return guest libvirt metadata which is specific to a particular hypervisor. The
-data is returned as a list of XPath paths which relate to the guest's
libvirt
-domain XML.
-
-=over
-
-=item dom
-
-An XML::DOM resulting from parsing the guest's libvirt domain XML.
-
-=back
-
-=cut
-
-sub find_metadata
-{
- my $class = shift;
-
- my $dom = shift;
- carp("find_metadata called without dom argument") unless
defined($dom);
-
- my @nodeinfo = ();
- foreach my $module ($class->modules()) {
- push(@nodeinfo, $module->find_metadata($dom));
- }
-
- return @nodeinfo;
-}
-
-=item Sys::VirtV2V::HVSource->unconfigure(guestos, desc)
-
-Perform custom unconfiguration tasks. These tasks differ from the above, in
they
-require no replacement configuration. Examples are removing VMWare tools or Xen
-PV drivers.
-
-=cut
-
-sub unconfigure
-{
- my $class = shift;
-
- my ($guestos, $desc) = @_;
- carp("unconfigure called without guestos argument")
- unless defined($guestos);
- carp("unconfigure called without desc argument")
- unless defined($desc);
-
- foreach my $module ($class->modules()) {
- $module->unconfigure($guestos, $desc);
- }
-}
-
-=back
-
-=head1 COPYRIGHT
-
-Copyright (C) 2009 Red Hat Inc.
-
-=head1 LICENSE
-
-Please see the file COPYING.LIB for the full license.
-
-=head1 SEE ALSO
-
-L<virt-v2v(1)>,
-L<Sys::Guestfs::Lib(3pm)>,
-L<Sys::VirtV2V(3pm)>,
-L<http://libguestfs.org/>.
-
-=cut
-
-1;
diff --git a/lib/Sys/VirtV2V/HVSource/Xen/Linux.pm
b/lib/Sys/VirtV2V/HVSource/Xen/Linux.pm
deleted file mode 100644
index e7bcd11..0000000
--- a/lib/Sys/VirtV2V/HVSource/Xen/Linux.pm
+++ /dev/null
@@ -1,273 +0,0 @@
-# Sys::VirtV2V::HVSource::Xen::Linux
-# Copyright (C) 2009 Red Hat Inc.
-#
-# This library is free software; you can redistribute it and/or
-# modify it under the terms of the GNU Lesser General Public
-# License as published by the Free Software Foundation; either
-# version 2 of the License, or (at your option) any later version.
-#
-# This library is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-# Lesser General Public License for more details.
-#
-# You should have received a copy of the GNU Lesser General Public
-# License along with this library; if not, write to the Free Software
-# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
-
-package Sys::VirtV2V::HVSource::Xen::Linux;
-
-use strict;
-use warnings;
-
-use Locale::TextDomain 'virt-v2v';
-
-use XML::DOM;
-use XML::DOM::XPath;
-
-=pod
-
-=head1 NAME
-
-Sys::VirtV2V::HVSource::Xen::Linux - Discover Xen artifects in a Linux guest
-
-=head1 SYNOPSIS
-
- use Sys::VirtV2V::HVSource;
-
- my @modules = Sys::VirtV2V::HVSource->find_kernel_modules(desc);
- my @kernels = Sys::VirtV2V::HVSource->find_kernels(desc);
- my @xpaths = Sys::VirtV2V::HVSource->find_metadata(dom);
-
- Sys::VirtV2V::HVSource->unconfigure(g, guestos, desc);
-
-=head1 DESCRIPTION
-
-Sys::VirtV2V::HVSource::Xen::Linux is a backend to Sys::VirtV2V::HVSource which
detects properties of a Linux guest specific to the Xen hypervisor.
-
-=head1 METHODS
-
-=over
-
-=item Sys::VirtV2V::HVSource::Linux->find_kernel_modules(desc)
-
-See L<Sys::VirtV2V::HVSource> for details.
-
-=cut
-
-sub find_kernel_modules
-{
- my $class = shift;
-
- my $desc = shift;
- carp("find_kernel_modules called without desc argument")
- unless defined($desc);
-
- my $aliases = $desc->{modprobe_aliases};
- return unless defined($aliases);
-
- my @modules = ();
- foreach my $alias (keys(%$aliases)) {
- my $modulename = $aliases->{$alias}->{modulename};
-
- foreach my $xen_module qw(xennet xen-vnif xenblk xen-vbd) {
- if($modulename eq $xen_module) {
- push(@modules, $alias);
- last;
- }
- }
- }
-
- return @modules;
-}
-
-=item Sys::VirtV2V::HVSource::Linux->find_kernels(desc)
-
-See L<Sys::VirtV2V::HVSource> for details.
-
-=cut
-
-sub find_kernels
-{
- my $class = shift;
-
- my $desc = shift;
- carp("find_kernels called without desc argument")
- unless defined($desc);
-
- my $boot = $desc->{boot};
- return () unless(defined($boot));
-
- my $configs = $desc->{boot}->{configs};
- return () unless(defined($configs));
-
- my @kernels = ();
- foreach my $config (@$configs) {
- my $kernel = $config->{kernel};
- next unless(defined($kernel));
-
- my $modules = $kernel->{modules};
- next unless(defined($modules));
-
- # Look for the xennet driver in the modules list
- if(grep(/^xennet$/, @$modules) > 0) {
- push(@kernels, $kernel->{version});
- }
- }
-
- return @kernels;
-}
-
-=item Sys::VirtV2V::HVSource::Linux->find_metadata(dom)
-
-See L<Sys::VirtV2V::HVSource> for details.
-
-=cut
-
-sub find_metadata
-{
- my $class = shift;
-
- my $dom = shift;
- defined($dom) or carp("find_metadata called without dom
argument");
-
- # List of nodes requiring changes if they exist and match a particular
- # pattern, and whether they need to be replaced for a guest to function
- # Most of this is taken from inspection of domain.rng
- my @check_nodes = (
- [ '/domain/@type', 'xen', 1 ],
- [ '/domain/devices/emulator', 'xen', 0 ],
- [ '/domain/devices/input/@bus', 'xen', 1 ],
- [ '/domain/devices/interface/script/@path',
'vif-bridge', 0],
- [ '/domain/os/loader', 'xen', 0 ],
- [ '/domain/os/type/@machine', '(xenpv|xenfv|xenner)', 0
],
- [ '/domain/devices/disk/target/@bus', 'xen', 0 ],
- [ '/domain/bootloader', undef, 0],
- [ '/domain/bootloader_args', undef, 0]
- );
-
- my @nodeinfo = ();
- foreach my $check_node (@check_nodes) {
- my $xpath = $check_node->[0];
- my $pattern = $check_node->[1];
- my $required = $check_node->[2];
-
- foreach my $node ($dom->findnodes($xpath)) {
- if(defined($pattern)) {
- my $value;
- if($node->isa('XML::DOM::Attr')) {
- $value = $node->getNodeValue();
- } else {
- my ($text) = $node->findnodes('text()');
- $value = $text->getNodeValue();
- }
-
- next unless($value =~ m{$pattern});
- }
-
- push(@nodeinfo, $node => [ $xpath, $required ]);
- }
- }
-
- return @nodeinfo;
-}
-
-=item Sys::VirtV2V::HVSource::Linux->unconfigure(guestos, desc)
-
-See L<Sys::VirtV2V::HVSource> for details.
-
-=cut
-
-sub unconfigure
-{
- my $class = shift;
-
- my ($guestos, $desc) = @_;
- carp("unconfigure called without guestos argument")
- unless defined($guestos);
- carp("unconfigure called without desc argument")
- unless defined($desc);
-
- my $found_kmod = 0;
-
- # Look for kmod-xenpv-*, which can be found on RHEL 3 machines
- foreach my $app (@{$desc->{apps}}) {
- my $name = $app->{name};
-
- if($name =~ /^kmod-xenpv(-.*)?$/) {
- $guestos->remove_application($name);
- $found_kmod = 1;
- }
- }
-
- # Undo related nastiness if kmod-xenpv was installed
- if($found_kmod) {
- # What follows is custom nastiness, so we need to use the libguestfs
- # handle directly
- my $g = $guestos->get_handle();
-
- # kmod-xenpv modules may have been manually copied to other kernels.
- # Hunt them down and destroy them.
- foreach my $dir (grep(m{/xenpv$}, $g->find('/lib/modules')))
{
- $dir = '/lib/modules/'.$dir;
-
- # Check it's a directory
- next unless($g->is_dir($dir));
-
- # Check it's not owned by an installed application
- eval {
- $g->get_application_owner($dir);
- };
-
- # Remove it if get_application_owner didn't find an owner
- if($@) {
- $g->rm_rf($dir);
- }
- }
-
- # rc.local may contain an insmod or modprobe of the xen-vbd driver
- my @rc_local = ();
- eval {
- @rc_local = $g->read_lines('/etc/rc.local');
- };
-
- if($@) {
- print STDERR user_message(__x("Unable to open /etc/rc.local:
".
- "{error}", error =>
$@));
- }
-
- else {
- my $size = 0;
-
- foreach my $line (@rc_local) {
- if($line =~ /\b(insmod|modprobe)\b.*\bxen-vbd/) {
- $line = '#'.$line;
- }
-
- $size += length($line) + 1;
- }
-
- $g->write_file('/etc/rc.local', join("\n",
@rc_local)."\n", $size);
- }
- }
-}
-
-=back
-
-=head1 COPYRIGHT
-
-Copyright (C) 2009 Red Hat Inc.
-
-=head1 LICENSE
-
-Please see the file COPYING.LIB for the full license.
-
-=head1 SEE ALSO
-
-L<Sys::VirtV2V::HVSource(3pm)>,
-L<virt-v2v(2)>,
-L<http://libguestfs.org/>.
-
-=cut
-
-1;
--
1.6.5.2
Richard W.M. Jones
2010-Jan-05 16:43 UTC
[Libguestfs] Refactor virt-v2v to be more like a 'big script'
On Mon, Dec 21, 2009 at 05:56:52PM +0000, Matthew Booth wrote:> These patches combine HVSource and HVTarget into a single Converter. This should > make it more obvious where to hack without losing any practical flexibility. > > GuestOS remains separate. GuestOS is now a misnomer, because it's really only a > Linux distro abstraction. It will be useless for Windows, for example. Functions > which you'd expect to be different on a non-RH distro should live in GuestOS. > By this measure it's currently too fat. I'll gradually move non-distro specific > things out of it as I touch them.I think I'd have made it into an actual "big script", like virt-p2v, but I appreciate that requires a different language, one which is strongly typed and has compiler support for checking qualified unions (hmm I wonder which?). ACK. Rich. -- Richard Jones, Virtualization Group, Red Hat http://people.redhat.com/~rjones virt-p2v converts physical machines to virtual machines. Boot with a live CD or over the network (PXE) and turn machines into Xen guests. http://et.redhat.com/~rjones/virt-p2v
Reasonably Related Threads
- [ESX support] Working ESX conversion for RHEL 5
- [PATCH] internationalisation: Replace autopoint infrastructure with libintl-perl
- [FOR REVIEW ONLY] ESX work in progress
- Create new Sys::VirtV2V::Util
- [PATCH 1/6] Convert config file to XML, and translate networks/bridge for all connections