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 $uri;
  66
  67 =item B<--connect URI> | B<-c URI>
  68
  69 If using libvirt, connect to the given I<URI>.  If omitted,
  70 then we connect to the default libvirt hypervisor.
  71
  72 Libvirt is only used if you specify a C<domname> on the
  73 command line.  If you specify guest block devices directly,
  74 then libvirt is not used at all.
  75
  76 =cut
  77
  78 GetOptions ("help|?" => \$help,
  79             "connect|c=s" => \$uri,
  80     ) or pod2usage (2);
  81 pod2usage (1) if $help;
  82 pod2usage ("$0: no image or VM names given") if @ARGV == 0;
  83
  84 # my $g;
  85 # if ($uri) {
  86 #     $g = open_guest (\@ARGV, rw => $rw, address => $uri);
  87 # } else {
  88 #     $g = open_guest (\@ARGV, rw => $rw);
  89 # }
  90
  91 # $g->launch ();
  92 # $g->wait_ready ();
  93
  94 # # List of possible filesystems.
  95 # my @partitions = get_partitions ($g);
  96
  97 # # Now query each one to build up a picture of what's in it.
  98 # my %fses =
  99 #     inspect_all_partitions ($g, \@partitions,
 100 #       use_windows_registry => $windows_registry);
 101
 102 # #print "fses -----------\n";
 103 # #print Dumper(\%fses);
 104
 105 # my $oses = inspect_operating_systems ($g, \%fses);
 106
 107 # #print "oses -----------\n";
 108 # #print Dumper($oses);
 109
 110 # # Mount up the disks and check for applications.
 111
 112 # my $root_dev;
 113 # foreach $root_dev (sort keys %$oses) {
 114 #     my $os = $oses->{$root_dev};
 115 #     mount_operating_system ($g, $os);
 116 #     inspect_in_detail ($g, $os);
 117 #     $g->umount_all ();
 118 # }
 119
 120 =head1 SEE ALSO
 121
 122 L<virt-inspector(1)>,
 123 L<guestfs(3)>,
 124 L<guestfish(1)>,
 125 L<Sys::Guestfs(3)>,
 126 L<Sys::Guestfs::Lib(3)>,
 127 L<Sys::Virt(3)>,
 128 L<http://libguestfs.org/>.
 129
 130 For Windows registry parsing we require the C<reged> program
 131 from L<http://home.eunet.no/~pnordahl/ntpasswd/>.
 132
 133 =head1 AUTHOR
 134
 135 Richard W.M. Jones L<http://et.redhat.com/~rjones/>
 136
 137 =head1 COPYRIGHT
 138
 139 Copyright (C) 2009 Red Hat Inc.
 140
 141 This program is free software; you can redistribute it and/or modify
 142 it under the terms of the GNU General Public License as published by
 143 the Free Software Foundation; either version 2 of the License, or
 144 (at your option) any later version.
 145
 146 This program is distributed in the hope that it will be useful,
 147 but WITHOUT ANY WARRANTY; without even the implied warranty of
 148 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 149 GNU General Public License for more details.
 150
 151 You should have received a copy of the GNU General Public License
 152 along with this program; if not, write to the Free Software
 153 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.