lnet/utils/lnetconfig/liblnetconfig.c

   1 /*
   2  * LGPL HEADER START
   3  *
   4  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   5  *
   6  * This program is free software; you can redistribute it and/or modify
   7  * it under the terms of the GNU Lesser General Public License as
   8  * published by the Free Software Foundation; either version 2.1 of the
   9  * License, or (at your option) any later version.
  10  *
  11  * This library is distributed in the hope that it will be useful, but
  12  * WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
  14  * Lesser General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Lesser General Public
  17  * License along with this library. If not, see <http://www.gnu.org/licenses/>.
  18  *
  19  * LGPL HEADER END
  20  *
  21  * Copyright (c) 2014, 2017, Intel Corporation.
  22  *
  23  * Author:
  24  *   Amir Shehata <amir.shehata@intel.com>
  25  */
  26
  27 /*
  28  * There are two APIs:
  29  *  1. APIs that take the actual parameters expanded.  This is for other
  30  *  entities that would like to link against the library and call the APIs
  31  *  directly without having to form an intermediate representation.
  32  *  2. APIs that take a YAML file and parses out the information there and
  33  *  calls the APIs mentioned in 1
  34  */
  35
  36 #include <errno.h>
  37 #include <limits.h>
  38 #include <byteswap.h>
  39 #include <netdb.h>
  40 #include <stdio.h>
  41 #include <stdlib.h>
  42 #include <string.h>
  43 #include <unistd.h>
  44 #include <sys/ioctl.h>
  45 #include <net/if.h>
  46 #include <libcfs/util/ioctl.h>
  47 #include <linux/lnet/lnetctl.h>
  48 #include "liblnd.h"
  49 #include <sys/types.h>
  50 #include <sys/stat.h>
  51 #include <fcntl.h>
  52 #include <ifaddrs.h>
  53 #include "liblnetconfig.h"
  54
  55 #define CONFIG_CMD              "configure"
  56 #define UNCONFIG_CMD            "unconfigure"
  57 #define ADD_CMD                 "add"
  58 #define DEL_CMD                 "del"
  59 #define SHOW_CMD                "show"
  60 #define DBG_CMD                 "dbg"
  61 #define MANAGE_CMD              "manage"
  62
  63 #define MAX_NUM_IPS             128
  64
  65 #define modparam_path "/sys/module/lnet/parameters/"
  66 #define gni_nid_path "/proc/cray_xt/"
  67
  68 const char *gmsg_stat_names[] = {"sent_stats", "received_stats",
  69                                  "dropped_stats"};
  70
  71 /*
  72  * lustre_lnet_ip_range_descr
  73  *      Describes an IP range.
  74  *      Each octect is an expression
  75  */
  76 struct lustre_lnet_ip_range_descr {
  77         struct list_head ipr_entry;
  78         struct list_head ipr_expr;
  79 };
  80
  81 /*
  82  * lustre_lnet_ip2nets
  83  *      Describes an ip2nets rule. This can be on a list of rules.
  84  */
  85 struct lustre_lnet_ip2nets {
  86         struct lnet_dlc_network_descr ip2nets_net;
  87         struct list_head ip2nets_ip_ranges;
  88 };
  89
  90 int open_sysfs_file(const char *path, const char *attr, const int mode)
  91 {
  92         int fd;
  93         char filename[LNET_MAX_STR_LEN];
  94
  95         if (strlen(path) + strlen(attr) >= LNET_MAX_STR_LEN)
  96                 return -1;
  97
  98         snprintf(filename, sizeof(filename), "%s%s",
  99                  path, attr);
 100
 101         fd = open(filename, mode);
 102
 103         return fd;
 104 }
 105
 106 static int read_sysfs_file(const char *path, const char *attr,
 107                            void *val, const size_t size, const int nelem)
 108 {
 109         int fd;
 110         int rc = LUSTRE_CFG_RC_GENERIC_ERR;
 111
 112         fd = open_sysfs_file(path, attr, O_RDONLY);
 113         if (fd == -1)
 114                 return LUSTRE_CFG_RC_NO_MATCH;
 115
 116         if (read(fd, val, size * nelem) == -1)
 117                 goto close_fd;
 118
 119         rc = LUSTRE_CFG_RC_NO_ERR;
 120
 121 close_fd:
 122         close(fd);
 123         return rc;
 124 }
 125
 126 static int write_sysfs_file(const char *path, const char *attr,
 127                             void *val, const size_t size, const int nelem)
 128 {
 129         int fd;
 130         int rc = LUSTRE_CFG_RC_GENERIC_ERR;
 131
 132         fd = open_sysfs_file(path, attr, O_WRONLY | O_TRUNC);
 133         if (fd == -1)
 134                 return LUSTRE_CFG_RC_NO_MATCH;
 135
 136         if (write(fd, val, size * nelem) == -1)
 137                 goto close_fd;
 138
 139         rc = LUSTRE_CFG_RC_NO_ERR;
 140
 141 close_fd:
 142         close(fd);
 143         return rc;
 144 }
 145
 146 /*
 147  * free_intf_descr
 148  *      frees the memory allocated for an intf descriptor.
 149  */
 150 void free_intf_descr(struct lnet_dlc_intf_descr *intf_descr)
 151 {
 152         if (!intf_descr)
 153                 return;
 154
 155         if (intf_descr->cpt_expr != NULL)
 156                 cfs_expr_list_free(intf_descr->cpt_expr);
 157         free(intf_descr);
 158 }
 159
 160 /*
 161  * lustre_lnet_add_ip_range
 162  * Formatting:
 163  *      given a string of the format:
 164  *      <expr.expr.expr.expr> parse each expr into
 165  *      a lustre_lnet_ip_range_descr structure and insert on the list.
 166  *
 167  *      This function is called from
 168  *              YAML on each ip-range.
 169  *              As a result of lnetctl command
 170  *              When building a NID or P2P selection rules
 171  */
 172 int lustre_lnet_add_ip_range(struct list_head *list, char *str_ip_range)
 173 {
 174         struct lustre_lnet_ip_range_descr *ip_range;
 175         int rc;
 176
 177         ip_range = calloc(1, sizeof(*ip_range));
 178         if (ip_range == NULL)
 179                 return LUSTRE_CFG_RC_OUT_OF_MEM;
 180
 181         INIT_LIST_HEAD(&ip_range->ipr_entry);
 182         INIT_LIST_HEAD(&ip_range->ipr_expr);
 183
 184         rc = cfs_ip_addr_parse(str_ip_range, strlen(str_ip_range),
 185                                &ip_range->ipr_expr);
 186         if (rc != 0)
 187                 return LUSTRE_CFG_RC_BAD_PARAM;
 188
 189         list_add_tail(&ip_range->ipr_entry, list);
 190
 191         return LUSTRE_CFG_RC_NO_ERR;
 192 }
 193
 194 int lustre_lnet_add_intf_descr(struct list_head *list, char *intf, int len)
 195 {
 196         char *open_sq_bracket = NULL, *close_sq_bracket = NULL,
 197              *intf_name;
 198         struct lnet_dlc_intf_descr *intf_descr = NULL;
 199         int rc;
 200         char intf_string[LNET_MAX_STR_LEN];
 201
 202         if (len >= LNET_MAX_STR_LEN)
 203                 return LUSTRE_CFG_RC_BAD_PARAM;
 204
 205         strncpy(intf_string, intf, len);
 206         intf_string[len] = '\0';
 207
 208         intf_descr = calloc(1, sizeof(*intf_descr));
 209         if (intf_descr == NULL)
 210                 return LUSTRE_CFG_RC_OUT_OF_MEM;
 211
 212         INIT_LIST_HEAD(&intf_descr->intf_on_network);
 213
 214         intf_name = intf_string;
 215         open_sq_bracket = strchr(intf_string, '[');
 216         if (open_sq_bracket != NULL) {
 217                 close_sq_bracket = strchr(intf_string, ']');
 218                 if (close_sq_bracket == NULL) {
 219                         free(intf_descr);
 220                         return LUSTRE_CFG_RC_BAD_PARAM;
 221                 }
 222                 rc = cfs_expr_list_parse(open_sq_bracket,
 223                                          strlen(open_sq_bracket), 0, UINT_MAX,
 224                                          &intf_descr->cpt_expr);
 225                 if (rc < 0) {
 226                         free(intf_descr);
 227                         return LUSTRE_CFG_RC_BAD_PARAM;
 228                 }
 229                 strncpy(intf_descr->intf_name, intf_name,
 230                         open_sq_bracket - intf_name);
 231                 intf_descr->intf_name[open_sq_bracket - intf_name] = '\0';
 232         } else {
 233                 strcpy(intf_descr->intf_name, intf_name);
 234                 intf_descr->cpt_expr = NULL;
 235         }
 236
 237         list_add_tail(&intf_descr->intf_on_network, list);
 238
 239         return LUSTRE_CFG_RC_NO_ERR;
 240 }
 241
 242 void lustre_lnet_init_nw_descr(struct lnet_dlc_network_descr *nw_descr)
 243 {
 244         if (nw_descr != NULL) {
 245                 nw_descr->nw_id = 0;
 246                 INIT_LIST_HEAD(&nw_descr->network_on_rule);
 247                 INIT_LIST_HEAD(&nw_descr->nw_intflist);
 248         }
 249 }
 250
 251 static char *get_next_delimiter_in_nid(char *str, char sep)
 252 {
 253         char *at, *comma;
 254
 255         /* first find the '@' */
 256         at = strchr(str, '@');
 257         if (!at)
 258                 return str;
 259
 260         /* now that you found the at find the sep after */
 261         comma = strchr(at, sep);
 262         return comma;
 263 }
 264
 265 int lustre_lnet_parse_nids(char *nids, char **array, int size,
 266                            char ***out_array)
 267 {
 268         int num_nids = 0;
 269         char *comma = nids, *cur, *entry;
 270         char **new_array;
 271         int i, len, start = 0, finish = 0;
 272
 273         if (nids == NULL || strlen(nids) == 0)
 274                 return size;
 275
 276         /* count the number or new nids, by counting the number of comma*/
 277         while (comma) {
 278                 comma = get_next_delimiter_in_nid(comma, ',');
 279                 if (comma) {
 280                         comma++;
 281                         num_nids++;
 282                 } else {
 283                         num_nids++;
 284                 }
 285         }
 286
 287         /*
 288          * if the array is not NULL allocate a large enough array to house
 289          * the old and new entries
 290          */
 291         new_array = calloc(sizeof(char*),
 292                            (size > 0) ? size + num_nids : num_nids);
 293
 294         if (!new_array)
 295                 goto failed;
 296
 297         /* parse our the new nids and add them to the tail of the array */
 298         comma = nids;
 299         cur = nids;
 300         start = (size > 0) ? size: 0;
 301         finish = (size > 0) ? size + num_nids : num_nids;
 302         for (i = start; i < finish; i++) {
 303                 comma = get_next_delimiter_in_nid(comma, ',');
 304                 if (!comma)
 305                         /*
 306                          * the length of the string to be parsed out is
 307                          * from cur to end of string. So it's good enough
 308                          * to strlen(cur)
 309                          */
 310                         len = strlen(cur) + 1;
 311                 else
 312                         /* length of the string is comma - cur */
 313                         len = (comma - cur) + 1;
 314
 315                 entry = calloc(1, len);
 316                 if (!entry) {
 317                         finish = i > 0 ? i - 1: 0;
 318                         goto failed;
 319                 }
 320                 strncpy(entry, cur, len - 1);
 321                 entry[len] = '\0';
 322                 new_array[i] = entry;
 323                 if (comma) {
 324                         comma++;
 325                         cur = comma;
 326                 }
 327         }
 328
 329         /* add the old entries in the array and delete the old array*/
 330         for (i = 0; i < size; i++)
 331                 new_array[i] = array[i];
 332
 333         if (array)
 334                 free(array);
 335
 336         *out_array = new_array;
 337
 338         return finish;
 339
 340 failed:
 341         for (i = start; i < finish; i++)
 342                 free(new_array[i]);
 343         if (new_array)
 344                 free(new_array);
 345
 346         return size;
 347 }
 348
 349 /*
 350  * format expected:
 351  *      <intf>[<expr>], <intf>[<expr>],..
 352  */
 353 int lustre_lnet_parse_interfaces(char *intf_str,
 354                                  struct lnet_dlc_network_descr *nw_descr)
 355 {
 356         char *open_square;
 357         char *close_square;
 358         char *comma;
 359         char *cur = intf_str, *next = NULL;
 360         char *end = intf_str + strlen(intf_str);
 361         int rc, len;
 362         struct lnet_dlc_intf_descr *intf_descr, *tmp;
 363
 364         if (nw_descr == NULL)
 365                 return LUSTRE_CFG_RC_BAD_PARAM;
 366
 367         while (cur < end) {
 368                 open_square = strchr(cur, '[');
 369                 if (open_square != NULL) {
 370                         close_square = strchr(cur, ']');
 371                         if (close_square == NULL) {
 372                                 rc = LUSTRE_CFG_RC_BAD_PARAM;
 373                                 goto failed;
 374                         }
 375
 376                         comma = strchr(cur, ',');
 377                         if (comma != NULL && comma > close_square) {
 378                                 next = comma + 1;
 379                                 len = next - close_square;
 380                         } else {
 381                                 len = strlen(cur);
 382                                 next = cur + len;
 383                         }
 384                 } else {
 385                         comma = strchr(cur, ',');
 386                         if (comma != NULL) {
 387                                 next = comma + 1;
 388                                 len = comma - cur;
 389                         } else {
 390                                 len = strlen(cur);
 391                                 next = cur + len;
 392                         }
 393                 }
 394
 395                 rc = lustre_lnet_add_intf_descr(&nw_descr->nw_intflist, cur, len);
 396                 if (rc != LUSTRE_CFG_RC_NO_ERR)
 397                         goto failed;
 398
 399                 cur = next;
 400         }
 401
 402         return LUSTRE_CFG_RC_NO_ERR;
 403
 404 failed:
 405         list_for_each_entry_safe(intf_descr, tmp, &nw_descr->nw_intflist,
 406                                  intf_on_network) {
 407                 list_del(&intf_descr->intf_on_network);
 408                 free_intf_descr(intf_descr);
 409         }
 410
 411         return rc;
 412 }
 413
 414 int lustre_lnet_config_lib_init(void)
 415 {
 416         return register_ioc_dev(LNET_DEV_ID, LNET_DEV_PATH);
 417 }
 418
 419 void lustre_lnet_config_lib_uninit(void)
 420 {
 421         unregister_ioc_dev(LNET_DEV_ID);
 422 }
 423
 424 int lustre_lnet_config_ni_system(bool up, bool load_ni_from_mod,
 425                                  int seq_no, struct cYAML **err_rc)
 426 {
 427         struct libcfs_ioctl_data data;
 428         unsigned int opc;
 429         int rc;
 430         char err_str[LNET_MAX_STR_LEN];
 431
 432         snprintf(err_str, sizeof(err_str), "\"Success\"");
 433
 434         LIBCFS_IOC_INIT(data);
 435
 436         /* Reverse logic is used here in order not to change
 437          * the lctl utility */
 438         data.ioc_flags = load_ni_from_mod ? 0 : 1;
 439
 440         opc = up ? IOC_LIBCFS_CONFIGURE : IOC_LIBCFS_UNCONFIGURE;
 441
 442         rc = l_ioctl(LNET_DEV_ID, opc, &data);
 443         if (rc != 0) {
 444                 snprintf(err_str,
 445                         sizeof(err_str),
 446                         "\"LNet %s error: %s\"", (up) ? "configure" :
 447                         "unconfigure", strerror(errno));
 448                 rc = -errno;
 449         }
 450
 451         cYAML_build_error(rc, seq_no, (up) ? CONFIG_CMD : UNCONFIG_CMD,
 452                           "lnet", err_str, err_rc);
 453
 454         return rc;
 455 }
 456
 457 static int dispatch_peer_ni_cmd(lnet_nid_t pnid, lnet_nid_t nid, __u32 cmd,
 458                                 struct lnet_ioctl_peer_cfg *data,
 459                                 char *err_str, char *cmd_str)
 460 {
 461         int rc;
 462
 463         data->prcfg_prim_nid = pnid;
 464         data->prcfg_cfg_nid = nid;
 465
 466         rc = l_ioctl(LNET_DEV_ID, cmd, data);
 467         if (rc != 0) {
 468                 rc = -errno;
 469                 snprintf(err_str,
 470                         LNET_MAX_STR_LEN,
 471                         "\"cannot %s peer ni: %s\"",
 472                         (cmd_str) ? cmd_str : "add", strerror(errno));
 473                 err_str[LNET_MAX_STR_LEN - 1] = '\0';
 474         }
 475
 476         return rc;
 477 }
 478
 479 static int infra_ping_nid(char *ping_nids, char *oper, int param, int ioc_call,
 480                           int seq_no, struct cYAML **show_rc,
 481                           struct cYAML **err_rc)
 482 {
 483         void *data = NULL;
 484         struct lnet_ioctl_ping_data ping;
 485         struct cYAML *root = NULL, *ping_node = NULL, *item = NULL,
 486                      *first_seq = NULL, *tmp = NULL, *peer_ni = NULL;
 487         struct lnet_process_id id;
 488         char err_str[LNET_MAX_STR_LEN] = {0};
 489         char *sep, *token, *end;
 490         char buf[6];
 491         size_t len;
 492         int rc = LUSTRE_CFG_RC_OUT_OF_MEM;
 493         int i;
 494         bool flag = false;
 495
 496         len = (sizeof(struct lnet_process_id) * LNET_INTERFACES_MAX_DEFAULT);
 497
 498         data = calloc(1, len);
 499         if (data == NULL)
 500                 goto out;
 501
 502         /* create struct cYAML root object */
 503         root = cYAML_create_object(NULL, NULL);
 504         if (root == NULL)
 505                 goto out;
 506
 507         ping_node = cYAML_create_seq(root, oper);
 508         if (ping_node == NULL)
 509                 goto out;
 510
 511         /* tokenise each nid in string ping_nids */
 512         token = strtok(ping_nids, ",");
 513
 514         do {
 515                 item = cYAML_create_seq_item(ping_node);
 516                 if (item == NULL)
 517                         goto out;
 518
 519                 if (first_seq == NULL)
 520                         first_seq = item;
 521
 522                 /* check if '-' is a part of NID, token */
 523                 sep = strchr(token, '-');
 524                 if (sep == NULL) {
 525                         id.pid = LNET_PID_ANY;
 526                         /* if no net is specified, libcfs_str2nid() will assume tcp */
 527                         id.nid = libcfs_str2nid(token);
 528                         if (id.nid == LNET_NID_ANY) {
 529                                 snprintf(err_str, sizeof(err_str),
 530                                          "\"cannot parse NID '%s'\"",
 531                                          token);
 532                                 rc = LUSTRE_CFG_RC_BAD_PARAM;
 533                                 cYAML_build_error(rc, seq_no, MANAGE_CMD,
 534                                                   oper, err_str, err_rc);
 535                                 continue;
 536                         }
 537                 } else {
 538                         if (token[0] == 'u' || token[0] == 'U')
 539                                 id.pid = (strtoul(&token[1], &end, 0) |
 540                                           (LNET_PID_USERFLAG));
 541                         else
 542                                 id.pid = strtoul(token, &end, 0);
 543
 544                         /* assuming '-' is part of hostname */
 545                         if (end != sep) {
 546                                 id.pid = LNET_PID_ANY;
 547                                 id.nid = libcfs_str2nid(token);
 548                                 if (id.nid == LNET_NID_ANY) {
 549                                         snprintf(err_str, sizeof(err_str),
 550                                                  "\"cannot parse NID '%s'\"",
 551                                                  token);
 552                                         rc = LUSTRE_CFG_RC_BAD_PARAM;
 553                                         cYAML_build_error(rc, seq_no, MANAGE_CMD,
 554                                                           oper, err_str,
 555                                                           err_rc);
 556                                         continue;
 557                                 }
 558                         } else {
 559                                 id.nid = libcfs_str2nid(sep + 1);
 560                                 if (id.nid == LNET_NID_ANY) {
 561                                         snprintf(err_str, sizeof(err_str),
 562                                                  "\"cannot parse NID '%s'\"",
 563                                                  token);
 564                                         rc = LUSTRE_CFG_RC_BAD_PARAM;
 565                                         cYAML_build_error(rc, seq_no, MANAGE_CMD,
 566                                                           oper, err_str,
 567                                                           err_rc);
 568                                         continue;
 569                                 }
 570                         }
 571                 }
 572                 LIBCFS_IOC_INIT_V2(ping, ping_hdr);
 573                 ping.ping_hdr.ioc_len = sizeof(ping);
 574                 ping.ping_id          = id;
 575                 ping.op_param         = param;
 576                 ping.ping_count       = LNET_INTERFACES_MAX_DEFAULT;
 577                 ping.ping_buf         = data;
 578
 579                 rc = l_ioctl(LNET_DEV_ID, ioc_call, &ping);
 580                 if (rc != 0) {
 581                         snprintf(err_str,
 582                                  sizeof(err_str), "failed to %s %s: %s\n", oper,
 583                                  id.pid == LNET_PID_ANY ?
 584                                  libcfs_nid2str(id.nid) :
 585                                  libcfs_id2str(id), strerror(errno));
 586                         rc = LUSTRE_CFG_RC_BAD_PARAM;
 587                         cYAML_build_error(rc, seq_no, MANAGE_CMD,
 588                                           oper, err_str, err_rc);
 589                         continue;
 590                 }
 591
 592                 if (cYAML_create_string(item, "primary nid",
 593                                         libcfs_nid2str(ping.ping_id.nid)) == NULL)
 594                         goto out;
 595
 596                 if (cYAML_create_string(item, "Multi-Rail", ping.mr_info ?
 597                                         "True" : "False") == NULL)
 598                         goto out;
 599
 600                 tmp = cYAML_create_seq(item, "peer ni");
 601                 if (tmp == NULL)
 602                         goto out;
 603
 604                 for (i = 0; i < ping.ping_count; i++) {
 605                         if (!strcmp(libcfs_nid2str(ping.ping_buf[i].nid),
 606                                     "0@lo"))
 607                                 continue;
 608                         peer_ni = cYAML_create_seq_item(tmp);
 609                         if (peer_ni == NULL)
 610                                 goto out;
 611                         memset(buf, 0, sizeof buf);
 612                         snprintf(buf, sizeof buf, "nid");
 613                         if (cYAML_create_string(peer_ni, buf,
 614                                                 libcfs_nid2str(ping.ping_buf[i].nid)) == NULL)
 615                                 goto out;
 616                 }
 617
 618                 flag = true;
 619
 620         } while ((token = strtok(NULL, ",")) != NULL);
 621
 622         if (flag)
 623                 rc = LUSTRE_CFG_RC_NO_ERR;
 624
 625 out:
 626         if (data)
 627                 free(data);
 628         if (show_rc == NULL || rc != LUSTRE_CFG_RC_NO_ERR) {
 629                 cYAML_free_tree(root);
 630         } else if (show_rc != NULL && *show_rc != NULL) {
 631                 struct cYAML *show_node;
 632                 show_node = cYAML_get_object_item(*show_rc, oper);
 633                 if (show_node != NULL && cYAML_is_sequence(show_node)) {
 634                         cYAML_insert_child(show_node, first_seq);
 635                         free(ping_node);
 636                         free(root);
 637                 } else if (show_node == NULL) {
 638                         cYAML_insert_sibling((*show_rc)->cy_child,
 639                                              ping_node);
 640                         free(root);
 641                 } else {
 642                         cYAML_free_tree(root);
 643                 }
 644         } else {
 645                 *show_rc = root;
 646         }
 647
 648         return rc;
 649 }
 650
 651 int lustre_lnet_ping_nid(char *ping_nids, int timeout, int seq_no,
 652                          struct cYAML **show_rc, struct cYAML **err_rc)
 653 {
 654         int rc;
 655
 656         rc = infra_ping_nid(ping_nids, "ping", timeout, IOC_LIBCFS_PING_PEER,
 657                             seq_no, show_rc, err_rc);
 658         return rc;
 659 }
 660
 661 int lustre_lnet_discover_nid(char *ping_nids, int force, int seq_no,
 662                          struct cYAML **show_rc, struct cYAML **err_rc)
 663 {
 664         int rc;
 665
 666         rc = infra_ping_nid(ping_nids, "discover", force, IOC_LIBCFS_DISCOVER,
 667                             seq_no, show_rc, err_rc);
 668         return rc;
 669 }
 670
 671 static void lustre_lnet_clean_ip2nets(struct lustre_lnet_ip2nets *ip2nets)
 672 {
 673         struct lustre_lnet_ip_range_descr *ipr, *tmp;
 674         struct cfs_expr_list *el, *el_tmp;
 675
 676         list_for_each_entry_safe(ipr, tmp,
 677                                  &ip2nets->ip2nets_ip_ranges,
 678                                  ipr_entry) {
 679                 list_del(&ipr->ipr_entry);
 680                 list_for_each_entry_safe(el, el_tmp, &ipr->ipr_expr,
 681                                          el_link) {
 682                         list_del(&el->el_link);
 683                         cfs_expr_list_free(el);
 684                 }
 685                 free(ipr);
 686         }
 687 }
 688
 689 /*
 690  * returns an rc < 0 if there is an error
 691  * otherwise it returns the number IPs generated
 692  *  it also has out params: net - network name
 693  */
 694 static int lnet_expr2ips(char *nidstr, __u32 *ip_list,
 695                          struct lustre_lnet_ip2nets *ip2nets,
 696                          __u32 *net, char *err_str)
 697 {
 698         struct lustre_lnet_ip_range_descr *ipr;
 699         char *comp1, *comp2;
 700         int ip_idx = MAX_NUM_IPS - 1;
 701         int ip_range_len, rc = LUSTRE_CFG_RC_NO_ERR;
 702         __u32 net_type;
 703         char ip_range[LNET_MAX_STR_LEN];
 704
 705         /* separate the two components of the NID */
 706         comp1 = nidstr;
 707         comp2 = strchr(nidstr, '@');
 708         if (comp2 == NULL) {
 709                 snprintf(err_str,
 710                         LNET_MAX_STR_LEN,
 711                         "\"cannot parse NID %s\"", nidstr);
 712                 err_str[LNET_MAX_STR_LEN - 1] = '\0';
 713                 rc = LUSTRE_CFG_RC_BAD_PARAM;
 714                 goto out;
 715         }
 716
 717         /* length of the expected ip-range */
 718         ip_range_len = comp2 - comp1;
 719         if (ip_range_len >= LNET_MAX_STR_LEN) {
 720                 snprintf(err_str,
 721                         LNET_MAX_STR_LEN,
 722                         "\"cannot parse ip_range '%s'\"", ip_range);
 723                 err_str[LNET_MAX_STR_LEN - 1] = '\0';
 724                 rc = LUSTRE_CFG_RC_BAD_PARAM;
 725                 goto out;
 726         }
 727
 728         /* move beyond '@' */
 729         comp2++;
 730
 731         /*
 732          * if the net component is either o2ib or tcp then we expect
 733          * an IP range which could only be a single IP address.
 734          * Parse that.
 735          */
 736         *net = libcfs_str2net(comp2);
 737         net_type = LNET_NETTYP(*net);
 738         /* expression support is for o2iblnd and socklnd only */
 739         if (net_type != O2IBLND && net_type != SOCKLND)
 740                 return LUSTRE_CFG_RC_SKIP;
 741
 742         strncpy(ip_range, comp1, ip_range_len);
 743         ip_range[ip_range_len] = '\0';
 744         ip2nets->ip2nets_net.nw_id = *net;
 745
 746         rc = lustre_lnet_add_ip_range(&ip2nets->ip2nets_ip_ranges, ip_range);
 747         if (rc != LUSTRE_CFG_RC_NO_ERR) {
 748                 snprintf(err_str,
 749                         LNET_MAX_STR_LEN,
 750                         "\"cannot parse ip_range '%s'\"", ip_range);
 751                 err_str[LNET_MAX_STR_LEN - 1] = '\0';
 752                 rc = LUSTRE_CFG_RC_BAD_PARAM;
 753                 goto out;
 754         }
 755
 756         /*
 757         * Generate all the IP Addresses from the parsed range. For sanity
 758         * we allow only a max of MAX_NUM_IPS nids to be configured for
 759         * a single peer.
 760         */
 761         list_for_each_entry(ipr, &ip2nets->ip2nets_ip_ranges, ipr_entry)
 762                 ip_idx = cfs_ip_addr_range_gen(ip_list, MAX_NUM_IPS,
 763                                                 &ipr->ipr_expr);
 764
 765         if (ip_idx == MAX_NUM_IPS - 1) {
 766                 snprintf(err_str, LNET_MAX_STR_LEN,
 767                                 "no NIDs provided for configuration");
 768                 err_str[LNET_MAX_STR_LEN - 1] = '\0';
 769                 rc = LUSTRE_CFG_RC_NO_MATCH;
 770                 goto out;
 771         } else if (ip_idx == -1) {
 772                 rc = LUSTRE_CFG_RC_LAST_ELEM;
 773         } else {
 774                 rc = ip_idx;
 775         }
 776
 777 out:
 778         return rc;
 779 }
 780
 781 static int lustre_lnet_handle_peer_ip2nets(char **nid, int num_nids, bool mr,
 782                                            bool range, __u32 cmd,
 783                                            char *cmd_type, char *err_str)
 784 {
 785         __u32 net = LNET_NIDNET(LNET_NID_ANY);
 786         int ip_idx;
 787         int i, j, rc = LUSTRE_CFG_RC_NO_ERR;
 788         __u32 ip_list[MAX_NUM_IPS];
 789         struct lustre_lnet_ip2nets ip2nets;
 790         struct lnet_ioctl_peer_cfg data;
 791         lnet_nid_t peer_nid;
 792         lnet_nid_t prim_nid = LNET_NID_ANY;
 793
 794         /* initialize all lists */
 795         INIT_LIST_HEAD(&ip2nets.ip2nets_ip_ranges);
 796         INIT_LIST_HEAD(&ip2nets.ip2nets_net.network_on_rule);
 797         INIT_LIST_HEAD(&ip2nets.ip2nets_net.nw_intflist);
 798
 799         /* each nid entry is an expression */
 800         for (i = 0; i < num_nids; i++) {
 801                 if (!range && i == 0)
 802                         prim_nid = libcfs_str2nid(nid[0]);
 803                 else if (range)
 804                         prim_nid = LNET_NID_ANY;
 805
 806                 rc = lnet_expr2ips(nid[i], ip_list, &ip2nets, &net, err_str);
 807                 if (rc == LUSTRE_CFG_RC_SKIP)
 808                         continue;
 809                 else if (rc == LUSTRE_CFG_RC_LAST_ELEM)
 810                         rc = -1;
 811                 else if (rc < LUSTRE_CFG_RC_NO_ERR)
 812                         goto out;
 813
 814                 ip_idx = rc;
 815
 816                 for (j = MAX_NUM_IPS - 1; j > ip_idx; j--) {
 817                         peer_nid = LNET_MKNID(net, ip_list[j]);
 818                         if (peer_nid == LNET_NID_ANY) {
 819                                 snprintf(err_str,
 820                                         LNET_MAX_STR_LEN,
 821                                         "\"cannot parse NID\"");
 822                                 err_str[LNET_MAX_STR_LEN - 1] = '\0';
 823                                 rc = LUSTRE_CFG_RC_BAD_PARAM;
 824                                 goto out;
 825                         }
 826
 827                         LIBCFS_IOC_INIT_V2(data, prcfg_hdr);
 828                         data.prcfg_mr = mr;
 829
 830                         if (prim_nid == LNET_NID_ANY && j == MAX_NUM_IPS - 1) {
 831                                 prim_nid = peer_nid;
 832                                 peer_nid = LNET_NID_ANY;
 833                         }
 834
 835                         if (!range && num_nids > 1 && i == 0 &&
 836                             cmd == IOC_LIBCFS_DEL_PEER_NI)
 837                                 continue;
 838                         else if (!range && i == 0)
 839                                 peer_nid = LNET_NID_ANY;
 840
 841                         /*
 842                         * If prim_nid is not provided then the first nid in the
 843                         * list becomes the prim_nid. First time round the loop
 844                         * use LNET_NID_ANY for the first parameter, then use
 845                         * nid[0] as the key nid after wards
 846                         */
 847                         rc = dispatch_peer_ni_cmd(prim_nid, peer_nid, cmd,
 848                                                   &data, err_str, cmd_type);
 849                         if (rc != 0)
 850                                 goto out;
 851
 852                         /*
 853                          * we just deleted the entire peer using the
 854                          * primary_nid. So don't bother iterating through
 855                          * the rest of the nids
 856                          */
 857                         if (prim_nid != LNET_NID_ANY &&
 858                             peer_nid == LNET_NID_ANY &&
 859                             cmd == IOC_LIBCFS_DEL_PEER_NI)
 860                                 goto next_nid;
 861                 }
 862 next_nid:
 863                 lustre_lnet_clean_ip2nets(&ip2nets);
 864         }
 865
 866 out:
 867         lustre_lnet_clean_ip2nets(&ip2nets);
 868         return rc;
 869 }
 870
 871 int lustre_lnet_config_peer_nid(char *pnid, char **nid, int num_nids,
 872                                 bool mr, bool ip2nets, int seq_no,
 873                                 struct cYAML **err_rc)
 874 {
 875         int rc = LUSTRE_CFG_RC_NO_ERR;
 876         char err_str[LNET_MAX_STR_LEN] = {0};
 877         char **nid_array = NULL;
 878
 879         snprintf(err_str, sizeof(err_str), "\"Success\"");
 880
 881         if (ip2nets) {
 882                 rc = lustre_lnet_handle_peer_ip2nets(nid, num_nids, mr,
 883                                                 ip2nets, IOC_LIBCFS_ADD_PEER_NI,
 884                                                 ADD_CMD, err_str);
 885                 goto out;
 886         }
 887
 888         if (pnid) {
 889                 if (libcfs_str2nid(pnid) == LNET_NID_ANY) {
 890                         snprintf(err_str, sizeof(err_str),
 891                                  "bad primary NID: '%s'",
 892                                  pnid);
 893                         rc = LUSTRE_CFG_RC_MISSING_PARAM;
 894                         goto out;
 895                 }
 896
 897                 num_nids++;
 898
 899                 nid_array = calloc(sizeof(*nid_array), num_nids);
 900                 if (!nid_array) {
 901                         snprintf(err_str, sizeof(err_str),
 902                                         "out of memory");
 903                         rc = LUSTRE_CFG_RC_OUT_OF_MEM;
 904                         goto out;
 905                 }
 906                 nid_array[0] = pnid;
 907                 memcpy(&nid_array[1], nid, sizeof(*nid) * (num_nids - 1));
 908         }
 909
 910         rc = lustre_lnet_handle_peer_ip2nets((pnid) ? nid_array : nid,
 911                                              num_nids, mr, ip2nets,
 912                                              IOC_LIBCFS_ADD_PEER_NI, ADD_CMD,
 913                                              err_str);
 914         if (rc)
 915                 goto out;
 916
 917 out:
 918         if (nid_array)
 919                 free(nid_array);
 920
 921         cYAML_build_error(rc, seq_no, ADD_CMD, "peer_ni", err_str, err_rc);
 922         return rc;
 923 }
 924
 925 int lustre_lnet_del_peer_nid(char *pnid, char **nid, int num_nids,
 926                              bool ip2nets, int seq_no, struct cYAML **err_rc)
 927 {
 928         int rc = LUSTRE_CFG_RC_NO_ERR;
 929         char err_str[LNET_MAX_STR_LEN] = {0};
 930         char **nid_array = NULL;
 931
 932         snprintf(err_str, sizeof(err_str), "\"Success\"");
 933
 934         if (ip2nets) {
 935                 rc = lustre_lnet_handle_peer_ip2nets(nid, num_nids, false,
 936                                                 ip2nets, IOC_LIBCFS_DEL_PEER_NI,
 937                                                 DEL_CMD, err_str);
 938                 goto out;
 939         }
 940
 941         if (pnid == NULL) {
 942                 snprintf(err_str, sizeof(err_str),
 943                          "\"Primary nid is not provided\"");
 944                 rc = LUSTRE_CFG_RC_MISSING_PARAM;
 945                 goto out;
 946         } else if (!ip2nets) {
 947                 if (libcfs_str2nid(pnid) == LNET_NID_ANY) {
 948                         rc = LUSTRE_CFG_RC_BAD_PARAM;
 949                         snprintf(err_str, sizeof(err_str),
 950                                  "bad key NID: '%s'",
 951                                  pnid);
 952                         goto out;
 953                 }
 954         }
 955
 956         num_nids++;
 957         nid_array = calloc(sizeof(*nid_array), num_nids);
 958         if (!nid_array) {
 959                 snprintf(err_str, sizeof(err_str),
 960                                 "out of memory");
 961                 rc = LUSTRE_CFG_RC_OUT_OF_MEM;
 962                 goto out;
 963         }
 964         nid_array[0] = pnid;
 965         memcpy(&nid_array[1], nid, sizeof(*nid) * (num_nids - 1));
 966
 967         rc = lustre_lnet_handle_peer_ip2nets(nid_array, num_nids, false,
 968                                              ip2nets, IOC_LIBCFS_DEL_PEER_NI,
 969                                              DEL_CMD, err_str);
 970         if (rc)
 971                 goto out;
 972
 973 out:
 974         if (nid_array)
 975                 free(nid_array);
 976
 977         cYAML_build_error(rc, seq_no, DEL_CMD, "peer_ni", err_str, err_rc);
 978         return rc;
 979 }
 980
 981 int lustre_lnet_config_route(char *nw, char *gw, int hops, int prio,
 982                              int seq_no, struct cYAML **err_rc)
 983 {
 984         struct lnet_ioctl_config_data data;
 985         lnet_nid_t gateway_nid;
 986         int rc = LUSTRE_CFG_RC_NO_ERR;
 987         int ip_idx, i;
 988         __u32 rnet = LNET_NIDNET(LNET_NID_ANY);
 989         __u32 net = LNET_NIDNET(LNET_NID_ANY);
 990         char err_str[LNET_MAX_STR_LEN];
 991         __u32 ip_list[MAX_NUM_IPS];
 992         struct lustre_lnet_ip2nets ip2nets;
 993
 994         /* initialize all lists */
 995         INIT_LIST_HEAD(&ip2nets.ip2nets_ip_ranges);
 996         INIT_LIST_HEAD(&ip2nets.ip2nets_net.network_on_rule);
 997         INIT_LIST_HEAD(&ip2nets.ip2nets_net.nw_intflist);
 998
 999         snprintf(err_str, sizeof(err_str), "\"Success\"");
1000
1001         if (nw == NULL || gw == NULL) {
1002                 snprintf(err_str,
1003                          sizeof(err_str),
1004                          "\"missing mandatory parameter in route config:'%s'\"",
1005                          (nw == NULL && gw == NULL) ? "network, gateway" :
1006                          (nw == NULL) ? "network" : "gateway");
1007                 rc = LUSTRE_CFG_RC_MISSING_PARAM;
1008                 goto out;
1009         }
1010
1011         rnet = libcfs_str2net(nw);
1012         if (rnet == LNET_NIDNET(LNET_NID_ANY)) {
1013                 snprintf(err_str,
1014                          sizeof(err_str),
1015                          "\"cannot parse remote net %s\"", nw);
1016                 rc = LUSTRE_CFG_RC_BAD_PARAM;
1017                 goto out;
1018         }
1019
1020         if (hops == -1) {
1021                 /* hops is undefined */
1022                 hops = LNET_UNDEFINED_HOPS;
1023         } else if (hops < 1 || hops > 255) {
1024                 snprintf(err_str,
1025                         sizeof(err_str),
1026                         "\"invalid hop count %d, must be between 1 and 255\"",
1027                         hops);
1028                 rc = LUSTRE_CFG_RC_OUT_OF_RANGE_PARAM;
1029                 goto out;
1030         }
1031
1032         if (prio == -1) {
1033                 prio = 0;
1034         } else if (prio < 0) {
1035                 snprintf(err_str,
1036                          sizeof(err_str),
1037                         "\"invalid priority %d, must be greater than 0\"",
1038                         prio);
1039                 rc = LUSTRE_CFG_RC_OUT_OF_RANGE_PARAM;
1040                 goto out;
1041         }
1042
1043         rc = lnet_expr2ips(gw, ip_list,
1044                            &ip2nets, &net, err_str);
1045         if (rc == LUSTRE_CFG_RC_LAST_ELEM)
1046                 rc = -1;
1047         else if (rc < LUSTRE_CFG_RC_NO_ERR)
1048                 goto out;
1049
1050         ip_idx = rc;
1051
1052         LIBCFS_IOC_INIT_V2(data, cfg_hdr);
1053         data.cfg_net = rnet;
1054         data.cfg_config_u.cfg_route.rtr_hop = hops;
1055         data.cfg_config_u.cfg_route.rtr_priority = prio;
1056
1057         for (i = MAX_NUM_IPS - 1; i > ip_idx; i--) {
1058                 gateway_nid = LNET_MKNID(net, ip_list[i]);
1059                 if (gateway_nid == LNET_NID_ANY) {
1060                         snprintf(err_str,
1061                                 LNET_MAX_STR_LEN,
1062                                 "\"cannot form gateway NID: %u\"",
1063                                 ip_list[i]);
1064                         err_str[LNET_MAX_STR_LEN - 1] = '\0';
1065                         rc = LUSTRE_CFG_RC_BAD_PARAM;
1066                         goto out;
1067                 }
1068                 data.cfg_nid = gateway_nid;
1069
1070                 rc = l_ioctl(LNET_DEV_ID, IOC_LIBCFS_ADD_ROUTE, &data);
1071                 if (rc != 0) {
1072                         rc = -errno;
1073                         snprintf(err_str,
1074                                 sizeof(err_str),
1075                                 "\"cannot add route: %s\"", strerror(errno));
1076                         goto out;
1077                 }
1078         }
1079 out:
1080         cYAML_build_error(rc, seq_no, ADD_CMD, "route", err_str, err_rc);
1081
1082         return rc;
1083 }
1084
1085 int lustre_lnet_del_route(char *nw, char *gw,
1086                           int seq_no, struct cYAML **err_rc)
1087 {
1088         struct lnet_ioctl_config_data data;
1089         lnet_nid_t gateway_nid;
1090         int rc = LUSTRE_CFG_RC_NO_ERR;
1091         __u32 rnet = LNET_NIDNET(LNET_NID_ANY);
1092         __u32 net = LNET_NIDNET(LNET_NID_ANY);
1093         char err_str[LNET_MAX_STR_LEN];
1094         int ip_idx, i;
1095         __u32 ip_list[MAX_NUM_IPS];
1096         struct lustre_lnet_ip2nets ip2nets;
1097
1098         /* initialize all lists */
1099         INIT_LIST_HEAD(&ip2nets.ip2nets_ip_ranges);
1100         INIT_LIST_HEAD(&ip2nets.ip2nets_net.network_on_rule);
1101         INIT_LIST_HEAD(&ip2nets.ip2nets_net.nw_intflist);
1102
1103         snprintf(err_str, sizeof(err_str), "\"Success\"");
1104
1105         if (nw == NULL || gw == NULL) {
1106                 snprintf(err_str,
1107                          sizeof(err_str),
1108                          "\"missing mandatory parameter in route delete: '%s'\"",
1109                          (nw == NULL && gw == NULL) ? "network, gateway" :
1110                          (nw == NULL) ? "network" : "gateway");
1111                 rc = LUSTRE_CFG_RC_MISSING_PARAM;
1112                 goto out;
1113         }
1114
1115         rnet = libcfs_str2net(nw);
1116         if (rnet == LNET_NIDNET(LNET_NID_ANY)) {
1117                 snprintf(err_str,
1118                          sizeof(err_str),
1119                          "\"cannot parse remote net '%s'\"", nw);
1120                 rc = LUSTRE_CFG_RC_BAD_PARAM;
1121                 goto out;
1122         }
1123
1124         rc = lnet_expr2ips(gw, ip_list,
1125                            &ip2nets, &net, err_str);
1126         if (rc == LUSTRE_CFG_RC_LAST_ELEM)
1127                 rc = -1;
1128         else if (rc < LUSTRE_CFG_RC_NO_ERR)
1129                 goto out;
1130
1131         ip_idx = rc;
1132
1133         LIBCFS_IOC_INIT_V2(data, cfg_hdr);
1134         data.cfg_net = rnet;
1135
1136         for (i = MAX_NUM_IPS - 1; i > ip_idx; i--) {
1137                 gateway_nid = LNET_MKNID(net, ip_list[i]);
1138                 if (gateway_nid == LNET_NID_ANY) {
1139                         snprintf(err_str,
1140                                 LNET_MAX_STR_LEN,
1141                                 "\"cannot form gateway NID: %u\"",
1142                                 ip_list[i]);
1143                         err_str[LNET_MAX_STR_LEN - 1] = '\0';
1144                         rc = LUSTRE_CFG_RC_BAD_PARAM;
1145                         goto out;
1146                 }
1147                 data.cfg_nid = gateway_nid;
1148
1149                 rc = l_ioctl(LNET_DEV_ID, IOC_LIBCFS_DEL_ROUTE, &data);
1150                 if (rc != 0) {
1151                         rc = -errno;
1152                         snprintf(err_str,
1153                                 sizeof(err_str),
1154                                 "\"cannot delete route: %s\"", strerror(errno));
1155                         goto out;
1156                 }
1157         }
1158 out:
1159         cYAML_build_error(rc, seq_no, DEL_CMD, "route", err_str, err_rc);
1160
1161         return rc;
1162 }
1163
1164 int lustre_lnet_show_route(char *nw, char *gw, int hops, int prio, int detail,
1165                            int seq_no, struct cYAML **show_rc,
1166                            struct cYAML **err_rc, bool backup)
1167 {
1168         struct lnet_ioctl_config_data data;
1169         lnet_nid_t gateway_nid;
1170         int rc = LUSTRE_CFG_RC_OUT_OF_MEM;
1171         int l_errno = 0;
1172         __u32 net = LNET_NIDNET(LNET_NID_ANY);
1173         int i;
1174         struct cYAML *root = NULL, *route = NULL, *item = NULL;
1175         struct cYAML *first_seq = NULL;
1176         char err_str[LNET_MAX_STR_LEN];
1177         bool exist = false;
1178
1179         snprintf(err_str, sizeof(err_str),
1180                  "\"out of memory\"");
1181
1182         if (nw != NULL) {
1183                 net = libcfs_str2net(nw);
1184                 if (net == LNET_NIDNET(LNET_NID_ANY)) {
1185                         snprintf(err_str,
1186                                  sizeof(err_str),
1187                                  "\"cannot parse net '%s'\"", nw);
1188                         rc = LUSTRE_CFG_RC_BAD_PARAM;
1189                         goto out;
1190                 }
1191
1192         } else {
1193                 /* show all routes without filtering on net */
1194                 net = LNET_NIDNET(LNET_NID_ANY);
1195         }
1196
1197         if (gw != NULL) {
1198                 gateway_nid = libcfs_str2nid(gw);
1199                 if (gateway_nid == LNET_NID_ANY) {
1200                         snprintf(err_str,
1201                                  sizeof(err_str),
1202                                  "\"cannot parse gateway NID '%s'\"", gw);
1203                         rc = LUSTRE_CFG_RC_BAD_PARAM;
1204                         goto out;
1205                 }
1206         } else
1207                 /* show all routes with out filtering on gateway */
1208                 gateway_nid = LNET_NID_ANY;
1209
1210         if ((hops < 1 && hops != -1) || hops > 255) {
1211                 snprintf(err_str,
1212                          sizeof(err_str),
1213                          "\"invalid hop count %d, must be between 0 and 256\"",
1214                          hops);
1215                 rc = LUSTRE_CFG_RC_OUT_OF_RANGE_PARAM;
1216                 goto out;
1217         }
1218
1219         /* create struct cYAML root object */
1220         root = cYAML_create_object(NULL, NULL);
1221         if (root == NULL)
1222                 goto out;
1223
1224         route = cYAML_create_seq(root, "route");
1225         if (route == NULL)
1226                 goto out;
1227
1228         for (i = 0;; i++) {
1229                 LIBCFS_IOC_INIT_V2(data, cfg_hdr);
1230                 data.cfg_count = i;
1231
1232                 rc = l_ioctl(LNET_DEV_ID, IOC_LIBCFS_GET_ROUTE, &data);
1233                 if (rc != 0) {
1234                         l_errno = errno;
1235                         break;
1236                 }
1237
1238                 /* filter on provided data */
1239                 if (net != LNET_NIDNET(LNET_NID_ANY) &&
1240                     net != data.cfg_net)
1241                         continue;
1242
1243                 if (gateway_nid != LNET_NID_ANY &&
1244                     gateway_nid != data.cfg_nid)
1245                         continue;
1246
1247                 if (hops != -1 &&
1248                     hops != data.cfg_config_u.cfg_route.rtr_hop)
1249                         continue;
1250
1251                 if (prio != -1 &&
1252                     prio != data.cfg_config_u.cfg_route.rtr_priority)
1253                         continue;
1254
1255                 /* default rc to -1 incase we hit the goto */
1256                 rc = -1;
1257                 exist = true;
1258
1259                 item = cYAML_create_seq_item(route);
1260                 if (item == NULL)
1261                         goto out;
1262
1263                 if (first_seq == NULL)
1264                         first_seq = item;
1265
1266                 if (cYAML_create_string(item, "net",
1267                                         libcfs_net2str(data.cfg_net)) == NULL)
1268                         goto out;
1269
1270                 if (cYAML_create_string(item, "gateway",
1271                                         libcfs_nid2str(data.cfg_nid)) == NULL)
1272                         goto out;
1273
1274                 if (detail) {
1275                         if (cYAML_create_number(item, "hop",
1276                                                 (int) data.cfg_config_u.
1277                                                 cfg_route.rtr_hop) ==
1278                             NULL)
1279                                 goto out;
1280
1281                         if (cYAML_create_number(item, "priority",
1282                                                 data.cfg_config_u.
1283                                                 cfg_route.rtr_priority) == NULL)
1284                                 goto out;
1285
1286                         if (!backup &&
1287                             cYAML_create_string(item, "state",
1288                                                 data.cfg_config_u.cfg_route.
1289                                                         rtr_flags ?
1290                                                 "up" : "down") == NULL)
1291                                 goto out;
1292                 }
1293         }
1294
1295         /* print output iff show_rc is not provided */
1296         if (show_rc == NULL)
1297                 cYAML_print_tree(root);
1298
1299         if (l_errno != ENOENT) {
1300                 snprintf(err_str,
1301                          sizeof(err_str),
1302                          "\"cannot get routes: %s\"",
1303                          strerror(l_errno));
1304                 rc = -l_errno;
1305                 goto out;
1306         } else
1307                 rc = LUSTRE_CFG_RC_NO_ERR;
1308
1309         snprintf(err_str, sizeof(err_str), "\"success\"");
1310 out:
1311         if (show_rc == NULL || rc != LUSTRE_CFG_RC_NO_ERR || !exist) {
1312                 cYAML_free_tree(root);
1313         } else if (show_rc != NULL && *show_rc != NULL) {
1314                 struct cYAML *show_node;
1315                 /* find the route node, if one doesn't exist then
1316                  * insert one.  Otherwise add to the one there
1317                  */
1318                 show_node = cYAML_get_object_item(*show_rc, "route");
1319                 if (show_node != NULL && cYAML_is_sequence(show_node)) {
1320                         cYAML_insert_child(show_node, first_seq);
1321                         free(route);
1322                         free(root);
1323                 } else if (show_node == NULL) {
1324                         cYAML_insert_sibling((*show_rc)->cy_child,
1325                                                 route);
1326                         free(root);
1327                 } else {
1328                         cYAML_free_tree(root);
1329                 }
1330         } else {
1331                 *show_rc = root;
1332         }
1333
1334         cYAML_build_error(rc, seq_no, SHOW_CMD, "route", err_str, err_rc);
1335
1336         return rc;
1337 }
1338
1339 static int socket_intf_query(int request, char *intf,
1340                              struct ifreq *ifr)
1341 {
1342         int rc = 0;
1343         int sockfd;
1344
1345         if (strlen(intf) >= IFNAMSIZ || ifr == NULL)
1346                 return LUSTRE_CFG_RC_BAD_PARAM;
1347
1348         sockfd = socket(AF_INET, SOCK_DGRAM, 0);
1349         if (sockfd < 0)
1350                 return LUSTRE_CFG_RC_BAD_PARAM;
1351
1352         strcpy(ifr->ifr_name, intf);
1353         rc = ioctl(sockfd, request, ifr);
1354         if (rc != 0)
1355                 rc = LUSTRE_CFG_RC_BAD_PARAM;
1356
1357         close(sockfd);
1358
1359         return rc;
1360 }
1361
1362 static int lustre_lnet_queryip(struct lnet_dlc_intf_descr *intf, __u32 *ip)
1363 {
1364         struct ifreq ifr;
1365         int rc;
1366
1367         memset(&ifr, 0, sizeof(ifr));
1368         rc = socket_intf_query(SIOCGIFFLAGS, intf->intf_name, &ifr);
1369         if (rc != 0)
1370                 return LUSTRE_CFG_RC_BAD_PARAM;
1371
1372         if ((ifr.ifr_flags & IFF_UP) == 0)
1373                 return LUSTRE_CFG_RC_BAD_PARAM;
1374
1375         memset(&ifr, 0, sizeof(ifr));
1376         rc = socket_intf_query(SIOCGIFADDR, intf->intf_name, &ifr);
1377         if (rc != 0)
1378                 return LUSTRE_CFG_RC_BAD_PARAM;
1379
1380         *ip = ((struct sockaddr_in *)&ifr.ifr_addr)->sin_addr.s_addr;
1381         *ip = bswap_32(*ip);
1382
1383         return LUSTRE_CFG_RC_NO_ERR;
1384 }
1385
1386 /*
1387  * for each interface in the array of interfaces find the IP address of
1388  * that interface, create its nid and add it to an array of NIDs.
1389  * Stop if any of the interfaces is down
1390  */
1391 static int lustre_lnet_intf2nids(struct lnet_dlc_network_descr *nw,
1392                                  lnet_nid_t **nids, __u32 *nnids,
1393                                  char *err_str, size_t str_len)
1394 {
1395         int i = 0, count = 0, rc;
1396         struct lnet_dlc_intf_descr *intf;
1397         char val[LNET_MAX_STR_LEN];
1398         __u32 ip;
1399         int gni_num;
1400
1401
1402         if (nw == NULL || nids == NULL) {
1403                 snprintf(err_str, str_len,
1404                          "\"unexpected parameters to lustre_lnet_intf2nids()\"");
1405                 err_str[str_len - 1] = '\0';
1406                 return LUSTRE_CFG_RC_BAD_PARAM;
1407         }
1408
1409         if (LNET_NETTYP(nw->nw_id) == GNILND) {
1410                 count = 1;
1411         } else {
1412                 list_for_each_entry(intf, &nw->nw_intflist, intf_on_network)
1413                         count++;
1414         }
1415
1416         *nids = calloc(count, sizeof(lnet_nid_t));
1417         if (*nids == NULL) {
1418                 snprintf(err_str, str_len,
1419                          "\"out of memory\"");
1420                 err_str[str_len - 1] = '\0';
1421                 return LUSTRE_CFG_RC_OUT_OF_MEM;
1422         }
1423         /*
1424          * special case the GNI interface since it doesn't have an IP
1425          * address. The assumption is that there can only be one GNI
1426          * interface in the system. No interface name is provided.
1427          */
1428         if (LNET_NETTYP(nw->nw_id) == GNILND) {
1429                 rc = read_sysfs_file(gni_nid_path, "nid", val,
1430                                 1, sizeof(val));
1431                 if (rc) {
1432                         snprintf(err_str, str_len,
1433                                  "\"cannot read gni nid\"");
1434                         err_str[str_len - 1] = '\0';
1435                         goto failed;
1436                 }
1437                 gni_num = atoi(val);
1438
1439                 (*nids)[i] = LNET_MKNID(nw->nw_id, gni_num);
1440
1441                 goto out;
1442         }
1443
1444         /* look at the other interfaces */
1445         list_for_each_entry(intf, &nw->nw_intflist, intf_on_network) {
1446                 rc = lustre_lnet_queryip(intf, &ip);
1447                 if (rc != LUSTRE_CFG_RC_NO_ERR) {
1448                         snprintf(err_str, str_len,
1449                                  "\"couldn't query intf %s\"", intf->intf_name);
1450                         err_str[str_len - 1] = '\0';
1451                         goto failed;
1452                 }
1453                 (*nids)[i] = LNET_MKNID(nw->nw_id, ip);
1454                 i++;
1455         }
1456
1457 out:
1458         *nnids = count;
1459
1460         return 0;
1461
1462 failed:
1463         free(*nids);
1464         *nids = NULL;
1465         return rc;
1466 }
1467
1468 /*
1469  * called repeatedly until a match or no more ip range
1470  * What do you have?
1471  *      ip_range expression
1472  *      interface list with all the interface names.
1473  *      all the interfaces in the system.
1474  *
1475  *      try to match the ip_range expr to one of the interfaces' IPs in
1476  *      the system. If we hit a patch for an interface. Check if that
1477  *      interface name is in the list.
1478  *
1479  *      If there are more than one interface in the list, then make sure
1480  *      that the IPs for all of these interfaces match the ip ranges
1481  *      given.
1482  *
1483  *      for each interface in intf_list
1484  *              look up the intf name in ifa
1485  *              if not there then no match
1486  *              check ip obtained from ifa against a match to any of the
1487  *              ip_ranges given.
1488  *              If no match, then fail
1489  *
1490  *      The result is that all the interfaces have to match.
1491  */
1492 int lustre_lnet_match_ip_to_intf(struct ifaddrs *ifa,
1493                                  struct list_head *intf_list,
1494                                  struct list_head *ip_ranges)
1495 {
1496         int rc;
1497         __u32 ip;
1498         struct lnet_dlc_intf_descr *intf_descr, *tmp;
1499         struct ifaddrs *ifaddr = ifa;
1500         struct lustre_lnet_ip_range_descr *ip_range;
1501         int family;
1502
1503         /*
1504          * if there are no explicit interfaces, and no ip ranges, then
1505          * configure the first tcp interface we encounter.
1506          */
1507         if (list_empty(intf_list) && list_empty(ip_ranges)) {
1508                 for (ifaddr = ifa; ifaddr != NULL; ifaddr = ifaddr->ifa_next) {
1509                         if (ifaddr->ifa_addr == NULL)
1510                                 continue;
1511
1512                         if ((ifaddr->ifa_flags & IFF_UP) == 0)
1513                                 continue;
1514
1515                         family = ifaddr->ifa_addr->sa_family;
1516                         if (family == AF_INET &&
1517                             strcmp(ifaddr->ifa_name, "lo") != 0) {
1518                                 rc = lustre_lnet_add_intf_descr
1519                                         (intf_list, ifaddr->ifa_name,
1520                                         strlen(ifaddr->ifa_name));
1521
1522                                 if (rc != LUSTRE_CFG_RC_NO_ERR)
1523                                         return rc;
1524
1525                                 return LUSTRE_CFG_RC_MATCH;
1526                         }
1527                 }
1528                 return LUSTRE_CFG_RC_NO_MATCH;
1529         }
1530
1531         /*
1532          * First interface which matches an IP pattern will be used
1533          */
1534         if (list_empty(intf_list)) {
1535                 /*
1536                  * no interfaces provided in the rule, but an ip range is
1537                  * provided, so try and match an interface to the ip
1538                  * range.
1539                  */
1540                 for (ifaddr = ifa; ifaddr != NULL; ifaddr = ifaddr->ifa_next) {
1541                         if (ifaddr->ifa_addr == NULL)
1542                                 continue;
1543
1544                         if ((ifaddr->ifa_flags & IFF_UP) == 0)
1545                                 continue;
1546
1547                         family = ifaddr->ifa_addr->sa_family;
1548                         if (family == AF_INET) {
1549                                 ip = ((struct sockaddr_in *)ifaddr->ifa_addr)->
1550                                         sin_addr.s_addr;
1551
1552                                 list_for_each_entry(ip_range, ip_ranges,
1553                                                     ipr_entry) {
1554                                         rc = cfs_ip_addr_match(bswap_32(ip),
1555                                                         &ip_range->ipr_expr);
1556                                         if (!rc)
1557                                                 continue;
1558
1559                                         rc = lustre_lnet_add_intf_descr
1560                                           (intf_list, ifaddr->ifa_name,
1561                                            strlen(ifaddr->ifa_name));
1562
1563                                         if (rc != LUSTRE_CFG_RC_NO_ERR)
1564                                                 return rc;
1565                                 }
1566                         }
1567                 }
1568
1569                 if (!list_empty(intf_list))
1570                         return LUSTRE_CFG_RC_MATCH;
1571
1572                 return LUSTRE_CFG_RC_NO_MATCH;
1573         }
1574
1575         /*
1576          * If an interface is explicitly specified the ip-range might or
1577          * might not be specified. if specified the interface needs to match the
1578          * ip-range. If no ip-range then the interfaces are
1579          * automatically matched if they are all up.
1580          * If > 1 interfaces all the interfaces must match for the NI to
1581          * be configured.
1582          */
1583         list_for_each_entry_safe(intf_descr, tmp, intf_list, intf_on_network) {
1584                 for (ifaddr = ifa; ifaddr != NULL; ifaddr = ifaddr->ifa_next) {
1585                         if (ifaddr->ifa_addr == NULL)
1586                                 continue;
1587
1588                         family = ifaddr->ifa_addr->sa_family;
1589                         if (family == AF_INET &&
1590                             strcmp(intf_descr->intf_name,
1591                                    ifaddr->ifa_name) == 0)
1592                                 break;
1593                 }
1594
1595                 if (ifaddr == NULL) {
1596                         list_del(&intf_descr->intf_on_network);
1597                         free_intf_descr(intf_descr);
1598                         continue;
1599                 }
1600
1601                 if ((ifaddr->ifa_flags & IFF_UP) == 0) {
1602                         list_del(&intf_descr->intf_on_network);
1603                         free_intf_descr(intf_descr);
1604                         continue;
1605                 }
1606
1607                 ip = ((struct sockaddr_in *)ifaddr->ifa_addr)->sin_addr.s_addr;
1608
1609                 rc = 1;
1610                 list_for_each_entry(ip_range, ip_ranges, ipr_entry) {
1611                         rc = cfs_ip_addr_match(bswap_32(ip), &ip_range->ipr_expr);
1612                         if (rc)
1613                                 break;
1614                 }
1615
1616                 if (!rc) {
1617                         /* no match for this interface */
1618                         list_del(&intf_descr->intf_on_network);
1619                         free_intf_descr(intf_descr);
1620                 }
1621         }
1622
1623         return LUSTRE_CFG_RC_MATCH;
1624 }
1625
1626 static int lustre_lnet_resolve_ip2nets_rule(struct lustre_lnet_ip2nets *ip2nets,
1627                                             lnet_nid_t **nids, __u32 *nnids,
1628                                             char *err_str, size_t str_len)
1629 {
1630         struct ifaddrs *ifa;
1631         int rc = LUSTRE_CFG_RC_NO_ERR;
1632
1633         rc = getifaddrs(&ifa);
1634         if (rc < 0) {
1635                 snprintf(err_str, str_len,
1636                          "\"failed to get interface addresses: %d\"", -errno);
1637                 err_str[str_len - 1] = '\0';
1638                 return -errno;
1639         }
1640
1641         rc = lustre_lnet_match_ip_to_intf(ifa,
1642                                           &ip2nets->ip2nets_net.nw_intflist,
1643                                           &ip2nets->ip2nets_ip_ranges);
1644         if (rc != LUSTRE_CFG_RC_MATCH) {
1645                 snprintf(err_str, str_len,
1646                          "\"couldn't match ip to existing interfaces\"");
1647                 err_str[str_len - 1] = '\0';
1648                 freeifaddrs(ifa);
1649                 return rc;
1650         }
1651
1652         rc = lustre_lnet_intf2nids(&ip2nets->ip2nets_net, nids, nnids,
1653                                    err_str, sizeof(err_str));
1654         if (rc != LUSTRE_CFG_RC_NO_ERR) {
1655                 *nids = NULL;
1656                 *nnids = 0;
1657         }
1658
1659         freeifaddrs(ifa);
1660
1661         return rc;
1662 }
1663
1664 static int
1665 lustre_lnet_ioctl_config_ni(struct list_head *intf_list,
1666                             struct lnet_ioctl_config_lnd_tunables *tunables,
1667                             struct cfs_expr_list *global_cpts,
1668                             lnet_nid_t *nids, char *err_str)
1669 {
1670         char *data;
1671         struct lnet_ioctl_config_ni *conf;
1672         struct lnet_ioctl_config_lnd_tunables *tun = NULL;
1673         int rc = LUSTRE_CFG_RC_NO_ERR, i = 0;
1674         size_t len;
1675         int count;
1676         struct lnet_dlc_intf_descr *intf_descr;
1677         __u32 *cpt_array;
1678         struct cfs_expr_list *cpt_expr;
1679
1680         list_for_each_entry(intf_descr, intf_list,
1681                             intf_on_network) {
1682                 if (tunables != NULL)
1683                         len = sizeof(struct lnet_ioctl_config_ni) +
1684                               sizeof(struct lnet_ioctl_config_lnd_tunables);
1685                 else
1686                         len = sizeof(struct lnet_ioctl_config_ni);
1687
1688                 data = calloc(1, len);
1689                 if (!data)
1690                         return LUSTRE_CFG_RC_OUT_OF_MEM;
1691                 conf = (struct lnet_ioctl_config_ni*) data;
1692                 if (tunables != NULL)
1693                         tun = (struct lnet_ioctl_config_lnd_tunables*)
1694                                 conf->lic_bulk;
1695
1696                 LIBCFS_IOC_INIT_V2(*conf, lic_cfg_hdr);
1697                 conf->lic_cfg_hdr.ioc_len = len;
1698                 conf->lic_nid = nids[i];
1699                 strncpy(conf->lic_ni_intf[0], intf_descr->intf_name,
1700                         LNET_MAX_STR_LEN);
1701
1702                 if (intf_descr->cpt_expr != NULL)
1703                         cpt_expr = intf_descr->cpt_expr;
1704                 else if (global_cpts != NULL)
1705                         cpt_expr = global_cpts;
1706                 else
1707                         cpt_expr = NULL;
1708
1709                 if (cpt_expr != NULL) {
1710                         count = cfs_expr_list_values(cpt_expr,
1711                                                      LNET_MAX_SHOW_NUM_CPT,
1712                                                      &cpt_array);
1713                         if (count > 0) {
1714                                 memcpy(conf->lic_cpts, cpt_array,
1715                                        sizeof(cpt_array[0]) * LNET_MAX_STR_LEN);
1716                                 free(cpt_array);
1717                         } else {
1718                                 count = 0;
1719                         }
1720                 } else {
1721                         count = 0;
1722                 }
1723
1724                 conf->lic_ncpts = count;
1725
1726                 if (tunables != NULL)
1727                         memcpy(tun, tunables, sizeof(*tunables));
1728
1729                 rc = l_ioctl(LNET_DEV_ID, IOC_LIBCFS_ADD_LOCAL_NI, data);
1730                 if (rc < 0) {
1731                         rc = -errno;
1732                         snprintf(err_str,
1733                                  LNET_MAX_STR_LEN,
1734                                  "\"cannot add network: %s\"", strerror(errno));
1735                         free(data);
1736                         return rc;
1737                 }
1738                 free(data);
1739                 i++;
1740         }
1741
1742         return LUSTRE_CFG_RC_NO_ERR;
1743 }
1744
1745 int
1746 lustre_lnet_config_ip2nets(struct lustre_lnet_ip2nets *ip2nets,
1747                            struct lnet_ioctl_config_lnd_tunables *tunables,
1748                            struct cfs_expr_list *global_cpts,
1749                            int seq_no, struct cYAML **err_rc)
1750 {
1751         lnet_nid_t *nids = NULL;
1752         __u32 nnids = 0;
1753         int rc;
1754         char err_str[LNET_MAX_STR_LEN];
1755
1756         snprintf(err_str, sizeof(err_str), "\"success\"");
1757
1758         if (!ip2nets) {
1759                 snprintf(err_str,
1760                          sizeof(err_str),
1761                          "\"incomplete ip2nets information\"");
1762                 rc = LUSTRE_CFG_RC_BAD_PARAM;
1763                 goto out;
1764         }
1765
1766         /*
1767          * call below function to resolve the rules into a list of nids.
1768          * The memory is allocated in that function then freed here when
1769          * it's no longer needed.
1770          */
1771         rc = lustre_lnet_resolve_ip2nets_rule(ip2nets, &nids, &nnids, err_str,
1772                                               sizeof(err_str));
1773         if (rc != LUSTRE_CFG_RC_NO_ERR && rc != LUSTRE_CFG_RC_MATCH)
1774                 goto out;
1775
1776         if (list_empty(&ip2nets->ip2nets_net.nw_intflist)) {
1777                 snprintf(err_str, sizeof(err_str),
1778                          "\"no interfaces match ip2nets rules\"");
1779                 goto free_nids_out;
1780         }
1781
1782         rc = lustre_lnet_ioctl_config_ni(&ip2nets->ip2nets_net.nw_intflist,
1783                                          tunables, global_cpts, nids,
1784                                          err_str);
1785
1786 free_nids_out:
1787         free(nids);
1788
1789 out:
1790         cYAML_build_error(rc, seq_no, ADD_CMD, "ip2nets", err_str, err_rc);
1791         return rc;
1792 }
1793
1794 int lustre_lnet_config_ni(struct lnet_dlc_network_descr *nw_descr,
1795                           struct cfs_expr_list *global_cpts,
1796                           char *ip2net,
1797                           struct lnet_ioctl_config_lnd_tunables *tunables,
1798                           int seq_no, struct cYAML **err_rc)
1799 {
1800         char *data = NULL;
1801         struct lnet_ioctl_config_ni *conf;
1802         struct lnet_ioctl_config_lnd_tunables *tun = NULL;
1803         char buf[LNET_MAX_STR_LEN];
1804         int rc = LUSTRE_CFG_RC_NO_ERR;
1805         char err_str[LNET_MAX_STR_LEN];
1806         lnet_nid_t *nids = NULL;
1807         __u32 nnids = 0;
1808         size_t len;
1809         int count;
1810         struct lnet_dlc_intf_descr *intf_descr, *tmp;
1811         __u32 *cpt_array;
1812
1813         snprintf(err_str, sizeof(err_str), "\"success\"");
1814
1815         if (ip2net == NULL && (nw_descr == NULL || nw_descr->nw_id == 0 ||
1816             (list_empty(&nw_descr->nw_intflist) &&
1817              LNET_NETTYP(nw_descr->nw_id) != GNILND))) {
1818                 snprintf(err_str,
1819                          sizeof(err_str),
1820                          "\"missing mandatory parameters in NI config: '%s'\"",
1821                          (nw_descr == NULL) ? "network , interface" :
1822                          (nw_descr->nw_id == 0) ? "network" : "interface");
1823                 rc = LUSTRE_CFG_RC_MISSING_PARAM;
1824                 goto out;
1825         }
1826
1827         if (ip2net != NULL && strlen(ip2net) >= sizeof(buf)) {
1828                 snprintf(err_str,
1829                          sizeof(err_str),
1830                          "\"ip2net string too long %d\"",
1831                                 (int)strlen(ip2net));
1832                 rc = LUSTRE_CFG_RC_OUT_OF_RANGE_PARAM;
1833                 goto out;
1834         }
1835
1836         if (ip2net != NULL) {
1837                 if (tunables != NULL)
1838                         len = sizeof(struct lnet_ioctl_config_ni) +
1839                               sizeof(struct lnet_ioctl_config_lnd_tunables);
1840                 else
1841                         len = sizeof(struct lnet_ioctl_config_ni);
1842                 data = calloc(1, len);
1843                 if (!data) {
1844                         rc = LUSTRE_CFG_RC_OUT_OF_MEM;
1845                         goto out;
1846                 }
1847                 conf = (struct lnet_ioctl_config_ni*) data;
1848                 if (tunables != NULL)
1849                         tun = (struct lnet_ioctl_config_lnd_tunables*)
1850                                 (data + sizeof(*conf));
1851
1852                 LIBCFS_IOC_INIT_V2(*conf, lic_cfg_hdr);
1853                 conf->lic_cfg_hdr.ioc_len = len;
1854                 strncpy(conf->lic_legacy_ip2nets, ip2net,
1855                         LNET_MAX_STR_LEN);
1856
1857                 if (global_cpts != NULL) {
1858                         count = cfs_expr_list_values(global_cpts,
1859                                                      LNET_MAX_SHOW_NUM_CPT,
1860                                                      &cpt_array);
1861                         if (count > 0) {
1862                                 memcpy(conf->lic_cpts, cpt_array,
1863                                        sizeof(cpt_array[0]) * LNET_MAX_STR_LEN);
1864                                 free(cpt_array);
1865                         } else {
1866                                 count = 0;
1867                         }
1868                 } else {
1869                         count = 0;
1870                 }
1871
1872                 conf->lic_ncpts = count;
1873
1874                 if (tunables != NULL)
1875                         memcpy(tun, tunables, sizeof(*tunables));
1876
1877                 rc = l_ioctl(LNET_DEV_ID, IOC_LIBCFS_ADD_LOCAL_NI, data);
1878                 if (rc < 0) {
1879                         rc = -errno;
1880                         snprintf(err_str,
1881                                 sizeof(err_str),
1882                                 "\"cannot add network: %s\"", strerror(errno));
1883                         goto out;
1884                 }
1885
1886                 goto out;
1887         }
1888
1889         if (LNET_NETTYP(nw_descr->nw_id) == LOLND) {
1890                 rc = LUSTRE_CFG_RC_NO_ERR;
1891                 goto out;
1892         }
1893
1894         if (nw_descr->nw_id == LNET_NIDNET(LNET_NID_ANY)) {
1895                 snprintf(err_str,
1896                         sizeof(err_str),
1897                         "\"cannot parse net '%s'\"",
1898                         libcfs_net2str(nw_descr->nw_id));
1899                 rc = LUSTRE_CFG_RC_BAD_PARAM;
1900                 goto out;
1901         }
1902
1903         /*
1904          * special case the GNI since no interface name is expected
1905          */
1906         if (list_empty(&nw_descr->nw_intflist) &&
1907             (LNET_NETTYP(nw_descr->nw_id) != GNILND)) {
1908                 snprintf(err_str,
1909                         sizeof(err_str),
1910                         "\"no interface name provided\"");
1911                 rc = LUSTRE_CFG_RC_BAD_PARAM;
1912                 goto out;
1913         }
1914
1915         rc = lustre_lnet_intf2nids(nw_descr, &nids, &nnids,
1916                                    err_str, sizeof(err_str));
1917         if (rc != 0) {
1918                 rc = LUSTRE_CFG_RC_BAD_PARAM;
1919                 goto out;
1920         }
1921
1922         rc = lustre_lnet_ioctl_config_ni(&nw_descr->nw_intflist,
1923                                          tunables, global_cpts, nids,
1924                                          err_str);
1925
1926 out:
1927         if (nw_descr != NULL) {
1928                 list_for_each_entry_safe(intf_descr, tmp,
1929                                          &nw_descr->nw_intflist,
1930                                          intf_on_network) {
1931                         list_del(&intf_descr->intf_on_network);
1932                         free_intf_descr(intf_descr);
1933                 }
1934         }
1935
1936         cYAML_build_error(rc, seq_no, ADD_CMD, "net", err_str, err_rc);
1937
1938         if (nids)
1939                 free(nids);
1940
1941         if (data)
1942                 free(data);
1943
1944         return rc;
1945 }
1946
1947 int lustre_lnet_del_ni(struct lnet_dlc_network_descr *nw_descr,
1948                        int seq_no, struct cYAML **err_rc)
1949 {
1950         struct lnet_ioctl_config_ni data;
1951         int rc = LUSTRE_CFG_RC_NO_ERR, i;
1952         char err_str[LNET_MAX_STR_LEN];
1953         lnet_nid_t *nids = NULL;
1954         __u32 nnids = 0;
1955         struct lnet_dlc_intf_descr *intf_descr, *tmp;
1956
1957         snprintf(err_str, sizeof(err_str), "\"success\"");
1958
1959         if (nw_descr == NULL || nw_descr->nw_id == 0) {
1960                 snprintf(err_str,
1961                          sizeof(err_str),
1962                          "\"missing mandatory parameter in deleting NI: '%s'\"",
1963                          (nw_descr == NULL) ? "network , interface" :
1964                          (nw_descr->nw_id == 0) ? "network" : "interface");
1965                 rc = LUSTRE_CFG_RC_MISSING_PARAM;
1966                 goto out;
1967         }
1968
1969         if (LNET_NETTYP(nw_descr->nw_id) == LOLND)
1970                 return LUSTRE_CFG_RC_NO_ERR;
1971
1972         if (nw_descr->nw_id == LNET_NIDNET(LNET_NID_ANY)) {
1973                 snprintf(err_str,
1974                          sizeof(err_str),
1975                          "\"cannot parse net '%s'\"",
1976                          libcfs_net2str(nw_descr->nw_id));
1977                 rc = LUSTRE_CFG_RC_BAD_PARAM;
1978                 goto out;
1979         }
1980
1981         rc = lustre_lnet_intf2nids(nw_descr, &nids, &nnids,
1982                                    err_str, sizeof(err_str));
1983         if (rc != 0) {
1984                 rc = LUSTRE_CFG_RC_BAD_PARAM;
1985                 goto out;
1986         }
1987
1988         /*
1989          * no interfaces just the nw_id is specified
1990          */
1991         if (nnids == 0) {
1992                 nids = calloc(1, sizeof(*nids));
1993                 if (nids == NULL) {
1994                         snprintf(err_str, sizeof(err_str),
1995                                 "\"out of memory\"");
1996                         rc = LUSTRE_CFG_RC_OUT_OF_MEM;
1997                         goto out;
1998                 }
1999                 nids[0] = LNET_MKNID(nw_descr->nw_id, 0);
2000                 nnids = 1;
2001         }
2002
2003         for (i = 0; i < nnids; i++) {
2004                 LIBCFS_IOC_INIT_V2(data, lic_cfg_hdr);
2005                 data.lic_nid = nids[i];
2006
2007                 rc = l_ioctl(LNET_DEV_ID, IOC_LIBCFS_DEL_LOCAL_NI, &data);
2008                 if (rc < 0) {
2009                         rc = -errno;
2010                         snprintf(err_str,
2011                                 sizeof(err_str),
2012                                 "\"cannot del network: %s\"", strerror(errno));
2013                 }
2014         }
2015
2016         list_for_each_entry_safe(intf_descr, tmp, &nw_descr->nw_intflist,
2017                                  intf_on_network) {
2018                 list_del(&intf_descr->intf_on_network);
2019                 free_intf_descr(intf_descr);
2020         }
2021
2022 out:
2023         cYAML_build_error(rc, seq_no, DEL_CMD, "net", err_str, err_rc);
2024
2025         if (nids != NULL)
2026                 free(nids);
2027
2028         return rc;
2029 }
2030
2031 static bool
2032 add_msg_stats_to_yaml_blk(struct cYAML *yaml,
2033                           struct lnet_ioctl_comm_count *counts)
2034 {
2035         if (cYAML_create_number(yaml, "put",
2036                                 counts->ico_put_count)
2037                                         == NULL)
2038                 return false;
2039         if (cYAML_create_number(yaml, "get",
2040                                 counts->ico_get_count)
2041                                         == NULL)
2042                 return false;
2043         if (cYAML_create_number(yaml, "reply",
2044                                 counts->ico_reply_count)
2045                                         == NULL)
2046                 return false;
2047         if (cYAML_create_number(yaml, "ack",
2048                                 counts->ico_ack_count)
2049                                         == NULL)
2050                 return false;
2051         if (cYAML_create_number(yaml, "hello",
2052                                 counts->ico_hello_count)
2053                                         == NULL)
2054                 return false;
2055
2056         return true;
2057 }
2058
2059 static struct lnet_ioctl_comm_count *
2060 get_counts(struct lnet_ioctl_element_msg_stats *msg_stats, int idx)
2061 {
2062         if (idx == 0)
2063                 return &msg_stats->im_send_stats;
2064         if (idx == 1)
2065                 return &msg_stats->im_recv_stats;
2066         if (idx == 2)
2067                 return &msg_stats->im_drop_stats;
2068
2069         return NULL;
2070 }
2071
2072 int lustre_lnet_show_net(char *nw, int detail, int seq_no,
2073                          struct cYAML **show_rc, struct cYAML **err_rc,
2074                          bool backup)
2075 {
2076         char *buf;
2077         struct lnet_ioctl_config_ni *ni_data;
2078         struct lnet_ioctl_config_lnd_tunables *lnd;
2079         struct lnet_ioctl_element_stats *stats;
2080         struct lnet_ioctl_element_msg_stats msg_stats;
2081         struct lnet_ioctl_local_ni_hstats hstats;
2082         __u32 net = LNET_NIDNET(LNET_NID_ANY);
2083         __u32 prev_net = LNET_NIDNET(LNET_NID_ANY);
2084         int rc = LUSTRE_CFG_RC_OUT_OF_MEM, i, j;
2085         int l_errno = 0;
2086         struct cYAML *root = NULL, *tunables = NULL,
2087                 *net_node = NULL, *interfaces = NULL,
2088                 *item = NULL, *first_seq = NULL,
2089                 *tmp = NULL, *statistics = NULL,
2090                 *yhstats = NULL;
2091         int str_buf_len = LNET_MAX_SHOW_NUM_CPT * 2;
2092         char str_buf[str_buf_len];
2093         char *pos;
2094         char err_str[LNET_MAX_STR_LEN];
2095         bool exist = false, new_net = true;
2096         int net_num = 0;
2097         size_t buf_size = sizeof(*ni_data) + sizeof(*lnd) + sizeof(*stats);
2098
2099         snprintf(err_str, sizeof(err_str), "\"out of memory\"");
2100
2101         buf = calloc(1, buf_size);
2102         if (buf == NULL)
2103                 goto out;
2104
2105         ni_data = (struct lnet_ioctl_config_ni *)buf;
2106
2107         if (nw != NULL) {
2108                 net = libcfs_str2net(nw);
2109                 if (net == LNET_NIDNET(LNET_NID_ANY)) {
2110                         snprintf(err_str,
2111                                  sizeof(err_str),
2112                                  "\"cannot parse net '%s'\"", nw);
2113                         rc = LUSTRE_CFG_RC_BAD_PARAM;
2114                         goto out;
2115                 }
2116         }
2117
2118         root = cYAML_create_object(NULL, NULL);
2119         if (root == NULL)
2120                 goto out;
2121
2122         net_node = cYAML_create_seq(root, "net");
2123         if (net_node == NULL)
2124                 goto out;
2125
2126         for (i = 0;; i++) {
2127                 pos = str_buf;
2128                 __u32 rc_net;
2129
2130                 memset(buf, 0, buf_size);
2131
2132                 LIBCFS_IOC_INIT_V2(*ni_data, lic_cfg_hdr);
2133                 /*
2134                  * set the ioc_len to the proper value since INIT assumes
2135                  * size of data
2136                  */
2137                 ni_data->lic_cfg_hdr.ioc_len = buf_size;
2138                 ni_data->lic_idx = i;
2139
2140                 rc = l_ioctl(LNET_DEV_ID, IOC_LIBCFS_GET_LOCAL_NI, ni_data);
2141                 if (rc != 0) {
2142                         l_errno = errno;
2143                         break;
2144                 }
2145
2146                 rc_net = LNET_NIDNET(ni_data->lic_nid);
2147
2148                 /* filter on provided data */
2149                 if (net != LNET_NIDNET(LNET_NID_ANY) &&
2150                     net != rc_net)
2151                         continue;
2152
2153                 /* if we're backing up don't store lo */
2154                 if (backup && LNET_NETTYP(rc_net) == LOLND)
2155                         continue;
2156
2157                 /* default rc to -1 in case we hit the goto */
2158                 rc = -1;
2159                 exist = true;
2160
2161                 stats = (struct lnet_ioctl_element_stats *)ni_data->lic_bulk;
2162                 lnd = (struct lnet_ioctl_config_lnd_tunables *)
2163                         (ni_data->lic_bulk + sizeof(*stats));
2164
2165                 if (rc_net != prev_net) {
2166                         prev_net = rc_net;
2167                         new_net = true;
2168                         net_num++;
2169                 }
2170
2171                 if (new_net) {
2172                         if (!cYAML_create_string(net_node, "net type",
2173                                                  libcfs_net2str(rc_net)))
2174                                 goto out;
2175
2176                         tmp = cYAML_create_seq(net_node, "local NI(s)");
2177                         if (tmp == NULL)
2178                                 goto out;
2179                         new_net = false;
2180                 }
2181
2182                 /* create the tree to be printed. */
2183                 item = cYAML_create_seq_item(tmp);
2184                 if (item == NULL)
2185                         goto out;
2186
2187                 if (first_seq == NULL)
2188                         first_seq = item;
2189
2190                 if (!backup &&
2191                     cYAML_create_string(item, "nid",
2192                                         libcfs_nid2str(ni_data->lic_nid)) == NULL)
2193                         goto out;
2194
2195                 if (!backup &&
2196                     cYAML_create_string(item,
2197                                         "status",
2198                                         (ni_data->lic_status ==
2199                                           LNET_NI_STATUS_UP) ?
2200                                             "up" : "down") == NULL)
2201                         goto out;
2202
2203                 /* don't add interfaces unless there is at least one
2204                  * interface */
2205                 if (strlen(ni_data->lic_ni_intf[0]) > 0) {
2206                         interfaces = cYAML_create_object(item, "interfaces");
2207                         if (interfaces == NULL)
2208                                 goto out;
2209
2210                         for (j = 0; j < LNET_INTERFACES_NUM; j++) {
2211                                 if (strlen(ni_data->lic_ni_intf[j]) > 0) {
2212                                         snprintf(str_buf,
2213                                                  sizeof(str_buf), "%d", j);
2214                                         if (cYAML_create_string(interfaces,
2215                                                 str_buf,
2216                                                 ni_data->lic_ni_intf[j]) ==
2217                                                         NULL)
2218                                                 goto out;
2219                                 }
2220                         }
2221                 }
2222
2223                 if (detail) {
2224                         char *limit;
2225                         int k;
2226
2227                         if (backup)
2228                                 goto continue_without_msg_stats;
2229
2230                         statistics = cYAML_create_object(item, "statistics");
2231                         if (statistics == NULL)
2232                                 goto out;
2233
2234                         if (cYAML_create_number(statistics, "send_count",
2235                                                 stats->iel_send_count)
2236                                                         == NULL)
2237                                 goto out;
2238
2239                         if (cYAML_create_number(statistics, "recv_count",
2240                                                 stats->iel_recv_count)
2241                                                         == NULL)
2242                                 goto out;
2243
2244                         if (cYAML_create_number(statistics, "drop_count",
2245                                                 stats->iel_drop_count)
2246                                                         == NULL)
2247                                 goto out;
2248
2249                         if (detail < 2)
2250                                 goto continue_without_msg_stats;
2251
2252                         LIBCFS_IOC_INIT_V2(msg_stats, im_hdr);
2253                         msg_stats.im_hdr.ioc_len = sizeof(msg_stats);
2254                         msg_stats.im_idx = i;
2255
2256                         rc = l_ioctl(LNET_DEV_ID,
2257                                      IOC_LIBCFS_GET_LOCAL_NI_MSG_STATS,
2258                                      &msg_stats);
2259                         if (rc != 0) {
2260                                 l_errno = errno;
2261                                 goto continue_without_msg_stats;
2262                         }
2263
2264                         for (k = 0; k < 3; k++) {
2265                                 struct lnet_ioctl_comm_count *counts;
2266                                 struct cYAML *msg_statistics = NULL;
2267
2268                                 msg_statistics = cYAML_create_object(item,
2269                                                  (char *)gmsg_stat_names[k]);
2270                                 if (msg_statistics == NULL)
2271                                         goto out;
2272
2273                                 counts = get_counts(&msg_stats, k);
2274                                 if (counts == NULL)
2275                                         goto out;
2276
2277                                 if (!add_msg_stats_to_yaml_blk(msg_statistics,
2278                                                                counts))
2279                                         goto out;
2280                         }
2281
2282                         LIBCFS_IOC_INIT_V2(hstats, hlni_hdr);
2283                         hstats.hlni_nid = ni_data->lic_nid;
2284                         /* grab health stats */
2285                         rc = l_ioctl(LNET_DEV_ID,
2286                                      IOC_LIBCFS_GET_LOCAL_HSTATS,
2287                                      &hstats);
2288                         if (rc != 0) {
2289                                 l_errno = errno;
2290                                 goto continue_without_msg_stats;
2291                         }
2292                         yhstats = cYAML_create_object(item, "health stats");
2293                         if (!yhstats)
2294                                 goto out;
2295                         if (cYAML_create_number(yhstats, "health value",
2296                                                 hstats.hlni_health_value)
2297                                                         == NULL)
2298                                 goto out;
2299                         if (cYAML_create_number(yhstats, "interrupts",
2300                                                 hstats.hlni_local_interrupt)
2301                                                         == NULL)
2302                                 goto out;
2303                         if (cYAML_create_number(yhstats, "dropped",
2304                                                 hstats.hlni_local_dropped)
2305                                                         == NULL)
2306                                 goto out;
2307                         if (cYAML_create_number(yhstats, "aborted",
2308                                                 hstats.hlni_local_aborted)
2309                                                         == NULL)
2310                                 goto out;
2311                         if (cYAML_create_number(yhstats, "no route",
2312                                                 hstats.hlni_local_no_route)
2313                                                         == NULL)
2314                                 goto out;
2315                         if (cYAML_create_number(yhstats, "timeouts",
2316                                                 hstats.hlni_local_timeout)
2317                                                         == NULL)
2318                                 goto out;
2319                         if (cYAML_create_number(yhstats, "error",
2320                                                 hstats.hlni_local_error)
2321                                                         == NULL)
2322                                 goto out;
2323
2324 continue_without_msg_stats:
2325                         tunables = cYAML_create_object(item, "tunables");
2326                         if (!tunables)
2327                                 goto out;
2328
2329                         rc = lustre_net_show_tunables(tunables, &lnd->lt_cmn);
2330                         if (rc != LUSTRE_CFG_RC_NO_ERR)
2331                                 goto out;
2332
2333                         rc = lustre_ni_show_tunables(tunables, LNET_NETTYP(rc_net),
2334                                                      &lnd->lt_tun);
2335                         if (rc != LUSTRE_CFG_RC_NO_ERR &&
2336                             rc != LUSTRE_CFG_RC_NO_MATCH)
2337                                 goto out;
2338
2339                         if (rc != LUSTRE_CFG_RC_NO_MATCH) {
2340                                 tunables = cYAML_create_object(item,
2341                                                                "lnd tunables");
2342                                 if (tunables == NULL)
2343                                         goto out;
2344                         }
2345
2346                         if (!backup &&
2347                             cYAML_create_number(item, "dev cpt",
2348                                                 ni_data->lic_dev_cpt) == NULL)
2349                                 goto out;
2350
2351                         if (!backup &&
2352                             cYAML_create_number(item, "tcp bonding",
2353                                                 ni_data->lic_tcp_bonding)
2354                                                         == NULL)
2355                                 goto out;
2356
2357                         /* out put the CPTs in the format: "[x,x,x,...]" */
2358                         limit = str_buf + str_buf_len - 3;
2359                         pos += snprintf(pos, limit - pos, "\"[");
2360                         for (j = 0 ; ni_data->lic_ncpts >= 1 &&
2361                                 j < ni_data->lic_ncpts &&
2362                                 pos < limit; j++) {
2363                                 pos += snprintf(pos, limit - pos,
2364                                                 "%d", ni_data->lic_cpts[j]);
2365                                 if ((j + 1) < ni_data->lic_ncpts)
2366                                         pos += snprintf(pos, limit - pos, ",");
2367                         }
2368                         pos += snprintf(pos, 3, "]\"");
2369
2370                         if (ni_data->lic_ncpts >= 1 &&
2371                             cYAML_create_string(item, "CPT",
2372                                                 str_buf) == NULL)
2373                                 goto out;
2374                 }
2375         }
2376
2377         /* Print out the net information only if show_rc is not provided */
2378         if (show_rc == NULL)
2379                 cYAML_print_tree(root);
2380
2381         if (l_errno != ENOENT) {
2382                 snprintf(err_str,
2383                          sizeof(err_str),
2384                          "\"cannot get networks: %s\"",
2385                          strerror(l_errno));
2386                 rc = -l_errno;
2387                 goto out;
2388         } else
2389                 rc = LUSTRE_CFG_RC_NO_ERR;
2390
2391         snprintf(err_str, sizeof(err_str), "\"success\"");
2392 out:
2393         if (show_rc == NULL || rc != LUSTRE_CFG_RC_NO_ERR || !exist) {
2394                 cYAML_free_tree(root);
2395         } else if (show_rc != NULL && *show_rc != NULL) {
2396                 struct cYAML *show_node;
2397                 /* find the net node, if one doesn't exist
2398                  * then insert one.  Otherwise add to the one there
2399                  */
2400                 show_node = cYAML_get_object_item(*show_rc, "net");
2401                 if (show_node != NULL && cYAML_is_sequence(show_node)) {
2402                         cYAML_insert_child(show_node, first_seq);
2403                         free(net_node);
2404                         free(root);
2405                 } else if (show_node == NULL) {
2406                         cYAML_insert_sibling((*show_rc)->cy_child,
2407                                                 net_node);
2408                         free(root);
2409                 } else {
2410                         cYAML_free_tree(root);
2411                 }
2412         } else {
2413                 *show_rc = root;
2414         }
2415
2416         cYAML_build_error(rc, seq_no, SHOW_CMD, "net", err_str, err_rc);
2417
2418         return rc;
2419 }
2420
2421 int lustre_lnet_enable_routing(int enable, int seq_no, struct cYAML **err_rc)
2422 {
2423         struct lnet_ioctl_config_data data;
2424         int rc = LUSTRE_CFG_RC_NO_ERR;
2425         char err_str[LNET_MAX_STR_LEN];
2426
2427         snprintf(err_str, sizeof(err_str), "\"success\"");
2428
2429         LIBCFS_IOC_INIT_V2(data, cfg_hdr);
2430         data.cfg_config_u.cfg_buffers.buf_enable = (enable) ? 1 : 0;
2431
2432         rc = l_ioctl(LNET_DEV_ID, IOC_LIBCFS_CONFIG_RTR, &data);
2433         if (rc != 0) {
2434                 rc = -errno;
2435                 snprintf(err_str,
2436                          sizeof(err_str),
2437                          "\"cannot %s routing %s\"",
2438                          (enable) ? "enable" : "disable", strerror(errno));
2439                 goto out;
2440         }
2441
2442 out:
2443         cYAML_build_error(rc, seq_no,
2444                          (enable) ? ADD_CMD : DEL_CMD,
2445                          "routing", err_str, err_rc);
2446
2447         return rc;
2448 }
2449
2450 int ioctl_set_value(__u32 val, int ioc, char *name,
2451                     int seq_no, struct cYAML **err_rc)
2452 {
2453         struct lnet_ioctl_set_value data;
2454         int rc = LUSTRE_CFG_RC_NO_ERR;
2455         char err_str[LNET_MAX_STR_LEN];
2456
2457         snprintf(err_str, sizeof(err_str), "\"success\"");
2458
2459         LIBCFS_IOC_INIT_V2(data, sv_hdr);
2460         data.sv_value = val;
2461
2462         rc = l_ioctl(LNET_DEV_ID, ioc , &data);
2463         if (rc != 0) {
2464                 rc = -errno;
2465                 snprintf(err_str,
2466                          sizeof(err_str),
2467                          "\"cannot configure %s to %d: %s\"", name,
2468                          val, strerror(errno));
2469         }
2470
2471         cYAML_build_error(rc, seq_no, ADD_CMD, name, err_str, err_rc);
2472
2473         return rc;
2474 }
2475
2476 int lustre_lnet_config_hsensitivity(int sen, int seq_no, struct cYAML **err_rc)
2477 {
2478         int rc = LUSTRE_CFG_RC_NO_ERR;
2479         char err_str[LNET_MAX_STR_LEN];
2480         char val[LNET_MAX_STR_LEN];
2481
2482         snprintf(err_str, sizeof(err_str), "\"success\"");
2483
2484         snprintf(val, sizeof(val), "%d", sen);
2485
2486         rc = write_sysfs_file(modparam_path, "lnet_health_sensitivity", val,
2487                               1, strlen(val) + 1);
2488         if (rc)
2489                 snprintf(err_str, sizeof(err_str),
2490                          "\"cannot configure health sensitivity: %s\"",
2491                          strerror(errno));
2492
2493         cYAML_build_error(rc, seq_no, ADD_CMD, "health_sensitivity", err_str, err_rc);
2494
2495         return rc;
2496 }
2497
2498 int lustre_lnet_config_transaction_to(int timeout, int seq_no, struct cYAML **err_rc)
2499 {
2500         int rc = LUSTRE_CFG_RC_NO_ERR;
2501         char err_str[LNET_MAX_STR_LEN];
2502         char val[LNET_MAX_STR_LEN];
2503
2504         snprintf(err_str, sizeof(err_str), "\"success\"");
2505
2506         snprintf(val, sizeof(val), "%d", timeout);
2507
2508         rc = write_sysfs_file(modparam_path, "lnet_transaction_timeout", val,
2509                               1, strlen(val) + 1);
2510         if (rc)
2511                 snprintf(err_str, sizeof(err_str),
2512                          "\"cannot configure transaction timeout: %s\"",
2513                          strerror(errno));
2514
2515         cYAML_build_error(rc, seq_no, ADD_CMD, "transaction_timeout", err_str, err_rc);
2516
2517         return rc;
2518 }
2519
2520 int lustre_lnet_config_retry_count(int count, int seq_no, struct cYAML **err_rc)
2521 {
2522         int rc = LUSTRE_CFG_RC_NO_ERR;
2523         char err_str[LNET_MAX_STR_LEN];
2524         char val[LNET_MAX_STR_LEN];
2525
2526         snprintf(err_str, sizeof(err_str), "\"success\"");
2527
2528         snprintf(val, sizeof(val), "%d", count);
2529
2530         rc = write_sysfs_file(modparam_path, "lnet_retry_count", val,
2531                               1, strlen(val) + 1);
2532         if (rc)
2533                 snprintf(err_str, sizeof(err_str),
2534                          "\"cannot configure retry count: %s\"",
2535                          strerror(errno));
2536
2537         cYAML_build_error(rc, seq_no, ADD_CMD, "retry_count", err_str, err_rc);
2538
2539         return rc;
2540 }
2541
2542 int lustre_lnet_config_max_intf(int max, int seq_no, struct cYAML **err_rc)
2543 {
2544         int rc = LUSTRE_CFG_RC_NO_ERR;
2545         char err_str[LNET_MAX_STR_LEN];
2546         char val[LNET_MAX_STR_LEN];
2547
2548         snprintf(err_str, sizeof(err_str), "\"success\"");
2549
2550         snprintf(val, sizeof(val), "%d", max);
2551
2552         rc = write_sysfs_file(modparam_path, "lnet_interfaces_max", val,
2553                               1, strlen(val) + 1);
2554         if (rc)
2555                 snprintf(err_str, sizeof(err_str),
2556                          "\"cannot configure max interfaces: %s\"",
2557                          strerror(errno));
2558
2559         cYAML_build_error(rc, seq_no, ADD_CMD, "max_interfaces", err_str, err_rc);
2560
2561         return rc;
2562 }
2563
2564 int lustre_lnet_config_discovery(int enable, int seq_no, struct cYAML **err_rc)
2565 {
2566         int rc = LUSTRE_CFG_RC_NO_ERR;
2567         char err_str[LNET_MAX_STR_LEN];
2568         char val[LNET_MAX_STR_LEN];
2569
2570         snprintf(err_str, sizeof(err_str), "\"success\"");
2571
2572         snprintf(val, sizeof(val), "%u", (enable) ? 0 : 1);
2573
2574         rc = write_sysfs_file(modparam_path, "lnet_peer_discovery_disabled", val,
2575                               1, strlen(val) + 1);
2576         if (rc)
2577                 snprintf(err_str, sizeof(err_str),
2578                          "\"cannot configure discovery: %s\"",
2579                          strerror(errno));
2580
2581         cYAML_build_error(rc, seq_no, ADD_CMD, "discovery", err_str, err_rc);
2582
2583         return rc;
2584
2585 }
2586
2587 int lustre_lnet_config_numa_range(int range, int seq_no, struct cYAML **err_rc)
2588 {
2589         return ioctl_set_value(range, IOC_LIBCFS_SET_NUMA_RANGE,
2590                                "numa_range", seq_no, err_rc);
2591 }
2592
2593 int lustre_lnet_config_buffers(int tiny, int small, int large, int seq_no,
2594                                struct cYAML **err_rc)
2595 {
2596         struct lnet_ioctl_config_data data;
2597         int rc = LUSTRE_CFG_RC_NO_ERR;
2598         char err_str[LNET_MAX_STR_LEN];
2599
2600         snprintf(err_str, sizeof(err_str), "\"success\"");
2601
2602         /* -1 indicates to ignore changes to this field */
2603         if (tiny < -1 || small < -1 || large < -1) {
2604                 snprintf(err_str,
2605                          sizeof(err_str),
2606                          "\"tiny, small and large must be >= 0\"");
2607                 rc = LUSTRE_CFG_RC_OUT_OF_RANGE_PARAM;
2608                 goto out;
2609         }
2610
2611         LIBCFS_IOC_INIT_V2(data, cfg_hdr);
2612         data.cfg_config_u.cfg_buffers.buf_tiny = tiny;
2613         data.cfg_config_u.cfg_buffers.buf_small = small;
2614         data.cfg_config_u.cfg_buffers.buf_large = large;
2615
2616         rc = l_ioctl(LNET_DEV_ID, IOC_LIBCFS_ADD_BUF, &data);
2617         if (rc != 0) {
2618                 rc = -errno;
2619                 snprintf(err_str,
2620                          sizeof(err_str),
2621                          "\"cannot configure buffers: %s\"", strerror(errno));
2622                 goto out;
2623         }
2624
2625 out:
2626         cYAML_build_error(rc, seq_no, ADD_CMD, "buf", err_str, err_rc);
2627
2628         return rc;
2629 }
2630
2631 int lustre_lnet_show_routing(int seq_no, struct cYAML **show_rc,
2632                              struct cYAML **err_rc, bool backup)
2633 {
2634         struct lnet_ioctl_config_data *data;
2635         struct lnet_ioctl_pool_cfg *pool_cfg = NULL;
2636         int rc = LUSTRE_CFG_RC_OUT_OF_MEM;
2637         int l_errno = 0;
2638         char *buf;
2639         char *pools[LNET_NRBPOOLS] = {"tiny", "small", "large"};
2640         int buf_count[LNET_NRBPOOLS] = {0};
2641         struct cYAML *root = NULL, *pools_node = NULL,
2642                      *type_node = NULL, *item = NULL, *cpt = NULL,
2643                      *first_seq = NULL, *buffers = NULL;
2644         int i, j;
2645         char err_str[LNET_MAX_STR_LEN];
2646         char node_name[LNET_MAX_STR_LEN];
2647         bool exist = false;
2648
2649         snprintf(err_str, sizeof(err_str), "\"out of memory\"");
2650
2651         buf = calloc(1, sizeof(*data) + sizeof(*pool_cfg));
2652         if (buf == NULL)
2653                 goto out;
2654
2655         data = (struct lnet_ioctl_config_data *)buf;
2656
2657         root = cYAML_create_object(NULL, NULL);
2658         if (root == NULL)
2659                 goto out;
2660
2661         if (backup)
2662                 pools_node = cYAML_create_object(root, "routing");
2663         else
2664                 pools_node = cYAML_create_seq(root, "routing");
2665         if (pools_node == NULL)
2666                 goto out;
2667
2668         for (i = 0;; i++) {
2669                 LIBCFS_IOC_INIT_V2(*data, cfg_hdr);
2670                 data->cfg_hdr.ioc_len = sizeof(struct lnet_ioctl_config_data) +
2671                                         sizeof(struct lnet_ioctl_pool_cfg);
2672                 data->cfg_count = i;
2673
2674                 rc = l_ioctl(LNET_DEV_ID, IOC_LIBCFS_GET_BUF, data);
2675                 if (rc != 0) {
2676                         l_errno = errno;
2677                         break;
2678                 }
2679
2680                 exist = true;
2681
2682                 pool_cfg = (struct lnet_ioctl_pool_cfg *)data->cfg_bulk;
2683
2684                 if (backup)
2685                         goto calculate_buffers;
2686
2687                 snprintf(node_name, sizeof(node_name), "cpt[%d]", i);
2688                 item = cYAML_create_seq_item(pools_node);
2689                 if (item == NULL)
2690                         goto out;
2691
2692                 if (first_seq == NULL)
2693                         first_seq = item;
2694
2695                 cpt = cYAML_create_object(item, node_name);
2696                 if (cpt == NULL)
2697                         goto out;
2698
2699 calculate_buffers:
2700                 /* create the tree  and print */
2701                 for (j = 0; j < LNET_NRBPOOLS; j++) {
2702                         if (!backup) {
2703                                 type_node = cYAML_create_object(cpt, pools[j]);
2704                                 if (type_node == NULL)
2705                                         goto out;
2706                         }
2707                         if (!backup &&
2708                             cYAML_create_number(type_node, "npages",
2709                                                 pool_cfg->pl_pools[j].pl_npages)
2710                             == NULL)
2711                                 goto out;
2712                         if (!backup &&
2713                             cYAML_create_number(type_node, "nbuffers",
2714                                                 pool_cfg->pl_pools[j].
2715                                                   pl_nbuffers) == NULL)
2716                                 goto out;
2717                         if (!backup &&
2718                             cYAML_create_number(type_node, "credits",
2719                                                 pool_cfg->pl_pools[j].
2720                                                    pl_credits) == NULL)
2721                                 goto out;
2722                         if (!backup &&
2723                             cYAML_create_number(type_node, "mincredits",
2724                                                 pool_cfg->pl_pools[j].
2725                                                    pl_mincredits) == NULL)
2726                                 goto out;
2727                         /* keep track of the total count for each of the
2728                          * tiny, small and large buffers */
2729                         buf_count[j] += pool_cfg->pl_pools[j].pl_nbuffers;
2730                 }
2731         }
2732
2733         if (pool_cfg != NULL) {
2734                 if (backup) {
2735                         if (cYAML_create_number(pools_node, "enable",
2736                                                 pool_cfg->pl_routing) ==
2737                         NULL)
2738                                 goto out;
2739
2740                         goto add_buffer_section;
2741                 }
2742
2743                 item = cYAML_create_seq_item(pools_node);
2744                 if (item == NULL)
2745                         goto out;
2746
2747                 if (cYAML_create_number(item, "enable", pool_cfg->pl_routing) ==
2748                     NULL)
2749                         goto out;
2750         }
2751
2752 add_buffer_section:
2753         /* create a buffers entry in the show. This is necessary so that
2754          * if the YAML output is used to configure a node, the buffer
2755          * configuration takes hold */
2756         buffers = cYAML_create_object(root, "buffers");
2757         if (buffers == NULL)
2758                 goto out;
2759
2760         for (i = 0; i < LNET_NRBPOOLS; i++) {
2761                 if (cYAML_create_number(buffers, pools[i], buf_count[i]) == NULL)
2762                         goto out;
2763         }
2764
2765         if (show_rc == NULL)
2766                 cYAML_print_tree(root);
2767
2768         if (l_errno != ENOENT) {
2769                 snprintf(err_str,
2770                          sizeof(err_str),
2771                          "\"cannot get routing information: %s\"",
2772                          strerror(l_errno));
2773                 rc = -l_errno;
2774                 goto out;
2775         } else
2776                 rc = LUSTRE_CFG_RC_NO_ERR;
2777
2778         snprintf(err_str, sizeof(err_str), "\"success\"");
2779         rc = LUSTRE_CFG_RC_NO_ERR;
2780
2781 out:
2782         free(buf);
2783         if (show_rc == NULL || rc != LUSTRE_CFG_RC_NO_ERR || !exist) {
2784                 cYAML_free_tree(root);
2785         } else if (show_rc != NULL && *show_rc != NULL) {
2786                 struct cYAML *routing_node;
2787                 /* there should exist only one routing block and one
2788                  * buffers block. If there already exists a previous one
2789                  * then don't add another */
2790                 routing_node = cYAML_get_object_item(*show_rc, "routing");
2791                 if (routing_node == NULL) {
2792                         cYAML_insert_sibling((*show_rc)->cy_child,
2793                                                 root->cy_child);
2794                         free(root);
2795                 } else {
2796                         cYAML_free_tree(root);
2797                 }
2798         } else {
2799                 *show_rc = root;
2800         }
2801
2802         cYAML_build_error(rc, seq_no, SHOW_CMD, "routing", err_str, err_rc);
2803
2804         return rc;
2805 }
2806
2807 int lustre_lnet_show_peer(char *knid, int detail, int seq_no,
2808                           struct cYAML **show_rc, struct cYAML **err_rc,
2809                           bool backup)
2810 {
2811         /*
2812          * TODO: This function is changing in a future patch to accommodate
2813          * PEER_LIST and proper filtering on any nid of the peer
2814          */
2815         struct lnet_ioctl_peer_cfg peer_info;
2816         struct lnet_peer_ni_credit_info *lpni_cri;
2817         struct lnet_ioctl_element_stats *lpni_stats;
2818         struct lnet_ioctl_element_msg_stats *msg_stats;
2819         struct lnet_ioctl_peer_ni_hstats *hstats;
2820         lnet_nid_t *nidp;
2821         int rc = LUSTRE_CFG_RC_OUT_OF_MEM;
2822         int i, j, k;
2823         int l_errno = 0;
2824         __u32 count;
2825         __u32 size;
2826         struct cYAML *root = NULL, *peer = NULL, *peer_ni = NULL,
2827                      *first_seq = NULL, *peer_root = NULL, *tmp = NULL,
2828                      *msg_statistics = NULL, *statistics = NULL,
2829                      *yhstats;
2830         char err_str[LNET_MAX_STR_LEN];
2831         struct lnet_process_id *list = NULL;
2832         void *data = NULL;
2833         void *lpni_data;
2834
2835         snprintf(err_str, sizeof(err_str),
2836                  "\"out of memory\"");
2837
2838         /* create struct cYAML root object */
2839         root = cYAML_create_object(NULL, NULL);
2840         if (root == NULL)
2841                 goto out;
2842
2843         peer_root = cYAML_create_seq(root, "peer");
2844         if (peer_root == NULL)
2845                 goto out;
2846
2847         count = 1000;
2848         size = count * sizeof(struct lnet_process_id);
2849         list = malloc(size);
2850         if (list == NULL) {
2851                 l_errno = ENOMEM;
2852                 goto out;
2853         }
2854         if (knid != NULL) {
2855                 list[0].nid = libcfs_str2nid(knid);
2856                 count = 1;
2857         } else {
2858                 for (;;) {
2859                         memset(&peer_info, 0, sizeof(peer_info));
2860                         LIBCFS_IOC_INIT_V2(peer_info, prcfg_hdr);
2861                         peer_info.prcfg_hdr.ioc_len = sizeof(peer_info);
2862                         peer_info.prcfg_size = size;
2863                         peer_info.prcfg_bulk = list;
2864
2865                         l_errno = 0;
2866                         rc = l_ioctl(LNET_DEV_ID, IOC_LIBCFS_GET_PEER_LIST,
2867                                      &peer_info);
2868                         count = peer_info.prcfg_count;
2869                         if (rc == 0)
2870                                 break;
2871                         l_errno = errno;
2872                         if (l_errno != E2BIG) {
2873                                 snprintf(err_str,
2874                                         sizeof(err_str),
2875                                         "\"cannot get peer list: %s\"",
2876                                         strerror(l_errno));
2877                                 rc = -l_errno;
2878                                 goto out;
2879                         }
2880                         free(list);
2881                         size = peer_info.prcfg_size;
2882                         list = malloc(size);
2883                         if (list == NULL) {
2884                                 l_errno = ENOMEM;
2885                                 goto out;
2886                         }
2887                 }
2888         }
2889
2890         size = 4096;
2891         data = malloc(size);
2892         if (data == NULL) {
2893                 l_errno = ENOMEM;
2894                 goto out;
2895         }
2896         for (i = 0; i < count; i++) {
2897                 for (;;) {
2898                         memset(&peer_info, 0, sizeof(peer_info));
2899                         LIBCFS_IOC_INIT_V2(peer_info, prcfg_hdr);
2900                         peer_info.prcfg_hdr.ioc_len = sizeof(peer_info);
2901                         peer_info.prcfg_prim_nid = list[i].nid;
2902                         peer_info.prcfg_size = size;
2903                         peer_info.prcfg_bulk = data;
2904
2905                         l_errno = 0;
2906                         rc = l_ioctl(LNET_DEV_ID, IOC_LIBCFS_GET_PEER_NI,
2907                                      &peer_info);
2908                         if (rc == 0)
2909                                 break;
2910                         l_errno = errno;
2911                         if (l_errno != E2BIG) {
2912                                 snprintf(err_str,
2913                                         sizeof(err_str),
2914                                         "\"cannot get peer information: %s\"",
2915                                         strerror(l_errno));
2916                                 rc = -l_errno;
2917                                 goto out;
2918                         }
2919                         free(data);
2920                         size = peer_info.prcfg_size;
2921                         data = malloc(size);
2922                         if (data == NULL) {
2923                                 l_errno = ENOMEM;
2924                                 goto out;
2925                         }
2926                 }
2927
2928                 peer = cYAML_create_seq_item(peer_root);
2929                 if (peer == NULL)
2930                         goto out;
2931
2932                 if (first_seq == NULL)
2933                         first_seq = peer;
2934
2935                 lnet_nid_t pnid = peer_info.prcfg_prim_nid;
2936                 if (cYAML_create_string(peer, "primary nid",
2937                                         libcfs_nid2str(pnid))
2938                     == NULL)
2939                         goto out;
2940                 if (cYAML_create_string(peer, "Multi-Rail",
2941                                         peer_info.prcfg_mr ? "True" : "False")
2942                     == NULL)
2943                         goto out;
2944                 /*
2945                  * print out the state of the peer only if details are
2946                  * requested
2947                  */
2948                 if (detail >= 3) {
2949                         if (!backup &&
2950                             cYAML_create_number(peer, "peer state",
2951                                                 peer_info.prcfg_state)
2952                                 == NULL)
2953                                 goto out;
2954                 }
2955
2956                 tmp = cYAML_create_seq(peer, "peer ni");
2957                 if (tmp == NULL)
2958                         goto out;
2959
2960                 lpni_data = data;
2961                 for (j = 0; j < peer_info.prcfg_count; j++) {
2962                         nidp = lpni_data;
2963                         lpni_cri = (void*)nidp + sizeof(nidp);
2964                         lpni_stats = (void *)lpni_cri + sizeof(*lpni_cri);
2965                         msg_stats = (void *)lpni_stats + sizeof(*lpni_stats);
2966                         hstats = (void *)msg_stats + sizeof(*msg_stats);
2967                         lpni_data = (void *)hstats + sizeof(*hstats);
2968
2969                         peer_ni = cYAML_create_seq_item(tmp);
2970                         if (peer_ni == NULL)
2971                                 goto out;
2972
2973                         if (cYAML_create_string(peer_ni, "nid",
2974                                                 libcfs_nid2str(*nidp))
2975                             == NULL)
2976                                 goto out;
2977
2978                         if (backup)
2979                                 continue;
2980
2981                         if (cYAML_create_string(peer_ni, "state",
2982                                                 lpni_cri->cr_aliveness)
2983                             == NULL)
2984                                 goto out;
2985
2986                         if (!detail)
2987                                 continue;
2988
2989                         if (cYAML_create_number(peer_ni, "max_ni_tx_credits",
2990                                                 lpni_cri->cr_ni_peer_tx_credits)
2991                             == NULL)
2992                                 goto out;
2993
2994                         if (cYAML_create_number(peer_ni, "available_tx_credits",
2995                                                 lpni_cri->cr_peer_tx_credits)
2996                             == NULL)
2997                                 goto out;
2998
2999                         if (cYAML_create_number(peer_ni, "min_tx_credits",
3000                                                 lpni_cri->cr_peer_min_tx_credits)
3001                             == NULL)
3002                                 goto out;
3003
3004                         if (cYAML_create_number(peer_ni, "tx_q_num_of_buf",
3005                                                 lpni_cri->cr_peer_tx_qnob)
3006                             == NULL)
3007                                 goto out;
3008
3009                         if (cYAML_create_number(peer_ni, "available_rtr_credits",
3010                                                 lpni_cri->cr_peer_rtr_credits)
3011                             == NULL)
3012                                 goto out;
3013
3014                         if (cYAML_create_number(peer_ni, "min_rtr_credits",
3015                                                 lpni_cri->cr_peer_min_rtr_credits)
3016                             == NULL)
3017                                 goto out;
3018
3019                         if (cYAML_create_number(peer_ni, "refcount",
3020                                                 lpni_cri->cr_refcount) == NULL)
3021                                 goto out;
3022
3023                         statistics = cYAML_create_object(peer_ni, "statistics");
3024                         if (statistics == NULL)
3025                                 goto out;
3026
3027                         if (cYAML_create_number(statistics, "send_count",
3028                                                 lpni_stats->iel_send_count)
3029                             == NULL)
3030                                 goto out;
3031
3032                         if (cYAML_create_number(statistics, "recv_count",
3033                                                 lpni_stats->iel_recv_count)
3034                             == NULL)
3035                                 goto out;
3036
3037                         if (cYAML_create_number(statistics, "drop_count",
3038                                                 lpni_stats->iel_drop_count)
3039                             == NULL)
3040                                 goto out;
3041
3042                         if (detail < 2)
3043                                 continue;
3044
3045                         for (k = 0; k < 3; k++) {
3046                                 struct lnet_ioctl_comm_count *counts;
3047
3048                                 msg_statistics = cYAML_create_object(peer_ni,
3049                                                  (char *) gmsg_stat_names[k]);
3050                                 if (msg_statistics == NULL)
3051                                         goto out;
3052
3053                                 counts = get_counts(msg_stats, k);
3054                                 if (counts == NULL)
3055                                         goto out;
3056
3057                                 if (!add_msg_stats_to_yaml_blk(msg_statistics,
3058                                                                counts))
3059                                         goto out;
3060                         }
3061
3062                         yhstats = cYAML_create_object(peer_ni, "health stats");
3063                         if (!yhstats)
3064                                 goto out;
3065                         if (cYAML_create_number(yhstats, "health value",
3066                                                 hstats->hlpni_health_value)
3067                                                         == NULL)
3068                                 goto out;
3069                         if (cYAML_create_number(yhstats, "dropped",
3070                                                 hstats->hlpni_remote_dropped)
3071                                                         == NULL)
3072                                 goto out;
3073                         if (cYAML_create_number(yhstats, "timeout",
3074                                                 hstats->hlpni_remote_timeout)
3075                                                         == NULL)
3076                                 goto out;
3077                         if (cYAML_create_number(yhstats, "error",
3078                                                 hstats->hlpni_remote_error)
3079                                                         == NULL)
3080                                 goto out;
3081                         if (cYAML_create_number(yhstats, "network timeout",
3082                                                 hstats->hlpni_network_timeout)
3083                                                         == NULL)
3084                                 goto out;
3085                 }
3086         }
3087
3088         /* print output iff show_rc is not provided */
3089         if (show_rc == NULL)
3090                 cYAML_print_tree(root);
3091
3092         snprintf(err_str, sizeof(err_str), "\"success\"");
3093         rc = LUSTRE_CFG_RC_NO_ERR;
3094
3095 out:
3096         free(list);
3097         free(data);
3098         if (show_rc == NULL || rc != LUSTRE_CFG_RC_NO_ERR) {
3099                 cYAML_free_tree(root);
3100         } else if (show_rc != NULL && *show_rc != NULL) {
3101                 struct cYAML *show_node;
3102                 /* find the peer node, if one doesn't exist then
3103                  * insert one.  Otherwise add to the one there
3104                  */
3105                 show_node = cYAML_get_object_item(*show_rc,
3106                                                   "peer");
3107                 if (show_node != NULL && cYAML_is_sequence(show_node)) {
3108                         cYAML_insert_child(show_node, first_seq);
3109                         free(peer_root);
3110                         free(root);
3111                 } else if (show_node == NULL) {
3112                         cYAML_insert_sibling((*show_rc)->cy_child,
3113                                              peer_root);
3114                         free(root);
3115                 } else {
3116                         cYAML_free_tree(root);
3117                 }
3118         } else {
3119                 *show_rc = root;
3120         }
3121
3122         cYAML_build_error(rc, seq_no, SHOW_CMD, "peer", err_str,
3123                           err_rc);
3124
3125         return rc;
3126 }
3127
3128 int lustre_lnet_list_peer(int seq_no,
3129                           struct cYAML **show_rc, struct cYAML **err_rc)
3130 {
3131         struct lnet_ioctl_peer_cfg peer_info;
3132         int rc = LUSTRE_CFG_RC_OUT_OF_MEM;
3133         __u32 count;
3134         __u32 size;
3135         int i = 0;
3136         int l_errno = 0;
3137         struct cYAML *root = NULL, *list_root = NULL, *first_seq = NULL;
3138         char err_str[LNET_MAX_STR_LEN];
3139         struct lnet_process_id *list = NULL;
3140
3141         snprintf(err_str, sizeof(err_str),
3142                  "\"out of memory\"");
3143
3144         memset(&peer_info, 0, sizeof(peer_info));
3145
3146         /* create struct cYAML root object */
3147         root = cYAML_create_object(NULL, NULL);
3148         if (root == NULL)
3149                 goto out;
3150
3151         list_root = cYAML_create_seq(root, "peer list");
3152         if (list_root == NULL)
3153                 goto out;
3154
3155         count = 1000;
3156         size = count * sizeof(struct lnet_process_id);
3157         list = malloc(size);
3158         if (list == NULL) {
3159                 l_errno = ENOMEM;
3160                 goto out;
3161         }
3162         for (;;) {
3163                 LIBCFS_IOC_INIT_V2(peer_info, prcfg_hdr);
3164                 peer_info.prcfg_hdr.ioc_len = sizeof(peer_info);
3165                 peer_info.prcfg_size = size;
3166                 peer_info.prcfg_bulk = list;
3167
3168                 l_errno = 0;
3169                 rc = l_ioctl(LNET_DEV_ID, IOC_LIBCFS_GET_PEER_LIST, &peer_info);
3170                 count = peer_info.prcfg_count;
3171                 if (rc == 0)
3172                         break;
3173                 l_errno = errno;
3174                 if (l_errno != E2BIG) {
3175                         snprintf(err_str,
3176                                 sizeof(err_str),
3177                                 "\"cannot get peer list: %s\"",
3178                                 strerror(l_errno));
3179                         rc = -l_errno;
3180                         goto out;
3181                 }
3182                 free(list);
3183                 size = peer_info.prcfg_size;
3184                 list = malloc(size);
3185                 if (list == NULL) {
3186                         l_errno = ENOMEM;
3187                         goto out;
3188                 }
3189         }
3190
3191         /* count is now the actual number of ids in the list. */
3192         for (i = 0; i < count; i++) {
3193                 if (cYAML_create_string(list_root, "nid",
3194                                         libcfs_nid2str(list[i].nid))
3195                     == NULL)
3196                         goto out;
3197         }
3198
3199         /* print output iff show_rc is not provided */
3200         if (show_rc == NULL)
3201                 cYAML_print_tree(root);
3202
3203         snprintf(err_str, sizeof(err_str), "\"success\"");
3204         rc = LUSTRE_CFG_RC_NO_ERR;
3205
3206 out:
3207         if (list != NULL)
3208                 free(list);
3209         if (show_rc == NULL || rc != LUSTRE_CFG_RC_NO_ERR) {
3210                 cYAML_free_tree(root);
3211         } else if (show_rc != NULL && *show_rc != NULL) {
3212                 struct cYAML *show_node;
3213                 /* find the peer node, if one doesn't exist then
3214                  * insert one.  Otherwise add to the one there
3215                  */
3216                 show_node = cYAML_get_object_item(*show_rc,
3217                                                   "peer");
3218                 if (show_node != NULL && cYAML_is_sequence(show_node)) {
3219                         cYAML_insert_child(show_node, first_seq);
3220                         free(list_root);
3221                         free(root);
3222                 } else if (show_node == NULL) {
3223                         cYAML_insert_sibling((*show_rc)->cy_child,
3224                                              list_root);
3225                         free(root);
3226                 } else {
3227                         cYAML_free_tree(root);
3228                 }
3229         } else {
3230                 *show_rc = root;
3231         }
3232
3233         cYAML_build_error(rc, seq_no, SHOW_CMD, "peer", err_str,
3234                           err_rc);
3235
3236         return rc;
3237 }
3238
3239 static void add_to_global(struct cYAML *show_rc, struct cYAML *node,
3240                           struct cYAML *root)
3241 {
3242         struct cYAML *show_node;
3243
3244         show_node = cYAML_get_object_item(show_rc, "global");
3245         if (show_node != NULL)
3246                 cYAML_insert_sibling(show_node->cy_child,
3247                                      node->cy_child);
3248         else
3249                 cYAML_insert_sibling(show_rc->cy_child,
3250                                      node);
3251         free(root);
3252 }
3253
3254 static int build_global_yaml_entry(char *err_str, int err_len, int seq_no,
3255                                    char *name, __u32 value,
3256                                    struct cYAML **show_rc,
3257                                    struct cYAML **err_rc, int err)
3258 {
3259         int rc = LUSTRE_CFG_RC_OUT_OF_MEM;
3260         struct cYAML *root = NULL, *global = NULL;
3261
3262         if (err) {
3263                 rc = err;
3264                 goto out;
3265         }
3266
3267         root = cYAML_create_object(NULL, NULL);
3268         if (root == NULL)
3269                 goto out;
3270
3271         global = cYAML_create_object(root, "global");
3272         if (global == NULL)
3273                 goto out;
3274
3275         if (cYAML_create_number(global, name,
3276                                 value) == NULL)
3277                 goto out;
3278
3279         if (show_rc == NULL)
3280                 cYAML_print_tree(root);
3281
3282         snprintf(err_str, err_len, "\"success\"");
3283
3284         rc = LUSTRE_CFG_RC_NO_ERR;
3285
3286 out:
3287         if (show_rc == NULL || rc != LUSTRE_CFG_RC_NO_ERR) {
3288                 cYAML_free_tree(root);
3289         } else if (show_rc != NULL && *show_rc != NULL) {
3290                 add_to_global(*show_rc, global, root);
3291         } else {
3292                 *show_rc = root;
3293         }
3294
3295         cYAML_build_error(rc, seq_no, SHOW_CMD, "global", err_str, err_rc);
3296
3297         return rc;
3298 }
3299
3300 static int ioctl_show_global_values(int ioc, int seq_no, char *name,
3301                                     struct cYAML **show_rc,
3302                                     struct cYAML **err_rc)
3303 {
3304         struct lnet_ioctl_set_value data;
3305         int rc;
3306         int l_errno = 0;
3307         char err_str[LNET_MAX_STR_LEN];
3308
3309         snprintf(err_str, sizeof(err_str), "\"out of memory\"");
3310
3311         LIBCFS_IOC_INIT_V2(data, sv_hdr);
3312
3313         rc = l_ioctl(LNET_DEV_ID, ioc, &data);
3314         if (rc != 0) {
3315                 l_errno = -errno;
3316                 snprintf(err_str,
3317                          sizeof(err_str),
3318                          "\"cannot get %s: %s\"",
3319                          name, strerror(l_errno));
3320         }
3321
3322         return build_global_yaml_entry(err_str, sizeof(err_str), seq_no, name,
3323                                        data.sv_value, show_rc, err_rc, l_errno);
3324 }
3325
3326 int lustre_lnet_show_hsensitivity(int seq_no, struct cYAML **show_rc,
3327                                   struct cYAML **err_rc)
3328 {
3329         int rc = LUSTRE_CFG_RC_OUT_OF_MEM;
3330         char val[LNET_MAX_STR_LEN];
3331         int sen = -1, l_errno = 0;
3332         char err_str[LNET_MAX_STR_LEN];
3333
3334         snprintf(err_str, sizeof(err_str), "\"out of memory\"");
3335
3336         rc = read_sysfs_file(modparam_path, "lnet_health_sensitivity", val,
3337                              1, sizeof(val));
3338         if (rc) {
3339                 l_errno = -errno;
3340                 snprintf(err_str, sizeof(err_str),
3341                          "\"cannot get health sensitivity: %d\"", rc);
3342         } else {
3343                 sen = atoi(val);
3344         }
3345
3346         return build_global_yaml_entry(err_str, sizeof(err_str), seq_no,
3347                                        "health_sensitivity", sen, show_rc,
3348                                        err_rc, l_errno);
3349 }
3350
3351 int lustre_lnet_show_transaction_to(int seq_no, struct cYAML **show_rc,
3352                                     struct cYAML **err_rc)
3353 {
3354         int rc = LUSTRE_CFG_RC_OUT_OF_MEM;
3355         char val[LNET_MAX_STR_LEN];
3356         int tto = -1, l_errno = 0;
3357         char err_str[LNET_MAX_STR_LEN];
3358
3359         snprintf(err_str, sizeof(err_str), "\"out of memory\"");
3360
3361         rc = read_sysfs_file(modparam_path, "lnet_transaction_timeout", val,
3362                              1, sizeof(val));
3363         if (rc) {
3364                 l_errno = -errno;
3365                 snprintf(err_str, sizeof(err_str),
3366                          "\"cannot get transaction timeout: %d\"", rc);
3367         } else {
3368                 tto = atoi(val);
3369         }
3370
3371         return build_global_yaml_entry(err_str, sizeof(err_str), seq_no,
3372                                        "transaction_timeout", tto, show_rc,
3373                                        err_rc, l_errno);
3374 }
3375
3376 int lustre_lnet_show_retry_count(int seq_no, struct cYAML **show_rc,
3377                                  struct cYAML **err_rc)
3378 {
3379         int rc = LUSTRE_CFG_RC_OUT_OF_MEM;
3380         char val[LNET_MAX_STR_LEN];
3381         int retry_count = -1, l_errno = 0;
3382         char err_str[LNET_MAX_STR_LEN];
3383
3384         snprintf(err_str, sizeof(err_str), "\"out of memory\"");
3385
3386         rc = read_sysfs_file(modparam_path, "lnet_retry_count", val,
3387                              1, sizeof(val));
3388         if (rc) {
3389                 l_errno = -errno;
3390                 snprintf(err_str, sizeof(err_str),
3391                          "\"cannot get retry count: %d\"", rc);
3392         } else {
3393                 retry_count = atoi(val);
3394         }
3395
3396         return build_global_yaml_entry(err_str, sizeof(err_str), seq_no,
3397                                        "retry_count", retry_count, show_rc,
3398                                        err_rc, l_errno);
3399 }
3400
3401 int lustre_lnet_show_max_intf(int seq_no, struct cYAML **show_rc,
3402                               struct cYAML **err_rc)
3403 {
3404         int rc = LUSTRE_CFG_RC_OUT_OF_MEM;
3405         char val[LNET_MAX_STR_LEN];
3406         int max_intf = -1, l_errno = 0;
3407         char err_str[LNET_MAX_STR_LEN];
3408
3409         snprintf(err_str, sizeof(err_str), "\"out of memory\"");
3410
3411         rc = read_sysfs_file(modparam_path, "lnet_interfaces_max", val,
3412                              1, sizeof(val));
3413         if (rc) {
3414                 l_errno = -errno;
3415                 snprintf(err_str, sizeof(err_str),
3416                          "\"cannot get max interfaces: %d\"", rc);
3417         } else {
3418                 max_intf = atoi(val);
3419         }
3420
3421         return build_global_yaml_entry(err_str, sizeof(err_str), seq_no,
3422                                        "max_intf", max_intf, show_rc,
3423                                        err_rc, l_errno);
3424 }
3425
3426 int lustre_lnet_show_discovery(int seq_no, struct cYAML **show_rc,
3427                                struct cYAML **err_rc)
3428 {
3429         int rc = LUSTRE_CFG_RC_OUT_OF_MEM;
3430         char val[LNET_MAX_STR_LEN];
3431         int discovery = -1, l_errno = 0;
3432         char err_str[LNET_MAX_STR_LEN];
3433
3434         snprintf(err_str, sizeof(err_str), "\"out of memory\"");
3435
3436         rc = read_sysfs_file(modparam_path, "lnet_peer_discovery_disabled", val,
3437                              1, sizeof(val));
3438         if (rc) {
3439                 l_errno = -errno;
3440                 snprintf(err_str, sizeof(err_str),
3441                          "\"cannot get discovery setting: %d\"", rc);
3442         } else {
3443                 /*
3444                  * The kernel stores a discovery disabled value. User space
3445                  * shows whether discovery is enabled. So the value must be
3446                  * inverted.
3447                  */
3448                 discovery = !atoi(val);
3449         }
3450
3451         return build_global_yaml_entry(err_str, sizeof(err_str), seq_no,
3452                                        "discovery", discovery, show_rc,
3453                                        err_rc, l_errno);
3454 }
3455
3456 int lustre_lnet_show_numa_range(int seq_no, struct cYAML **show_rc,
3457                                 struct cYAML **err_rc)
3458 {
3459         return ioctl_show_global_values(IOC_LIBCFS_GET_NUMA_RANGE, seq_no,
3460                                         "numa_range", show_rc, err_rc);
3461 }
3462
3463 int lustre_lnet_show_stats(int seq_no, struct cYAML **show_rc,
3464                            struct cYAML **err_rc)
3465 {
3466         struct lnet_ioctl_lnet_stats data;
3467         int rc;
3468         int l_errno;
3469         char err_str[LNET_MAX_STR_LEN];
3470         struct cYAML *root = NULL, *stats = NULL;
3471
3472         snprintf(err_str, sizeof(err_str), "\"out of memory\"");
3473
3474         LIBCFS_IOC_INIT_V2(data, st_hdr);
3475
3476         rc = l_ioctl(LNET_DEV_ID, IOC_LIBCFS_GET_LNET_STATS, &data);
3477         if (rc != 0) {
3478                 l_errno = errno;
3479                 snprintf(err_str,
3480                          sizeof(err_str),
3481                          "\"cannot get lnet statistics: %s\"",
3482                          strerror(l_errno));
3483                 rc = -l_errno;
3484                 goto out;
3485         }
3486
3487         rc = LUSTRE_CFG_RC_OUT_OF_MEM;
3488
3489         root = cYAML_create_object(NULL, NULL);
3490         if (root == NULL)
3491                 goto out;
3492
3493         stats = cYAML_create_object(root, "statistics");
3494         if (stats == NULL)
3495                 goto out;
3496
3497         if (cYAML_create_number(stats, "msgs_alloc",
3498                                 data.st_cntrs.msgs_alloc) == NULL)
3499                 goto out;
3500
3501         if (cYAML_create_number(stats, "msgs_max",
3502                                 data.st_cntrs.msgs_max) == NULL)
3503                 goto out;
3504
3505         if (cYAML_create_number(stats, "errors",
3506                                 data.st_cntrs.errors) == NULL)
3507                 goto out;
3508
3509         if (cYAML_create_number(stats, "send_count",
3510                                 data.st_cntrs.send_count) == NULL)
3511                 goto out;
3512
3513         if (cYAML_create_number(stats, "recv_count",
3514                                 data.st_cntrs.recv_count) == NULL)
3515                 goto out;
3516
3517         if (cYAML_create_number(stats, "route_count",
3518                                 data.st_cntrs.route_count) == NULL)
3519                 goto out;
3520
3521         if (cYAML_create_number(stats, "drop_count",
3522                                 data.st_cntrs.drop_count) == NULL)
3523                 goto out;
3524
3525         if (cYAML_create_number(stats, "send_length",
3526                                 data.st_cntrs.send_length) == NULL)
3527                 goto out;
3528
3529         if (cYAML_create_number(stats, "recv_length",
3530                                 data.st_cntrs.recv_length) == NULL)
3531                 goto out;
3532
3533         if (cYAML_create_number(stats, "route_length",
3534                                 data.st_cntrs.route_length) == NULL)
3535                 goto out;
3536
3537         if (cYAML_create_number(stats, "drop_length",
3538                                 data.st_cntrs.drop_length) == NULL)
3539                 goto out;
3540
3541         if (show_rc == NULL)
3542                 cYAML_print_tree(root);
3543
3544         snprintf(err_str, sizeof(err_str), "\"success\"");
3545         rc = LUSTRE_CFG_RC_NO_ERR;
3546 out:
3547         if (show_rc == NULL || rc != LUSTRE_CFG_RC_NO_ERR) {
3548                 cYAML_free_tree(root);
3549         } else if (show_rc != NULL && *show_rc != NULL) {
3550                 cYAML_insert_sibling((*show_rc)->cy_child,
3551                                         root->cy_child);
3552                 free(root);
3553         } else {
3554                 *show_rc = root;
3555         }
3556
3557         cYAML_build_error(rc, seq_no, SHOW_CMD, "statistics", err_str, err_rc);
3558
3559         return rc;
3560 }
3561
3562 typedef int (*cmd_handler_t)(struct cYAML *tree,
3563                              struct cYAML **show_rc,
3564                              struct cYAML **err_rc);
3565
3566 static int handle_yaml_config_route(struct cYAML *tree, struct cYAML **show_rc,
3567                                     struct cYAML **err_rc)
3568 {
3569         struct cYAML *net, *gw, *hop, *prio, *seq_no;
3570
3571         net = cYAML_get_object_item(tree, "net");
3572         gw = cYAML_get_object_item(tree, "gateway");
3573         hop = cYAML_get_object_item(tree, "hop");
3574         prio = cYAML_get_object_item(tree, "priority");
3575         seq_no = cYAML_get_object_item(tree, "seq_no");
3576
3577         return lustre_lnet_config_route((net) ? net->cy_valuestring : NULL,
3578                                         (gw) ? gw->cy_valuestring : NULL,
3579                                         (hop) ? hop->cy_valueint : -1,
3580                                         (prio) ? prio->cy_valueint : -1,
3581                                         (seq_no) ? seq_no->cy_valueint : -1,
3582                                         err_rc);
3583 }
3584
3585 static void yaml_free_string_array(char **array, int num)
3586 {
3587         int i;
3588         char **sub_array = array;
3589
3590         for (i = 0; i < num; i++) {
3591                 if (*sub_array != NULL)
3592                         free(*sub_array);
3593                 sub_array++;
3594         }
3595         if (array)
3596                 free(array);
3597 }
3598
3599 /*
3600  *    interfaces:
3601  *        0: <intf_name>['['<expr>']']
3602  *        1: <intf_name>['['<expr>']']
3603  */
3604 static int yaml_copy_intf_info(struct cYAML *intf_tree,
3605                                struct lnet_dlc_network_descr *nw_descr)
3606 {
3607         struct cYAML *child = NULL;
3608         int intf_num = 0, rc = LUSTRE_CFG_RC_NO_ERR;
3609         struct lnet_dlc_intf_descr *intf_descr, *tmp;
3610
3611         if (intf_tree == NULL || nw_descr == NULL)
3612                 return LUSTRE_CFG_RC_BAD_PARAM;
3613
3614         /* now grab all the interfaces and their cpts */
3615         child = intf_tree->cy_child;
3616         while (child != NULL) {
3617                 if (child->cy_valuestring == NULL) {
3618                         child = child->cy_next;
3619                         continue;
3620                 }
3621
3622                 if (strlen(child->cy_valuestring) >= LNET_MAX_STR_LEN)
3623                         goto failed;
3624
3625                 rc = lustre_lnet_add_intf_descr(&nw_descr->nw_intflist,
3626                                                 child->cy_valuestring,
3627                                                 strlen(child->cy_valuestring));
3628                 if (rc != LUSTRE_CFG_RC_NO_ERR)
3629                         goto failed;
3630
3631                 intf_num++;
3632                 child = child->cy_next;
3633         }
3634
3635         if (intf_num == 0)
3636                 return LUSTRE_CFG_RC_MISSING_PARAM;
3637
3638         return intf_num;
3639
3640 failed:
3641         list_for_each_entry_safe(intf_descr, tmp, &nw_descr->nw_intflist,
3642                                  intf_on_network) {
3643                 list_del(&intf_descr->intf_on_network);
3644                 free_intf_descr(intf_descr);
3645         }
3646
3647         return rc;
3648 }
3649
3650 static bool
3651 yaml_extract_cmn_tunables(struct cYAML *tree,
3652                           struct lnet_ioctl_config_lnd_cmn_tunables *tunables,
3653                           struct cfs_expr_list **global_cpts)
3654 {
3655         struct cYAML *tun, *item, *smp;
3656         int rc;
3657
3658         tun = cYAML_get_object_item(tree, "tunables");
3659         if (tun != NULL) {
3660                 item = cYAML_get_object_item(tun, "peer_timeout");
3661                 if (item != NULL)
3662                         tunables->lct_peer_timeout = item->cy_valueint;
3663                 item = cYAML_get_object_item(tun, "peer_credits");
3664                 if (item != NULL)
3665                         tunables->lct_peer_tx_credits = item->cy_valueint;
3666                 item = cYAML_get_object_item(tun, "peer_buffer_credits");
3667                 if (item != NULL)
3668                         tunables->lct_peer_rtr_credits = item->cy_valueint;
3669                 item = cYAML_get_object_item(tun, "credits");
3670                 if (item != NULL)
3671                         tunables->lct_max_tx_credits = item->cy_valueint;
3672                 smp = cYAML_get_object_item(tun, "CPT");
3673                 if (smp != NULL) {
3674                         rc = cfs_expr_list_parse(smp->cy_valuestring,
3675                                                  strlen(smp->cy_valuestring),
3676                                                  0, UINT_MAX, global_cpts);
3677                         if (rc != 0)
3678                                 *global_cpts = NULL;
3679                 }
3680
3681                 return true;
3682         }
3683
3684         return false;
3685 }
3686
3687 static bool
3688 yaml_extract_tunables(struct cYAML *tree,
3689                       struct lnet_ioctl_config_lnd_tunables *tunables,
3690                       struct cfs_expr_list **global_cpts,
3691                       __u32 net_type)
3692 {
3693         bool rc;
3694
3695         rc = yaml_extract_cmn_tunables(tree, &tunables->lt_cmn,
3696                                        global_cpts);
3697
3698         if (!rc)
3699                 return rc;
3700
3701         lustre_yaml_extract_lnd_tunables(tree, net_type,
3702                                          &tunables->lt_tun);
3703
3704         return rc;
3705 }
3706
3707 /*
3708  * net:
3709  *    - net type: <net>[<NUM>]
3710   *      local NI(s):
3711  *        - nid: <ip>@<net>[<NUM>]
3712  *          status: up
3713  *          interfaces:
3714  *               0: <intf_name>['['<expr>']']
3715  *               1: <intf_name>['['<expr>']']
3716  *        tunables:
3717  *               peer_timeout: <NUM>
3718  *               peer_credits: <NUM>
3719  *               peer_buffer_credits: <NUM>
3720  *               credits: <NUM>
3721 *         lnd tunables:
3722  *               peercredits_hiw: <NUM>
3723  *               map_on_demand: <NUM>
3724  *               concurrent_sends: <NUM>
3725  *               fmr_pool_size: <NUM>
3726  *               fmr_flush_trigger: <NUM>
3727  *               fmr_cache: <NUM>
3728  *
3729  * At least one interface is required. If no interfaces are provided the
3730  * network interface can not be configured.
3731  */
3732 static int handle_yaml_config_ni(struct cYAML *tree, struct cYAML **show_rc,
3733                                  struct cYAML **err_rc)
3734 {
3735         struct cYAML *net, *intf, *seq_no, *ip2net = NULL, *local_nis = NULL,
3736                      *item = NULL;
3737         int num_entries = 0, rc;
3738         struct lnet_dlc_network_descr nw_descr;
3739         struct cfs_expr_list *global_cpts = NULL;
3740         struct lnet_ioctl_config_lnd_tunables tunables;
3741         bool found = false;
3742
3743         memset(&tunables, 0, sizeof(tunables));
3744
3745         INIT_LIST_HEAD(&nw_descr.network_on_rule);
3746         INIT_LIST_HEAD(&nw_descr.nw_intflist);
3747
3748         ip2net = cYAML_get_object_item(tree, "ip2net");
3749         net = cYAML_get_object_item(tree, "net type");
3750         if (net)
3751                 nw_descr.nw_id = libcfs_str2net(net->cy_valuestring);
3752         else
3753                 nw_descr.nw_id = LOLND;
3754
3755         /*
3756          * if neither net nor ip2nets are present, then we can not
3757          * configure the network.
3758          */
3759         if (!net && !ip2net)
3760                 return LUSTRE_CFG_RC_MISSING_PARAM;
3761
3762         local_nis = cYAML_get_object_item(tree, "local NI(s)");
3763         if (local_nis == NULL)
3764                 return LUSTRE_CFG_RC_MISSING_PARAM;
3765
3766         if (!cYAML_is_sequence(local_nis))
3767                 return LUSTRE_CFG_RC_BAD_PARAM;
3768
3769         while (cYAML_get_next_seq_item(local_nis, &item) != NULL) {
3770                 intf = cYAML_get_object_item(item, "interfaces");
3771                 if (intf == NULL)
3772                         continue;
3773                 num_entries = yaml_copy_intf_info(intf, &nw_descr);
3774                 if (num_entries <= 0) {
3775                         cYAML_build_error(num_entries, -1, "ni", "add",
3776                                         "bad interface list",
3777                                         err_rc);
3778                         return LUSTRE_CFG_RC_BAD_PARAM;
3779                 }
3780         }
3781
3782         found = yaml_extract_tunables(tree, &tunables, &global_cpts,
3783                                       LNET_NETTYP(nw_descr.nw_id));
3784         seq_no = cYAML_get_object_item(tree, "seq_no");
3785
3786         rc = lustre_lnet_config_ni(&nw_descr,
3787                                    global_cpts,
3788                                    (ip2net) ? ip2net->cy_valuestring : NULL,
3789                                    (found) ? &tunables: NULL,
3790                                    (seq_no) ? seq_no->cy_valueint : -1,
3791                                    err_rc);
3792
3793         if (global_cpts != NULL)
3794                 cfs_expr_list_free(global_cpts);
3795
3796         return rc;
3797 }
3798
3799 /*
3800  * ip2nets:
3801  *  - net-spec: <tcp|o2ib|gni>[NUM]
3802  *    interfaces:
3803  *        0: <intf name>['['<expr>']']
3804  *        1: <intf name>['['<expr>']']
3805  *    ip-range:
3806  *        0: <expr.expr.expr.expr>
3807  *        1: <expr.expr.expr.expr>
3808  */
3809 static int handle_yaml_config_ip2nets(struct cYAML *tree,
3810                                       struct cYAML **show_rc,
3811                                       struct cYAML **err_rc)
3812 {
3813         struct cYAML *net, *ip_range, *item = NULL, *intf = NULL,
3814                      *seq_no = NULL;
3815         struct lustre_lnet_ip2nets ip2nets;
3816         struct lustre_lnet_ip_range_descr *ip_range_descr = NULL,
3817                                           *tmp = NULL;
3818         int rc = LUSTRE_CFG_RC_NO_ERR;
3819         struct cfs_expr_list *global_cpts = NULL;
3820         struct cfs_expr_list *el, *el_tmp;
3821         struct lnet_ioctl_config_lnd_tunables tunables;
3822         struct lnet_dlc_intf_descr *intf_descr, *intf_tmp;
3823         bool found = false;
3824
3825         memset(&tunables, 0, sizeof(tunables));
3826
3827         /* initialize all lists */
3828         INIT_LIST_HEAD(&ip2nets.ip2nets_ip_ranges);
3829         INIT_LIST_HEAD(&ip2nets.ip2nets_net.network_on_rule);
3830         INIT_LIST_HEAD(&ip2nets.ip2nets_net.nw_intflist);
3831
3832         net = cYAML_get_object_item(tree, "net-spec");
3833         if (net == NULL)
3834                 return LUSTRE_CFG_RC_BAD_PARAM;
3835
3836         if (net != NULL && net->cy_valuestring == NULL)
3837                 return LUSTRE_CFG_RC_BAD_PARAM;
3838
3839         /* assign the network id */
3840         ip2nets.ip2nets_net.nw_id = libcfs_str2net(net->cy_valuestring);
3841         if (ip2nets.ip2nets_net.nw_id == LNET_NID_ANY)
3842                 return LUSTRE_CFG_RC_BAD_PARAM;
3843
3844         seq_no = cYAML_get_object_item(tree, "seq_no");
3845
3846         intf = cYAML_get_object_item(tree, "interfaces");
3847         if (intf != NULL) {
3848                 rc = yaml_copy_intf_info(intf, &ip2nets.ip2nets_net);
3849                 if (rc <= 0)
3850                         return LUSTRE_CFG_RC_BAD_PARAM;
3851         }
3852
3853         ip_range = cYAML_get_object_item(tree, "ip-range");
3854         if (ip_range != NULL) {
3855                 item = ip_range->cy_child;
3856                 while (item != NULL) {
3857                         if (item->cy_valuestring == NULL) {
3858                                 item = item->cy_next;
3859                                 continue;
3860                         }
3861
3862                         rc = lustre_lnet_add_ip_range(&ip2nets.ip2nets_ip_ranges,
3863                                                       item->cy_valuestring);
3864
3865                         if (rc != LUSTRE_CFG_RC_NO_ERR)
3866                                 goto out;
3867
3868                         item = item->cy_next;
3869                 }
3870         }
3871
3872         found = yaml_extract_tunables(tree, &tunables, &global_cpts,
3873                                       LNET_NETTYP(ip2nets.ip2nets_net.nw_id));
3874
3875         rc = lustre_lnet_config_ip2nets(&ip2nets,
3876                         (found) ? &tunables : NULL,
3877                         global_cpts,
3878                         (seq_no) ? seq_no->cy_valueint : -1,
3879                         err_rc);
3880
3881         /*
3882          * don't stop because there was no match. Continue processing the
3883          * rest of the rules. If non-match then nothing is configured
3884          */
3885         if (rc == LUSTRE_CFG_RC_NO_MATCH)
3886                 rc = LUSTRE_CFG_RC_NO_ERR;
3887 out:
3888         list_for_each_entry_safe(intf_descr, intf_tmp,
3889                                  &ip2nets.ip2nets_net.nw_intflist,
3890                                  intf_on_network) {
3891                 list_del(&intf_descr->intf_on_network);
3892                 free_intf_descr(intf_descr);
3893         }
3894
3895         list_for_each_entry_safe(ip_range_descr, tmp,
3896                                  &ip2nets.ip2nets_ip_ranges,
3897                                  ipr_entry) {
3898                 list_del(&ip_range_descr->ipr_entry);
3899                 list_for_each_entry_safe(el, el_tmp, &ip_range_descr->ipr_expr,
3900                                          el_link) {
3901                         list_del(&el->el_link);
3902                         cfs_expr_list_free(el);
3903                 }
3904                 free(ip_range_descr);
3905         }
3906
3907         return rc;
3908 }
3909
3910 static int handle_yaml_del_ni(struct cYAML *tree, struct cYAML **show_rc,
3911                               struct cYAML **err_rc)
3912 {
3913         struct cYAML *net = NULL, *intf = NULL, *seq_no = NULL, *item = NULL,
3914                      *local_nis = NULL;
3915         int num_entries, rc;
3916         struct lnet_dlc_network_descr nw_descr;
3917
3918         INIT_LIST_HEAD(&nw_descr.network_on_rule);
3919         INIT_LIST_HEAD(&nw_descr.nw_intflist);
3920
3921         net = cYAML_get_object_item(tree, "net type");
3922         if (net != NULL)
3923                 nw_descr.nw_id = libcfs_str2net(net->cy_valuestring);
3924
3925         local_nis = cYAML_get_object_item(tree, "local NI(s)");
3926         if (local_nis == NULL)
3927                 return LUSTRE_CFG_RC_MISSING_PARAM;
3928
3929         if (!cYAML_is_sequence(local_nis))
3930                 return LUSTRE_CFG_RC_BAD_PARAM;
3931
3932         while (cYAML_get_next_seq_item(local_nis, &item) != NULL) {
3933                 intf = cYAML_get_object_item(item, "interfaces");
3934                 if (intf == NULL)
3935                         continue;
3936                 num_entries = yaml_copy_intf_info(intf, &nw_descr);
3937                 if (num_entries <= 0) {
3938                         cYAML_build_error(num_entries, -1, "ni", "add",
3939                                         "bad interface list",
3940                                         err_rc);
3941                         return LUSTRE_CFG_RC_BAD_PARAM;
3942                 }
3943         }
3944
3945         seq_no = cYAML_get_object_item(tree, "seq_no");
3946
3947         rc = lustre_lnet_del_ni((net) ? &nw_descr : NULL,
3948                                 (seq_no) ? seq_no->cy_valueint : -1,
3949                                 err_rc);
3950
3951         return rc;
3952 }
3953
3954 static int yaml_copy_peer_nids(struct cYAML *nids_entry, char ***nidsppp,
3955                                char *prim_nid, bool del)
3956 {
3957         struct cYAML *child = NULL, *entry = NULL;
3958         char **nids = NULL;
3959         int num = 0, rc = LUSTRE_CFG_RC_NO_ERR;
3960
3961         if (cYAML_is_sequence(nids_entry)) {
3962                 while (cYAML_get_next_seq_item(nids_entry, &child)) {
3963                         entry = cYAML_get_object_item(child, "nid");
3964                         /* don't count an empty entry */
3965                         if (!entry || !entry->cy_valuestring)
3966                                 continue;
3967
3968                         if (prim_nid &&
3969                             (strcmp(entry->cy_valuestring, prim_nid)
3970                                         == 0) && del) {
3971                                 /*
3972                                  * primary nid is present in the list of
3973                                  * nids so that means we want to delete
3974                                  * the entire peer, so no need to go
3975                                  * further. Just delete the entire peer.
3976                                  */
3977                                 return 0;
3978                         }
3979
3980                         num++;
3981                 }
3982         }
3983
3984         if (num == 0)
3985                 return LUSTRE_CFG_RC_MISSING_PARAM;
3986
3987         nids = calloc(sizeof(*nids), num);
3988         if (!nids)
3989                 return LUSTRE_CFG_RC_OUT_OF_MEM;
3990
3991         /* now grab all the nids */
3992         num = 0;
3993         child = NULL;
3994         while (cYAML_get_next_seq_item(nids_entry, &child)) {
3995                 entry = cYAML_get_object_item(child, "nid");
3996                 if (!entry || !entry->cy_valuestring)
3997                         continue;
3998
3999                 nids[num] = calloc(strlen(entry->cy_valuestring) + 1, 1);
4000                 if (!nids[num]) {
4001                         rc = LUSTRE_CFG_RC_OUT_OF_MEM;
4002                         goto failed;
4003                 }
4004                 strncpy(nids[num], entry->cy_valuestring,
4005                         strlen(entry->cy_valuestring));
4006                 num++;
4007         }
4008         rc = num;
4009
4010         *nidsppp = nids;
4011         return rc;
4012
4013 failed:
4014         if (nids != NULL)
4015                 yaml_free_string_array(nids, num);
4016         *nidsppp = NULL;
4017         return rc;
4018 }
4019
4020 static int handle_yaml_config_peer(struct cYAML *tree, struct cYAML **show_rc,
4021                                    struct cYAML **err_rc)
4022 {
4023         char **nids = NULL;
4024         int num, rc;
4025         struct cYAML *seq_no, *prim_nid, *non_mr, *ip2nets, *peer_nis;
4026         char err_str[LNET_MAX_STR_LEN];
4027
4028         seq_no = cYAML_get_object_item(tree, "seq_no");
4029         prim_nid = cYAML_get_object_item(tree, "primary nid");
4030         non_mr = cYAML_get_object_item(tree, "non_mr");
4031         ip2nets = cYAML_get_object_item(tree, "ip2nets");
4032         peer_nis = cYAML_get_object_item(tree, "peer ni");
4033
4034         if (ip2nets && (prim_nid || peer_nis)) {
4035                 rc = LUSTRE_CFG_RC_BAD_PARAM;
4036                 snprintf(err_str, sizeof(err_str),
4037                          "ip2nets can not be specified along side prim_nid"
4038                          " or peer ni fields");
4039                 cYAML_build_error(rc, (seq_no) ? seq_no->cy_valueint : -1,
4040                                   ADD_CMD, "peer", err_str, err_rc);
4041                 return rc;
4042         }
4043
4044         num = yaml_copy_peer_nids((ip2nets) ? ip2nets : peer_nis, &nids,
4045                                   (prim_nid) ? prim_nid->cy_valuestring : NULL,
4046                                    false);
4047
4048         if (num < 0) {
4049                 snprintf(err_str, sizeof(err_str),
4050                          "error copying nids from YAML block");
4051                 cYAML_build_error(num, (seq_no) ? seq_no->cy_valueint : -1,
4052                                   ADD_CMD, "peer", err_str, err_rc);
4053                 return num;
4054         }
4055
4056         rc = lustre_lnet_config_peer_nid((prim_nid) ? prim_nid->cy_valuestring : NULL,
4057                                          nids, num,
4058                                          (non_mr) ? false : true,
4059                                          (ip2nets) ? true : false,
4060                                          (seq_no) ? seq_no->cy_valueint : -1,
4061                                          err_rc);
4062
4063         yaml_free_string_array(nids, num);
4064         return rc;
4065 }
4066
4067 static int handle_yaml_del_peer(struct cYAML *tree, struct cYAML **show_rc,
4068                                 struct cYAML **err_rc)
4069 {
4070         char **nids = NULL;
4071         int num, rc;
4072         struct cYAML *seq_no, *prim_nid, *ip2nets, *peer_nis;
4073         char err_str[LNET_MAX_STR_LEN];
4074
4075         seq_no = cYAML_get_object_item(tree, "seq_no");
4076         prim_nid = cYAML_get_object_item(tree, "primary nid");
4077         ip2nets = cYAML_get_object_item(tree, "ip2nets");
4078         peer_nis = cYAML_get_object_item(tree, "peer ni");
4079
4080         if (ip2nets && (prim_nid || peer_nis)) {
4081                 rc = LUSTRE_CFG_RC_BAD_PARAM;
4082                 snprintf(err_str, sizeof(err_str),
4083                          "ip2nets can not be specified along side prim_nid"
4084                          " or peer ni fields");
4085                 cYAML_build_error(rc, (seq_no) ? seq_no->cy_valueint : -1,
4086                                   DEL_CMD, "peer", err_str, err_rc);
4087                 return rc;
4088         }
4089
4090         num = yaml_copy_peer_nids((ip2nets) ? ip2nets : peer_nis , &nids,
4091                                   (prim_nid) ? prim_nid->cy_valuestring : NULL,
4092                                   true);
4093         if (num < 0) {
4094                 snprintf(err_str, sizeof(err_str),
4095                          "error copying nids from YAML block");
4096                 cYAML_build_error(num, (seq_no) ? seq_no->cy_valueint : -1,
4097                                   ADD_CMD, "peer", err_str, err_rc);
4098                 return num;
4099         }
4100
4101         rc = lustre_lnet_del_peer_nid((prim_nid) ? prim_nid->cy_valuestring : NULL,
4102                                       nids, num, (ip2nets) ? true : false,
4103                                       (seq_no) ? seq_no->cy_valueint : -1,
4104                                       err_rc);
4105
4106         yaml_free_string_array(nids, num);
4107         return rc;
4108 }
4109
4110 static int handle_yaml_config_buffers(struct cYAML *tree,
4111                                       struct cYAML **show_rc,
4112                                       struct cYAML **err_rc)
4113 {
4114         int rc;
4115         struct cYAML *tiny, *small, *large, *seq_no;
4116
4117         tiny = cYAML_get_object_item(tree, "tiny");
4118         small = cYAML_get_object_item(tree, "small");
4119         large = cYAML_get_object_item(tree, "large");
4120         seq_no = cYAML_get_object_item(tree, "seq_no");
4121
4122         rc = lustre_lnet_config_buffers((tiny) ? tiny->cy_valueint : -1,
4123                                         (small) ? small->cy_valueint : -1,
4124                                         (large) ? large->cy_valueint : -1,
4125                                         (seq_no) ? seq_no->cy_valueint : -1,
4126                                         err_rc);
4127
4128         return rc;
4129 }
4130
4131 static int handle_yaml_config_routing(struct cYAML *tree,
4132                                       struct cYAML **show_rc,
4133                                       struct cYAML **err_rc)
4134 {
4135         int rc = LUSTRE_CFG_RC_NO_ERR;
4136         struct cYAML *seq_no, *enable;
4137
4138         seq_no = cYAML_get_object_item(tree, "seq_no");
4139         enable = cYAML_get_object_item(tree, "enable");
4140
4141         if (enable) {
4142                 rc = lustre_lnet_enable_routing(enable->cy_valueint,
4143                                                 (seq_no) ?
4144                                                     seq_no->cy_valueint : -1,
4145                                                 err_rc);
4146         }
4147
4148         return rc;
4149 }
4150
4151 static int handle_yaml_del_route(struct cYAML *tree, struct cYAML **show_rc,
4152                                  struct cYAML **err_rc)
4153 {
4154         struct cYAML *net;
4155         struct cYAML *gw;
4156         struct cYAML *seq_no;
4157
4158         net = cYAML_get_object_item(tree, "net");
4159         gw = cYAML_get_object_item(tree, "gateway");
4160         seq_no = cYAML_get_object_item(tree, "seq_no");
4161
4162         return lustre_lnet_del_route((net) ? net->cy_valuestring : NULL,
4163                                      (gw) ? gw->cy_valuestring : NULL,
4164                                      (seq_no) ? seq_no->cy_valueint : -1,
4165                                      err_rc);
4166 }
4167
4168 static int handle_yaml_del_routing(struct cYAML *tree, struct cYAML **show_rc,
4169                                    struct cYAML **err_rc)
4170 {
4171         struct cYAML *seq_no;
4172
4173         seq_no = cYAML_get_object_item(tree, "seq_no");
4174
4175         return lustre_lnet_enable_routing(0, (seq_no) ?
4176                                                 seq_no->cy_valueint : -1,
4177                                         err_rc);
4178 }
4179
4180 static int handle_yaml_show_route(struct cYAML *tree, struct cYAML **show_rc,
4181                                   struct cYAML **err_rc)
4182 {
4183         struct cYAML *net;
4184         struct cYAML *gw;
4185         struct cYAML *hop;
4186         struct cYAML *prio;
4187         struct cYAML *detail;
4188         struct cYAML *seq_no;
4189
4190         net = cYAML_get_object_item(tree, "net");
4191         gw = cYAML_get_object_item(tree, "gateway");
4192         hop = cYAML_get_object_item(tree, "hop");
4193         prio = cYAML_get_object_item(tree, "priority");
4194         detail = cYAML_get_object_item(tree, "detail");
4195         seq_no = cYAML_get_object_item(tree, "seq_no");
4196
4197         return lustre_lnet_show_route((net) ? net->cy_valuestring : NULL,
4198                                       (gw) ? gw->cy_valuestring : NULL,
4199                                       (hop) ? hop->cy_valueint : -1,
4200                                       (prio) ? prio->cy_valueint : -1,
4201                                       (detail) ? detail->cy_valueint : 0,
4202                                       (seq_no) ? seq_no->cy_valueint : -1,
4203                                       show_rc, err_rc, false);
4204 }
4205
4206 static int handle_yaml_show_net(struct cYAML *tree, struct cYAML **show_rc,
4207                                 struct cYAML **err_rc)
4208 {
4209         struct cYAML *net, *detail, *seq_no;
4210
4211         net = cYAML_get_object_item(tree, "net");
4212         detail = cYAML_get_object_item(tree, "detail");
4213         seq_no = cYAML_get_object_item(tree, "seq_no");
4214
4215         return lustre_lnet_show_net((net) ? net->cy_valuestring : NULL,
4216                                     (detail) ? detail->cy_valueint : 0,
4217                                     (seq_no) ? seq_no->cy_valueint : -1,
4218                                     show_rc, err_rc, false);
4219 }
4220
4221 static int handle_yaml_show_routing(struct cYAML *tree, struct cYAML **show_rc,
4222                                     struct cYAML **err_rc)
4223 {
4224         struct cYAML *seq_no;
4225
4226         seq_no = cYAML_get_object_item(tree, "seq_no");
4227
4228         return lustre_lnet_show_routing((seq_no) ? seq_no->cy_valueint : -1,
4229                                         show_rc, err_rc, false);
4230 }
4231
4232 static int handle_yaml_show_peers(struct cYAML *tree, struct cYAML **show_rc,
4233                                   struct cYAML **err_rc)
4234 {
4235         struct cYAML *seq_no, *nid, *detail;
4236
4237         seq_no = cYAML_get_object_item(tree, "seq_no");
4238         detail = cYAML_get_object_item(tree, "detail");
4239         nid = cYAML_get_object_item(tree, "nid");
4240
4241         return lustre_lnet_show_peer((nid) ? nid->cy_valuestring : NULL,
4242                                      (detail) ? detail->cy_valueint : 0,
4243                                      (seq_no) ? seq_no->cy_valueint : -1,
4244                                      show_rc, err_rc, false);
4245 }
4246
4247 static int handle_yaml_show_stats(struct cYAML *tree, struct cYAML **show_rc,
4248                                   struct cYAML **err_rc)
4249 {
4250         struct cYAML *seq_no;
4251
4252         seq_no = cYAML_get_object_item(tree, "seq_no");
4253
4254         return lustre_lnet_show_stats((seq_no) ? seq_no->cy_valueint : -1,
4255                                       show_rc, err_rc);
4256 }
4257
4258 static int handle_yaml_config_numa(struct cYAML *tree, struct cYAML **show_rc,
4259                                   struct cYAML **err_rc)
4260 {
4261         struct cYAML *seq_no, *range;
4262
4263         seq_no = cYAML_get_object_item(tree, "seq_no");
4264         range = cYAML_get_object_item(tree, "range");
4265
4266         return lustre_lnet_config_numa_range(range ? range->cy_valueint : -1,
4267                                              seq_no ? seq_no->cy_valueint : -1,
4268                                              err_rc);
4269 }
4270
4271 static int handle_yaml_del_numa(struct cYAML *tree, struct cYAML **show_rc,
4272                                struct cYAML **err_rc)
4273 {
4274         struct cYAML *seq_no;
4275
4276         seq_no = cYAML_get_object_item(tree, "seq_no");
4277
4278         return lustre_lnet_config_numa_range(0, seq_no ? seq_no->cy_valueint : -1,
4279                                              err_rc);
4280 }
4281
4282 static int handle_yaml_show_numa(struct cYAML *tree, struct cYAML **show_rc,
4283                                 struct cYAML **err_rc)
4284 {
4285         struct cYAML *seq_no;
4286
4287         seq_no = cYAML_get_object_item(tree, "seq_no");
4288
4289         return lustre_lnet_show_numa_range(seq_no ? seq_no->cy_valueint : -1,
4290                                            show_rc, err_rc);
4291 }
4292
4293 static int handle_yaml_config_global_settings(struct cYAML *tree,
4294                                               struct cYAML **show_rc,
4295                                               struct cYAML **err_rc)
4296 {
4297         struct cYAML *max_intf, *numa, *discovery, *retry, *tto, *seq_no,
4298                      *sen;
4299         int rc = 0;
4300
4301         seq_no = cYAML_get_object_item(tree, "seq_no");
4302         max_intf = cYAML_get_object_item(tree, "max_intf");
4303         if (max_intf)
4304                 rc = lustre_lnet_config_max_intf(max_intf->cy_valueint,
4305                                                  seq_no ? seq_no->cy_valueint
4306                                                         : -1,
4307                                                  err_rc);
4308
4309         numa = cYAML_get_object_item(tree, "numa_range");
4310         if (numa)
4311                 rc = lustre_lnet_config_numa_range(numa->cy_valueint,
4312                                                    seq_no ? seq_no->cy_valueint
4313                                                         : -1,
4314                                                    err_rc);
4315
4316         discovery = cYAML_get_object_item(tree, "discovery");
4317         if (discovery)
4318                 rc = lustre_lnet_config_discovery(discovery->cy_valueint,
4319                                                   seq_no ? seq_no->cy_valueint
4320                                                         : -1,
4321                                                   err_rc);
4322
4323         retry = cYAML_get_object_item(tree, "retry_count");
4324         if (retry)
4325                 rc = lustre_lnet_config_retry_count(retry->cy_valueint,
4326                                                     seq_no ? seq_no->cy_valueint
4327                                                         : -1,
4328                                                     err_rc);
4329
4330         tto = cYAML_get_object_item(tree, "transaction_timeout");
4331         if (tto)
4332                 rc = lustre_lnet_config_transaction_to(tto->cy_valueint,
4333                                                        seq_no ? seq_no->cy_valueint
4334                                                                 : -1,
4335                                                        err_rc);
4336
4337         sen = cYAML_get_object_item(tree, "health_sensitivity");
4338         if (sen)
4339                 rc = lustre_lnet_config_hsensitivity(sen->cy_valueint,
4340                                                      seq_no ? seq_no->cy_valueint
4341                                                         : -1,
4342                                                      err_rc);
4343
4344         return rc;
4345 }
4346
4347 static int handle_yaml_del_global_settings(struct cYAML *tree,
4348                                            struct cYAML **show_rc,
4349                                            struct cYAML **err_rc)
4350 {
4351         struct cYAML *max_intf, *numa, *discovery, *seq_no;
4352         int rc = 0;
4353
4354         seq_no = cYAML_get_object_item(tree, "seq_no");
4355         max_intf = cYAML_get_object_item(tree, "max_intf");
4356         if (max_intf)
4357                 rc = lustre_lnet_config_max_intf(LNET_INTERFACES_MAX_DEFAULT,
4358                                                  seq_no ? seq_no->cy_valueint
4359                                                         : -1,
4360                                                  err_rc);
4361
4362         numa = cYAML_get_object_item(tree, "numa_range");
4363         if (numa)
4364                 rc = lustre_lnet_config_numa_range(0,
4365                                                    seq_no ? seq_no->cy_valueint
4366                                                         : -1,
4367                                                    err_rc);
4368
4369         /* peer discovery is enabled by default */
4370         discovery = cYAML_get_object_item(tree, "discovery");
4371         if (discovery)
4372                 rc = lustre_lnet_config_discovery(1,
4373                                                   seq_no ? seq_no->cy_valueint
4374                                                         : -1,
4375                                                   err_rc);
4376
4377         return rc;
4378 }
4379
4380 static int handle_yaml_show_global_settings(struct cYAML *tree,
4381                                             struct cYAML **show_rc,
4382                                             struct cYAML **err_rc)
4383 {
4384         struct cYAML *max_intf, *numa, *discovery, *retry, *tto, *seq_no,
4385                      *sen;
4386         int rc = 0;
4387
4388         seq_no = cYAML_get_object_item(tree, "seq_no");
4389         max_intf = cYAML_get_object_item(tree, "max_intf");
4390         if (max_intf)
4391                 rc = lustre_lnet_show_max_intf(seq_no ? seq_no->cy_valueint
4392                                                         : -1,
4393                                                 show_rc, err_rc);
4394
4395         numa = cYAML_get_object_item(tree, "numa_range");
4396         if (numa)
4397                 rc = lustre_lnet_show_numa_range(seq_no ? seq_no->cy_valueint
4398                                                         : -1,
4399                                                  show_rc, err_rc);
4400
4401         discovery = cYAML_get_object_item(tree, "discovery");
4402         if (discovery)
4403                 rc = lustre_lnet_show_discovery(seq_no ? seq_no->cy_valueint
4404                                                         : -1,
4405                                                 show_rc, err_rc);
4406
4407         retry = cYAML_get_object_item(tree, "retry_count");
4408         if (retry)
4409                 rc = lustre_lnet_show_retry_count(seq_no ? seq_no->cy_valueint
4410                                                         : -1,
4411                                                   show_rc, err_rc);
4412
4413         tto = cYAML_get_object_item(tree, "transaction_timeout");
4414         if (tto)
4415                 rc = lustre_lnet_show_transaction_to(seq_no ? seq_no->cy_valueint
4416                                                         : -1,
4417                                                      show_rc, err_rc);
4418
4419         sen = cYAML_get_object_item(tree, "health_sensitivity");
4420         if (sen)
4421                 rc = lustre_lnet_show_hsensitivity(seq_no ? seq_no->cy_valueint
4422                                                         : -1,
4423                                                      show_rc, err_rc);
4424
4425         return rc;
4426 }
4427
4428 static int handle_yaml_ping(struct cYAML *tree, struct cYAML **show_rc,
4429                             struct cYAML **err_rc)
4430 {
4431         struct cYAML *seq_no, *nid, *timeout;
4432
4433         seq_no = cYAML_get_object_item(tree, "seq_no");
4434         nid = cYAML_get_object_item(tree, "primary nid");
4435         timeout = cYAML_get_object_item(tree, "timeout");
4436
4437         return lustre_lnet_ping_nid((nid) ? nid->cy_valuestring : NULL,
4438                                     (timeout) ? timeout->cy_valueint : 1000,
4439                                     (seq_no) ? seq_no->cy_valueint : -1,
4440                                     show_rc, err_rc);
4441 }
4442
4443 static int handle_yaml_discover(struct cYAML *tree, struct cYAML **show_rc,
4444                                 struct cYAML **err_rc)
4445 {
4446         struct cYAML *seq_no, *nid, *force;
4447
4448         seq_no = cYAML_get_object_item(tree, "seq_no");
4449         nid = cYAML_get_object_item(tree, "primary nid");
4450         force = cYAML_get_object_item(tree, "force");
4451
4452         return lustre_lnet_discover_nid((nid) ? nid->cy_valuestring : NULL,
4453                                         (force) ? force->cy_valueint : 0,
4454                                         (seq_no) ? seq_no->cy_valueint : -1,
4455                                         show_rc, err_rc);
4456 }
4457
4458 static int handle_yaml_no_op()
4459 {
4460         return LUSTRE_CFG_RC_NO_ERR;
4461 }
4462
4463 struct lookup_cmd_hdlr_tbl {
4464         char *name;
4465         cmd_handler_t cb;
4466 };
4467
4468 static struct lookup_cmd_hdlr_tbl lookup_config_tbl[] = {
4469         { .name = "route",      .cb = handle_yaml_config_route },
4470         { .name = "net",        .cb = handle_yaml_config_ni },
4471         { .name = "ip2nets",    .cb = handle_yaml_config_ip2nets },
4472         { .name = "peer",       .cb = handle_yaml_config_peer },
4473         { .name = "routing",    .cb = handle_yaml_config_routing },
4474         { .name = "buffers",    .cb = handle_yaml_config_buffers },
4475         { .name = "statistics", .cb = handle_yaml_no_op },
4476         { .name = "global",     .cb = handle_yaml_config_global_settings},
4477         { .name = "numa",       .cb = handle_yaml_config_numa },
4478         { .name = "ping",       .cb = handle_yaml_no_op },
4479         { .name = "discover",   .cb = handle_yaml_no_op },
4480         { .name = NULL } };
4481
4482 static struct lookup_cmd_hdlr_tbl lookup_del_tbl[] = {
4483         { .name = "route",      .cb = handle_yaml_del_route },
4484         { .name = "net",        .cb = handle_yaml_del_ni },
4485         { .name = "ip2nets",    .cb = handle_yaml_no_op },
4486         { .name = "peer",       .cb = handle_yaml_del_peer },
4487         { .name = "routing",    .cb = handle_yaml_del_routing },
4488         { .name = "buffers",    .cb = handle_yaml_no_op },
4489         { .name = "statistics", .cb = handle_yaml_no_op },
4490         { .name = "global",     .cb = handle_yaml_del_global_settings},
4491         { .name = "numa",       .cb = handle_yaml_del_numa },
4492         { .name = "ping",       .cb = handle_yaml_no_op },
4493         { .name = "discover",   .cb = handle_yaml_no_op },
4494         { .name = NULL } };
4495
4496 static struct lookup_cmd_hdlr_tbl lookup_show_tbl[] = {
4497         { .name = "route",      .cb = handle_yaml_show_route },
4498         { .name = "net",        .cb = handle_yaml_show_net },
4499         { .name = "peer",       .cb = handle_yaml_show_peers },
4500         { .name = "ip2nets",    .cb = handle_yaml_no_op },
4501         { .name = "routing",    .cb = handle_yaml_show_routing },
4502         { .name = "buffers",    .cb = handle_yaml_show_routing },
4503         { .name = "statistics", .cb = handle_yaml_show_stats },
4504         { .name = "global",     .cb = handle_yaml_show_global_settings},
4505         { .name = "numa",       .cb = handle_yaml_show_numa },
4506         { .name = "ping",       .cb = handle_yaml_no_op },
4507         { .name = "discover",   .cb = handle_yaml_no_op },
4508         { .name = NULL } };
4509
4510 static struct lookup_cmd_hdlr_tbl lookup_exec_tbl[] = {
4511         { .name = "route",      .cb = handle_yaml_no_op },
4512         { .name = "net",        .cb = handle_yaml_no_op },
4513         { .name = "peer",       .cb = handle_yaml_no_op },
4514         { .name = "ip2nets",    .cb = handle_yaml_no_op },
4515         { .name = "routing",    .cb = handle_yaml_no_op },
4516         { .name = "buffers",    .cb = handle_yaml_no_op },
4517         { .name = "statistics", .cb = handle_yaml_no_op },
4518         { .name = "global",     .cb = handle_yaml_no_op },
4519         { .name = "numa",       .cb = handle_yaml_no_op },
4520         { .name = "ping",       .cb = handle_yaml_ping },
4521         { .name = "discover",   .cb = handle_yaml_discover },
4522         { .name = NULL } };
4523
4524 static cmd_handler_t lookup_fn(char *key,
4525                                struct lookup_cmd_hdlr_tbl *tbl)
4526 {
4527         int i;
4528         if (key == NULL)
4529                 return NULL;
4530
4531         for (i = 0; tbl[i].name != NULL; i++) {
4532                 if (strncmp(key, tbl[i].name, strlen(tbl[i].name)) == 0)
4533                         return tbl[i].cb;
4534         }
4535
4536         return NULL;
4537 }
4538
4539 static int lustre_yaml_cb_helper(char *f, struct lookup_cmd_hdlr_tbl *table,
4540                                  struct cYAML **show_rc, struct cYAML **err_rc)
4541 {
4542         struct cYAML *tree, *item = NULL, *head, *child;
4543         cmd_handler_t cb;
4544         char err_str[LNET_MAX_STR_LEN];
4545         int rc = LUSTRE_CFG_RC_NO_ERR, return_rc = LUSTRE_CFG_RC_NO_ERR;
4546
4547         tree = cYAML_build_tree(f, NULL, 0, err_rc, false);
4548         if (tree == NULL)
4549                 return LUSTRE_CFG_RC_BAD_PARAM;
4550
4551         child = tree->cy_child;
4552         while (child != NULL) {
4553                 cb = lookup_fn(child->cy_string, table);
4554                 if (cb == NULL) {
4555                         snprintf(err_str, sizeof(err_str),
4556                                 "\"call back for '%s' not found\"",
4557                                 child->cy_string);
4558                         cYAML_build_error(LUSTRE_CFG_RC_BAD_PARAM, -1,
4559                                         "yaml", "helper", err_str, err_rc);
4560                         goto out;
4561                 }
4562
4563                 if (cYAML_is_sequence(child)) {
4564                         while ((head = cYAML_get_next_seq_item(child, &item))
4565                                != NULL) {
4566                                 rc = cb(head, show_rc, err_rc);
4567                                 if (rc != LUSTRE_CFG_RC_NO_ERR)
4568                                         return_rc = rc;
4569                         }
4570                 } else {
4571                         rc = cb(child, show_rc, err_rc);
4572                         if (rc != LUSTRE_CFG_RC_NO_ERR)
4573                                 return_rc = rc;
4574                 }
4575                 item = NULL;
4576                 child = child->cy_next;
4577         }
4578
4579 out:
4580         cYAML_free_tree(tree);
4581
4582         return return_rc;
4583 }
4584
4585 int lustre_yaml_config(char *f, struct cYAML **err_rc)
4586 {
4587         return lustre_yaml_cb_helper(f, lookup_config_tbl,
4588                                      NULL, err_rc);
4589 }
4590
4591 int lustre_yaml_del(char *f, struct cYAML **err_rc)
4592 {
4593         return lustre_yaml_cb_helper(f, lookup_del_tbl,
4594                                      NULL, err_rc);
4595 }
4596
4597 int lustre_yaml_show(char *f, struct cYAML **show_rc, struct cYAML **err_rc)
4598 {
4599         return lustre_yaml_cb_helper(f, lookup_show_tbl,
4600                                      show_rc, err_rc);
4601 }
4602
4603 int lustre_yaml_exec(char *f, struct cYAML **show_rc, struct cYAML **err_rc)
4604 {
4605         return lustre_yaml_cb_helper(f, lookup_exec_tbl,
4606                                      show_rc, err_rc);
4607 }