);
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";