v2v/virt-v2v.pl

   1 #!/usr/bin/perl -w
   2 # virt-v2v
   3 # Copyright (C) 2009 Red Hat Inc.
   4 #
   5 # This program is free software; you can redistribute it and/or modify
   6 # it under the terms of the GNU General Public License as published by
   7 # the Free Software Foundation; either version 2 of the License, or
   8 # (at your option) any later version.
   9 #
  10 # This program is distributed in the hope that it will be useful,
  11 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13 # GNU General Public License for more details.
  14 #
  15 # You should have received a copy of the GNU General Public License
  16 # along with this program; if not, write to the Free Software
  17 # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  18
  19 use warnings;
  20 use strict;
  21
  22 use Sys::Guestfs;
  23 use Sys::Guestfs::Lib qw(open_guest get_partitions resolve_windows_path
  24   inspect_all_partitions inspect_partition
  25   inspect_operating_systems mount_operating_system inspect_in_detail);
  26 use Pod::Usage;
  27 use Getopt::Long;
  28 use Data::Dumper;
  29 use File::Temp qw/tempdir/;
  30 use XML::Writer;
  31
  32 =encoding utf8
  33
  34 =head1 NAME
  35
  36 virt-v2v - Convert Xen guests to KVM
  37
  38 =head1 SYNOPSIS
  39
  40  virt-v2v xen_name -o kvm_name
  41
  42  virt-v2v guest.img [guest.img ...]
  43
  44 =head1 DESCRIPTION
  45
  46
  47
  48
  49
  50
  51 =head1 OPTIONS
  52
  53 =over 4
  54
  55 =cut
  56
  57 my $help;
  58
  59 =item B<--help>
  60
  61 Display brief help.
  62
  63 =cut
  64
  65 my $version;
  66
  67 =item B<--version>
  68
  69 Display version number and exit.
  70
  71 =cut
  72
  73 my $uri;
  74
  75 =item B<--connect URI> | B<-c URI>
  76
  77 If using libvirt, connect to the given I<URI>.  If omitted,
  78 then we connect to the default libvirt hypervisor.
  79
  80 Libvirt is only used if you specify a C<domname> on the
  81 command line.  If you specify guest block devices directly,
  82 then libvirt is not used at all.
  83
  84 =cut
  85
  86 GetOptions ("help|?" => \$help,
  87             "version" => \$version,
  88             "connect|c=s" => \$uri,
  89     ) or pod2usage (2);
  90 pod2usage (1) if $help;
  91 if ($version) {
  92     my $g = Sys::Guestfs->new ();
  93     my %h = $g->version ();
  94     print "$h{major}.$h{minor}.$h{release}$h{extra}\n";
  95     exit
  96 }
  97 pod2usage ("$0: no image or VM names given") if @ARGV == 0;
  98
  99 # my $g;
 100 # if ($uri) {
 101 #     $g = open_guest (\@ARGV, rw => $rw, address => $uri);
 102 # } else {
 103 #     $g = open_guest (\@ARGV, rw => $rw);
 104 # }
 105
 106 # $g->launch ();
 107 # $g->wait_ready ();
 108
 109 # # List of possible filesystems.
 110 # my @partitions = get_partitions ($g);
 111
 112 # # Now query each one to build up a picture of what's in it.
 113 # my %fses =
 114 #     inspect_all_partitions ($g, \@partitions,
 115 #       use_windows_registry => $windows_registry);
 116
 117 # #print "fses -----------\n";
 118 # #print Dumper(\%fses);
 119
 120 # my $oses = inspect_operating_systems ($g, \%fses);
 121
 122 # #print "oses -----------\n";
 123 # #print Dumper($oses);
 124
 125 # # Mount up the disks and check for applications.
 126
 127 # my $root_dev;
 128 # foreach $root_dev (sort keys %$oses) {
 129 #     my $os = $oses->{$root_dev};
 130 #     mount_operating_system ($g, $os);
 131 #     inspect_in_detail ($g, $os);
 132 #     $g->umount_all ();
 133 # }
 134
 135 =head1 SEE ALSO
 136
 137 L<virt-inspector(1)>,
 138 L<guestfs(3)>,
 139 L<guestfish(1)>,
 140 L<Sys::Guestfs(3)>,
 141 L<Sys::Guestfs::Lib(3)>,
 142 L<Sys::Virt(3)>,
 143 L<http://libguestfs.org/>.
 144
 145 For Windows registry parsing we require the C<reged> program
 146 from L<http://home.eunet.no/~pnordahl/ntpasswd/>.
 147
 148 =head1 AUTHOR
 149
 150 Richard W.M. Jones L<http://et.redhat.com/~rjones/>
 151
 152 =head1 COPYRIGHT
 153
 154 Copyright (C) 2009 Red Hat Inc.
 155
 156 This program is free software; you can redistribute it and/or modify
 157 it under the terms of the GNU General Public License as published by
 158 the Free Software Foundation; either version 2 of the License, or
 159 (at your option) any later version.
 160
 161 This program is distributed in the hope that it will be useful,
 162 but WITHOUT ANY WARRANTY; without even the implied warranty of
 163 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 164 GNU General Public License for more details.
 165
 166 You should have received a copy of the GNU General Public License
 167 along with this program; if not, write to the Free Software
 168 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.