audiod: Kill com_kill().
[paraslash.git] / audiod_command.c
1 /*
2  * Copyright (C) 2005-2011 Andre Noll <maan@systemlinux.org>
3  *
4  * Licensed under the GPL v2. For licencing details see COPYING.
5  */
6
7 /** \file audiod_command.c commands for para_audiod */
8
9 #include <regex.h>
10 #include <sys/types.h>
11 #include <dirent.h>
12 #include <stdbool.h>
13
14 #include "para.h"
15 #include "audiod.cmdline.h"
16 #include "list.h"
17 #include "sched.h"
18 #include "ggo.h"
19 #include "buffer_tree.h"
20 #include "filter.h"
21 #include "grab_client.h"
22 #include "error.h"
23 #include "audiod.h"
24 #include "net.h"
25 #include "daemon.h"
26 #include "string.h"
27 #include "write.h"
28 #include "fd.h"
29 #include "audiod_command_list.h"
30
31 extern char *stat_item_values[NUM_STAT_ITEMS];
32
33 /** Iterate over the array of all audiod commands. */
34 #define FOR_EACH_COMMAND(c) for (c = 0; audiod_cmds[c].name; c++)
35
36 /** The maximal number of simultaneous connections. */
37 #define MAX_STAT_CLIENTS 50
38
39 /** Flags used for the stat command of para_audiod. */
40 enum stat_client_flags {
41         /** Enable parser-friendly output. */
42         SCF_PARSER_FRIENDLY = 1,
43 };
44
45 /**
46  * Describes a status client of para_audiod.
47  *
48  * There's one such structure per audiod client that sent the 'stat' command.
49  *
50  * A status client is identified by its file descriptor.  para_audiod
51  * keeps a list of connected status clients.
52  */
53 struct stat_client {
54         /** The stat client's file descriptor. */
55         int fd;
56         /** Bitmask of those status items the client is interested in. */
57         uint64_t item_mask;
58         /** See \ref stat_client flags. s*/
59         unsigned flags;
60         /** Its entry in the list of stat clients. */
61         struct list_head node;
62 };
63
64 static INITIALIZED_LIST_HEAD(client_list);
65 static int num_clients;
66
67 /** The list of all status items used by para_{server,audiod,gui}. */
68 const char *status_item_list[] = {STATUS_ITEM_ARRAY};
69
70 static void dump_stat_client_list(void)
71 {
72         struct stat_client *sc;
73
74         list_for_each_entry(sc, &client_list, node)
75                 PARA_INFO_LOG("stat client on fd %d\n", sc->fd);
76 }
77 /**
78  * Add a status client to the list.
79  *
80  * \param fd The file descriptor of the client.
81  * \param mask Bitfield of status items for this client.
82  * \param parser_friendly Enable parser-friendly output mode.
83  *
84  * Only those status items having the bit set in \a mask will be
85  * sent to the client.
86  *
87  * \return Positive value on success, or -E_TOO_MANY_CLIENTS if
88  * the number of connected clients exceeds #MAX_STAT_CLIENTS.
89  */
90 static int stat_client_add(int fd, uint64_t mask, int parser_friendly)
91 {
92         struct stat_client *new_client;
93
94         if (num_clients >= MAX_STAT_CLIENTS) {
95                 PARA_ERROR_LOG("maximal number of stat clients (%d) exceeded\n",
96                         MAX_STAT_CLIENTS);
97                 return -E_TOO_MANY_CLIENTS;
98         }
99         PARA_INFO_LOG("adding client on fd %d\n", fd);
100         new_client = para_calloc(sizeof(struct stat_client));
101         new_client->fd = fd;
102         new_client->item_mask = mask;
103         if (parser_friendly)
104                 new_client->flags = SCF_PARSER_FRIENDLY;
105         para_list_add(&new_client->node, &client_list);
106         dump_stat_client_list();
107         num_clients++;
108         return 1;
109 }
110 /**
111  * Write a message to all connected status clients.
112  *
113  * \param item_num The number of the status item of \a msg.
114  *
115  * On write errors, remove the status client from the client list and close its
116  * file descriptor.
117  */
118 void stat_client_write_item(int item_num)
119 {
120         struct stat_client *sc, *tmp;
121         struct para_buffer pb = {.flags = 0};
122         struct para_buffer pfpb = {.flags = PBF_SIZE_PREFIX};
123         const uint64_t one = 1;
124
125         list_for_each_entry_safe(sc, tmp, &client_list, node) {
126                 int fd = sc->fd, ret;
127
128                 if (!((one << item_num) & sc->item_mask))
129                         continue;
130                 if (write_ok(fd) > 0) {
131                         struct para_buffer *b =
132                                 (sc->flags & SCF_PARSER_FRIENDLY)? &pfpb : &pb;
133                         char *msg = stat_item_values[item_num];
134                         if (!b->buf)
135                                 WRITE_STATUS_ITEM(b, item_num, "%s\n",
136                                         msg? msg : "");
137                         ret = write(fd, b->buf, b->offset);
138                         if (ret == b->offset)
139                                 continue;
140                 }
141                 /* write error or fd not ready for writing */
142                 close(fd);
143                 num_clients--;
144                 PARA_INFO_LOG("deleting client on fd %d\n", fd);
145                 list_del(&sc->node);
146                 free(sc);
147                 dump_stat_client_list();
148         }
149         free(pb.buf);
150         free(pfpb.buf);
151 //      if (num_clients)
152 //              PARA_DEBUG_LOG("%d client(s)\n", num_clients);
153 }
154
155 /**
156  * Check if string is a known status item.
157  *
158  * \param item Buffer containing the text to check.
159  *
160  * \return If \a item is a valid status item, the number of that status item is
161  * returned. Otherwise, this function returns \p -E_UNKNOWN_STAT_ITEM.
162  */
163 static int stat_item_valid(const char *item)
164 {
165         int i;
166         if (!item || !*item) {
167                 PARA_ERROR_LOG("%s\n", "no item");
168                 return -E_UNKNOWN_STAT_ITEM;
169         }
170         FOR_EACH_STATUS_ITEM(i)
171                 if (!strcmp(status_item_list[i], item))
172                         return i;
173         PARA_ERROR_LOG("invalid stat item: %s\n", item);
174         return -E_UNKNOWN_STAT_ITEM;
175 }
176
177 static int client_write(int fd, const char *buf)
178 {
179         size_t len;
180
181         if (!buf)
182                 return 0;
183         len = strlen(buf);
184         return write(fd, buf, len) != len? -E_CLIENT_WRITE: 1;
185 }
186
187 __malloc static char *audiod_status_string(void)
188 {
189         const char *status = (audiod_status == AUDIOD_ON)?
190                 "on" : (audiod_status == AUDIOD_OFF)? "off": "sb";
191         return para_strdup(status);
192 }
193
194 static int get_play_time_slot_num(void)
195 {
196         int i, oldest_slot = -1;
197         struct timeval oldest_wstime = {0, 0};
198
199         FOR_EACH_SLOT(i) {
200                 struct slot_info *s = &slot[i];
201                 struct timeval wstime;
202                 if (!s->wns)
203                         continue;
204                 btr_get_node_start(s->wns[0].btrn, &wstime);
205                 if (oldest_slot >= 0 && tv_diff(&wstime, &oldest_wstime, NULL) > 0)
206                         continue;
207                 oldest_wstime = wstime;
208                 oldest_slot = i;
209         }
210         //PARA_CRIT_LOG("oldest slot: %d\n", oldest_slot);
211         return oldest_slot;
212 }
213
214 __malloc static char *decoder_flags(void)
215 {
216         int i;
217         char flags[MAX_STREAM_SLOTS + 1];
218
219         FOR_EACH_SLOT(i) {
220                 struct slot_info *s = &slot[i];
221                 char flag = '0';
222                 if (s->receiver_node)
223                         flag += 1;
224                 if (s->fns)
225                         flag += 2;
226                 if (s->wns)
227                         flag += 4;
228                 flags[i] = flag;
229         }
230         flags[MAX_STREAM_SLOTS] = '\0';
231         return para_strdup(flags);
232 }
233
234 static int dump_commands(int fd)
235 {
236         char *buf = para_strdup(""), *tmp = NULL;
237         int i;
238         ssize_t ret;
239
240         FOR_EACH_COMMAND(i) {
241                 tmp = make_message("%s%s\t%s\n", buf, audiod_cmds[i].name,
242                         audiod_cmds[i].description);
243                 free(buf);
244                 buf = tmp;
245         }
246         ret = client_write(fd, buf);
247         free(buf);
248         return ret;
249 }
250
251 /*
252  * command handlers don't close their fd on errors (ret < 0) so that
253  * its caller can send an error message. Otherwise (ret >= 0) it's up
254  * to each individual command to close the fd if necessary.
255  */
256
257 int com_help(int fd, int argc, char **argv)
258 {
259         int i, ret;
260         char *buf;
261         const char *dflt = "No such command. Available commands:\n";
262
263         if (argc < 2) {
264                 ret = dump_commands(fd);
265                 goto out;
266         }
267         FOR_EACH_COMMAND(i) {
268                 if (strcmp(audiod_cmds[i].name, argv[1]))
269                         continue;
270                 buf = make_message(
271                         "NAME\n\t%s -- %s\n"
272                         "SYNOPSIS\n\tpara_audioc %s\n"
273                         "DESCRIPTION\n%s\n",
274                         argv[1],
275                         audiod_cmds[i].description,
276                         audiod_cmds[i].usage,
277                         audiod_cmds[i].help
278                 );
279                 ret = client_write(fd, buf);
280                 free(buf);
281                 goto out;
282         }
283         ret = client_write(fd, dflt);
284         if (ret > 0)
285                 ret = dump_commands(fd);
286 out:
287         if (ret >= 0)
288                 close(fd);
289         return ret;
290 }
291
292 int com_tasks(int fd, __a_unused int argc, __a_unused char **argv)
293 {
294         char *tl = get_task_list();
295         int ret = 1;
296         if (tl)
297                 ret = client_write(fd, tl);
298         free(tl);
299         if (ret > 0)
300                 close(fd);
301         return ret;
302 }
303
304 int com_stat(int fd, int argc, char **argv)
305 {
306         int i, ret, parser_friendly = 0;
307         uint64_t mask = 0;
308         const uint64_t one = 1;
309         struct para_buffer b = {.flags = 0};
310
311         for (i = 1; i < argc; i++) {
312                 const char *arg = argv[i];
313                 if (arg[0] != '-')
314                         break;
315                 if (!strcmp(arg, "--")) {
316                         i++;
317                         break;
318                 }
319                 if (!strncmp(arg, "-p", 2)) {
320                         parser_friendly = 1;
321                         b.flags = PBF_SIZE_PREFIX;
322                         continue;
323                 }
324         }
325         if (i >= argc)
326                 mask--; /* set all bits */
327         for (; i < argc; i++) {
328                 ret = stat_item_valid(argv[i]);
329                 if (ret < 0)
330                         return ret;
331                 mask |= (one << ret);
332         }
333         PARA_INFO_LOG("mask: 0x%llx\n", (long long unsigned)mask);
334         FOR_EACH_STATUS_ITEM(i) {
335                 char *item = stat_item_values[i];
336                 if (!((one << i) & mask))
337                         continue;
338                 WRITE_STATUS_ITEM(&b, i, "%s\n", item? item : "");
339         }
340         ret = client_write(fd, b.buf);
341         if (ret >= 0)
342                 ret = stat_client_add(fd, mask, parser_friendly);
343         free(b.buf);
344         return ret;
345 }
346
347 int com_grab(int fd, int argc, char **argv)
348 {
349         return grab_client_new(fd, argc, argv);
350 }
351
352 __noreturn int com_term(int fd, __a_unused int argc, __a_unused char **argv)
353 {
354         close(fd);
355         clean_exit(EXIT_SUCCESS, "terminating on user request");
356 }
357
358 int com_on(int fd, __a_unused int argc, __a_unused char **argv)
359 {
360         audiod_status = AUDIOD_ON;
361         close(fd);
362         return 1;
363 }
364
365 int com_off(int fd, __a_unused int argc, __a_unused char **argv)
366 {
367         audiod_status = AUDIOD_OFF;
368         close(fd);
369         return 1;
370 }
371
372 int com_sb(int fd, __a_unused int argc, __a_unused char **argv)
373 {
374         audiod_status = AUDIOD_STANDBY;
375         close(fd);
376         return 1;
377 }
378
379 int com_cycle(int fd, int argc, char **argv)
380 {
381         switch (audiod_status) {
382                 case  AUDIOD_ON:
383                         return com_sb(fd, argc, argv);
384                         break;
385                 case  AUDIOD_OFF:
386                         return com_on(fd, argc, argv);
387                         break;
388                 case  AUDIOD_STANDBY:
389                         return com_off(fd, argc, argv);
390                         break;
391         }
392         close(fd);
393         return 1;
394 }
395
396 static int check_perms(uid_t uid)
397 {
398         int i;
399
400         if (!conf.user_allow_given)
401                 return 1;
402         for (i = 0; i < conf.user_allow_given; i++)
403                 if (uid == conf.user_allow_arg[i])
404                         return 1;
405         return -E_UCRED_PERM;
406 }
407
408 /**
409  * Handle arriving connections on the local socket.
410  *
411  * \param accept_fd The fd to accept connections on.
412  * \param rfds If \a accept_fd is not set in \a rfds, do nothing.
413  *
414  * This is called in each iteration of the select loop. If there is an incoming
415  * connection on \a accept_fd, this function reads the command sent by the peer,
416  * checks the connecting user's permissions by using unix socket credentials
417  * (if supported by the OS) and calls the corresponding command handler if
418  * permissions are OK.
419  *
420  * \return Positive on success, negative on errors, zero if there was no
421  * connection to accept.
422  *
423  * \sa para_accept(), recv_cred_buffer()
424  * */
425 int handle_connect(int accept_fd, fd_set *rfds)
426 {
427         int i, argc, ret, clifd;
428         char buf[MAXLINE], **argv = NULL;
429         struct sockaddr_un unix_addr;
430         uid_t uid;
431
432         ret = para_accept(accept_fd, rfds, &unix_addr, sizeof(struct sockaddr_un), &clifd);
433         if (ret <= 0)
434                 return ret;
435         ret = recv_cred_buffer(clifd, buf, sizeof(buf) - 1);
436         if (ret < 0)
437                 goto out;
438         uid = ret;
439         PARA_INFO_LOG("connection from user %i, buf: %s\n",  ret, buf);
440         ret = check_perms(uid);
441         if (ret < 0)
442                 goto out;
443         ret = create_argv(buf, "\n", &argv);
444         if (ret < 0)
445                 goto out;
446         argc = ret;
447         //PARA_INFO_LOG("argv[0]: %s, argc = %d\n", argv[0], argc);
448         FOR_EACH_COMMAND(i) {
449                 if (strcmp(audiod_cmds[i].name, argv[0]))
450                         continue;
451                 ret = audiod_cmds[i].handler(clifd, argc, argv);
452                 goto out;
453         }
454         ret = -E_INVALID_AUDIOD_CMD;
455 out:
456         free_argv(argv);
457         if (clifd > 0 && ret < 0 && ret != -E_CLIENT_WRITE) {
458                 char *tmp = make_message("%s\n", para_strerror(-ret));
459                 client_write(clifd, tmp);
460                 free(tmp);
461                 close(clifd);
462         }
463         return ret;
464 }
465
466 /**
467  * Send the current audiod status to all connected stat clients.
468  */
469 void audiod_status_dump(void)
470 {
471         int slot_num = get_play_time_slot_num();
472         char *old, *new;
473
474         old = stat_item_values[SI_PLAY_TIME];
475         new = get_time_string(slot_num);
476         if (new) {
477                 if (!old || strcmp(old, new)) {
478                         free(old);
479                         stat_item_values[SI_PLAY_TIME] = new;
480                         stat_client_write_item(SI_PLAY_TIME);
481                 } else
482                         free(new);
483         }
484
485         new = uptime_str();
486         old = stat_item_values[SI_AUDIOD_UPTIME];
487         if (!old || strcmp(old, new)) {
488                 free(old);
489                 stat_item_values[SI_AUDIOD_UPTIME] = new;
490                 stat_client_write_item(SI_AUDIOD_UPTIME);
491         } else
492                 free(new);
493
494         old = stat_item_values[SI_AUDIOD_STATUS];
495         new = audiod_status_string();
496         if (!old || strcmp(old, new)) {
497                 free(old);
498                 stat_item_values[SI_AUDIOD_STATUS] = new;
499                 stat_client_write_item(SI_AUDIOD_STATUS);
500         } else
501                 free(new);
502
503         old = stat_item_values[SI_DECODER_FLAGS];
504         new = decoder_flags();
505         if (!old || strcmp(old, new)) {
506                 free(old);
507                 stat_item_values[SI_DECODER_FLAGS] = new;
508                 stat_client_write_item(SI_DECODER_FLAGS);
509         } else
510                 free(new);
511 }
512
513 /**
514  * Flush and send all status items.
515  *
516  * Send to  each connected client the full status item list
517  * with empty values.
518  */
519 void clear_and_dump_items(void)
520 {
521         int i;
522
523         FOR_EACH_STATUS_ITEM(i) {
524                 free(stat_item_values[i]);
525                 stat_item_values[i] = NULL;
526                 stat_client_write_item(i);
527         }
528 }