CP-51489: Classify threads based on http requests.

For now, the thread executing `Xapi.server_init` and it's children are
classified as External. The only excception are http requests that come
through the smapi internally. If those contain the originator header
with the value set as "sm", the thread executing the request will be
classified as internal.

This represents the first phase of classifing xapi threads as internal
vs external.

Signed-off-by: Gabriel Buica <[email protected]>

Author: GabrielBuica

ocaml/libs/http-lib/dune

@@ -44,6 +44,7 @@
     http_lib
     ipaddr
     polly
+    tgroup
     threads.posix
     tracing
     uri

ocaml/libs/http-lib/http_svr.ml

@@ -560,7 +560,7 @@ let handle_connection ~header_read_timeout ~header_total_timeout
       read_request ?proxy_seen ~read_timeout ~total_timeout
         ~max_length:max_header_length ss
     in
-
+    Http.Request.with_originator_of req Tgroup.of_req_originator ;
     (* 2. now we attempt to process the request *)
     let finished =
       Option.fold ~none:true

ocaml/libs/tgroup/tgroup.ml

@@ -126,12 +126,6 @@ module Cgroup = struct
       with Invalid_argument _ -> raise Cgroups_not_initialized
     )
 
-  let init dir =
-    let () = Atomic.set cgroup_dir (Some dir) in
-    Group.all
-    |> List.map dir_of
-    |> List.iter (fun dir -> Xapi_stdext_unix.Unixext.mkdir_rec dir 0o755)
-
   let write_cur_tid_to_cgroup_file filename =
     try
       let perms = 0o640 in
@@ -163,6 +157,13 @@ module Cgroup = struct
 
   let set_cgroup creator =
     set_cur_cgroup ~originator:creator.Group.Creator.originator
+
+  let init dir =
+    let () = Atomic.set cgroup_dir (Some dir) in
+    Group.all
+    |> List.map dir_of
+    |> List.iter (fun dir -> Xapi_stdext_unix.Unixext.mkdir_rec dir 0o755) ;
+    set_cur_cgroup ~originator:Group.Originator.EXTERNAL
 end
 
 let of_originator originator =