Un mashup en PHP: la agenda de actividades con la previsión del tiempo

1<?php
2const DIAS = [1 => "lunes", "martes", "miércoles", "jueves", "viernes", "sábado", "domingo"];
3const MESES = [1 => "enero", "febrero", "marzo", "abril", "mayo", "junio", "julio", "agosto", "septiembre", "octubre", "noviembre", "diciembre"];
4// Códigos del tiempo de la OMM (los que usa Open-Meteo)
5const TIEMPO = [
6    0 => "Despejado", 1 => "Poco nuboso", 2 => "Poco nuboso", 3 => "Nublado", 45 => "Niebla", 48 => "Niebla",
7    51 => "Llovizna", 53 => "Llovizna", 55 => "Llovizna", 61 => "Lluvia ligera", 63 => "Lluvia", 65 => "Lluvia fuerte",
8    80 => "Chubascos", 81 => "Chubascos", 82 => "Chubascos fuertes", 95 => "Tormenta",
9];
10const RIESGO_LLUVIA = 50;      // % a partir del cual se avisa en las actividades al aire libre
11
12[$textoAgenda, $textoTiempo] = array_pad(explode("\n---\n", str_replace("\r", "", stream_get_contents(STDIN)), 2), 2, "");
13
14/** El tiempo por fecha: ["2026-10-08" => ["codigo" => 0, "max" => 24.1, ...]], o un aviso si el servicio falla. */
15function leerTiempo(string $texto): array|string
16{
17    $datos = json_decode($texto, true);
18    if (!is_array($datos)) return "el servicio del tiempo ha devuelto una respuesta que no es JSON";
19    if (!empty($datos["error"])) return "el servicio del tiempo no responde (" . ($datos["reason"] ?? "sin motivo") . ")";
20    $d = $datos["daily"] ?? [];
21    $porFecha = [];
22    foreach ($d["time"] ?? [] as $k => $fecha) {
23        $porFecha[$fecha] = [
24            "codigo" => $d["weathercode"][$k] ?? null,
25            "max" => $d["temperature_2m_max"][$k] ?? null,
26            "min" => $d["temperature_2m_min"][$k] ?? null,
27            "lluvia" => $d["precipitation_probability_max"][$k] ?? null,
28        ];
29    }
30    return $porFecha;
31}
32
33function precio(array $e): string
34{
35    if (!empty($e["free"])) return "gratis";
36    if (!isset($e["price"]) || !is_numeric($e["price"])) return "precio sin confirmar";
37    return number_format((float) $e["price"], 2, ",", ".") . " €";
38}
39
40$agenda = json_decode($textoAgenda, true);
41if (!is_array($agenda) || !isset($agenda["@graph"]) || !is_array($agenda["@graph"])) {
42    echo "Error: la agenda no es válida\n";
43    exit;
44}
45$tiempo = leerTiempo($textoTiempo);
46if (is_string($tiempo)) {
47    echo "Aviso: $tiempo; la agenda va sin previsión\n";
48    $tiempo = [];
49}
50
51$eventos = [];
52foreach ($agenda["@graph"] as $e) {
53    $id = $e["id"] ?? "?";
54    $cuando = DateTime::createFromFormat("Y-m-d H:i:s", $e["dtstart"] ?? "");
55    if ($cuando === false || $cuando->format("Y-m-d H:i:s") !== $e["dtstart"]) {
56        echo "Aviso: el evento $id no tiene una fecha válida\n";
57        continue;
58    }
59    if (trim($e["title"] ?? "") === "") {
60        echo "Aviso: el evento $id no tiene título\n";
61        continue;
62    }
63    $eventos[] = $e + ["cuando" => $cuando];
64}
65usort($eventos, fn($a, $b) => [$a["dtstart"], $a["title"]] <=> [$b["dtstart"], $b["title"]]);
66
67$porDia = [];
68foreach ($eventos as $e) $porDia[$e["cuando"]->format("Y-m-d")][] = $e;
69$riesgo = 0;
70foreach ($porDia as $fecha => $lista) {
71    $f = $lista[0]["cuando"];
72    $cabecera = ucfirst(DIAS[(int) $f->format("N")]) . " " . $f->format("j") . " de " . MESES[(int) $f->format("n")] . ": ";
73    $t = $tiempo[$fecha] ?? null;
74    if ($t === null || $t["codigo"] === null) {
75        $cabecera .= "sin previsión del tiempo";
76    } else {
77        $cabecera .= (TIEMPO[$t["codigo"]] ?? "código " . $t["codigo"]) . ", " . round($t["min"]) . "–" . round($t["max"]) . " °C, lluvia " . $t["lluvia"] . " %";
78    }
79    echo "$cabecera\n";
80    foreach ($lista as $e) {
81        $linea = "  " . $e["cuando"]->format("H:i") . " " . trim($e["title"]);
82        if (!empty($e["event-location"])) $linea .= " (" . $e["event-location"] . ")";
83        $linea .= " · " . precio($e);
84        if (!empty($e["aire-libre"])) {
85            $linea .= " · al aire libre";
86            if ($t !== null && $t["lluvia"] !== null && $t["lluvia"] >= RIESGO_LLUVIA) {
87                $linea .= " · ¡Ojo! " . $t["lluvia"] . " % de probabilidad de lluvia";
88                $riesgo++;
89            }
90        }
91        echo "$linea\n";
92    }
93}
94$n = count($eventos);
95$d = count($porDia);
96echo "$n " . ($n === 1 ? "actividad" : "actividades") . " en $d " . ($d === 1 ? "día" : "días") . "; $riesgo al aire libre con riesgo de lluvia\n";