Re: Zinc Server name

Torsten asked how to change the server name as seen in HTTP responses:

$ curl -v http://localhost:1701/echo
*   Trying 127.0.0.1...
* Connected to localhost (127.0.0.1) port 1701 (#0)
> GET /echo HTTP/1.1
> Host: localhost:1701
> User-Agent: curl/7.43.0
> Accept: */*
>
< HTTP/1.1 200 OK
< Content-Length: 245
< Content-Type: text/plain;charset=utf-8
< Server: Zinc HTTP Components 1.0
< Date: Sat, 28 May 2016 11:30:43 GMT
<
This is Zinc HTTP Components echoing your request !
Running a ZnManagingMultiThreadedServer(running 1701)
GET request for /echo
with headers
 X-Zinc-Remote-Address: 127.0.0.1
 Host: localhost:1701
 User-Agent: curl/7.43.0
 Accept: */*

As you can see, the default header is 'Server: Zinc HTTP Components 1.0'.

We don't need specific API for this uncommon scenario, as all requests and response are object that you can manipulate at will. We can do this programmatically as follows:

| delegate |
ZnServer startDefaultOn: 1701.
delegate := ZnServer default delegate.
ZnServer default delegate:
  (ZnValueDelegate with: [ :request |
     | response |
     response := delegate handleRequest: request.
     response headers at: #Server put: 'My HTTP Server 3.14'.
     response ]).

The default handler of the server gets wrapped, the original is used to do the actual work, when it returns a response, we manipulate it as required. Now, the server name has changed:

$ curl -v http://localhost:1701/echo
*   Trying 127.0.0.1...
* Connected to localhost (127.0.0.1) port 1701 (#0)
> GET /echo HTTP/1.1
> Host: localhost:1701
> User-Agent: curl/7.43.0
> Accept: */*
>
< HTTP/1.1 200 OK
< Content-Length: 245
< Content-Type: text/plain;charset=utf-8
< Server: My HTTP Server 3.14
< Date: Sat, 28 May 2016 11:31:03 GMT
<
This is Zinc HTTP Components echoing your request !
Running a ZnManagingMultiThreadedServer(running 1701)
GET request for /echo
with headers
 X-Zinc-Remote-Address: 127.0.0.1
 Host: localhost:1701
 User-Agent: curl/7.43.0
 Accept: */*

Sven