#!/bin/sh
# Publica los sitios de la caja: PULL de los repos y regeneración de lo generado.
#
# ── POR QUÉ (2026-09-18) ────────────────────────────────────────────────────────────────────────
# La mudanza dejó los sitios como COPIAS a mano en `/work/www` —4,2 G del monorepo para
# `tawasuyu.net`, más `takana`/`hifas`/`gioser-web`— sin ninguna forma de refrescarlas. Contenido
# correcto y modelo frágil: el día que cambia el repo, la web no se entera y nadie lo nota, porque
# un sitio viejo responde 200 igual que uno nuevo.
#
# Ahora Caddy sirve DIRECTO de los clones de git, así que **publicar = `git pull`**:
#
#     tawasuyu.net, www          → /work/sergio/tawasuyu            (monorepo, con rewrites a web/tawasuyu-web)
#     gioser.net                 → /work/sergio/gioser-web/
#     takana-os.net, www         → /work/sergio/takana/web/takana-os.net   (⚠ el ÁRBOL DE TRABAJO)
#     takana.gioser.net          → 301 a takana-os.net              (desde el 2026-09-21)
#     hifas.gioser.net           → /work/sergio/gioser-web/hifas    (la genera scripts/hermanas.py)
#     gioser.net/{humanoid,muestras,vivo,ende,reencuentro} → /work/www/gioser-web/…  (MEDIOS, no están en git)
#
# El `.git` de los clones no se filtra: el vhost tiene `@oculto path /.* */.*` → 404, y se comprueba
# abajo. La separación páginas-de-git / medios-de-disco es deliberada: los APK de humanoid y los
# 265 M de `muestras` no viven en ningún repo, así que se quedan donde están.
#
# Idempotente. Se corre EN LA CAJA.
set -eu

# ⚠ `takana-os.net` NO ENTRA EN EL `pull` DE ARRIBA, Y ES A PROPÓSITO (2026-09-21). Su raíz no es
# un clon de publicación: es `/work/sergio/takana`, el árbol que los agentes editan. Un `pull` ahí
# mueve HEAD bajo los pies de quien esté trabajando (CLAUDE.md §2 ter, donde eso ya costó un commit
# entero). Para ese sitio, publicar es guardar el fichero — no hay nada que tirar, sólo que
# comprobar. Por eso figura abajo, en los controles, y no acá.
MONO=${MONO:-/work/sergio/tawasuyu}
TAKANA=${TAKANA:-/work/sergio/takana}
WEB=${WEB:-/work/sergio/gioser-web}

tirar() {  # $1 = clon
  [ -d "$1/.git" ] || { echo "no hay clon en $1" >&2; return 1; }
  antes=$(git -C "$1" rev-parse --short HEAD)
  # ⚠ Sólo avance rápido: si alguien dejó cambios locales en el clon que sirve la web, esto NO los
  # pisa — se queja y sigue. Un `git pull` que rebasa sobre un árbol servido es cómo se rompe un
  # sitio en producción sin enterarse.
  # ⚠ COMO EL DUEÑO, NO COMO ROOT (2026-09-18). Este guion corre como root y hacía el `pull` igual:
  # git dejó 24 entradas de root dentro del `.git` de /work/sergio/tawasuyu —refs, logs, config,
  # directorios de objetos— y el dueño se quedó sin poder ni hacer `fetch`: «unable to append to
  # .git/logs/refs/remotes/origin/main». El clon quedó congelado 21 commits atrás sin que nada
  # fallara del lado de root. Lo reportó el agente que trabaja ahí.
  duenio=$(stat -c %U "$1" 2>/dev/null || echo root)
  if [ "$duenio" != "root" ] && [ "$(id -u)" = "0" ]; then tira="su $duenio -s /bin/sh -c"; else tira="sh -c"; fi
  if $tira "git -C '$1' pull -q --ff-only" 2>/dev/null; then
    ahora=$(git -C "$1" rev-parse --short HEAD)
    [ "$antes" = "$ahora" ] && echo "  = $1 ya estaba al día ($ahora)" || echo "  ↑ $1 $antes → $ahora"
  else
    echo "  ⚠ $1 NO avanzó (¿cambios locales, o divergió?) — sigue en $antes" >&2
  fi
}

echo "==> repos"
tirar "$MONO"
tirar "$WEB"

echo "==> páginas generadas (takana y hifas)"
# `hermanas.py` trae el destino CABLEADO a `/home/sergio/gioser-web`, que es una ruta de gioser y en
# esta caja no existe. Se le pasa el del clon sin tocar el fichero del repo: el parche pertenece a
# ese repo, no a este guion.
sed "s|^DESTINO = Path(\"/home/sergio/gioser-web\")|DESTINO = Path(\"$WEB\")|" \
    "$WEB/scripts/hermanas.py" > /tmp/hermanas-caja.py
python3 /tmp/hermanas-caja.py >/dev/null
rm -f /tmp/hermanas-caja.py
# `hermanas.py` sigue escribiendo las DOS, pero desde el 2026-09-21 la de takana ya no se sirve:
# `takana.gioser.net` redirige al dominio propio y la página buena vive en el repo takana. Se deja
# generar porque el guion es de ese otro repo y partirlo acá es tocarlo de paso; lo que sí cambió
# es el control, que abajo espera un 301 y no un fichero.
for p in takana hifas; do
  [ -s "$WEB/$p/index.html" ] || { echo "  ✗ $p quedó sin index.html" >&2; exit 1; }
done
echo "  ✓ hifas $(wc -c < "$WEB/hifas/index.html") B · takana $(wc -c < "$WEB/takana/index.html") B (ya no servida)"

echo "==> control: lo que se SIRVE tiene que ser lo que está en disco"
falla=0
comprobar() {  # $1 = url  $2 = fichero en disco
  viv=$(curl -s --max-time 15 "$1" | sha256sum | cut -c1-12)
  dis=$(sha256sum "$2" 2>/dev/null | cut -c1-12)
  if [ "$viv" = "$dis" ]; then printf "  ✓ %-30s %s\n" "$1" "$viv"
  else printf "  ✗ %-30s vivo=%s disco=%s\n" "$1" "$viv" "$dis"; falla=$((falla+1)); fi
}
# Un nombre que REDIRIGE no se comprueba por contenido: se comprueba por destino. Y un nombre que
# todavía no resuelve no es un fallo del sitio —es un registro DNS que falta—, así que avisa en vez
# de ponerse rojo: mezclar las dos cosas es cómo un control deja de leerse.
#
# ⚠ Quién resuelve se lo pregunto a CURL, por su código de salida 6 («couldn't resolve host»), y no
# a `getent`: **en esta caja `getent` NO EXISTE** —musl/busybox no lo traen— así que la primera
# versión de esta función daba `not found` (127) para TODO y declaraba «no resuelve todavía» hasta
# de los nombres que estaban andando. Un control que nunca mira nada se ve igual que uno en verde.
redirige() {  # $1 = url  $2 = destino esperado
  rc=0
  d=$(curl -s -o /dev/null -w "%{redirect_url}" --max-time 15 "$1") || rc=$?
  if [ "$rc" -eq 6 ]; then
    printf "  ~ %-30s el nombre no resuelve todavía (¿falta el registro A?)\n" "$1"; return 0
  fi
  if [ "$rc" -ne 0 ]; then
    printf "  ✗ %-30s curl salió %s (¿certificado, o no escucha?)\n" "$1" "$rc"; falla=$((falla+1)); return 0
  fi
  if [ "$d" = "$2" ]; then printf "  ✓ %-30s → %s\n" "$1" "$d"
  else printf "  ✗ %-30s → %s (esperaba %s)\n" "$1" "${d:-nada}" "$2"; falla=$((falla+1)); fi
}
comprobar https://tawasuyu.net/        "$MONO/web/tawasuyu-web/index.html"
comprobar https://takana-os.net/       "$TAKANA/web/takana-os.net/index.html"
comprobar https://hifas.gioser.net/    "$WEB/hifas/index.html"
comprobar https://gioser.net/          "$WEB/index.html"
redirige  https://takana.gioser.net/   https://takana-os.net/
redirige  https://git.takana-os.net/   https://git.gioser.net/

# Los medios no salen de git, pero tienen que seguir en pie.
for u in https://gioser.net/humanoid/ https://gioser.net/muestras/; do
  c=$(curl -s -o /dev/null -w "%{http_code}" --max-time 15 "$u")
  [ "$c" = "200" ] && printf "  ✓ %-30s %s\n" "$u" "$c" || { printf "  ✗ %-30s %s\n" "$u" "$c"; falla=$((falla+1)); }
done

# Y que servir DESDE UN ÁRBOL DE GIT no exponga el repo. Son dos ahora, y el de takana además
# sirve un subdirectorio del árbol vivo, así que el día que alguien suba el root un nivel quedaría
# el repo entero publicado — y eso no falla de forma visible.
for u in https://tawasuyu.net/.git/config https://takana-os.net/.git/config; do
  g=$(curl -s -o /dev/null -w "%{http_code}" --max-time 15 "$u")
  [ "$g" = "404" ] && printf "  ✓ %-30s 404 (la regla @oculto tapa el árbol)\n" "$u" \
                   || { printf "  ✗ %-30s %s — EL REPO ESTÁ EXPUESTO\n" "$u" "$g"; falla=$((falla+1)); }
done

[ "$falla" -eq 0 ] || { echo "==> $falla control(es) en rojo" >&2; exit 1; }
echo "==> sitios publicados y verificados"