From 90cc81579e290c6f1c08e4a338a3ca3997a90182 Mon Sep 17 00:00:00 2001
From: bitbashing <bitbashing@gmail.com>
Date: Tue, 6 Dec 2016 19:34:29 -0800
Subject: [PATCH] HELP-26267: set a default recv_timeout to address put
 attachement 201 timeout errors (#2910)

---
 core/kazoo_couch/src/kz_couch_util.erl | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/core/kazoo_couch/src/kz_couch_util.erl b/core/kazoo_couch/src/kz_couch_util.erl
index abd978f6656..fbe2a924691 100644
--- a/core/kazoo_couch/src/kz_couch_util.erl
+++ b/core/kazoo_couch/src/kz_couch_util.erl
@@ -104,9 +104,17 @@ maybe_add_auth(User, Pass, Options) ->
 check_options(Options) ->
     Routines = [fun convert_options/1
                ,fun filter_options/1
+               ,fun maybe_default_recv_timeout/1
                ],
     lists:foldl(fun(Fun, Opts) -> Fun(Opts) end, Options, Routines).
 
+-spec maybe_default_recv_timeout(kz_proplist()) -> kz_proplist().
+maybe_default_recv_timeout(Options) ->
+    case props:get_value('recv_timeout', Options) of
+        'undefined' -> [{'recv_timeout', 20000} | Options];
+         _Else -> Options
+    end.
+
 filter_options(Options) ->
     [ KV || {K, _} = KV <- Options, not lists:member(K, ?NO_OPTIONS)].