src/bin/lttng/commands/create.c

   1 /*
   2  * Copyright (C) 2011 - David Goulet <david.goulet@polymtl.ca>
   3  *
   4  * This program is free software; you can redistribute it and/or modify
   5  * it under the terms of the GNU General Public License, version 2 only,
   6  * as published by the Free Software Foundation.
   7  *
   8  * This program is distributed in the hope that it will be useful,
   9  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  10  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11  * GNU General Public License for more details.
  12  *
  13  * You should have received a copy of the GNU General Public License along
  14  * with this program; if not, write to the Free Software Foundation, Inc.,
  15  * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
  16  */
  17
  18 #define _LGPL_SOURCE
  19 #include <assert.h>
  20 #include <ctype.h>
  21 #include <popt.h>
  22 #include <stdio.h>
  23 #include <stdlib.h>
  24 #include <string.h>
  25 #include <sys/stat.h>
  26 #include <sys/types.h>
  27 #include <common/compat/time.h>
  28 #include <unistd.h>
  29 #include <signal.h>
  30 #include <sys/wait.h>
  31
  32 #include <common/mi-lttng.h>
  33
  34 #include "../command.h"
  35 #include "../utils.h"
  36
  37 #include <common/defaults.h>
  38 #include <common/sessiond-comm/sessiond-comm.h>
  39 #include <common/uri.h>
  40 #include <common/utils.h>
  41 #include <lttng/snapshot.h>
  42
  43 static char *opt_output_path;
  44 static char *opt_session_name;
  45 static char *opt_url;
  46 static char *opt_ctrl_url;
  47 static char *opt_data_url;
  48 static char *opt_shm_path;
  49 static int opt_no_consumer;
  50 static int opt_no_output;
  51 static int opt_snapshot;
  52 static unsigned int opt_live_timer;
  53
  54 enum {
  55         OPT_HELP = 1,
  56         OPT_LIST_OPTIONS,
  57         OPT_LIVE_TIMER,
  58 };
  59
  60 static struct mi_writer *writer;
  61
  62 static struct poptOption long_options[] = {
  63         /* longName, shortName, argInfo, argPtr, value, descrip, argDesc */
  64         {"help", 'h', POPT_ARG_NONE, NULL, OPT_HELP, NULL, NULL},
  65         {"output", 'o', POPT_ARG_STRING, &opt_output_path, 0, NULL, NULL},
  66         {"list-options", 0, POPT_ARG_NONE, NULL, OPT_LIST_OPTIONS, NULL, NULL},
  67         {"set-url",        'U', POPT_ARG_STRING, &opt_url, 0, 0, 0},
  68         {"ctrl-url",       'C', POPT_ARG_STRING, &opt_ctrl_url, 0, 0, 0},
  69         {"data-url",       'D', POPT_ARG_STRING, &opt_data_url, 0, 0, 0},
  70         {"no-output",       0, POPT_ARG_VAL, &opt_no_output, 1, 0, 0},
  71         {"no-consumer",     0, POPT_ARG_VAL, &opt_no_consumer, 1, 0, 0},
  72         {"snapshot",        0, POPT_ARG_VAL, &opt_snapshot, 1, 0, 0},
  73         {"live",            0, POPT_ARG_INT | POPT_ARGFLAG_OPTIONAL, 0, OPT_LIVE_TIMER, 0, 0},
  74         {"shm-path",        0, POPT_ARG_STRING, &opt_shm_path, 0, 0, 0},
  75         {0, 0, 0, 0, 0, 0, 0}
  76 };
  77
  78 /*
  79  * Please have a look at src/lib/lttng-ctl/lttng-ctl.c for more information on
  80  * why this declaration exists and used ONLY in for this command.
  81  */
  82 extern int _lttng_create_session_ext(const char *name, const char *url,
  83                 const char *datetime);
  84
  85 /*
  86  * Retrieve the created session and mi output it based on provided argument
  87  * This is currently a summary of what was pretty printed and is subject to
  88  * enhancements.
  89  */
  90 static int mi_created_session(const char *session_name)
  91 {
  92         int ret, i, count, found;
  93         struct lttng_session *sessions;
  94
  95         /* session_name should not be null */
  96         assert(session_name);
  97         assert(writer);
  98
  99         count = lttng_list_sessions(&sessions);
 100         if (count < 0) {
 101                 ret = count;
 102                 ERR("%s", lttng_strerror(ret));
 103                 goto error;
 104         }
 105
 106         if (count == 0) {
 107                 ERR("Error session creation failed: session %s not found", session_name);
 108                 ret = -LTTNG_ERR_SESS_NOT_FOUND;
 109                 goto end;
 110         }
 111
 112         found = 0;
 113         for (i = 0; i < count; i++) {
 114                 if (strncmp(sessions[i].name, session_name, NAME_MAX) == 0) {
 115                         found = 1;
 116                         ret = mi_lttng_session(writer, &sessions[i], 0);
 117                         if (ret) {
 118                                 goto error;
 119                         }
 120                         break;
 121                 }
 122         }
 123
 124         if (!found) {
 125                 ret = -LTTNG_ERR_SESS_NOT_FOUND;
 126         } else {
 127                 ret = CMD_SUCCESS;
 128         }
 129
 130 error:
 131         free(sessions);
 132 end:
 133         return ret;
 134 }
 135
 136 /*
 137  * For a session name, set the consumer URLs.
 138  */
 139 static int set_consumer_url(const char *session_name, const char *ctrl_url,
 140                 const char *data_url)
 141 {
 142         int ret;
 143         struct lttng_handle *handle;
 144
 145         assert(session_name);
 146
 147         /*
 148          * Set handle with the session_name, but no domain. This implies that
 149          * the actions taken with this handle apply on the tracing session
 150          * rather then the domain-specific session.
 151          */
 152         handle = lttng_create_handle(session_name, NULL);
 153         if (handle == NULL) {
 154                 ret = CMD_FATAL;
 155                 goto error;
 156         }
 157
 158         ret = lttng_set_consumer_url(handle, ctrl_url, data_url);
 159         if (ret < 0) {
 160                 goto error;
 161         }
 162
 163         if (ctrl_url) {
 164                 MSG("Control URL %s set for session %s", ctrl_url, session_name);
 165         }
 166
 167         if (data_url) {
 168                 MSG("Data URL %s set for session %s", data_url, session_name);
 169         }
 170
 171 error:
 172         lttng_destroy_handle(handle);
 173         return ret;
 174 }
 175
 176 static int add_snapshot_output(const char *session_name, const char *ctrl_url,
 177                 const char *data_url)
 178 {
 179         int ret;
 180         struct lttng_snapshot_output *output = NULL;
 181
 182         assert(session_name);
 183
 184         output = lttng_snapshot_output_create();
 185         if (!output) {
 186                 ret = CMD_FATAL;
 187                 goto error_create;
 188         }
 189
 190         if (ctrl_url) {
 191                 ret = lttng_snapshot_output_set_ctrl_url(ctrl_url, output);
 192                 if (ret < 0) {
 193                         goto error;
 194                 }
 195         }
 196
 197         if (data_url) {
 198                 ret = lttng_snapshot_output_set_data_url(data_url, output);
 199                 if (ret < 0) {
 200                         goto error;
 201                 }
 202         }
 203
 204         /* This call, if successful, populates the id of the output object. */
 205         ret = lttng_snapshot_add_output(session_name, output);
 206         if (ret < 0) {
 207                 goto error;
 208         }
 209
 210 error:
 211         lttng_snapshot_output_destroy(output);
 212 error_create:
 213         return ret;
 214 }
 215
 216 /*
 217  *  Create a tracing session.
 218  *  If no name is specified, a default name is generated.
 219  *
 220  *  Returns one of the CMD_* result constants.
 221  */
 222 static int create_session(void)
 223 {
 224         int ret;
 225         char *session_name = NULL, *traces_path = NULL, *alloc_path = NULL;
 226         char *alloc_url = NULL, *url = NULL, datetime[16];
 227         char session_name_date[NAME_MAX + 17], *print_str_url = NULL;
 228         time_t rawtime;
 229         struct tm *timeinfo;
 230         char shm_path[PATH_MAX] = "";
 231
 232         /* Get date and time for automatic session name/path */
 233         time(&rawtime);
 234         timeinfo = localtime(&rawtime);
 235         strftime(datetime, sizeof(datetime), "%Y%m%d-%H%M%S", timeinfo);
 236
 237         /* Auto session name creation */
 238         if (opt_session_name == NULL) {
 239                 ret = snprintf(session_name_date, sizeof(session_name_date),
 240                                 DEFAULT_SESSION_NAME "-%s", datetime);
 241                 if (ret < 0) {
 242                         PERROR("snprintf session name");
 243                         goto error;
 244                 }
 245                 session_name = session_name_date;
 246                 DBG("Auto session name set to %s", session_name_date);
 247         } else {
 248                 if (strlen(opt_session_name) > NAME_MAX) {
 249                         ERR("Session name too long. Length must be lower or equal to %d",
 250                                         NAME_MAX);
 251                         ret = LTTNG_ERR_SESSION_FAIL;
 252                         goto error;
 253                 }
 254                 /*
 255                  * Check if the session name begins with "auto-" or is exactly "auto".
 256                  * Both are reserved for the default session name. See bug #449 to
 257                  * understand why we need to check both here.
 258                  */
 259                 if ((strncmp(opt_session_name, DEFAULT_SESSION_NAME "-",
 260                                         strlen(DEFAULT_SESSION_NAME) + 1) == 0) ||
 261                                 (strncmp(opt_session_name, DEFAULT_SESSION_NAME,
 262                                         strlen(DEFAULT_SESSION_NAME)) == 0 &&
 263                                 strlen(opt_session_name) == strlen(DEFAULT_SESSION_NAME))) {
 264                         ERR("%s is a reserved keyword for default session(s)",
 265                                         DEFAULT_SESSION_NAME);
 266                         ret = CMD_ERROR;
 267                         goto error;
 268                 }
 269                 session_name = opt_session_name;
 270                 ret = snprintf(session_name_date, sizeof(session_name_date),
 271                                 "%s-%s", session_name, datetime);
 272                 if (ret < 0) {
 273                         PERROR("snprintf session name");
 274                         goto error;
 275                 }
 276         }
 277
 278         if ((!opt_ctrl_url && opt_data_url) || (opt_ctrl_url && !opt_data_url)) {
 279                 ERR("You need both control and data URL.");
 280                 ret = CMD_ERROR;
 281                 goto error;
 282         }
 283
 284         if (opt_output_path != NULL) {
 285                 traces_path = utils_expand_path(opt_output_path);
 286                 if (traces_path == NULL) {
 287                         ret = CMD_ERROR;
 288                         goto error;
 289                 }
 290
 291                 /* Create URL string from the local file system path */
 292                 ret = asprintf(&alloc_url, "file://%s", traces_path);
 293                 if (ret < 0) {
 294                         PERROR("asprintf url path");
 295                         ret = CMD_FATAL;
 296                         goto error;
 297                 }
 298                 /* URL to use in the lttng_create_session() call */
 299                 url = alloc_url;
 300                 print_str_url = traces_path;
 301         } else if (opt_url) { /* Handling URL (-U opt) */
 302                 url = opt_url;
 303                 print_str_url = url;
 304         } else if (opt_data_url && opt_ctrl_url) {
 305                 /*
 306                  * With both control and data, we'll be setting the consumer URL after
 307                  * session creation thus use no URL.
 308                  */
 309                 url = NULL;
 310         } else if (!opt_no_output) {
 311                 char *tmp_path;
 312
 313                 /* Auto output path */
 314                 tmp_path = utils_get_home_dir();
 315                 if (tmp_path == NULL) {
 316                         ERR("HOME path not found.\n \
 317                                         Please specify an output path using -o, --output PATH");
 318                         ret = CMD_FATAL;
 319                         goto error;
 320                 }
 321                 alloc_path = strdup(tmp_path);
 322                 if (!alloc_path) {
 323                         PERROR("allocating alloc_path");
 324                         ret = CMD_FATAL;
 325                         goto error;
 326                 }
 327                 ret = asprintf(&alloc_url,
 328                                 "file://%s/" DEFAULT_TRACE_DIR_NAME "/%s",
 329                                 alloc_path, session_name_date);
 330                 if (ret < 0) {
 331                         PERROR("asprintf trace dir name");
 332                         ret = CMD_FATAL;
 333                         goto error;
 334                 }
 335
 336                 url = alloc_url;
 337                 print_str_url = alloc_url + strlen("file://");
 338         } else {
 339                 /* No output means --no-output or --snapshot mode. */
 340                 url = NULL;
 341         }
 342
 343         /* Use default live URL if NO url is/are found. */
 344         if ((opt_live_timer && !opt_url) && (opt_live_timer && !opt_data_url)) {
 345                 /* Override the url */
 346                 free(url);
 347                 url = NULL;
 348
 349                 ret = asprintf(&alloc_url, "net://127.0.0.1");
 350                 if (ret < 0) {
 351                         PERROR("asprintf default live URL");
 352                         ret = CMD_FATAL;
 353                         goto error;
 354                 }
 355                 url = alloc_url;
 356                 print_str_url = url;
 357         }
 358
 359         if (opt_snapshot && opt_live_timer) {
 360                 ERR("Snapshot and live modes are mutually exclusive.");
 361                 ret = CMD_ERROR;
 362                 goto error;
 363         }
 364
 365         if (opt_snapshot) {
 366                 /* No output by default. */
 367                 const char *snapshot_url = NULL;
 368
 369                 if (opt_url) {
 370                         snapshot_url = url;
 371                 } else if (!opt_data_url && !opt_ctrl_url) {
 372                         /* This is the session path that we need to use as output. */
 373                         snapshot_url = url;
 374                 }
 375                 ret = lttng_create_session_snapshot(session_name, snapshot_url);
 376         } else if (opt_live_timer) {
 377                 const char *pathname;
 378
 379                 if (opt_relayd_path) {
 380                         pathname = opt_relayd_path;
 381                 } else {
 382                         pathname = INSTALL_BIN_PATH "/lttng-relayd";
 383                 }
 384                 if (!opt_url && !opt_data_url && !check_relayd() &&
 385                                 spawn_relayd(pathname, 0) < 0) {
 386                         goto error;
 387                 }
 388                 ret = lttng_create_session_live(session_name, url, opt_live_timer);
 389         } else {
 390                 ret = _lttng_create_session_ext(session_name, url, datetime);
 391         }
 392         if (ret < 0) {
 393                 /* Don't set ret so lttng can interpret the sessiond error. */
 394                 switch (-ret) {
 395                 case LTTNG_ERR_EXIST_SESS:
 396                         WARN("Session %s already exists", session_name);
 397                         break;
 398                 default:
 399                         break;
 400                 }
 401                 goto error;
 402         }
 403
 404         if (opt_ctrl_url && opt_data_url) {
 405                 if (opt_snapshot) {
 406                         ret = add_snapshot_output(session_name, opt_ctrl_url,
 407                                         opt_data_url);
 408                 } else {
 409                         /* Setting up control URI (-C or/and -D opt) */
 410                         ret = set_consumer_url(session_name, opt_ctrl_url, opt_data_url);
 411                 }
 412                 if (ret < 0) {
 413                         /* Destroy created session because the URL are not valid. */
 414                         lttng_destroy_session(session_name);
 415                         goto error;
 416                 }
 417         }
 418
 419         if (opt_shm_path) {
 420                 ret = snprintf(shm_path, sizeof(shm_path),
 421                                 "%s/%s", opt_shm_path, session_name_date);
 422                 if (ret < 0) {
 423                         PERROR("snprintf shm_path");
 424                         goto error;
 425                 }
 426
 427                 ret = lttng_set_session_shm_path(session_name, shm_path);
 428                 if (ret < 0) {
 429                         lttng_destroy_session(session_name);
 430                         goto error;
 431                 }
 432         }
 433
 434         MSG("Session %s created.", session_name);
 435         if (print_str_url && !opt_snapshot) {
 436                 MSG("Traces will be written in %s", print_str_url);
 437
 438                 if (opt_live_timer) {
 439                         MSG("Live timer set to %u usec", opt_live_timer);
 440                 }
 441         } else if (opt_snapshot) {
 442                 if (print_str_url) {
 443                         MSG("Default snapshot output set to: %s", print_str_url);
 444                 }
 445                 MSG("Snapshot mode set. Every channel enabled for that session will "
 446                                 "be set to mmap output, and default to overwrite mode.");
 447         }
 448         if (opt_shm_path) {
 449                 MSG("Session %s set to shm_path: %s.", session_name,
 450                         shm_path);
 451         }
 452
 453         /* Mi output */
 454         if (lttng_opt_mi) {
 455                 ret = mi_created_session(session_name);
 456                 if (ret) {
 457                         ret = CMD_ERROR;
 458                         goto error;
 459                 }
 460         }
 461
 462         /* Init lttng session config */
 463         ret = config_init(session_name);
 464         if (ret < 0) {
 465                 ret = CMD_ERROR;
 466                 goto error;
 467         }
 468
 469         ret = CMD_SUCCESS;
 470
 471 error:
 472         free(alloc_url);
 473         free(traces_path);
 474         free(alloc_path);
 475
 476         if (ret < 0) {
 477                 ERR("%s", lttng_strerror(ret));
 478         }
 479         return ret;
 480 }
 481
 482 /*
 483  *  spawn_sessiond
 484  *
 485  *  Spawn a session daemon by forking and execv.
 486  */
 487 static int spawn_sessiond(char *pathname)
 488 {
 489         int ret = 0;
 490         pid_t pid;
 491
 492         MSG("Spawning a session daemon");
 493         pid = fork();
 494         if (pid == 0) {
 495                 /*
 496                  * Spawn session daemon in daemon mode.
 497                  */
 498                 execlp(pathname, "lttng-sessiond",
 499                                 "--daemonize", NULL);
 500                 /* execlp only returns if error happened */
 501                 if (errno == ENOENT) {
 502                         ERR("No session daemon found. Use --sessiond-path.");
 503                 } else {
 504                         PERROR("execlp");
 505                 }
 506                 kill(getppid(), SIGTERM);       /* wake parent */
 507                 exit(EXIT_FAILURE);
 508         } else if (pid > 0) {
 509                 /*
 510                  * In daemon mode (--daemonize), sessiond only exits when
 511                  * it's ready to accept commands.
 512                  */
 513                 for (;;) {
 514                         int status;
 515                         pid_t wait_pid_ret = waitpid(pid, &status, 0);
 516
 517                         if (wait_pid_ret < 0) {
 518                                 if (errno == EINTR) {
 519                                         continue;
 520                                 }
 521                                 PERROR("waitpid");
 522                                 ret = -errno;
 523                                 goto end;
 524                         }
 525
 526                         if (WIFSIGNALED(status)) {
 527                                 ERR("Session daemon was killed by signal %d",
 528                                                 WTERMSIG(status));
 529                                 ret = -1;
 530                                 goto end;
 531                         } else if (WIFEXITED(status)) {
 532                                 DBG("Session daemon terminated normally (exit status: %d)",
 533                                                 WEXITSTATUS(status));
 534
 535                                 if (WEXITSTATUS(status) != 0) {
 536                                         ERR("Session daemon terminated with an error (exit status: %d)",
 537                                                         WEXITSTATUS(status));
 538                                         ret = -1;
 539                                         goto end;
 540                                 }
 541                                 break;
 542                         }
 543                 }
 544
 545                 goto end;
 546         } else {
 547                 PERROR("fork");
 548                 ret = -1;
 549                 goto end;
 550         }
 551
 552 end:
 553         return ret;
 554 }
 555
 556 /*
 557  *  launch_sessiond
 558  *
 559  *  Check if the session daemon is available using
 560  *  the liblttngctl API for the check. If not, try to
 561  *  spawn a daemon.
 562  */
 563 static int launch_sessiond(void)
 564 {
 565         int ret;
 566         char *pathname = NULL;
 567
 568         ret = lttng_session_daemon_alive();
 569         if (ret) {
 570                 /* Sessiond is alive, not an error */
 571                 ret = 0;
 572                 goto end;
 573         }
 574
 575         /* Try command line option path */
 576         pathname = opt_sessiond_path;
 577
 578         /* Try LTTNG_SESSIOND_PATH env variable */
 579         if (pathname == NULL) {
 580                 pathname = getenv(DEFAULT_SESSIOND_PATH_ENV);
 581         }
 582
 583         /* Try with configured path */
 584         if (pathname == NULL) {
 585                 if (CONFIG_SESSIOND_BIN[0] != '\0') {
 586                         pathname = CONFIG_SESSIOND_BIN;
 587                 }
 588         }
 589
 590         /* Try the default path */
 591         if (pathname == NULL) {
 592                 pathname = INSTALL_BIN_PATH "/lttng-sessiond";
 593         }
 594
 595         DBG("Session daemon binary path: %s", pathname);
 596
 597         /* Check existence and permissions */
 598         ret = access(pathname, F_OK | X_OK);
 599         if (ret < 0) {
 600                 ERR("No such file or access denied: %s", pathname);
 601                 goto end;
 602         }
 603
 604         ret = spawn_sessiond(pathname);
 605 end:
 606         if (ret) {
 607                 ERR("Problem occurred while launching session daemon (%s)",
 608                                 pathname);
 609         }
 610         return ret;
 611 }
 612
 613 /*
 614  *  The 'create <options>' first level command
 615  *
 616  *  Returns one of the CMD_* result constants.
 617  */
 618 int cmd_create(int argc, const char **argv)
 619 {
 620         int opt, ret = CMD_SUCCESS, command_ret = CMD_SUCCESS, success = 1;
 621         char *opt_arg = NULL;
 622         static poptContext pc;
 623
 624         pc = poptGetContext(NULL, argc, argv, long_options, 0);
 625         poptReadDefaultConfig(pc, 0);
 626
 627         while ((opt = poptGetNextOpt(pc)) != -1) {
 628                 switch (opt) {
 629                 case OPT_HELP:
 630                         SHOW_HELP();
 631                         goto end;
 632                 case OPT_LIST_OPTIONS:
 633                         list_cmd_options(stdout, long_options);
 634                         goto end;
 635                 case OPT_LIVE_TIMER:
 636                 {
 637                         unsigned long v;
 638
 639                         errno = 0;
 640                         opt_arg = poptGetOptArg(pc);
 641                         if (!opt_arg) {
 642                                 /* Set up default values. */
 643                                 opt_live_timer = (uint32_t) DEFAULT_LTTNG_LIVE_TIMER;
 644                                 DBG("Session live timer interval set to default value %d",
 645                                                 opt_live_timer);
 646                                 break;
 647                         }
 648
 649                         v = strtoul(opt_arg, NULL, 0);
 650                         if (errno != 0 || !isdigit(opt_arg[0])) {
 651                                 ERR("Wrong value in --live parameter: %s", opt_arg);
 652                                 ret = CMD_ERROR;
 653                                 goto end;
 654                         }
 655                         if (v != (uint32_t) v) {
 656                                 ERR("32-bit overflow in --live parameter: %s", opt_arg);
 657                                 ret = CMD_ERROR;
 658                                 goto end;
 659                         }
 660                         if (v == 0) {
 661                                 ERR("Live timer interval must be greater than zero");
 662                                 ret = CMD_ERROR;
 663                                 goto end;
 664                         }
 665                         opt_live_timer = (uint32_t) v;
 666                         DBG("Session live timer interval set to %d", opt_live_timer);
 667                         break;
 668                 }
 669                 default:
 670                         ret = CMD_UNDEFINED;
 671                         goto end;
 672                 }
 673         }
 674
 675         if (opt_no_consumer) {
 676                 MSG("The option --no-consumer is obsolete. Use --no-output now.");
 677                 ret = CMD_WARNING;
 678                 goto end;
 679         }
 680
 681         /* Spawn a session daemon if needed */
 682         if (!opt_no_sessiond) {
 683                 ret = launch_sessiond();
 684                 if (ret) {
 685                         ret = CMD_ERROR;
 686                         goto end;
 687                 }
 688         }
 689
 690         /* MI initialization */
 691         if (lttng_opt_mi) {
 692                 writer = mi_lttng_writer_create(fileno(stdout), lttng_opt_mi);
 693                 if (!writer) {
 694                         ret = -LTTNG_ERR_NOMEM;
 695                         goto end;
 696                 }
 697
 698                 /* Open command element */
 699                 ret = mi_lttng_writer_command_open(writer,
 700                                 mi_lttng_element_command_create);
 701                 if (ret) {
 702                         ret = CMD_ERROR;
 703                         goto end;
 704                 }
 705
 706                 /* Open output element */
 707                 ret = mi_lttng_writer_open_element(writer,
 708                                 mi_lttng_element_command_output);
 709                 if (ret) {
 710                         ret = CMD_ERROR;
 711                         goto end;
 712                 }
 713         }
 714         opt_session_name = (char*) poptGetArg(pc);
 715
 716         command_ret = create_session();
 717         if (command_ret) {
 718                 success = 0;
 719         }
 720
 721         if (lttng_opt_mi) {
 722                 /* Close  output element */
 723                 ret = mi_lttng_writer_close_element(writer);
 724                 if (ret) {
 725                         ret = CMD_ERROR;
 726                         goto end;
 727                 }
 728
 729                 /* Success ? */
 730                 ret = mi_lttng_writer_write_element_bool(writer,
 731                                 mi_lttng_element_command_success, success);
 732                 if (ret) {
 733                         ret = CMD_ERROR;
 734                         goto end;
 735                 }
 736
 737                 /* Command element close */
 738                 ret = mi_lttng_writer_command_close(writer);
 739                 if (ret) {
 740                         ret = CMD_ERROR;
 741                         goto end;
 742                 }
 743         }
 744
 745 end:
 746         /* Mi clean-up */
 747         if (writer && mi_lttng_writer_destroy(writer)) {
 748                 /* Preserve original error code */
 749                 ret = ret ? ret : -LTTNG_ERR_MI_IO_FAIL;
 750         }
 751
 752         /* Overwrite ret if an error occurred in create_session() */
 753         ret = command_ret ? command_ret : ret;
 754
 755         poptFreeContext(pc);
 756         return ret;
 757 }