Ilya Averyanov пре 3 година
родитељ
комит
7eeba32619

+ 1 - 1
apps/emqx_ft/src/emqx_ft.erl

@@ -82,7 +82,7 @@
 -type segment() :: {offset(), _Content :: binary()}.
 -type segment() :: {offset(), _Content :: binary()}.
 
 
 -define(STORE_SEGMENT_TIMEOUT, 10000).
 -define(STORE_SEGMENT_TIMEOUT, 10000).
--define(ASSEMBLE_TIMEOUT, 60000).
+-define(ASSEMBLE_TIMEOUT, 300000).
 
 
 %%--------------------------------------------------------------------
 %%--------------------------------------------------------------------
 %% API for app
 %% API for app

+ 5 - 4
apps/emqx_s3/src/emqx_s3_client.erl

@@ -47,7 +47,8 @@
     upload_options := upload_options(),
     upload_options := upload_options(),
     bucket := string(),
     bucket := string(),
     headers := erlcloud_headers(),
     headers := erlcloud_headers(),
-    url_expire_time := non_neg_integer()
+    url_expire_time := non_neg_integer(),
+    pool_type := pool_type()
 }.
 }.
 
 
 -type config() :: #{
 -type config() :: #{
@@ -60,7 +61,7 @@
     url_expire_time := pos_integer(),
     url_expire_time := pos_integer(),
     access_key_id := string() | undefined,
     access_key_id := string() | undefined,
     secret_access_key := string() | undefined,
     secret_access_key := string() | undefined,
-    http_pool := ehttpc:pool_name(),
+    http_pool := http_pool(),
     pool_type := pool_type(),
     pool_type := pool_type(),
     request_timeout := timeout() | undefined,
     request_timeout := timeout() | undefined,
     max_retries := non_neg_integer() | undefined
     max_retries := non_neg_integer() | undefined
@@ -268,7 +269,7 @@ request_fun(HttpPool, PoolType, MaxRetries) ->
 ehttpc_request(HttpPool, Method, Request, Timeout, MaxRetries) ->
 ehttpc_request(HttpPool, Method, Request, Timeout, MaxRetries) ->
     try timer:tc(fun() -> ehttpc:request(HttpPool, Method, Request, Timeout, MaxRetries) end) of
     try timer:tc(fun() -> ehttpc:request(HttpPool, Method, Request, Timeout, MaxRetries) end) of
         {Time, {ok, StatusCode, RespHeaders}} ->
         {Time, {ok, StatusCode, RespHeaders}} ->
-            ?SLOG(debug, #{
+            ?SLOG(info, #{
                 msg => "s3_ehttpc_request_ok",
                 msg => "s3_ehttpc_request_ok",
                 status_code => StatusCode,
                 status_code => StatusCode,
                 headers => RespHeaders,
                 headers => RespHeaders,
@@ -278,7 +279,7 @@ ehttpc_request(HttpPool, Method, Request, Timeout, MaxRetries) ->
                 {StatusCode, undefined}, headers_ehttpc_to_erlcloud_response(RespHeaders), undefined
                 {StatusCode, undefined}, headers_ehttpc_to_erlcloud_response(RespHeaders), undefined
             }};
             }};
         {Time, {ok, StatusCode, RespHeaders, RespBody}} ->
         {Time, {ok, StatusCode, RespHeaders, RespBody}} ->
-            ?SLOG(debug, #{
+            ?SLOG(info, #{
                 msg => "s3_ehttpc_request_ok",
                 msg => "s3_ehttpc_request_ok",
                 status_code => StatusCode,
                 status_code => StatusCode,
                 headers => RespHeaders,
                 headers => RespHeaders,

+ 2 - 2
apps/emqx_s3/src/emqx_s3_profile_conf.erl

@@ -337,7 +337,7 @@ http_config(
                 SSLOpts = emqx_tls_lib:to_client_opts(maps:get(ssl, HTTPOpts)),
                 SSLOpts = emqx_tls_lib:to_client_opts(maps:get(ssl, HTTPOpts)),
                 {tls, SSLOpts}
                 {tls, SSLOpts}
         end,
         end,
-    NTransportOpts = emqx_misc:ipv6_probe(TransportOpts),
+    % NTransportOpts = emqx_misc:ipv6_probe(TransportOpts),
     [
     [
         {host, Host},
         {host, Host},
         {port, Port},
         {port, Port},
@@ -346,7 +346,7 @@ http_config(
         {pool_type, PoolType},
         {pool_type, PoolType},
         {pool_size, PoolSize},
         {pool_size, PoolSize},
         {transport, Transport},
         {transport, Transport},
-        {transport_opts, NTransportOpts},
+        {transport_opts, TransportOpts},
         {enable_pipelining, EnablePipelining}
         {enable_pipelining, EnablePipelining}
     ].
     ].