Subject: [PATCH] Add ability to set a command for firstboot and not only a script

--- sysprep/sysprep_operation_firstboot.ml | 21 ++++++++++++--------- 1 file changed, 12 insertions(+), 9 deletions(-) diff --git a/sysprep/sysprep_operation_firstboot.ml b/sysprep/sysprep_operation_firstboot.ml index 3473c47..6f61d15 100644 --- a/sysprep/sysprep_operation_firstboot.ml +++ b/sysprep/sysprep_operation_firstboot.ml @@ -24,20 +24,23 @@ open Common_gettext.Gettext module G = Guestfs -let files = ref [] +let params = ref [] let firstboot_perform g root = - (* Read the files and add them using the {!Firstboot} module. *) - let files = List.rev !files in + (* Read command or files and add them using the {!Firstboot} module. *) + let params = List.rev !params in let i = ref 0 in List.iter ( - fun filename -> + fun param-> incr i; let i = !i in - let content = read_whole_file filename in - Firstboot.add_firstboot_script g root i content - ) files; - if files <> [] then [ `Created_files ] else [] + if Sys.file_exists param then