External configuration and supervisor child modules

apps/log_monitor/src/coordinator.erl

@@ -13,20 +13,23 @@ init([]) ->
                      id => mailer,
                      start => {mailer, start_link, []},
                      restart => permanent,
-                     shutdown => 5000
+                     shutdown => 5000,
+                     modules => [mailer]
                    },
                   #{
                      id => logfiles_sup,
                      start => {logfiles_sup, start_link, []},
                      restart => permanent,
                      type => supervisor,
-                     shutdown => 5000
+                     shutdown => 5000,
+                     modules => [logfiles_sup]
                    },
                   #{
                      id => config,
                      start => {config, start_link, []},
                      restart => permanent,
-                     shutdown => 5000
+                     shutdown => 5000,
+                     modules => [config]
                    }
                  ],
     {ok, {SupFlags, ChildSpecs}}.

apps/log_monitor/src/log_sup.erl

@@ -13,12 +13,14 @@ init([File, ErrorRegex]) ->
                      id => gatherer,
                      start => {gatherer, start_link, [File, ErrorRegex]},
                      restart => permanent,
-                     shutdown => 5000
+                     shutdown => 5000,
+                     modules => [gatherer]
                    },
                   #{
                      id => watcher,
                      start => {watcher, start_link, [self(), File]},
                      restart => permanent,
-                     shutdown => 5000
+                     shutdown => 5000,
+                     modules => [watcher]
                    }],
     {ok, {SupFlags, ChildSpecs}}.

apps/log_monitor/src/logfiles_sup.erl

@@ -21,10 +21,11 @@ add_child(Args = [File, _ErrorRegex]) ->
     supervisor:start_child(
       ?MODULE,
       #{
-        id => File,
+         id => File,
-        start => {log_sup, start_link, Args},
+         start => {log_sup, start_link, Args},
-        restart => temporary,
+         restart => temporary,
-        shutdown => 5000
+         shutdown => 5000,
+         modules => [log_sup]
        }
      ).
 

apps/log_monitor/src/mailer.erl

@@ -34,12 +34,12 @@ code_change(_OldVsn, State, _Extra) ->
 
 send_email(File, Text) ->
     {ok, EmailConfig} = application:get_env(log_monitor, email_config),
-    Sender = proplists:get_value(sender, EmailConfig, "log@monitor.com"),
+    Sender = proplists:get_value(sender, EmailConfig),
     DefaultReceiver = proplists:get_value(default_receiver, EmailConfig),
-    Relay = proplists:get_value(relay, EmailConfig),
+    Connection = proplists:get_value(connection, EmailConfig),
-    Username = proplists:get_value(username, EmailConfig),
-    Password = proplists:get_value(password, EmailConfig),
     error_logger:info_report("Sending email for file ~s with text: ~n~s~n", [File, Text]),
-    gen_smtp_client:send_blocking({Sender, [DefaultReceiver],
+    gen_smtp_client:send_blocking(
-                          io_lib:format("Subject: Error notification\r\nFrom: Fabio\r\n\r\nLogfile: ~s~nError: ~n~s~n", [File, Text])},
+      {Sender, [DefaultReceiver],
-                         [{relay, Relay}, {username, Username}, {password, Password}]).
+       io_lib:format("Subject: Error notification\r\nFrom: Fabio\r\n\r\nLogfile: ~s~nError: ~n~s~n", [File, Text])},
+      Connection
+     ).

config/log_monitor.config

@@ -0,0 +1,20 @@
+[
+  { log_monitor, 
+    [
+      %% File where the list of monitored log files is stored.
+      %% WARNING: If you leave it inside /tmp, every time the node is restarted the log files will be lost.
+      {storage, "/tmp/logfiles"},
+      {email_config,
+        [
+          {sender, "log@monitor.com"},
+          {default_receiver, "salvini.fabio001@gmail.com"},
+          {connection, [
+            {relay, "smtp.fabiosalvinii.com"},
+            {username, "salvini.fabio001@gmail.com"},
+            {password, ""}]
+          }
+        ]
+      }
+    ]
+  }
+].

config/sys.config

@@ -1,16 +1,4 @@
 [
-  { log_monitor, 
+  { log_monitor, []
-    [
+  }, "/home/fsalvini/gitRepos/log_monitor/config/log_monitor.config"
-      {storage, "/tmp/logfiles"},
-      {email_config,
-        [
-          {sender, "me@example.com"},
-          {default_receiver, "salvini.fabio001@gmail.com"},
-          {relay, "smtp.fabiosalvinii.com"},
-          {username, "salvini.fabio001@gmail.com"},
-          {password, ""}
-        ]
-      }
-    ]
-  }
 ].