Data commit

Task/HTTPS/Erlang/https-1.erl

@@ -0,0 +1,10 @@
+-module(main).
+-export([main/1]).
+
+main([Url|[]]) ->
+   inets:start(),
+   ssl:start(),
+   case http:request(get, {URL, []}, [{ssl,[{verify,0}]}], []) of
+       {ok, {_V, _H, Body}} -> io:fwrite("~p~n",[Body]);
+       {error, Res} -> io:fwrite("~p~n", [Res])
+   end.

Task/HTTPS/Erlang/https-2.erl

@@ -0,0 +1,12 @@
+-module(main).
+-export([main/1]).
+
+main([Url|[]]) ->
+   inets:start(),
+   ssl:start(),
+   http:request(get, {Url, [] }, [{ssl,[{verify,0}]}], [{sync, false}]),
+   receive
+       {http, {_ReqId, Res}} -> io:fwrite("~p~n",[Res]);
+       _Any -> io:fwrite("Error: ~p~n",[_Any])
+       after 10000 -> io:fwrite("Timed out.~n",[])
+   end.

Task/HTTPS/Erlang/https-3.erl

@@ -0,0 +1 @@
+|escript ./req.erl https://sourceforge.net/