add backoff flag : default true

smarkets · Oct 14, 2011 · f7a7953 · f7a7953
1 parent 4f7f6d3
commit f7a7953
Showing 1 changed file with 7 additions and 3 deletions.
diff --git a/src/smk_client.erl b/src/smk_client.erl
@@ -25,6 +25,7 @@
 -type opt() ::
     {username, binary()}
   | {password, binary()}
+  | {cookie, binary()}
   | {callback, fun()}.
 -type opts() :: list(opt()).
 -type send_response() ::
@@ -208,8 +209,11 @@ init([Cache, Opts]) ->
       lager:error("callback not defined"),
       {stop, normal};
     Callback ->
-      Backoff = backoff(T),
+      Backoff =
-      lager:info("connection backoff ~p, cache ~p", [Backoff, Cache]),
+        case proplists:get_value(backoff, Opts, true) of
+          true  -> backoff(T);
+          false -> 0
+        end,
       timer:send_after(Backoff, {connect, Opts}),
       {ok, awaiting_session, #s{
             session=Session,
@@ -274,7 +278,7 @@ handle_info({connect, Opts}, StateName, #s{session=Session, cache=Cache, name=Na
       {next_state, StateName, NewState};
     Error ->
       lager:log(error, self(), "Connection error ~p", [Error]),
-      {stop, normal, State}
+      {stop, Error, State}
   end;
 
 handle_info({heartbeat_timeout, _}, awaiting_session = StateName, State) ->