From 159529d539848fe57c7a49f0cfc01f63516d6bf1 Mon Sep 17 00:00:00 2001
From: Badlop <badlop@process-one.net>
Date: Wed, 5 Jan 2011 18:38:01 +0100
Subject: [PATCH] Add start time information in ejabberd log

One way to print that information is to configure in ejabberd.cfg
  {loglevel, {4, [{ejabberd_app, debug}]}}.
---
 src/ejabberd_app.erl | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/src/ejabberd_app.erl b/src/ejabberd_app.erl
index a81cba482..090dbb403 100644
--- a/src/ejabberd_app.erl
+++ b/src/ejabberd_app.erl
@@ -66,6 +66,7 @@ start(normal, _Args) ->
     %ejabberd_debug:eprof_start(),
     %ejabberd_debug:fprof_start(),
     maybe_add_nameservers(),
+    print_start_debug_info(),
     start_modules(),
     ejabberd_cluster:announce(),
     ejabberd_node_groups:start(),
@@ -237,3 +238,11 @@ delete_pid_file() ->
 	PidFilename ->
 	    file:delete(PidFilename)
     end.
+
+print_start_debug_info() ->
+    ?DEBUG("Inet DB RC:~n~p", [inet_db:get_rc()]),
+    ?DEBUG("Mnesia database:~n~p", [mnesia:system_info(all)]),
+    ?DEBUG("Mnesia tables:~n~p",
+	   [ [{Table, mnesia:table_info(Table, all)} ||
+		 Table <- lists:sort(mnesia:system_info(tables))] ]),
+    ok.