Display alarms

Author: gotthardp

doc/Troubleshooting.md

@@ -133,3 +133,16 @@ device a downlink shall be sent. You have two options:
 The problem is the Lorank8 proprietary message format. In your gateway config
 you likely have `stat_format` set to `idee_concise` or `idee_verbose`. You need
 to change `stat_format` to `semtech` to get this working.
+
+
+## Alarms
+
+Server alarms are indicated in the web-admin Dashboard.
+
+### system_memory_high_watermark
+
+This indicates that the system has less than 20% of free memory.
+
+### disk_almost_full
+
+This indicates there is less than 20% of free disk space.

priv/admin/admin.js

@@ -154,7 +154,8 @@ myApp.config(['NgAdminConfigurationProvider', function (nga) {
         nga.field('memory').label('Free Memory')
             .map(map_memstats),
         nga.field('disk').label('Free Disk')
-            .map(map_diskstats)
+            .map(map_diskstats),
+        nga.field('alarms', 'choices')
     ])
     .batchActions([]);
     // add to the admin application
@@ -749,7 +750,8 @@ myApp.config(['NgAdminConfigurationProvider', function (nga) {
                 nga.field('memory').label('Free Memory')
                     .map(map_memstats),
                 nga.field('disk').label('Free Disk')
-                    .map(map_diskstats)
+                    .map(map_diskstats),
+                nga.field('alarms', 'choices')
             ])
         )
         .addCollection(nga.collection(gateways)

src/lorawan_admin_servers.erl

@@ -31,7 +31,8 @@ get_stats(Req, State) ->
     {jsx:encode([[{node, node()},
         {modules, get_modules()},
         {memory, memsup:get_system_memory_data()},
-        {disk, get_disk_data()}]]), Req, State}.
+        {disk, get_disk_data()},
+        {alarms, get_alarms()}]]), Req, State}.
 
 get_modules() ->
     lists:map(
@@ -47,6 +48,13 @@ get_disk_data() ->
         end,
         disksup:get_disk_data()).
 
+get_alarms() ->
+    lists:map(
+        fun({Id, _Desc}) ->
+            Id
+        end,
+        alarm_handler:get_alarms()).
+
 resource_exists(Req, State) ->
     {true, Req, State}.