sergio/takana

1#!/bin/sh
2# Da de alta una PERSONA en la caja: cuenta, clave, sudo, subids y su jaula de Claude.
3#
4# ── ¿POR QUÉ NO ALCANZA CON `adduser`? Porque casi alcanza, y lo que falta tumbó la caja ────────
5# `adduser` está (es el de busybox) y crea la cuenta. El problema es **dónde queda la contraseña**:
6# esta caja **NO USA `/etc/shadow`** — el hash vive en el campo 2 de `/etc/passwd`, y el `shadow`
7# que hubo está aparcado como `/etc/shadow.el-que-bloqueo-root`. El nombre no es broma: al crear un
8# `/etc/shadow` con todas las cuentas bloqueadas (`!`), **sshd dejó de aceptar hasta la clave de
9# root** y la caja se quedó sin administración con los ocho dominios caídos ~20 min (SDD 28 §6.51).
10# Un `adduser` a secas puede crear ese fichero sin avisar.
11#
12# Entonces el alta correcta acá es: crear la cuenta, dejar el hash donde el login lo lee, y
13# **comprobar que quien podía entrar sigue pudiendo** antes de darse por satisfecho.
14#
15# Lo demás es lo que hace falta para «tener poder sobre la máquina, a mano y con claude»:
16#   · `/etc/sudoers.d/<u>`   — root a mano (el `sudo` de acá SÍ es setuid; `doas` no funciona)
17#   · `/etc/sub{u,g}id`      — sin rango, un userns anidado no puede mapear uid 0 y `takana build`
18#                              no corre dentro de la jaula
19#   · instancia `claude-<u>` — con `root = false`, o el CLI se ve uid 0 y RECHAZA
20#                              `--dangerously-skip-permissions`
21#
22# Uso:  alta-usuario.sh <usuario> [clave]        (sin clave: la cuenta queda SIN contraseña, sólo ssh)
23set -eu
24
25U=${1:?uso: alta-usuario.sh <usuario> [clave]}
26CLAVE=${2:-}
27HOME_U=/home/$U
28
29[ "$(id -u)" = "0" ] || { echo "esto se corre como root" >&2; exit 1; }
30
31# Foto de quién puede entrar ANTES de tocar nada: es contra esto que se compara al final.
32ANTES=$(awk -F: '$2 != "" && $2 != "!" && $2 != "*" {print $1}' /etc/passwd | sort | tr '\n' ' ')
33HABIA_SHADOW=no; [ -f /etc/shadow ] && HABIA_SHADOW=si
34
35if id "$U" >/dev/null 2>&1; then
36  echo "==> $U ya existe (uid $(id -u "$U")) — sigo con el resto"
37else
38  echo "==> creando $U"
39  adduser -D -h "$HOME_U" -s /bin/bash "$U"
40fi
41
42# ── la contraseña, donde el login la lee ────────────────────────────────────────────────────────
43if [ -n "$CLAVE" ]; then
44  H=$(openssl passwd -6 "$CLAVE" 2>/dev/null || busybox cryptpw -m sha512 "$CLAVE")
45  # En passwd, campo 2. Se usa `awk` y no `sed` porque el hash trae `/` y `$` a montones.
46  awk -F: -v u="$U" -v h="$H" 'BEGIN{OFS=":"} $1==u {$2=h} {print}' /etc/passwd > /etc/passwd.nuevo
47  # Nunca dejar un passwd a medias: se comprueba que el fichero nuevo tenga las mismas cuentas.
48  [ "$(wc -l < /etc/passwd.nuevo)" -eq "$(wc -l < /etc/passwd)" ] || { echo "passwd nuevo con distinto número de cuentas — aborto" >&2; rm -f /etc/passwd.nuevo; exit 1; }
49  mv /etc/passwd.nuevo /etc/passwd; chmod 644 /etc/passwd
50  echo "  clave puesta en /etc/passwd (esta caja no usa shadow)"
51fi
52
53# ⚠ GUARDIÁN DEL BLOQUEO: si `adduser` creó un /etc/shadow que no había, cualquiera que tuviera su
54# hash en passwd queda con `x` y bloqueado. Es literalmente cómo se perdió la caja.
55if [ "$HABIA_SHADOW" = "no" ] && [ -f /etc/shadow ]; then
56  mv /etc/shadow /etc/shadow.creado-por-el-alta-$(date +%s)
57  echo "  ⚠ adduser creó /etc/shadow donde no había: lo aparté (así se perdió la caja el 2026-09-17)"
58fi
59
60echo "==> poder: sudo, subids"
61[ -f "/etc/sudoers.d/$U" ] || { echo "$U ALL=(ALL:ALL) ALL" > "/etc/sudoers.d/$U"; chmod 440 "/etc/sudoers.d/$U"; }
62for f in /etc/subuid /etc/subgid; do
63  grep -q "^$U:" "$f" 2>/dev/null && continue
64  # Rango propio, detrás del último declarado, sin solaparse.
65  ult=$(awk -F: '{print $2+$3}' "$f" 2>/dev/null | sort -n | tail -1); : "${ult:=100000}"
66  echo "$U:$ult:65536" >> "$f"
67done
68# Sin estos dos setuid, el rango de arriba no se puede aplicar: son los que escriben el uid_map.
69for b in /usr/bin/newuidmap /usr/bin/newgidmap; do
70  [ -u "$b" ] || { chmod 4755 "$b"; echo "  setuid puesto en $b"; }
71done
72
73echo "==> ssh"
74mkdir -p "$HOME_U/.ssh"; touch "$HOME_U/.ssh/authorized_keys"
75chmod 700 "$HOME_U/.ssh"; chmod 600 "$HOME_U/.ssh/authorized_keys"
76chown -R "$U:$U" "$HOME_U/.ssh"
77[ -s "$HOME_U/.ssh/authorized_keys" ] || echo "  (authorized_keys vacío: poné la clave pública o no entra por ssh)"
78
79echo "==> jaula de claude"
80BASE=/var/lib/hammer/qorpa/instances
81if [ -d "$BASE/claude" ] && [ ! -d "$BASE/claude-$U" ]; then
82  mkdir -p "$BASE/claude-$U"
83  sed -e "s|^root = true$|root = false|" \
84      -e "s|/home/sergio|$HOME_U|g" -e "s|/work/sergio|/work/$U|g" \
85      "$BASE/claude/instance.toml" > "$BASE/claude-$U/instance.toml"
86  mkdir -p "/work/$U"
87  chown -R "$U:$U" "$BASE/claude-$U" "/work/$U"
88  echo "  instancia claude-$U creada (root = false: si no, el CLI se ve uid 0 y rechaza la bandera)"
89else
90  echo "  (ya existía, o no hay instancia `claude` de la que copiar)"
91fi
92
93# ── CONTROLES ───────────────────────────────────────────────────────────────────────────────────
94echo "==> control"
95id "$U" | sed 's/^/  /'
96DESPUES=$(awk -F: '$2 != "" && $2 != "!" && $2 != "*" {print $1}' /etc/passwd | sort | tr '\n' ' ')
97perdidos=""
98for a in $ANTES; do case " $DESPUES " in *" $a "*) ;; *) perdidos="$perdidos $a";; esac; done
99[ -z "$perdidos" ] || { echo "  ✗ estas cuentas PERDIERON su contraseña:$perdidos" >&2; exit 1; }
100echo "  ✓ nadie perdió el acceso que tenía (antes:$ANTES)"
101[ -f /etc/shadow ] && echo "  ⚠ hay /etc/shadow: revisá que root NO esté bloqueado ahí" || echo "  ✓ sin /etc/shadow (como esta caja espera)"
102echo "==> $U dado de alta"