Un servidor web en miniatura: de la petición HTTP al fichero o al PHP

1<?php
2const TIPOS = [
3    "html" => "text/html; charset=utf-8", "css" => "text/css; charset=utf-8", "js" => "text/javascript; charset=utf-8",
4    "json" => "application/json", "png" => "image/png", "jpg" => "image/jpeg", "svg" => "image/svg+xml", "pdf" => "application/pdf",
5];
6const ESTADOS = [
7    200 => "OK", 301 => "Moved Permanently", 304 => "Not Modified", 400 => "Bad Request", 403 => "Forbidden",
8    404 => "Not Found", 405 => "Method Not Allowed", 505 => "HTTP Version Not Supported",
9];
10
11/** Fecha en el formato de HTTP: Mon, 28 Sep 2026 08:30:00 GMT */
12function fechaHttp(int $t): string
13{
14    return gmdate("D, d M Y H:i:s", $t) . " GMT";
15}
16
17/** Decodifica la ruta y resuelve . y ..; null si intenta salir de la raíz del sitio. */
18function normalizar(string $ruta): ?string
19{
20    $partes = [];
21    // se decodifica antes de partir: %2e%2e también es ..
22    foreach (explode("/", rawurldecode($ruta)) as $p) {
23        if ($p === "" || $p === ".") continue;
24        if ($p === "..") {
25            if (!$partes) return null;
26            array_pop($partes);
27            continue;
28        }
29        $partes[] = $p;
30    }
31    return "/" . implode("/", $partes) . ($partes && str_ends_with($ruta, "/") ? "/" : "");
32}
33
34/** [estado, cabeceras, cuerpo] para una petición ya separada en sus partes. */
35function responder(array $ficheros, string $metodo, string $objetivo, string $version, array $cab): array
36{
37    if ($version !== "HTTP/1.0" && $version !== "HTTP/1.1") return [505, [], null];
38    if ($version === "HTTP/1.1" && !isset($cab["host"])) return [400, [], null];
39    if (!str_starts_with($objetivo, "/")) return [400, [], null];
40    [$camino] = explode("?", $objetivo, 2);
41    $consulta = str_contains($objetivo, "?") ? "?" . explode("?", $objetivo, 2)[1] : "";
42    $ruta = normalizar($camino);
43    if ($ruta === null) return [400, [], null];
44    // ficheros ocultos (.env, .git…): nunca se sirven
45    foreach (explode("/", $ruta) as $p) {
46        if (str_starts_with($p, ".")) return [403, [], null];
47    }
48    $esDirectorio = fn(string $r) => (bool) array_filter(array_keys($ficheros), fn($f) => str_starts_with($f, rtrim($r, "/") . "/"));
49    $fichero = null;
50    if (!str_ends_with($ruta, "/") && $ruta !== "/" && !isset($ficheros[$ruta]) && $esDirectorio($ruta)) {
51        return [301, ["Location" => $ruta . "/" . $consulta], null];
52    }
53    if (str_ends_with($ruta, "/")) {
54        foreach (["index.html", "index.php"] as $indice) {
55            if (isset($ficheros[$ruta . $indice])) {
56                $fichero = $ruta . $indice;
57                break;
58            }
59        }
60        if ($fichero === null && $esDirectorio($ruta)) return [403, [], null];    // sin listado de directorios
61    } elseif (isset($ficheros[$ruta])) {
62        $fichero = $ruta;
63    }
64    if ($fichero === null) {
65        // controlador frontal: lo que no existe lo atiende /index.php (FallbackResource o try_files)
66        if (!isset($ficheros["/index.php"])) return [404, [], null];
67        $fichero = "/index.php";
68    }
69    if (str_ends_with($fichero, ".php")) {
70        return [200, ["Content-Type" => TIPOS["html"]], "[PHP: $fichero con REQUEST_URI=$objetivo y método $metodo]"];
71    }
72    if ($metodo !== "GET" && $metodo !== "HEAD") return [405, ["Allow" => "GET, HEAD"], null];
73    [$bytes, $modificado] = $ficheros[$fichero];
74    $ext = strtolower(pathinfo($fichero, PATHINFO_EXTENSION));
75    $desde = isset($cab["if-modified-since"]) ? strtotime($cab["if-modified-since"]) : false;
76    if ($desde !== false && $modificado <= $desde) return [304, ["Last-Modified" => fechaHttp($modificado)], null];
77    $cabeceras = ["Content-Type" => TIPOS[$ext] ?? "application/octet-stream", "Content-Length" => $bytes, "Last-Modified" => fechaHttp($modificado)];
78    return [200, $cabeceras, $metodo === "HEAD" ? null : "[cuerpo: $bytes bytes]"];
79}
80
81// ── Lectura: los ficheros del sitio, ---, y las peticiones separadas por una línea en blanco
82$lineas = explode("\n", str_replace("\r", "", stream_get_contents(STDIN)));
83$ficheros = [];
84$i = 0;
85for (; $i < count($lineas) && trim($lineas[$i]) !== "---"; $i++) {
86    if (trim($lineas[$i]) === "") continue;
87    [$ruta, $bytes, $fecha] = preg_split('/\s+/', trim($lineas[$i]));
88    $ficheros[$ruta] = [(int) $bytes, strtotime($fecha)];
89}
90$bloques = array_filter(preg_split('/\n\s*\n/', implode("\n", array_slice($lineas, $i + 1))), fn($b) => trim($b) !== "");
91$cuenta = ["2xx" => 0, "3xx" => 0, "4xx" => 0, "5xx" => 0];
92foreach ($bloques as $bloque) {
93    $filas = explode("\n", trim($bloque));
94    $primera = array_shift($filas);
95    echo "> $primera\n";
96    $partes = explode(" ", $primera);
97    $cab = [];
98    $malFormada = count($partes) !== 3 || !preg_match('/^[A-Z]+$/', $partes[0]);
99    foreach ($filas as $f) {
100        if (!preg_match('/^([\w-]+):\s*(.*)$/', $f, $m)) $malFormada = true;
101        else $cab[strtolower($m[1])] = trim($m[2]);
102    }
103    [$estado, $cabeceras, $cuerpo] = $malFormada ? [400, [], null] : responder($ficheros, ...[$partes[0], $partes[1], $partes[2], $cab]);
104    echo "HTTP/1.1 $estado " . ESTADOS[$estado] . "\n";
105    foreach ($cabeceras as $nombre => $valor) echo "$nombre: $valor\n";
106    if ($cuerpo !== null) echo "$cuerpo\n";
107    $cuenta[intdiv($estado, 100) . "xx"]++;
108}
109echo "Peticiones: " . count($bloques) . " · " . implode(" · ", array_map(fn($k, $v) => "$k: $v", array_keys($cuenta), $cuenta)) . "\n";