Skip to content
Browse files

Only report that gen_smtp is listening when it actually is doing that.

  • Loading branch information...
1 parent 156b52c commit 07caace681048901f63a693a9f212ec2475c8a76 @mmzeeman mmzeeman committed Mar 14, 2013
Showing with 2 additions and 1 deletion.
  1. +2 −1 src/gen_smtp_server.erl
3 src/gen_smtp_server.erl
@@ -137,16 +137,17 @@ init([Module, Configurations]) ->
Protocol = proplists:get_value(protocol, NewConfig),
SessionOptions = proplists:get_value(sessionoptions, NewConfig, []),
error_logger:info_msg("~p starting at ~p~n", [?MODULE, node()]),
- error_logger:info_msg("~p listening on ~p:~p via ~p~n", [?MODULE, IP, Port, Protocol]),
process_flag(trap_exit, true),
ListenOptions = [binary, {ip, IP}, Family],
case socket:listen(Protocol, Port, ListenOptions) of
{ok, ListenSocket} -> %%Create first accepting process
+ error_logger:info_msg("~p listening on ~p:~p via ~p~n", [?MODULE, IP, Port, Protocol]),
#listener{port = socket:extract_port_from_socket(ListenSocket),
hostname = Hostname, sessionoptions = SessionOptions,
socket = ListenSocket, listenoptions = ListenOptions};
{error, Reason} ->
+ error_logger:error_msg("~p could not listen on ~p:~p. Error: ~p~n", [?MODULE, IP, Port, Reason]),
exit({init, Reason})
end || Config <- Configurations],

0 comments on commit 07caace

Please sign in to comment.
Something went wrong with that request. Please try again.