Naturalmente, la carga de un archivo es HTTP POST
. Ahora primero escribamos una pieza de código Erlang que hace HTTP/1.1 POST with Ibrowse
.
%% Assumes Ibrowse application is in Code path
ensure_ibrowse()->
case whereis(ibrowse) of
undefined -> ibrowse:start();
_ -> ok
end.
post(Link,Data,Headers)->
ensure_ibrowse(),
try ibrowse:send_req(Link,Headers,post,Data) of
{ _, _, _,Result} ->
io:format("\n\tFile Uploaded. Return: ~p~n",[Result]);
EE -> {error,EE}
catch
XX:XX2 -> {error,XX,XX2}
end.
A partir de ahí, hagamos lo de Couch DB.
-define(Link,"http://localhost:5984/DBNAME/DOCID/Penguins?rev=LATEST_REVISION").
%% File_path must be a valid file !
upload_file(Full_file_path)->
case file:read_file(Full_file_path) of
{ok,Binary} ->
post(?Link,Binary,[{"Content-Type","image/jpeg"}]);
Error -> Error
end.
¡Ya lo tiene! Todo lo que necesita hacer es personalizar su Macro Link
para que se ajuste a la configuración DB de su sofá y listo.
Si el archivo es grande, podría necesitar ser enviado en trozos, en cuyo caso los encabezados incluirían algo similar a esto: '{" Content-Type "," multipart/form-data "}' –