sergio/takana

1/* portal-probe — sonda del XDG Desktop Portal: ejerce el handshake COMPLETO y lo IMPRIME.
2 *
3 * ── POR QUÉ EXISTE, Y POR QUÉ NO ES UN `dbus-send` ──────────────────────────────────────────────
4 * Los portales no son llamadas RPC: son un protocolo ASÍNCRONO en dos tiempos. Cada método devuelve
5 * al instante un object path de `Request`, y la respuesta de verdad llega DESPUÉS como señal
6 * `org.freedesktop.portal.Request.Response` sobre ese path. `dbus-send` ya salió para entonces, así
7 * que devuelve el path y nunca el resultado — por eso la URI del FileChooser no se pudo capturar
8 * nunca desde el shell.
9 *
10 * Y hay una segunda razón, más dura: el portal ata la sesión al **sender**. `CreateSession` con un
11 * `dbus-send` y `SelectSources` con otro llegan desde nombres únicos DISTINTOS y el portal rechaza
12 * el segundo. Hace falta UNA conexión que viva durante todo el intercambio. Eso es este programa.
13 *
14 * ── POR QUÉ EN C Y NO CON `ashpd` ───────────────────────────────────────────────────────────────
15 * `ashpd` es el cliente de portales del ecosistema Rust y es lo que usan cosmic-screenshot y
16 * cosmic-files. Meterlo acá significaría sumar ~150 crates al `Cargo.lock` del propio hammer (el
17 * árbol fuente de esta receta es el repo de la herramienta de build) para una sonda de diagnóstico.
18 * `libdbus` ya está en la imagen y en el corpus, cuesta cero deps nuevas… y sobre todo: acá el
19 * protocolo se ve. Una sonda cuyo valor es DOCUMENTAR un handshake no debería esconderlo tras una
20 * biblioteca que lo abstrae.
21 *
22 * ── EL PATH DEL REQUEST SE PUEDE PREDECIR, Y HAY QUE ESCUCHAR ANTES DE LLAMAR ────────────────────
23 * La especificación fija el path: /org/freedesktop/portal/desktop/request/<SENDER>/<TOKEN>, donde
24 * SENDER es el nombre único propio sin el ':' inicial y con los '.' pasados a '_'. Existe a
25 * propósito: permite suscribirse ANTES de emitir la llamada. Si uno espera a que el método devuelva
26 * el path para recién ahí hacer `AddMatch`, el portal puede haber emitido ya la señal y se pierde
27 * para siempre. Es una carrera real, no teórica.
28 *
29 * Uso:  portal-probe screencast [--multiple] [--window]
30 *       portal-probe filechooser [--save]
31 *       portal-probe screenshot
32 *       portal-probe version           (qué interfaces sirve el portal, y en qué versión)
33 */
34
35#include <dbus/dbus.h>
36#include <stdio.h>
37#include <stdlib.h>
38#include <string.h>
39#include <unistd.h>
40
41#define PORTAL_BUS   "org.freedesktop.portal.Desktop"
42#define PORTAL_PATH  "/org/freedesktop/portal/desktop"
43#define IFACE_REQ    "org.freedesktop.portal.Request"
44
45static int  g_token = 0;
46static char g_sender[256];
47
48/* ── helpers de escritura: a{sv} a mano, que es lo que todo método de portal pide ─────────────── */
49
50static void dict_entry(DBusMessageIter *arr, const char *key, int type,
51                       const char *sig, const void *val)
52{
53    DBusMessageIter ent, var;
54    dbus_message_iter_open_container(arr, DBUS_TYPE_DICT_ENTRY, NULL, &ent);
55    dbus_message_iter_append_basic(&ent, DBUS_TYPE_STRING, &key);
56    dbus_message_iter_open_container(&ent, DBUS_TYPE_VARIANT, sig, &var);
57    dbus_message_iter_append_basic(&var, type, val);
58    dbus_message_iter_close_container(&ent, &var);
59    dbus_message_iter_close_container(arr, &ent);
60}
61
62static void opt_str(DBusMessageIter *a, const char *k, const char *v)
63{ dict_entry(a, k, DBUS_TYPE_STRING, "s", &v); }
64
65static void opt_u32(DBusMessageIter *a, const char *k, dbus_uint32_t v)
66{ dict_entry(a, k, DBUS_TYPE_UINT32, "u", &v); }
67
68static void opt_bool(DBusMessageIter *a, const char *k, dbus_bool_t v)
69{ dict_entry(a, k, DBUS_TYPE_BOOLEAN, "b", &v); }
70
71/* Token único por llamada. El portal lo usa para construir el path del Request, así que dos
72 * llamadas con el mismo token colisionarían sus señales. */
73static void next_token(char *out, size_t n) { snprintf(out, n, "hammer%d", ++g_token); }
74
75static void request_path(char *out, size_t n, const char *token)
76{ snprintf(out, n, "%s/request/%s/%s", PORTAL_PATH, g_sender, token); }
77
78/* ── impresión recursiva de cualquier valor D-Bus ─────────────────────────────────────────────── */
79/* El valor de la sonda está acá: no filtra lo que muestra. Si el portal devuelve un campo que este
80 * programa no conoce, igual sale por pantalla — que es exactamente lo que uno quiere de una sonda. */
81
82static void print_iter(DBusMessageIter *it, int depth)
83{
84    for (;;) {
85        int t = dbus_message_iter_get_arg_type(it);
86        if (t == DBUS_TYPE_INVALID) return;
87        for (int i = 0; i < depth; i++) fputs("  ", stdout);
88
89        switch (t) {
90        case DBUS_TYPE_STRING: case DBUS_TYPE_OBJECT_PATH: case DBUS_TYPE_SIGNATURE: {
91            const char *s; dbus_message_iter_get_basic(it, &s);
92            printf("\"%s\"\n", s); break;
93        }
94        case DBUS_TYPE_UINT32: { dbus_uint32_t v; dbus_message_iter_get_basic(it, &v); printf("%u\n", v); break; }
95        case DBUS_TYPE_INT32:  { dbus_int32_t  v; dbus_message_iter_get_basic(it, &v); printf("%d\n", v); break; }
96        case DBUS_TYPE_UINT64: { dbus_uint64_t v; dbus_message_iter_get_basic(it, &v); printf("%llu\n", (unsigned long long)v); break; }
97        case DBUS_TYPE_BOOLEAN:{ dbus_bool_t   v; dbus_message_iter_get_basic(it, &v); printf("%s\n", v ? "true" : "false"); break; }
98        case DBUS_TYPE_DOUBLE: { double        v; dbus_message_iter_get_basic(it, &v); printf("%f\n", v); break; }
99        case DBUS_TYPE_UNIX_FD:{ dbus_int32_t  v; dbus_message_iter_get_basic(it, &v); printf("<fd %d>\n", v); break; }
100        case DBUS_TYPE_VARIANT: {
101            DBusMessageIter sub; dbus_message_iter_recurse(it, &sub);
102            printf("variant:\n"); print_iter(&sub, depth + 1); break;
103        }
104        case DBUS_TYPE_ARRAY: case DBUS_TYPE_STRUCT: case DBUS_TYPE_DICT_ENTRY: {
105            DBusMessageIter sub; dbus_message_iter_recurse(it, &sub);
106            printf("%s\n", t == DBUS_TYPE_ARRAY ? "[" : "(");
107            print_iter(&sub, depth + 1);
108            for (int i = 0; i < depth; i++) fputs("  ", stdout);
109            printf("%s\n", t == DBUS_TYPE_ARRAY ? "]" : ")");
110            break;
111        }
112        default: printf("<tipo '%c'>\n", (char)t);
113        }
114        if (!dbus_message_iter_next(it)) return;
115    }
116}
117
118/* ── esperar el Response de un Request ────────────────────────────────────────────────────────── */
119/* Devuelve el código de respuesta (0 ok, 1 cancelado, 2 otro) o -1 si venció el plazo. Si
120 * `session_out` no es NULL, copia ahí el `session_handle` de los results cuando aparece. */
121
122static int wait_response(DBusConnection *bus, const char *path, int timeout_s,
123                         char *session_out, size_t session_n)
124{
125    printf("   ← esperando Response en %s (hasta %ds)\n", path, timeout_s);
126    for (int elapsed = 0; elapsed < timeout_s * 10; elapsed++) {
127        dbus_connection_read_write(bus, 100);
128        DBusMessage *msg;
129        while ((msg = dbus_connection_pop_message(bus))) {
130            if (dbus_message_is_signal(msg, IFACE_REQ, "Response") &&
131                !strcmp(dbus_message_get_path(msg), path)) {
132                DBusMessageIter it;
133                dbus_message_iter_init(msg, &it);
134                dbus_uint32_t code = 2;
135                dbus_message_iter_get_basic(&it, &code);
136                printf("   ← Response: %u (%s)\n", code,
137                       code == 0 ? "OK" : code == 1 ? "CANCELADO por el usuario" : "otro error");
138                dbus_message_iter_next(&it);
139
140                /* Buscar session_handle antes de imprimir, si nos lo pidieron. */
141                if (session_out) {
142                    DBusMessageIter arr;
143                    dbus_message_iter_recurse(&it, &arr);
144                    while (dbus_message_iter_get_arg_type(&arr) == DBUS_TYPE_DICT_ENTRY) {
145                        DBusMessageIter ent, var; const char *k;
146                        dbus_message_iter_recurse(&arr, &ent);
147                        dbus_message_iter_get_basic(&ent, &k);
148                        dbus_message_iter_next(&ent);
149                        dbus_message_iter_recurse(&ent, &var);
150                        if (!strcmp(k, "session_handle") &&
151                            dbus_message_iter_get_arg_type(&var) == DBUS_TYPE_STRING) {
152                            const char *s; dbus_message_iter_get_basic(&var, &s);
153                            snprintf(session_out, session_n, "%s", s);
154                        }
155                        dbus_message_iter_next(&arr);
156                    }
157                }
158                printf("   ← results:\n");
159                print_iter(&it, 3);
160                dbus_message_unref(msg);
161                return (int)code;
162            }
163            dbus_message_unref(msg);
164        }
165    }
166    printf("   !! sin Response en %ds — el portal aceptó la llamada y no contestó\n", timeout_s);
167    return -1;
168}
169
170/* ── llamada bloqueante que devuelve el object path del Request ───────────────────────────────── */
171
172static int call_request(DBusConnection *bus, DBusMessage *m, const char *what)
173{
174    DBusError err; dbus_error_init(&err);
175    DBusMessage *r = dbus_connection_send_with_reply_and_block(bus, m, 10000, &err);
176    dbus_message_unref(m);
177    if (!r) {
178        printf("   !! %s FALLÓ: %s: %s\n", what, err.name ? err.name : "?",
179               err.message ? err.message : "?");
180        dbus_error_free(&err);
181        return 0;
182    }
183    const char *p = NULL;
184    if (dbus_message_get_args(r, &err, DBUS_TYPE_OBJECT_PATH, &p, DBUS_TYPE_INVALID))
185        printf("   → %s aceptado, Request = %s\n", what, p);
186    else
187        printf("   → %s aceptado (sin object path en la respuesta)\n", what);
188    dbus_message_unref(r);
189    return 1;
190}
191
192static DBusMessage *new_call(const char *iface, const char *method)
193{ return dbus_message_new_method_call(PORTAL_BUS, PORTAL_PATH, iface, method); }
194
195static void subscribe(DBusConnection *bus, const char *path)
196{
197    char rule[512];
198    snprintf(rule, sizeof rule,
199             "type='signal',interface='%s',member='Response',path='%s'", IFACE_REQ, path);
200    DBusError err; dbus_error_init(&err);
201    dbus_bus_add_match(bus, rule, &err);
202    dbus_connection_flush(bus);
203    if (dbus_error_is_set(&err)) {
204        printf("   !! AddMatch falló: %s\n", err.message);
205        dbus_error_free(&err);
206    }
207}
208
209/* ── la propiedad `version` de una interfaz del portal ────────────────────────────────────────── */
210
211static void probe_version(DBusConnection *bus, const char *iface)
212{
213    DBusMessage *m = dbus_message_new_method_call(PORTAL_BUS, PORTAL_PATH,
214                                                  "org.freedesktop.DBus.Properties", "Get");
215    const char *prop = "version";
216    dbus_message_append_args(m, DBUS_TYPE_STRING, &iface, DBUS_TYPE_STRING, &prop, DBUS_TYPE_INVALID);
217    DBusError err; dbus_error_init(&err);
218    DBusMessage *r = dbus_connection_send_with_reply_and_block(bus, m, 5000, &err);
219    dbus_message_unref(m);
220    if (!r) {
221        printf("  %-46s AUSENTE (%s)\n", iface, err.name ? err.name : "?");
222        dbus_error_free(&err);
223        return;
224    }
225    DBusMessageIter it, var; dbus_uint32_t v = 0;
226    if (dbus_message_iter_init(r, &it) &&
227        dbus_message_iter_get_arg_type(&it) == DBUS_TYPE_VARIANT) {
228        dbus_message_iter_recurse(&it, &var);
229        dbus_message_iter_get_basic(&var, &v);
230    }
231    printf("  %-46s v%u\n", iface, v);
232    dbus_message_unref(r);
233}
234
235/* ── ScreenCast: el handshake de CUATRO pasos ─────────────────────────────────────────────────── */
236
237static int do_screencast(DBusConnection *bus, int multiple, int window)
238{
239    const char *IF = "org.freedesktop.portal.ScreenCast";
240    char tok[64], path[512], session[256] = {0};
241
242    /* 1. CreateSession — el único paso que además crea un objeto Session que sobrevive a la Request */
243    puts("\n[1/4] CreateSession");
244    next_token(tok, sizeof tok);
245    request_path(path, sizeof path, tok);
246    subscribe(bus, path);
247    {
248        DBusMessage *m = new_call(IF, "CreateSession");
249        DBusMessageIter it, arr;
250        dbus_message_iter_init_append(m, &it);
251        dbus_message_iter_open_container(&it, DBUS_TYPE_ARRAY, "{sv}", &arr);
252        opt_str(&arr, "handle_token", tok);
253        opt_str(&arr, "session_handle_token", "hammersess");
254        dbus_message_iter_close_container(&it, &arr);
255        if (!call_request(bus, m, "CreateSession")) return 1;
256    }
257    if (wait_response(bus, path, 15, session, sizeof session) != 0) return 1;
258    if (!session[0]) { puts("   !! sin session_handle en los results"); return 1; }
259    printf("   ✓ session_handle = %s\n", session);
260
261    /* 2. SelectSources — qué se va a capturar. `types` es un bitfield: 1=monitor, 2=ventana. */
262    puts("\n[2/4] SelectSources");
263    next_token(tok, sizeof tok);
264    request_path(path, sizeof path, tok);
265    subscribe(bus, path);
266    {
267        DBusMessage *m = new_call(IF, "SelectSources");
268        DBusMessageIter it, arr;
269        dbus_message_iter_init_append(m, &it);
270        const char *sp = session;
271        dbus_message_iter_append_basic(&it, DBUS_TYPE_OBJECT_PATH, &sp);
272        dbus_message_iter_open_container(&it, DBUS_TYPE_ARRAY, "{sv}", &arr);
273        opt_str(&arr, "handle_token", tok);
274        opt_u32(&arr, "types", window ? 2 : 1);
275        opt_bool(&arr, "multiple", multiple ? TRUE : FALSE);
276        opt_u32(&arr, "cursor_mode", 2);   /* 1=oculto 2=embebido 4=metadatos */
277        dbus_message_iter_close_container(&it, &arr);
278        if (!call_request(bus, m, "SelectSources")) return 1;
279    }
280    if (wait_response(bus, path, 15, NULL, 0) != 0) return 1;
281
282    /* 3. Start — acá es donde el backend abre su UI de elección y, al aceptar, NEGOCIA EL NODO
283     *    contra el demonio de pipewire. Es el paso que no podía funcionar sin demonio corriendo. */
284    puts("\n[3/4] Start  (el backend abre su selector; los `streams` traen el node id)");
285    next_token(tok, sizeof tok);
286    request_path(path, sizeof path, tok);
287    subscribe(bus, path);
288    {
289        DBusMessage *m = new_call(IF, "Start");
290        DBusMessageIter it, arr;
291        dbus_message_iter_init_append(m, &it);
292        const char *sp = session, *parent = "";
293        dbus_message_iter_append_basic(&it, DBUS_TYPE_OBJECT_PATH, &sp);
294        dbus_message_iter_append_basic(&it, DBUS_TYPE_STRING, &parent);
295        dbus_message_iter_open_container(&it, DBUS_TYPE_ARRAY, "{sv}", &arr);
296        opt_str(&arr, "handle_token", tok);
297        dbus_message_iter_close_container(&it, &arr);
298        if (!call_request(bus, m, "Start")) return 1;
299    }
300    if (wait_response(bus, path, 60, NULL, 0) != 0) return 1;
301
302    /* 4. OpenPipeWireRemote — devuelve un FD, no un path. Es la prueba final de que hay demonio:
303     *    sin pipewire corriendo, el backend no tiene remoto que abrir. */
304    puts("\n[4/4] OpenPipeWireRemote  (devuelve un fd al demonio de pipewire)");
305    {
306        DBusMessage *m = new_call(IF, "OpenPipeWireRemote");
307        DBusMessageIter it, arr;
308        dbus_message_iter_init_append(m, &it);
309        const char *sp = session;
310        dbus_message_iter_append_basic(&it, DBUS_TYPE_OBJECT_PATH, &sp);
311        dbus_message_iter_open_container(&it, DBUS_TYPE_ARRAY, "{sv}", &arr);
312        dbus_message_iter_close_container(&it, &arr);
313        DBusError err; dbus_error_init(&err);
314        DBusMessage *r = dbus_connection_send_with_reply_and_block(bus, m, 15000, &err);
315        dbus_message_unref(m);
316        if (!r) {
317            printf("   !! OpenPipeWireRemote FALLÓ: %s: %s\n",
318                   err.name ? err.name : "?", err.message ? err.message : "?");
319            dbus_error_free(&err);
320            return 1;
321        }
322        int fd = -1;
323        if (dbus_message_get_args(r, &err, DBUS_TYPE_UNIX_FD, &fd, DBUS_TYPE_INVALID)) {
324            /* Que el fd sea >= 0 no basta: el kernel siempre da un número. Lo que prueba que es un
325             * remoto vivo es que sea un SOCKET abierto, así que se le pregunta al propio fd. */
326            char link[256] = {0}, proc[64];
327            snprintf(proc, sizeof proc, "/proc/self/fd/%d", fd);
328            ssize_t n = readlink(proc, link, sizeof link - 1);
329            printf("   ✓ fd = %d  →  %s\n", fd, n > 0 ? link : "(sin readlink)");
330            puts("   ✓✓ HAY REMOTO DE PIPEWIRE: el stream se puede consumir desde este fd");
331            close(fd);
332        } else {
333            printf("   !! la respuesta no traía un fd: %s\n", err.message ? err.message : "?");
334            dbus_error_free(&err);
335            dbus_message_unref(r);
336            return 1;
337        }
338        dbus_message_unref(r);
339    }
340    return 0;
341}
342
343/* ── FileChooser: un solo paso, pero el resultado SÓLO llega por la señal ─────────────────────── */
344
345static int do_filechooser(DBusConnection *bus, int save)
346{
347    const char *IF = "org.freedesktop.portal.FileChooser";
348    char tok[64], path[512];
349    next_token(tok, sizeof tok);
350    request_path(path, sizeof path, tok);
351    subscribe(bus, path);
352
353    printf("\n[1/1] %s  (elegí algo en el diálogo; las `uris` llegan por la señal)\n",
354           save ? "SaveFile" : "OpenFile");
355    DBusMessage *m = new_call(IF, save ? "SaveFile" : "OpenFile");
356    DBusMessageIter it, arr;
357    dbus_message_iter_init_append(m, &it);
358    const char *parent = "", *title = "portal-probe";
359    dbus_message_iter_append_basic(&it, DBUS_TYPE_STRING, &parent);
360    dbus_message_iter_append_basic(&it, DBUS_TYPE_STRING, &title);
361    dbus_message_iter_open_container(&it, DBUS_TYPE_ARRAY, "{sv}", &arr);
362    opt_str(&arr, "handle_token", tok);
363    if (save) opt_str(&arr, "current_name", "portal-probe.txt");
364    dbus_message_iter_close_container(&it, &arr);
365    if (!call_request(bus, m, save ? "SaveFile" : "OpenFile")) return 1;
366
367    /* 120s: hay un humano (o un click por QMP) del otro lado. */
368    return wait_response(bus, path, 120, NULL, 0) == 0 ? 0 : 1;
369}
370
371static int do_screenshot(DBusConnection *bus)
372{
373    const char *IF = "org.freedesktop.portal.Screenshot";
374    char tok[64], path[512];
375    next_token(tok, sizeof tok);
376    request_path(path, sizeof path, tok);
377    subscribe(bus, path);
378
379    puts("\n[1/1] Screenshot");
380    DBusMessage *m = new_call(IF, "Screenshot");
381    DBusMessageIter it, arr;
382    dbus_message_iter_init_append(m, &it);
383    const char *parent = "";
384    dbus_message_iter_append_basic(&it, DBUS_TYPE_STRING, &parent);
385    dbus_message_iter_open_container(&it, DBUS_TYPE_ARRAY, "{sv}", &arr);
386    opt_str(&arr, "handle_token", tok);
387    opt_bool(&arr, "interactive", FALSE);
388    dbus_message_iter_close_container(&it, &arr);
389    if (!call_request(bus, m, "Screenshot")) return 1;
390    return wait_response(bus, path, 60, NULL, 0) == 0 ? 0 : 1;
391}
392
393int main(int argc, char **argv)
394{
395    const char *cmd = argc > 1 ? argv[1] : "version";
396    int multiple = 0, window = 0, save = 0;
397    for (int i = 2; i < argc; i++) {
398        if (!strcmp(argv[i], "--multiple")) multiple = 1;
399        else if (!strcmp(argv[i], "--window")) window = 1;
400        else if (!strcmp(argv[i], "--save")) save = 1;
401    }
402
403    DBusError err; dbus_error_init(&err);
404    DBusConnection *bus = dbus_bus_get(DBUS_BUS_SESSION, &err);
405    if (!bus) {
406        fprintf(stderr, "sin bus de sesión: %s\n", err.message ? err.message : "?");
407        return 2;
408    }
409    /* Que este proceso NO muera cuando el bus se desconecte: queremos ver el error, no un exit(1)
410     * silencioso de libdbus. */
411    dbus_connection_set_exit_on_disconnect(bus, FALSE);
412
413    /* El sender sanitizado: nombre único sin ':' y con '.' → '_'. Es lo que el portal usa para
414     * construir el path del Request, y calcularlo nosotros es lo que permite escuchar ANTES. */
415    const char *uniq = dbus_bus_get_unique_name(bus);
416    snprintf(g_sender, sizeof g_sender, "%s", uniq && uniq[0] == ':' ? uniq + 1 : uniq);
417    for (char *p = g_sender; *p; p++) if (*p == '.') *p = '_';
418    printf("bus de sesión OK · nombre único %s · sender para el path del Request: %s\n",
419           uniq ? uniq : "?", g_sender);
420
421    if (!dbus_bus_name_has_owner(bus, PORTAL_BUS, &err)) {
422        printf("!! nadie posee %s — no hay frontend de portal en el bus\n", PORTAL_BUS);
423        return 3;
424    }
425    puts("portal presente en el bus\n");
426
427    int rc;
428    if (!strcmp(cmd, "version")) {
429        puts("interfaces del portal:");
430        probe_version(bus, "org.freedesktop.portal.ScreenCast");
431        probe_version(bus, "org.freedesktop.portal.Screenshot");
432        probe_version(bus, "org.freedesktop.portal.FileChooser");
433        probe_version(bus, "org.freedesktop.portal.Settings");
434        probe_version(bus, "org.freedesktop.portal.Access");
435        probe_version(bus, "org.freedesktop.portal.RemoteDesktop");
436        rc = 0;
437    } else if (!strcmp(cmd, "screencast"))   rc = do_screencast(bus, multiple, window);
438    else if (!strcmp(cmd, "filechooser"))    rc = do_filechooser(bus, save);
439    else if (!strcmp(cmd, "screenshot"))     rc = do_screenshot(bus);
440    else {
441        fprintf(stderr, "uso: portal-probe {version|screencast|filechooser|screenshot} [--multiple|--window|--save]\n");
442        rc = 2;
443    }
444    printf("\n== portal-probe %s: %s ==\n", cmd, rc == 0 ? "OK" : "FALLÓ");
445    return rc;
446}