From 8e795da00d1d1b666e526c6f5b1c2c96d67a7ac2 Mon Sep 17 00:00:00 2001
From: Ulf Wiger <ulf@wiger.net>
Date: Sat, 25 Oct 2025 09:32:43 +0200
Subject: [PATCH] Raise timeouts and restart allowances

---
 ebin/gmhive_client.app      | 2 +-
 src/gmhc_app.erl            | 2 +-
 src/gmhc_connectors_sup.erl | 4 ++--
 src/gmhc_handler.erl        | 2 +-
 src/gmhc_sup.erl            | 4 ++--
 zomp.meta                   | 4 ++--
 6 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/ebin/gmhive_client.app b/ebin/gmhive_client.app
index f85a5f1..66aad66 100644
--- a/ebin/gmhive_client.app
+++ b/ebin/gmhive_client.app
@@ -1,6 +1,6 @@
 {application,gmhive_client,
              [{description,"Gajumaru Hive Client"},
-              {vsn,"0.9.2"},
+              {vsn,"0.9.3"},
               {registered,[]},
               {applications,[kernel,stdlib,sasl,gproc,inets,ssl,enoise,
                              gmconfig,gmhive_protocol,gmhive_worker]},
diff --git a/src/gmhc_app.erl b/src/gmhc_app.erl
index 51fe8f9..c26d92d 100644
--- a/src/gmhc_app.erl
+++ b/src/gmhc_app.erl
@@ -21,7 +21,7 @@ start(Opts) ->
     _ = lists:foreach(fun({K, V}) ->
                               application:set_env(gmhive_client, K, V)
                       end, Opts),
-    application:ensure_all_started(gmhive_client).
+    application:ensure_all_started(gmhive_client, permanent).
 
 start(_StartType, _StartArgs) ->
     set_things_up(),
diff --git a/src/gmhc_connectors_sup.erl b/src/gmhc_connectors_sup.erl
index 9078c2c..e30f33b 100644
--- a/src/gmhc_connectors_sup.erl
+++ b/src/gmhc_connectors_sup.erl
@@ -49,8 +49,8 @@ add_restart_info(Id, Opts) ->
 init([]) ->
     Mod = gmhc_connector,
     SupFlags = #{ strategy => simple_one_for_one
-                , intensity => 3
-                , period => 10 },
+                , intensity => 5
+                , period => 60 },
     ChildSpecs = [ #{ id => Mod
                     , start => {Mod, start_link, []}
                     , type => worker
diff --git a/src/gmhc_handler.erl b/src/gmhc_handler.erl
index f32bcd9..79ed001 100644
--- a/src/gmhc_handler.erl
+++ b/src/gmhc_handler.erl
@@ -28,7 +28,7 @@
 
 -record(st, {pools = [], opts = #{}}).
 
--define(CALL_TIMEOUT, 5000).
+-define(CALL_TIMEOUT, 10_000).
 
 -include_lib("kernel/include/logger.hrl").
 
diff --git a/src/gmhc_sup.erl b/src/gmhc_sup.erl
index d1e27a4..e419c5a 100644
--- a/src/gmhc_sup.erl
+++ b/src/gmhc_sup.erl
@@ -20,8 +20,8 @@ init([]) ->
                  , worker(gmhc_handler)
                  , supervisor(gmhc_connectors_sup) ],
     SupFlags = #{ strategy      => rest_for_one
-                , intensity     => 1
-                , period        => 5
+                , intensity     => 5             %% We really want the hive client to sort itself out
+                , period        => 5*60          %% Timemout issues can happen infrequently
                 , auto_shutdown => never },
     {ok, {SupFlags, ChildSpecs}}.
 
diff --git a/zomp.meta b/zomp.meta
index 89a3629..e4444ba 100644
--- a/zomp.meta
+++ b/zomp.meta
@@ -2,9 +2,9 @@
 {type,app}.
 {modules,[]}.
 {prefix,"gmhc"}.
-{desc,"Gajumaru Hive Client"}.
 {author,"Ulf Wiger, QPQ AG"}.
-{package_id,{"uwiger","gmhive_client",{0,9,2}}}.
+{desc,"Gajumaru Hive Client"}.
+{package_id,{"uwiger","gmhive_client",{0,9,3}}}.
 {deps,[{"uwiger","gmhive_protocol",{0,2,0}},
        {"uwiger","gmhive_worker",{0,5,1}},
        {"uwiger","gmcuckoo",{1,2,4}},