X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=mclu_boot.ml;h=43ab049f6c3eaf2c6d427a3cc1ee6a08988b9bd2;hb=82f07dbeb68320d31497a49f33585ca0a839ea7a;hp=6927363ba8245a904ad3a221493eaaa7ce45c996;hpb=b29a837444aa5827b683bee5a7457fbb32305ae5;p=mclu.git

diff --git a/mclu_boot.ml b/mclu_boot.ml
index 6927363..43ab049 100644
--- a/mclu_boot.ml
+++ b/mclu_boot.ml
@@ -212,8 +212,11 @@ Try: `mclu on %s'\n" hostname hostname;
 " mac_addr network_model in
 
   let xml = xml ^ "\
+    <serial type='pty'>
+      <target port='0'/>
+    </serial>
     <console type='pty'>
-      <target type='virtio' port='0'/>
+      <target type='serial' port='0'/>
     </console>
     <input type='tablet' bus='usb'/>
     <input type='mouse' bus='ps2'/>
@@ -236,10 +239,19 @@ Try: `mclu on %s'\n" hostname hostname;
   );
   let cmd =
     (* XXX Don't hard-code network_bridge here. *)
-    sprintf "ssh root@%s LIBGUESTFS_BACKEND_SETTINGS=network_bridge=br0 %s build %s %s %s"
-      (quote hostname) remote_filename
-      (quote template_info.Template.base_image) (quote remote_image)
-      format in
+    sprintf "ssh root@%s \
+LIBGUESTFS_BACKEND_SETTINGS=network_bridge=br0 \
+base_image=%s \
+format=%s \
+name=%s \
+output=%s \
+%s build"
+      (quote hostname)
+      (quote template_info.Template.base_image) (* base_image *)
+      format (* format *)
+      name (* name *)
+      (quote remote_image) (* output *)
+      remote_filename in
   if verbose then printf "%s\n%!" cmd;
   if Sys.command cmd <> 0 then (
     eprintf "mclu: remote build failed\n";