From 58a623778f53d9d5b747c24d37c1d9aa2a3c8796 Mon Sep 17 00:00:00 2001
From: Badlop <badlop@process-one.net>
Date: Wed, 19 May 2021 14:51:03 +0200
Subject: [PATCH] Show uptime date in WebAdmin, it's easier to understand that
 uptime seconds

---
 src/ejabberd_web_admin.erl | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/src/ejabberd_web_admin.erl b/src/ejabberd_web_admin.erl
index 543cd28e5..341db47de 100644
--- a/src/ejabberd_web_admin.erl
+++ b/src/ejabberd_web_admin.erl
@@ -1354,6 +1354,7 @@ get_node(global, Node, [<<"stats">>], _Query, Lang) ->
 		      [wall_clock]),
     UpTimeS = (str:format("~.3f",
                                            [element(1, UpTime) / 1000])),
+    UpTimeDate = uptime_date(Node),
     CPUTime = ejabberd_cluster:call(Node, erlang, statistics, [runtime]),
     CPUTimeS = (str:format("~.3f",
                                             [element(1, CPUTime) / 1000])),
@@ -1374,6 +1375,10 @@ get_node(global, Node, [<<"stats">>], _Query, Lang) ->
 		    [?XCT(<<"td">>, ?T("Uptime:")),
 		     ?XAC(<<"td">>, [{<<"class">>, <<"alignright">>}],
 			  UpTimeS)]),
+		?XE(<<"tr">>,
+		    [?X(<<"td">>),
+		     ?XAC(<<"td">>, [{<<"class">>, <<"alignright">>}],
+			  UpTimeDate)]),
 		?XE(<<"tr">>,
 		    [?XCT(<<"td">>, ?T("CPU Time:")),
 		     ?XAC(<<"td">>, [{<<"class">>, <<"alignright">>}],
@@ -1468,6 +1473,16 @@ get_node(Host, Node, NPath, Query, Lang) ->
       _ -> Res
     end.
 
+uptime_date(Node) ->
+    Localtime = ejabberd_cluster:call(Node, erlang, localtime, []),
+    Now = calendar:datetime_to_gregorian_seconds(Localtime),
+    {Wall, _} = ejabberd_cluster:call(Node, erlang, statistics, [wall_clock]),
+    LastRestart = Now - (Wall div 1000),
+    {{Year, Month, Day}, {Hour, Minute, Second}} =
+        calendar:gregorian_seconds_to_datetime(LastRestart),
+    str:format("~w-~.2.0w-~.2.0w ~.2.0w:~.2.0w:~.2.0w",
+               [Year, Month, Day, Hour, Minute, Second]).
+
 %%%==================================
 %%%% node parse