Data commit

Task/HTTP/Erlang/http-1.erl

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

Task/HTTP/Erlang/http-2.erl

@@ -0,0 +1,11 @@
+-module(main).
+-export([main/1]).
+
+main([Url|[]]) ->
+   inets:start(),
+   http:request(get, {Url, [] }, [], [{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/HTTP/Erlang/http-3.erl

@@ -0,0 +1 @@
+|escript ./req.erl http://www.rosettacode.org