build: Introduce cmdlist_dir.
[paraslash.git] / client.c
1 /*
2  * Copyright (C) 1997-2014 Andre Noll <maan@tuebingen.mpg.de>
3  *
4  * Licensed under the GPL v2. For licencing details see COPYING.
5  */
6
7 /** \file client.c The client program used to connect to para_server. */
8
9 #include <regex.h>
10 #include <signal.h>
11
12 #include "para.h"
13 #include "list.h"
14 #include "sched.h"
15 #include "crypt.h"
16 #include "client.cmdline.h"
17 #include "string.h"
18 #include "stdin.h"
19 #include "stdout.h"
20 #include "client.h"
21 #include "buffer_tree.h"
22 #include "error.h"
23 #include "version.h"
24
25 INIT_CLIENT_ERRLISTS;
26
27 static struct sched sched;
28 static struct client_task *ct;
29 static struct stdin_task sit;
30 static struct stdout_task sot;
31
32 static int client_loglevel = LL_ERROR;
33 DEFINE_STDERR_LOGGER(stderr_log, client_loglevel);
34 __printf_2_3 void (*para_log)(int, const char*, ...) = stderr_log;
35
36 #ifdef HAVE_READLINE
37 #include "interactive.h"
38 #include "server.completion.h"
39 #include "afs.completion.h"
40
41 struct exec_task {
42         struct task *task;
43         struct btr_node *btrn;
44         char *result_buf;
45         size_t result_size;
46 };
47
48 static void exec_pre_select(struct sched *s, void *context)
49 {
50         struct exec_task *et = context;
51         int ret = btr_node_status(et->btrn, 0, BTR_NT_LEAF);
52
53         if (ret != 0)
54                 sched_min_delay(s);
55 }
56
57 static int exec_post_select(__a_unused struct sched *s, void *context)
58 {
59         struct exec_task *et = context;
60         struct btr_node *btrn = et->btrn;
61         char *buf;
62         size_t sz;
63         int ret;
64
65         ret = btr_node_status(btrn, 0, BTR_NT_LEAF);
66         if (ret <= 0)
67                 return ret;
68         sz = btr_next_buffer(btrn, &buf);
69         if (sz <= 1)
70                 goto out;
71         et->result_buf = para_realloc(et->result_buf, et->result_size + sz - 1);
72         memcpy(et->result_buf + et->result_size - 1, buf, sz -  1);
73         et->result_size += sz - 1;
74         et->result_buf[et->result_size - 1] = '\0';
75 out:
76         btr_consume(btrn, sz);
77         return 0;
78 }
79
80 static int make_client_argv(const char *line)
81 {
82         int ret;
83
84         free_argv(ct->conf.inputs);
85         ret = create_argv(line, " ", &ct->conf.inputs);
86         if (ret >= 0)
87                 ct->conf.inputs_num = ret;
88         return ret;
89 }
90
91 static int execute_client_command(const char *cmd, char **result)
92 {
93         int ret;
94         struct sched command_sched = {.default_timeout = {.tv_sec = 1}};
95         struct exec_task exec_task = {
96                 .result_buf = para_strdup(""),
97                 .result_size = 1,
98         };
99         *result = NULL;
100         ret = make_client_argv(cmd);
101         if (ret < 0)
102                 goto out;
103         exec_task.btrn = btr_new_node(&(struct btr_node_description)
104                 EMBRACE(.name = "exec_collect"));
105         exec_task.task = task_register(&(struct task_info) {
106                 .name = "client exec",
107                 .pre_select = exec_pre_select,
108                 .post_select = exec_post_select,
109                 .context = &exec_task,
110         }, &command_sched);
111         ret = client_connect(ct, &command_sched, NULL, exec_task.btrn);
112         if (ret < 0)
113                 goto out;
114         schedule(&command_sched);
115         sched_shutdown(&command_sched);
116         *result = exec_task.result_buf;
117         btr_remove_node(&exec_task.btrn);
118         ret = 1;
119 out:
120         btr_remove_node(&exec_task.btrn);
121         if (ret < 0)
122                 free(exec_task.result_buf);
123         return ret;
124 }
125
126 static int extract_matches_from_command(const char *word, char *cmd,
127                 char ***matches)
128 {
129         char *buf, **sl;
130         int ret;
131
132         ret = execute_client_command(cmd, &buf);
133         if (ret < 0)
134                 return ret;
135         ret = create_argv(buf, "\n", &sl);
136         free(buf);
137         if (ret < 0)
138                 return ret;
139         ret = i9e_extract_completions(word, sl, matches);
140         free_argv(sl);
141         return ret;
142 }
143
144 static int complete_attributes(const char *word, char ***matches)
145 {
146         return extract_matches_from_command(word, "lsatt", matches);
147 }
148
149 static void complete_addblob(__a_unused const char *blob_type,
150                 __a_unused struct i9e_completion_info *ci,
151                 __a_unused struct i9e_completion_result *cr)
152 {
153         cr->filename_completion_desired = true;
154 }
155
156 static void generic_blob_complete(const char *blob_type,
157                 struct i9e_completion_info *ci,
158                 struct i9e_completion_result *cr)
159 {
160         char cmd[20];
161         sprintf(cmd, "ls%s", blob_type);
162         extract_matches_from_command(ci->word, cmd, &cr->matches);
163 }
164
165 static void complete_catblob(const char *blob_type,
166                 struct i9e_completion_info *ci,
167                 struct i9e_completion_result *cr)
168 {
169         generic_blob_complete(blob_type, ci, cr);
170 }
171
172 static void complete_lsblob(const char *blob_type,
173                 struct i9e_completion_info *ci,
174                 struct i9e_completion_result *cr)
175 {
176         char *opts[] = {"-i", "-l", "-r", NULL};
177
178         if (ci->word[0] == '-')
179                 return i9e_complete_option(opts, ci, cr);
180         generic_blob_complete(blob_type, ci, cr);
181 }
182
183 static void complete_rmblob(const char *blob_type,
184                 struct i9e_completion_info *ci,
185                 struct i9e_completion_result *cr)
186 {
187         generic_blob_complete(blob_type, ci, cr);
188 }
189
190 static void complete_mvblob(const char *blob_type,
191                 struct i9e_completion_info *ci,
192                 struct i9e_completion_result *cr)
193 {
194         generic_blob_complete(blob_type, ci, cr);
195 }
196
197 /* these don't need any completions */
198 I9E_DUMMY_COMPLETER(ff);
199 I9E_DUMMY_COMPLETER(hup);
200 I9E_DUMMY_COMPLETER(jmp);
201 I9E_DUMMY_COMPLETER(next);
202 I9E_DUMMY_COMPLETER(nomore);
203 I9E_DUMMY_COMPLETER(pause);
204 I9E_DUMMY_COMPLETER(play);
205 I9E_DUMMY_COMPLETER(si);
206 I9E_DUMMY_COMPLETER(term);
207 I9E_DUMMY_COMPLETER(version);
208 I9E_DUMMY_COMPLETER(stop);
209 I9E_DUMMY_COMPLETER(addatt);
210 I9E_DUMMY_COMPLETER(init);
211
212 static struct i9e_completer completers[];
213
214 static void help_completer(struct i9e_completion_info *ci,
215                 struct i9e_completion_result *result)
216 {
217         result->matches = i9e_complete_commands(ci->word, completers);
218 }
219
220 static void stat_completer(struct i9e_completion_info *ci,
221                 struct i9e_completion_result *cr)
222 {
223         char *opts[] = {"-n=", "-p", NULL};
224         //PARA_CRIT_LOG("word: %s\n", ci->word);
225         i9e_complete_option(opts, ci, cr);
226 }
227
228 static void sender_completer(struct i9e_completion_info *ci,
229                 struct i9e_completion_result *cr)
230 {
231         char *senders[] = {"http", "dccp", "udp", NULL};
232         char *http_cmds[] = {"on", "off", "allow", "deny", "help", NULL};
233         char *dccp_cmds[] = {"on", "off", "allow", "deny", "help", NULL};
234         char *udp_cmds[] ={"on", "off", "add", "delete", "help", NULL};
235         char *sender;
236         char **cmds;
237
238         //PARA_CRIT_LOG("wn: %d\n", ci->word_num);
239         if (ci->word_num == 0 || ci->word_num > 3)
240                 return;
241         if (ci->word_num == 1 || (ci->word_num == 2 && *ci->word != '\0')) {
242                 i9e_extract_completions(ci->word, senders, &cr->matches);
243                 return;
244         }
245         sender = ci->argv[1];
246         //PARA_CRIT_LOG("sender: %s\n", sender);
247         if (strcmp(sender, "http") == 0)
248                 cmds = http_cmds;
249         else if (strcmp(sender, "dccp") == 0)
250                 cmds = dccp_cmds;
251         else if (strcmp(sender, "udp") == 0)
252                 cmds = udp_cmds;
253         else
254                 return;
255         i9e_extract_completions(ci->word, cmds, &cr->matches);
256 }
257
258 static void add_completer(struct i9e_completion_info *ci,
259                 struct i9e_completion_result *cr)
260 {
261         char *opts[] = {"-a", "-l", "-f", "-v", "--", NULL};
262
263         if (ci->word[0] == '-')
264                 i9e_complete_option(opts, ci, cr);
265         cr->filename_completion_desired = true;
266 }
267
268 static void ls_completer(struct i9e_completion_info *ci,
269                 struct i9e_completion_result *cr)
270 {
271         char *opts[] = {
272                 "--", "-l", "-ls", "-ll", "-lv", "-lp", "-lm", "-lc", "-p",
273                 "-a", "-r", "-d", "-sp", "-sl", "-ss", "-sn", "-sf", "-sc",
274                 "-si", "-sy", "-sb", "-sd", "-sa", NULL
275         };
276         if (ci->word[0] == '-')
277                 i9e_complete_option(opts, ci, cr);
278         cr->filename_completion_desired = true;
279 }
280
281 static void setatt_completer(struct i9e_completion_info *ci,
282                 struct i9e_completion_result *cr)
283 {
284         char *buf, **sl;
285         int i, ret, num_atts;
286
287         if (ci->word_num == 0)
288                 return;
289
290         if (*ci->word == '/' || *ci->word == '\0')
291                 cr->filename_completion_desired = true;
292         if (*ci->word == '/')
293                 return;
294         ret = execute_client_command("lsatt", &buf);
295         if (ret < 0)
296                 return;
297         ret = create_argv(buf, "\n", &sl);
298         if (ret < 0)
299                 goto out;
300         num_atts = ret;
301         sl = para_realloc(sl, (2 * num_atts + 1) * sizeof(char *));
302         for (i = 0; i < num_atts; i++) {
303                 char *orig = sl[i];
304                 sl[i] = make_message("%s+", orig);
305                 sl[num_atts + i] = make_message("%s-", orig);
306                 free(orig);
307         }
308         sl[2 * num_atts] = NULL;
309         i9e_extract_completions(ci->word, sl, &cr->matches);
310 out:
311         free(buf);
312         free_argv(sl);
313 }
314
315 static void lsatt_completer(struct i9e_completion_info *ci,
316                 struct i9e_completion_result *cr)
317 {
318         char *opts[] = {"-i", "-l", "-r", NULL};
319
320         if (ci->word[0] == '-')
321                 i9e_complete_option(opts, ci, cr);
322         else
323                 complete_attributes(ci->word, &cr->matches);
324 }
325
326 static void mvatt_completer(struct i9e_completion_info *ci,
327                 struct i9e_completion_result *cr)
328 {
329         complete_attributes(ci->word, &cr->matches);
330 }
331
332 static void rmatt_completer(struct i9e_completion_info *ci,
333                 struct i9e_completion_result *cr)
334 {
335         complete_attributes(ci->word, &cr->matches);
336 }
337
338 static void check_completer(struct i9e_completion_info *ci,
339                 struct i9e_completion_result *cr)
340 {
341         char *opts[] = {"-a", "-m", "-p", NULL};
342         i9e_complete_option(opts, ci, cr);
343 }
344
345 static void rm_completer(struct i9e_completion_info *ci,
346                 struct i9e_completion_result *cr)
347 {
348         char *opts[] = {"-v", "-f", "-p", NULL};
349
350         if (ci->word[0] == '-') {
351                 i9e_complete_option(opts, ci, cr);
352                 return;
353         }
354         cr->filename_completion_desired = true;
355 }
356
357 static void touch_completer(struct i9e_completion_info *ci,
358                 struct i9e_completion_result *cr)
359 {
360         char *opts[] = {"-n=", "-l=", "-y=", "-i=", "-a=", "-v", "-p", NULL};
361
362         if (ci->word[0] == '-')
363                 i9e_complete_option(opts, ci, cr);
364         cr->filename_completion_desired = true;
365 }
366
367 static void cpsi_completer(struct i9e_completion_info *ci,
368                 struct i9e_completion_result *cr)
369 {
370         char *opts[] = {"-a", "-y", "-i", "-l", "-n", "-v", NULL};
371
372         if (ci->word[0] == '-')
373                 i9e_complete_option(opts, ci, cr);
374         cr->filename_completion_desired = true;
375 }
376
377 static void select_completer(struct i9e_completion_info *ci,
378                 struct i9e_completion_result *cr)
379 {
380         char *mood_buf, *pl_buf, **moods, **playlists, **mops;
381         int num_moods, num_pl, i, n, ret;
382
383         ret = execute_client_command("lsmood", &mood_buf);
384         if (ret < 0)
385                 return;
386         ret = execute_client_command("lspl", &pl_buf);
387         if (ret < 0)
388                 goto free_mood_buf;
389
390         ret = create_argv(mood_buf, "\n", &moods);
391         if (ret < 0)
392                 goto free_pl_buf;
393         num_moods = ret;
394         ret = create_argv(pl_buf, "\n", &playlists);
395         if (ret < 0)
396                 goto free_moods;
397         num_pl = ret;
398         n = num_moods + num_pl;
399         mops = para_malloc((n + 1) * sizeof(char *));
400         for (i = 0; i < num_moods; i++)
401                 mops[i] = make_message("m/%s", moods[i]);
402         for (i = 0; i < num_pl; i++)
403                 mops[num_moods + i] = make_message("p/%s", playlists[i]);
404         mops[n] = NULL;
405         i9e_extract_completions(ci->word, mops, &cr->matches);
406         free_argv(mops);
407         free_argv(playlists);
408 free_moods:
409         free_argv(moods);
410 free_pl_buf:
411         free(pl_buf);
412 free_mood_buf:
413         free(mood_buf);
414 }
415
416 #define DEFINE_BLOB_COMPLETER(cmd, blob_type) \
417         static void cmd ## blob_type ## _completer( \
418                 struct i9e_completion_info *ci, \
419                 struct i9e_completion_result *cr) \
420         {complete_ ## cmd ## blob(#blob_type, ci, cr);}
421
422 DEFINE_BLOB_COMPLETER(add, mood)
423 DEFINE_BLOB_COMPLETER(add, lyr)
424 DEFINE_BLOB_COMPLETER(add, img)
425 DEFINE_BLOB_COMPLETER(add, pl)
426 DEFINE_BLOB_COMPLETER(cat, mood)
427 DEFINE_BLOB_COMPLETER(cat, lyr)
428 DEFINE_BLOB_COMPLETER(cat, img)
429 DEFINE_BLOB_COMPLETER(cat, pl)
430 DEFINE_BLOB_COMPLETER(ls, mood)
431 DEFINE_BLOB_COMPLETER(ls, lyr)
432 DEFINE_BLOB_COMPLETER(ls, img)
433 DEFINE_BLOB_COMPLETER(ls, pl)
434 DEFINE_BLOB_COMPLETER(rm, mood)
435 DEFINE_BLOB_COMPLETER(rm, lyr)
436 DEFINE_BLOB_COMPLETER(rm, img)
437 DEFINE_BLOB_COMPLETER(rm, pl)
438 DEFINE_BLOB_COMPLETER(mv, mood)
439 DEFINE_BLOB_COMPLETER(mv, lyr)
440 DEFINE_BLOB_COMPLETER(mv, img)
441 DEFINE_BLOB_COMPLETER(mv, pl)
442
443 static int client_i9e_line_handler(char *line)
444 {
445         int ret;
446
447         PARA_DEBUG_LOG("line: %s\n", line);
448         ret = make_client_argv(line);
449         if (ret <= 0)
450                 return ret;
451         ret = client_connect(ct, &sched, NULL, NULL);
452         if (ret < 0)
453                 return ret;
454         i9e_attach_to_stdout(ct->btrn[0]);
455         return 1;
456 }
457
458 static struct i9e_completer completers[] = {
459         SERVER_COMPLETERS
460         AFS_COMPLETERS
461         {.name = NULL}
462 };
463
464 __noreturn static void interactive_session(void)
465 {
466         int ret;
467         char *history_file;
468         struct sigaction act;
469         struct i9e_client_info ici = {
470                 .fds = {0, 1, 2},
471                 .prompt = "para_client> ",
472                 .line_handler = client_i9e_line_handler,
473                 .loglevel = client_loglevel,
474                 .completers = completers,
475         };
476
477         PARA_NOTICE_LOG("\n%s\n", version_text("client"));
478         if (ct->conf.history_file_given)
479                 history_file = para_strdup(ct->conf.history_file_arg);
480         else {
481                 char *home = para_homedir();
482                 history_file = make_message("%s/.paraslash/client.history",
483                         home);
484                 free(home);
485         }
486         ici.history_file = history_file;
487
488         act.sa_handler = i9e_signal_dispatch;
489         sigemptyset(&act.sa_mask);
490         act.sa_flags = 0;
491         sigaction(SIGINT, &act, NULL);
492         sched.select_function = i9e_select;
493
494         ret = i9e_open(&ici, &sched);
495         if (ret < 0)
496                 goto out;
497         para_log = i9e_log;
498         ret = schedule(&sched);
499         sched_shutdown(&sched);
500         i9e_close();
501         para_log = stderr_log;
502 out:
503         if (ret < 0)
504                 PARA_ERROR_LOG("%s\n", para_strerror(-ret));
505         exit(ret < 0? EXIT_FAILURE : EXIT_SUCCESS);
506         //client_close(ct);
507 }
508
509 __noreturn static void print_completions(void)
510 {
511         int ret = i9e_print_completions(completers);
512         exit(ret <= 0? EXIT_FAILURE : EXIT_SUCCESS);
513 }
514
515 #else /* HAVE_READLINE */
516
517 __noreturn static void interactive_session(void)
518 {
519         PARA_EMERG_LOG("interactive sessions not available\n");
520         exit(EXIT_FAILURE);
521 }
522
523 __noreturn static void print_completions(void)
524 {
525         PARA_EMERG_LOG("command completion not available\n");
526         exit(EXIT_FAILURE);
527 }
528
529 #endif /* HAVE_READLINE */
530
531 struct supervisor_task {
532         bool stdout_task_started;
533         struct task *task;
534 };
535
536 static int supervisor_post_select(struct sched *s, void *context)
537 {
538         struct supervisor_task *svt = context;
539         int ret = task_status(ct->task);
540
541         if (ret < 0)
542                 return ret;
543         if (!svt->stdout_task_started && ct->status == CL_EXECUTING) {
544                 stdout_task_register(&sot, s);
545                 svt->stdout_task_started = true;
546                 return 1;
547         }
548         if (ct->status == CL_SENDING) {
549                 stdin_task_register(&sit, s);
550                 return -E_TASK_STARTED;
551         }
552         return 0;
553 }
554
555 static struct supervisor_task supervisor_task;
556
557 /**
558  * The client program to connect to para_server.
559  *
560  * \param argc Usual argument count.
561  * \param argv Usual argument vector.
562  *
563  * When called without a paraslash command, an interactive session is started.
564  * Otherwise, the client task and the supervisor task are started. The former
565  * communicates with para_server while the latter monitors whether the client
566  * task intends to read from stdin or write to stdout.
567  *
568  * Once it has been determined whether the client command corresponds to a
569  * stdin command (addmood, addimg, ..), either the stdin task or the stdout
570  * task is set up to replace the supervisor task.
571  *
572  * \return EXIT_SUCCESS or EXIT_FAILURE
573  *
574  * \sa client_open(), stdin.c, stdout.c, para_client(1), para_server(1)
575  */
576 int main(int argc, char *argv[])
577 {
578         int ret;
579
580         init_random_seed_or_die();
581         sched.default_timeout.tv_sec = 1;
582
583         ret = client_parse_config(argc, argv, &ct, &client_loglevel);
584         if (ret < 0)
585                 goto out;
586         if (ct->conf.complete_given)
587                 print_completions();
588         if (ret == 0)
589                 interactive_session(); /* does not return */
590
591         /*
592          * We add buffer tree nodes for stdin and stdout even though
593          * only one of them will be needed. This simplifies the code
594          * a bit wrt. to the buffer tree setup.
595          */
596         sit.btrn = btr_new_node(&(struct btr_node_description)
597                 EMBRACE(.name = "stdin"));
598         ret = client_connect(ct, &sched, sit.btrn, NULL);
599         if (ret < 0)
600                 goto out;
601         sot.btrn = btr_new_node(&(struct btr_node_description)
602                 EMBRACE(.name = "stdout", .parent = ct->btrn[0]));
603         supervisor_task.task = task_register(&(struct task_info) {
604                 .name = "supervisor",
605                 .post_select = supervisor_post_select,
606                 .context = &supervisor_task,
607         }, &sched);
608
609         ret = schedule(&sched);
610         if (ret >= 0) {
611                 ret = task_status(ct->task);
612                 if (ret < 0) {
613                         switch (ret) {
614                         /* these are not errors */
615                         case -E_SERVER_CMD_SUCCESS:
616                         case -E_EOF:
617                         case -E_SERVER_EOF:
618                         case -E_BTR_EOF:
619                                 ret = 0;
620                                 break;
621                         default: ret = -E_SERVER_CMD_FAILURE;
622                         }
623                 }
624         }
625         sched_shutdown(&sched);
626 out:
627         if (ret < 0)
628                 PARA_ERROR_LOG("%s\n", para_strerror(-ret));
629         client_close(ct);
630         btr_remove_node(&sit.btrn);
631         btr_remove_node(&sot.btrn);
632         return ret < 0? EXIT_FAILURE : EXIT_SUCCESS;
633 }