1 files changed, 21 insertions, 1 deletions
diff --git a/draklive b/draklive
index e3d2de7..a4d88c0 100755
--- a/draklive
+++ b/draklive
@@ -1157,6 +1157,25 @@ sub create_image {
     }
 }
 
+sub create_vm_image {
+    my ($live) = @_;
+
+    if (!$live->{media}->get_media_setting('image')) {
+        warn "not implemented yet\n";
+        return;
+    }
+
+    my $master = get_disk_master_path($live);
+    if (!-f $master) {
+        warn "no master image, skipping\n";
+    }
+
+    my $vm_image = $master;
+    $vm_image =~ s/.img$/.vmdk/;
+
+    run_("qemu-img", "convert", "-O", "vmdk", $master, $vm_image);
+}
+
 sub get_rescue_files {
     my ($live, $rescue_opts, $extra_files) = @_;
     my $media_boot = $live->get_media_prefix('boot');
@@ -1474,12 +1493,13 @@ my @actions = (
     { name => 'loop', do => \&create_loopback_files },
     { name => 'master', do => \&create_master },
     { name => 'image', do => \&create_image },
+    { name => 'vm-image', do => \&create_vm_image },
     { name => 'replicator', do => \&create_replicator },
     { name => 'format', do => \&format_device },
     { name => 'record', do => \&record_master },
     { name => 'record-onthefly', do => \&record_onthefly },
 );
-my @all = qw(install boot loop master image replicator);
+my @all = qw(install boot loop master image vm-image replicator);
 
 die "you must be root to run this program\n" if $>;