A-M baby

Task/Hello-world-Web-server/Erlang/hello-world-web-server.erl

@@ -0,0 +1,28 @@
+-module(hello_world_server).
+
+-export([start/0, loop0/1]).
+
+-define(PORTNO, 8080).
+
+start() ->
+    start(?PORTNO).
+start(Pno) ->
+    spawn(?MODULE, loop0, [Pno]).
+
+loop0(Port) ->
+    case gen_tcp:listen(Port, [binary, {packet, 0}, {active, false}]) of
+	{ok, LSock} ->
+	    loop(LSock);
+	_ ->
+	    stop
+    end.
+
+loop(Listen) ->
+    case gen_tcp:accept(Listen) of
+	{ok, S} ->
+	    gen_tcp:send(S, io_lib:format("Goodbye, World!~n", [])),
+	    gen_tcp:close(S),
+	    loop(Listen);
+	_ ->
+	    loop(Listen)
+    end.