Re: [Libguestfs] [PATCH] Initial drop of virt-v2v

+sub add_kernel +{ + my $self = shift; + my $kernel_arch = "i386"; # XXX: Need to get this from inspection! + + my $g = $self->{g}; + + my $filename = $self->match_file('kernel', $kernel_arch); + + # Inspect the rpm to work out what kernel version it contains + my $version; + foreach my $file ($g->command_lines(["rpm", "-qlp", $filename])) {

+ if($file =~ m{^/boot/vmlinuz-(.*)$}) { + $version = $1; + last; + } + } + + die(__x"{filename} doesn't contain a valid kernel\n", + filename => $filename) if(!defined($version)); + + $self->install_rpm($filename); + + # Make augeas reload so it'll find the new kernel + $g->aug_load(); + + return $version; +} + +sub remove_kernel +{ + my $self = shift; + my $version = shift; + + my $g = $self->{g}; + eval { + # Work out which rpm contains the kernel + my $rpm = $g->command(["rpm", "-qf", "/boot/vmlinuz-".$version]);

+ + $g->command(["rpm", "-e", $rpm]); + }; + + die($@) if($@); +} + +sub add_application +{ + my $self = shift; + my $label = shift; + my $user_arch = "i386"; # XXX: Need to get this from inspection! + + my $filename = $self->match_file($label, $user_arch); + $self->install_rpm($filename);

+} + +sub remove_application +{ + my $self = shift; + my $name = shift; + + my $g = $self->{g}; + eval { + $g->command(["rpm", "-e", $name]);