Como todos sabemos, existe um código de status HTTP 418: sou um bule de chá .

Sua missão, se você optar por aceitá-la, é usar sua capacidade criativa e escrever o menor servidor possível que responda com o código de status acima a toda e qualquer solicitação HTTP feita a ele.

Aplicam-se brechas padrão , incluindo

Buscando a saída desejada de uma fonte externa

Isso inclui fazer uma solicitação HTTP para buscar a página com a pergunta e extrair uma solução dessa página. Isso foi levemente divertido em 2011, mas agora é derivado e desinteressante.

Significando que você não pode simplesmente redirecionar a solicitação para outro servidor para que ela retorne a resposta.

Resolvendo alguma confusão sobre a funcionalidade do servidor:
Seu servidor pode fazer qualquer coisa (ou nada) enquanto nenhuma solicitação HTTP for feita, desde que responda com a resposta correta assim que uma solicitação HTTP for feita.

GNU Awk: 69 caracteres

Um servidor em si (serve infinitamente uma solicitação por vez), nenhuma biblioteca usada.

Envie 418 para todos que se conectarem ( 82 69 caracteres):

BEGIN{while(s="/inet/tcp/80/0/0"){print"HTTP/1.1 418\n"|&s
close(s)}}

Envie 418 para todos que enviarem algo ( 93 80 caracteres):

BEGIN{while(s="/inet/tcp/80/0/0"){s|&getline
print"HTTP/1.1 418\n"|&s
close(s)}}

Envie 418 para todos que enviarem uma solicitação HTTP GET válida ( 122 109 caracteres):

BEGIN{while(s="/inet/tcp/80/0/0"){s|&getline
if(/^GET \S+ HTTP\/1\.[01]$/)print"HTTP/1.1 418\n"|&s
close(s)}}

Bash (33)

nc -lp80 -q1<<<"HTTP/1.1 418
";$0

PHP - 85 bytes

<?for($s=socket_create_listen(80);socket_write(socket_accept($s),"HTTP/1.1 418
"););

Salvo com terminações de linha no estilo Windows (CR-LF), é necessário php_socketsativar.

Na verdade, eu usei isso como meu código de erro para o Hard Code Golf: Criar um desafio no Chatroom , mas ninguém percebeu.

Versão amigável ao navegador

<?for(socket_getsockname($s=socket_create_listen(80),$n);$t="I'm a teapot";socket_write($c=socket_accept($s),"HTTP/1.0 418 $t
Content-Length: $l

<title>418 $t</title><h1>$t</h1>The requested resource is not suitable for brewing coffee.<hr><i>$n:80</i>"))$l=124+strlen($n);

Inicie o script na CLI e aponte seu navegador para http://localhost.

Node.js (LiveScript)

http módulo - 66

require(\http)createServer (->&1.writeHead 418;&1.end!) .listen 80

Inspirado pela resposta de Qwertiy .

net módulo - 76

require(\net)createServer (->it.write 'HTTP/1.1 418\r\n';it.end!) .listen 80

Ruby + Rack, 19 bytes

run->e{[418,{},[]]}

Deve ser salvo como config.rue executado com o rackupcomando

Ou se você preferir Ruby "puro":

Rack::Handler::WEBrick.run->e{[418,{},[]]}

42 bytes + -rracksinalizador = 48 bytes

Comandos gerais do Bash + BSD, 29

Tomando emprestado um pouco de outras respostas:

nc -lp80<<<"HTTP/1.1 418
";$0

Trabalha para mim com wget.

Primeira resposta a ser usada nc, 38

for((;;)){
nc -l 80 <<<HTTP/1.1\ 418
}

Estou assumindo privilégios de root - execute da seguinte maneira:

sudo bash ./418.sh

Ruby (comando do sistema nc) - 35

loop{`nc -l 80 <<<"HTTP/1.1 418"`}

O DigitalTrauma deve receber o crédito pela ideia de usar nc, no entanto, Ruby pode fazer um loop infinito com menos caracteres que o Bash :)

Ruby (TCPServer) - 75

require'socket'
s=TCPServer.new 80
loop{(s.accept<<'HTTP/1.1 418
').close}

Essa nova linha é intencional - o caractere da nova linha real é um caractere menor que "\ n".

Ruby (WEBrick HTTPServer) - 87

require'webrick'
(s=WEBrick::HTTPServer.new).mount_proc(?/){|_,r|r.status=418}
s.start

Node.js, 80

require('http').createServer(function(q,s){s.writeHead(418);s.end()}).listen(80)

A resposta é

HTTP/1.1 418 I'm a teapot
Date: Wed, 19 Nov 2014 21:08:27 GMT
Connection: keep-alive
Transfer-Encoding: chunked

0

Python 3 106

s=__import__('socket').socket(2,1) 
s.bind(('',80))
s.listen(9)
while 1:s.accept()[0].send('HTTP/1.1 418\n')

Haskell - 142 bytes

import Network
import System.IO
main=listenOn(PortNumber 8888)>>=f
f s=do{(h,_,_)<-accept s;hPutStr h"HTTP/1.1 418\r\n";hFlush h;hClose h;f s}

Tcl (> = 8,5), 78 bytes

Editar - adicionada em uma nova linha extra (total de 2 novas linhas) por motivos de conformidade.

socket -server {apply {{c - -} {puts $c "HTTP/1.1 418
";close $c}}} 80
vwait f

Julia: 86 73 caracteres

s=listen(80)
while 1<2
c=accept(s)
write(c,"HTTP/1.1 418

")
close(c)
end

Powershell, 398

$Listener = New-Object System.Net.Sockets.TcpListener([System.Net.IPAddress]::Parse("10.10.10.10"), 80)
$Listener.Start()
while($true)
{
    $RemoteClient = $Listener.AcceptTcpClient()
    $Stream = $RemoteClient.GetStream()
    $Writer = New-Object System.IO.StreamWriter $Stream
    $Writer.Write("HTTP/1.1 418 I'm a Teapot`nConnection: Close`n`n")
    $Writer.Flush()
    $RemoteClient.Close()
}

258

$l=New-Object System.Net.Sockets.TcpListener([System.Net.IPAddress]::Parse("10.10.10.10"),80);$l.Start();while($true){$r = $l.AcceptTcpClient();$s = $r.GetStream();$w = New-Object System.IO.StreamWriter $s;$w.Write("HTTP/1.1 418`n`n");$w.Flush();$r.Close()}

R, 80 caracteres

Nunca fiz soquete de programação com R antes, mas vou tentar:

repeat{s=socketConnection(,80,T,open="r+");cat("HTTP/1.1 418\n",file=s);close(s)}

Aqui socketConnectionabre um soquete: o primeiro argumento deve ser o host, o padrão é localhostque podemos ignorá-lo aqui; o segundo argumento é a porta que não possui padrão; o argumento, serverquando especificado, TRUEcria o soquete, se FALSEele se conectar apenas a um existente. Té, por padrão, igual a TRUE, em R.

Editar: conforme sugerido em uma edição sugerida por @AlexBrown, isso pode ser reduzido para 69 caracteres :

repeat cat("HTTP/1.1 418\n",file=s<-socketConnection(,80,T))+close(s)

Node.js koa , 61 bytes

require('koa')().use(function*(){this.status=418}).listen(80)

Resposta:

HTTP/1.1 418 I'm a teapot
X-Powered-By: koa
Content-Type: text/plain; charset=utf-8
Content-Length: 12
Date: Thu, 20 Nov 2014 07:20:36 GMT
Connection: close

I'm a teapot

Requer nó v0.11.12 +

Correr como:

node --harmony app.js

Shell + sociedade, 60

socat tcp-l:80,fork exec:'printf HTTP/1.1\\ 418\\ T\r\n\r\n'

MATLAB, 97 86 bytes

Não é realmente um candidato sério em termos de contagem absoluta de bytes, mas gostaria de publicá-lo porque não achei que seria possível escrever um servidor da Web totalmente funcional usando uma ferramenta matemática. Observe o uso de encurtamento de propriedade : 'Ne','s'expande internamente para 'NetworkRole', 'server'.

t=tcpip('0.0.0.0','Ne','s');while 1
fopen(t)
fprintf(t,'HTTP/1.1 418\n')
fclose(t)
end

Você pode fazer isso com o mínimo de esforço usando um .htaccessarquivo e php.

Todos os acessos ao seu servidor retornarão o status 418.

Abaixo está o código:

.htaccess (28 bytes)

RewriteRule .* index.php [L]

PHP ( 38 19 bytes)

<<?header(TE,1,418);

Agradeço ao @primo por me salvar um monte de bytes!

Eu testei isso e confirmo que ele retorna o resultado desejado!

A propósito, "Pedido" significa "Solicitação" e "Resposta" significa "Resposta".

node.js com CoffeeScript (76)

require("connect")().use((q,s,n)->s.writeHead 418;s.end();return;).listen 80

Basta compilá-lo em JavaScript, para executar npm install connect. Depois disso, inicie-o comnode server.js

nginx - 35

events{}http{server{return 418;}}

Jogue isso no nginx.conf, inicie o nginx.

Não tenho certeza se isso usa brechas padrão "Usando funções internas para fazer o trabalho" ou "Interpretando o desafio muito literalmente". Ops, parece que o OP não vai gostar desta resposta.

Perl, 78

use Web::Simple;sub dispatch_request{sub{[418,[],[]]}}__PACKAGE__->to_psgi_app

correr como plackup whatever.pl.

Python 2.7 / Django, 94 bytes

(adicionado a partir do padrão do site django-admin.py startproject) Em urls.py:

import django.http.HttpResponse as r;urlpatterns=patterns(url(r'^*$',lambda q:r(status=418)))

C # + OWIN 251 240

Eu realmente esperava que fosse mais curto, mas os longos espaços para nome arruinaram esse plano. Requer o Microsoft.Owin.SelfHostpacote disponível no NuGet.

using Owin;class P{static void Main(){Microsoft.Owin.Hosting.WebApp.Start<P>("http://localhost");while(0<1);}public void Configuration(IAppBuilder a){a.Run(c=>{c.Response.StatusCode=418;return System.Threading.Tasks.Task.FromResult(0);});}}

node.js com o connect (78)

require('connect')().use(function(q,s,n){s.writeHead(418);s.end()}).listen(80)

Você precisa correr npm install connectprimeiro. Então comece comnode server.js

Go, 162 bytes

package main
import "net/http"
func main(){http.HandleFunc("/",func(w http.ResponseWriter,r *http.Request){w.WriteHeader(418)})
http.ListenAndServe(":80", nil)
}

Fator, 101 141 bytes

[ utf8 <threaded-server> readln 10 base> >>insecure [ "HTTP/1.1 418\r" print flush ] >>handler [ start-server ] in-thread start-server drop ]

Retorne 418 a todos que se conectarem.

Java 7, 208 bytes

import java.net.*;class R{public static void main(String[]a)throws Exception{for(ServerSocket s=new ServerSocket(80);;){Socket p=s.accept();p.getOutputStream().write("HTTP/1.0 418\n".getBytes());p.close();}}}

Esta pergunta precisava de uma resposta java.

poke@server ~
$ curl -i localhost:80
HTTP/1.0 418