source3/modules/vfs_hpuxacl.c

   1 /*
   2  * Unix SMB/Netbios implementation.
   3  * VFS module to get and set HP-UX ACLs
   4  * Copyright (C) Michael Adam 2006,2008
   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 as published by
   8  * the Free Software Foundation; either version 3 of the License, or
   9  * (at your option) any later version.
  10  *
  11  * This program is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14  * GNU General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU General Public License
  17  * along with this program; if not, see <http://www.gnu.org/licenses/>.
  18  */
  19
  20 /*
  21  * This module supports JFS (POSIX) ACLs on VxFS (Veritas * Filesystem).
  22  * These are available on HP-UX 11.00 if JFS 3.3 is installed.
  23  * On HP-UX 11i (11.11 and above) these ACLs are supported out of
  24  * the box.
  25  *
  26  * There is another form of ACLs on HFS. These ACLs have a
  27  * completely different API and their own set of userland tools.
  28  * Since HFS seems to be considered deprecated, HFS acls
  29  * are not supported. (They could be supported through a separate
  30  * vfs-module if there is demand.)
  31  */
  32
  33 /* =================================================================
  34  * NOTE:
  35  *
  36  * The original hpux-acl code in lib/sysacls.c was based upon the
  37  * solaris acl code in the same file. Now for the new modularized
  38  * acl implementation, I have taken the code from vfs_solarisacls.c
  39  * and did similar adaptations as were done before, essentially
  40  * reusing the original internal aclsort functions.
  41  * The check for the presence of the acl() call has been adopted, and
  42  * a check for the presence of the aclsort() call has been added.
  43  *
  44  * Michael Adam <obnox@samba.org>
  45  *
  46  * ================================================================= */
  47
  48
  49 #include "includes.h"
  50
  51 /*
  52  * including standard header <sys/aclv.h>
  53  *
  54  * included here as a quick hack for the special HP-UX-situation:
  55  *
  56  * The problem is that, on HP-UX, jfs/posix acls are
  57  * defined in <sys/aclv.h>, while the deprecated hfs acls
  58  * are defined inside <sys/acl.h>.
  59  *
  60  */
  61 /* GROUP is defined somewhere else so undef it here... */
  62 #undef GROUP
  63 #include <sys/aclv.h>
  64 /* dl.h: needed to check for acl call via shl_findsym */
  65 #include <dl.h>
  66
  67 typedef struct acl HPUX_ACE_T;
  68 typedef struct acl *HPUX_ACL_T;
  69 typedef int HPUX_ACL_TAG_T;   /* the type of an ACL entry */
  70 typedef ushort HPUX_PERM_T;
  71
  72 /* Structure to capture the count for each type of ACE.
  73  * (for hpux_internal_aclsort */
  74 struct hpux_acl_types {
  75         int n_user;
  76         int n_def_user;
  77         int n_user_obj;
  78         int n_def_user_obj;
  79
  80         int n_group;
  81         int n_def_group;
  82         int n_group_obj;
  83         int n_def_group_obj;
  84
  85         int n_other;
  86         int n_other_obj;
  87         int n_def_other_obj;
  88
  89         int n_class_obj;
  90         int n_def_class_obj;
  91
  92         int n_illegal_obj;
  93 };
  94
  95 /* for convenience: check if hpux acl entry is a default entry?  */
  96 #define _IS_DEFAULT(ace) ((ace).a_type & ACL_DEFAULT)
  97 #define _IS_OF_TYPE(ace, type) ( \
  98         (((type) == SMB_ACL_TYPE_ACCESS) && !_IS_DEFAULT(ace)) \
  99         || \
 100         (((type) == SMB_ACL_TYPE_DEFAULT) && _IS_DEFAULT(ace)) \
 101 )
 102
 103
 104 /* prototypes for private functions */
 105
 106 static HPUX_ACL_T hpux_acl_init(int count);
 107 static bool smb_acl_to_hpux_acl(SMB_ACL_T smb_acl,
 108                 HPUX_ACL_T *solariacl, int *count,
 109                 SMB_ACL_TYPE_T type);
 110 static SMB_ACL_T hpux_acl_to_smb_acl(HPUX_ACL_T hpuxacl, int count,
 111                 SMB_ACL_TYPE_T type);
 112 static HPUX_ACL_TAG_T smb_tag_to_hpux_tag(SMB_ACL_TAG_T smb_tag);
 113 static SMB_ACL_TAG_T hpux_tag_to_smb_tag(HPUX_ACL_TAG_T hpux_tag);
 114 static bool hpux_add_to_acl(HPUX_ACL_T *hpux_acl, int *count,
 115                 HPUX_ACL_T add_acl, int add_count, SMB_ACL_TYPE_T type);
 116 static bool hpux_acl_get_file(const char *name, HPUX_ACL_T *hpuxacl,
 117                 int *count);
 118 static SMB_ACL_PERM_T hpux_perm_to_smb_perm(const HPUX_PERM_T perm);
 119 static HPUX_PERM_T smb_perm_to_hpux_perm(const SMB_ACL_PERM_T perm);
 120 #if 0
 121 static bool hpux_acl_check(HPUX_ACL_T hpux_acl, int count);
 122 #endif
 123 /* aclsort (internal) and helpers: */
 124 static bool hpux_acl_sort(HPUX_ACL_T acl, int count);
 125 static int hpux_internal_aclsort(int acl_count, int calclass, HPUX_ACL_T aclp);
 126 static void hpux_count_obj(int acl_count, HPUX_ACL_T aclp,
 127                 struct hpux_acl_types *acl_type_count);
 128 static void hpux_swap_acl_entries(HPUX_ACE_T *aclp0, HPUX_ACE_T *aclp1);
 129 static bool hpux_prohibited_duplicate_type(int acl_type);
 130
 131 static bool hpux_acl_call_present(void);
 132 static bool hpux_aclsort_call_present(void);
 133
 134
 135 /* public functions - the api */
 136
 137 SMB_ACL_T hpuxacl_sys_acl_get_file(vfs_handle_struct *handle,
 138                                       const char *path_p,
 139                                       SMB_ACL_TYPE_T type)
 140 {
 141         SMB_ACL_T result = NULL;
 142         int count;
 143         HPUX_ACL_T hpux_acl = NULL;
 144
 145         DEBUG(10, ("hpuxacl_sys_acl_get_file called for file '%s'.\n",
 146                    path_p));
 147
 148         if(hpux_acl_call_present() == False) {
 149                 /* Looks like we don't have the acl() system call on HPUX.
 150                  * May be the system doesn't have the latest version of JFS.
 151                  */
 152                 goto done;
 153         }
 154
 155         if (type != SMB_ACL_TYPE_ACCESS && type != SMB_ACL_TYPE_DEFAULT) {
 156                 DEBUG(10, ("invalid SMB_ACL_TYPE given (%d)\n", type));
 157                 errno = EINVAL;
 158                 goto done;
 159         }
 160
 161         DEBUGADD(10, ("getting %s acl\n",
 162                       ((type == SMB_ACL_TYPE_ACCESS) ? "access" : "default")));
 163
 164         if (!hpux_acl_get_file(path_p, &hpux_acl, &count)) {
 165                 goto done;
 166         }
 167         result = hpux_acl_to_smb_acl(hpux_acl, count, type);
 168         if (result == NULL) {
 169                 DEBUG(10, ("conversion hpux_acl -> smb_acl failed (%s).\n",
 170                            strerror(errno)));
 171         }
 172
 173  done:
 174         DEBUG(10, ("hpuxacl_sys_acl_get_file %s.\n",
 175                    ((result == NULL) ? "failed" : "succeeded" )));
 176         SAFE_FREE(hpux_acl);
 177         return result;
 178 }
 179
 180
 181 /*
 182  * get the access ACL of a file referred to by a fd
 183  */
 184 SMB_ACL_T hpuxacl_sys_acl_get_fd(vfs_handle_struct *handle,
 185                                  files_struct *fsp)
 186 {
 187         /*
 188          * HPUX doesn't have the facl call. Fake it using the path.... JRA.
 189          */
 190         /* For all I see, the info should already be in the fsp
 191          * parameter, but get it again to be safe --- necessary? */
 192         files_struct *file_struct_p = file_find_fd(fsp->conn->sconn,
 193                                                    fsp->fh->fd);
 194         if (file_struct_p == NULL) {
 195                 errno = EBADF;
 196                 return NULL;
 197         }
 198         /*
 199          * We know we're in the same conn context. So we
 200          * can use the relative path.
 201          */
 202         DEBUG(10, ("redirecting call of hpuxacl_sys_acl_get_fd to "
 203                 "hpuxacl_sys_acl_get_file (no facl syscall on HPUX).\n"));
 204
 205         return hpuxacl_sys_acl_get_file(handle,
 206                                         file_struct_p->fsp_name->base_name,
 207                                         SMB_ACL_TYPE_ACCESS);
 208 }
 209
 210
 211 int hpuxacl_sys_acl_set_file(vfs_handle_struct *handle,
 212                              const char *name,
 213                              SMB_ACL_TYPE_T type,
 214                              SMB_ACL_T theacl)
 215 {
 216         int ret = -1;
 217         HPUX_ACL_T hpux_acl = NULL;
 218         int count;
 219         struct smb_filename *smb_fname = NULL;
 220         NTSTATUS status;
 221
 222         DEBUG(10, ("hpuxacl_sys_acl_set_file called for file '%s'\n",
 223                    name));
 224
 225         status = create_synthetic_smb_fname(talloc_tos(), name, NULL, NULL,
 226                                             &smb_fname);
 227         if (!NT_STATUS_IS_OK(status)) {
 228                 goto done;
 229         }
 230
 231         if(hpux_acl_call_present() == False) {
 232                 /* Looks like we don't have the acl() system call on HPUX.
 233                  * May be the system doesn't have the latest version of JFS.
 234                  */
 235                 goto done;
 236         }
 237
 238         if ((type != SMB_ACL_TYPE_ACCESS) && (type != SMB_ACL_TYPE_DEFAULT)) {
 239                 errno = EINVAL;
 240                 DEBUG(10, ("invalid smb acl type given (%d).\n", type));
 241                 goto done;
 242         }
 243         DEBUGADD(10, ("setting %s acl\n",
 244                       ((type == SMB_ACL_TYPE_ACCESS) ? "access" : "default")));
 245
 246         if(!smb_acl_to_hpux_acl(theacl, &hpux_acl, &count, type)) {
 247                 DEBUG(10, ("conversion smb_acl -> hpux_acl failed (%s).\n",
 248                            strerror(errno)));
 249                 goto done;
 250         }
 251
 252         /*
 253          * if the file is a directory, there is extra work to do:
 254          * since the hpux acl call stores both the access acl and
 255          * the default acl as provided, we have to get the acl part
 256          * that has _not_ been specified in "type" from the file first
 257          * and concatenate it with the acl provided.
 258          */
 259         if (lp_posix_pathnames()) {
 260                 ret = SMB_VFS_LSTAT(handle->conn, smb_fname);
 261         } else {
 262                 ret = SMB_VFS_STAT(handle->conn, smb_fname);
 263         }
 264         if (ret != 0) {
 265                 DEBUG(10, ("Error in stat call: %s\n", strerror(errno)));
 266                 goto done;
 267         }
 268         if (S_ISDIR(smb_fname->st.st_ex_mode)) {
 269                 HPUX_ACL_T other_acl;
 270                 int other_count;
 271                 SMB_ACL_TYPE_T other_type;
 272
 273                 other_type = (type == SMB_ACL_TYPE_ACCESS)
 274                         ? SMB_ACL_TYPE_DEFAULT
 275                         : SMB_ACL_TYPE_ACCESS;
 276                 DEBUGADD(10, ("getting acl from filesystem\n"));
 277                 if (!hpux_acl_get_file(smb_fname->base_name, &other_acl,
 278                                        &other_count)) {
 279                         DEBUG(10, ("error getting acl from directory\n"));
 280                         goto done;
 281                 }
 282                 DEBUG(10, ("adding %s part of fs acl to given acl\n",
 283                            ((other_type == SMB_ACL_TYPE_ACCESS)
 284                             ? "access"
 285                             : "default")));
 286                 if (!hpux_add_to_acl(&hpux_acl, &count, other_acl,
 287                                         other_count, other_type))
 288                 {
 289                         DEBUG(10, ("error adding other acl.\n"));
 290                         SAFE_FREE(other_acl);
 291                         goto done;
 292                 }
 293                 SAFE_FREE(other_acl);
 294         }
 295         else if (type != SMB_ACL_TYPE_ACCESS) {
 296                 errno = EINVAL;
 297                 goto done;
 298         }
 299
 300         if (!hpux_acl_sort(hpux_acl, count)) {
 301                 DEBUG(10, ("resulting acl is not valid!\n"));
 302                 goto done;
 303         }
 304         DEBUG(10, ("resulting acl is valid.\n"));
 305
 306         ret = acl(CONST_DISCARD(char *, smb_fname->base_name), ACL_SET, count,
 307                   hpux_acl);
 308         if (ret != 0) {
 309                 DEBUG(0, ("ERROR calling acl: %s\n", strerror(errno)));
 310         }
 311
 312  done:
 313         DEBUG(10, ("hpuxacl_sys_acl_set_file %s.\n",
 314                    ((ret != 0) ? "failed" : "succeeded")));
 315         TALLOC_FREE(smb_fname);
 316         SAFE_FREE(hpux_acl);
 317         return ret;
 318 }
 319
 320 /*
 321  * set the access ACL on the file referred to by a fd
 322  */
 323 int hpuxacl_sys_acl_set_fd(vfs_handle_struct *handle,
 324                               files_struct *fsp,
 325                               SMB_ACL_T theacl)
 326 {
 327         /*
 328          * HPUX doesn't have the facl call. Fake it using the path.... JRA.
 329          */
 330         /* For all I see, the info should already be in the fsp
 331          * parameter, but get it again to be safe --- necessary? */
 332         files_struct *file_struct_p = file_find_fd(fsp->conn->sconn,
 333                                                    fsp->fh->fd);
 334         if (file_struct_p == NULL) {
 335                 errno = EBADF;
 336                 return -1;
 337         }
 338         /*
 339          * We know we're in the same conn context. So we
 340          * can use the relative path.
 341          */
 342         DEBUG(10, ("redirecting call of hpuxacl_sys_acl_set_fd to "
 343                 "hpuxacl_sys_acl_set_file (no facl syscall on HPUX)\n"));
 344
 345         return hpuxacl_sys_acl_set_file(handle,
 346                                         file_struct_p->fsp_name->base_name,
 347                                         SMB_ACL_TYPE_ACCESS, theacl);
 348 }
 349
 350
 351 /*
 352  * delete the default ACL of a directory
 353  *
 354  * This is achieved by fetching the access ACL and rewriting it
 355  * directly, via the hpux system call: the ACL_SET call on
 356  * directories writes both the access and the default ACL as provided.
 357  *
 358  * XXX: posix acl_delete_def_file returns an error if
 359  * the file referred to by path is not a directory.
 360  * this function does not complain but the actions
 361  * have no effect on a file other than a directory.
 362  * But sys_acl_delete_default_file is only called in
 363  * smbd/posixacls.c after having checked that the file
 364  * is a directory, anyways. So implementing the extra
 365  * check is considered unnecessary. --- Agreed? XXX
 366  */
 367 int hpuxacl_sys_acl_delete_def_file(vfs_handle_struct *handle,
 368                                     const char *path)
 369 {
 370         SMB_ACL_T smb_acl;
 371         int ret = -1;
 372         HPUX_ACL_T hpux_acl;
 373         int count;
 374
 375         DEBUG(10, ("entering hpuxacl_sys_acl_delete_def_file.\n"));
 376
 377         smb_acl = hpuxacl_sys_acl_get_file(handle, path,
 378                                            SMB_ACL_TYPE_ACCESS);
 379         if (smb_acl == NULL) {
 380                 DEBUG(10, ("getting file acl failed!\n"));
 381                 goto done;
 382         }
 383         if (!smb_acl_to_hpux_acl(smb_acl, &hpux_acl, &count,
 384                                  SMB_ACL_TYPE_ACCESS))
 385         {
 386                 DEBUG(10, ("conversion smb_acl -> hpux_acl failed.\n"));
 387                 goto done;
 388         }
 389         if (!hpux_acl_sort(hpux_acl, count)) {
 390                 DEBUG(10, ("resulting acl is not valid!\n"));
 391                 goto done;
 392         }
 393         ret = acl(CONST_DISCARD(char *, path), ACL_SET, count, hpux_acl);
 394         if (ret != 0) {
 395                 DEBUG(10, ("settinge file acl failed!\n"));
 396         }
 397
 398  done:
 399         DEBUG(10, ("hpuxacl_sys_acl_delete_def_file %s.\n",
 400                    ((ret != 0) ? "failed" : "succeeded" )));
 401         SAFE_FREE(smb_acl);
 402         return ret;
 403 }
 404
 405
 406 /*
 407  * private functions
 408  */
 409
 410 static HPUX_ACL_T hpux_acl_init(int count)
 411 {
 412         HPUX_ACL_T hpux_acl =
 413                 (HPUX_ACL_T)SMB_MALLOC(sizeof(HPUX_ACE_T) * count);
 414         if (hpux_acl == NULL) {
 415                 errno = ENOMEM;
 416         }
 417         return hpux_acl;
 418 }
 419
 420 /*
 421  * Convert the SMB acl to the ACCESS or DEFAULT part of a
 422  * hpux ACL, as desired.
 423  */
 424 static bool smb_acl_to_hpux_acl(SMB_ACL_T smb_acl,
 425                                    HPUX_ACL_T *hpux_acl, int *count,
 426                                    SMB_ACL_TYPE_T type)
 427 {
 428         bool ret = False;
 429         int i;
 430         int check_which, check_rc;
 431
 432         DEBUG(10, ("entering smb_acl_to_hpux_acl\n"));
 433
 434         *hpux_acl = NULL;
 435         *count = 0;
 436
 437         for (i = 0; i < smb_acl->count; i++) {
 438                 const struct smb_acl_entry *smb_entry = &(smb_acl->acl[i]);
 439                 HPUX_ACE_T hpux_entry;
 440
 441                 ZERO_STRUCT(hpux_entry);
 442
 443                 hpux_entry.a_type = smb_tag_to_hpux_tag(smb_entry->a_type);
 444                 if (hpux_entry.a_type == 0) {
 445                         DEBUG(10, ("smb_tag to hpux_tag failed\n"));
 446                         goto fail;
 447                 }
 448                 switch(hpux_entry.a_type) {
 449                 case USER:
 450                         DEBUG(10, ("got tag type USER with uid %d\n",
 451                                    smb_entry->uid));
 452                         hpux_entry.a_id = (uid_t)smb_entry->uid;
 453                         break;
 454                 case GROUP:
 455                         DEBUG(10, ("got tag type GROUP with gid %d\n",
 456                                    smb_entry->gid));
 457                         hpux_entry.a_id = (uid_t)smb_entry->gid;
 458                         break;
 459                 default:
 460                         break;
 461                 }
 462                 if (type == SMB_ACL_TYPE_DEFAULT) {
 463                         DEBUG(10, ("adding default bit to hpux ace\n"));
 464                         hpux_entry.a_type |= ACL_DEFAULT;
 465                 }
 466
 467                 hpux_entry.a_perm =
 468                         smb_perm_to_hpux_perm(smb_entry->a_perm);
 469                 DEBUG(10, ("assembled the following hpux ace:\n"));
 470                 DEBUGADD(10, (" - type: 0x%04x\n", hpux_entry.a_type));
 471                 DEBUGADD(10, (" - id: %d\n", hpux_entry.a_id));
 472                 DEBUGADD(10, (" - perm: o%o\n", hpux_entry.a_perm));
 473                 if (!hpux_add_to_acl(hpux_acl, count, &hpux_entry,
 474                                         1, type))
 475                 {
 476                         DEBUG(10, ("error adding acl entry\n"));
 477                         goto fail;
 478                 }
 479                 DEBUG(10, ("count after adding: %d (i: %d)\n", *count, i));
 480                 DEBUG(10, ("test, if entry has been copied into acl:\n"));
 481                 DEBUGADD(10, (" - type: 0x%04x\n",
 482                               (*hpux_acl)[(*count)-1].a_type));
 483                 DEBUGADD(10, (" - id: %d\n",
 484                               (*hpux_acl)[(*count)-1].a_id));
 485                 DEBUGADD(10, (" - perm: o%o\n",
 486                               (*hpux_acl)[(*count)-1].a_perm));
 487         }
 488
 489         ret = True;
 490         goto done;
 491
 492  fail:
 493         SAFE_FREE(*hpux_acl);
 494  done:
 495         DEBUG(10, ("smb_acl_to_hpux_acl %s\n",
 496                    ((ret == True) ? "succeeded" : "failed")));
 497         return ret;
 498 }
 499
 500 /*
 501  * convert either the access or the default part of a
 502  * soaris acl to the SMB_ACL format.
 503  */
 504 static SMB_ACL_T hpux_acl_to_smb_acl(HPUX_ACL_T hpux_acl, int count,
 505                                         SMB_ACL_TYPE_T type)
 506 {
 507         SMB_ACL_T result;
 508         int i;
 509
 510         if ((result = sys_acl_init(0)) == NULL) {
 511                 DEBUG(10, ("error allocating memory for SMB_ACL\n"));
 512                 goto fail;
 513         }
 514         for (i = 0; i < count; i++) {
 515                 SMB_ACL_ENTRY_T smb_entry;
 516                 SMB_ACL_PERM_T smb_perm;
 517
 518                 if (!_IS_OF_TYPE(hpux_acl[i], type)) {
 519                         continue;
 520                 }
 521                 result = SMB_REALLOC(result,
 522                                      sizeof(struct smb_acl_t) +
 523                                      (sizeof(struct smb_acl_entry) *
 524                                       (result->count + 1)));
 525                 if (result == NULL) {
 526                         DEBUG(10, ("error reallocating memory for SMB_ACL\n"));
 527                         goto fail;
 528                 }
 529                 smb_entry = &result->acl[result->count];
 530                 if (sys_acl_set_tag_type(smb_entry,
 531                                          hpux_tag_to_smb_tag(hpux_acl[i].a_type)) != 0)
 532                 {
 533                         DEBUG(10, ("invalid tag type given: 0x%04x\n",
 534                                    hpux_acl[i].a_type));
 535                         goto fail;
 536                 }
 537                 /* intentionally not checking return code here: */
 538                 sys_acl_set_qualifier(smb_entry, (void *)&hpux_acl[i].a_id);
 539                 smb_perm = hpux_perm_to_smb_perm(hpux_acl[i].a_perm);
 540                 if (sys_acl_set_permset(smb_entry, &smb_perm) != 0) {
 541                         DEBUG(10, ("invalid permset given: %d\n",
 542                                    hpux_acl[i].a_perm));
 543                         goto fail;
 544                 }
 545                 result->count += 1;
 546         }
 547         goto done;
 548
 549  fail:
 550         SAFE_FREE(result);
 551  done:
 552         DEBUG(10, ("hpux_acl_to_smb_acl %s\n",
 553                    ((result == NULL) ? "failed" : "succeeded")));
 554         return result;
 555 }
 556
 557
 558
 559 static HPUX_ACL_TAG_T smb_tag_to_hpux_tag(SMB_ACL_TAG_T smb_tag)
 560 {
 561         HPUX_ACL_TAG_T hpux_tag = 0;
 562
 563         DEBUG(10, ("smb_tag_to_hpux_tag\n"));
 564         DEBUGADD(10, (" --> got smb tag 0x%04x\n", smb_tag));
 565
 566         switch (smb_tag) {
 567         case SMB_ACL_USER:
 568                 hpux_tag = USER;
 569                 break;
 570         case SMB_ACL_USER_OBJ:
 571                 hpux_tag = USER_OBJ;
 572                 break;
 573         case SMB_ACL_GROUP:
 574                 hpux_tag = GROUP;
 575                 break;
 576         case SMB_ACL_GROUP_OBJ:
 577                 hpux_tag = GROUP_OBJ;
 578                 break;
 579         case SMB_ACL_OTHER:
 580                 hpux_tag = OTHER_OBJ;
 581                 break;
 582         case SMB_ACL_MASK:
 583                 hpux_tag = CLASS_OBJ;
 584                 break;
 585         default:
 586                 DEBUGADD(10, (" !!! unknown smb tag type 0x%04x\n", smb_tag));
 587                 break;
 588         }
 589
 590         DEBUGADD(10, (" --> determined hpux tag 0x%04x\n", hpux_tag));
 591
 592         return hpux_tag;
 593 }
 594
 595 static SMB_ACL_TAG_T hpux_tag_to_smb_tag(HPUX_ACL_TAG_T hpux_tag)
 596 {
 597         SMB_ACL_TAG_T smb_tag = 0;
 598
 599         DEBUG(10, ("hpux_tag_to_smb_tag:\n"));
 600         DEBUGADD(10, (" --> got hpux tag 0x%04x\n", hpux_tag));
 601
 602         hpux_tag &= ~ACL_DEFAULT;
 603
 604         switch (hpux_tag) {
 605         case USER:
 606                 smb_tag = SMB_ACL_USER;
 607                 break;
 608         case USER_OBJ:
 609                 smb_tag = SMB_ACL_USER_OBJ;
 610                 break;
 611         case GROUP:
 612                 smb_tag = SMB_ACL_GROUP;
 613                 break;
 614         case GROUP_OBJ:
 615                 smb_tag = SMB_ACL_GROUP_OBJ;
 616                 break;
 617         case OTHER_OBJ:
 618                 smb_tag = SMB_ACL_OTHER;
 619                 break;
 620         case CLASS_OBJ:
 621                 smb_tag = SMB_ACL_MASK;
 622                 break;
 623         default:
 624                 DEBUGADD(10, (" !!! unknown hpux tag type: 0x%04x\n",
 625                                         hpux_tag));
 626                 break;
 627         }
 628
 629         DEBUGADD(10, (" --> determined smb tag 0x%04x\n", smb_tag));
 630
 631         return smb_tag;
 632 }
 633
 634
 635 /*
 636  * The permission bits used in the following two permission conversion
 637  * functions are same, but the functions make us independent of the concrete
 638  * permission data types.
 639  */
 640 static SMB_ACL_PERM_T hpux_perm_to_smb_perm(const HPUX_PERM_T perm)
 641 {
 642         SMB_ACL_PERM_T smb_perm = 0;
 643         smb_perm |= ((perm & SMB_ACL_READ) ? SMB_ACL_READ : 0);
 644         smb_perm |= ((perm & SMB_ACL_WRITE) ? SMB_ACL_WRITE : 0);
 645         smb_perm |= ((perm & SMB_ACL_EXECUTE) ? SMB_ACL_EXECUTE : 0);
 646         return smb_perm;
 647 }
 648
 649
 650 static HPUX_PERM_T smb_perm_to_hpux_perm(const SMB_ACL_PERM_T perm)
 651 {
 652         HPUX_PERM_T hpux_perm = 0;
 653         hpux_perm |= ((perm & SMB_ACL_READ) ? SMB_ACL_READ : 0);
 654         hpux_perm |= ((perm & SMB_ACL_WRITE) ? SMB_ACL_WRITE : 0);
 655         hpux_perm |= ((perm & SMB_ACL_EXECUTE) ? SMB_ACL_EXECUTE : 0);
 656         return hpux_perm;
 657 }
 658
 659
 660 static bool hpux_acl_get_file(const char *name, HPUX_ACL_T *hpux_acl,
 661                                  int *count)
 662 {
 663         bool result = False;
 664         static HPUX_ACE_T dummy_ace;
 665
 666         DEBUG(10, ("hpux_acl_get_file called for file '%s'\n", name));
 667
 668         /*
 669          * The original code tries some INITIAL_ACL_SIZE
 670          * and only did the ACL_CNT call upon failure
 671          * (for performance reasons).
 672          * For the sake of simplicity, I skip this for now.
 673          *
 674          * NOTE: There is a catch here on HP-UX: acl with cmd parameter
 675          * ACL_CNT fails with errno EINVAL when called with a NULL
 676          * pointer as last argument. So we need to use a dummy acl
 677          * struct here (we make it static so it does not need to be
 678          * instantiated or malloced each time this function is
 679          * called). Btw: the count parameter does not seem to matter...
 680          */
 681         *count = acl(CONST_DISCARD(char *, name), ACL_CNT, 0, &dummy_ace);
 682         if (*count < 0) {
 683                 DEBUG(10, ("acl ACL_CNT failed: %s\n", strerror(errno)));
 684                 goto done;
 685         }
 686         *hpux_acl = hpux_acl_init(*count);
 687         if (*hpux_acl == NULL) {
 688                 DEBUG(10, ("error allocating memory for hpux acl...\n"));
 689                 goto done;
 690         }
 691         *count = acl(CONST_DISCARD(char *, name), ACL_GET, *count, *hpux_acl);
 692         if (*count < 0) {
 693                 DEBUG(10, ("acl ACL_GET failed: %s\n", strerror(errno)));
 694                 goto done;
 695         }
 696         result = True;
 697
 698  done:
 699         DEBUG(10, ("hpux_acl_get_file %s.\n",
 700                    ((result == True) ? "succeeded" : "failed" )));
 701         return result;
 702 }
 703
 704
 705
 706
 707 /*
 708  * Add entries to a hpux ACL.
 709  *
 710  * Entries are directly added to the hpuxacl parameter.
 711  * if memory allocation fails, this may result in hpuxacl
 712  * being NULL. if the resulting acl is to be checked and is
 713  * not valid, it is kept in hpuxacl but False is returned.
 714  *
 715  * The type of ACEs (access/default) to be added to the ACL can
 716  * be selected via the type parameter.
 717  * I use the SMB_ACL_TYPE_T type here. Since SMB_ACL_TYPE_ACCESS
 718  * is defined as "0", this means that one can only add either
 719  * access or default ACEs from the given ACL, not both at the same
 720  * time. If it should become necessary to add all of an ACL, one
 721  * would have to replace this parameter by another type.
 722  */
 723 static bool hpux_add_to_acl(HPUX_ACL_T *hpux_acl, int *count,
 724                                HPUX_ACL_T add_acl, int add_count,
 725                                SMB_ACL_TYPE_T type)
 726 {
 727         int i;
 728
 729         if ((type != SMB_ACL_TYPE_ACCESS) && (type != SMB_ACL_TYPE_DEFAULT))
 730         {
 731                 DEBUG(10, ("invalid acl type given: %d\n", type));
 732                 errno = EINVAL;
 733                 return False;
 734         }
 735         for (i = 0; i < add_count; i++) {
 736                 if (!_IS_OF_TYPE(add_acl[i], type)) {
 737                         continue;
 738                 }
 739                 ADD_TO_ARRAY(NULL, HPUX_ACE_T, add_acl[i],
 740                              hpux_acl, count);
 741                 if (hpux_acl == NULL) {
 742                         DEBUG(10, ("error enlarging acl.\n"));
 743                         errno = ENOMEM;
 744                         return False;
 745                 }
 746         }
 747         return True;
 748 }
 749
 750
 751 /*
 752  * sort the ACL and check it for validity
 753  *
 754  * [original comment from lib/sysacls.c:]
 755  *
 756  * if it's a minimal ACL with only 4 entries then we
 757  * need to recalculate the mask permissions to make
 758  * sure that they are the same as the GROUP_OBJ
 759  * permissions as required by the UnixWare acl() system call.
 760  *
 761  * (note: since POSIX allows minimal ACLs which only contain
 762  * 3 entries - ie there is no mask entry - we should, in theory,
 763  * check for this and add a mask entry if necessary - however
 764  * we "know" that the caller of this interface always specifies
 765  * a mask, so in practice "this never happens" (tm) - if it *does*
 766  * happen aclsort() will fail and return an error and someone will
 767  * have to fix it...)
 768  */
 769 static bool hpux_acl_sort(HPUX_ACL_T hpux_acl, int count)
 770 {
 771         int fixmask = (count <= 4);
 772
 773         if (hpux_internal_aclsort(count, fixmask, hpux_acl) != 0) {
 774                 errno = EINVAL;
 775                 return False;
 776         }
 777         return True;
 778 }
 779
 780
 781 /*
 782  * Helpers for hpux_internal_aclsort:
 783  *   - hpux_count_obj
 784  *   - hpux_swap_acl_entries
 785  *   - hpux_prohibited_duplicate_type
 786  *   - hpux_get_needed_class_perm
 787  */
 788
 789 /* hpux_count_obj:
 790  * Counts the different number of objects in a given array of ACL
 791  * structures.
 792  * Inputs:
 793  *
 794  * acl_count      - Count of ACLs in the array of ACL strucutres.
 795  * aclp           - Array of ACL structures.
 796  * acl_type_count - Pointer to acl_types structure. Should already be
 797  *                  allocated.
 798  * Output:
 799  *
 800  * acl_type_count - This structure is filled up with counts of various
 801  *                  acl types.
 802  */
 803
 804 static void hpux_count_obj(int acl_count, HPUX_ACL_T aclp, struct hpux_acl_types *acl_type_count)
 805 {
 806         int i;
 807
 808         memset(acl_type_count, 0, sizeof(struct hpux_acl_types));
 809
 810         for(i=0;i<acl_count;i++) {
 811                 switch(aclp[i].a_type) {
 812                 case USER:
 813                         acl_type_count->n_user++;
 814                         break;
 815                 case USER_OBJ:
 816                         acl_type_count->n_user_obj++;
 817                         break;
 818                 case DEF_USER_OBJ:
 819                         acl_type_count->n_def_user_obj++;
 820                         break;
 821                 case GROUP:
 822                         acl_type_count->n_group++;
 823                         break;
 824                 case GROUP_OBJ:
 825                         acl_type_count->n_group_obj++;
 826                         break;
 827                 case DEF_GROUP_OBJ:
 828                         acl_type_count->n_def_group_obj++;
 829                         break;
 830                 case OTHER_OBJ:
 831                         acl_type_count->n_other_obj++;
 832                         break;
 833                 case DEF_OTHER_OBJ:
 834                         acl_type_count->n_def_other_obj++;
 835                         break;
 836                 case CLASS_OBJ:
 837                         acl_type_count->n_class_obj++;
 838                         break;
 839                 case DEF_CLASS_OBJ:
 840                         acl_type_count->n_def_class_obj++;
 841                         break;
 842                 case DEF_USER:
 843                         acl_type_count->n_def_user++;
 844                         break;
 845                 case DEF_GROUP:
 846                         acl_type_count->n_def_group++;
 847                         break;
 848                 default:
 849                         acl_type_count->n_illegal_obj++;
 850                         break;
 851                 }
 852         }
 853 }
 854
 855 /* hpux_swap_acl_entries:  Swaps two ACL entries.
 856  *
 857  * Inputs: aclp0, aclp1 - ACL entries to be swapped.
 858  */
 859
 860 static void hpux_swap_acl_entries(HPUX_ACE_T *aclp0, HPUX_ACE_T *aclp1)
 861 {
 862         HPUX_ACE_T temp_acl;
 863
 864         temp_acl.a_type = aclp0->a_type;
 865         temp_acl.a_id = aclp0->a_id;
 866         temp_acl.a_perm = aclp0->a_perm;
 867
 868         aclp0->a_type = aclp1->a_type;
 869         aclp0->a_id = aclp1->a_id;
 870         aclp0->a_perm = aclp1->a_perm;
 871
 872         aclp1->a_type = temp_acl.a_type;
 873         aclp1->a_id = temp_acl.a_id;
 874         aclp1->a_perm = temp_acl.a_perm;
 875 }
 876
 877 /* hpux_prohibited_duplicate_type
 878  * Identifies if given ACL type can have duplicate entries or
 879  * not.
 880  *
 881  * Inputs: acl_type - ACL Type.
 882  *
 883  * Outputs:
 884  *
 885  * Return..
 886  *
 887  * True - If the ACL type matches any of the prohibited types.
 888  * False - If the ACL type doesn't match any of the prohibited types.
 889  */
 890
 891 static bool hpux_prohibited_duplicate_type(int acl_type)
 892 {
 893         switch(acl_type) {
 894                 case USER:
 895                 case GROUP:
 896                 case DEF_USER:
 897                 case DEF_GROUP:
 898                         return True;
 899                 default:
 900                         return False;
 901         }
 902 }
 903
 904 /* hpux_get_needed_class_perm
 905  * Returns the permissions of a ACL structure only if the ACL
 906  * type matches one of the pre-determined types for computing
 907  * CLASS_OBJ permissions.
 908  *
 909  * Inputs: aclp - Pointer to ACL structure.
 910  */
 911
 912 static int hpux_get_needed_class_perm(struct acl *aclp)
 913 {
 914         switch(aclp->a_type) {
 915                 case USER:
 916                 case GROUP_OBJ:
 917                 case GROUP:
 918                 case DEF_USER_OBJ:
 919                 case DEF_USER:
 920                 case DEF_GROUP_OBJ:
 921                 case DEF_GROUP:
 922                 case DEF_CLASS_OBJ:
 923                 case DEF_OTHER_OBJ:
 924                         return aclp->a_perm;
 925                 default:
 926                         return 0;
 927         }
 928 }
 929
 930 /* hpux_internal_aclsort: aclsort for HPUX.
 931  *
 932  * -> The aclsort() system call is availabe on the latest HPUX General
 933  * -> Patch Bundles. So for HPUX, we developed our version of aclsort
 934  * -> function. Because, we don't want to update to a new
 935  * -> HPUX GR bundle just for aclsort() call.
 936  *
 937  * aclsort sorts the array of ACL structures as per the description in
 938  * aclsort man page. Refer to aclsort man page for more details
 939  *
 940  * Inputs:
 941  *
 942  * acl_count - Count of ACLs in the array of ACL structures.
 943  * calclass  - If this is not zero, then we compute the CLASS_OBJ
 944  *             permissions.
 945  * aclp      - Array of ACL structures.
 946  *
 947  * Outputs:
 948  *
 949  * aclp     - Sorted array of ACL structures.
 950  *
 951  * Outputs:
 952  *
 953  * Returns 0 for success -1 for failure. Prints a message to the Samba
 954  * debug log in case of failure.
 955  */
 956
 957 static int hpux_internal_aclsort(int acl_count, int calclass, HPUX_ACL_T aclp)
 958 {
 959         struct hpux_acl_types acl_obj_count;
 960         int n_class_obj_perm = 0;
 961         int i, j;
 962
 963         DEBUG(10,("Entering hpux_internal_aclsort. (calclass = %d)\n", calclass));
 964
 965         if (hpux_aclsort_call_present()) {
 966                 DEBUG(10, ("calling hpux aclsort\n"));
 967                 return aclsort(acl_count, calclass, aclp);
 968         }
 969
 970         DEBUG(10, ("using internal aclsort\n"));
 971
 972         if(!acl_count) {
 973                 DEBUG(10,("Zero acl count passed. Returning Success\n"));
 974                 return 0;
 975         }
 976
 977         if(aclp == NULL) {
 978                 DEBUG(0,("Null ACL pointer in hpux_acl_sort. Returning Failure. \n"));
 979                 return -1;
 980         }
 981
 982         /* Count different types of ACLs in the ACLs array */
 983
 984         hpux_count_obj(acl_count, aclp, &acl_obj_count);
 985
 986         /* There should be only one entry each of type USER_OBJ, GROUP_OBJ,
 987          * CLASS_OBJ and OTHER_OBJ
 988          */
 989
 990         if ( (acl_obj_count.n_user_obj  != 1) ||
 991                 (acl_obj_count.n_group_obj != 1) ||
 992                 (acl_obj_count.n_class_obj != 1) ||
 993                 (acl_obj_count.n_other_obj != 1) )
 994         {
 995                 DEBUG(0,("hpux_internal_aclsort: More than one entry or no entries for \
 996 USER OBJ or GROUP_OBJ or OTHER_OBJ or CLASS_OBJ\n"));
 997                 return -1;
 998         }
 999
1000         /* If any of the default objects are present, there should be only
1001          * one of them each.
1002          */
1003
1004         if ( (acl_obj_count.n_def_user_obj  > 1) ||
1005                 (acl_obj_count.n_def_group_obj > 1) ||
1006                 (acl_obj_count.n_def_other_obj > 1) ||
1007                 (acl_obj_count.n_def_class_obj > 1) )
1008         {
1009                 DEBUG(0,("hpux_internal_aclsort: More than one entry for DEF_CLASS_OBJ \
1010 or DEF_USER_OBJ or DEF_GROUP_OBJ or DEF_OTHER_OBJ\n"));
1011                 return -1;
1012         }
1013
1014         /* We now have proper number of OBJ and DEF_OBJ entries. Now sort the acl
1015          * structures.
1016          *
1017          * Sorting crieteria - First sort by ACL type. If there are multiple entries of
1018          * same ACL type, sort by ACL id.
1019          *
1020          * I am using the trival kind of sorting method here because, performance isn't
1021          * really effected by the ACLs feature. More over there aren't going to be more
1022          * than 17 entries on HPUX.
1023          */
1024
1025         for(i=0; i<acl_count;i++) {
1026                 for (j=i+1; j<acl_count; j++) {
1027                         if( aclp[i].a_type > aclp[j].a_type ) {
1028                                 /* ACL entries out of order, swap them */
1029                                 hpux_swap_acl_entries((aclp+i), (aclp+j));
1030                         } else if ( aclp[i].a_type == aclp[j].a_type ) {
1031                                 /* ACL entries of same type, sort by id */
1032                                 if(aclp[i].a_id > aclp[j].a_id) {
1033                                         hpux_swap_acl_entries((aclp+i), (aclp+j));
1034                                 } else if (aclp[i].a_id == aclp[j].a_id) {
1035                                         /* We have a duplicate entry. */
1036                                         if(hpux_prohibited_duplicate_type(aclp[i].a_type)) {
1037                                                 DEBUG(0, ("hpux_internal_aclsort: Duplicate entry: Type(hex): %x Id: %d\n",
1038                                                         aclp[i].a_type, aclp[i].a_id));
1039                                                 return -1;
1040                                         }
1041                                 }
1042                         }
1043                 }
1044         }
1045
1046         /* set the class obj permissions to the computed one. */
1047         if(calclass) {
1048                 int n_class_obj_index = -1;
1049
1050                 for(i=0;i<acl_count;i++) {
1051                         n_class_obj_perm |= hpux_get_needed_class_perm((aclp+i));
1052
1053                         if(aclp[i].a_type == CLASS_OBJ)
1054                                 n_class_obj_index = i;
1055                 }
1056                 aclp[n_class_obj_index].a_perm = n_class_obj_perm;
1057         }
1058
1059         return 0;
1060 }
1061
1062
1063 /*
1064  * hpux_acl_call_present:
1065  *
1066  * This checks if the POSIX ACL system call is defined
1067  * which basically corresponds to whether JFS 3.3 or
1068  * higher is installed. If acl() was called when it
1069  * isn't defined, it causes the process to core dump
1070  * so it is important to check this and avoid acl()
1071  * calls if it isn't there.
1072  */
1073
1074 static bool hpux_acl_call_present(void)
1075 {
1076
1077         shl_t handle = NULL;
1078         void *value;
1079         int ret_val=0;
1080         static bool already_checked = False;
1081
1082         if(already_checked)
1083                 return True;
1084
1085         errno = 0;
1086
1087         ret_val = shl_findsym(&handle, "acl", TYPE_PROCEDURE, &value);
1088
1089         if(ret_val != 0) {
1090                 DEBUG(5, ("hpux_acl_call_present: shl_findsym() returned %d, errno = %d, error %s\n",
1091                         ret_val, errno, strerror(errno)));
1092                 DEBUG(5,("hpux_acl_call_present: acl() system call is not present. Check if you have JFS 3.3 and above?\n"));
1093                 errno = ENOSYS;
1094                 return False;
1095         }
1096
1097         DEBUG(10,("hpux_acl_call_present: acl() system call is present. We have JFS 3.3 or above \n"));
1098
1099         already_checked = True;
1100         return True;
1101 }
1102
1103 /*
1104  * runtime check for presence of aclsort library call.
1105  * same code as for acl call. if there are more of these,
1106  * a dispatcher function could be handy...
1107  */
1108
1109 static bool hpux_aclsort_call_present(void)
1110 {
1111         shl_t handle = NULL;
1112         void *value;
1113         int ret_val = 0;
1114         static bool already_checked = False;
1115
1116         if (already_checked) {
1117                 return True;
1118         }
1119
1120         errno = 0;
1121         ret_val = shl_findsym(&handle, "aclsort", TYPE_PROCEDURE, &value);
1122         if (ret_val != 0) {
1123                 DEBUG(5, ("hpux_aclsort_call_present: shl_findsym "
1124                         "returned %d, errno = %d, error %s",
1125                         ret_val, errno, strerror(errno)));
1126                 DEBUG(5, ("hpux_aclsort_call_present: "
1127                         "aclsort() function not available.\n"));
1128                 return False;
1129         }
1130         DEBUG(10,("hpux_aclsort_call_present: aclsort() function present.\n"));
1131         already_checked = True;
1132         return True;
1133 }
1134
1135 #if 0
1136 /*
1137  * acl check function:
1138  *   unused at the moment but could be used to get more
1139  *   concrete error messages for debugging...
1140  *   (acl sort just says that the acl is invalid...)
1141  */
1142 static bool hpux_acl_check(HPUX_ACL_T hpux_acl, int count)
1143 {
1144         int check_rc;
1145         int check_which;
1146
1147         check_rc = aclcheck(hpux_acl, count, &check_which);
1148         if (check_rc != 0) {
1149                 DEBUG(10, ("acl is not valid:\n"));
1150                 DEBUGADD(10, (" - return code: %d\n", check_rc));
1151                 DEBUGADD(10, (" - which: %d\n", check_which));
1152                 if (check_which != -1) {
1153                         DEBUGADD(10, (" - invalid entry:\n"));
1154                         DEBUGADD(10, ("   * type: %d:\n",
1155                                       hpux_acl[check_which].a_type));
1156                         DEBUGADD(10, ("   * id: %d\n",
1157                                       hpux_acl[check_which].a_id));
1158                         DEBUGADD(10, ("   * perm: 0o%o\n",
1159                                       hpux_acl[check_which].a_perm));
1160                 }
1161                 return False;
1162         }
1163         return True;
1164 }
1165 #endif
1166
1167 /* VFS operations structure */
1168
1169 static struct vfs_fn_pointers hpuxacl_fns = {
1170         .sys_acl_get_file = hpuxacl_sys_acl_get_file,
1171         .sys_acl_get_fd = hpuxacl_sys_acl_get_fd,
1172         .sys_acl_set_file = hpuxacl_sys_acl_set_file,
1173         .sys_acl_set_fd = hpuxacl_sys_acl_set_fd,
1174         .sys_acl_delete_def_file = hpuxacl_sys_acl_delete_def_file,
1175 };
1176
1177 NTSTATUS vfs_hpuxacl_init(void)
1178 {
1179         return smb_register_vfs(SMB_VFS_INTERFACE_VERSION, "hpuxacl",
1180                                 &hpuxacl_fns);
1181 }
1182
1183 /* ENTE */