etc/afpd/acls.c

   1 /*
   2   Copyright (c) 2008, 2009, 2010 Frank Lahm <franklahm@gmail.com>
   3
   4   This program is free software; you can redistribute it and/or modify
   5   it under the terms of the GNU General Public License as published by
   6   the Free Software Foundation; either version 2 of the License, or
   7   (at your option) any later version.
   8
   9   This program is distributed in the hope that it will be useful,
  10   but WITHOUT ANY WARRANTY; without even the implied warranty of
  11   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12   GNU General Public License for more details.
  13 */
  14
  15 #ifdef HAVE_CONFIG_H
  16 #include "config.h"
  17 #endif /* HAVE_CONFIG_H */
  18
  19 #include <string.h>
  20 #include <strings.h>
  21 #include <stdio.h>
  22 #include <stdlib.h>
  23 #include <grp.h>
  24 #include <pwd.h>
  25 #include <errno.h>
  26 #ifdef HAVE_SOLARIS_ACLS
  27 #include <sys/acl.h>
  28 #endif
  29 #ifdef HAVE_POSIX_ACLS
  30 #include <sys/acl.h>
  31 #include <acl/libacl.h>
  32 #endif
  33
  34 #include <atalk/errchk.h>
  35 #include <atalk/adouble.h>
  36 #include <atalk/vfs.h>
  37 #include <atalk/afp.h>
  38 #include <atalk/util.h>
  39 #include <atalk/cnid.h>
  40 #include <atalk/logger.h>
  41 #include <atalk/uuid.h>
  42 #include <atalk/acl.h>
  43 #include <atalk/bstrlib.h>
  44 #include <atalk/bstradd.h>
  45
  46 #include "directory.h"
  47 #include "desktop.h"
  48 #include "volume.h"
  49 #include "fork.h"
  50 #include "unix.h"
  51 #include "acls.h"
  52 #include "acl_mappings.h"
  53
  54 /* for map_acl() */
  55 #define SOLARIS_2_DARWIN       1
  56 #define DARWIN_2_SOLARIS       2
  57 #define POSIX_DEFAULT_2_DARWIN 3
  58 #define POSIX_ACCESS_2_DARWIN  4
  59 #define DARWIN_2_POSIX_DEFAULT 5
  60 #define DARWIN_2_POSIX_ACCESS  6
  61
  62 #define MAP_MASK               31
  63 #define IS_DIR                 32
  64
  65 /********************************************************
  66  * Solaris funcs
  67  ********************************************************/
  68
  69 #ifdef HAVE_SOLARIS_ACLS
  70
  71 /*!
  72  * Compile access rights for a user to one file-system object
  73  *
  74  * This combines combines all access rights for a user to one fs-object and
  75  * returns the result as a Darwin allowed rights ACE.
  76  * This must honor trivial ACEs which are a mode_t mapping.
  77  *
  78  * @param path           (r) path to filesystem object
  79  * @param sb             (r) struct stat of path
  80  * @param pwd            (r) struct passwd of user
  81  * @param result         (w) resulting Darwin allow ACE
  82  *
  83  * @returns                  0 or -1 on error
  84  */
  85 static int solaris_acl_rights(const char *path,
  86                               const struct stat *sb,
  87                               const struct passwd *pwd,
  88                               uint32_t *result)
  89 {
  90     EC_INIT;
  91     int      i, ace_count, checkgroup;
  92     ace_t    *aces = NULL;
  93     uid_t    who;
  94     uint16_t flags, type;
  95     uint32_t rights, allowed_rights = 0, denied_rights = 0, darwin_rights;
  96
  97     /* Get ACL from file/dir */
  98     EC_NEG1_LOG(ace_count = get_nfsv4_acl(path, &aces));
  99
 100     if (ace_count == 0) {
 101         LOG(log_warning, logtype_afpd, "Zero ACEs from get_nfsv4_acl");
 102         EC_FAIL;
 103     }
 104
 105     /* Now check requested rights */
 106     i = 0;
 107     do { /* Loop through ACEs */
 108         who = aces[i].a_who;
 109         flags = aces[i].a_flags;
 110         type = aces[i].a_type;
 111         rights = aces[i].a_access_mask;
 112
 113         if (flags & ACE_INHERIT_ONLY_ACE)
 114             continue;
 115
 116         /* Now the tricky part: decide if ACE effects our user. I'll explain:
 117            if its a dedicated (non trivial) ACE for the user
 118            OR
 119            if its a ACE for a group we're member of
 120            OR
 121            if its a trivial ACE_OWNER ACE and requested UUID is the owner
 122            OR
 123            if its a trivial ACE_GROUP ACE and requested UUID is group
 124            OR
 125            if its a trivial ACE_EVERYONE ACE
 126            THEN
 127            process ACE */
 128         if (((who == pwd->pw_uid) && !(flags & (ACE_TRIVIAL|ACE_IDENTIFIER_GROUP)))
 129             ||
 130             ((flags & ACE_IDENTIFIER_GROUP) && !(flags & ACE_GROUP) && gmem(who))
 131             ||
 132             ((flags & ACE_OWNER) && (pwd->pw_uid == sb->st_uid))
 133             ||
 134             ((flags & ACE_GROUP) && gmem(sb->st_gid))
 135             ||
 136             (flags & ACE_EVERYONE)
 137             ) {
 138             /* Found an applicable ACE */
 139             if (type == ACE_ACCESS_ALLOWED_ACE_TYPE)
 140                 allowed_rights |= rights;
 141             else if (type == ACE_ACCESS_DENIED_ACE_TYPE)
 142                 /* Only or to denied rights if not previously allowed !! */
 143                 denied_rights |= ((!allowed_rights) & rights);
 144         }
 145     } while (++i < ace_count);
 146
 147
 148     /* Darwin likes to ask for "delete_child" on dir,
 149        "write_data" is actually the same, so we add that for dirs */
 150     if (S_ISDIR(sb->st_mode) && (allowed_rights & ACE_WRITE_DATA))
 151         allowed_rights |= ACE_DELETE_CHILD;
 152
 153     /* Remove denied from allowed rights */
 154     allowed_rights &= ~denied_rights;
 155
 156     /* map rights */
 157     darwin_rights = 0;
 158     for (i=0; nfsv4_to_darwin_rights[i].from != 0; i++) {
 159         if (allowed_rights & nfsv4_to_darwin_rights[i].from)
 160             darwin_rights |= nfsv4_to_darwin_rights[i].to;
 161     }
 162
 163     *result |= darwin_rights;
 164
 165 EC_CLEANUP:
 166     if (aces) free(aces);
 167
 168     EC_EXIT;
 169 }
 170
 171 /*
 172   Maps ACE array from Solaris to Darwin. Darwin ACEs are stored in network byte order.
 173   Return numer of mapped ACEs or -1 on error.
 174   All errors while mapping (e.g. getting UUIDs from LDAP) are fatal.
 175 */
 176 static int map_aces_solaris_to_darwin(const ace_t *aces,
 177                                       darwin_ace_t *darwin_aces,
 178                                       int ace_count)
 179 {
 180     EC_INIT;
 181     int i, count = 0;
 182     uint32_t flags;
 183     uint32_t rights;
 184     struct passwd *pwd = NULL;
 185     struct group *grp = NULL;
 186
 187     LOG(log_maxdebug, logtype_afpd, "map_aces_solaris_to_darwin: parsing %d ACES", ace_count);
 188
 189     while(ace_count--) {
 190         LOG(log_maxdebug, logtype_afpd, "ACE No. %d", ace_count + 1);
 191         /* if its a ACE resulting from nfsv4 mode mapping, discard it */
 192         if (aces->a_flags & (ACE_OWNER | ACE_GROUP | ACE_EVERYONE)) {
 193             LOG(log_debug, logtype_afpd, "trivial ACE");
 194             aces++;
 195             continue;
 196         }
 197
 198         if ( ! (aces->a_flags & ACE_IDENTIFIER_GROUP) ) { /* user ace */
 199             LOG(log_debug, logtype_afpd, "uid: %d", aces->a_who);
 200             EC_NULL_LOG(pwd = getpwuid(aces->a_who));
 201             LOG(log_debug, logtype_afpd, "uid: %d -> name: %s", aces->a_who, pwd->pw_name);
 202             EC_ZERO_LOG(getuuidfromname(pwd->pw_name,
 203                                         UUID_USER,
 204                                         darwin_aces->darwin_ace_uuid));
 205         } else { /* group ace */
 206             LOG(log_debug, logtype_afpd, "gid: %d", aces->a_who);
 207             EC_NULL_LOG(grp = getgrgid(aces->a_who));
 208             LOG(log_debug, logtype_afpd, "gid: %d -> name: %s", aces->a_who, grp->gr_name);
 209             EC_ZERO_LOG(getuuidfromname(grp->gr_name,
 210                                         UUID_GROUP,
 211                                         darwin_aces->darwin_ace_uuid));
 212         }
 213
 214         /* map flags */
 215         if (aces->a_type == ACE_ACCESS_ALLOWED_ACE_TYPE)
 216             flags = DARWIN_ACE_FLAGS_PERMIT;
 217         else if (aces->a_type == ACE_ACCESS_DENIED_ACE_TYPE)
 218             flags = DARWIN_ACE_FLAGS_DENY;
 219         else {          /* unsupported type */
 220             aces++;
 221             continue;
 222         }
 223         for(i=0; nfsv4_to_darwin_flags[i].from != 0; i++) {
 224             if (aces->a_flags & nfsv4_to_darwin_flags[i].from)
 225                 flags |= nfsv4_to_darwin_flags[i].to;
 226         }
 227         darwin_aces->darwin_ace_flags = htonl(flags);
 228
 229         /* map rights */
 230         rights = 0;
 231         for (i=0; nfsv4_to_darwin_rights[i].from != 0; i++) {
 232             if (aces->a_access_mask & nfsv4_to_darwin_rights[i].from)
 233                 rights |= nfsv4_to_darwin_rights[i].to;
 234         }
 235         darwin_aces->darwin_ace_rights = htonl(rights);
 236
 237         count++;
 238         aces++;
 239         darwin_aces++;
 240     }
 241
 242     return count;
 243 EC_CLEANUP:
 244     EC_EXIT;
 245 }
 246
 247 /*
 248   Maps ACE array from Darwin to Solaris. Darwin ACEs are expected in network byte order.
 249   Return numer of mapped ACEs or -1 on error.
 250   All errors while mapping (e.g. getting UUIDs from LDAP) are fatal.
 251 */
 252 static int map_aces_darwin_to_solaris(darwin_ace_t *darwin_aces,
 253                                       ace_t *nfsv4_aces,
 254                                       int ace_count)
 255 {
 256     EC_INIT;
 257     int i, mapped_aces = 0;
 258     uint32_t darwin_ace_flags;
 259     uint32_t darwin_ace_rights;
 260     uint16_t nfsv4_ace_flags;
 261     uint32_t nfsv4_ace_rights;
 262     char *name = NULL;
 263     uuidtype_t uuidtype;
 264     struct passwd *pwd;
 265     struct group *grp;
 266
 267     while(ace_count--) {
 268         nfsv4_ace_flags = 0;
 269         nfsv4_ace_rights = 0;
 270
 271         /* uid/gid first */
 272         EC_ZERO(getnamefromuuid(darwin_aces->darwin_ace_uuid, &name, &uuidtype));
 273         switch (uuidtype) {
 274         case UUID_LOCAL:
 275             free(name);
 276             name = NULL;
 277             darwin_aces++;
 278             continue;
 279         case UUID_USER:
 280             EC_NULL_LOG(pwd = getpwnam(name));
 281             nfsv4_aces->a_who = pwd->pw_uid;
 282             break;
 283         case UUID_GROUP:
 284             EC_NULL_LOG(grp = getgrnam(name));
 285             nfsv4_aces->a_who = (uid_t)(grp->gr_gid);
 286             nfsv4_ace_flags |= ACE_IDENTIFIER_GROUP;
 287             break;
 288         }
 289         free(name);
 290         name = NULL;
 291
 292         /* now type: allow/deny */
 293         darwin_ace_flags = ntohl(darwin_aces->darwin_ace_flags);
 294         if (darwin_ace_flags & DARWIN_ACE_FLAGS_PERMIT)
 295             nfsv4_aces->a_type = ACE_ACCESS_ALLOWED_ACE_TYPE;
 296         else if (darwin_ace_flags & DARWIN_ACE_FLAGS_DENY)
 297             nfsv4_aces->a_type = ACE_ACCESS_DENIED_ACE_TYPE;
 298         else { /* unsupported type */
 299             darwin_aces++;
 300             continue;
 301         }
 302         /* map flags */
 303         for(i=0; darwin_to_nfsv4_flags[i].from != 0; i++) {
 304             if (darwin_ace_flags & darwin_to_nfsv4_flags[i].from)
 305                 nfsv4_ace_flags |= darwin_to_nfsv4_flags[i].to;
 306         }
 307
 308         /* map rights */
 309         darwin_ace_rights = ntohl(darwin_aces->darwin_ace_rights);
 310         for (i=0; darwin_to_nfsv4_rights[i].from != 0; i++) {
 311             if (darwin_ace_rights & darwin_to_nfsv4_rights[i].from)
 312                 nfsv4_ace_rights |= darwin_to_nfsv4_rights[i].to;
 313         }
 314
 315         LOG(log_debug9, logtype_afpd, "map_aces_darwin_to_solaris: ACE flags: Darwin:%08x -> NFSv4:%04x", darwin_ace_flags, nfsv4_ace_flags);
 316         LOG(log_debug9, logtype_afpd, "map_aces_darwin_to_solaris: ACE rights: Darwin:%08x -> NFSv4:%08x", darwin_ace_rights, nfsv4_ace_rights);
 317
 318         nfsv4_aces->a_flags = nfsv4_ace_flags;
 319         nfsv4_aces->a_access_mask = nfsv4_ace_rights;
 320
 321         mapped_aces++;
 322         darwin_aces++;
 323         nfsv4_aces++;
 324     }
 325
 326     return mapped_aces;
 327 EC_CLEANUP:
 328     if (name)
 329         free(name);
 330     EC_EXIT;
 331 }
 332 #endif /* HAVE_SOLARIS_ACLS */
 333
 334 /********************************************************
 335  * POSIX 1e funcs
 336  ********************************************************/
 337
 338 #ifdef HAVE_POSIX_ACLS
 339
 340 static uint32_t posix_permset_to_darwin_rights(acl_entry_t e, int is_dir)
 341 {
 342     EC_INIT;
 343     uint32_t rights = 0;
 344     acl_permset_t permset;
 345
 346     EC_ZERO_LOG(acl_get_permset(e, &permset));
 347
 348     if (acl_get_perm(permset, ACL_READ))
 349         rights = DARWIN_ACE_READ_DATA
 350             | DARWIN_ACE_READ_EXTATTRIBUTES
 351             | DARWIN_ACE_READ_ATTRIBUTES
 352             | DARWIN_ACE_READ_SECURITY;
 353     if (acl_get_perm(permset, ACL_WRITE)) {
 354         rights |= DARWIN_ACE_WRITE_DATA
 355             | DARWIN_ACE_APPEND_DATA
 356             | DARWIN_ACE_WRITE_EXTATTRIBUTES
 357             | DARWIN_ACE_WRITE_ATTRIBUTES;
 358         if (is_dir)
 359             rights |= DARWIN_ACE_DELETE_CHILD;
 360     }
 361     if (acl_get_perm(permset, ACL_EXECUTE))
 362         rights |= DARWIN_ACE_EXECUTE;
 363
 364 EC_CLEANUP:
 365     LOG(log_maxdebug, logtype_afpd, "mapped rights: 0x%08x", rights);
 366     return rights;
 367 }
 368
 369 /*!
 370  * Compile access rights for a user to one file-system object
 371  *
 372  * This combines combines all access rights for a user to one fs-object and
 373  * returns the result as a Darwin allowed rights ACE.
 374  * This must honor trivial ACEs which are a mode_t mapping.
 375  *
 376  * @param path           (r) path to filesystem object
 377  * @param sb             (r) struct stat of path
 378  * @param pwd            (r) struct passwd of user
 379  * @param result         (w) resulting Darwin allow ACE
 380  *
 381  * @returns                  0 or -1 on error
 382  */
 383 static int posix_acl_rights(const char *path,
 384                             const struct stat *sb,
 385                             const struct passwd *pwd,
 386                             uint32_t *result)
 387 {
 388     EC_INIT;
 389     int entry_id = ACL_FIRST_ENTRY;
 390     uint32_t rights = 0, maskrights = 0;
 391     uid_t *uid = NULL;
 392     gid_t *gid = NULL;
 393     acl_t acl = NULL;
 394     acl_entry_t e;
 395     acl_tag_t tag;
 396
 397     EC_NULL_LOG(acl = acl_get_file(path, ACL_TYPE_ACCESS));
 398
 399     /* itereate through all ACEs to get the mask */
 400     while (acl_get_entry(acl, entry_id, &e) == 1) {
 401         entry_id = ACL_NEXT_ENTRY;
 402         switch (tag) {
 403         case ACL_MASK:
 404             maskrights = posix_permset_to_darwin_rights(e, S_ISDIR(sb->st_mode));
 405             continue;
 406         default:
 407             continue;
 408         }
 409     }
 410
 411     /* itereate through all ACEs */
 412     entry_id = ACL_FIRST_ENTRY;
 413     while (acl_get_entry(acl, entry_id, &e) == 1) {
 414         entry_id = ACL_NEXT_ENTRY;
 415         EC_ZERO_LOG(acl_get_tag_type(e, &tag));
 416         switch (tag) {
 417         case ACL_USER:
 418             EC_NULL_LOG(uid = (uid_t *)acl_get_qualifier(e));
 419             if (*uid == pwd->pw_uid)
 420                 rights |= posix_permset_to_darwin_rights(e, S_ISDIR(sb->st_mode));
 421             acl_free(uid);
 422             uid = NULL;
 423             break;
 424         case ACL_USER_OBJ:
 425             if (sb->st_uid == pwd->pw_uid)
 426                 rights |= posix_permset_to_darwin_rights(e, S_ISDIR(sb->st_mode));
 427             break;
 428         case ACL_GROUP:
 429             EC_NULL_LOG(gid = (gid_t *)acl_get_qualifier(e));
 430             if (gmem(*gid))
 431                 rights |= (posix_permset_to_darwin_rights(e, S_ISDIR(sb->st_mode)) & maskrights);
 432             acl_free(gid);
 433             gid = NULL;
 434             break;
 435         case ACL_GROUP_OBJ:
 436             if (gmem(sb->st_gid))
 437                 rights |= posix_permset_to_darwin_rights(e, S_ISDIR(sb->st_mode));
 438         case ACL_OTHER:
 439             rights |= posix_permset_to_darwin_rights(e, S_ISDIR(sb->st_mode));
 440             break;
 441
 442         default:
 443             continue;
 444         }
 445     } /* while */
 446
 447     *result |= rights;
 448
 449 EC_CLEANUP:
 450     if (acl) acl_free(acl);
 451     if (uid) acl_free(uid);
 452     if (gid) acl_free(gid);
 453     EC_EXIT;
 454 }
 455
 456 /*!
 457  * Add entries of one acl to another acl
 458  *
 459  * @param aclp   (rw) destination acl where new aces will be added
 460  * @param acl    (r)  source acl where aces will be copied from
 461  *
 462  * @returns 0 on success, -1 on error
 463  */
 464 static int acl_add_acl(acl_t *aclp, const acl_t acl)
 465 {
 466     EC_INIT;
 467     int id;
 468     acl_entry_t se, de;
 469
 470     for (id = ACL_FIRST_ENTRY; acl_get_entry(acl, id, &se) == 1; id = ACL_NEXT_ENTRY) {
 471         EC_ZERO_LOG_ERR(acl_create_entry(aclp, &de), AFPERR_MISC);
 472         EC_ZERO_LOG_ERR(acl_copy_entry(de, se), AFPERR_MISC);
 473     }
 474
 475 EC_CLEANUP:
 476     EC_EXIT;
 477 }
 478
 479 /*!
 480  * Map Darwin ACE rights to POSIX 1e perm
 481  *
 482  * We can only map few rights:
 483  *   DARWIN_ACE_READ_DATA                    -> ACL_READ
 484  *   DARWIN_ACE_WRITE_DATA                   -> ACL_WRITE
 485  *   DARWIN_ACE_DELETE_CHILD & (is_dir == 1) -> ACL_WRITE
 486  *   DARWIN_ACE_EXECUTE                      -> ACL_EXECUTE
 487  *
 488  * @param entry             (rw) result of the mapping
 489  * @param is_dir            (r) 1 for dirs, 0 for files
 490  *
 491  * @returns mapping result as acl_perm_t, -1 on error
 492  */
 493 static acl_perm_t map_darwin_right_to_posix_permset(uint32_t darwin_ace_rights, int is_dir)
 494 {
 495     acl_perm_t perm = 0;
 496
 497     if (darwin_ace_rights & DARWIN_ACE_READ_DATA)
 498         perm |= ACL_READ;
 499
 500     if (darwin_ace_rights & (DARWIN_ACE_WRITE_DATA | (DARWIN_ACE_DELETE_CHILD & is_dir)))
 501         perm |= ACL_WRITE;
 502
 503     if (darwin_ace_rights & DARWIN_ACE_EXECUTE)
 504         perm |= ACL_EXECUTE;
 505
 506     return perm;
 507 }
 508
 509 /*!
 510  * Add a ACL_USER or ACL_GROUP permission to an ACL, extending existing ACEs
 511  *
 512  * Add a permission of "type" for user or group "id" to an ACL. Scan the ACL
 513  * for existing permissions for this type/id, if there is one add the perm,
 514  * otherwise create a new ACL entry.
 515  * perm can be or'ed ACL_READ, ACL_WRITE and ACL_EXECUTE.
 516  *
 517  * @param aclp     (rw) pointer to ACL
 518  * @param type     (r)  acl_tag_t of ACL_USER or ACL_GROUP
 519  * @param id       (r)  uid_t uid for ACL_USER, or gid casted to uid_t for ACL_GROUP
 520  * @param perm     (r)  acl_perm_t permissions to add
 521  *
 522  * @returns 0 on success, -1 on failure
 523  */
 524 static int posix_acl_add_perm(acl_t *aclp, acl_tag_t type, uid_t id, acl_perm_t perm)
 525 {
 526     EC_INIT;
 527     uid_t *eid = NULL;
 528     acl_entry_t e;
 529     acl_tag_t tag;
 530     int entry_id = ACL_FIRST_ENTRY;
 531     acl_permset_t permset;
 532
 533     int found = 0;
 534     for ( ; (! found) && acl_get_entry(*aclp, entry_id, &e) == 1; entry_id = ACL_NEXT_ENTRY) {
 535         EC_ZERO_LOG(acl_get_tag_type(e, &tag));
 536         if (tag != ACL_USER && tag != ACL_GROUP)
 537             continue;
 538         EC_NULL_LOG(eid = (uid_t *)acl_get_qualifier(e));
 539         if ((*eid == id) && (type == tag)) {
 540             /* found an ACE for this type/id */
 541             found = 1;
 542             EC_ZERO_LOG(acl_get_permset(e, &permset));
 543             EC_ZERO_LOG(acl_add_perm(permset, perm));
 544         }
 545
 546         acl_free(eid);
 547         eid = NULL;
 548     }
 549
 550     if ( ! found) {
 551         /* there was no existing ACE for this type/id */
 552         EC_ZERO_LOG(acl_create_entry(aclp, &e));
 553         EC_ZERO_LOG(acl_set_tag_type(e, type));
 554         EC_ZERO_LOG(acl_set_qualifier(e, &id));
 555         EC_ZERO_LOG(acl_get_permset(e, &permset));
 556         EC_ZERO_LOG(acl_clear_perms(permset));
 557         EC_ZERO_LOG(acl_add_perm(permset, perm));
 558         EC_ZERO_LOG(acl_set_permset(e, permset));
 559     }
 560
 561 EC_CLEANUP:
 562     if (eid) acl_free(eid);
 563
 564     EC_EXIT;
 565 }
 566
 567 /*!
 568  * Map Darwin ACL to POSIX ACL.
 569  *
 570  * aclp must point to a acl_init'ed acl_t or an acl_t that can eg contain default ACEs.
 571  * Mapping pecularities:
 572  * - we create a default ace (which inherits to files and dirs) if either
 573      DARWIN_ACE_FLAGS_FILE_INHERIT or DARWIN_ACE_FLAGS_DIRECTORY_INHERIT is requested
 574  * - we throw away DARWIN_ACE_FLAGS_LIMIT_INHERIT (can't be mapped), thus the ACL will
 575  *   not be limited
 576  *
 577  * @param darwin_aces  (r)  pointer to darwin_aces buffer
 578  * @param def_aclp     (rw) directories: pointer to an initialized acl_t with the default acl
 579  *                          files: *def_aclp will be NULL
 580  * @param acc_aclp     (rw) pointer to an initialized acl_t with the access acl
 581  * @param ace_count    (r)  number of ACEs in darwin_aces buffer
 582  *
 583  * @returns 0 on success storing the result in aclp, -1 on error.
 584  */
 585 static int map_aces_darwin_to_posix(const darwin_ace_t *darwin_aces,
 586                                     acl_t *def_aclp,
 587                                     acl_t *acc_aclp,
 588                                     int ace_count)
 589 {
 590     EC_INIT;
 591     char *name = NULL;
 592     uuidtype_t uuidtype;
 593     struct passwd *pwd;
 594     struct group *grp;
 595     uid_t id;
 596     uint32_t darwin_ace_flags, darwin_ace_rights;
 597     acl_tag_t tag;
 598     acl_perm_t perm;
 599
 600     for ( ; ace_count != 0; ace_count--, darwin_aces++) {
 601         /* type: allow/deny, posix only has allow */
 602         darwin_ace_flags = ntohl(darwin_aces->darwin_ace_flags);
 603         if ( ! (darwin_ace_flags & DARWIN_ACE_FLAGS_PERMIT))
 604             continue;
 605
 606         darwin_ace_rights = ntohl(darwin_aces->darwin_ace_rights);
 607         perm = map_darwin_right_to_posix_permset(darwin_ace_rights, (*def_aclp != NULL));
 608         if (perm == 0)
 609             continue;       /* dont add empty perm */
 610
 611         LOG(log_debug, logtype_afpd, "map_ace: no: %u, flags: %08x, darwin: %08x, posix: %02x",
 612             ace_count, darwin_ace_flags, darwin_ace_rights, perm);
 613
 614          /* uid/gid */
 615         EC_ZERO_LOG(getnamefromuuid(darwin_aces->darwin_ace_uuid, &name, &uuidtype));
 616         switch (uuidtype) {
 617         case UUID_LOCAL:
 618             free(name);
 619             name = NULL;
 620             continue;
 621         case UUID_USER:
 622             EC_NULL_LOG(pwd = getpwnam(name));
 623             tag = ACL_USER;
 624             id = pwd->pw_uid;
 625             LOG(log_debug, logtype_afpd, "map_ace: name: %s, uid: %u", name, id);
 626             break;
 627         case UUID_GROUP:
 628             EC_NULL_LOG(grp = getgrnam(name));
 629             tag = ACL_GROUP;
 630             id = (uid_t)(grp->gr_gid);
 631             LOG(log_debug, logtype_afpd, "map_ace: name: %s, gid: %u", name, id);
 632             break;
 633         }
 634         free(name);
 635         name = NULL;
 636
 637         if (darwin_ace_flags & DARWIN_ACE_INHERIT_CONTROL_FLAGS) {
 638             if (*def_aclp == NULL) {
 639                 /* ace request inheritane but we haven't got a default acl pointer */
 640                 LOG(log_warning, logtype_afpd, "map_acl: unexpected ACE, flags: 0x%04x",
 641                     darwin_ace_flags);
 642                 EC_FAIL;
 643             }
 644             /* add it as default ace */
 645             EC_ZERO_LOG(posix_acl_add_perm(def_aclp, tag, id, perm));
 646
 647
 648             if (! (darwin_ace_flags & DARWIN_ACE_FLAGS_ONLY_INHERIT))
 649                 /* if it not a "inherit only" ace, it must be added as access aces too */
 650                 EC_ZERO_LOG(posix_acl_add_perm(acc_aclp, tag, id, perm));
 651         } else {
 652             EC_ZERO_LOG(posix_acl_add_perm(acc_aclp, tag, id, perm));
 653         }
 654     }
 655
 656 EC_CLEANUP:
 657     if (name)
 658         free(name);
 659
 660     EC_EXIT;
 661 }
 662
 663 /*
 664  * Map ACEs from POSIX to Darwin.
 665  * type is either POSIX_DEFAULT_2_DARWIN or POSIX_ACCESS_2_DARWIN, cf. acl_get_file.
 666  * Return number of mapped ACES, -1 on error.
 667  */
 668 static int map_acl_posix_to_darwin(int type, const acl_t acl, darwin_ace_t *darwin_aces)
 669 {
 670     EC_INIT;
 671     int mapped_aces = 0;
 672     int entry_id = ACL_FIRST_ENTRY;
 673     acl_entry_t e;
 674     acl_tag_t tag;
 675     uid_t *uid = NULL;
 676     gid_t *gid = NULL;
 677     struct passwd *pwd = NULL;
 678     struct group *grp = NULL;
 679     uint32_t flags;
 680     uint32_t rights, maskrights = 0;
 681     darwin_ace_t *saved_darwin_aces = darwin_aces;
 682
 683     LOG(log_maxdebug, logtype_afpd, "map_aces_posix_to_darwin(%s)",
 684         (type & MAP_MASK) == POSIX_DEFAULT_2_DARWIN ?
 685         "POSIX_DEFAULT_2_DARWIN" : "POSIX_ACCESS_2_DARWIN");
 686
 687     /* itereate through all ACEs */
 688     while (acl_get_entry(acl, entry_id, &e) == 1) {
 689         entry_id = ACL_NEXT_ENTRY;
 690
 691         /* get ACE type */
 692         EC_ZERO_LOG(acl_get_tag_type(e, &tag));
 693
 694         /* we return user and group ACE */
 695         switch (tag) {
 696         case ACL_USER:
 697             EC_NULL_LOG(uid = (uid_t *)acl_get_qualifier(e));
 698             EC_NULL_LOG(pwd = getpwuid(*uid));
 699             LOG(log_debug, logtype_afpd, "map_aces_posix_to_darwin: uid: %d -> name: %s",
 700                 *uid, pwd->pw_name);
 701             EC_ZERO_LOG(getuuidfromname(pwd->pw_name, UUID_USER, darwin_aces->darwin_ace_uuid));
 702             acl_free(uid);
 703             uid = NULL;
 704             break;
 705
 706         case ACL_GROUP:
 707             EC_NULL_LOG(gid = (gid_t *)acl_get_qualifier(e));
 708             EC_NULL_LOG(grp = getgrgid(*gid));
 709             LOG(log_debug, logtype_afpd, "map_aces_posix_to_darwin: gid: %d -> name: %s",
 710                 *gid, grp->gr_name);
 711             EC_ZERO_LOG(getuuidfromname(grp->gr_name, UUID_GROUP, darwin_aces->darwin_ace_uuid));
 712             acl_free(gid);
 713             gid = NULL;
 714             break;
 715
 716         case ACL_MASK:
 717             maskrights = posix_permset_to_darwin_rights(e, type & IS_DIR);
 718             continue;
 719
 720         default:
 721             continue;
 722         }
 723
 724         /* flags */
 725         flags = DARWIN_ACE_FLAGS_PERMIT;
 726         if ((type & MAP_MASK) == POSIX_DEFAULT_2_DARWIN)
 727             flags |= DARWIN_ACE_FLAGS_FILE_INHERIT
 728                 | DARWIN_ACE_FLAGS_DIRECTORY_INHERIT
 729                 | DARWIN_ACE_FLAGS_ONLY_INHERIT;
 730         darwin_aces->darwin_ace_flags = htonl(flags);
 731
 732         /* rights */
 733         rights = posix_permset_to_darwin_rights(e, type & IS_DIR);
 734         darwin_aces->darwin_ace_rights = htonl(rights);
 735
 736         darwin_aces++;
 737         mapped_aces++;
 738     } /* while */
 739
 740     /* Loop through the mapped ACE buffer once again, applying the mask */
 741     for (int i = mapped_aces; i > 0; i--) {
 742         saved_darwin_aces->darwin_ace_rights &= htonl(maskrights);
 743         saved_darwin_aces++;
 744     }
 745
 746     EC_STATUS(mapped_aces);
 747
 748 EC_CLEANUP:
 749     if (uid) acl_free(uid);
 750     if (gid) acl_free(gid);
 751     EC_EXIT;
 752 }
 753 #endif
 754
 755 /*
 756  * Multiplex ACL mapping (SOLARIS_2_DARWIN, DARWIN_2_SOLARIS, POSIX_2_DARWIN, DARWIN_2_POSIX).
 757  * Reads from 'aces' buffer, writes to 'rbuf' buffer.
 758  * Caller must provide buffer.
 759  * Darwin ACEs are read and written in network byte order.
 760  * Needs to know how many ACEs are in the ACL (ace_count) for Solaris ACLs.
 761  * Ignores trivial ACEs.
 762  * Return no of mapped ACEs or -1 on error.
 763  */
 764 static int map_acl(int type, void *acl, darwin_ace_t *buf, int ace_count)
 765 {
 766     int mapped_aces;
 767
 768     LOG(log_debug9, logtype_afpd, "map_acl: BEGIN");
 769
 770     switch (type & MAP_MASK) {
 771
 772 #ifdef HAVE_SOLARIS_ACLS
 773     case SOLARIS_2_DARWIN:
 774         mapped_aces = map_aces_solaris_to_darwin( acl, buf, ace_count);
 775         break;
 776
 777     case DARWIN_2_SOLARIS:
 778         mapped_aces = map_aces_darwin_to_solaris( buf, acl, ace_count);
 779         break;
 780 #endif /* HAVE_SOLARIS_ACLS */
 781
 782 #ifdef HAVE_POSIX_ACLS
 783     case POSIX_DEFAULT_2_DARWIN:
 784         mapped_aces = map_acl_posix_to_darwin(type, (const acl_t)acl, buf);
 785         break;
 786
 787     case POSIX_ACCESS_2_DARWIN:
 788         mapped_aces = map_acl_posix_to_darwin(type, (const acl_t)acl, buf);
 789         break;
 790
 791     case DARWIN_2_POSIX_DEFAULT:
 792         break;
 793
 794     case DARWIN_2_POSIX_ACCESS:
 795         break;
 796 #endif /* HAVE_POSIX_ACLS */
 797
 798     default:
 799         mapped_aces = -1;
 800         break;
 801     }
 802
 803     LOG(log_debug9, logtype_afpd, "map_acl: END");
 804     return mapped_aces;
 805 }
 806
 807 /* Get ACL from object omitting trivial ACEs. Map to Darwin ACL style and
 808    store Darwin ACL at rbuf. Add length of ACL written to rbuf to *rbuflen.
 809    Returns 0 on success, -1 on error. */
 810 static int get_and_map_acl(char *name, char *rbuf, size_t *rbuflen)
 811 {
 812     EC_INIT;
 813     int mapped_aces = 0;
 814     int dirflag;
 815     uint32_t *darwin_ace_count = (u_int32_t *)rbuf;
 816 #ifdef HAVE_SOLARIS_ACLS
 817     int ace_count = 0;
 818     ace_t *aces = NULL;
 819 #endif
 820 #ifdef HAVE_POSIX_ACLS
 821     struct stat st;
 822 #endif
 823     LOG(log_debug9, logtype_afpd, "get_and_map_acl: BEGIN");
 824
 825     /* Skip length and flags */
 826     rbuf += 4;
 827     *rbuf = 0;
 828     rbuf += 4;
 829
 830 #ifdef HAVE_SOLARIS_ACLS
 831     EC_NEG1(ace_count = get_nfsv4_acl(name, &aces));
 832     EC_NEG1(mapped_aces = map_acl(SOLARIS_2_DARWIN, aces, (darwin_ace_t *)rbuf, ace_count));
 833 #endif /* HAVE_SOLARIS_ACLS */
 834
 835 #ifdef HAVE_POSIX_ACLS
 836     acl_t defacl = NULL , accacl = NULL;
 837
 838     /* stat to check if its a dir */
 839     EC_ZERO_LOG(lstat(name, &st));
 840
 841     /* if its a dir, check for default acl too */
 842     dirflag = 0;
 843     if (S_ISDIR(st.st_mode)) {
 844         dirflag = IS_DIR;
 845         EC_NULL_LOG(defacl = acl_get_file(name, ACL_TYPE_DEFAULT));
 846         EC_NEG1(mapped_aces = map_acl(POSIX_DEFAULT_2_DARWIN | dirflag,
 847                                       defacl,
 848                                       (darwin_ace_t *)rbuf,
 849                                       0));
 850     }
 851
 852     EC_NULL_LOG(accacl = acl_get_file(name, ACL_TYPE_ACCESS));
 853
 854     int tmp;
 855     EC_NEG1(tmp = map_acl(POSIX_ACCESS_2_DARWIN | dirflag,
 856                           accacl,
 857                           (darwin_ace_t *)(rbuf + mapped_aces * sizeof(darwin_ace_t)),
 858                           0));
 859     mapped_aces += tmp;
 860 #endif /* HAVE_POSIX_ACLS */
 861
 862     LOG(log_debug, logtype_afpd, "get_and_map_acl: mapped %d ACEs", mapped_aces);
 863
 864     *darwin_ace_count = htonl(mapped_aces);
 865     *rbuflen += sizeof(darwin_acl_header_t) + (mapped_aces * sizeof(darwin_ace_t));
 866
 867     EC_STATUS(0);
 868
 869 EC_CLEANUP:
 870 #ifdef HAVE_SOLARIS_ACLS
 871     if (aces) free(aces);
 872 #endif
 873 #ifdef HAVE_POSIX_ACLS
 874     if (defacl) acl_free(defacl);
 875     if (accacl) acl_free(accacl);
 876 #endif /* HAVE_POSIX_ACLS */
 877
 878     LOG(log_debug9, logtype_afpd, "get_and_map_acl: END");
 879
 880     EC_EXIT;
 881 }
 882
 883 /* Removes all non-trivial ACLs from object. Returns full AFPERR code. */
 884 static int remove_acl(const struct vol *vol,const char *path, int dir)
 885 {
 886     int ret = AFP_OK;
 887
 888 #if (defined HAVE_SOLARIS_ACLS || defined HAVE_POSIX_ACLS)
 889     /* Ressource etc. first */
 890     if ((ret = vol->vfs->vfs_remove_acl(vol, path, dir)) != AFP_OK)
 891         return ret;
 892     /* now the data fork or dir */
 893     ret = remove_acl_vfs(path);
 894 #endif
 895     return ret;
 896 }
 897
 898 /*
 899   Set ACL. Subtleties:
 900   - the client sends a complete list of ACEs, not only new ones. So we dont need to do
 901   any combination business (one exception being 'kFileSec_Inherit': see next)
 902   - client might request that we add inherited ACEs via 'kFileSec_Inherit'.
 903   We will store inherited ACEs first, which is Darwins canonical order.
 904   - returns AFPerror code
 905 */
 906 #ifdef HAVE_SOLARIS_ACLS
 907 static int set_acl(const struct vol *vol,
 908                    char *name,
 909                    int inherit,
 910                    darwin_ace_t *daces,
 911                    uint32_t ace_count)
 912 {
 913     EC_INIT;
 914     int i, nfsv4_ace_count;
 915     int tocopy_aces_count = 0, new_aces_count = 0, trivial_ace_count = 0;
 916     ace_t *old_aces, *new_aces = NULL;
 917     uint16_t flags;
 918
 919     LOG(log_debug9, logtype_afpd, "set_acl: BEGIN");
 920
 921     if (inherit)
 922         /* inherited + trivial ACEs */
 923         flags = ACE_INHERITED_ACE | ACE_OWNER | ACE_GROUP | ACE_EVERYONE;
 924     else
 925         /* only trivial ACEs */
 926         flags = ACE_OWNER | ACE_GROUP | ACE_EVERYONE;
 927
 928     /* Get existing ACL and count ACEs which have to be copied */
 929     if ((nfsv4_ace_count = get_nfsv4_acl(name, &old_aces)) == -1)
 930         return AFPERR_MISC;
 931     for ( i=0; i < nfsv4_ace_count; i++) {
 932         if (old_aces[i].a_flags & flags)
 933             tocopy_aces_count++;
 934     }
 935
 936     /* Now malloc buffer exactly sized to fit all new ACEs */
 937     if ((new_aces = malloc((ace_count + tocopy_aces_count) * sizeof(ace_t))) == NULL) {
 938         LOG(log_error, logtype_afpd, "set_acl: malloc %s", strerror(errno));
 939         EC_STATUS(AFPERR_MISC);
 940         goto EC_CLEANUP;
 941     }
 942
 943     /* Start building new ACL */
 944
 945     /* Copy local inherited ACEs. Therefore we have 'Darwin canonical order' (see chmod there):
 946        inherited ACEs first. */
 947     if (inherit) {
 948         for (i=0; i < nfsv4_ace_count; i++) {
 949             if (old_aces[i].a_flags & ACE_INHERITED_ACE) {
 950                 memcpy(&new_aces[new_aces_count], &old_aces[i], sizeof(ace_t));
 951                 new_aces_count++;
 952             }
 953         }
 954     }
 955     LOG(log_debug7, logtype_afpd, "set_acl: copied %d inherited ACEs", new_aces_count);
 956
 957     /* Now the ACEs from the client */
 958     if ((ret = (map_acl(DARWIN_2_SOLARIS,
 959                         &new_aces[new_aces_count],
 960                         daces,
 961                         ace_count))) == -1) {
 962         EC_STATUS(AFPERR_PARAM);
 963         goto EC_CLEANUP;
 964     }
 965     new_aces_count += ret;
 966     LOG(log_debug7, logtype_afpd, "set_acl: mapped %d ACEs from client", ret);
 967
 968     /* Now copy the trivial ACEs */
 969     for (i=0; i < nfsv4_ace_count; i++) {
 970         if (old_aces[i].a_flags  & (ACE_OWNER | ACE_GROUP | ACE_EVERYONE)) {
 971             memcpy(&new_aces[new_aces_count], &old_aces[i], sizeof(ace_t));
 972             new_aces_count++;
 973             trivial_ace_count++;
 974         }
 975     }
 976     LOG(log_debug7, logtype_afpd, "set_acl: copied %d trivial ACEs", trivial_ace_count);
 977
 978     /* Ressourcefork first.
 979        Note: for dirs we set the same ACL on the .AppleDouble/.Parent _file_. This
 980        might be strange for ACE_DELETE_CHILD and for inheritance flags. */
 981     if ((ret = (vol->vfs->vfs_acl(vol, name, ACE_SETACL, new_aces_count, new_aces))) != 0) {
 982         LOG(log_error, logtype_afpd, "set_acl: error setting acl: %s", strerror(errno));
 983         if (errno == (EACCES | EPERM))
 984             EC_STATUS(AFPERR_ACCESS);
 985         else if (errno == ENOENT)
 986             EC_STATUS(AFPERR_NOITEM);
 987         else
 988             EC_STATUS(AFPERR_MISC);
 989         goto EC_CLEANUP;
 990     }
 991     if ((ret = (acl(name, ACE_SETACL, new_aces_count, new_aces))) != 0) {
 992         LOG(log_error, logtype_afpd, "set_acl: error setting acl: %s", strerror(errno));
 993         if (errno == (EACCES | EPERM))
 994             EC_STATUS(AFPERR_ACCESS);
 995         else if (errno == ENOENT)
 996             EC_STATUS(AFPERR_NOITEM);
 997         else
 998             EC_STATUS(AFPERR_MISC);
 999         goto EC_CLEANUP;
1000     }
1001
1002     EC_STATUS(AFP_OK);
1003
1004 EC_CLEANUP:
1005     if (old_aces) free(old_aces);
1006     if (new_aces) free(new_aces);
1007
1008     LOG(log_debug9, logtype_afpd, "set_acl: END");
1009     EC_EXIT;
1010 }
1011 #endif /* HAVE_SOLARIS_ACLS */
1012
1013 #ifdef HAVE_POSIX_ACLS
1014 static int set_acl(const struct vol *vol,
1015                    const char *name,
1016                    int inherit _U_,
1017                    darwin_ace_t *daces,
1018                    uint32_t ace_count)
1019 {
1020     EC_INIT;
1021     acl_t def_acl = NULL;
1022     acl_t acc_acl = NULL;
1023
1024     LOG(log_maxdebug, logtype_afpd, "set_acl: BEGIN");
1025
1026     struct stat st;
1027     EC_ZERO_LOG_ERR(lstat(name, &st), AFPERR_NOOBJ);
1028
1029     /* seed default ACL with access ACL */
1030     if (S_ISDIR(st.st_mode))
1031         EC_NULL_LOG_ERR(def_acl = acl_get_file(name, ACL_TYPE_ACCESS), AFPERR_MISC);
1032
1033     /* for files def_acl will be NULL */
1034
1035     /* create access acl from mode */
1036     EC_NULL_LOG_ERR(acc_acl = acl_from_mode(st.st_mode), AFPERR_MISC);
1037
1038     /* adds the clients aces */
1039     EC_ZERO_ERR(map_aces_darwin_to_posix(daces, &def_acl, &acc_acl, ace_count), AFPERR_MISC);
1040
1041     /* calcuate ACL mask */
1042     EC_ZERO_LOG_ERR(acl_calc_mask(&acc_acl), AFPERR_MISC);
1043
1044     /* is it ok? */
1045     EC_ZERO_LOG_ERR(acl_valid(acc_acl), AFPERR_MISC);
1046
1047     /* set it */
1048     EC_ZERO_LOG_ERR(acl_set_file(name, ACL_TYPE_ACCESS, acc_acl), AFPERR_MISC);
1049     EC_ZERO_LOG_ERR(vol->vfs->vfs_acl(vol, name, ACL_TYPE_ACCESS, 0, acc_acl), AFPERR_MISC);
1050
1051     if (def_acl) {
1052         EC_ZERO_LOG_ERR(acl_set_file(name, ACL_TYPE_DEFAULT, def_acl), AFPERR_MISC);
1053         EC_ZERO_LOG_ERR(vol->vfs->vfs_acl(vol, name, ACL_TYPE_DEFAULT, 0, def_acl), AFPERR_MISC);
1054     }
1055
1056 EC_CLEANUP:
1057     acl_free(acc_acl);
1058     acl_free(def_acl);
1059
1060     LOG(log_maxdebug, logtype_afpd, "set_acl: END");
1061     EC_EXIT;
1062 }
1063 #endif /* HAVE_POSIX_ACLS */
1064
1065 /*!
1066  * Checks if a given UUID has requested_rights(type darwin_ace_rights) for path.
1067  *
1068  * Note: this gets called frequently and is a good place for optimizations !
1069  *
1070  * @param vol              (r) volume
1071  * @param dir              (r) directory
1072  * @param path             (r) path to filesystem object
1073  * @param uuid             (r) UUID of user
1074  * @param requested_rights (r) requested Darwin ACE
1075  *
1076  * @returns                    AFP result code
1077 */
1078 static int check_acl_access(const struct vol *vol,
1079                             const struct dir *dir,
1080                             const char *path,
1081                             const uuidp_t uuid,
1082                             uint32_t requested_rights)
1083 {
1084     int            ret;
1085     uint32_t       allowed_rights = 0;
1086     char           *username = NULL;
1087     uuidtype_t     uuidtype;
1088     struct passwd  *pwd;
1089     struct stat    st;
1090     bstring        parent = NULL;
1091
1092     LOG(log_maxdebug, logtype_afpd, "check_access: Request: 0x%08x", requested_rights);
1093
1094     /* Get uid or gid from UUID */
1095     EC_ZERO_LOG_ERR(getnamefromuuid(uuid, &username, &uuidtype), AFPERR_PARAM);
1096     EC_ZERO_LOG_ERR(lstat(path, &st), AFPERR_PARAM);
1097
1098     switch (uuidtype) {
1099     case UUID_USER:
1100         break;
1101     case UUID_GROUP:
1102         LOG(log_warning, logtype_afpd, "check_access: afp_access not supported for groups");
1103         EC_STATUS(AFPERR_MISC);
1104         goto EC_CLEANUP;
1105
1106     case UUID_LOCAL:
1107         LOG(log_warning, logtype_afpd, "check_access: local UUID");
1108         EC_STATUS(AFPERR_MISC);
1109         goto EC_CLEANUP;
1110     }
1111
1112     EC_NULL_LOG_ERR(pwd = getpwnam(username), AFPERR_MISC);
1113
1114 #ifdef HAVE_SOLARIS_ACLS
1115     EC_ZERO_LOG(solaris_acl_rights(path, &st, pwd, &allowed_rights));
1116 #endif
1117 #ifdef HAVE_POSIX_ACLS
1118     EC_ZERO_LOG(posix_acl_rights(path, &st, pwd, &allowed_rights));
1119 #endif
1120
1121     LOG(log_debug, logtype_afpd, "allowed rights: 0x%08x", allowed_rights);
1122
1123     /*
1124      * The DARWIN_ACE_DELETE right might implicitly result from write acces to the parent
1125      * directory. As it seems the 10.6 AFP client is puzzled when this right is not
1126      * allowed where a delete would succeed because the parent dir gives write perms.
1127      * So we check the parent dir for write access and set the right accordingly.
1128      * Currentyl acl2ownermode calls us with dir = NULL, because it doesn't make sense
1129      * there to do this extra check -- afaict.
1130      */
1131     if (vol && dir && (requested_rights & DARWIN_ACE_DELETE)) {
1132         int i;
1133         uint32_t parent_rights = 0;
1134
1135         if (dir->d_did == DIRDID_ROOT_PARENT) {
1136             /* use volume path */
1137             EC_NULL_LOG_ERR(parent = bfromcstr(vol->v_path), AFPERR_MISC);
1138         } else {
1139             /* build path for parent */
1140             EC_NULL_LOG_ERR(parent = bstrcpy(dir->d_fullpath), AFPERR_MISC);
1141             EC_ZERO_LOG_ERR(bconchar(parent, '/'), AFPERR_MISC);
1142             EC_ZERO_LOG_ERR(bcatcstr(parent, path), AFPERR_MISC);
1143             EC_NEG1_LOG_ERR(i = bstrrchr(parent, '/'), AFPERR_MISC);
1144             EC_ZERO_LOG_ERR(binsertch(parent, i, 1, 0), AFPERR_MISC);
1145         }
1146
1147         LOG(log_debug, logtype_afpd,"parent: %s", cfrombstr(parent));
1148         EC_ZERO_LOG_ERR(lstat(cfrombstr(parent), &st), AFPERR_MISC);
1149
1150 #ifdef HAVE_SOLARIS_ACLS
1151         EC_ZERO_LOG(solaris_acl_rights(cfrombstr(parent), &st, pwd, &parent_rights));
1152 #endif
1153 #ifdef HAVE_POSIX_ACLS
1154     EC_ZERO_LOG(posix_acl_rights(path, &st, pwd, &allowed_rights));
1155 #endif
1156         if (parent_rights & (DARWIN_ACE_WRITE_DATA | DARWIN_ACE_DELETE_CHILD))
1157             allowed_rights |= DARWIN_ACE_DELETE; /* man, that was a lot of work! */
1158     }
1159
1160     if ((requested_rights & allowed_rights) != requested_rights) {
1161         LOG(log_debug, logtype_afpd, "some requested right wasn't allowed: 0x%08x / 0x%08x",
1162             requested_rights, allowed_rights);
1163         EC_STATUS(AFPERR_ACCESS);
1164     } else {
1165         LOG(log_debug, logtype_afpd, "all requested rights are allowed: 0x%08x",
1166             requested_rights);
1167         EC_STATUS(AFP_OK);
1168     }
1169
1170 EC_CLEANUP:
1171     if (username) free(username);
1172     if (parent) bdestroy(parent);
1173
1174     EC_EXIT;
1175 }
1176
1177 /********************************************************
1178  * Interface
1179  ********************************************************/
1180
1181 int afp_access(AFPObj *obj, char *ibuf, size_t ibuflen _U_, char *rbuf _U_, size_t *rbuflen)
1182 {
1183     int         ret;
1184     struct vol      *vol;
1185     struct dir      *dir;
1186     uint32_t            did, darwin_ace_rights;
1187     uint16_t        vid;
1188     struct path         *s_path;
1189     uuidp_t             uuid;
1190
1191     *rbuflen = 0;
1192     ibuf += 2;
1193
1194     memcpy(&vid, ibuf, sizeof( vid ));
1195     ibuf += sizeof(vid);
1196     if (NULL == ( vol = getvolbyvid( vid ))) {
1197         LOG(log_error, logtype_afpd, "afp_access: error getting volid:%d", vid);
1198         return AFPERR_NOOBJ;
1199     }
1200
1201     memcpy(&did, ibuf, sizeof( did ));
1202     ibuf += sizeof( did );
1203     if (NULL == ( dir = dirlookup( vol, did ))) {
1204         LOG(log_error, logtype_afpd, "afp_access: error getting did:%d", did);
1205         return afp_errno;
1206     }
1207
1208     /* Skip bitmap */
1209     ibuf += 2;
1210
1211     /* Store UUID address */
1212     uuid = (uuidp_t)ibuf;
1213     ibuf += UUID_BINSIZE;
1214
1215     /* Store ACE rights */
1216     memcpy(&darwin_ace_rights, ibuf, 4);
1217     darwin_ace_rights = ntohl(darwin_ace_rights);
1218     ibuf += 4;
1219
1220     /* get full path and handle file/dir subtleties in netatalk code*/
1221     if (NULL == ( s_path = cname( vol, dir, &ibuf ))) {
1222         LOG(log_error, logtype_afpd, "afp_getacl: cname got an error!");
1223         return AFPERR_NOOBJ;
1224     }
1225     if (!s_path->st_valid)
1226         of_statdir(vol, s_path);
1227     if ( s_path->st_errno != 0 ) {
1228         LOG(log_error, logtype_afpd, "afp_getacl: cant stat");
1229         return AFPERR_NOOBJ;
1230     }
1231
1232     ret = check_acl_access(vol, dir, s_path->u_name, uuid, darwin_ace_rights);
1233
1234     return ret;
1235 }
1236
1237 int afp_getacl(AFPObj *obj, char *ibuf, size_t ibuflen _U_, char *rbuf _U_, size_t *rbuflen)
1238 {
1239     struct vol      *vol;
1240     struct dir      *dir;
1241     int         ret;
1242     uint32_t           did;
1243     uint16_t        vid, bitmap;
1244     struct path         *s_path;
1245     struct passwd       *pw;
1246     struct group        *gr;
1247
1248     LOG(log_debug9, logtype_afpd, "afp_getacl: BEGIN");
1249     *rbuflen = 0;
1250     ibuf += 2;
1251
1252     memcpy(&vid, ibuf, sizeof( vid ));
1253     ibuf += sizeof(vid);
1254     if (NULL == ( vol = getvolbyvid( vid ))) {
1255         LOG(log_error, logtype_afpd, "afp_getacl: error getting volid:%d", vid);
1256         return AFPERR_NOOBJ;
1257     }
1258
1259     memcpy(&did, ibuf, sizeof( did ));
1260     ibuf += sizeof( did );
1261     if (NULL == ( dir = dirlookup( vol, did ))) {
1262         LOG(log_error, logtype_afpd, "afp_getacl: error getting did:%d", did);
1263         return afp_errno;
1264     }
1265
1266     memcpy(&bitmap, ibuf, sizeof( bitmap ));
1267     memcpy(rbuf, ibuf, sizeof( bitmap ));
1268     bitmap = ntohs( bitmap );
1269     ibuf += sizeof( bitmap );
1270     rbuf += sizeof( bitmap );
1271     *rbuflen += sizeof( bitmap );
1272
1273     /* skip maxreplysize */
1274     ibuf += 4;
1275
1276     /* get full path and handle file/dir subtleties in netatalk code*/
1277     if (NULL == ( s_path = cname( vol, dir, &ibuf ))) {
1278         LOG(log_error, logtype_afpd, "afp_getacl: cname got an error!");
1279         return AFPERR_NOOBJ;
1280     }
1281     if (!s_path->st_valid)
1282         of_statdir(vol, s_path);
1283     if ( s_path->st_errno != 0 ) {
1284         LOG(log_error, logtype_afpd, "afp_getacl: cant stat");
1285         return AFPERR_NOOBJ;
1286     }
1287
1288     /* Shall we return owner UUID ? */
1289     if (bitmap & kFileSec_UUID) {
1290         LOG(log_debug, logtype_afpd, "afp_getacl: client requested files owner user UUID");
1291         if (NULL == (pw = getpwuid(s_path->st.st_uid)))
1292             return AFPERR_MISC;
1293         LOG(log_debug, logtype_afpd, "afp_getacl: got uid: %d, name: %s", s_path->st.st_uid, pw->pw_name);
1294         if ((ret = getuuidfromname(pw->pw_name, UUID_USER, rbuf)) != 0)
1295             return AFPERR_MISC;
1296         rbuf += UUID_BINSIZE;
1297         *rbuflen += UUID_BINSIZE;
1298     }
1299
1300     /* Shall we return group UUID ? */
1301     if (bitmap & kFileSec_GRPUUID) {
1302         LOG(log_debug, logtype_afpd, "afp_getacl: client requested files owner group UUID");
1303         if (NULL == (gr = getgrgid(s_path->st.st_gid)))
1304             return AFPERR_MISC;
1305         LOG(log_debug, logtype_afpd, "afp_getacl: got gid: %d, name: %s", s_path->st.st_gid, gr->gr_name);
1306         if ((ret = getuuidfromname(gr->gr_name, UUID_GROUP, rbuf)) != 0)
1307             return AFPERR_MISC;
1308         rbuf += UUID_BINSIZE;
1309         *rbuflen += UUID_BINSIZE;
1310     }
1311
1312     /* Shall we return ACL ? */
1313     if (bitmap & kFileSec_ACL) {
1314         LOG(log_debug, logtype_afpd, "afp_getacl: client requested files ACL");
1315         if (get_and_map_acl(s_path->u_name, rbuf, rbuflen) != 0) {
1316             LOG(log_error, logtype_afpd, "afp_getacl(\"%s/%s\"): mapping error",
1317                 getcwdpath(), s_path->u_name);
1318             return AFPERR_MISC;
1319         }
1320     }
1321
1322     LOG(log_debug9, logtype_afpd, "afp_getacl: END");
1323     return AFP_OK;
1324 }
1325
1326 int afp_setacl(AFPObj *obj, char *ibuf, size_t ibuflen _U_, char *rbuf _U_, size_t *rbuflen)
1327 {
1328     struct vol      *vol;
1329     struct dir      *dir;
1330     int         ret;
1331     uint32_t            did;
1332     uint16_t        vid, bitmap;
1333     struct path         *s_path;
1334
1335     LOG(log_debug9, logtype_afpd, "afp_setacl: BEGIN");
1336     *rbuflen = 0;
1337     ibuf += 2;
1338
1339     memcpy(&vid, ibuf, sizeof( vid ));
1340     ibuf += sizeof(vid);
1341     if (NULL == ( vol = getvolbyvid( vid ))) {
1342         LOG(log_error, logtype_afpd, "afp_setacl: error getting volid:%d", vid);
1343         return AFPERR_NOOBJ;
1344     }
1345
1346     memcpy(&did, ibuf, sizeof( did ));
1347     ibuf += sizeof( did );
1348     if (NULL == ( dir = dirlookup( vol, did ))) {
1349         LOG(log_error, logtype_afpd, "afp_setacl: error getting did:%d", did);
1350         return afp_errno;
1351     }
1352
1353     memcpy(&bitmap, ibuf, sizeof( bitmap ));
1354     bitmap = ntohs( bitmap );
1355     ibuf += sizeof( bitmap );
1356
1357     /* get full path and handle file/dir subtleties in netatalk code*/
1358     if (NULL == ( s_path = cname( vol, dir, &ibuf ))) {
1359         LOG(log_error, logtype_afpd, "afp_setacl: cname got an error!");
1360         return AFPERR_NOOBJ;
1361     }
1362     if (!s_path->st_valid)
1363         of_statdir(vol, s_path);
1364     if ( s_path->st_errno != 0 ) {
1365         LOG(log_error, logtype_afpd, "afp_setacl: cant stat");
1366         return AFPERR_NOOBJ;
1367     }
1368     LOG(log_debug, logtype_afpd, "afp_setacl: unixname: %s", s_path->u_name);
1369
1370     /* Padding? */
1371     if ((unsigned long)ibuf & 1)
1372         ibuf++;
1373
1374     /* Start processing request */
1375
1376     /* Change owner: dont even try */
1377     if (bitmap & kFileSec_UUID) {
1378         LOG(log_note, logtype_afpd, "afp_setacl: change owner request, discarded");
1379         ret = AFPERR_ACCESS;
1380         ibuf += UUID_BINSIZE;
1381     }
1382
1383     /* Change group: certain changes might be allowed, so try it. FIXME: not implemented yet. */
1384     if (bitmap & kFileSec_UUID) {
1385         LOG(log_note, logtype_afpd, "afp_setacl: change group request, not supported");
1386         ret = AFPERR_PARAM;
1387         ibuf += UUID_BINSIZE;
1388     }
1389
1390     /* Remove ACL ? */
1391     if (bitmap & kFileSec_REMOVEACL) {
1392         LOG(log_debug, logtype_afpd, "afp_setacl: Remove ACL request.");
1393         if ((ret = remove_acl(vol, s_path->u_name, S_ISDIR(s_path->st.st_mode))) != AFP_OK)
1394             LOG(log_error, logtype_afpd, "afp_setacl: error from remove_acl");
1395     }
1396
1397     /* Change ACL ? */
1398     if (bitmap & kFileSec_ACL) {
1399         LOG(log_debug, logtype_afpd, "afp_setacl: Change ACL request.");
1400         /*  Get no of ACEs the client put on the wire */
1401         uint32_t ace_count;
1402         memcpy(&ace_count, ibuf, sizeof(uint32_t));
1403         ace_count = htonl(ace_count);
1404         ibuf += 8;      /* skip ACL flags (see acls.h) */
1405
1406         ret = set_acl(vol,
1407                       s_path->u_name,
1408                       (bitmap & kFileSec_Inherit),
1409                       (darwin_ace_t *)ibuf,
1410                       ace_count);
1411         if (ret == 0)
1412             ret = AFP_OK;
1413         else {
1414             LOG(log_warning, logtype_afpd, "afp_setacl(\"%s/%s\"): error",
1415                 getcwdpath(), s_path->u_name);
1416             ret = AFPERR_MISC;
1417         }
1418     }
1419
1420     LOG(log_debug9, logtype_afpd, "afp_setacl: END");
1421     return ret;
1422 }
1423
1424 /*!
1425  * map ACL to user maccess
1426  *
1427  * This is the magic function that makes ACLs usable by calculating
1428  * the access granted by ACEs to the logged in user.
1429  */
1430 int acltoownermode(char *path, struct stat *st, uid_t uid, struct maccess *ma)
1431 {
1432     EC_INIT;
1433     struct passwd *pw;
1434     uint32_t rights = 0;
1435
1436     if ( ! (AFPobj->options.flags & OPTION_ACL2MACCESS)
1437          || (current_vol == NULL)
1438          || ! (current_vol->v_flags & AFPVOL_ACLS))
1439          return 0;
1440
1441     LOG(log_maxdebug, logtype_afpd, "acltoownermode(\"%s/%s\", 0x%02x)",
1442         getcwdpath(), path, ma->ma_user);
1443
1444     EC_NULL_LOG(pw = getpwuid(uid));
1445
1446 #ifdef HAVE_SOLARIS_ACLS
1447     EC_ZERO_LOG(solaris_acl_rights(path, st, pw, &rights));
1448 #endif
1449 #ifdef HAVE_POSIX_ACLS
1450     EC_ZERO_LOG(posix_acl_rights(path, st, pw, &rights));
1451 #endif
1452
1453     LOG(log_maxdebug, logtype_afpd, "rights: 0x%08x", rights);
1454
1455     if (rights & DARWIN_ACE_READ_DATA)
1456         ma->ma_user |= AR_UREAD;
1457     if (rights & DARWIN_ACE_WRITE_DATA)
1458         ma->ma_user |= AR_UWRITE;
1459     if (rights & (DARWIN_ACE_EXECUTE | DARWIN_ACE_SEARCH))
1460         ma->ma_user |= AR_USEARCH;
1461
1462     LOG(log_maxdebug, logtype_afpd, "resulting user maccess: 0x%02x", ma->ma_user);
1463
1464 EC_CLEANUP:
1465     EC_EXIT;
1466 }