Logs_syslog_mirage (logs-syslog.Logs_syslog

module Udp : functor (C : Mirage_console.S) -> functor (CLOCK : Mirage_clock.PCLOCK) -> functor (STACK : Mirage_stack.V4) -> sig ... end

UDP syslog

module Tcp : functor (C : Mirage_console.S) -> functor (CLOCK : Mirage_clock.PCLOCK) -> functor (STACK : Mirage_stack.V4) -> sig ... end

TCP syslog

Example usage

To install a Mirage syslog reporter, sending via UDP to localhost, use the following snippet:

module Main (C : Mirage_console.S) (S : Mirage_stack.V4) (CLOCK : Mirage_clock.PCLOCK)
  module LU = Logs_syslog_mirage.Udp(C)(CLOCK)(S)

  let start c s _ =
    let ip = Ipaddr.V4.of_string_exn "127.0.0.1" in
    let r = LU.create c s ip ~hostname:"MirageOS.example" () in
    Logs.set_reporter r ;
    Lwt.return_unit
end

The TCP transport is very similar:

module Main (C : Mirage_console.S) (S : Mirage_stack.V4) (CLOCK : Mirage_clock.PCLOCK)
  module LT = Logs_syslog_mirage.Tcp(C)(CLOCK)(S)

  let start c s _ =
    let ip = Ipaddr.V4.of_string_exn "127.0.0.1" in
    LT.create c s ip ~hostname:"MirageOS.example" () >>= function
      | Ok r -> Logs.set_reporter r ; Lwt.return_unit
      | Error e -> Lwt.fail_invalid_arg e
end