mirror of
https://github.com/mirage/qubes-mirage-firewall.git
synced 2024-10-01 01:05:39 -04:00
2d78d47591
Co-Authored-By: Mindy Preston <yomimono@users.noreply.github.com> Co-Authored-By: Olle Jonsson <olle.jonsson@gmail.com> Co-Authored-By: hannes <hannes@mehnert.org> Co-Authored-By: cfcs <cfcs@users.noreply.github.com>
13 lines
594 B
OCaml
13 lines
594 B
OCaml
(* Copyright (C) 2015, Thomas Leonard <thomas.leonard@unikernel.com>
|
|
See the README file for details. *)
|
|
|
|
(** Handling client VMs. *)
|
|
|
|
val listen : (unit -> int64) ->
|
|
([ `host ] Domain_name.t -> (int32 * Dns.Rr_map.Ipv4_set.t, [> `Msg of string ]) result Lwt.t) ->
|
|
Qubes.DB.t -> Router.t -> 'a Lwt.t
|
|
(** [listen get_timestamp resolver db router] is a thread that watches for clients being added to and
|
|
removed from XenStore. Clients are connected to the client network and
|
|
packets are sent via [router]. We ensure the source IP address is correct
|
|
before routing a packet. *)
|