Report TLS errors

STPKITT · Mar 20, 2015 · 51508a9 · 51508a9
1 parent 7976d3e
commit 51508a9
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/src/ejabberd_receiver.erl b/src/ejabberd_receiver.erl
@@ -243,7 +243,13 @@ handle_info({Tag, _TCPSocket, Data},
 	    {ok, TLSData} ->
 		{noreply, process_data(TLSData, State),
 		 ?HIBERNATE_TIMEOUT};
-	    {error, _Reason} -> {stop, normal, State}
+	    {error, Reason} ->
+		  if is_binary(Reason) ->
+			  ?ERROR_MSG("TLS error = ~s", [Reason]);
+		     true ->
+			  ok
+		  end,
+		  {stop, normal, State}
 	  end;
       ezlib ->
 	  case ezlib:recv_data(Socket, Data) of