lustre/ptlrpc/sec_config.c

   1 /*
   2  * GPL 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 General Public License version 2 only,
   8  * as published by the Free Software Foundation.
   9  *
  10  * This program is distributed in the hope that it will be useful, but
  11  * WITHOUT ANY WARRANTY; without even the implied warranty of
  12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13  * General Public License version 2 for more details (a copy is included
  14  * in the LICENSE file that accompanied this code).
  15  *
  16  * You should have received a copy of the GNU General Public License
  17  * version 2 along with this program; If not, see
  18  * http://www.gnu.org/licenses/gpl-2.0.html
  19  *
  20  * GPL HEADER END
  21  */
  22 /*
  23  * Copyright (c) 2008, 2010, Oracle and/or its affiliates. All rights reserved.
  24  * Use is subject to license terms.
  25  *
  26  * Copyright (c) 2011, 2015, Intel Corporation.
  27  */
  28 /*
  29  * This file is part of Lustre, http://www.lustre.org/
  30  * Lustre is a trademark of Sun Microsystems, Inc.
  31  */
  32
  33 #define DEBUG_SUBSYSTEM S_SEC
  34
  35 #include <libcfs/libcfs.h>
  36 #include <linux/crypto.h>
  37 #include <linux/key.h>
  38
  39 #include <obd.h>
  40 #include <obd_class.h>
  41 #include <obd_support.h>
  42 #include <lustre_net.h>
  43 #include <lustre_import.h>
  44 #include <lustre_log.h>
  45 #include <lustre_disk.h>
  46 #include <lustre_dlm.h>
  47 #include <lustre_param.h>
  48 #include <lustre_sec.h>
  49
  50 #include "ptlrpc_internal.h"
  51
  52 const char *sptlrpc_part2name(enum lustre_sec_part part)
  53 {
  54         switch (part) {
  55         case LUSTRE_SP_CLI:
  56                 return "cli";
  57         case LUSTRE_SP_MDT:
  58                 return "mdt";
  59         case LUSTRE_SP_OST:
  60                 return "ost";
  61         case LUSTRE_SP_MGC:
  62                 return "mgc";
  63         case LUSTRE_SP_MGS:
  64                 return "mgs";
  65         case LUSTRE_SP_ANY:
  66                 return "any";
  67         default:
  68                 return "err";
  69         }
  70 }
  71 EXPORT_SYMBOL(sptlrpc_part2name);
  72
  73 enum lustre_sec_part sptlrpc_target_sec_part(struct obd_device *obd)
  74 {
  75         const char *type = obd->obd_type->typ_name;
  76
  77         if (!strcmp(type, LUSTRE_MDT_NAME))
  78                 return LUSTRE_SP_MDT;
  79         if (!strcmp(type, LUSTRE_OST_NAME))
  80                 return LUSTRE_SP_OST;
  81         if (!strcmp(type, LUSTRE_MGS_NAME))
  82                 return LUSTRE_SP_MGS;
  83
  84         CERROR("unknown target %p(%s)\n", obd, type);
  85         return LUSTRE_SP_ANY;
  86 }
  87
  88 /****************************************
  89  * user supplied flavor string parsing  *
  90  ****************************************/
  91
  92 /*
  93  * format: <base_flavor>[-<bulk_type:alg_spec>]
  94  */
  95 int sptlrpc_parse_flavor(const char *str, struct sptlrpc_flavor *flvr)
  96 {
  97         char            buf[32];
  98         char           *bulk, *alg;
  99
 100         memset(flvr, 0, sizeof(*flvr));
 101
 102         if (str == NULL || str[0] == '\0') {
 103                 flvr->sf_rpc = SPTLRPC_FLVR_INVALID;
 104                 return 0;
 105         }
 106
 107         strlcpy(buf, str, sizeof(buf));
 108
 109         bulk = strchr(buf, '-');
 110         if (bulk)
 111                 *bulk++ = '\0';
 112
 113         flvr->sf_rpc = sptlrpc_name2flavor_base(buf);
 114         if (flvr->sf_rpc == SPTLRPC_FLVR_INVALID)
 115                 goto err_out;
 116
 117         /*
 118          * currently only base flavor "plain" can have bulk specification.
 119          */
 120         if (flvr->sf_rpc == SPTLRPC_FLVR_PLAIN) {
 121                 flvr->u_bulk.hash.hash_alg = BULK_HASH_ALG_ADLER32;
 122                 if (bulk) {
 123                         /*
 124                          * format: plain-hash:<hash_alg>
 125                          */
 126                         alg = strchr(bulk, ':');
 127                         if (alg == NULL)
 128                                 goto err_out;
 129                         *alg++ = '\0';
 130
 131                         if (strcmp(bulk, "hash"))
 132                                 goto err_out;
 133
 134                         flvr->u_bulk.hash.hash_alg = sptlrpc_get_hash_alg(alg);
 135                         if (flvr->u_bulk.hash.hash_alg >= BULK_HASH_ALG_MAX)
 136                                 goto err_out;
 137                 }
 138
 139                 if (flvr->u_bulk.hash.hash_alg == BULK_HASH_ALG_NULL)
 140                         flvr_set_bulk_svc(&flvr->sf_rpc, SPTLRPC_BULK_SVC_NULL);
 141                 else
 142                         flvr_set_bulk_svc(&flvr->sf_rpc, SPTLRPC_BULK_SVC_INTG);
 143         } else {
 144                 if (bulk)
 145                         goto err_out;
 146         }
 147
 148         flvr->sf_flags = 0;
 149         return 0;
 150
 151 err_out:
 152         CERROR("invalid flavor string: %s\n", str);
 153         return -EINVAL;
 154 }
 155 EXPORT_SYMBOL(sptlrpc_parse_flavor);
 156
 157 /****************************************
 158  * configure rules                      *
 159  ****************************************/
 160
 161 static void get_default_flavor(struct sptlrpc_flavor *sf)
 162 {
 163         memset(sf, 0, sizeof(*sf));
 164
 165         sf->sf_rpc = SPTLRPC_FLVR_NULL;
 166         sf->sf_flags = 0;
 167 }
 168
 169 static void sptlrpc_rule_init(struct sptlrpc_rule *rule)
 170 {
 171         rule->sr_netid = LNET_NIDNET(LNET_NID_ANY);
 172         rule->sr_from = LUSTRE_SP_ANY;
 173         rule->sr_to = LUSTRE_SP_ANY;
 174         rule->sr_padding = 0;
 175
 176         get_default_flavor(&rule->sr_flvr);
 177 }
 178
 179 /*
 180  * format: network[.direction]=flavor
 181  */
 182 int sptlrpc_parse_rule(char *param, struct sptlrpc_rule *rule)
 183 {
 184         char           *flavor, *dir;
 185         int             rc;
 186
 187         sptlrpc_rule_init(rule);
 188
 189         flavor = strchr(param, '=');
 190         if (flavor == NULL) {
 191                 CERROR("invalid param, no '='\n");
 192                 RETURN(-EINVAL);
 193         }
 194         *flavor++ = '\0';
 195
 196         dir = strchr(param, '.');
 197         if (dir)
 198                 *dir++ = '\0';
 199
 200         /* 1.1 network */
 201         if (strcmp(param, "default")) {
 202                 rule->sr_netid = libcfs_str2net(param);
 203                 if (rule->sr_netid == LNET_NIDNET(LNET_NID_ANY)) {
 204                         CERROR("invalid network name: %s\n", param);
 205                         RETURN(-EINVAL);
 206                 }
 207         }
 208
 209         /* 1.2 direction */
 210         if (dir) {
 211                 if (!strcmp(dir, "mdt2ost")) {
 212                         rule->sr_from = LUSTRE_SP_MDT;
 213                         rule->sr_to = LUSTRE_SP_OST;
 214                 } else if (!strcmp(dir, "mdt2mdt")) {
 215                         rule->sr_from = LUSTRE_SP_MDT;
 216                         rule->sr_to = LUSTRE_SP_MDT;
 217                 } else if (!strcmp(dir, "cli2ost")) {
 218                         rule->sr_from = LUSTRE_SP_CLI;
 219                         rule->sr_to = LUSTRE_SP_OST;
 220                 } else if (!strcmp(dir, "cli2mdt")) {
 221                         rule->sr_from = LUSTRE_SP_CLI;
 222                         rule->sr_to = LUSTRE_SP_MDT;
 223                 } else {
 224                         CERROR("invalid rule dir segment: %s\n", dir);
 225                         RETURN(-EINVAL);
 226                 }
 227         }
 228
 229         /* 2.1 flavor */
 230         rc = sptlrpc_parse_flavor(flavor, &rule->sr_flvr);
 231         if (rc)
 232                 RETURN(-EINVAL);
 233
 234         RETURN(0);
 235 }
 236 EXPORT_SYMBOL(sptlrpc_parse_rule);
 237
 238 void sptlrpc_rule_set_free(struct sptlrpc_rule_set *rset)
 239 {
 240         LASSERT(rset->srs_nslot ||
 241                 (rset->srs_nrule == 0 && rset->srs_rules == NULL));
 242
 243         if (rset->srs_nslot) {
 244                 OBD_FREE(rset->srs_rules,
 245                          rset->srs_nslot * sizeof(*rset->srs_rules));
 246                 sptlrpc_rule_set_init(rset);
 247         }
 248 }
 249 EXPORT_SYMBOL(sptlrpc_rule_set_free);
 250
 251 /*
 252  * return 0 if the rule set could accomodate one more rule.
 253  */
 254 int sptlrpc_rule_set_expand(struct sptlrpc_rule_set *rset)
 255 {
 256         struct sptlrpc_rule *rules;
 257         int nslot;
 258
 259         might_sleep();
 260
 261         if (rset->srs_nrule < rset->srs_nslot)
 262                 return 0;
 263
 264         nslot = rset->srs_nslot + 8;
 265
 266         /* better use realloc() if available */
 267         OBD_ALLOC(rules, nslot * sizeof(*rset->srs_rules));
 268         if (rules == NULL)
 269                 return -ENOMEM;
 270
 271         if (rset->srs_nrule) {
 272                 LASSERT(rset->srs_nslot && rset->srs_rules);
 273                 memcpy(rules, rset->srs_rules,
 274                        rset->srs_nrule * sizeof(*rset->srs_rules));
 275
 276                 OBD_FREE(rset->srs_rules,
 277                          rset->srs_nslot * sizeof(*rset->srs_rules));
 278         }
 279
 280         rset->srs_rules = rules;
 281         rset->srs_nslot = nslot;
 282         return 0;
 283 }
 284
 285 static inline int rule_spec_dir(struct sptlrpc_rule *rule)
 286 {
 287         return (rule->sr_from != LUSTRE_SP_ANY ||
 288                 rule->sr_to != LUSTRE_SP_ANY);
 289 }
 290 static inline int rule_spec_net(struct sptlrpc_rule *rule)
 291 {
 292         return (rule->sr_netid != LNET_NIDNET(LNET_NID_ANY));
 293 }
 294 static inline int rule_match_dir(struct sptlrpc_rule *r1,
 295                                  struct sptlrpc_rule *r2)
 296 {
 297         return (r1->sr_from == r2->sr_from && r1->sr_to == r2->sr_to);
 298 }
 299 static inline int rule_match_net(struct sptlrpc_rule *r1,
 300                                  struct sptlrpc_rule *r2)
 301 {
 302         return (r1->sr_netid == r2->sr_netid);
 303 }
 304
 305 /*
 306  * merge @rule into @rset.
 307  * the @rset slots might be expanded.
 308  */
 309 int sptlrpc_rule_set_merge(struct sptlrpc_rule_set *rset,
 310                            struct sptlrpc_rule *rule)
 311 {
 312         struct sptlrpc_rule      *p = rset->srs_rules;
 313         int                       spec_dir, spec_net;
 314         int                       rc, n, match = 0;
 315
 316         might_sleep();
 317
 318         spec_net = rule_spec_net(rule);
 319         spec_dir = rule_spec_dir(rule);
 320
 321         for (n = 0; n < rset->srs_nrule; n++) {
 322                 p = &rset->srs_rules[n];
 323
 324                 /* test network match, if failed:
 325                  * - spec rule: skip rules which is also spec rule match, until
 326                  *   we hit a wild rule, which means no more chance
 327                  * - wild rule: skip until reach the one which is also wild
 328                  *   and matches
 329                  */
 330                 if (!rule_match_net(p, rule)) {
 331                         if (spec_net) {
 332                                 if (rule_spec_net(p))
 333                                         continue;
 334                                 else
 335                                         break;
 336                         } else {
 337                                 continue;
 338                         }
 339                 }
 340
 341                 /* test dir match, same logic as net matching */
 342                 if (!rule_match_dir(p, rule)) {
 343                         if (spec_dir) {
 344                                 if (rule_spec_dir(p))
 345                                         continue;
 346                                 else
 347                                         break;
 348                         } else {
 349                                 continue;
 350                         }
 351                 }
 352
 353                 /* find a match */
 354                 match = 1;
 355                 break;
 356         }
 357
 358         if (match) {
 359                 LASSERT(n >= 0 && n < rset->srs_nrule);
 360
 361                 if (rule->sr_flvr.sf_rpc == SPTLRPC_FLVR_INVALID) {
 362                         /* remove this rule */
 363                         if (n < rset->srs_nrule - 1)
 364                                 memmove(&rset->srs_rules[n],
 365                                         &rset->srs_rules[n + 1],
 366                                         (rset->srs_nrule - n - 1) *
 367                                         sizeof(*rule));
 368                         rset->srs_nrule--;
 369                 } else {
 370                         /* override the rule */
 371                         memcpy(&rset->srs_rules[n], rule, sizeof(*rule));
 372                 }
 373         } else {
 374                 LASSERT(n >= 0 && n <= rset->srs_nrule);
 375
 376                 if (rule->sr_flvr.sf_rpc != SPTLRPC_FLVR_INVALID) {
 377                         rc = sptlrpc_rule_set_expand(rset);
 378                         if (rc)
 379                                 return rc;
 380
 381                         if (n < rset->srs_nrule)
 382                                 memmove(&rset->srs_rules[n + 1],
 383                                         &rset->srs_rules[n],
 384                                         (rset->srs_nrule - n) * sizeof(*rule));
 385                         memcpy(&rset->srs_rules[n], rule, sizeof(*rule));
 386                         rset->srs_nrule++;
 387                 } else {
 388                         CDEBUG(D_CONFIG, "ignore the unmatched deletion\n");
 389                 }
 390         }
 391
 392         return 0;
 393 }
 394 EXPORT_SYMBOL(sptlrpc_rule_set_merge);
 395
 396 /**
 397  * given from/to/nid, determine a matching flavor in ruleset.
 398  * return 1 if a match found, otherwise return 0.
 399  */
 400 int sptlrpc_rule_set_choose(struct sptlrpc_rule_set *rset,
 401                             enum lustre_sec_part from,
 402                             enum lustre_sec_part to,
 403                             lnet_nid_t nid,
 404                             struct sptlrpc_flavor *sf)
 405 {
 406         struct sptlrpc_rule    *r;
 407         int                     n;
 408
 409         for (n = 0; n < rset->srs_nrule; n++) {
 410                 r = &rset->srs_rules[n];
 411
 412                 if (LNET_NIDNET(nid) != LNET_NIDNET(LNET_NID_ANY) &&
 413                     r->sr_netid != LNET_NIDNET(LNET_NID_ANY) &&
 414                     LNET_NIDNET(nid) != r->sr_netid)
 415                         continue;
 416
 417                 if (from != LUSTRE_SP_ANY && r->sr_from != LUSTRE_SP_ANY &&
 418                     from != r->sr_from)
 419                         continue;
 420
 421                 if (to != LUSTRE_SP_ANY && r->sr_to != LUSTRE_SP_ANY &&
 422                     to != r->sr_to)
 423                         continue;
 424
 425                 *sf = r->sr_flvr;
 426                 return 1;
 427         }
 428
 429         return 0;
 430 }
 431
 432 void sptlrpc_rule_set_dump(struct sptlrpc_rule_set *rset)
 433 {
 434         struct sptlrpc_rule *r;
 435         int     n;
 436
 437         for (n = 0; n < rset->srs_nrule; n++) {
 438                 r = &rset->srs_rules[n];
 439                 CDEBUG(D_SEC, "<%02d> from %x to %x, net %x, rpc %x\n", n,
 440                        r->sr_from, r->sr_to, r->sr_netid, r->sr_flvr.sf_rpc);
 441         }
 442 }
 443
 444 static int sptlrpc_rule_set_extract(struct sptlrpc_rule_set *gen,
 445                                     struct sptlrpc_rule_set *tgt,
 446                                     enum lustre_sec_part from,
 447                                     enum lustre_sec_part to,
 448                                     struct sptlrpc_rule_set *rset)
 449 {
 450         struct sptlrpc_rule_set *src[2] = { gen, tgt };
 451         struct sptlrpc_rule     *rule;
 452         int                      i, n, rc;
 453
 454         might_sleep();
 455
 456         /* merge general rules firstly, then target-specific rules */
 457         for (i = 0; i < 2; i++) {
 458                 if (src[i] == NULL)
 459                         continue;
 460
 461                 for (n = 0; n < src[i]->srs_nrule; n++) {
 462                         rule = &src[i]->srs_rules[n];
 463
 464                         if (from != LUSTRE_SP_ANY &&
 465                             rule->sr_from != LUSTRE_SP_ANY &&
 466                             rule->sr_from != from)
 467                                 continue;
 468                         if (to != LUSTRE_SP_ANY &&
 469                             rule->sr_to != LUSTRE_SP_ANY &&
 470                             rule->sr_to != to)
 471                                 continue;
 472
 473                         rc = sptlrpc_rule_set_merge(rset, rule);
 474                         if (rc) {
 475                                 CERROR("can't merge: %d\n", rc);
 476                                 return rc;
 477                         }
 478                 }
 479         }
 480
 481         return 0;
 482 }
 483
 484 /**********************************
 485  * sptlrpc configuration support  *
 486  **********************************/
 487
 488 struct sptlrpc_conf_tgt {
 489         struct list_head              sct_list;
 490         char                    sct_name[MAX_OBD_NAME];
 491         struct sptlrpc_rule_set sct_rset;
 492 };
 493
 494 struct sptlrpc_conf {
 495         struct list_head        sc_list;
 496         char                    sc_fsname[MTI_NAME_MAXLEN];
 497         unsigned int            sc_modified;    /* modified during updating */
 498         unsigned int            sc_updated:1,   /* updated copy from MGS */
 499                                 sc_local:1;     /* local copy from target */
 500         struct sptlrpc_rule_set sc_rset;        /* fs general rules */
 501         struct list_head        sc_tgts;        /* target-specific rules */
 502 };
 503
 504 static struct mutex sptlrpc_conf_lock;
 505 static struct list_head sptlrpc_confs;
 506
 507 static inline int is_hex(char c)
 508 {
 509         return ((c >= '0' && c <= '9') ||
 510                 (c >= 'a' && c <= 'f'));
 511 }
 512
 513 static void target2fsname(const char *tgt, char *fsname, int buflen)
 514 {
 515         const char     *ptr;
 516         int             len;
 517
 518         ptr = strrchr(tgt, '-');
 519         if (ptr) {
 520                 if ((strncmp(ptr, "-MDT", 4) != 0 &&
 521                      strncmp(ptr, "-OST", 4) != 0) ||
 522                     !is_hex(ptr[4]) || !is_hex(ptr[5]) ||
 523                     !is_hex(ptr[6]) || !is_hex(ptr[7]))
 524                         ptr = NULL;
 525         }
 526
 527         /* if we didn't find the pattern, treat the whole string as fsname */
 528         if (ptr == NULL)
 529                 len = strlen(tgt);
 530         else
 531                 len = ptr - tgt;
 532
 533         len = min(len, buflen - 1);
 534         memcpy(fsname, tgt, len);
 535         fsname[len] = '\0';
 536 }
 537
 538 static void sptlrpc_conf_free_rsets(struct sptlrpc_conf *conf)
 539 {
 540         struct sptlrpc_conf_tgt *conf_tgt, *conf_tgt_next;
 541
 542         sptlrpc_rule_set_free(&conf->sc_rset);
 543
 544         list_for_each_entry_safe(conf_tgt, conf_tgt_next,
 545                                  &conf->sc_tgts, sct_list) {
 546                 sptlrpc_rule_set_free(&conf_tgt->sct_rset);
 547                 list_del(&conf_tgt->sct_list);
 548                 OBD_FREE_PTR(conf_tgt);
 549         }
 550         LASSERT(list_empty(&conf->sc_tgts));
 551
 552         conf->sc_updated = 0;
 553         conf->sc_local = 0;
 554 }
 555
 556 static void sptlrpc_conf_free(struct sptlrpc_conf *conf)
 557 {
 558         CDEBUG(D_SEC, "free sptlrpc conf %s\n", conf->sc_fsname);
 559
 560         sptlrpc_conf_free_rsets(conf);
 561         list_del(&conf->sc_list);
 562         OBD_FREE_PTR(conf);
 563 }
 564
 565 static
 566 struct sptlrpc_conf_tgt *sptlrpc_conf_get_tgt(struct sptlrpc_conf *conf,
 567                                               const char *name,
 568                                               int create)
 569 {
 570         struct sptlrpc_conf_tgt *conf_tgt;
 571
 572         list_for_each_entry(conf_tgt, &conf->sc_tgts, sct_list) {
 573                 if (strcmp(conf_tgt->sct_name, name) == 0)
 574                         return conf_tgt;
 575         }
 576
 577         if (!create)
 578                 return NULL;
 579
 580         OBD_ALLOC_PTR(conf_tgt);
 581         if (conf_tgt) {
 582                 strlcpy(conf_tgt->sct_name, name, sizeof(conf_tgt->sct_name));
 583                 sptlrpc_rule_set_init(&conf_tgt->sct_rset);
 584                 list_add(&conf_tgt->sct_list, &conf->sc_tgts);
 585         }
 586
 587         return conf_tgt;
 588 }
 589
 590 static
 591 struct sptlrpc_conf *sptlrpc_conf_get(const char *fsname,
 592                                       int create)
 593 {
 594         struct sptlrpc_conf *conf;
 595
 596         list_for_each_entry(conf, &sptlrpc_confs, sc_list) {
 597                 if (strcmp(conf->sc_fsname, fsname) == 0)
 598                         return conf;
 599         }
 600
 601         if (!create)
 602                 return NULL;
 603
 604         OBD_ALLOC_PTR(conf);
 605         if (conf == NULL)
 606                 return NULL;
 607
 608         if (strlcpy(conf->sc_fsname, fsname, sizeof(conf->sc_fsname)) >=
 609             sizeof(conf->sc_fsname)) {
 610                 OBD_FREE_PTR(conf);
 611                 return NULL;
 612         }
 613         sptlrpc_rule_set_init(&conf->sc_rset);
 614         INIT_LIST_HEAD(&conf->sc_tgts);
 615         list_add(&conf->sc_list, &sptlrpc_confs);
 616
 617         CDEBUG(D_SEC, "create sptlrpc conf %s\n", conf->sc_fsname);
 618         return conf;
 619 }
 620
 621 /**
 622  * caller must hold conf_lock already.
 623  */
 624 static int sptlrpc_conf_merge_rule(struct sptlrpc_conf *conf,
 625                                    const char *target,
 626                                    struct sptlrpc_rule *rule)
 627 {
 628         struct sptlrpc_conf_tgt  *conf_tgt;
 629         struct sptlrpc_rule_set  *rule_set;
 630
 631         /* fsname == target means general rules for the whole fs */
 632         if (strcmp(conf->sc_fsname, target) == 0) {
 633                 rule_set = &conf->sc_rset;
 634         } else {
 635                 conf_tgt = sptlrpc_conf_get_tgt(conf, target, 1);
 636                 if (conf_tgt) {
 637                         rule_set = &conf_tgt->sct_rset;
 638                 } else {
 639                         CERROR("out of memory, can't merge rule!\n");
 640                         return -ENOMEM;
 641                 }
 642         }
 643
 644         return sptlrpc_rule_set_merge(rule_set, rule);
 645 }
 646
 647 /**
 648  * process one LCFG_SPTLRPC_CONF record. if \a conf is NULL, we
 649  * find one through the target name in the record inside conf_lock;
 650  * otherwise means caller already hold conf_lock.
 651  */
 652 static int __sptlrpc_process_config(struct lustre_cfg *lcfg,
 653                                     struct sptlrpc_conf *conf)
 654 {
 655         char                   *target, *param;
 656         char                    fsname[MTI_NAME_MAXLEN];
 657         struct sptlrpc_rule     rule;
 658         int                     rc;
 659         ENTRY;
 660
 661         target = lustre_cfg_string(lcfg, 1);
 662         if (target == NULL) {
 663                 CERROR("missing target name\n");
 664                 RETURN(-EINVAL);
 665         }
 666
 667         param = lustre_cfg_string(lcfg, 2);
 668         if (param == NULL) {
 669                 CERROR("missing parameter\n");
 670                 RETURN(-EINVAL);
 671         }
 672
 673         CDEBUG(D_SEC, "processing rule: %s.%s\n", target, param);
 674
 675         /* parse rule to make sure the format is correct */
 676         if (strncmp(param, PARAM_SRPC_FLVR, sizeof(PARAM_SRPC_FLVR) - 1) != 0) {
 677                 CERROR("Invalid sptlrpc parameter: %s\n", param);
 678                 RETURN(-EINVAL);
 679         }
 680         param += sizeof(PARAM_SRPC_FLVR) - 1;
 681
 682         rc = sptlrpc_parse_rule(param, &rule);
 683         if (rc)
 684                 RETURN(-EINVAL);
 685
 686         if (conf == NULL) {
 687                 target2fsname(target, fsname, sizeof(fsname));
 688
 689                 mutex_lock(&sptlrpc_conf_lock);
 690                 conf = sptlrpc_conf_get(fsname, 0);
 691                 if (conf == NULL) {
 692                         CERROR("can't find conf\n");
 693                         rc = -ENOMEM;
 694                 } else {
 695                         rc = sptlrpc_conf_merge_rule(conf, target, &rule);
 696                 }
 697                 mutex_unlock(&sptlrpc_conf_lock);
 698         } else {
 699                 LASSERT(mutex_is_locked(&sptlrpc_conf_lock));
 700                 rc = sptlrpc_conf_merge_rule(conf, target, &rule);
 701         }
 702
 703         if (rc == 0)
 704                 conf->sc_modified++;
 705
 706         RETURN(rc);
 707 }
 708
 709 int sptlrpc_process_config(struct lustre_cfg *lcfg)
 710 {
 711         return __sptlrpc_process_config(lcfg, NULL);
 712 }
 713 EXPORT_SYMBOL(sptlrpc_process_config);
 714
 715 static int logname2fsname(const char *logname, char *buf, int buflen)
 716 {
 717         char   *ptr;
 718         int     len;
 719
 720         ptr = strrchr(logname, '-');
 721         if (ptr == NULL || strcmp(ptr, "-sptlrpc")) {
 722                 CERROR("%s is not a sptlrpc config log\n", logname);
 723                 return -EINVAL;
 724         }
 725
 726         len = min((int) (ptr - logname), buflen - 1);
 727
 728         memcpy(buf, logname, len);
 729         buf[len] = '\0';
 730         return 0;
 731 }
 732
 733 void sptlrpc_conf_log_update_begin(const char *logname)
 734 {
 735         struct sptlrpc_conf *conf;
 736         char                 fsname[16];
 737
 738         if (logname2fsname(logname, fsname, sizeof(fsname)))
 739                 return;
 740
 741         mutex_lock(&sptlrpc_conf_lock);
 742
 743         conf = sptlrpc_conf_get(fsname, 0);
 744         if (conf) {
 745                 if (conf->sc_local) {
 746                         LASSERT(conf->sc_updated == 0);
 747                         sptlrpc_conf_free_rsets(conf);
 748                 }
 749                 conf->sc_modified = 0;
 750         }
 751
 752         mutex_unlock(&sptlrpc_conf_lock);
 753 }
 754 EXPORT_SYMBOL(sptlrpc_conf_log_update_begin);
 755
 756 /**
 757  * mark a config log has been updated
 758  */
 759 void sptlrpc_conf_log_update_end(const char *logname)
 760 {
 761         struct sptlrpc_conf *conf;
 762         char                 fsname[16];
 763
 764         if (logname2fsname(logname, fsname, sizeof(fsname)))
 765                 return;
 766
 767         mutex_lock(&sptlrpc_conf_lock);
 768
 769         conf = sptlrpc_conf_get(fsname, 0);
 770         if (conf) {
 771                 /*
 772                  * if original state is not updated, make sure the
 773                  * modified counter > 0 to enforce updating local copy.
 774                  */
 775                 if (conf->sc_updated == 0)
 776                         conf->sc_modified++;
 777
 778                 conf->sc_updated = 1;
 779         }
 780
 781         mutex_unlock(&sptlrpc_conf_lock);
 782 }
 783 EXPORT_SYMBOL(sptlrpc_conf_log_update_end);
 784
 785 void sptlrpc_conf_log_start(const char *logname)
 786 {
 787         char                 fsname[16];
 788
 789         if (logname2fsname(logname, fsname, sizeof(fsname)))
 790                 return;
 791
 792         mutex_lock(&sptlrpc_conf_lock);
 793         sptlrpc_conf_get(fsname, 1);
 794         mutex_unlock(&sptlrpc_conf_lock);
 795 }
 796 EXPORT_SYMBOL(sptlrpc_conf_log_start);
 797
 798 void sptlrpc_conf_log_stop(const char *logname)
 799 {
 800         struct sptlrpc_conf *conf;
 801         char                 fsname[16];
 802
 803         if (logname2fsname(logname, fsname, sizeof(fsname)))
 804                 return;
 805
 806         mutex_lock(&sptlrpc_conf_lock);
 807         conf = sptlrpc_conf_get(fsname, 0);
 808         if (conf)
 809                 sptlrpc_conf_free(conf);
 810         mutex_unlock(&sptlrpc_conf_lock);
 811 }
 812 EXPORT_SYMBOL(sptlrpc_conf_log_stop);
 813
 814 static void inline flavor_set_flags(struct sptlrpc_flavor *sf,
 815                                     enum lustre_sec_part from,
 816                                     enum lustre_sec_part to,
 817                                     unsigned int fl_udesc)
 818 {
 819         /*
 820          * null flavor doesn't need to set any flavor, and in fact
 821          * we'd better not do that because everybody share a single sec.
 822          */
 823         if (sf->sf_rpc == SPTLRPC_FLVR_NULL)
 824                 return;
 825
 826         if (from == LUSTRE_SP_MDT) {
 827                 /* MDT->MDT; MDT->OST */
 828                 sf->sf_flags |= PTLRPC_SEC_FL_ROOTONLY;
 829         } else if (from == LUSTRE_SP_CLI && to == LUSTRE_SP_OST) {
 830                 /* CLI->OST */
 831                 sf->sf_flags |= PTLRPC_SEC_FL_ROOTONLY | PTLRPC_SEC_FL_BULK;
 832         } else if (from == LUSTRE_SP_CLI && to == LUSTRE_SP_MDT) {
 833                 /* CLI->MDT */
 834                 if (fl_udesc && sf->sf_rpc != SPTLRPC_FLVR_NULL)
 835                         sf->sf_flags |= PTLRPC_SEC_FL_UDESC;
 836         }
 837
 838         /* Some flavors use a single uid (0) context */
 839         if (flvr_is_rootonly(sf->sf_rpc))
 840                 sf->sf_flags |= PTLRPC_SEC_FL_ROOTONLY;
 841
 842         /* User descriptor might need to be cleared */
 843         if (flvr_allows_user_desc(sf->sf_rpc) == 0)
 844                 sf->sf_flags &= ~PTLRPC_SEC_FL_UDESC;
 845 }
 846
 847 void sptlrpc_conf_choose_flavor(enum lustre_sec_part from,
 848                                 enum lustre_sec_part to,
 849                                 struct obd_uuid *target,
 850                                 lnet_nid_t nid,
 851                                 struct sptlrpc_flavor *sf)
 852 {
 853         struct sptlrpc_conf     *conf;
 854         struct sptlrpc_conf_tgt *conf_tgt;
 855         char                     name[MTI_NAME_MAXLEN];
 856         int                      len, rc = 0;
 857
 858         target2fsname(target->uuid, name, sizeof(name));
 859
 860         mutex_lock(&sptlrpc_conf_lock);
 861
 862         conf = sptlrpc_conf_get(name, 0);
 863         if (conf == NULL)
 864                 goto out;
 865
 866         /* convert uuid name (supposed end with _UUID) to target name */
 867         len = strlen(target->uuid);
 868         LASSERT(len > 5);
 869         memcpy(name, target->uuid, len - 5);
 870         name[len - 5] = '\0';
 871
 872         conf_tgt = sptlrpc_conf_get_tgt(conf, name, 0);
 873         if (conf_tgt) {
 874                 rc = sptlrpc_rule_set_choose(&conf_tgt->sct_rset,
 875                                              from, to, nid, sf);
 876                 if (rc)
 877                         goto out;
 878         }
 879
 880         rc = sptlrpc_rule_set_choose(&conf->sc_rset, from, to, nid, sf);
 881 out:
 882         mutex_unlock(&sptlrpc_conf_lock);
 883
 884         if (rc == 0)
 885                 get_default_flavor(sf);
 886
 887         flavor_set_flags(sf, from, to, 1);
 888 }
 889
 890 /**
 891  * called by target devices, determine the expected flavor from
 892  * certain peer (from, nid).
 893  */
 894 void sptlrpc_target_choose_flavor(struct sptlrpc_rule_set *rset,
 895                                   enum lustre_sec_part from,
 896                                   lnet_nid_t nid,
 897                                   struct sptlrpc_flavor *sf)
 898 {
 899         if (sptlrpc_rule_set_choose(rset, from, LUSTRE_SP_ANY, nid, sf) == 0)
 900                 get_default_flavor(sf);
 901 }
 902
 903 #define SEC_ADAPT_DELAY         (10)
 904
 905 /**
 906  * called by client devices, notify the sptlrpc config has changed and
 907  * do import_sec_adapt later.
 908  */
 909 void sptlrpc_conf_client_adapt(struct obd_device *obd)
 910 {
 911         struct obd_import  *imp;
 912         ENTRY;
 913
 914         LASSERT(strcmp(obd->obd_type->typ_name, LUSTRE_MDC_NAME) == 0 ||
 915                 strcmp(obd->obd_type->typ_name, LUSTRE_OSC_NAME) == 0 ||
 916                 strcmp(obd->obd_type->typ_name, LUSTRE_OSP_NAME) == 0 ||
 917                 strcmp(obd->obd_type->typ_name, LUSTRE_LWP_NAME) == 0);
 918         CDEBUG(D_SEC, "obd %s\n", obd->u.cli.cl_target_uuid.uuid);
 919
 920         /* serialize with connect/disconnect import */
 921         down_read_nested(&obd->u.cli.cl_sem, OBD_CLI_SEM_MDCOSC);
 922
 923         imp = obd->u.cli.cl_import;
 924         if (imp) {
 925                 spin_lock(&imp->imp_lock);
 926                 if (imp->imp_sec)
 927                         imp->imp_sec_expire = cfs_time_current_sec() +
 928                                 SEC_ADAPT_DELAY;
 929                 spin_unlock(&imp->imp_lock);
 930         }
 931
 932         up_read(&obd->u.cli.cl_sem);
 933         EXIT;
 934 }
 935 EXPORT_SYMBOL(sptlrpc_conf_client_adapt);
 936
 937
 938 static void rule2string(struct sptlrpc_rule *r, char *buf, int buflen)
 939 {
 940         char     dirbuf[8];
 941         char     net[LNET_NIDSTR_SIZE] = "default";
 942         char    *ptr = buf;
 943
 944         if (r->sr_netid != LNET_NIDNET(LNET_NID_ANY))
 945                 libcfs_net2str_r(r->sr_netid, net, sizeof(net));
 946
 947         if (r->sr_from == LUSTRE_SP_ANY && r->sr_to == LUSTRE_SP_ANY)
 948                 dirbuf[0] = '\0';
 949         else
 950                 snprintf(dirbuf, sizeof(dirbuf), ".%s2%s",
 951                          sptlrpc_part2name(r->sr_from),
 952                          sptlrpc_part2name(r->sr_to));
 953
 954         ptr += snprintf(buf, buflen, "srpc.flavor.%s%s=", net, dirbuf);
 955
 956         sptlrpc_flavor2name(&r->sr_flvr, ptr, buflen - (ptr - buf));
 957         buf[buflen - 1] = '\0';
 958 }
 959
 960 static int sptlrpc_record_rule_set(struct llog_handle *llh,
 961                                    char *target,
 962                                    struct sptlrpc_rule_set *rset)
 963 {
 964         struct llog_cfg_rec     *lcr;
 965         struct lustre_cfg_bufs   bufs;
 966         char                     param[48];
 967         int                      i, rc;
 968
 969         for (i = 0; i < rset->srs_nrule; i++) {
 970                 rule2string(&rset->srs_rules[i], param, sizeof(param));
 971
 972                 lustre_cfg_bufs_reset(&bufs, NULL);
 973                 lustre_cfg_bufs_set_string(&bufs, 1, target);
 974                 lustre_cfg_bufs_set_string(&bufs, 2, param);
 975                 lcr = lustre_cfg_rec_new(LCFG_SPTLRPC_CONF, &bufs);
 976                 if (lcr == NULL)
 977                         return -ENOMEM;
 978                 rc = llog_write(NULL, llh, &lcr->lcr_hdr, LLOG_NEXT_IDX);
 979                 lustre_cfg_rec_free(lcr);
 980                 if (rc)
 981                         return rc;
 982         }
 983         return 0;
 984 }
 985
 986 static int sptlrpc_record_rules(struct llog_handle *llh,
 987                                 struct sptlrpc_conf *conf)
 988 {
 989         struct sptlrpc_conf_tgt *conf_tgt;
 990
 991         sptlrpc_record_rule_set(llh, conf->sc_fsname, &conf->sc_rset);
 992
 993         list_for_each_entry(conf_tgt, &conf->sc_tgts, sct_list) {
 994                 sptlrpc_record_rule_set(llh, conf_tgt->sct_name,
 995                                         &conf_tgt->sct_rset);
 996         }
 997         return 0;
 998 }
 999
1000 #define LOG_SPTLRPC_TMP "sptlrpc.tmp"
1001 #define LOG_SPTLRPC     "sptlrpc"
1002
1003 static
1004 int sptlrpc_target_local_copy_conf(struct obd_device *obd,
1005                                    struct sptlrpc_conf *conf)
1006 {
1007         struct llog_handle   *llh = NULL;
1008         struct llog_ctxt     *ctxt;
1009         struct lvfs_run_ctxt  saved;
1010         struct dentry        *dentry;
1011         int                   rc;
1012         ENTRY;
1013
1014         ctxt = llog_get_context(obd, LLOG_CONFIG_ORIG_CTXT);
1015         if (ctxt == NULL)
1016                 RETURN(-EINVAL);
1017
1018         push_ctxt(&saved, &obd->obd_lvfs_ctxt);
1019
1020         dentry = ll_lookup_one_len(MOUNT_CONFIGS_DIR, current->fs->pwd.dentry,
1021                                    strlen(MOUNT_CONFIGS_DIR));
1022         if (IS_ERR(dentry)) {
1023                 rc = PTR_ERR(dentry);
1024                 CERROR("cannot lookup %s directory: rc = %d\n",
1025                        MOUNT_CONFIGS_DIR, rc);
1026                 GOTO(out_ctx, rc);
1027         }
1028
1029         /* erase the old tmp log */
1030         rc = llog_erase(NULL, ctxt, NULL, LOG_SPTLRPC_TMP);
1031         if (rc < 0 && rc != -ENOENT) {
1032                 CERROR("%s: cannot erase temporary sptlrpc log: rc = %d\n",
1033                        obd->obd_name, rc);
1034                 GOTO(out_dput, rc);
1035         }
1036
1037         /* write temporary log */
1038         rc = llog_open_create(NULL, ctxt, &llh, NULL, LOG_SPTLRPC_TMP);
1039         if (rc)
1040                 GOTO(out_dput, rc);
1041         rc = llog_init_handle(NULL, llh, LLOG_F_IS_PLAIN, NULL);
1042         if (rc)
1043                 GOTO(out_close, rc);
1044
1045         rc = sptlrpc_record_rules(llh, conf);
1046
1047 out_close:
1048         llog_close(NULL, llh);
1049         if (rc == 0)
1050                 rc = lustre_rename(dentry, obd->obd_lvfs_ctxt.pwdmnt,
1051                                    LOG_SPTLRPC_TMP, LOG_SPTLRPC);
1052 out_dput:
1053         dput(dentry);
1054 out_ctx:
1055         pop_ctxt(&saved, &obd->obd_lvfs_ctxt);
1056         llog_ctxt_put(ctxt);
1057         CDEBUG(D_SEC, "target %s: write local sptlrpc conf: rc = %d\n",
1058                 obd->obd_name, rc);
1059         RETURN(rc);
1060 }
1061
1062 static int local_read_handler(const struct lu_env *env,
1063                               struct llog_handle *llh,
1064                               struct llog_rec_hdr *rec, void *data)
1065 {
1066         struct sptlrpc_conf  *conf = (struct sptlrpc_conf *) data;
1067         struct lustre_cfg    *lcfg = (struct lustre_cfg *)(rec + 1);
1068         int                   cfg_len, rc;
1069         ENTRY;
1070
1071         if (rec->lrh_type != OBD_CFG_REC) {
1072                 CERROR("unhandled lrh_type: %#x\n", rec->lrh_type);
1073                 RETURN(-EINVAL);
1074         }
1075
1076         cfg_len = rec->lrh_len - sizeof(struct llog_rec_hdr) -
1077                   sizeof(struct llog_rec_tail);
1078
1079         rc = lustre_cfg_sanity_check(lcfg, cfg_len);
1080         if (rc) {
1081                 CERROR("Insane cfg\n");
1082                 RETURN(rc);
1083         }
1084
1085         if (lcfg->lcfg_command != LCFG_SPTLRPC_CONF) {
1086                 CERROR("invalid command (%x)\n", lcfg->lcfg_command);
1087                 RETURN(-EINVAL);
1088         }
1089
1090         RETURN(__sptlrpc_process_config(lcfg, conf));
1091 }
1092
1093 static
1094 int sptlrpc_target_local_read_conf(struct obd_device *obd,
1095                                    struct sptlrpc_conf *conf)
1096 {
1097         struct llog_handle    *llh = NULL;
1098         struct llog_ctxt      *ctxt;
1099         struct lvfs_run_ctxt   saved;
1100         int                    rc;
1101         ENTRY;
1102
1103         LASSERT(conf->sc_updated == 0 && conf->sc_local == 0);
1104
1105         ctxt = llog_get_context(obd, LLOG_CONFIG_ORIG_CTXT);
1106         if (ctxt == NULL) {
1107                 CERROR("missing llog context\n");
1108                 RETURN(-EINVAL);
1109         }
1110
1111         push_ctxt(&saved, &obd->obd_lvfs_ctxt);
1112
1113         rc = llog_open(NULL, ctxt, &llh, NULL, LOG_SPTLRPC, LLOG_OPEN_EXISTS);
1114         if (rc < 0) {
1115                 if (rc == -ENOENT)
1116                         rc = 0;
1117                 GOTO(out_pop, rc);
1118         }
1119
1120         rc = llog_init_handle(NULL, llh, LLOG_F_IS_PLAIN, NULL);
1121         if (rc)
1122                 GOTO(out_close, rc);
1123
1124         if (llog_get_size(llh) <= 1) {
1125                 CDEBUG(D_SEC, "no local sptlrpc copy found\n");
1126                 GOTO(out_close, rc = 0);
1127         }
1128
1129         rc = llog_process(NULL, llh, local_read_handler, (void *)conf, NULL);
1130
1131         if (rc == 0) {
1132                 conf->sc_local = 1;
1133         } else {
1134                 sptlrpc_conf_free_rsets(conf);
1135         }
1136
1137 out_close:
1138         llog_close(NULL, llh);
1139 out_pop:
1140         pop_ctxt(&saved, &obd->obd_lvfs_ctxt);
1141         llog_ctxt_put(ctxt);
1142         CDEBUG(D_SEC, "target %s: read local sptlrpc conf: rc = %d\n",
1143                 obd->obd_name, rc);
1144         RETURN(rc);
1145 }
1146
1147
1148 /**
1149  * called by target devices, extract sptlrpc rules which applies to
1150  * this target, to be used for future rpc flavor checking.
1151  */
1152 int sptlrpc_conf_target_get_rules(struct obd_device *obd,
1153                                   struct sptlrpc_rule_set *rset,
1154                                   int initial)
1155 {
1156         struct sptlrpc_conf      *conf;
1157         struct sptlrpc_conf_tgt  *conf_tgt;
1158         enum lustre_sec_part      sp_dst;
1159         char                      fsname[MTI_NAME_MAXLEN];
1160         int                       rc = 0;
1161         ENTRY;
1162
1163         if (strcmp(obd->obd_type->typ_name, LUSTRE_MDT_NAME) == 0) {
1164                 sp_dst = LUSTRE_SP_MDT;
1165         } else if (strcmp(obd->obd_type->typ_name, LUSTRE_OST_NAME) == 0) {
1166                 sp_dst = LUSTRE_SP_OST;
1167         } else {
1168                 CERROR("unexpected obd type %s\n", obd->obd_type->typ_name);
1169                 RETURN(-EINVAL);
1170         }
1171         CDEBUG(D_SEC, "get rules for target %s\n", obd->obd_uuid.uuid);
1172
1173         target2fsname(obd->obd_uuid.uuid, fsname, sizeof(fsname));
1174
1175         mutex_lock(&sptlrpc_conf_lock);
1176
1177         conf = sptlrpc_conf_get(fsname, 0);
1178         if (conf == NULL) {
1179                 CERROR("missing sptlrpc config log\n");
1180                 GOTO(out, rc);
1181         }
1182
1183         if (conf->sc_updated  == 0) {
1184                 /*
1185                  * always read from local copy. here another option is
1186                  * if we already have a local copy (read from another
1187                  * target device hosted on the same node) we simply use that.
1188                  */
1189                 if (conf->sc_local)
1190                         sptlrpc_conf_free_rsets(conf);
1191
1192                 sptlrpc_target_local_read_conf(obd, conf);
1193         } else {
1194                 LASSERT(conf->sc_local == 0);
1195
1196                 /* write a local copy */
1197                 if (initial || conf->sc_modified)
1198                         sptlrpc_target_local_copy_conf(obd, conf);
1199                 else
1200                         CDEBUG(D_SEC, "unchanged, skip updating local copy\n");
1201         }
1202
1203         /* extract rule set for this target */
1204         conf_tgt = sptlrpc_conf_get_tgt(conf, obd->obd_name, 0);
1205
1206         rc = sptlrpc_rule_set_extract(&conf->sc_rset,
1207                                       conf_tgt ? &conf_tgt->sct_rset: NULL,
1208                                       LUSTRE_SP_ANY, sp_dst, rset);
1209 out:
1210         mutex_unlock(&sptlrpc_conf_lock);
1211         RETURN(rc);
1212 }
1213
1214 int  sptlrpc_conf_init(void)
1215 {
1216         INIT_LIST_HEAD(&sptlrpc_confs);
1217         mutex_init(&sptlrpc_conf_lock);
1218         return 0;
1219 }
1220
1221 void sptlrpc_conf_fini(void)
1222 {
1223         struct sptlrpc_conf  *conf, *conf_next;
1224
1225         mutex_lock(&sptlrpc_conf_lock);
1226         list_for_each_entry_safe(conf, conf_next, &sptlrpc_confs, sc_list)
1227                 sptlrpc_conf_free(conf);
1228         LASSERT(list_empty(&sptlrpc_confs));
1229         mutex_unlock(&sptlrpc_conf_lock);
1230 }