34 lines
1.4 KiB
OCaml
34 lines
1.4 KiB
OCaml
open Utilities.Aliases
|
|
type schema = Schema.schema
|
|
|
|
let head_of_su_command command_line =
|
|
match command_line with
|
|
| head :: _ -> head
|
|
| [] -> raise $ Malformed_source "su_command is set to an empty value"
|
|
|
|
let elevate_wrapped (schema: schema) (command: string list): string list =
|
|
let su_command = schema.input.configuration.main.su_command in
|
|
match schema.input.configuration.main.su_command_quoted with
|
|
| true|Default -> List.concat [ su_command; [(String.concat " " command)]; ]
|
|
| false -> List.concat [ su_command; ["--"]; (command); ]
|
|
|
|
let is_executable (schema: schema): schema =
|
|
let command = head_of_su_command
|
|
schema.input.configuration.main.su_command in
|
|
let path = Reader.read [||] ("which " ^ command) in
|
|
try Unix.access path.output [Unix.X_OK]; schema
|
|
with Unix.Unix_error _ -> elog "";
|
|
{
|
|
schema with
|
|
output =
|
|
{
|
|
schema.output with
|
|
main =
|
|
"The configured super user command " ^ command ^
|
|
" either could not be found at path '" ^ path.output ^
|
|
"' or you lack permissions to execute it ("
|
|
^ path.status ^ ", stderr: '" ^ path.error ^ "')\n"
|
|
};
|
|
meta = { schema.meta with status = 1; error_level = Fatal };
|
|
}
|
|
|