Dal/Node: shows error if no bootstrap found

Author: baugr

src/bin_dal_node/daemon.ml

@@ -978,10 +978,19 @@ let run ~data_dir ~configuration_override =
 
   let cctxt = Rpc_context.make endpoint in
   let* dal_config = fetch_dal_config cctxt in
+  let points = points @ dal_config.bootstrap_peers in
+  let*! () =
+    if points = [] then Event.(emit config_error_no_bootstrap) ()
+    else Lwt.return_unit
+  in
   (* Resolve:
      - [points] from DAL node config file and CLI.
      - [dal_config.bootstrap_peers] from the L1 network config. *)
-  let* points = resolve (points @ dal_config.bootstrap_peers) in
+  let* points = resolve points in
+  let*! () =
+    if points = [] then Event.(emit resolved_bootstrap_no_points) ()
+    else Event.(emit resolved_bootstrap_points (List.length points))
+  in
   (* Create and start a GS worker *)
   let gs_worker =
     let rng =

src/bin_dal_node/event.ml

@@ -107,6 +107,31 @@ let retry_fetching_node_config_notice =
 let retry_fetching_node_config_warning =
   retry_fetching_node_config Internal_event.Warning "warning"
 
+let config_error_no_bootstrap =
+  declare_0
+    ~section
+    ~name:"config_error_no_bootstrap"
+    ~msg:
+      "no bootstrap peers found in the configuration file or network settings"
+    ~level:Error
+    ()
+
+let resolved_bootstrap_no_points =
+  declare_0
+    ~section
+    ~name:"resolved_bootstrap_no_points"
+    ~msg:"no bootstrap points could be resolved"
+    ~level:Error
+    ()
+
+let resolved_bootstrap_points =
+  declare_1
+    ~section
+    ~name:"resolved_bootstrap_points"
+    ~msg:"resolved {number} bootstrap points"
+    ~level:Notice
+    ("number", Data_encoding.int31)
+
 let fetched_config_success =
   declare_1
     ~section