Fix some more memory leaks
[src/app-framework-binder.git] / src / afb-config.c
1 /*
2  * Copyright (C) 2015-2018 "IoT.bzh"
3  * Author José Bollo <jose.bollo@iot.bzh>
4  *
5  * Licensed under the Apache License, Version 2.0 (the "License");
6  * you may not use this file except in compliance with the License.
7  * You may obtain a copy of the License at
8  *
9  *   http://www.apache.org/licenses/LICENSE-2.0
10  *
11  * Unless required by applicable law or agreed to in writing, software
12  * distributed under the License is distributed on an "AS IS" BASIS,
13  * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
14  * See the License for the specific language governing permissions and
15  * limitations under the License.
16  */
17
18 #define _GNU_SOURCE
19
20 #include <stdlib.h>
21 #include <stdio.h>
22 #include <string.h>
23 #include <getopt.h>
24 #include <limits.h>
25 #include <unistd.h>
26 #include <ctype.h>
27
28 #include <json-c/json.h>
29 #if !defined(JSON_C_TO_STRING_NOSLASHESCAPE)
30 #define JSON_C_TO_STRING_NOSLASHESCAPE 0
31 #endif
32
33 #include "verbose.h"
34 #include "afb-config.h"
35 #include "afb-hook-flags.h"
36 #include "wrap-json.h"
37
38 #define _d2s_(x)  #x
39 #define d2s(x)    _d2s_(x)
40
41 #if !defined(BINDING_INSTALL_DIR)
42 #error "you should define BINDING_INSTALL_DIR"
43 #endif
44 #if !defined(AFB_VERSION)
45 #error "you should define AFB_VERSION"
46 #endif
47
48 /**
49  * The default timeout of sessions in seconds
50  */
51 #define DEFAULT_SESSION_TIMEOUT         32000000
52
53 /**
54  * The default timeout of api calls in seconds
55  */
56 #define DEFAULT_API_TIMEOUT             20
57
58 /**
59  * The default timeout of cache in seconds
60  */
61 #define DEFAULT_CACHE_TIMEOUT           100000
62
63 /**
64  * The default maximum count of sessions
65  */
66 #define DEFAULT_MAX_SESSION_COUNT       200
67
68 /**
69  * The default HTTP port to serve
70  */
71 #define DEFAULT_HTTP_PORT               1234
72
73 // Define command line option
74 #define SET_BACKGROUND       1
75 #define SET_FOREGROUND       2
76 #define SET_ROOT_DIR         3
77 #define SET_ROOT_BASE        4
78 #define SET_ROOT_API         5
79 #define ADD_ALIAS            6
80
81 #define SET_CACHE_TIMEOUT    7
82
83 #define AUTO_WS              8
84 #define AUTO_LINK            9
85
86 #define ADD_LDPATH          10
87 #define SET_API_TIMEOUT     11
88 #define SET_SESSION_TIMEOUT 12
89 #define ADD_WEAK_LDPATH     13
90 #define SET_NO_LDPATH       14
91
92 #define SET_SESSIONMAX      15
93
94 #define ADD_WS_CLIENT       16
95 #define ADD_WS_SERVICE      17
96
97 #define SET_ROOT_HTTP       18
98
99 #define SET_NO_HTTPD        19
100
101 #define SET_TRACEEVT        20
102 #define SET_TRACESES        21
103 #define SET_TRACEREQ        22
104 #define SET_TRACEAPI        23
105 #define SET_TRACEGLOB       24
106 #if !defined(REMOVE_LEGACY_TRACE)
107 #define SET_TRACEDITF       25
108 #define SET_TRACESVC        26
109 #endif
110
111 #if defined(WITH_DBUS_TRANSPARENCY)
112 #   define ADD_DBUS_CLIENT  30
113 #   define ADD_DBUS_SERVICE 31
114 #endif
115
116
117 #define ADD_AUTO_API       'A'
118 #define ADD_BINDING        'b'
119 #define SET_CONFIG         'C'
120 #define ADD_CALL           'c'
121 #define SET_DAEMON         'D'
122 #define SET_EXEC           'e'
123 #define GET_HELP           'h'
124 #define SET_LOG            'l'
125 #if defined(WITH_MONITORING_OPTION)
126 #define SET_MONITORING     'M'
127 #endif
128 #define SET_NAME           'n'
129 #define SET_OUTPUT         'o'
130 #define SET_PORT           'p'
131 #define SET_QUIET          'q'
132 #define SET_RANDOM_TOKEN   'r'
133 #define SET_TOKEN          't'
134 #define SET_UPLOAD_DIR     'u'
135 #define GET_VERSION        'V'
136 #define SET_VERBOSE        'v'
137 #define SET_WORK_DIR       'w'
138
139 /* structure for defining of options */
140 struct option_desc {
141         int id;         /* id of the option         */
142         int has_arg;    /* is a value required      */
143         char *name;     /* long name of the option  */
144         char *help;     /* help text                */
145 };
146
147 /* definition of options */
148 static struct option_desc optdefs[] = {
149 /* *INDENT-OFF* */
150         {SET_VERBOSE,         0, "verbose",     "Verbose Mode, repeat to increase verbosity"},
151         {SET_QUIET,           0, "quiet",       "Quiet Mode, repeat to decrease verbosity"},
152         {SET_LOG,             1, "log",         "Tune log level"},
153
154         {SET_FOREGROUND,      0, "foreground",  "Get all in foreground mode"},
155         {SET_BACKGROUND,      0, "background",  "Get all in background mode"},
156         {SET_DAEMON,          0, "daemon",      "Get all in background mode"},
157
158         {SET_NAME,            1, "name",        "Set the visible name"},
159
160         {SET_PORT,            1, "port",        "HTTP listening TCP port  [default " d2s(DEFAULT_HTTP_PORT) "]"},
161         {SET_ROOT_HTTP,       1, "roothttp",    "HTTP Root Directory [default no root http (files not served but apis still available)]"},
162         {SET_ROOT_BASE,       1, "rootbase",    "Angular Base Root URL [default /opa]"},
163         {SET_ROOT_API,        1, "rootapi",     "HTML Root API URL [default /api]"},
164         {ADD_ALIAS,           1, "alias",       "Multiple url map outside of rootdir [eg: --alias=/icons:/usr/share/icons]"},
165
166         {SET_API_TIMEOUT,     1, "apitimeout",  "Binding API timeout in seconds [default " d2s(DEFAULT_API_TIMEOUT) "]"},
167         {SET_SESSION_TIMEOUT, 1, "cntxtimeout", "Client Session Context Timeout [default " d2s(DEFAULT_SESSION_TIMEOUT) "]"},
168         {SET_CACHE_TIMEOUT,   1, "cache-eol",   "Client cache end of live [default " d2s(DEFAULT_CACHE_TIMEOUT) "]"},
169
170         {SET_WORK_DIR,        1, "workdir",     "Set the working directory [default: $PWD or current working directory]"},
171         {SET_UPLOAD_DIR,      1, "uploaddir",   "Directory for uploading files [default: workdir]"},
172         {SET_ROOT_DIR,        1, "rootdir",     "Root Directory of the application [default: workdir]"},
173
174         {ADD_LDPATH,          1, "ldpaths",     "Load bindings from dir1:dir2:... [default = " BINDING_INSTALL_DIR "]"},
175         {ADD_BINDING,         1, "binding",     "Load the binding of path"},
176         {ADD_WEAK_LDPATH,     1, "weak-ldpaths","Same as --ldpaths but ignore errors"},
177         {SET_NO_LDPATH,       0, "no-ldpaths",  "Discard default ldpaths loading"},
178
179         {SET_TOKEN,           1, "token",       "Initial Secret [default=random, use --token="" to allow any token]"},
180         {SET_RANDOM_TOKEN,    0, "random-token","Enforce a random token"},
181
182         {GET_VERSION,         0, "version",     "Display version and copyright"},
183         {GET_HELP,            0, "help",        "Display this help"},
184
185 #if defined(WITH_DBUS_TRANSPARENCY)
186         {ADD_DBUS_CLIENT,     1, "dbus-client", "Bind to an afb service through dbus"},
187         {ADD_DBUS_SERVICE,    1, "dbus-server", "Provide an afb service through dbus"},
188 #endif
189         {ADD_WS_CLIENT,       1, "ws-client",   "Bind to an afb service through websocket"},
190         {ADD_WS_SERVICE,      1, "ws-server",   "Provide an afb service through websockets"},
191
192         {ADD_AUTO_API,        1, "auto-api",    "Automatic load of api of the given directory"},
193
194         {SET_SESSIONMAX,      1, "session-max", "Max count of session simultaneously [default " d2s(DEFAULT_MAX_SESSION_COUNT) "]"},
195
196         {SET_TRACEREQ,        1, "tracereq",    "Log the requests: none, common, extra, all"},
197         {SET_TRACEEVT,        1, "traceevt",    "Log the events: none, common, extra, all"},
198         {SET_TRACESES,        1, "traceses",    "Log the sessions: none, all"},
199         {SET_TRACEAPI,        1, "traceapi",    "Log the apis: none, common, api, event, all"},
200         {SET_TRACEGLOB,       1, "traceglob",   "Log the globals: none, all"},
201 #if !defined(REMOVE_LEGACY_TRACE)
202         {SET_TRACEDITF,       1, "traceditf",   "Log the daemons: no, common, all"},
203         {SET_TRACESVC,        1, "tracesvc",    "Log the services: no, all"},
204 #endif
205
206         {ADD_CALL,            1, "call",        "Call at start, format of val: API/VERB:json-args"},
207
208         {SET_NO_HTTPD,        0, "no-httpd",    "Forbid HTTP service"},
209         {SET_EXEC,            0, "exec",        "Execute the remaining arguments"},
210
211 #if defined(WITH_MONITORING_OPTION)
212         {SET_MONITORING,      0, "monitoring",  "Enable HTTP monitoring at <ROOT>/monitoring/"},
213 #endif
214
215         {SET_CONFIG,          1, "config",      "Load options from the given config file"},
216         {SET_OUTPUT,          1, "output",      "Redirect stdout and stderr to output file (when --daemon)"},
217
218         {0, 0, NULL, NULL}
219 /* *INDENT-ON* */
220 };
221
222 #if defined(WITH_MONITORING_OPTION)
223 static const char MONITORING_ALIAS[] = "/monitoring:"BINDING_INSTALL_DIR"/monitoring";
224 #endif
225
226 static const struct {
227         int optid;
228         int valdef;
229 } default_optint_values[] = {
230         { SET_PORT,             DEFAULT_HTTP_PORT },
231         { SET_API_TIMEOUT,      DEFAULT_API_TIMEOUT },
232         { SET_CACHE_TIMEOUT,    DEFAULT_CACHE_TIMEOUT },
233         { SET_SESSION_TIMEOUT,  DEFAULT_SESSION_TIMEOUT },
234         { SET_SESSIONMAX,       DEFAULT_MAX_SESSION_COUNT }
235 };
236
237 static const struct {
238         int optid;
239         const char *valdef;
240 } default_optstr_values[] = {
241         { SET_WORK_DIR,         "." },
242         { SET_ROOT_DIR,         "." },
243         { SET_UPLOAD_DIR,       "." },
244         { SET_ROOT_BASE,        "/opa" },
245         { SET_ROOT_API,         "/api" }
246 };
247
248 /**********************************
249 * preparing items
250 ***********************************/
251
252 static char *shortopts = NULL;
253 static int *id2idx = NULL;
254
255 static void *oomchk(void *ptr)
256 {
257         if (!ptr) {
258                 ERROR("Out of memory");
259                 exit(1);
260         }
261         return ptr;
262 }
263
264 static char is_short_option(int val)
265 {
266         return (val >= 'a' && val <= 'z') || (val >= 'A' && val <= 'Z') || (val >= '0' && val <= '9');
267 }
268
269 static void init_options()
270 {
271         int i, ns, mi, id;
272
273         if (!shortopts) {
274                 ns = 2;
275                 mi = -1;
276                 for (i = 0 ; optdefs[i].name ; i++) {
277                         id = optdefs[i].id;
278                         if (id > mi)
279                                 mi = id;
280                         if (is_short_option(id))
281                                 ns += 1 + !!optdefs[i].has_arg;
282                 }
283                 shortopts = oomchk(malloc(2 + ns));
284                 id2idx = oomchk(calloc(1 + mi, sizeof *id2idx));
285                 shortopts[ns = 0] = ':';
286                 for (i = 0 ; optdefs[i].name ; i++) {
287                         id = optdefs[i].id;
288                         id2idx[id] = i;
289                         if (is_short_option(id)) {
290                                 shortopts[++ns] = (char)id;
291                                 if (optdefs[i].has_arg)
292                                         shortopts[++ns] = ':';
293                         }
294                 }
295                 shortopts[++ns] = 0;
296         }
297 }
298
299 static const char *name_of_optid(int optid)
300 {
301         return optdefs[id2idx[optid]].name;
302 }
303
304 static int get_enum_val(const char *name, int optid, int (*func)(const char*))
305 {
306         int i;
307
308         i = func(name);
309         if (i < 0) {
310                 ERROR("option [--%s] bad value (found %s)",
311                         name_of_optid(optid), name);
312                 exit(1);
313         }
314         return i;
315 }
316
317
318 /*----------------------------------------------------------
319  | printversion
320  |   print version and copyright
321  +--------------------------------------------------------- */
322 static void printVersion(FILE * file)
323 {
324         fprintf(file,
325                 "\n"
326                 "  AGL Framework Binder [AFB %s] "
327 #if defined(WITH_DBUS_TRANSPARENCY)
328                 "+"
329 #else
330                 "-"
331 #endif
332                 "DBUS "
333 #if defined(WITH_MONITORING_OPTION)
334                 "+"
335 #else
336                 "-"
337 #endif
338                 "MONITOR "
339 #if defined(WITH_SUPERVISION)
340                 "+"
341 #else
342                 "-"
343 #endif
344                 "SUPERVISION [BINDINGS "
345 #if defined(WITH_LEGACY_BINDING_V1)
346                 "+"
347 #else
348                 "-"
349 #endif
350                 "V1 "
351 #if defined(WITH_LEGACY_BINDING_VDYN)
352                 "+"
353 #else
354                 "-"
355 #endif
356                 "VDYN +V2 +V3]\n"
357                 "\n",
358                 AFB_VERSION
359         );
360         fprintf(file,
361                 "  Copyright (C) 2015-2018 \"IoT.bzh\"\n"
362                 "  AFB comes with ABSOLUTELY NO WARRANTY.\n"
363                 "  Licence Apache 2\n"
364                 "\n");
365 }
366
367 /*----------------------------------------------------------
368  | printHelp
369  |   print information from long option array
370  +--------------------------------------------------------- */
371
372 static void printHelp(FILE * file, const char *name)
373 {
374         int ind;
375         char command[50], sht[4];
376
377         fprintf(file, "%s:\nallowed options\n", strrchr(name, '/') ? strrchr(name, '/') + 1 : name);
378         sht[3] = 0;
379         for (ind = 0; optdefs[ind].name != NULL; ind++) {
380                 if (is_short_option(optdefs[ind].id)) {
381                         sht[0] = '-';
382                         sht[1] = (char)optdefs[ind].id;
383                         sht[2] = ',';
384                 } else {
385                         sht[0] = sht[1] = sht[2] = ' ';
386                 }
387                 strcpy(command, optdefs[ind].name);
388                 if (optdefs[ind].has_arg)
389                         strcat(command, "=xxxx");
390                 fprintf(file, " %s --%-17s %s\n", sht, command, optdefs[ind].help);
391         }
392         fprintf(file,
393                 "Example:\n  %s  --verbose --port="
394                 d2s(DEFAULT_HTTP_PORT)
395                 " --token='azerty' --ldpaths=build/bindings:/usr/lib64/agl/bindings\n",
396                 name);
397 }
398
399 /**********************************
400 * json helpers
401 ***********************************/
402
403 static struct json_object *joomchk(struct json_object *value)
404 {
405         return oomchk(value);
406 }
407
408 static struct json_object *to_jstr(const char *value)
409 {
410         return joomchk(json_object_new_string(value));
411 }
412
413 static struct json_object *to_jint(int value)
414 {
415         return joomchk(json_object_new_int(value));
416 }
417
418 static struct json_object *to_jbool(int value)
419 {
420         return joomchk(json_object_new_boolean(value));
421 }
422
423 /**********************************
424 * arguments helpers
425 ***********************************/
426
427 static void noarg(int optid)
428 {
429         if (optarg) {
430                 ERROR("option [--%s] need no value (found %s)", name_of_optid(optid), optarg);
431                 exit(1);
432         }
433 }
434
435 static const char *get_arg(int optid)
436 {
437         if (optarg == 0) {
438                 ERROR("option [--%s] needs a value i.e. --%s=xxx",
439                                 name_of_optid(optid), name_of_optid(optid));
440                 exit(1);
441         }
442         return optarg;
443 }
444
445 static void config_del(struct json_object *config, int optid)
446 {
447         return json_object_object_del(config, name_of_optid(optid));
448 }
449
450 static int config_has(struct json_object *config, int optid)
451 {
452         return json_object_object_get_ex(config, name_of_optid(optid), NULL);
453 }
454
455 static int config_has_bool(struct json_object *config, int optid)
456 {
457         struct json_object *x;
458         return json_object_object_get_ex(config, name_of_optid(optid), &x)
459                 && json_object_get_boolean(x);
460 }
461
462 static int config_has_str(struct json_object *config, int optid, const char *val)
463 {
464         int i, n;
465         struct json_object *a;
466
467         if (!json_object_object_get_ex(config, name_of_optid(optid), &a))
468                 return 0;
469
470         if (!json_object_is_type(a, json_type_array))
471                 return !strcmp(val, json_object_get_string(a));
472
473         n = (int)json_object_array_length(a);
474         for (i = 0 ; i < n ; i++) {
475                 if (!strcmp(val, json_object_get_string(json_object_array_get_idx(a, i))))
476                         return 1;
477         }
478         return 0;
479 }
480
481 static void config_set(struct json_object *config, int optid, struct json_object *val)
482 {
483         json_object_object_add(config, name_of_optid(optid), val);
484 }
485
486 static void config_set_str(struct json_object *config, int optid, const char *val)
487 {
488         config_set(config, optid, to_jstr(val));
489 }
490
491 static void config_set_optstr(struct json_object *config, int optid)
492 {
493         config_set_str(config, optid, get_arg(optid));
494 }
495
496 static void config_set_int(struct json_object *config, int optid, int value)
497 {
498         config_set(config, optid, to_jint(value));
499 }
500
501 static void config_set_bool(struct json_object *config, int optid, int value)
502 {
503         config_set(config, optid, to_jbool(value));
504 }
505
506 static void config_set_optint_base(struct json_object *config, int optid, int mini, int maxi, int base)
507 {
508         const char *beg, *end;
509         long int val;
510
511         beg = get_arg(optid);
512         val = strtol(beg, (char**)&end, base);
513         if (*end || end == beg) {
514                 ERROR("option [--%s] requires a valid integer (found %s)",
515                         name_of_optid(optid), beg);
516                 exit(1);
517         }
518         if (val < (long int)mini || val > (long int)maxi) {
519                 ERROR("option [--%s] value %ld out of bounds (not in [%d , %d])",
520                         name_of_optid(optid), val, mini, maxi);
521                 exit(1);
522         }
523         config_set_int(config, optid, (int)val);
524 }
525
526 static void config_set_optint(struct json_object *config, int optid, int mini, int maxi)
527 {
528         return config_set_optint_base(config, optid, mini, maxi, 10);
529 }
530
531 static void config_set_optenum(struct json_object *config, int optid, int (*func)(const char*))
532 {
533         const char *name = get_arg(optid);
534         get_enum_val(name, optid, func);
535         config_set_str(config, optid, name);
536 }
537
538 static void config_add(struct json_object *config, int optid, struct json_object *val)
539 {
540         struct json_object *a;
541         if (!json_object_object_get_ex(config, name_of_optid(optid), &a)) {
542                 a = json_object_new_array();
543                 oomchk(a);
544                 json_object_object_add(config, name_of_optid(optid), a);
545         }
546         json_object_array_add(a, val);
547 }
548
549 static void config_add_str(struct json_object *config, int optid, const char *val)
550 {
551         config_add(config, optid, to_jstr(val));
552 }
553
554 static void config_add_optstr(struct json_object *config, int optid)
555 {
556         config_add_str(config, optid, get_arg(optid));
557 }
558
559 /*---------------------------------------------------------
560  |   set the log levels
561  +--------------------------------------------------------- */
562
563 static void set_log(const char *args)
564 {
565         char o = 0, s, *p, *i = strdupa(args);
566         int lvl;
567
568         for(;;) switch (*i) {
569         case 0:
570                 return;
571         case '+':
572         case '-':
573                 o = *i;
574                 /*@fallthrough@*/
575         case ' ':
576         case ',':
577                 i++;
578                 break;
579         default:
580                 p = i;
581                 while (isalpha(*p)) p++;
582                 s = *p;
583                 *p = 0;
584                 lvl = verbose_level_of_name(i);
585                 if (lvl < 0) {
586                         i = strdupa(i);
587                         *p = s;
588                         ERROR("Bad log name '%s' in %s", i, args);
589                         exit(1);
590                 }
591                 *p = s;
592                 i = p;
593                 if (o == '-')
594                         verbose_sub(lvl);
595                 else {
596                         if (!o) {
597                                 verbose_clear();
598                                 o = '+';
599                         }
600                         verbose_add(lvl);
601                 }
602                 break;
603         }
604 }
605
606 /*---------------------------------------------------------
607  |   Parse option and launch action
608  +--------------------------------------------------------- */
609
610 static void parse_arguments_inner(int argc, char **argv, struct json_object *config, struct option *options)
611 {
612         struct json_object *conf;
613         int optid, cind;
614
615         for (;;) {
616                 cind = optind;
617                 optid = getopt_long(argc, argv, shortopts, options, NULL);
618                 if (optid < 0) {
619                         /* end of options */
620                         break;
621                 }
622                 switch (optid) {
623                 case SET_VERBOSE:
624                         verbose_inc();
625                         break;
626
627                 case SET_QUIET:
628                         verbose_dec();
629                         break;
630
631                 case SET_LOG:
632                         set_log(get_arg(optid));
633                         break;
634
635                 case SET_PORT:
636                         config_set_optint(config, optid, 1024, 32767);
637                         break;
638
639                 case SET_API_TIMEOUT:
640                 case SET_SESSION_TIMEOUT:
641                 case SET_CACHE_TIMEOUT:
642                         config_set_optint(config, optid, 0, INT_MAX);
643                         break;
644
645                 case SET_SESSIONMAX:
646                         config_set_optint(config, optid, 1, INT_MAX);
647                         break;
648
649                 case SET_ROOT_DIR:
650                 case SET_ROOT_HTTP:
651                 case SET_ROOT_BASE:
652                 case SET_ROOT_API:
653                 case SET_TOKEN:
654                 case SET_UPLOAD_DIR:
655                 case SET_WORK_DIR:
656                 case SET_NAME:
657                         config_set_optstr(config, optid);
658                         break;
659
660 #if defined(WITH_DBUS_TRANSPARENCY)
661                 case ADD_DBUS_CLIENT:
662                 case ADD_DBUS_SERVICE:
663 #endif
664                 case ADD_ALIAS:
665                 case ADD_LDPATH:
666                 case ADD_WEAK_LDPATH:
667                 case ADD_CALL:
668                 case ADD_WS_CLIENT:
669                 case ADD_WS_SERVICE:
670                 case ADD_BINDING:
671                 case ADD_AUTO_API:
672                         config_add_optstr(config, optid);
673                         break;
674
675 #if defined(WITH_MONITORING_OPTION)
676                 case SET_MONITORING:
677 #endif
678                 case SET_RANDOM_TOKEN:
679                 case SET_NO_HTTPD:
680                 case SET_NO_LDPATH:
681                         noarg(optid);
682                         config_set_bool(config, optid, 1);
683                         break;
684
685
686                 case SET_FOREGROUND:
687                 case SET_BACKGROUND:
688                 case SET_DAEMON:
689                         noarg(optid);
690                         config_set_bool(config, SET_DAEMON, optid != SET_FOREGROUND);
691                         break;
692
693                 case SET_TRACEREQ:
694                         config_set_optenum(config, optid, afb_hook_flags_xreq_from_text);
695                         break;
696
697                 case SET_TRACEEVT:
698                         config_set_optenum(config, optid, afb_hook_flags_evt_from_text);
699                         break;
700
701                 case SET_TRACESES:
702                         config_set_optenum(config, optid, afb_hook_flags_session_from_text);
703                         break;
704
705                 case SET_TRACEAPI:
706                         config_set_optenum(config, optid, afb_hook_flags_api_from_text);
707                         break;
708
709                 case SET_TRACEGLOB:
710                         config_set_optenum(config, optid, afb_hook_flags_global_from_text);
711                         break;
712
713 #if !defined(REMOVE_LEGACY_TRACE)
714                 case SET_TRACEDITF:
715                         config_set_optenum(config, optid, afb_hook_flags_legacy_ditf_from_text);
716                         break;
717
718                 case SET_TRACESVC:
719                         config_set_optenum(config, optid, afb_hook_flags_legacy_svc_from_text);
720                         break;
721 #endif
722
723                 case SET_EXEC:
724                         if (optind == argc) {
725                                 ERROR("The option --exec requires arguments");
726                                 exit(1);
727                         }
728                         while (optind != argc)
729                                 config_add_str(config, optid, argv[optind++]);
730                         break;
731
732                 case SET_CONFIG:
733                         conf = json_object_from_file(get_arg(optid));
734                         if (!conf) {
735                                 ERROR("Can't read config file %s", get_arg(optid));
736                                 exit(1);
737                         }
738                         wrap_json_object_add(config, conf);
739                         json_object_put(conf);
740                         break;
741
742                 case GET_VERSION:
743                         noarg(optid);
744                         printVersion(stdout);
745                         exit(0);
746
747                 case GET_HELP:
748                         printHelp(stdout, argv[0]);
749                         exit(0);
750
751                 default:
752                         ERROR("Bad option detected, check %s", argv[cind]);
753                         exit(1);
754                 }
755         }
756         /* TODO: check for extra value */
757 }
758
759 static void parse_arguments(int argc, char **argv, struct json_object *config)
760 {
761         int ind;
762         struct option *options;
763
764         /* create GNU getopt options from optdefs */
765         options = malloc((sizeof optdefs / sizeof * optdefs) * sizeof * options);
766         for (ind = 0; optdefs[ind].name; ind++) {
767                 options[ind].name = optdefs[ind].name;
768                 options[ind].has_arg = optdefs[ind].has_arg;
769                 options[ind].flag = NULL;
770                 options[ind].val = optdefs[ind].id;
771         }
772         memset(&options[ind], 0, sizeof options[ind]);
773
774         /* parse the arguments */
775         parse_arguments_inner(argc, argv, config, options);
776
777         /* release the memory of options */
778         free(options);
779 }
780
781 static void fulfill_config(struct json_object *config)
782 {
783         int i;
784
785         for (i = 0 ; i < sizeof default_optint_values / sizeof * default_optint_values ; i++)
786                 if (!config_has(config, default_optint_values[i].optid))
787                         config_set_int(config, default_optint_values[i].optid, default_optint_values[i].valdef);
788
789         for (i = 0 ; i < sizeof default_optstr_values / sizeof * default_optstr_values ; i++)
790                 if (!config_has(config, default_optstr_values[i].optid))
791                         config_set_str(config, default_optstr_values[i].optid, default_optstr_values[i].valdef);
792
793         // default AUTH_TOKEN
794         if (config_has_bool(config, SET_RANDOM_TOKEN))
795                 config_del(config, SET_TOKEN);
796
797         if (!config_has(config, ADD_LDPATH) && !config_has(config, ADD_WEAK_LDPATH) && !config_has_bool(config, SET_NO_LDPATH))
798                 config_add_str(config, ADD_LDPATH, BINDING_INSTALL_DIR);
799
800 #if defined(WITH_MONITORING_OPTION)
801         if (config_has_bool(config, SET_MONITORING) && !config_has_str(config, ADD_ALIAS, MONITORING_ALIAS))
802                 config_add_str(config, ADD_ALIAS, MONITORING_ALIAS);
803 #endif
804
805 #if !defined(REMOVE_LEGACY_TRACE) && 0
806         config->traceapi |= config->traceditf | config->tracesvc;
807 #endif
808 }
809
810 static void dump(struct json_object *config, FILE *file, const char *prefix, const char *title)
811 {
812         char z;
813         const char *head, *tail;
814
815         if (!prefix) {
816                 z = 0;
817                 prefix = &z;
818         }
819
820         if (title)
821                 fprintf(file, "%s----BEGIN OF %s-----\n", prefix, title);
822
823         head = json_object_to_json_string_ext(config, JSON_C_TO_STRING_PRETTY
824                 |JSON_C_TO_STRING_SPACED|JSON_C_TO_STRING_NOSLASHESCAPE);
825
826         if (head) {
827                 while(*head) {
828                         for (tail = head ; *tail && *tail != '\n' ; tail++);
829                         fprintf(file, "%s %.*s\n", prefix, (int)(tail - head), head);
830                         head = tail + !!*tail;
831                 }
832         }
833
834         if (title)
835                 fprintf(file, "%s----END OF %s-----\n", prefix, title);
836 }
837
838 void afb_config_dump(struct json_object *config)
839 {
840         dump(config, stderr, "--", "CONFIG");
841 }
842
843 static void on_environment_add(struct json_object *config, int optid, const char *name)
844 {
845         char *value = getenv(name);
846
847         if (value && *value)
848                 config_add_str(config, optid, value);
849 }
850
851 static void on_environment_enum(struct json_object *config, int optid, const char *name, int (*func)(const char*))
852 {
853         char *value = getenv(name);
854
855         if (value) {
856                 if (func(value) == -1)
857                         WARNING("Unknown value %s for environment variable %s, ignored", value, name);
858                 else
859                         config_set_str(config, optid, value);
860         }
861 }
862
863 static void parse_environment(struct json_object *config)
864 {
865         on_environment_enum(config, SET_TRACEREQ, "AFB_TRACEREQ", afb_hook_flags_xreq_from_text);
866         on_environment_enum(config, SET_TRACEEVT, "AFB_TRACEEVT", afb_hook_flags_evt_from_text);
867         on_environment_enum(config, SET_TRACESES, "AFB_TRACESES", afb_hook_flags_session_from_text);
868         on_environment_enum(config, SET_TRACEAPI, "AFB_TRACEAPI", afb_hook_flags_api_from_text);
869         on_environment_enum(config, SET_TRACEGLOB, "AFB_TRACEGLOB", afb_hook_flags_global_from_text);
870         on_environment_add(config, ADD_LDPATH, "AFB_LDPATHS");
871 #if !defined(REMOVE_LEGACY_TRACE)
872         on_environment_enum(config, SET_TRACEDITF, "AFB_TRACEDITF", afb_hook_flags_legacy_ditf_from_text);
873         on_environment_enum(config, SET_TRACESVC, "AFB_TRACESVC", afb_hook_flags_legacy_svc_from_text);
874 #endif
875 }
876
877 struct json_object *afb_config_parse_arguments(int argc, char **argv)
878 {
879         struct json_object *result;
880
881         init_options();
882
883         result = json_object_new_object();
884
885         parse_environment(result);
886         parse_arguments(argc, argv, result);
887         fulfill_config(result);
888         if (verbose_wants(Log_Level_Info))
889                 afb_config_dump(result);
890         return result;
891 }
892
893 struct json_object *afb_config_json(struct json_object *config)
894 {
895         return NULL;
896 }
897