lustre/llite/xattr.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) 2007, 2010, Oracle and/or its affiliates. All rights reserved.
  24  * Use is subject to license terms.
  25  *
  26  * Copyright (c) 2011, 2016, 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 #include <linux/fs.h>
  34 #include <linux/sched.h>
  35 #include <linux/mm.h>
  36 #include <linux/xattr.h>
  37 #include <linux/selinux.h>
  38
  39 #define DEBUG_SUBSYSTEM S_LLITE
  40
  41 #include <obd_support.h>
  42 #include <lustre_dlm.h>
  43 #include <lustre_ver.h>
  44 #include <lustre_eacl.h>
  45
  46 #include "llite_internal.h"
  47
  48 /* xattr related to IMA(Integrity Measurement Architecture) */
  49 #ifndef XATTR_NAME_IMA
  50 #define XATTR_NAME_IMA          "security.ima"
  51 #endif
  52 #ifndef XATTR_NAME_EVM
  53 #define XATTR_NAME_EVM          "security.evm"
  54 #endif
  55
  56 #define XATTR_USER_T            (1)
  57 #define XATTR_TRUSTED_T         (2)
  58 #define XATTR_SECURITY_T        (3)
  59 #define XATTR_ACL_ACCESS_T      (4)
  60 #define XATTR_ACL_DEFAULT_T     (5)
  61 #define XATTR_LUSTRE_T          (6)
  62 #define XATTR_OTHER_T           (7)
  63
  64 static
  65 int get_xattr_type(const char *name)
  66 {
  67         if (!strcmp(name, XATTR_NAME_POSIX_ACL_ACCESS))
  68                 return XATTR_ACL_ACCESS_T;
  69
  70         if (!strcmp(name, XATTR_NAME_POSIX_ACL_DEFAULT))
  71                 return XATTR_ACL_DEFAULT_T;
  72
  73         if (!strncmp(name, XATTR_USER_PREFIX,
  74                      sizeof(XATTR_USER_PREFIX) - 1))
  75                 return XATTR_USER_T;
  76
  77         if (!strncmp(name, XATTR_TRUSTED_PREFIX,
  78                      sizeof(XATTR_TRUSTED_PREFIX) - 1))
  79                 return XATTR_TRUSTED_T;
  80
  81         if (!strncmp(name, XATTR_SECURITY_PREFIX,
  82                      sizeof(XATTR_SECURITY_PREFIX) - 1))
  83                 return XATTR_SECURITY_T;
  84
  85         if (!strncmp(name, XATTR_LUSTRE_PREFIX,
  86                      sizeof(XATTR_LUSTRE_PREFIX) - 1))
  87                 return XATTR_LUSTRE_T;
  88
  89         return XATTR_OTHER_T;
  90 }
  91
  92 static
  93 int xattr_type_filter(struct ll_sb_info *sbi, int xattr_type)
  94 {
  95         if ((xattr_type == XATTR_ACL_ACCESS_T ||
  96              xattr_type == XATTR_ACL_DEFAULT_T) &&
  97            !(sbi->ll_flags & LL_SBI_ACL))
  98                 return -EOPNOTSUPP;
  99
 100         if (xattr_type == XATTR_USER_T && !(sbi->ll_flags & LL_SBI_USER_XATTR))
 101                 return -EOPNOTSUPP;
 102         if (xattr_type == XATTR_TRUSTED_T && !cfs_capable(CFS_CAP_SYS_ADMIN))
 103                 return -EPERM;
 104         if (xattr_type == XATTR_OTHER_T)
 105                 return -EOPNOTSUPP;
 106
 107         return 0;
 108 }
 109
 110 static
 111 int ll_setxattr_common(struct inode *inode, const char *name,
 112                        const void *value, size_t size,
 113                        int flags, __u64 valid)
 114 {
 115         struct ll_sb_info *sbi = ll_i2sbi(inode);
 116         struct ptlrpc_request *req = NULL;
 117         int xattr_type, rc;
 118         const char *pv = value;
 119         ENTRY;
 120
 121         /*FIXME: enable IMA when the conditions are ready */
 122         if (strncmp(name, XATTR_NAME_IMA,
 123                     sizeof(XATTR_NAME_IMA)) == 0 ||
 124             strncmp(name, XATTR_NAME_EVM,
 125                     sizeof(XATTR_NAME_EVM)) == 0)
 126                 return -EOPNOTSUPP;
 127
 128         xattr_type = get_xattr_type(name);
 129         rc = xattr_type_filter(sbi, xattr_type);
 130         if (rc)
 131                 RETURN(rc);
 132
 133         if ((xattr_type == XATTR_ACL_ACCESS_T ||
 134              xattr_type == XATTR_ACL_DEFAULT_T) &&
 135 #ifdef HAVE_INODE_OWNER_OR_CAPABLE
 136             !inode_owner_or_capable(inode))
 137 #else
 138             !is_owner_or_cap(inode))
 139 #endif
 140                 return -EPERM;
 141
 142         /* b10667: ignore lustre special xattr for now */
 143         if (strcmp(name, XATTR_NAME_HSM) == 0 ||
 144                 (xattr_type == XATTR_TRUSTED_T &&
 145                 strcmp(name, XATTR_NAME_LOV) == 0) ||
 146                 (xattr_type == XATTR_LUSTRE_T &&
 147                  strcmp(name, "lustre.lov") == 0))
 148                 RETURN(0);
 149
 150         /* LU-549:  Disable security.selinux when selinux is disabled */
 151         if (xattr_type == XATTR_SECURITY_T && !selinux_is_enabled() &&
 152             strcmp(name, "security.selinux") == 0)
 153                 RETURN(-EOPNOTSUPP);
 154
 155         /* In user.* namespace, only regular files and directories can have
 156          * extended attributes. */
 157         if (xattr_type == XATTR_USER_T) {
 158                 if (!S_ISREG(inode->i_mode) && !S_ISDIR(inode->i_mode))
 159                         RETURN(-EPERM);
 160         }
 161
 162         rc = md_setxattr(sbi->ll_md_exp, ll_inode2fid(inode), valid, name, pv,
 163                          size, 0, flags, ll_i2suppgid(inode), &req);
 164         if (rc) {
 165                 if (rc == -EOPNOTSUPP && xattr_type == XATTR_USER_T) {
 166                         LCONSOLE_INFO("Disabling user_xattr feature because "
 167                                       "it is not supported on the server\n");
 168                         sbi->ll_flags &= ~LL_SBI_USER_XATTR;
 169                 }
 170                 RETURN(rc);
 171         }
 172
 173         ptlrpc_req_finished(req);
 174         RETURN(0);
 175 }
 176
 177 static int get_hsm_state(struct inode *inode, __u32 *hus_states)
 178 {
 179         struct md_op_data *op_data;
 180         struct hsm_user_state *hus;
 181         int rc;
 182
 183         OBD_ALLOC_PTR(hus);
 184         if (hus == NULL)
 185                 return -ENOMEM;
 186
 187         op_data = ll_prep_md_op_data(NULL, inode, NULL, NULL, 0, 0,
 188                                      LUSTRE_OPC_ANY, hus);
 189         if (!IS_ERR(op_data)) {
 190                 rc = obd_iocontrol(LL_IOC_HSM_STATE_GET, ll_i2mdexp(inode),
 191                                    sizeof(*op_data), op_data, NULL);
 192                 if (rc == 0)
 193                         *hus_states = hus->hus_states;
 194                 else
 195                         CDEBUG(D_VFSTRACE, "obd_iocontrol failed. rc = %d\n",
 196                                rc);
 197
 198                 ll_finish_md_op_data(op_data);
 199         } else {
 200                 rc = PTR_ERR(op_data);
 201                 CDEBUG(D_VFSTRACE, "Could not prepare the opdata. rc = %d\n",
 202                        rc);
 203         }
 204         OBD_FREE_PTR(hus);
 205         return rc;
 206 }
 207 int ll_setstripe_ea(struct dentry *dentry, struct lov_user_md *lump,
 208                     size_t size)
 209 {
 210         struct inode *inode = dentry->d_inode;
 211         int rc = 0;
 212         bool return_err = false;
 213
 214         if (lump != NULL && lump->lmm_magic == LOV_USER_MAGIC_COMP_V1) {
 215                 return_err = true;
 216                 goto setstripe;
 217         }
 218
 219         /* Attributes that are saved via getxattr will always have
 220          * the stripe_offset as 0.  Instead, the MDS should be
 221          * allowed to pick the starting OST index.   b=17846 */
 222         if (lump != NULL && lump->lmm_stripe_offset == 0)
 223                 lump->lmm_stripe_offset = -1;
 224         /* Avoid anyone directly setting the RELEASED flag. */
 225         if (lump != NULL &&
 226                 (lump->lmm_pattern & LOV_PATTERN_F_RELEASED)) {
 227                 /* Only if we have a released flag check if the file
 228                 * was indeed archived. */
 229                 __u32 state = HS_NONE;
 230                 rc = get_hsm_state(inode, &state);
 231                 if (rc != 0)
 232                         RETURN(rc);
 233                 if (!(state & HS_ARCHIVED)) {
 234                         CDEBUG(D_VFSTRACE,
 235                                 "hus_states state = %x, pattern = %x\n",
 236                                 state, lump->lmm_pattern);
 237                         /* Here the state is: real file is not
 238                          * archived but user is requesting to set
 239                          * the RELEASED flag so we mask off the
 240                          * released flag from the request */
 241                         lump->lmm_pattern ^= LOV_PATTERN_F_RELEASED;
 242                 }
 243         }
 244
 245 setstripe:
 246         if (lump != NULL && S_ISREG(inode->i_mode)) {
 247                 __u64 it_flags = FMODE_WRITE;
 248                 int lum_size;
 249
 250                 lum_size = ll_lov_user_md_size(lump);
 251                 /**
 252                  * b=10667: ignore error.
 253                  * Silently eat error on setting strusted.lov attribute for
 254                  * SuSE 9, it added default option to copy all attributes in
 255                  * 'cp' command.
 256                  */
 257                 if (lum_size < 0 || size < lum_size)
 258                         return return_err ? -ERANGE : 0;
 259
 260                 rc = ll_lov_setstripe_ea_info(inode, dentry, it_flags, lump,
 261                                               lum_size);
 262                 /* b=10667 */
 263                 if (!return_err)
 264                         rc = 0;
 265         } else if (S_ISDIR(inode->i_mode)) {
 266                 rc = ll_dir_setstripe(inode, lump, 0);
 267         }
 268
 269         return rc;
 270 }
 271
 272 int ll_setxattr(struct dentry *dentry, const char *name,
 273                 const void *value, size_t size, int flags)
 274 {
 275         struct inode *inode = dentry->d_inode;
 276
 277         LASSERT(inode);
 278         LASSERT(name);
 279
 280         CDEBUG(D_VFSTRACE, "VFS Op:inode="DFID"(%p), xattr %s\n",
 281                PFID(ll_inode2fid(inode)), inode, name);
 282
 283         ll_stats_ops_tally(ll_i2sbi(inode), LPROC_LL_SETXATTR, 1);
 284
 285         /* lustre/trusted.lov.xxx would be passed through xattr API */
 286         if (strcmp(name, XATTR_NAME_LOV) == 0 ||
 287             strcmp(name, XATTR_LUSTRE_LOV) == 0)
 288                 return ll_setstripe_ea(dentry, (struct lov_user_md *)value,
 289                                        size);
 290         else if (strcmp(name, XATTR_NAME_LMA) == 0 ||
 291                  strcmp(name, XATTR_NAME_LINK) == 0)
 292                 return 0;
 293
 294         return ll_setxattr_common(inode, name, value, size, flags,
 295                                   OBD_MD_FLXATTR);
 296 }
 297
 298 int ll_removexattr(struct dentry *dentry, const char *name)
 299 {
 300         struct inode *inode = dentry->d_inode;
 301
 302         LASSERT(inode);
 303         LASSERT(name);
 304
 305         CDEBUG(D_VFSTRACE, "VFS Op:inode="DFID"(%p), xattr %s\n",
 306                PFID(ll_inode2fid(inode)), inode, name);
 307
 308         ll_stats_ops_tally(ll_i2sbi(inode), LPROC_LL_REMOVEXATTR, 1);
 309         return ll_setxattr_common(inode, name, NULL, 0, 0,
 310                                   OBD_MD_FLXATTRRM);
 311 }
 312
 313 int ll_getxattr_common(struct inode *inode, const char *name,
 314                        void *buffer, size_t size, __u64 valid)
 315 {
 316         struct ll_sb_info *sbi = ll_i2sbi(inode);
 317         struct ptlrpc_request *req = NULL;
 318         struct mdt_body *body;
 319         int xattr_type, rc;
 320         void *xdata;
 321         struct ll_inode_info *lli = ll_i2info(inode);
 322         ENTRY;
 323
 324         CDEBUG(D_VFSTRACE, "VFS Op:inode="DFID"(%p)\n",
 325                PFID(ll_inode2fid(inode)), inode);
 326
 327         /* listxattr have slightly different behavior from of ext3:
 328          * without 'user_xattr' ext3 will list all xattr names but
 329          * filtered out "^user..*"; we list them all for simplicity.
 330          */
 331         if (!name) {
 332                 xattr_type = XATTR_OTHER_T;
 333                 goto do_getxattr;
 334         }
 335
 336         xattr_type = get_xattr_type(name);
 337         rc = xattr_type_filter(sbi, xattr_type);
 338         if (rc)
 339                 RETURN(rc);
 340
 341         /* LU-549:  Disable security.selinux when selinux is disabled */
 342         if (xattr_type == XATTR_SECURITY_T && !selinux_is_enabled() &&
 343             strcmp(name, "security.selinux") == 0)
 344                 RETURN(-EOPNOTSUPP);
 345
 346 #ifdef CONFIG_FS_POSIX_ACL
 347         /* posix acl is under protection of LOOKUP lock. when calling to this,
 348          * we just have path resolution to the target inode, so we have great
 349          * chance that cached ACL is uptodate.
 350          */
 351         if (xattr_type == XATTR_ACL_ACCESS_T) {
 352                 struct posix_acl *acl;
 353
 354                 spin_lock(&lli->lli_lock);
 355                 acl = posix_acl_dup(lli->lli_posix_acl);
 356                 spin_unlock(&lli->lli_lock);
 357
 358                 if (!acl)
 359                         RETURN(-ENODATA);
 360
 361                 rc = posix_acl_to_xattr(&init_user_ns, acl, buffer, size);
 362                 posix_acl_release(acl);
 363                 RETURN(rc);
 364         }
 365         if (xattr_type == XATTR_ACL_DEFAULT_T && !S_ISDIR(inode->i_mode))
 366                 RETURN(-ENODATA);
 367 #endif
 368
 369 do_getxattr:
 370         if (sbi->ll_xattr_cache_enabled &&
 371             xattr_type != XATTR_ACL_ACCESS_T &&
 372             (xattr_type != XATTR_SECURITY_T ||
 373                 strcmp(name, "security.selinux") != 0)) {
 374                 rc = ll_xattr_cache_get(inode, name, buffer, size, valid);
 375                 if (rc == -EAGAIN)
 376                         goto getxattr_nocache;
 377                 if (rc < 0)
 378                         GOTO(out_xattr, rc);
 379
 380                 /* Add "system.posix_acl_access" to the list */
 381                 if (lli->lli_posix_acl != NULL && valid & OBD_MD_FLXATTRLS) {
 382                         if (size == 0) {
 383                                 rc += sizeof(XATTR_NAME_ACL_ACCESS);
 384                         } else if (size - rc >= sizeof(XATTR_NAME_ACL_ACCESS)) {
 385                                 memcpy(buffer + rc, XATTR_NAME_ACL_ACCESS,
 386                                        sizeof(XATTR_NAME_ACL_ACCESS));
 387                                 rc += sizeof(XATTR_NAME_ACL_ACCESS);
 388                         } else {
 389                                 GOTO(out_xattr, rc = -ERANGE);
 390                         }
 391                 }
 392         } else {
 393 getxattr_nocache:
 394                 rc = md_getxattr(sbi->ll_md_exp, ll_inode2fid(inode),
 395                                 valid, name, NULL, 0, size, 0, &req);
 396
 397                 if (rc < 0)
 398                         GOTO(out_xattr, rc);
 399
 400                 body = req_capsule_server_get(&req->rq_pill, &RMF_MDT_BODY);
 401                 LASSERT(body);
 402
 403                 /* only detect the xattr size */
 404                 if (size == 0)
 405                         GOTO(out, rc = body->mbo_eadatasize);
 406
 407                 if (size < body->mbo_eadatasize) {
 408                         CERROR("server bug: replied size %u > %u\n",
 409                                 body->mbo_eadatasize, (int)size);
 410                         GOTO(out, rc = -ERANGE);
 411                 }
 412
 413                 if (body->mbo_eadatasize == 0)
 414                         GOTO(out, rc = -ENODATA);
 415
 416                 /* do not need swab xattr data */
 417                 xdata = req_capsule_server_sized_get(&req->rq_pill, &RMF_EADATA,
 418                                                         body->mbo_eadatasize);
 419                 if (!xdata)
 420                         GOTO(out, rc = -EFAULT);
 421
 422                 memcpy(buffer, xdata, body->mbo_eadatasize);
 423                 rc = body->mbo_eadatasize;
 424         }
 425
 426         EXIT;
 427
 428 out_xattr:
 429         if (rc == -EOPNOTSUPP && xattr_type == XATTR_USER_T) {
 430                 LCONSOLE_INFO("%s: disabling user_xattr feature because "
 431                                 "it is not supported on the server: rc = %d\n",
 432                                 ll_get_fsname(inode->i_sb, NULL, 0), rc);
 433                 sbi->ll_flags &= ~LL_SBI_USER_XATTR;
 434         }
 435 out:
 436         ptlrpc_req_finished(req);
 437         return rc;
 438 }
 439
 440 static ssize_t ll_getxattr_lov(struct inode *inode, void *buf, size_t buf_size)
 441 {
 442         ssize_t rc;
 443
 444         if (S_ISREG(inode->i_mode)) {
 445                 struct cl_object *obj = ll_i2info(inode)->lli_clob;
 446                 struct lu_env *env;
 447                 struct cl_layout cl = {
 448                         .cl_buf.lb_buf = buf,
 449                         .cl_buf.lb_len = buf_size,
 450                 };
 451                 __u16 refcheck;
 452
 453                 if (obj == NULL)
 454                         RETURN(-ENODATA);
 455
 456                 env = cl_env_get(&refcheck);
 457                 if (IS_ERR(env))
 458                         RETURN(PTR_ERR(env));
 459
 460                 rc = cl_object_layout_get(env, obj, &cl);
 461                 if (rc < 0)
 462                         GOTO(out_env, rc);
 463
 464                 if (cl.cl_size == 0)
 465                         GOTO(out_env, rc = -ENODATA);
 466
 467                 rc = cl.cl_size;
 468
 469                 if (buf_size == 0)
 470                         GOTO(out_env, rc);
 471
 472                 LASSERT(buf != NULL && rc <= buf_size);
 473
 474                 /* Do not return layout gen for getxattr() since
 475                  * otherwise it would confuse tar --xattr by
 476                  * recognizing layout gen as stripe offset when the
 477                  * file is restored. See LU-2809. */
 478                 if (((struct lov_mds_md *)buf)->lmm_magic == LOV_MAGIC_COMP_V1)
 479                         goto out_env;
 480
 481                 ((struct lov_mds_md *)buf)->lmm_layout_gen = 0;
 482 out_env:
 483                 cl_env_put(env, &refcheck);
 484
 485                 RETURN(rc);
 486         } else if (S_ISDIR(inode->i_mode)) {
 487                 struct lov_mds_md *lmm = NULL;
 488                 int lmm_size = 0;
 489                 struct ptlrpc_request *req = NULL;
 490
 491                 rc = ll_dir_getstripe(inode, (void **)&lmm, &lmm_size,
 492                                       &req, 0);
 493                 if (rc < 0)
 494                         GOTO(out_req, rc);
 495
 496                 if (buf_size == 0)
 497                         GOTO(out_req, rc = lmm_size);
 498
 499                 if (buf_size < lmm_size)
 500                         GOTO(out_req, rc = -ERANGE);
 501
 502                 memcpy(buf, lmm, lmm_size);
 503                 GOTO(out_req, rc = lmm_size);
 504 out_req:
 505                 if (req != NULL)
 506                         ptlrpc_req_finished(req);
 507
 508                 return rc;
 509         } else {
 510                 RETURN(-ENODATA);
 511         }
 512 }
 513
 514 ssize_t ll_getxattr(struct dentry *dentry, const char *name, void *buf,
 515                     size_t buf_size)
 516 {
 517         struct inode *inode = dentry->d_inode;
 518
 519         LASSERT(inode);
 520         LASSERT(name);
 521
 522         CDEBUG(D_VFSTRACE, "VFS Op:inode="DFID"(%p), xattr %s\n",
 523                PFID(ll_inode2fid(inode)), inode, name);
 524
 525         ll_stats_ops_tally(ll_i2sbi(inode), LPROC_LL_GETXATTR, 1);
 526
 527         if (strcmp(name, XATTR_LUSTRE_LOV) == 0 ||
 528             strcmp(name, XATTR_NAME_LOV) == 0)
 529                 return ll_getxattr_lov(inode, buf, buf_size);
 530         else
 531                 return ll_getxattr_common(inode, name, buf, buf_size,
 532                                           OBD_MD_FLXATTR);
 533 }
 534
 535 ssize_t ll_listxattr(struct dentry *dentry, char *buf, size_t buf_size)
 536 {
 537         struct inode *inode = dentry->d_inode;
 538         struct ll_sb_info *sbi = ll_i2sbi(inode);
 539         char *xattr_name;
 540         ssize_t rc, rc2;
 541         size_t len, rem;
 542
 543         CDEBUG(D_VFSTRACE, "VFS Op:inode="DFID"(%p)\n",
 544                PFID(ll_inode2fid(inode)), inode);
 545
 546         ll_stats_ops_tally(ll_i2sbi(inode), LPROC_LL_LISTXATTR, 1);
 547
 548         rc = ll_getxattr_common(inode, NULL, buf, buf_size, OBD_MD_FLXATTRLS);
 549         if (rc < 0)
 550                 RETURN(rc);
 551
 552         /* If we're being called to get the size of the xattr list
 553          * (buf_size == 0) then just assume that a lustre.lov xattr
 554          * exists. */
 555         if (buf_size == 0)
 556                 RETURN(rc + sizeof(XATTR_LUSTRE_LOV));
 557
 558         xattr_name = buf;
 559         rem = rc;
 560
 561         while (rem > 0) {
 562                 len = strnlen(xattr_name, rem - 1) + 1;
 563                 rem -= len;
 564                 if (xattr_type_filter(sbi, get_xattr_type(xattr_name)) == 0) {
 565                         /* Skip OK xattr type, leave it in buffer. */
 566                         xattr_name += len;
 567                         continue;
 568                 }
 569
 570                 /* Move up remaining xattrs in buffer removing the
 571                  * xattr that is not OK. */
 572                 memmove(xattr_name, xattr_name + len, rem);
 573                 rc -= len;
 574         }
 575
 576         rc2 = ll_getxattr_lov(inode, NULL, 0);
 577         if (rc2 == -ENODATA)
 578                 RETURN(rc);
 579
 580         if (rc2 < 0)
 581                 RETURN(rc2);
 582
 583         if (buf_size < rc + sizeof(XATTR_LUSTRE_LOV))
 584                 RETURN(-ERANGE);
 585
 586         memcpy(buf + rc, XATTR_LUSTRE_LOV, sizeof(XATTR_LUSTRE_LOV));
 587
 588         RETURN(rc + sizeof(XATTR_LUSTRE_LOV));
 589 }