From c01e3f24a5e7153805524068e0365a0ee623710e Mon Sep 17 00:00:00 2001
From: Badlop <badlop@process-one.net>
Date: Tue, 5 Jan 2016 12:29:13 +0100
Subject: [PATCH] Error converting times in mod_fail2ban (#889)

---
 src/mod_fail2ban.erl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/mod_fail2ban.erl b/src/mod_fail2ban.erl
index 523cbb3f9..394a7186f 100644
--- a/src/mod_fail2ban.erl
+++ b/src/mod_fail2ban.erl
@@ -83,7 +83,7 @@ check_bl_c2s(_Acc, Addr, Lang) ->
 		true ->
 		    IP = jlib:ip_to_list(Addr),
 		    UnbanDate = format_date(
-				    calendar:now_to_universal_time(TS)),
+				    calendar:now_to_universal_time(seconds_to_now(TS))),
 		    LogReason = io_lib:fwrite(
 				  "Too many (~p) failed authentications "
 				  "from this IP address (~s). The address "
@@ -179,6 +179,9 @@ is_loaded_at_other_hosts(Host) ->
 	      gen_mod:is_loaded(VHost, ?MODULE)
       end, ?MYHOSTS).
 
+seconds_to_now(Secs) ->
+    {Secs div 1000000, Secs rem 1000000, 0}.
+
 format_date({{Year, Month, Day}, {Hour, Minute, Second}}) ->
     io_lib:format("~2..0w:~2..0w:~2..0w ~2..0w.~2..0w.~4..0w",
 		  [Hour, Minute, Second, Day, Month, Year]).