package dns-resolver

  1. Overview
  2. Docs
DNS resolver business logic

Install 

dune-project
 Dependency

github.com Readme Changelog BSD-2-Clause License Edit opam file Versions (10)

Authors

  1. H
    Hannes Mehnert <hannes@mehnert.org>

Maintainers

  1. T
    team AT robur dot coop

Sources

dns-10.2.6.tbz
sha256=4c3df263dd4596f8563615fe3644e2fad5978b66a268c3ef352083d7fee0ffc8
sha512=1df298223c753092ae8756d5cbd4c1788f716bb6393fa3e9e484ba5acb9bc6a4e394e654785c4e80330eeea3b2809598704d4b043dad2829bc77d14857ebb295

doc/src/dns-resolver.shared/dns_resolver_metrics.ml.html

Source file dns_resolver_metrics.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
let resolver_stats =
  let f = function
    | `Error -> "error"
    | `Queries -> "queries"
    | `Blocked -> "blocked"
    | `Clients -> "clients"
  in
  let src = Dns.counter_metrics ~f "dns-resolver" in
  (fun r -> Metrics.add src (fun x -> x) (fun d -> d r))

let response_metric =
  let store = ref (0L, 0L) in
  let data dp =
    store := (Int64.succ (fst !store), Int64.add dp (snd !store));
    Metrics.Data.v [ Metrics.uint "mean response" (Duration.to_ms (Int64.div (snd !store) (fst !store))) ]
  in
  let src = Metrics.Src.v ~tags:Metrics.Tags.[] ~data "dns-resolver-timings" in
  (fun dp -> Metrics.add src (fun x -> x) (fun d -> d dp))