- | Shell.Subprocess_error l ->
- let msgs =
- List.map
- (fun (cmd, code) ->
- sprintf "Command '%s' returned %s" cmd (string_of_proc_status code))
- l
- in
- let msg = String.concat ", " msgs in
- log_failure msg;
- return_html_internal_error ("subprocess_error", msg)
- (String.concat "<br />\n" msgs) outchan