Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 additions and 0 deletions
--- a/Task/Hello-world-Web-server/00-META.yaml
+++ b/Task/Hello-world-Web-server/00-META.yaml
@ -0,0 +1,5 @@
+---
+category:
+- Web
+from: http://rosettacode.org/wiki/Hello_world/Web_server
+note: Networking and Web Interaction
--- a/Task/Hello-world-Web-server/00-TASK.txt
+++ b/Task/Hello-world-Web-server/00-TASK.txt
@ -0,0 +1,16 @@
+The browser is the new [[GUI]] !
+
+
+;Task:
+Serve our standard text &nbsp; <big><big><code>Goodbye, World!</code></big></big> &nbsp; to &nbsp; http://localhost:8080/ &nbsp; so that it can be viewed with a web browser. 
+
+The provided solution must start or implement a server that accepts multiple client connections and serves text as requested.
+
+Note that starting a web browser or opening a new window with this URL 
+is not part of the task. 
+
+Additionally, it is permissible to serve the provided page as a plain text file (there is no requirement to serve properly formatted [[HTML]] here). 
+
+The browser will generally do the right thing with simple text like this.  
+<br><br>
+
--- a/Task/Hello-world-Web-server/ANT/hello-world-web-server-1.ant
+++ b/Task/Hello-world-Web-server/ANT/hello-world-web-server-1.ant
@ -0,0 +1 @@
+serv: httprun[8080; {"HTTP/1.0 200 OK\r\nContent-Type: text/plain\r\n\r\nGoodbye, World!"}]
--- a/Task/Hello-world-Web-server/ANT/hello-world-web-server-2.ant
+++ b/Task/Hello-world-Web-server/ANT/hello-world-web-server-2.ant
@ -0,0 +1,2 @@
+load["handlers.ant"]
+serv: httprun[8080; {httpwrap["Goodbye, World!"]}]
--- a/Task/Hello-world-Web-server/ANT/hello-world-web-server-3.ant
+++ b/Task/Hello-world-Web-server/ANT/hello-world-web-server-3.ant
@ -0,0 +1 @@
+kill[serv]
--- a/Task/Hello-world-Web-server/AWK/hello-world-web-server.awk
+++ b/Task/Hello-world-Web-server/AWK/hello-world-web-server.awk
@ -0,0 +1,15 @@
+#!/usr/bin/gawk -f
+     BEGIN {
+       RS = ORS = "\r\n"
+       HttpService = "/inet/tcp/8080/0/0"
+       Hello = "<HTML><HEAD>" \
+               "<TITLE>A Famous Greeting</TITLE></HEAD>" \
+               "<BODY><H1>Hello, world</H1></BODY></HTML>"
+       Len = length(Hello) + length(ORS)
+       print "HTTP/1.0 200 OK"          |& HttpService
+       print "Content-Length: " Len ORS |& HttpService
+       print Hello                      |& HttpService
+       while ((HttpService |& getline) > 0)
+          continue;
+       close(HttpService)
+     }
--- a/Task/Hello-world-Web-server/Ada/hello-world-web-server.ada
+++ b/Task/Hello-world-Web-server/Ada/hello-world-web-server.ada
@ -0,0 +1,19 @@
+with AWS; use AWS;
+with AWS.Response;
+with AWS.Server;
+with AWS.Status;
+with Ada.Text_IO; use Ada.Text_IO;
+procedure HelloHTTP is
+   function CB (Request : Status.Data) return Response.Data is
+      pragma Unreferenced (Request);
+   begin
+      return Response.Build ("text/html", "Hello world!");
+   end CB;
+   TheServer : Server.HTTP;
+   ch : Character;
+begin
+   Server.Start (TheServer, "Rosettacode",
+      Callback => CB'Unrestricted_Access, Port => 8080);
+   Put_Line ("Press any key to quit."); Get_Immediate (ch);
+   Server.Shutdown (TheServer);
+end HelloHTTP;
--- a/Task/Hello-world-Web-server/Aime/hello-world-web-server-1.aime
+++ b/Task/Hello-world-Web-server/Aime/hello-world-web-server-1.aime
@ -0,0 +1,34 @@
+void
+serve(dispatch w, file s, list colors)
+{
+    file i, o;
+    date d;
+
+    accept(i, o, s, 0);
+    f_(o, "HTTP/1.1 200 OK\n"
+"Content-Type: text/html; charset=UTF-8\n\n"
+"<!DOCTYPE html><html><head><title>Bye-bye baby bye-bye</title>"
+"<style>body { background-color: #111 }"
+"h1 { font-size:4cm; text-align: center; color: black;"
+" text-shadow: 0 0 2mm ", colors[drand(3)], "}</style></head>"
+"<body><h1>Goodbye, world!</h1></body></html>\n");
+
+    # chrome won't show the page if we close right away.  we'll close in 2s.
+    d.now;
+    d.offset(2, 0);
+    w_schedule(w, d, f_close, i);
+}
+
+
+integer
+main(void)
+{
+    dispatch w;
+    file s;
+
+    tcpip_listen(s, 8080, 0);
+    w_watch(w, s, serve, w, s, list("blue", "green", "red", "yellow"));
+    w_press(w);
+
+    return 0;
+}
--- a/Task/Hello-world-Web-server/Aime/hello-world-web-server-2.aime
+++ b/Task/Hello-world-Web-server/Aime/hello-world-web-server-2.aime
@ -0,0 +1,11 @@
+file i, o, s;
+
+tcpip_listen(s, 8080, 0);
+while (1) {
+    accept(i, o, s, 0);
+    f_(o, "HTTP/1.1 200 OK\n"
+"Content-Type: text/html; charset=UTF-8\n\n"
+"<!DOCTYPE html><html><head><title>baby bye-bye</title></head>"
+"<body><h1>Goodbye, world!</h1></body></html>\n");
+    f_flush(o);
+}
--- a/Task/Hello-world-Web-server/Amazing-Hopper/hello-world-web-server-1.hopper
+++ b/Task/Hello-world-Web-server/Amazing-Hopper/hello-world-web-server-1.hopper
@ -0,0 +1,26 @@
+// Hello world! mode Server
+
+#include <hopper.h>
+main:
+   fd=0,fdc=0,message=""
+
+   {"HTTP/1.1 200 OK\n","Content-Type: text/html; charset=UTF-8\n\n"}cat
+   {"<!DOCTYPE html><html><head><title>Bye-bye baby bye-bye</title>"},cat
+   {"<style>body { background-color: #111 },cat
+   {"h1 { font-size:4cm; text-align: center; color: black; text-shadow: 0 0 2mm red}</style>"}cat
+   {"</head><body><h1>Goodbye, world!</h1></body></html>\n"}cat,
+   mov(message)
+
+/* Open socket in localhost (by default) */
+/* Accept 5 conections (there are also 5 by default, if you put "any weá" there) */
+   {5,8080}socket (OPENTCPSRV), mov(fd)
+
+/* accept conection & send message */
+   accept(fd), mov(fdc)
+   {message},send(fdc)
+
+/* close all */
+   {fdc}socket(CLOSESOCK)
+   {fd}socket(CLOSESOCK)
+
+exit(0)
--- a/Task/Hello-world-Web-server/Amazing-Hopper/hello-world-web-server-2.hopper
+++ b/Task/Hello-world-Web-server/Amazing-Hopper/hello-world-web-server-2.hopper
@ -0,0 +1,32 @@
+// Hello world! mode Server: desde el navegador, escriba localhost:8080
+
+#include <hbasic.h>
+Begin
+   Declare as Numeric (fd,fdc)
+           as Alpha (message,HEAD,head,body,form,html)
+
+   Let ( HEAD := Cat$("HTTP/1.1 200 OK\n","Content-Type: text/html; charset=UTF-8\n\n") + ("<!DOCTYPE html>\n") )
+
+   ParsNormal$("title","","Bye-bye baby bye-bye")(head)
+   ParsNormal$("style","","body { background-color: #111 } h1 { font-size:4cm; text-align: center; color: black; text-shadow: 0 0 2mm red}")(head)
+   ParsNormal$("head","",head)(html)
+   ParsNormal$("h1","","Goodbye, world!")(body)
+   ParsNormal$("body","",body)(html)
+
+   ParsNormal$("html","",html)(form)
+   Let( form := Cat$(HEAD,form))
+
+   Let( message := Tran$(">\n<","><", form) )
+   Print( message, Newl)
+
+/* Open socket in localhost (by default) */
+   Let( fd := OpenServerTCP(3,8080) )
+
+/* accept conection & send message */
+   Let( fdc := Accept(fd) )
+   Send(message,fdc)
+
+/* close all */
+   CloseSocket(fdc)
+   CloseSocket(fd)
+End
--- a/Task/Hello-world-Web-server/Arturo/hello-world-web-server.arturo
+++ b/Task/Hello-world-Web-server/Arturo/hello-world-web-server.arturo
@ -0,0 +1 @@
+serve.port:8080 [ GET "/" -> "Goodbye, World!" ]
--- a/Task/Hello-world-Web-server/AutoIt/hello-world-web-server.autoit
+++ b/Task/Hello-world-Web-server/AutoIt/hello-world-web-server.autoit
@ -0,0 +1,17 @@
+TCPStartup()
+$socket = TCPListen("0.0.0.0",8080)
+$string = "Goodbye, World!"
+While 1
+   Do
+	  $newConnection = TCPAccept($socket)
+	  Sleep(1)
+   Until $newConnection <> -1
+   $content = TCPRecv($newConnection, 2048)
+   If StringLen($content) > 0 Then
+	  TCPSend($newConnection, Binary("HTTP/1.1 200 OK" & @CRLF))
+	  TCPSend($newConnection, Binary("Content-Type: text/html" & @CRLF))
+	  TCPSend($newConnection, Binary("Content-Length: "& BinaryLen($string) & @CRLF & @CRLF))
+	  TCPSend($newConnection, $string)
+   EndIf
+   TCPCloseSocket($newConnection)
+WEnd
--- a/Task/Hello-world-Web-server/BBC-BASIC/hello-world-web-server.basic
+++ b/Task/Hello-world-Web-server/BBC-BASIC/hello-world-web-server.basic
@ -0,0 +1,62 @@
+      INSTALL @lib$+"SOCKLIB"
+      PROC_initsockets
+
+      maxSess% = 8
+      DIM sock%(maxSess%-1), rcvd$(maxSess%-1), Buffer% 255
+
+      ON ERROR PRINT REPORT$ : PROC_exitsockets : END
+      ON CLOSE PROC_exitsockets : QUIT
+
+      port$ = "8080"
+      host$ = FN_gethostname
+      PRINT "Host name is " host$
+
+      listen% = FN_tcplisten(host$, port$)
+      PRINT "Listening on port ";port$
+
+      REPEAT
+        socket% = FN_check_connection(listen%)
+        IF socket% THEN
+          FOR i% = 0 TO maxSess%-1
+            IF sock%(i%) = 0 THEN
+              sock%(i%) = socket%
+              rcvd$(i%) = ""
+              PRINT "Connection on socket "; sock%(i%) " opened"
+              EXIT FOR
+            ENDIF
+          NEXT i%
+          listen% = FN_tcplisten(host$, port$)
+        ENDIF
+
+        FOR i% = 0 TO maxSess%-1
+          IF sock%(i%) THEN
+            res% = FN_readsocket(sock%(i%), Buffer%, 256)
+            IF res% >= 0 THEN
+              Buffer%?res% = 0
+              rcvd$(i%) += $$Buffer%
+              IF LEFT$(rcvd$(i%),4) = "GET " AND ( \
+              \ RIGHT$(rcvd$(i%),4) = CHR$13+CHR$10+CHR$13+CHR$10 OR \
+              \ RIGHT$(rcvd$(i%),4) = CHR$10+CHR$13+CHR$10+CHR$13 OR \
+              \ RIGHT$(rcvd$(i%),2) = CHR$10+CHR$10 ) THEN
+                rcvd$(i%) = ""
+                IF FN_writelinesocket(sock%(i%), "HTTP/1.0 200 OK")
+                IF FN_writelinesocket(sock%(i%), "Content-type: text/html")
+                IF FN_writelinesocket(sock%(i%), "")
+                IF FN_writelinesocket(sock%(i%), "<html><head><title>Hello World!</title></head>")
+                IF FN_writelinesocket(sock%(i%), "<body><h1>Hello World!</h1>")
+                IF FN_writelinesocket(sock%(i%), "</body></html>")
+                PROC_closesocket(sock%(i%))
+                PRINT "Connection on socket " ; sock%(i%) " closed (local)"
+                sock%(i%) = 0
+              ENDIF
+            ELSE
+              PROC_closesocket(sock%(i%))
+              PRINT "Connection on socket " ; sock%(i%) " closed (remote)"
+              sock%(i%) = 0
+            ENDIF
+          ENDIF
+        NEXT i%
+
+        WAIT 0
+      UNTIL FALSE
+      END
--- a/Task/Hello-world-Web-server/BaCon/hello-world-web-server.bacon
+++ b/Task/Hello-world-Web-server/BaCon/hello-world-web-server.bacon
@ -0,0 +1,43 @@
+' Define HTTP constants
+CONST New$ = CHR$(13) & NL$
+CONST Sep$ = CHR$(13) & NL$ & CHR$(13) & NL$
+CONST Msg$ = "<html><head>BaCon web greeting</head><body><h2>Goodbye, World!</h2></body></html>"
+
+' Get our IP
+Ip$ = "localhost"
+PRINT "Connect from browser '", Ip$, ":8080'."
+
+' Ignore child signals to avoid zombie processes
+SIGNAL SIG_IGN, SIGCHLD
+
+' Open listening port
+OPEN Ip$ & ":8080" FOR SERVER AS mynet
+
+' Keep receiving requests
+WHILE TRUE
+
+    ' Handle for newly incoming connection
+    fd = ACCEPT(mynet)
+
+    ' Incoming connection -> create background process
+    spawn = FORK
+
+    ' We are in the child
+    IF spawn = 0 THEN
+
+        ' Get the request
+        REPEAT
+            RECEIVE dat$ FROM fd
+            PRINT dat$
+        UNTIL RIGHT$(dat$, 4) = Sep$
+
+        ' Reply that we're OK
+        SEND "HTTP/1.1 200 Ok" & New$ & "Content-Length: " & STR$(LEN(Msg$)) & Sep$ & Msg$ TO fd
+
+        ' Close connection
+        CLOSE SERVER fd
+
+        ' End this process
+        ENDFORK
+    ENDIF
+WEND
--- a/Task/Hello-world-Web-server/C-sharp/hello-world-web-server-1.cs
+++ b/Task/Hello-world-Web-server/C-sharp/hello-world-web-server-1.cs
@ -0,0 +1,27 @@
+using System.Text;
+using System.Net.Sockets;
+using System.Net;
+
+namespace WebServer
+{
+    class GoodByeWorld
+    {
+        static void Main(string[] args)
+        {
+            const string msg = "<html>\n<body>\nGoodbye, world!\n</body>\n</html>\n";
+            const int port = 8080;
+            bool serverRunning = true;
+
+            TcpListener tcpListener = new TcpListener(IPAddress.Any, port);
+            tcpListener.Start();
+
+            while (serverRunning)
+            {
+                Socket socketConnection = tcpListener.AcceptSocket();
+                byte[] bMsg = Encoding.ASCII.GetBytes(msg.ToCharArray(), 0, (int)msg.Length);
+                socketConnection.Send(bMsg);
+                socketConnection.Disconnect(true);
+            }
+        }
+    }
+}
--- a/Task/Hello-world-Web-server/C-sharp/hello-world-web-server-2.cs
+++ b/Task/Hello-world-Web-server/C-sharp/hello-world-web-server-2.cs
@ -0,0 +1,26 @@
+namespace Webserver
+{
+  using System;
+  using Nancy;
+  using Nancy.Hosting.Self;
+
+  public class HelloWorldModule : NancyModule
+  {
+    public HelloWorldModule()
+    {
+      this.Get["/"] = parameters => "Goodbye, world!";
+    }
+
+    public static void Main()
+    {
+      var uri = new Uri("http://localhost:8080");
+      using (var host = new NancyHost(uri))
+      {
+        host.Start();
+        Console.WriteLine("Web server is now running!");
+        Console.WriteLine("Press 'Enter' to exit.");
+        Console.ReadLine();
+      }
+    }
+  }
+}
--- a/Task/Hello-world-Web-server/C/hello-world-web-server.c
+++ b/Task/Hello-world-Web-server/C/hello-world-web-server.c
@ -0,0 +1,54 @@
+#include <stdio.h>
+#include <stdlib.h>
+#include <unistd.h>
+#include <sys/types.h>
+#include <sys/socket.h>
+#include <netinet/in.h>
+#include <netdb.h>
+#include <arpa/inet.h>
+#include <err.h>
+
+char response[] = "HTTP/1.1 200 OK\r\n"
+"Content-Type: text/html; charset=UTF-8\r\n\r\n"
+"<!DOCTYPE html><html><head><title>Bye-bye baby bye-bye</title>"
+"<style>body { background-color: #111 }"
+"h1 { font-size:4cm; text-align: center; color: black;"
+" text-shadow: 0 0 2mm red}</style></head>"
+"<body><h1>Goodbye, world!</h1></body></html>\r\n";
+
+int main()
+{
+  int one = 1, client_fd;
+  struct sockaddr_in svr_addr, cli_addr;
+  socklen_t sin_len = sizeof(cli_addr);
+
+  int sock = socket(AF_INET, SOCK_STREAM, 0);
+  if (sock < 0)
+    err(1, "can't open socket");
+
+  setsockopt(sock, SOL_SOCKET, SO_REUSEADDR, &one, sizeof(int));
+
+  int port = 8080;
+  svr_addr.sin_family = AF_INET;
+  svr_addr.sin_addr.s_addr = INADDR_ANY;
+  svr_addr.sin_port = htons(port);
+
+  if (bind(sock, (struct sockaddr *) &svr_addr, sizeof(svr_addr)) == -1) {
+    close(sock);
+    err(1, "Can't bind");
+  }
+
+  listen(sock, 5);
+  while (1) {
+    client_fd = accept(sock, (struct sockaddr *) &cli_addr, &sin_len);
+    printf("got connection\n");
+
+    if (client_fd == -1) {
+      perror("Can't accept");
+      continue;
+    }
+
+    write(client_fd, response, sizeof(response) - 1); /*-1:'\0'*/
+    close(client_fd);
+  }
+}
--- a/Task/Hello-world-Web-server/Clojure/hello-world-web-server.clj
+++ b/Task/Hello-world-Web-server/Clojure/hello-world-web-server.clj
@ -0,0 +1,12 @@
+(ns goodbye-world.handler
+  (:require [compojure.core :refer :all]
+            [compojure.handler :as handler]
+            [compojure.route :as route]))
+
+(defroutes app-routes
+  (GET "/" [] "Goodbye, World!")
+  (route/resources "/")
+  (route/not-found "Not Found"))
+
+(def app
+  (handler/site app-routes))
--- a/Task/Hello-world-Web-server/Common-Lisp/hello-world-web-server-1.lisp
+++ b/Task/Hello-world-Web-server/Common-Lisp/hello-world-web-server-1.lisp
@ -0,0 +1,7 @@
+(ql:quickload :hunchentoot)
+(defpackage :hello-web (:use :cl :hunchentoot))
+(in-package :hello-web)
+
+(define-easy-handler (hello :uri "/") () "Goodbye, World!")
+
+(defparameter *server* (hunchentoot:start (make-instance 'hunchentoot:easy-acceptor :port 8080)))
--- a/Task/Hello-world-Web-server/Common-Lisp/hello-world-web-server-2.lisp
+++ b/Task/Hello-world-Web-server/Common-Lisp/hello-world-web-server-2.lisp
@ -0,0 +1,38 @@
+(ql:quickload :usocket)
+(defpackage :hello-web-manual (:use :cl :usocket))
+(in-package :hello-web-manual)
+
+(defun crlf (&optional (stream *standard-output*))
+  (write-char #\return stream)
+  (write-char #\linefeed stream)
+  (values))
+
+(defun ln (string &optional (stream *standard-output*))
+  (write-string string stream)
+  (crlf stream))
+
+(defun read-all (stream)
+  (loop for char = (read-char-no-hang stream nil :eof)
+     until (or (null char) (eq char :eof)) collect char into msg
+     finally (return (values msg char))))
+
+(defun serve (port &optional (log-stream *standard-output*))
+  (let ((connections (list (socket-listen "127.0.0.1" port :reuse-address t))))
+    (unwind-protect
+	 (loop
+	    (loop for ready in (wait-for-input connections :ready-only t)
+	       do (if (typep ready 'stream-server-usocket)
+		      (push (socket-accept ready) connections)
+		      (let* ((stream (socket-stream ready)))
+			(read-all stream)
+			(format log-stream "Got message...~%")
+			(mapc (lambda (line) (ln line stream))
+			      (list "HTTP/1.1 200 OK"
+				    "Content-Type: text/plain; charset=UTF-8"
+				    ""
+				    "Hello world!"))
+			(socket-close ready)
+			(setf connections (remove ready connections))))))
+      (loop for c in connections do (loop while (socket-close c))))))
+
+(serve 8080)
--- a/Task/Hello-world-Web-server/Crystal/hello-world-web-server.crystal
+++ b/Task/Hello-world-Web-server/Crystal/hello-world-web-server.crystal
@ -0,0 +1,7 @@
+require "http/server"
+
+server = HTTP::Server.new do |context|
+    context.response.print "Goodbye World"
+end
+
+server.listen(8080)
--- a/Task/Hello-world-Web-server/D/hello-world-web-server.d
+++ b/Task/Hello-world-Web-server/D/hello-world-web-server.d
@ -0,0 +1,24 @@
+import std.socket, std.array;
+
+ushort port = 8080;
+
+void main() {
+  Socket listener = new TcpSocket;
+  listener.bind(new InternetAddress(port));
+  listener.listen(10);
+
+  Socket currSock;
+
+  while (null !is (currSock = listener.accept())) {
+    currSock.sendTo(replace(q"EOF
+HTTP/1.1 200 OK
+Content-Type: text/html; charset=UTF-8
+
+<html>
+  <head><title>Hello world</title></head>
+  <body>Goodbye, World!</body>
+</html>
+EOF", "\n", "\r\n"));
+    currSock.close();
+  }
+}
--- a/Task/Hello-world-Web-server/Dart/hello-world-web-server.dart
+++ b/Task/Hello-world-Web-server/Dart/hello-world-web-server.dart
@ -0,0 +1,11 @@
+import 'dart:io';
+
+main() async {
+  var server = await HttpServer.bind('127.0.0.1', 8080);
+
+  await for (HttpRequest request in server) {
+    request.response
+      ..write('Hello, world')
+      ..close();
+  }
+}
--- a/Task/Hello-world-Web-server/Delphi/hello-world-web-server.delphi
+++ b/Task/Hello-world-Web-server/Delphi/hello-world-web-server.delphi
@ -0,0 +1,50 @@
+program HelloWorldWebServer;
+
+{$APPTYPE CONSOLE}
+
+uses SysUtils, IdContext, IdCustomHTTPServer, IdHTTPServer;
+
+type
+  TWebServer = class
+  private
+    FHTTPServer: TIdHTTPServer;
+  public
+    constructor Create;
+    destructor Destroy; override;
+    procedure HTTPServerCommandGet(AContext: TIdContext;
+      ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
+  end;
+
+constructor TWebServer.Create;
+begin
+  FHTTPServer := TIdHTTPServer.Create(nil);
+  FHTTPServer.DefaultPort := 8080;
+  FHTTPServer.OnCommandGet := HTTPServerCommandGet;
+  FHTTPServer.Active := True;
+end;
+
+destructor TWebServer.Destroy;
+begin
+  FHTTPServer.Active := False;
+  FHTTPServer.Free;
+  inherited Destroy;
+end;
+
+procedure TWebServer.HTTPServerCommandGet(AContext: TIdContext;
+  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
+begin
+  AResponseInfo.ContentText := 'Goodbye, World!';
+end;
+
+var
+  lWebServer: TWebServer;
+begin
+  lWebServer := TWebServer.Create;
+  try
+    Writeln('Delphi Hello world/Web server ');
+    Writeln('Press Enter to quit');
+    Readln;
+  finally
+    lWebServer.Free;
+  end;
+end.
--- a/Task/Hello-world-Web-server/Dylan.NET/hello-world-web-server.dylan
+++ b/Task/Hello-world-Web-server/Dylan.NET/hello-world-web-server.dylan
@ -0,0 +1,36 @@
+//compile with dylan.NET 11.5.1.2 or later!!
+#refstdasm "mscorlib.dll"
+#refstdasm "System.dll"
+
+import System.Text
+import System.Net.Sockets
+import System.Net
+
+assembly helloweb exe
+ver 1.1.0.0
+
+namespace WebServer
+
+    class public GoodByeWorld
+
+        method public static void main(var args as string[])
+
+            var msg as string = c"<html>\n<body>\nGoodbye, world!\n</body>\n</html>\n"
+            var port as integer = 8080
+            var serverRunning as boolean = true
+
+            var tcpListener as TcpListener = new TcpListener(IPAddress::Any, port)
+            tcpListener::Start()
+
+            do while serverRunning
+                var socketConnection as Socket = tcpListener::AcceptSocket()
+                var bMsg as byte[] = Encoding::get_ASCII()::GetBytes(msg::ToCharArray(), 0, msg::get_Length())
+                socketConnection::Send(bMsg)
+                socketConnection::Disconnect(true)
+            end do
+
+        end method
+
+    end class
+
+end namespace
--- a/Task/Hello-world-Web-server/Erlang/hello-world-web-server.erl
+++ b/Task/Hello-world-Web-server/Erlang/hello-world-web-server.erl
@ -0,0 +1,21 @@
+-module( hello_world_web_server ).
+
+-export( [do/1, httpd_start/2, httpd_stop/1, task/0] ).
+
+do( _Data ) ->
+  {proceed, [{response,{200,"Goodbye, World!"}}]}.
+
+httpd_start( Port, Module ) ->
+  Arguments = [{bind_address, "localhost"}, {port, Port}, {ipfamily, inet},
+    {modules, [Module]},
+    {server_name,erlang:atom_to_list(Module)}, {server_root,"."}, {document_root,"."}],
+  {ok, Pid} = inets:start( httpd, Arguments, stand_alone ),
+  Pid.
+
+httpd_stop( Pid ) ->
+  inets:stop( stand_alone, Pid ).
+
+task() ->
+  Pid = httpd_start( 8080, ?MODULE ),
+  timer:sleep( 30000 ),
+  httpd_stop( Pid ).
--- a/Task/Hello-world-Web-server/Fantom/hello-world-web-server.fantom
+++ b/Task/Hello-world-Web-server/Fantom/hello-world-web-server.fantom
@ -0,0 +1,25 @@
+using web
+using wisp
+
+const class HelloMod : WebMod // provides the content
+{
+  override Void onGet ()
+  {
+    res.headers["Content-Type"] = "text/plain; charset=utf-8"
+    res.out.print ("Goodbye, World!")
+  }
+}
+
+class HelloWeb
+{
+  Void main ()
+  {
+    WispService // creates the web service
+    {
+      port = 8080
+      root = HelloMod()
+    }.start
+
+    while (true) {} // stay running
+  }
+}
--- a/Task/Hello-world-Web-server/Fortran/hello-world-web-server.f
+++ b/Task/Hello-world-Web-server/Fortran/hello-world-web-server.f
@ -0,0 +1,14 @@
+program http_example
+   implicit none
+   character (len=:), allocatable :: code
+   character (len=:), allocatable :: command
+   logical :: waitForProcess
+
+   ! Execute a Node.js code
+   code = "const http = require('http'); http.createServer((req, res) => &
+   {res.end('Hello World from a Node.js server started from Fortran!')}).listen(8080);"
+
+   command = 'node -e "' // code // '"'
+   call execute_command_line (command, wait=waitForProcess)
+
+end program http_example
--- a/Task/Hello-world-Web-server/Free-Pascal/hello-world-web-server.pas
+++ b/Task/Hello-world-Web-server/Free-Pascal/hello-world-web-server.pas
@ -0,0 +1,42 @@
+program HelloWorldServer;
+{$mode objfpc}{$H+}
+uses
+  Classes, fphttpserver;
+
+Type
+  TTestHTTPServer = Class(TFPHTTPServer)
+  public
+    procedure HandleRequest(Var ARequest: TFPHTTPConnectionRequest;
+                            Var AResponse : TFPHTTPConnectionResponse); override;
+  end;
+
+Var
+  Serv : TTestHTTPServer;
+
+procedure TTestHTTPServer.HandleRequest(var ARequest: TFPHTTPConnectionRequest;
+  var AResponse: TFPHTTPConnectionResponse);
+Var
+  F : TStringStream;
+begin
+  F:=TStringStream.Create('Hello,World!');
+  try
+    AResponse.ContentLength:=F.Size;
+    AResponse.ContentStream:=F;
+    AResponse.SendContent;
+    AResponse.ContentStream:=Nil;
+  finally
+    F.Free;
+  end;
+end;
+
+begin
+  Serv:=TTestHTTPServer.Create(Nil);
+  try
+    Serv.Threaded:=False;
+    Serv.Port:=8080;
+    Serv.AcceptIdleTimeout:=1000;
+    Serv.Active:=True;
+  finally
+    Serv.Free;
+  end;
+end.
--- a/Task/Hello-world-Web-server/Frink/hello-world-web-server.frink
+++ b/Task/Hello-world-Web-server/Frink/hello-world-web-server.frink
@ -0,0 +1,10 @@
+ss = newJava["java.net.ServerSocket", 8080]
+while true
+{
+   sock = ss.accept[];
+   w = new Writer[sock.getOutputStream[]]
+   w.println["HTTP/1.1 200 OK"]
+   w.println["Content-Type: text/plain\n"]
+   w.println["Goodbye, World!"]
+   w.close[]
+}
--- a/Task/Hello-world-Web-server/FunL/hello-world-web-server.funl
+++ b/Task/Hello-world-Web-server/FunL/hello-world-web-server.funl
@ -0,0 +1,13 @@
+native java.io.PrintWriter
+native java.net.ServerSocket
+
+val port = 8080
+val listener = ServerSocket( port )
+
+printf( 'Listening at port %1$d\n', port )
+
+forever
+  socket = listener.accept()
+  PrintWriter( socket.getOutputStream(), true ).println( 'hello world' )
+  socket.shutdownOutput()
+  socket.close()
--- a/Task/Hello-world-Web-server/Gastona/hello-world-web-server.gastona
+++ b/Task/Hello-world-Web-server/Gastona/hello-world-web-server.gastona
@ -0,0 +1,13 @@
+#javaj#
+
+   <frames> oConsole
+
+#listix#
+
+   <main>
+      MICOHTTP, START, myServer, 8080
+
+   <GET />
+      //<html><body>
+      //  Goodbye world!
+      //</body></html>
--- a/Task/Hello-world-Web-server/Genie/hello-world-web-server.genie
+++ b/Task/Hello-world-Web-server/Genie/hello-world-web-server.genie
@ -0,0 +1,76 @@
+/**
+ * Based on https://wiki.gnome.org/Projects/Genie/GIONetworkingSample
+ * Based on an example of Jezra Lickter http://hoof.jezra.net/snip/nV
+ *
+ * valac --pkg gio-2.0 --pkg gee-0.8 webserver.gs
+ * ./webserver
+ */
+[indent=8]
+uses
+        GLib
+        Gee
+
+init
+        var ws = new WebServer()
+        ws.run()
+
+struct Request
+        full_request : string
+        path : string
+        query : string
+
+struct Response
+        status_code : string
+        content_type : string
+        data : string
+
+class WebServer
+
+        def run()
+                port : uint16 = 8080
+                tss : ThreadedSocketService = new ThreadedSocketService(100)
+                ia : InetAddress = new InetAddress.any(SocketFamily.IPV4)
+                isaddr : InetSocketAddress = new InetSocketAddress(ia, port)
+                try
+                        tss.add_address(isaddr, SocketType.STREAM, SocketProtocol.TCP, null, null);
+                except e : Error
+                        stderr.printf("%s\n", e.message)
+                        return
+                // add connection handler
+                tss.run.connect( connection_handler )
+
+                ml : MainLoop = new MainLoop()
+                tss.start()
+                stdout.printf("Serving on port %d\n", port)
+                ml.run()
+
+        def connection_handler ( conn : SocketConnection ) : bool
+                first_line : string = ""
+                size : size_t = 0;
+                request : Request = Request()
+                dis : DataInputStream = new DataInputStream (conn.input_stream)
+                dos : DataOutputStream = new DataOutputStream (conn.output_stream)
+                try
+                        first_line = dis.read_line(out size)
+                        // here you could analyze request information
+                        var parts = first_line.split(" ");
+                        if parts.length > 1 do request.full_request = parts[1]
+                except e : Error
+                        stderr.printf("%s\n", e.message)
+                response : Response = Response()
+                response.status_code = "HTTP/1.1 200 OK\n"
+                response.content_type = "text/html"
+                response.data = "<html><body><h1>Goodbye, World!</h1></body></html>"
+                serve_response ( response, dos )
+                return false
+
+        def serve_response ( response : Response, dos : DataOutputStream )
+                try
+                        dos.put_string (response.status_code)
+                        dos.put_string ("Server: Genie Socket\n")
+                        dos.put_string("Content-Type: %s\n".printf(response.content_type))
+                        dos.put_string("Content-Length: %d\n".printf(response.data.length))
+                        dos.put_string("\n");//this is the end of the return headers
+                        dos.put_string(response.data)
+                except e : Error
+                        stderr.printf("%s\n", e.message)
--- a/Task/Hello-world-Web-server/Go/hello-world-web-server.go
+++ b/Task/Hello-world-Web-server/Go/hello-world-web-server.go
@ -0,0 +1,14 @@
+package main
+
+import (
+  "fmt"
+  "log"
+  "net/http"
+)
+
+func main() {
+  http.HandleFunc("/", func(w http.ResponseWriter, req *http.Request) {
+    fmt.Fprintln(w, "Goodbye, World!")
+  })
+  log.Fatal(http.ListenAndServe(":8080", nil))
+}
--- a/Task/Hello-world-Web-server/Haskell/hello-world-web-server-1.hs
+++ b/Task/Hello-world-Web-server/Haskell/hello-world-web-server-1.hs
@ -0,0 +1,9 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+import Data.ByteString.Char8 ()
+import Data.Conduit ( ($$), yield )
+import Data.Conduit.Network ( ServerSettings(..), runTCPServer )
+
+main :: IO ()
+main = runTCPServer (ServerSettings 8080 "127.0.0.1") $ const (yield response $$)
+  where response = "HTTP/1.0 200 OK\nContent-Length: 16\n\nGoodbye, World!\n"
--- a/Task/Hello-world-Web-server/Haskell/hello-world-web-server-2.hs
+++ b/Task/Hello-world-Web-server/Haskell/hello-world-web-server-2.hs
@ -0,0 +1,15 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+import Data.ByteString.Char8 ()
+import Network hiding ( accept )
+import Network.Socket ( accept )
+import Network.Socket.ByteString ( sendAll )
+import Control.Monad ( forever )
+import Control.Exception ( bracket, finally )
+import Control.Concurrent ( forkIO )
+
+main :: IO ()
+main = bracket (listenOn $ PortNumber 8080) sClose loop where
+  loop s = forever $ forkIO . request . fst =<< accept s
+  request c = sendAll c response `finally` sClose c
+  response = "HTTP/1.0 200 OK\nContent-Length: 16\n\nGoodbye, World!\n"
--- a/Task/Hello-world-Web-server/Haskell/hello-world-web-server-3.hs
+++ b/Task/Hello-world-Web-server/Haskell/hello-world-web-server-3.hs
@ -0,0 +1,20 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+import Network.Wai
+import Network.Wai.Handler.Warp
+import Network.HTTP.Types (status200)
+import Blaze.ByteString.Builder (copyByteString)
+import qualified Data.ByteString.UTF8 as BU
+import Data.Monoid
+
+main = do
+    let port = 8080
+    putStrLn $ "Listening on port " ++ show port
+    run port app
+
+app req respond = respond $
+    case pathInfo req of
+        x -> index x
+
+index x = responseBuilder status200 [("Content-Type", "text/plain")] $ mconcat $ map copyByteString
+    [ "Hello World!\n" ]
--- a/Task/Hello-world-Web-server/Io/hello-world-web-server.io
+++ b/Task/Hello-world-Web-server/Io/hello-world-web-server.io
@ -0,0 +1,15 @@
+WebRequest := Object clone do(
+    handleSocket := method(aSocket,
+      aSocket streamWrite("Goodbye, World!")
+      aSocket close
+    )
+)
+
+WebServer := Server clone do(
+    setPort(8080)
+    handleSocket := method(aSocket,
+        WebRequest clone asyncSend(handleSocket(aSocket))
+    )
+)
+
+WebServer start
--- a/Task/Hello-world-Web-server/J/hello-world-web-server-1.j
+++ b/Task/Hello-world-Web-server/J/hello-world-web-server-1.j
@ -0,0 +1 @@
+'Goodbye, World!'
--- a/Task/Hello-world-Web-server/J/hello-world-web-server-2.j
+++ b/Task/Hello-world-Web-server/J/hello-world-web-server-2.j
@ -0,0 +1,27 @@
+hello=: verb define
+ 8080 hello y NB. try to use port 8080 by default
+:
+ port=: x
+ require 'socket'
+ coinsert 'jsocket'
+ sdclose ; sdcheck sdgetsockets ''
+ server=: {. ; sdcheck sdsocket ''
+ sdcheck sdbind server; AF_INET; ''; port
+ sdcheck sdlisten server, 1
+ while. 1 do.
+  while.
+    server e. ready=: >{. sdcheck sdselect (sdcheck sdgetsockets ''),'';'';<1e3
+  do.
+    sdcheck sdaccept server
+  end.
+  for_socket. ready do.
+   request=: ; sdcheck sdrecv socket, 65536 0
+   sdcheck (socket responseFor request) sdsend socket, 0
+   sdcheck sdclose socket
+  end.
+ end.
+)
+
+responseFor=: dyad define
+ 'HTTP/1.0 200 OK',CRLF,'Content-Type: text/plain',CRLF,CRLF,'Goodbye, World!',CRLF
+)
--- a/Task/Hello-world-Web-server/J/hello-world-web-server-3.j
+++ b/Task/Hello-world-Web-server/J/hello-world-web-server-3.j
@ -0,0 +1 @@
+hello''
--- a/Task/Hello-world-Web-server/Java/hello-world-web-server.java
+++ b/Task/Hello-world-Web-server/Java/hello-world-web-server.java
@ -0,0 +1,16 @@
+import java.io.IOException;
+import java.io.PrintWriter;
+import java.net.ServerSocket;
+import java.net.Socket;
+
+public class HelloWorld{
+  public static void main(String[] args) throws IOException{
+    ServerSocket listener = new ServerSocket(8080);
+    while(true){
+      Socket sock = listener.accept();
+      new PrintWriter(sock.getOutputStream(), true).
+                println("Goodbye, World!");
+      sock.close();
+    }
+  }
+}
--- a/Task/Hello-world-Web-server/JavaScript/hello-world-web-server.js
+++ b/Task/Hello-world-Web-server/JavaScript/hello-world-web-server.js
@ -0,0 +1,6 @@
+var http = require('http');
+
+http.createServer(function (req, res) {
+    res.writeHead(200, {'Content-Type': 'text/plain'});
+    res.end('Goodbye, World!\n');
+}).listen(8080, '127.0.0.1');
--- a/Task/Hello-world-Web-server/Julia/hello-world-web-server.julia
+++ b/Task/Hello-world-Web-server/Julia/hello-world-web-server.julia
@ -0,0 +1,5 @@
+using HttpServer
+server = Server() do req, res
+    "Goodbye, World!"
+end
+run(server, 8080)
--- a/Task/Hello-world-Web-server/Kotlin/hello-world-web-server.kotlin
+++ b/Task/Hello-world-Web-server/Kotlin/hello-world-web-server.kotlin
@ -0,0 +1,11 @@
+import java.io.PrintWriter
+import java.net.ServerSocket
+
+fun main(args: Array<String>) {
+    val listener = ServerSocket(8080)
+    while(true) {
+        val sock = listener.accept()
+        PrintWriter(sock.outputStream, true).println("Goodbye, World!")
+        sock.close()
+    }
+}
--- a/Task/Hello-world-Web-server/Lasso/hello-world-web-server.lasso
+++ b/Task/Hello-world-Web-server/Lasso/hello-world-web-server.lasso
@ -0,0 +1,20 @@
+local(server) = net_tcp
+handle => { #server->close }
+#server->bind(8080) & listen & forEachAccept => {
+   local(con) = #1
+
+   split_thread => {
+      handle => { #con->close }
+      local(request) = ''
+      // Read in the request in chunks until you have it all
+      {
+         #request->append(#con->readSomeBytes(8096))
+         not #request->contains('\r\n\r\n')? currentCapture->restart
+      }()
+
+      local(response) = 'HTTP/1.1 200 OK\r\n\
+            Content-Type: text/html; charset=UTF-8\r\n\r\n\
+            Goodbye, World!'
+      #con->writeBytes(bytes(#response))
+   }
+}
--- a/Task/Hello-world-Web-server/Liberty-BASIC/hello-world-web-server.basic
+++ b/Task/Hello-world-Web-server/Liberty-BASIC/hello-world-web-server.basic
@ -0,0 +1 @@
+print "hello world!"
--- a/Task/Hello-world-Web-server/Lua/hello-world-web-server.lua
+++ b/Task/Hello-world-Web-server/Lua/hello-world-web-server.lua
@ -0,0 +1,10 @@
+local socket = require "socket"
+local headers = "HTTP/1.1 200 OK\r\nContent-Type: text/html; charset=UTF-8\r\nContent-Length: %d\r\n\r\n%s"
+local content = "<!doctype html><html><title>Goodbye, World!</title><h1>Goodbye, World!"
+local server = assert(socket.bind("localhost", 8080))
+repeat
+   local client = server:accept()
+   local ok = client:send(string.format(headers, #content, content))
+   client:close()
+until not client or not ok
+server:close()
--- a/Task/Hello-world-Web-server/Mathematica/hello-world-web-server-1.math
+++ b/Task/Hello-world-Web-server/Mathematica/hello-world-web-server-1.math
@ -0,0 +1,8 @@
+listener =
+ SocketListen["127.0.0.1:8080",
+  Function[{assoc},
+   With[{client = assoc["SourceSocket"]},
+    WriteString[client,
+     "HTTP/1.0 200 OK\nContent-Length: 16\n\nGoodbye, World!\n"];
+    Close[client]]]]
+SystemOpen["http://127.0.0.1:8080"]
--- a/Task/Hello-world-Web-server/Mathematica/hello-world-web-server-2.math
+++ b/Task/Hello-world-Web-server/Mathematica/hello-world-web-server-2.math
@ -0,0 +1,2 @@
+DeleteObject[listener];
+Close[listener["Socket"]]
--- a/Task/Hello-world-Web-server/Min/hello-world-web-server.min
+++ b/Task/Hello-world-Web-server/Min/hello-world-web-server.min
@ -0,0 +1,9 @@
+{
+  (
+    {
+      {"text/plain; charset=utf-8" :content-type} :headers
+      "Goodbye, World!" :body
+    }
+  ) :handler
+  8080 :port
+} start-server
--- a/Task/Hello-world-Web-server/Modula-2/hello-world-web-server.mod2
+++ b/Task/Hello-world-Web-server/Modula-2/hello-world-web-server.mod2
@ -0,0 +1,11 @@
+MODULE access;
+
+FROM  InOut   IMPORT  WriteString, WriteLn;
+
+BEGIN
+   WriteString ("Content-Type : text/plain");
+   WriteLn;
+   WriteLn;
+   WriteString ("Hello web wide world.");
+   WriteLn
+END access.
--- a/Task/Hello-world-Web-server/NetRexx/hello-world-web-server.netrexx
+++ b/Task/Hello-world-Web-server/NetRexx/hello-world-web-server.netrexx
@ -0,0 +1,37 @@
+/* NetRexx */
+options replace format comments java crossref symbols binary
+
+class RHelloWorldWebServer public
+
+  properties public constant
+    isTrue = boolean (1 == 1)
+    isFalse = boolean (1 \== 1)
+    greeting1 = "Goodbye, World!"
+    greeting2 = '' -
+      || 'HTTP/1.1 200 OK\r\n' -
+      || 'Content-Type: text/html; charset=UTF-8\r\n\r\n' -
+      || '<?xml version="1.0" encoding="UTF-8"?>\r\n' -
+      || '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">\r\n' -
+      || '<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">\r\n' -
+      || '<header>\r\n' -
+      || '<title>Hello</title>\r\n' -
+      || '<style type="text/css">body {font-family: sans-serif;}</style>\r\n' -
+      || '</header>\r\n' -
+      || '<body>\r\n' -
+      || '<h2 style="text-align: center;">' || greeting1 || '</h2>\r\n' -
+      || '</body>\r\n' -
+      || '</html>\r\n' -
+      || ''
+
+  properties static inheritable
+    terminate = isFalse -- TODO: provide a less draconian means to terminate the listener loop
+
+  method main(args = String[]) public static signals IOException
+    listener = ServerSocket(8080)
+    loop label listener forever
+      if terminate then leave listener
+      sock = listener.accept()
+      PrintWriter(sock.getOutputStream(), isTrue).println(greeting2)
+      sock.close()
+      end listener
+    return
--- a/Task/Hello-world-Web-server/Nim/hello-world-web-server.nim
+++ b/Task/Hello-world-Web-server/Nim/hello-world-web-server.nim
@ -0,0 +1,7 @@
+import asynchttpserver, asyncdispatch
+
+proc cb(req: Request) {.async.} =
+  await req.respond(Http200, "Hello, World!")
+
+asyncCheck newAsyncHttpServer().serve(Port(8080), cb)
+runForever()
--- a/Task/Hello-world-Web-server/OCaml/hello-world-web-server.ocaml
+++ b/Task/Hello-world-Web-server/OCaml/hello-world-web-server.ocaml
@ -0,0 +1,57 @@
+let try_finalise f x finally y =
+  let res = try f x with e -> finally y; raise e in
+  finally y;
+  res
+
+let rec restart_on_EINTR f x =
+  try f x with Unix.Unix_error (Unix.EINTR, _, _) -> restart_on_EINTR f x
+
+let double_fork_treatment server service (client_descr, _ as client) =
+  let treat () =
+    match Unix.fork () with
+    | 0 ->
+        if Unix.fork () <> 0 then exit 0;
+        Unix.close server; service client; exit 0
+    | k ->
+        ignore (restart_on_EINTR (Unix.waitpid []) k)
+  in
+  try_finalise treat () Unix.close client_descr
+
+let install_tcp_server_socket addr =
+  let s = Unix.socket Unix.PF_INET Unix.SOCK_STREAM 0 in
+  try
+    Unix.bind s addr;
+    Unix.listen s 10;
+    s
+  with e -> Unix.close s; raise e
+
+let tcp_server treat_connection addr =
+  ignore (Sys.signal Sys.sigpipe Sys.Signal_ignore);
+  let server_sock = install_tcp_server_socket addr in
+  while true do
+    let client = restart_on_EINTR Unix.accept server_sock in
+    treat_connection server_sock client
+  done
+
+let server () =
+  let port = 8080 in
+  let host = (Unix.gethostbyname (Unix.gethostname())).Unix.h_addr_list.(0) in
+  let addr = Unix.ADDR_INET (host, port) in
+  let treat sock (client_sock, client_addr as client) =
+    let service (s, _) =
+      let response = "\
+        HTTP/1.1 200 OK\r\n\
+        Content-Type: text/html; charset=UTF-8\r\n\r\n\
+        <html><head><title>Goodbye, world!</title>\
+        <style>body { background-color: #0FF }\
+        h1 { font-size:3em; color: black; }</style></head>\
+        <body><h1>Goodbye, world!</h1></body></html>\r\n"
+      in
+      Unix.write s response 0 (String.length response);
+    in
+    double_fork_treatment sock service client
+  in
+  tcp_server treat addr
+
+let _ =
+  Unix.handle_unix_error server ()
--- a/Task/Hello-world-Web-server/Objeck/hello-world-web-server.objeck
+++ b/Task/Hello-world-Web-server/Objeck/hello-world-web-server.objeck
@ -0,0 +1,18 @@
+use Net;
+use Concurrency;
+
+bundle Default {
+  class GoodByeWorld {
+    function : Main(args : String[]) ~ Nil {
+      server := TCPSocketServer->New(8080);
+      if(server->Listen(5)) {
+        while(true) {
+          client := server->Accept();
+          client->WriteString("<html>\n<body>\nGoodbye, world!\n</body>\n</html>\n");
+          client->Close();
+        };
+      };
+      server->Close();
+    }
+  }
+}
--- a/Task/Hello-world-Web-server/Ol/hello-world-web-server.ol
+++ b/Task/Hello-world-Web-server/Ol/hello-world-web-server.ol
@ -0,0 +1,14 @@
+(import (lib http))
+
+(http:run 8080 (lambda (fd request headers send close)
+   (send "HTTP/1.0 200 OK\n"
+         "Connection: close\n"
+         "Content-Type: text/html; charset=UTF-8\n"
+         "Server: " (car *version*) "/" (cdr *version*)
+         "\n\n"
+
+         "<h1>Goodbye, World!</h1>"
+         (ref request 1) ": " (ref request 2)
+         "<hr><small>" headers "</small>")
+   (close #t)
+))
--- a/Task/Hello-world-Web-server/Opa/hello-world-web-server-1.opa
+++ b/Task/Hello-world-Web-server/Opa/hello-world-web-server-1.opa
@ -0,0 +1 @@
+server = one_page_server("Hello", -> <>Goodbye, world</>)
--- a/Task/Hello-world-Web-server/Opa/hello-world-web-server-2.opa
+++ b/Task/Hello-world-Web-server/Opa/hello-world-web-server-2.opa
@ -0,0 +1 @@
+opa file.opa --
--- a/Task/Hello-world-Web-server/PHP/hello-world-web-server.php
+++ b/Task/Hello-world-Web-server/PHP/hello-world-web-server.php
@ -0,0 +1,20 @@
+<?php
+                     // AF_INET6 for IPv6  // IP
+$socket = socket_create(AF_INET, SOCK_STREAM, 0) or die('Failed to create socket!');
+                  // '127.0.0.1' to limit only to localhost // Port
+socket_bind($socket, 0,                                        8080);
+socket_listen($socket);
+
+$msg = '<html><head><title>Goodbye, world!</title></head><body>Goodbye, world!</body></html>';
+
+for (;;) {
+    // @ is used to stop PHP from spamming with error messages if there is no connection
+    if ($client = @socket_accept($socket)) {
+        socket_write($client, "HTTP/1.1 200 OK\r\n" .
+               "Content-length: " . strlen($msg) . "\r\n" .
+               "Content-Type: text/html; charset=UTF-8\r\n\r\n" .
+               $msg);
+    }
+    else usleep(100000); // limits CPU usage by sleeping after doing every request
+}
+?>
--- a/Task/Hello-world-Web-server/Panda/hello-world-web-server.panda
+++ b/Task/Hello-world-Web-server/Panda/hello-world-web-server.panda
@ -0,0 +1 @@
+8080.port.listen.say("Hello world!")
--- a/Task/Hello-world-Web-server/Perl/hello-world-web-server-1.pl
+++ b/Task/Hello-world-Web-server/Perl/hello-world-web-server-1.pl
@ -0,0 +1,25 @@
+use Socket;
+
+my $port = 8080;
+my $protocol = getprotobyname( "tcp" );
+
+socket( SOCK, PF_INET, SOCK_STREAM, $protocol ) or die "couldn't open a socket: $!";
+  # PF_INET to indicate that this socket will connect to the internet domain
+  # SOCK_STREAM indicates a TCP stream, SOCK_DGRAM would indicate UDP communication
+
+setsockopt( SOCK, SOL_SOCKET, SO_REUSEADDR, 1 ) or die "couldn't set socket options: $!";
+  # SOL_SOCKET to indicate that we are setting an option on the socket instead of the protocol
+  # mark the socket reusable
+
+bind( SOCK, sockaddr_in($port, INADDR_ANY) ) or die "couldn't bind socket to port $port: $!";
+  # bind our socket to $port, allowing any IP to connect
+
+listen( SOCK, SOMAXCONN ) or die "couldn't listen to port $port: $!";
+  # start listening for incoming connections
+
+while( accept(CLIENT, SOCK) ){
+  print CLIENT "HTTP/1.1 200 OK\r\n" .
+               "Content-Type: text/html; charset=UTF-8\r\n\r\n" .
+               "<html><head><title>Goodbye, world!</title></head><body>Goodbye, world!</body></html>\r\n";
+  close CLIENT;
+}
--- a/Task/Hello-world-Web-server/Perl/hello-world-web-server-2.pl
+++ b/Task/Hello-world-Web-server/Perl/hello-world-web-server-2.pl
@ -0,0 +1,12 @@
+use IO::Socket::INET;
+
+my $sock = new IO::Socket::INET ( LocalAddr => "127.0.0.1:8080",
+                                  Listen    => 1,
+                                  Reuse     => 1, ) or die "Could not create socket: $!";
+
+while( my $client = $sock->accept() ){
+  print $client "HTTP/1.1 200 OK\r\n" .
+                "Content-Type: text/html; charset=UTF-8\r\n\r\n" .
+                "<html><head><title>Goodbye, world!</title></head><body>Goodbye, world!</body></html>\r\n";
+  close $client;
+}
--- a/Task/Hello-world-Web-server/Perl/hello-world-web-server-3.pl
+++ b/Task/Hello-world-Web-server/Perl/hello-world-web-server-3.pl
@ -0,0 +1,6 @@
+while (++(our $vn)) {
+  open NC, "|-", qw(nc -l -p 8080 -q 1);
+  print NC "HTTP/1.0 200 OK\xd\xa",
+      "Content-type: text/plain; charset=utf-8\x0d\x0a\x0d\x0a",
+      "Goodbye, World! (hello, visitor No. $vn!)\x0d\x0a";
+}
--- a/Task/Hello-world-Web-server/Perl/hello-world-web-server-4.pl
+++ b/Task/Hello-world-Web-server/Perl/hello-world-web-server-4.pl
@ -0,0 +1,10 @@
+use Plack::Runner;
+my $app = sub {
+    return [ 200,
+       [ 'Content-Type' => 'text/html; charset=UTF-8' ],
+       [ '<html><head><title>Goodbye, world!</title></head><body>Goodbye, world!</body></html>' ]
+     ]
+};
+my $runner = Plack::Runner->new;
+$runner->parse_options('--host' => 'localhost', '--port' => 8080);
+$runner->run($app);
--- a/Task/Hello-world-Web-server/Perl/hello-world-web-server-5.pl
+++ b/Task/Hello-world-Web-server/Perl/hello-world-web-server-5.pl
@ -0,0 +1 @@
+my $app = sub { return [ 200, [ 'Content-Type' => 'text/html; charset=UTF-8' ], [ '<html><head><title>Goodbye, world!</title></head><body>Goodbye, world!</body></html>' ] ] };
--- a/Task/Hello-world-Web-server/Perl/hello-world-web-server-6.pl
+++ b/Task/Hello-world-Web-server/Perl/hello-world-web-server-6.pl
@ -0,0 +1 @@
+plackup --host localhost --port 8080 script.psgi
--- a/Task/Hello-world-Web-server/Phix/hello-world-web-server.phix
+++ b/Task/Hello-world-Web-server/Phix/hello-world-web-server.phix
@ -0,0 +1,51 @@
+(notonline)-->
+ <span style="color: #000080;font-style:italic;">-- demo\rosetta\SimpleHttpServer.exw</span>
+ <span style="color: #008080;">without</span> <span style="color: #008080;">js</span>
+ <span style="color: #008080;">include</span> <span style="color: #000000;">builtins</span><span style="color: #0000FF;">\</span><span style="color: #000000;">sockets</span><span style="color: #0000FF;">.</span><span style="color: #000000;">e</span>
+ <span style="color: #008080;">constant</span> <span style="color: #000000;">MAX_QUEUE</span>      <span style="color: #0000FF;">=</span> <span style="color: #000000;">100</span><span style="color: #0000FF;">,</span>
+          <span style="color: #000000;">ESCAPE</span>         <span style="color: #0000FF;">=</span> <span style="color: #000000;">#1B</span><span style="color: #0000FF;">,</span>
+          <span style="color: #000000;">response</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">substitute</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"""
+ HTTP/1.1 200 OK
+ Content-Type: text/html; charset=UTF-8
+
+ &lt;!DOCTYPE html&gt;
+ &lt;html&gt;
+  &lt;head&gt;
+   &lt;title&gt;Bye-bye baby bye-bye&lt;/title&gt;
+   &lt;style&gt;
+    body { background-color: #111 }
+    h1 { font-size:4cm; text-align: center; color: black;
+         text-shadow: 0 0 2mm red}
+   &lt;/style&gt;
+  &lt;/head&gt;
+  &lt;body&gt;
+   &lt;h1&gt;Goodbye, world!&lt;/h1&gt;
+  &lt;/body&gt;
+ &lt;/html&gt;
+
+ """</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"\n"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"\r\n"</span><span style="color: #0000FF;">)</span>
+
+ <span style="color: #7060A8;">puts</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"server started, open http://localhost:8080/ in browser or curl, press Esc or Q to quit\n"</span><span style="color: #0000FF;">)</span>
+ <span style="color: #004080;">atom</span> <span style="color: #000000;">sock</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">socket</span><span style="color: #0000FF;">(</span><span style="color: #000000;">AF_INET</span><span style="color: #0000FF;">,</span><span style="color: #000000;">SOCK_STREAM</span><span style="color: #0000FF;">,</span><span style="color: #004600;">NULL</span><span style="color: #0000FF;">),</span>
+      <span style="color: #000000;">pSockAddr</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">sockaddr_in</span><span style="color: #0000FF;">(</span><span style="color: #000000;">AF_INET</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">""</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">8080</span><span style="color: #0000FF;">)</span>
+ <span style="color: #008080;">if</span> <span style="color: #7060A8;">bind</span><span style="color: #0000FF;">(</span><span style="color: #000000;">sock</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">pSockAddr</span><span style="color: #0000FF;">)=</span><span style="color: #000000;">SOCKET_ERROR</span> <span style="color: #008080;">then</span> <span style="color: #7060A8;">crash</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"bind (%v)"</span><span style="color: #0000FF;">,{</span><span style="color: #7060A8;">get_socket_error</span><span style="color: #0000FF;">()})</span> <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
+ <span style="color: #008080;">if</span> <span style="color: #7060A8;">listen</span><span style="color: #0000FF;">(</span><span style="color: #000000;">sock</span><span style="color: #0000FF;">,</span><span style="color: #000000;">MAX_QUEUE</span><span style="color: #0000FF;">)=</span><span style="color: #000000;">SOCKET_ERROR</span> <span style="color: #008080;">then</span> <span style="color: #7060A8;">crash</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"listen (%v)"</span><span style="color: #0000FF;">,{</span><span style="color: #7060A8;">get_socket_error</span><span style="color: #0000FF;">()})</span> <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
+ <span style="color: #008080;">while</span> <span style="color: #008080;">not</span> <span style="color: #7060A8;">find</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">get_key</span><span style="color: #0000FF;">(),{</span><span style="color: #000000;">ESCAPE</span><span style="color: #0000FF;">,</span><span style="color: #008000;">'q'</span><span style="color: #0000FF;">,</span><span style="color: #008000;">'Q'</span><span style="color: #0000FF;">})</span> <span style="color: #008080;">do</span>
+     <span style="color: #0000FF;">{</span><span style="color: #004080;">integer</span> <span style="color: #000000;">code</span><span style="color: #0000FF;">}</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">select</span><span style="color: #0000FF;">({</span><span style="color: #000000;">sock</span><span style="color: #0000FF;">},{},{},</span><span style="color: #000000;">250000</span><span style="color: #0000FF;">)</span>    <span style="color: #000080;font-style:italic;">-- (0.25s)</span>
+     <span style="color: #008080;">if</span> <span style="color: #000000;">code</span><span style="color: #0000FF;">=</span><span style="color: #000000;">SOCKET_ERROR</span> <span style="color: #008080;">then</span> <span style="color: #7060A8;">crash</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"select (%v)"</span><span style="color: #0000FF;">,{</span><span style="color: #7060A8;">get_socket_error</span><span style="color: #0000FF;">()})</span> <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
+     <span style="color: #008080;">if</span> <span style="color: #000000;">code</span><span style="color: #0000FF;">></span><span style="color: #000000;">0</span> <span style="color: #008080;">then</span>  <span style="color: #000080;font-style:italic;">-- (not timeout)</span>
+         <span style="color: #004080;">atom</span> <span style="color: #000000;">peer</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">accept</span><span style="color: #0000FF;">(</span><span style="color: #000000;">sock</span><span style="color: #0000FF;">),</span>
+              <span style="color: #000000;">ip</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">getsockaddr</span><span style="color: #0000FF;">(</span><span style="color: #000000;">peer</span><span style="color: #0000FF;">)</span>
+         <span style="color: #0000FF;">{</span><span style="color: #004080;">integer</span> <span style="color: #000000;">len</span><span style="color: #0000FF;">,</span> <span style="color: #004080;">string</span> <span style="color: #000000;">request</span><span style="color: #0000FF;">}</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">recv</span><span style="color: #0000FF;">(</span><span style="color: #000000;">peer</span><span style="color: #0000FF;">)</span>
+         <span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"Client IP: %s\n%s\n"</span><span style="color: #0000FF;">,{</span><span style="color: #7060A8;">ip_to_string</span><span style="color: #0000FF;">(</span><span style="color: #000000;">ip</span><span style="color: #0000FF;">),</span><span style="color: #000000;">request</span><span style="color: #0000FF;">})</span>
+         <span style="color: #008080;">if</span> <span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">request</span><span style="color: #0000FF;">)></span><span style="color: #000000;">3</span> <span style="color: #008080;">and</span> <span style="color: #000000;">request</span><span style="color: #0000FF;">[</span><span style="color: #000000;">1</span><span style="color: #0000FF;">..</span><span style="color: #000000;">4</span><span style="color: #0000FF;">]=</span><span style="color: #008000;">"GET "</span> <span style="color: #008080;">then</span>
+             <span style="color: #004080;">integer</span> <span style="color: #000000;">bytes_sent</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">send</span><span style="color: #0000FF;">(</span><span style="color: #000000;">peer</span><span style="color: #0000FF;">,</span><span style="color: #000000;">response</span><span style="color: #0000FF;">)</span>
+             <span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"%d bytes successfully sent\n"</span><span style="color: #0000FF;">,</span><span style="color: #000000;">bytes_sent</span><span style="color: #0000FF;">)</span>
+         <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
+         <span style="color: #7060A8;">shutdown</span><span style="color: #0000FF;">(</span><span style="color: #000000;">peer</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">SD_SEND</span><span style="color: #0000FF;">)</span> <span style="color: #000080;font-style:italic;">-- tell curl it's over</span>
+         <span style="color: #000000;">peer</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">closesocket</span><span style="color: #0000FF;">(</span><span style="color: #000000;">peer</span><span style="color: #0000FF;">)</span>  <span style="color: #000080;font-style:italic;">--    (as does this)</span>
+     <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
+ <span style="color: #008080;">end</span> <span style="color: #008080;">while</span>
+ <span style="color: #000000;">sock</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">closesocket</span><span style="color: #0000FF;">(</span><span style="color: #000000;">sock</span><span style="color: #0000FF;">)</span>
+ <span style="color: #7060A8;">WSACleanup</span><span style="color: #0000FF;">()</span>
+<!--
--- a/Task/Hello-world-Web-server/PicoLisp/hello-world-web-server.l
+++ b/Task/Hello-world-Web-server/PicoLisp/hello-world-web-server.l
@ -0,0 +1,2 @@
+(html 0 "Bye" NIL NIL
+   "Goodbye, World!" )
--- a/Task/Hello-world-Web-server/Pike/hello-world-web-server.pike
+++ b/Task/Hello-world-Web-server/Pike/hello-world-web-server.pike
@ -0,0 +1,11 @@
+void handle_request(Protocols.HTTP.Server.Request request)
+{
+    request->response_and_finish( ([ "data":"Goodbye, World!",
+                                     "type":"text/html" ]) );
+}
+
+int main()
+{
+    Protocols.HTTP.Server.Port(handle_request, 8080);
+    return -1; // -1 is a special case that retirns control to the backend
+}
--- a/Task/Hello-world-Web-server/Pony/hello-world-web-server.pony
+++ b/Task/Hello-world-Web-server/Pony/hello-world-web-server.pony
@ -0,0 +1,49 @@
+use "net"
+
+actor Main
+  new create(env: Env) =>
+    try TCPListener(env.root as AmbientAuth,
+                Listener,
+                "127.0.0.1", "8080")
+    else env.err.print("unable to use the network")
+    end
+
+// Boilerplate code, create a TCP listener on a socket
+class Listener is TCPListenNotify
+
+  new iso create() => None
+
+  fun ref listening(_: TCPListener ref) => None
+
+  fun ref not_listening(listen: TCPListener ref) => listen.close()
+
+  fun ref connected(listen: TCPListener ref): TCPConnectionNotify iso^ =>
+    Server
+
+
+// HTTP server that handles the TCP connections
+class val Server is TCPConnectionNotify
+
+  // Empty ctor
+  new iso create() => None
+
+  // Impl for when server accepts the client request
+  fun accepted(_: TCPConnection ref) => None
+
+  // Impl for when server receives client data
+  fun ref received(conn: TCPConnection ref, _: Array[U8] iso, _: USize)
+  : Bool
+  =>
+    // handle request
+    conn.write("HTTP/1.1 200 OK\r\n\r\n")
+    conn.write("<html><body><p>")
+    conn.write("Goodbye, World!")
+    conn.write("</p></body></html>")
+    conn.dispose()
+    false
+
+  // Impl for when client closes the connection
+  fun ref closed(conn: TCPConnection ref) => conn.dispose()
+
+  // Impl for when client fails to connect to all possible addresses for the server
+  fun ref connect_failed(_: TCPConnection ref) => None
--- a/Task/Hello-world-Web-server/Prolog/hello-world-web-server.pro
+++ b/Task/Hello-world-Web-server/Prolog/hello-world-web-server.pro
@ -0,0 +1,18 @@
+% The following modules are used in the main module to start a server.
+:- use_module(library(http/thread_httpd)).
+:- use_module(library(http/http_dispatch)).
+
+% The following module is used in every module that describes a page.
+:- use_module(library(http/html_write)).
+
+% Main entry point: starts the server on port 8080.
+server :- http_server(http_dispatch, [port(8080)]).
+
+% Defines the handler for the root URI /.
+:- http_handler('/', say_goodbye, []).
+
+% Defines the actual page content.
+% In this case we're returning a page with the title "Howdy" and the content,
+% wrapped in <h1></h1> tags, "Goodbye, World!".
+say_goodbye(_Request) :- reply_html_page([title('Howdy')],
+                                   [h1('Goodbye, World!')]).
--- a/Task/Hello-world-Web-server/PureBasic/hello-world-web-server.basic
+++ b/Task/Hello-world-Web-server/PureBasic/hello-world-web-server.basic
@ -0,0 +1,23 @@
+If InitNetwork() = 0
+  MessageRequester("Error", "Can't initialize the network !")
+  End
+EndIf
+
+Port = 8080
+
+If CreateNetworkServer(0, Port)
+  Repeat
+    Delay(1)
+    SEvent = NetworkServerEvent()
+    If SEvent
+      ClientID = EventClient()
+      Select SEvent
+        Case #PB_NetworkEvent_Data
+          SendNetworkData(ClientID,@"Goodbye, World!",Len("Goodbye, World!"))
+          CloseNetworkConnection(ClientID)
+      EndSelect
+    EndIf
+  ForEver
+Else
+  MessageRequester("Error", "Can't create the server (port in use ?).")
+EndIf
--- a/Task/Hello-world-Web-server/Python/hello-world-web-server-1.py
+++ b/Task/Hello-world-Web-server/Python/hello-world-web-server-1.py
@ -0,0 +1,8 @@
+from wsgiref.simple_server import make_server
+
+def app(environ, start_response):
+    start_response('200 OK', [('Content-Type','text/html')])
+    yield b"<h1>Goodbye, World!</h1>"
+
+server = make_server('127.0.0.1', 8080, app)
+server.serve_forever()
--- a/Task/Hello-world-Web-server/Python/hello-world-web-server-2.py
+++ b/Task/Hello-world-Web-server/Python/hello-world-web-server-2.py
@ -0,0 +1,35 @@
+import threading
+
+from http.server import BaseHTTPRequestHandler, ThreadingHTTPServer
+
+
+class HelloHTTPRequestHandler(BaseHTTPRequestHandler):
+
+  message = 'Hello World! 今日は'
+
+  def do_GET(self):
+    self.send_response(200)
+    self.send_header('Content-type', 'text/html; charset=UTF-8')
+    self.end_headers()
+    self.wfile.write(self.message.encode('utf-8'))
+    self.close_connection = True
+
+
+def serve(addr, port):
+  with ThreadingHTTPServer((addr, port), HelloHTTPRequestHandler) as server:
+    server.serve_forever(poll_interval=None)
+
+
+if __name__ == '__main__':
+
+  addr, port = ('localhost', 80)
+
+  threading.Thread(target=serve, args=(addr, port), daemon=True).start()
+
+  try:
+    while True:
+      # handle Ctrl+C
+      input()
+
+  except KeyboardInterrupt:
+    pass
--- a/Task/Hello-world-Web-server/R/hello-world-web-server.r
+++ b/Task/Hello-world-Web-server/R/hello-world-web-server.r
@ -0,0 +1,9 @@
+library(httpuv)
+
+runServer("0.0.0.0", 5000,
+	list(
+		call = function(req) {
+		  list(status = 200L,	headers = list('Content-Type' = 'text/html'), body = "Hello world!")
+	        }
+	)
+)
--- a/Task/Hello-world-Web-server/REALbasic/hello-world-web-server.basic
+++ b/Task/Hello-world-Web-server/REALbasic/hello-world-web-server.basic
@ -0,0 +1,32 @@
+Class HTTPSock
+Inherits TCPSocket
+  Event Sub DataAvailable()
+    Dim headers As New InternetHeaders
+    headers.AppendHeader("Content-Length", Str(LenB("Goodbye, World!")))
+    headers.AppendHeader("Content-Type", "text/plain")
+    headers.AppendHeader("Content-Encoding", "identity")
+    headers.AppendHeader("Connection", "close")
+    Dim data As String = "HTTP/1.1 200 OK" + EndOfLine.Windows + headers.Source + EndOfLine.Windows + EndOfLine.Windows + "Goodbye, World!"
+    Me.Write(data)
+    Me.Close
+  End Sub
+End Class
+
+Class HTTPServ
+Inherits ServerSocket
+  Event Sub AddSocket() As TCPSocket
+    Return New HTTPSock
+  End Sub
+End Class
+
+Class App
+Inherits Application
+  Event Sub Run(Args() As String)
+    Dim sock As New HTTPServ
+    sock.Port = 8080
+    sock.Listen()
+    While True
+      App.DoEvents
+    Wend
+  End Sub
+End Class
--- a/Task/Hello-world-Web-server/REXX/hello-world-web-server.rexx
+++ b/Task/Hello-world-Web-server/REXX/hello-world-web-server.rexx
@ -0,0 +1,12 @@
+/* HTTP hello server */
+response.1 = 'HTTP/1.1 200 OK' || '0D0A'X,
+          || 'Connection: close' || '0D0A'X,
+          || 'Content-Type: text/html' || '0D0A0D0A'X
+response.2 = '<!DOCTYPE html>' || '0A'X,
+          || '<html><head><title>Hello, Rosetta</title></head>' || '0A'X,
+          || '<body><h2>Goodbye, World!</h2></body>' || '0A'X,
+          || '<!-- Shout out from the Rosetta Code programming chrestomathy --></html>' || '0A'X
+
+DO FOREVER
+    ADDRESS SYSTEM 'nc -l 8080' WITH INPUT STEM response.
+END
--- a/Task/Hello-world-Web-server/Racket/hello-world-web-server.rkt
+++ b/Task/Hello-world-Web-server/Racket/hello-world-web-server.rkt
@ -0,0 +1,4 @@
+#lang racket
+(require web-server/servlet web-server/servlet-env)
+(define (start req) (response/xexpr "Goodbye, World!"))
+(serve/servlet start #:port 8080 #:servlet-path "/")
--- a/Task/Hello-world-Web-server/Raku/hello-world-web-server-1.raku
+++ b/Task/Hello-world-Web-server/Raku/hello-world-web-server-1.raku
@ -0,0 +1,7 @@
+my $listen = IO::Socket::INET.new(:listen, :localhost<localhost>, :localport(8080));
+loop {
+    my $conn = $listen.accept;
+    my $req =  $conn.get ;
+    $conn.print: "HTTP/1.0 200 OK\r\nContent-Type: text/plain; charset=UTF-8\r\n\r\nGoodbye, World!\r\n";
+    $conn.close;
+}
--- a/Task/Hello-world-Web-server/Raku/hello-world-web-server-2.raku
+++ b/Task/Hello-world-Web-server/Raku/hello-world-web-server-2.raku
@ -0,0 +1,8 @@
+react {
+    whenever IO::Socket::Async.listen('0.0.0.0', 8080) -> $conn {
+        whenever $conn.Supply.lines -> $line {
+            $conn.print: "HTTP/1.0 200 OK\r\nContent-Type: text/plain; charset=UTF-8\r\n\r\nGoodbye, World!\r\n";
+            $conn.close;
+        }
+    }
+}
--- a/Task/Hello-world-Web-server/Ring/hello-world-web-server.ring
+++ b/Task/Hello-world-Web-server/Ring/hello-world-web-server.ring
@ -0,0 +1,57 @@
+Load "guilib.ring"
+
+cResponse = "HTTP/1.1 200 OK\r\n" +
+               "Content-Type: text/html\r\n\r\n" +
+               "<html><head><title>Goodbye, world!</title></head>" +
+               "<body>Goodbye, world!</body></html>"
+
+cResponse = substr(cResponse,"\r\n",char(13)+char(10))
+
+new qApp {
+	oServer = new Server { Server() }
+	exec()
+}
+
+Class Server
+
+        win1 lineedit1
+        oTcpServer oTcpClient
+        cOutput = ""
+
+        func server
+
+                win1 = new qwidget()
+
+                lineedit1 = new qtextedit(win1) {
+                        setGeometry(150,50,200,300)
+                }
+
+                win1 {
+                        setwindowtitle("Server")
+                        setgeometry(450,100,400,400)
+                        show()
+                }
+
+                oTcpServer = new qTcpServer(win1) {		
+                        setNewConnectionEvent("oServer.pNewConnection()")
+                        oHostAddress = new qHostAddress()
+                        oHostAddress.SetAddress("127.0.0.1")
+                        listen(oHostAddress,8080)
+                }
+                cOutput = "Server Started" + nl +
+                           "listen to port 8080" + nl
+
+                lineedit1.settext(cOutput)
+
+        Func pNewConnection
+
+                oTcpClient = oTcpServer.nextPendingConnection()
+                while not oTcpClient.waitForReadyRead(100) end
+                cOutput += "Accept Connection" + nl
+                lineedit1.settext(cOutput)
+                oTcpClient {
+                        write(cResponse,len(cResponse))
+                        flush()
+                        waitforbyteswritten(300000)
+                        close()
+                }
--- a/Task/Hello-world-Web-server/Ruby/hello-world-web-server-1.rb
+++ b/Task/Hello-world-Web-server/Ruby/hello-world-web-server-1.rb
@ -0,0 +1,5 @@
+require 'webrick'
+server = WEBrick::HTTPServer.new(:Port => 8080)
+server.mount_proc('/') {|request, response| response.body = "Goodbye, World!"}
+trap("INT") {server.shutdown}
+server.start
--- a/Task/Hello-world-Web-server/Ruby/hello-world-web-server-2.rb
+++ b/Task/Hello-world-Web-server/Ruby/hello-world-web-server-2.rb
@ -0,0 +1,4 @@
+require 'webrick'
+WEBrick::HTTPServer.new(:Port => 80).tap {|srv|
+    srv.mount_proc('/') {|request, response| response.body = "Goodbye, World!"}
+}.start
--- a/Task/Hello-world-Web-server/Ruby/hello-world-web-server-3.rb
+++ b/Task/Hello-world-Web-server/Ruby/hello-world-web-server-3.rb
@ -0,0 +1,2 @@
+require 'sinatra'
+get("/") { "Goodbye, World!" }
--- a/Task/Hello-world-Web-server/Run-BASIC/hello-world-web-server.basic
+++ b/Task/Hello-world-Web-server/Run-BASIC/hello-world-web-server.basic
@ -0,0 +1 @@
+html "Hello World!"
--- a/Task/Hello-world-Web-server/Rust/hello-world-web-server.rust
+++ b/Task/Hello-world-Web-server/Rust/hello-world-web-server.rust
@ -0,0 +1,27 @@
+use std::net::{Shutdown, TcpListener};
+use std::thread;
+use std::io::Write;
+
+const RESPONSE: &'static [u8] = b"HTTP/1.1 200 OK\r
+Content-Type: text/html; charset=UTF-8\r\n\r
+<!DOCTYPE html><html><head><title>Bye-bye baby bye-bye</title>
+<style>body { background-color: #111 }
+h1 { font-size:4cm; text-align: center; color: black;
+text-shadow: 0 0 2mm red}</style></head>
+<body><h1>Goodbye, world!</h1></body></html>\r";
+
+
+fn main() {
+    let listener = TcpListener::bind("127.0.0.1:8080").unwrap();
+
+    for stream in listener.incoming() {
+        thread::spawn(move || {
+            let mut stream = stream.unwrap();
+            match stream.write(RESPONSE) {
+                Ok(_) => println!("Response sent!"),
+                Err(e) => println!("Failed sending response: {}!", e),
+            }
+            stream.shutdown(Shutdown::Write).unwrap();
+        });
+    }
+}
--- a/Task/Hello-world-Web-server/Salmon/hello-world-web-server.salmon
+++ b/Task/Hello-world-Web-server/Salmon/hello-world-web-server.salmon
@ -0,0 +1,7 @@
+use "http.salm" : "http.si";
+
+/* Don't do any logging. */
+procedure log(...) { };
+
+simple_http_server(8080, procedure(header, connection)
+  { respond_text(connection, "Goodbye, World!"); });
--- a/Task/Hello-world-Web-server/Scala/hello-world-web-server.scala
+++ b/Task/Hello-world-Web-server/Scala/hello-world-web-server.scala
@ -0,0 +1,24 @@
+import java.io.PrintWriter
+import java.net.ServerSocket
+
+object HelloWorld extends App {
+
+  val text =
+    <HTML>
+      <HEAD>
+        <TITLE>Hello world </TITLE>
+      </HEAD>
+      <BODY LANG="en-US" BGCOLOR="#e6e6ff" DIR="LTR">
+        <P ALIGN="CENTER"> <FONT FACE="Arial, sans-serif" SIZE="6">Goodbye, World!</FONT> </P>
+      </BODY>
+    </HTML>
+val port = 8080
+  val listener = new ServerSocket(port)
+   printf("Listening at port %1$d", port)
+
+  while (true) {
+    val sock = listener.accept()
+    new PrintWriter(sock.getOutputStream(), true).println(text)
+    sock.close()
+  }
+}
--- a/Task/Hello-world-Web-server/Seed7/hello-world-web-server.seed7
+++ b/Task/Hello-world-Web-server/Seed7/hello-world-web-server.seed7
@ -0,0 +1,19 @@
+$ include "seed7_05.s7i";
+  include "listener.s7i";
+
+const proc: main is func
+  local
+    var listener: aListener is listener.value;
+    var file: sock is STD_NULL;
+  begin
+    aListener := openInetListener(8080);
+    listen(aListener, 10);
+    while TRUE do
+      sock := accept(aListener);
+      write(sock, "HTTP/1.1 200 OK\r\n\
+                  \Content-Type: text/html; charset=UTF-8\r\n\
+                  \\r\n\
+                  \<html><body>Hello, world!</body></html>\n");
+      close(sock);
+    end while;
+  end func;
--- a/Task/Hello-world-Web-server/Sidef/hello-world-web-server-1.sidef
+++ b/Task/Hello-world-Web-server/Sidef/hello-world-web-server-1.sidef
@ -0,0 +1,24 @@
+var port = 8080;
+var protocol = Socket.getprotobyname("tcp");
+ 
+var sock = (Socket.open(Socket.PF_INET, Socket.SOCK_STREAM, protocol) || die "couldn't open a socket: #{$!}");
+  # PF_INET to indicate that this socket will connect to the internet domain
+  # SOCK_STREAM indicates a TCP stream, SOCK_DGRAM would indicate UDP communication
+ 
+sock.setsockopt(Socket.SOL_SOCKET, Socket.SO_REUSEADDR, 1) || die "couldn't set socket options: #{$!}";
+  # SOL_SOCKET to indicate that we are setting an option on the socket instead of the protocol
+  # mark the socket reusable
+ 
+sock.bind(Socket.sockaddr_in(port, Socket.INADDR_ANY)) || die "couldn't bind socket to port #{port}: #{$!}";
+  # bind our socket to $port, allowing any IP to connect
+ 
+sock.listen(Socket.SOMAXCONN) || die "couldn't listen to port #{port}: #{$!}";
+  # start listening for incoming connections
+ 
+while (var client = sock.accept) {
+  client.print ("HTTP/1.1 200 OK\r\n" +
+               "Content-Type: text/html; charset=UTF-8\r\n\r\n" +
+               "<html><head><title>Goodbye, world!</title></head>" +
+               "<body>Goodbye, world!</body></html>\r\n");
+  client.close;
+}
--- a/Task/Hello-world-Web-server/Sidef/hello-world-web-server-2.sidef
+++ b/Task/Hello-world-Web-server/Sidef/hello-world-web-server-2.sidef
@ -0,0 +1,14 @@
+var inet = require('IO::Socket::INET');
+
+var sock = inet.new( LocalAddr => "127.0.0.1:8080",
+                     Listen    => 1,
+                     Reuse     => 1,
+            );
+
+while (var client = sock.accept) {
+    client.print ("HTTP/1.1 200 OK\r\n" +
+                "Content-Type: text/html; charset=UTF-8\r\n\r\n" +
+                "<html><head><title>Goodbye, world!</title></head>" +
+                "<body>Goodbye, world!</body></html>\r\n");
+    client.close;
+}
--- a/Task/Hello-world-Web-server/Smalltalk/hello-world-web-server-1.st
+++ b/Task/Hello-world-Web-server/Smalltalk/hello-world-web-server-1.st
@ -0,0 +1,14 @@
+Smalltalk loadPackage:'stx:goodies/webServer'. "usually already loaded"
+|myServer service|
+
+myServer := HTTPServer startServerOnPort:8082.
+service := HTTPPluggableActionService new.
+service
+    register:[:request |
+        self halt: 'debugging'.
+        request reply:'<HTML><BODY><H1>Hello World</H1></BODY></HTML>'
+    ]
+    as:'hello'.
+service linkNames:#('/' ).
+service registerServiceOn: myServer.
+myServer start.
--- a/Task/Hello-world-Web-server/Smalltalk/hello-world-web-server-2.st
+++ b/Task/Hello-world-Web-server/Smalltalk/hello-world-web-server-2.st
@ -0,0 +1,3 @@
+(ZnServer startDefaultOn: 1701)
+   onRequestRespond: [ :request |
+      ZnResponse ok: (ZnEntity text: 'Hello World!') ].
--- a/Task/Hello-world-Web-server/Smalltalk/hello-world-web-server-3.st
+++ b/Task/Hello-world-Web-server/Smalltalk/hello-world-web-server-3.st
@ -0,0 +1 @@
+ZnServer stopDefault.
--- a/Task/Hello-world-Web-server/Standard-ML/hello-world-web-server.ml
+++ b/Task/Hello-world-Web-server/Standard-ML/hello-world-web-server.ml
@ -0,0 +1,27 @@
+val txt = Word8VectorSlice.full (Byte.stringToBytes  "hello world!"   ) ;
+
+fun serve listener portnr =
+ let
+  fun next () =
+   let
+    val (conn, conn_addr) = Socket.accept listener
+   in
+    case  Posix.Process.fork () of
+        NONE   =>
+             (
+	      Socket.sendVec(conn, txt); Socket.close conn ;
+              OS.Process.exit OS.Process.success
+             )
+       | _     =>
+             (
+	      Socket.close conn ;next ()
+	     )
+    end
+  in (
+   Socket.Ctl.setREUSEADDR(listener, true);
+   Socket.bind(listener, INetSock.any portnr );
+   Socket.listen(listener, 9);
+   next ()
+   )
+  end               handle x => (Socket.close listener; raise x)
+;
--- a/Task/Hello-world-Web-server/Tcl/hello-world-web-server-1.tcl
+++ b/Task/Hello-world-Web-server/Tcl/hello-world-web-server-1.tcl
@ -0,0 +1,8 @@
+proc accept {chan addr port} {
+    while {[gets $chan] ne ""} {}
+    puts $chan "HTTP/1.1 200 OK\nConnection: close\nContent-Type: text/plain\n"
+    puts $chan "Goodbye, World!"
+    close $chan
+}
+socket -server accept 8080
+vwait forever
--- a/Task/Hello-world-Web-server/Tcl/hello-world-web-server-2.tcl
+++ b/Task/Hello-world-Web-server/Tcl/hello-world-web-server-2.tcl
@ -0,0 +1,8 @@
+set s [socket stream.server 127.0.0.1:8080]
+$s readable {
+    set client [$s accept]
+    $client puts "HTTP/1.1 200 OK\nConnection: close\nContent-Type: text/plain\n"
+    $client puts "Hello, World!\n"
+    $client close
+}
+vwait done
--- a/Task/Hello-world-Web-server/UNIX-Shell/hello-world-web-server.sh
+++ b/Task/Hello-world-Web-server/UNIX-Shell/hello-world-web-server.sh
@ -0,0 +1 @@
+while true; do { echo -e 'HTTP/1.1 200 OK\r\n'; echo 'Hello, World!'; } | nc -l 8080; done
--- a/Show more
+++ b/Show more
				`@ -0,0 +1 @@`
				`serv: httprun[8080; {"HTTP/1.0 200 OK\r\nContent-Type: text/plain\r\n\r\nGoodbye, World!"}]`
				`@ -0,0 +1 @@`
				`serve.port:8080 [ GET "/" -> "Goodbye, World!" ]`
				`@ -0,0 +1 @@`
				`server = one_page_server("Hello", -> <>Goodbye, world</>)`
				`@ -0,0 +1 @@`
				`my $app = sub { return [ 200, [ 'Content-Type' => 'text/html; charset=UTF-8' ], [ '<html><head><title>Goodbye, world!</title></head><body>Goodbye, world!</body></html>' ] ] };`
				`@ -0,0 +1 @@`
				`plackup --host localhost --port 8080 script.psgi`
				`@ -0,0 +1 @@`
				`while true; do { echo -e 'HTTP/1.1 200 OK\r\n'; echo 'Hello, World!'; } \| nc -l 8080; done`