aboutsummaryrefslogtreecommitdiffstats
path: root/src/ranch_ssl.erl
diff options
context:
space:
mode:
Diffstat (limited to 'src/ranch_ssl.erl')
-rw-r--r--src/ranch_ssl.erl29
1 files changed, 29 insertions, 0 deletions
diff --git a/src/ranch_ssl.erl b/src/ranch_ssl.erl
index 4bbc3ce..734de21 100644
--- a/src/ranch_ssl.erl
+++ b/src/ranch_ssl.erl
@@ -32,6 +32,7 @@
-export([connect/3]).
-export([recv/3]).
-export([send/2]).
+-export([sendfile/2]).
-export([setopts/2]).
-export([controlling_process/2]).
-export([peername/1]).
@@ -138,6 +139,34 @@ recv(Socket, Length, Timeout) ->
send(Socket, Packet) ->
ssl:send(Socket, Packet).
+%% @doc Send a file on a socket.
+%%
+%% Unlike with TCP, no syscall can be used here, so sending files
+%% through SSL will be much slower in comparison.
+%%
+%% @see file:sendfile/2
+-spec sendfile(ssl:sslsocket(), file:name())
+ -> {ok, non_neg_integer()} | {error, atom()}.
+sendfile(Socket, Filepath) ->
+ {ok, IoDevice} = file:open(Filepath, [read, binary, raw]),
+ sendfile(Socket, IoDevice, 0).
+
+-spec sendfile(ssl:sslsocket(), file:io_device(), non_neg_integer())
+ -> {ok, non_neg_integer()} | {error, atom()}.
+sendfile(Socket, IoDevice, Sent) ->
+ case file:read(IoDevice, 16#1FFF) of
+ eof ->
+ ok = file:close(IoDevice),
+ {ok, Sent};
+ {ok, Bin} ->
+ case send(Socket, Bin) of
+ ok ->
+ sendfile(Socket, IoDevice, Sent + byte_size(Bin));
+ {error, Reason} ->
+ {error, Reason}
+ end
+ end.
+
%% @doc Set options on the given socket.
%% @see ssl:setopts/2
%% @todo Probably filter Opts?