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;
 360     }
 361     if (acl_get_perm(permset, ACL_EXECUTE))
 362         rights |= DARWIN_ACE_EXECUTE;
 363
 364 EC_CLEANUP:
 365     return rights;
 366 }
 367
 368 /*!
 369  * Compile access rights for a user to one file-system object
 370  *
 371  * This combines combines all access rights for a user to one fs-object and
 372  * returns the result as a Darwin allowed rights ACE.
 373  * This must honor trivial ACEs which are a mode_t mapping.
 374  *
 375  * @param path           (r) path to filesystem object
 376  * @param sb             (r) struct stat of path
 377  * @param pwd            (r) struct passwd of user
 378  * @param result         (w) resulting Darwin allow ACE
 379  *
 380  * @returns                  0 or -1 on error
 381  */
 382 static int posix_acl_rights(const char *path,
 383                             const struct stat *sb,
 384                             const struct passwd *pwd,
 385                             uint32_t *result)
 386 {
 387     EC_INIT;
 388     int entry_id = ACL_FIRST_ENTRY;
 389     uint32_t rights = 0, maskrights = 0;
 390     uid_t *uid = NULL;
 391     gid_t *gid = NULL;
 392     acl_t acl = NULL;
 393     acl_entry_t e;
 394     acl_tag_t tag;
 395
 396     EC_NULL_LOG(acl = acl_get_file(path, ACL_TYPE_ACCESS));
 397
 398     /* itereate through all ACEs to get the mask */
 399     while (acl_get_entry(acl, entry_id, &e) == 1) {
 400         entry_id = ACL_NEXT_ENTRY;
 401         switch (tag) {
 402         case ACL_MASK:
 403             maskrights = posix_permset_to_darwin_rights(e, S_ISDIR(sb->st_mode));
 404             continue;
 405         default:
 406             continue;
 407         }
 408     }
 409
 410     /* itereate through all ACEs */
 411     entry_id = ACL_FIRST_ENTRY;
 412     while (acl_get_entry(acl, entry_id, &e) == 1) {
 413         entry_id = ACL_NEXT_ENTRY;
 414         EC_ZERO_LOG(acl_get_tag_type(e, &tag));
 415         switch (tag) {
 416         case ACL_USER:
 417         case ACL_USER_OBJ:
 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
 425         case ACL_GROUP:
 426         case ACL_GROUP_OBJ:
 427             EC_NULL_LOG(gid = (gid_t *)acl_get_qualifier(e));
 428             if (gmem(*gid))
 429                 rights |= (posix_permset_to_darwin_rights(e, S_ISDIR(sb->st_mode)) & maskrights);
 430             acl_free(gid);
 431             gid = NULL;
 432             break;
 433
 434         case ACL_OTHER:
 435             rights |= posix_permset_to_darwin_rights(e, S_ISDIR(sb->st_mode));
 436             break;
 437
 438         default:
 439             continue;
 440         }
 441     } /* while */
 442
 443     *result |= rights;
 444
 445 EC_CLEANUP:
 446     if (acl) acl_free(acl);
 447     if (uid) acl_free(uid);
 448     if (gid) acl_free(gid);
 449     EC_EXIT;
 450 }
 451
 452 /*!
 453  * Add entries of one acl to another acl
 454  *
 455  * @param aclp   (rw) destination acl where new aces will be added
 456  * @param acl    (r)  source acl where aces will be copied from
 457  *
 458  * @returns 0 on success, -1 on error
 459  */
 460 static int acl_add_acl(acl_t *aclp, const acl_t acl)
 461 {
 462     EC_INIT;
 463     int id;
 464     acl_entry_t se, de;
 465
 466     for (id = ACL_FIRST_ENTRY; acl_get_entry(acl, id, &se) == 1; id = ACL_NEXT_ENTRY) {
 467         EC_ZERO_LOG_ERR(acl_create_entry(aclp, &de), AFPERR_MISC);
 468         EC_ZERO_LOG_ERR(acl_copy_entry(de, se), AFPERR_MISC);
 469     }
 470
 471 EC_CLEANUP:
 472     EC_EXIT;
 473 }
 474
 475 /*!
 476  * Map Darwin ACE rights to POSIX 1e perm
 477  *
 478  * We can only map few rights:
 479  *   DARWIN_ACE_READ_DATA                    -> ACL_READ
 480  *   DARWIN_ACE_WRITE_DATA                   -> ACL_WRITE
 481  *   DARWIN_ACE_DELETE_CHILD & (is_dir == 1) -> ACL_WRITE
 482  *   DARWIN_ACE_EXECUTE                      -> ACL_EXECUTE
 483  *
 484  * @param entry             (rw) result of the mapping
 485  * @param is_dir            (r) 1 for dirs, 0 for files
 486  *
 487  * @returns mapping result as acl_perm_t, -1 on error
 488  */
 489 static acl_perm_t map_darwin_right_to_posix_permset(uint32_t darwin_ace_rights, int is_dir)
 490 {
 491     acl_perm_t perm = 0;
 492
 493     if (darwin_ace_rights & DARWIN_ACE_READ_DATA)
 494         perm |= ACL_READ;
 495
 496     if (darwin_ace_rights & (DARWIN_ACE_WRITE_DATA | (DARWIN_ACE_DELETE_CHILD & is_dir)))
 497         perm |= ACL_WRITE;
 498
 499     if (darwin_ace_rights & DARWIN_ACE_EXECUTE)
 500         perm |= ACL_EXECUTE;
 501
 502     return perm;
 503 }
 504
 505 /*!
 506  * Add a ACL_USER or ACL_GROUP permission to an ACL, extending existing ACEs
 507  *
 508  * Add a permission of "type" for user or group "id" to an ACL. Scan the ACL
 509  * for existing permissions for this type/id, if there is one add the perm,
 510  * otherwise create a new ACL entry.
 511  * perm can be or'ed ACL_READ, ACL_WRITE and ACL_EXECUTE.
 512  *
 513  * @param aclp     (rw) pointer to ACL
 514  * @param type     (r)  acl_tag_t of ACL_USER or ACL_GROUP
 515  * @param id       (r)  uid_t uid for ACL_USER, or gid casted to uid_t for ACL_GROUP
 516  * @param perm     (r)  acl_perm_t permissions to add
 517  *
 518  * @returns 0 on success, -1 on failure
 519  */
 520 static int posix_acl_add_perm(acl_t *aclp, acl_tag_t type, uid_t id, acl_perm_t perm)
 521 {
 522     EC_INIT;
 523     uid_t *eid = NULL;
 524     acl_entry_t e;
 525     acl_tag_t tag;
 526     int entry_id = ACL_FIRST_ENTRY;
 527     acl_permset_t permset;
 528
 529     int found = 0;
 530     for ( ; (! found) && acl_get_entry(*aclp, entry_id, &e) == 1; entry_id = ACL_NEXT_ENTRY) {
 531         EC_ZERO_LOG(acl_get_tag_type(e, &tag));
 532         if (tag != ACL_USER && tag != ACL_GROUP)
 533             continue;
 534         EC_NULL_LOG(eid = (uid_t *)acl_get_qualifier(e));
 535         if ((*eid == id) && (type == tag)) {
 536             /* found an ACE for this type/id */
 537             found = 1;
 538             EC_ZERO_LOG(acl_get_permset(e, &permset));
 539             EC_ZERO_LOG(acl_add_perm(permset, perm));
 540         }
 541
 542         acl_free(eid);
 543         eid = NULL;
 544     }
 545
 546     if ( ! found) {
 547         /* there was no existing ACE for this type/id */
 548         EC_ZERO_LOG(acl_create_entry(aclp, &e));
 549         EC_ZERO_LOG(acl_set_tag_type(e, type));
 550         EC_ZERO_LOG(acl_set_qualifier(e, &id));
 551         EC_ZERO_LOG(acl_get_permset(e, &permset));
 552         EC_ZERO_LOG(acl_clear_perms(permset));
 553         EC_ZERO_LOG(acl_add_perm(permset, perm));
 554         EC_ZERO_LOG(acl_set_permset(e, permset));
 555     }
 556
 557 EC_CLEANUP:
 558     if (eid) acl_free(eid);
 559
 560     EC_EXIT;
 561 }
 562
 563 /*!
 564  * Map Darwin ACL to POSIX ACL.
 565  *
 566  * aclp must point to a acl_init'ed acl_t or an acl_t that can eg contain default ACEs.
 567  * Mapping pecularities:
 568  * - we create a default ace (which inherits to files and dirs) if either
 569      DARWIN_ACE_FLAGS_FILE_INHERIT or DARWIN_ACE_FLAGS_DIRECTORY_INHERIT is requested
 570  * - we throw away DARWIN_ACE_FLAGS_LIMIT_INHERIT (can't be mapped), thus the ACL will
 571  *   not be limited
 572  *
 573  * @param darwin_aces  (r)  pointer to darwin_aces buffer
 574  * @param def_aclp     (rw) directories: pointer to an initialized acl_t with the default acl
 575  *                          files: *def_aclp will be NULL
 576  * @param acc_aclp     (rw) pointer to an initialized acl_t with the access acl
 577  * @param ace_count    (r)  number of ACEs in darwin_aces buffer
 578  *
 579  * @returns 0 on success storing the result in aclp, -1 on error.
 580  */
 581 static int map_aces_darwin_to_posix(const darwin_ace_t *darwin_aces,
 582                                     acl_t *def_aclp,
 583                                     acl_t *acc_aclp,
 584                                     int ace_count)
 585 {
 586     EC_INIT;
 587     char *name = NULL;
 588     uuidtype_t uuidtype;
 589     struct passwd *pwd;
 590     struct group *grp;
 591     uid_t id;
 592     uint32_t darwin_ace_flags, darwin_ace_rights;
 593     acl_tag_t tag;
 594     acl_perm_t perm;
 595
 596     for ( ; ace_count != 0; ace_count--, darwin_aces++) {
 597         /* type: allow/deny, posix only has allow */
 598         darwin_ace_flags = ntohl(darwin_aces->darwin_ace_flags);
 599         if ( ! (darwin_ace_flags & DARWIN_ACE_FLAGS_PERMIT))
 600             continue;
 601
 602         darwin_ace_rights = ntohl(darwin_aces->darwin_ace_rights);
 603         perm = map_darwin_right_to_posix_permset(darwin_ace_rights, (*def_aclp != NULL));
 604         if (perm == 0)
 605             continue;       /* dont add empty perm */
 606
 607         LOG(log_debug, logtype_afpd, "map_ace: no: %u, flags: %08x, darwin: %08x, posix: %02x",
 608             ace_count, darwin_ace_flags, darwin_ace_rights, perm);
 609
 610          /* uid/gid */
 611         EC_ZERO_LOG(getnamefromuuid(darwin_aces->darwin_ace_uuid, &name, &uuidtype));
 612         switch (uuidtype) {
 613         case UUID_LOCAL:
 614             free(name);
 615             name = NULL;
 616             continue;
 617         case UUID_USER:
 618             EC_NULL_LOG(pwd = getpwnam(name));
 619             tag = ACL_USER;
 620             id = pwd->pw_uid;
 621             LOG(log_debug, logtype_afpd, "map_ace: name: %s, uid: %u", name, id);
 622             break;
 623         case UUID_GROUP:
 624             EC_NULL_LOG(grp = getgrnam(name));
 625             tag = ACL_GROUP;
 626             id = (uid_t)(grp->gr_gid);
 627             LOG(log_debug, logtype_afpd, "map_ace: name: %s, gid: %u", name, id);
 628             break;
 629         }
 630         free(name);
 631         name = NULL;
 632
 633         if (darwin_ace_flags & DARWIN_ACE_INHERIT_CONTROL_FLAGS) {
 634             if (*def_aclp == NULL) {
 635                 /* ace request inheritane but we haven't got a default acl pointer */
 636                 LOG(log_warning, logtype_afpd, "map_acl: unexpected ACE, flags: 0x%04x",
 637                     darwin_ace_flags);
 638                 EC_FAIL;
 639             }
 640             /* add it as default ace */
 641             EC_ZERO_LOG(posix_acl_add_perm(def_aclp, tag, id, perm));
 642
 643
 644             if (! (darwin_ace_flags & DARWIN_ACE_FLAGS_ONLY_INHERIT))
 645                 /* if it not a "inherit only" ace, it must be added as access aces too */
 646                 EC_ZERO_LOG(posix_acl_add_perm(acc_aclp, tag, id, perm));
 647         } else {
 648             EC_ZERO_LOG(posix_acl_add_perm(acc_aclp, tag, id, perm));
 649         }
 650     }
 651
 652 EC_CLEANUP:
 653     if (name)
 654         free(name);
 655
 656     EC_EXIT;
 657 }
 658
 659 /*
 660  * Map ACEs from POSIX to Darwin.
 661  * type is either POSIX_DEFAULT_2_DARWIN or POSIX_ACCESS_2_DARWIN, cf. acl_get_file.
 662  * Return number of mapped ACES, -1 on error.
 663  */
 664 static int map_acl_posix_to_darwin(int type, const acl_t acl, darwin_ace_t *darwin_aces)
 665 {
 666     EC_INIT;
 667     int mapped_aces = 0;
 668     int entry_id = ACL_FIRST_ENTRY;
 669     acl_entry_t e;
 670     acl_tag_t tag;
 671     uid_t *uid = NULL;
 672     gid_t *gid = NULL;
 673     struct passwd *pwd = NULL;
 674     struct group *grp = NULL;
 675     uint32_t flags;
 676     uint32_t rights, maskrights = 0;
 677     darwin_ace_t *saved_darwin_aces = darwin_aces;
 678
 679     LOG(log_maxdebug, logtype_afpd, "map_aces_posix_to_darwin(%s)",
 680         (type & MAP_MASK) == POSIX_DEFAULT_2_DARWIN ?
 681         "POSIX_DEFAULT_2_DARWIN" : "POSIX_ACCESS_2_DARWIN");
 682
 683     /* itereate through all ACEs */
 684     while (acl_get_entry(acl, entry_id, &e) == 1) {
 685         entry_id = ACL_NEXT_ENTRY;
 686
 687         /* get ACE type */
 688         EC_ZERO_LOG(acl_get_tag_type(e, &tag));
 689
 690         /* we return user and group ACE */
 691         switch (tag) {
 692         case ACL_USER:
 693             EC_NULL_LOG(uid = (uid_t *)acl_get_qualifier(e));
 694             EC_NULL_LOG(pwd = getpwuid(*uid));
 695             LOG(log_debug, logtype_afpd, "map_aces_posix_to_darwin: uid: %d -> name: %s",
 696                 *uid, pwd->pw_name);
 697             EC_ZERO_LOG(getuuidfromname(pwd->pw_name, UUID_USER, darwin_aces->darwin_ace_uuid));
 698             acl_free(uid);
 699             uid = NULL;
 700             break;
 701
 702         case ACL_GROUP:
 703             EC_NULL_LOG(gid = (gid_t *)acl_get_qualifier(e));
 704             EC_NULL_LOG(grp = getgrgid(*gid));
 705             LOG(log_debug, logtype_afpd, "map_aces_posix_to_darwin: gid: %d -> name: %s",
 706                 *gid, grp->gr_name);
 707             EC_ZERO_LOG(getuuidfromname(grp->gr_name, UUID_GROUP, darwin_aces->darwin_ace_uuid));
 708             acl_free(gid);
 709             gid = NULL;
 710             break;
 711
 712         case ACL_MASK:
 713             maskrights = posix_permset_to_darwin_rights(e, type & IS_DIR);
 714             continue;
 715
 716         default:
 717             continue;
 718         }
 719
 720         /* flags */
 721         flags = DARWIN_ACE_FLAGS_PERMIT;
 722         if ((type & MAP_MASK) == POSIX_DEFAULT_2_DARWIN)
 723             flags |= DARWIN_ACE_FLAGS_FILE_INHERIT
 724                 | DARWIN_ACE_FLAGS_DIRECTORY_INHERIT
 725                 | DARWIN_ACE_FLAGS_ONLY_INHERIT;
 726         darwin_aces->darwin_ace_flags = htonl(flags);
 727
 728         /* rights */
 729         rights = posix_permset_to_darwin_rights(e, type & IS_DIR);
 730         darwin_aces->darwin_ace_rights = htonl(rights);
 731
 732         darwin_aces++;
 733         mapped_aces++;
 734     } /* while */
 735
 736     /* Loop through the mapped ACE buffer once again, applying the mask */
 737     for (int i = mapped_aces; i > 0; i--) {
 738         saved_darwin_aces->darwin_ace_rights &= htonl(maskrights);
 739         saved_darwin_aces++;
 740     }
 741
 742     EC_STATUS(mapped_aces);
 743
 744 EC_CLEANUP:
 745     if (uid) acl_free(uid);
 746     if (gid) acl_free(gid);
 747     EC_EXIT;
 748 }
 749 #endif
 750
 751 /*
 752  * Multiplex ACL mapping (SOLARIS_2_DARWIN, DARWIN_2_SOLARIS, POSIX_2_DARWIN, DARWIN_2_POSIX).
 753  * Reads from 'aces' buffer, writes to 'rbuf' buffer.
 754  * Caller must provide buffer.
 755  * Darwin ACEs are read and written in network byte order.
 756  * Needs to know how many ACEs are in the ACL (ace_count) for Solaris ACLs.
 757  * Ignores trivial ACEs.
 758  * Return no of mapped ACEs or -1 on error.
 759  */
 760 static int map_acl(int type, void *acl, darwin_ace_t *buf, int ace_count)
 761 {
 762     int mapped_aces;
 763
 764     LOG(log_debug9, logtype_afpd, "map_acl: BEGIN");
 765
 766     switch (type & MAP_MASK) {
 767
 768 #ifdef HAVE_SOLARIS_ACLS
 769     case SOLARIS_2_DARWIN:
 770         mapped_aces = map_aces_solaris_to_darwin( acl, buf, ace_count);
 771         break;
 772
 773     case DARWIN_2_SOLARIS:
 774         mapped_aces = map_aces_darwin_to_solaris( buf, acl, ace_count);
 775         break;
 776 #endif /* HAVE_SOLARIS_ACLS */
 777
 778 #ifdef HAVE_POSIX_ACLS
 779     case POSIX_DEFAULT_2_DARWIN:
 780         mapped_aces = map_acl_posix_to_darwin(type, (const acl_t)acl, buf);
 781         break;
 782
 783     case POSIX_ACCESS_2_DARWIN:
 784         mapped_aces = map_acl_posix_to_darwin(type, (const acl_t)acl, buf);
 785         break;
 786
 787     case DARWIN_2_POSIX_DEFAULT:
 788         break;
 789
 790     case DARWIN_2_POSIX_ACCESS:
 791         break;
 792 #endif /* HAVE_POSIX_ACLS */
 793
 794     default:
 795         mapped_aces = -1;
 796         break;
 797     }
 798
 799     LOG(log_debug9, logtype_afpd, "map_acl: END");
 800     return mapped_aces;
 801 }
 802
 803 /* Get ACL from object omitting trivial ACEs. Map to Darwin ACL style and
 804    store Darwin ACL at rbuf. Add length of ACL written to rbuf to *rbuflen.
 805    Returns 0 on success, -1 on error. */
 806 static int get_and_map_acl(char *name, char *rbuf, size_t *rbuflen)
 807 {
 808     EC_INIT;
 809     int mapped_aces = 0;
 810     int dirflag;
 811     uint32_t *darwin_ace_count = (u_int32_t *)rbuf;
 812 #ifdef HAVE_SOLARIS_ACLS
 813     int ace_count = 0;
 814     ace_t *aces = NULL;
 815 #endif
 816 #ifdef HAVE_POSIX_ACLS
 817     struct stat st;
 818 #endif
 819     LOG(log_debug9, logtype_afpd, "get_and_map_acl: BEGIN");
 820
 821     /* Skip length and flags */
 822     rbuf += 4;
 823     *rbuf = 0;
 824     rbuf += 4;
 825
 826 #ifdef HAVE_SOLARIS_ACLS
 827     EC_NEG1(ace_count = get_nfsv4_acl(name, &aces));
 828     EC_NEG1(mapped_aces = map_acl(SOLARIS_2_DARWIN, aces, (darwin_ace_t *)rbuf, ace_count));
 829 #endif /* HAVE_SOLARIS_ACLS */
 830
 831 #ifdef HAVE_POSIX_ACLS
 832     acl_t defacl = NULL , accacl = NULL;
 833
 834     /* stat to check if its a dir */
 835     EC_ZERO_LOG(lstat(name, &st));
 836
 837     /* if its a dir, check for default acl too */
 838     dirflag = 0;
 839     if (S_ISDIR(st.st_mode)) {
 840         dirflag = IS_DIR;
 841         EC_NULL_LOG(defacl = acl_get_file(name, ACL_TYPE_DEFAULT));
 842         EC_NEG1(mapped_aces = map_acl(POSIX_DEFAULT_2_DARWIN | dirflag,
 843                                       defacl,
 844                                       (darwin_ace_t *)rbuf,
 845                                       0));
 846     }
 847
 848     EC_NULL_LOG(accacl = acl_get_file(name, ACL_TYPE_ACCESS));
 849
 850     int tmp;
 851     EC_NEG1(tmp = map_acl(POSIX_ACCESS_2_DARWIN | dirflag,
 852                           accacl,
 853                           (darwin_ace_t *)(rbuf + mapped_aces * sizeof(darwin_ace_t)),
 854                           0));
 855     mapped_aces += tmp;
 856 #endif /* HAVE_POSIX_ACLS */
 857
 858     LOG(log_debug, logtype_afpd, "get_and_map_acl: mapped %d ACEs", mapped_aces);
 859
 860     *darwin_ace_count = htonl(mapped_aces);
 861     *rbuflen += sizeof(darwin_acl_header_t) + (mapped_aces * sizeof(darwin_ace_t));
 862
 863     EC_STATUS(0);
 864
 865 EC_CLEANUP:
 866 #ifdef HAVE_SOLARIS_ACLS
 867     if (aces) free(aces);
 868 #endif
 869 #ifdef HAVE_POSIX_ACLS
 870     if (defacl) acl_free(defacl);
 871     if (accacl) acl_free(accacl);
 872 #endif /* HAVE_POSIX_ACLS */
 873
 874     LOG(log_debug9, logtype_afpd, "get_and_map_acl: END");
 875
 876     EC_EXIT;
 877 }
 878
 879 /* Removes all non-trivial ACLs from object. Returns full AFPERR code. */
 880 static int remove_acl(const struct vol *vol,const char *path, int dir)
 881 {
 882     int ret = AFP_OK;
 883
 884 #if (defined HAVE_SOLARIS_ACLS || defined HAVE_POSIX_ACLS)
 885     /* Ressource etc. first */
 886     if ((ret = vol->vfs->vfs_remove_acl(vol, path, dir)) != AFP_OK)
 887         return ret;
 888     /* now the data fork or dir */
 889     ret = remove_acl_vfs(path);
 890 #endif
 891     return ret;
 892 }
 893
 894 /*
 895   Set ACL. Subtleties:
 896   - the client sends a complete list of ACEs, not only new ones. So we dont need to do
 897   any combination business (one exception being 'kFileSec_Inherit': see next)
 898   - client might request that we add inherited ACEs via 'kFileSec_Inherit'.
 899   We will store inherited ACEs first, which is Darwins canonical order.
 900   - returns AFPerror code
 901 */
 902 #ifdef HAVE_SOLARIS_ACLS
 903 static int set_acl(const struct vol *vol,
 904                    char *name,
 905                    int inherit,
 906                    darwin_ace_t *daces,
 907                    uint32_t ace_count)
 908 {
 909     EC_INIT;
 910     int i, nfsv4_ace_count;
 911     int tocopy_aces_count = 0, new_aces_count = 0, trivial_ace_count = 0;
 912     ace_t *old_aces, *new_aces = NULL;
 913     uint16_t flags;
 914
 915     LOG(log_debug9, logtype_afpd, "set_acl: BEGIN");
 916
 917     if (inherit)
 918         /* inherited + trivial ACEs */
 919         flags = ACE_INHERITED_ACE | ACE_OWNER | ACE_GROUP | ACE_EVERYONE;
 920     else
 921         /* only trivial ACEs */
 922         flags = ACE_OWNER | ACE_GROUP | ACE_EVERYONE;
 923
 924     /* Get existing ACL and count ACEs which have to be copied */
 925     if ((nfsv4_ace_count = get_nfsv4_acl(name, &old_aces)) == -1)
 926         return AFPERR_MISC;
 927     for ( i=0; i < nfsv4_ace_count; i++) {
 928         if (old_aces[i].a_flags & flags)
 929             tocopy_aces_count++;
 930     }
 931
 932     /* Now malloc buffer exactly sized to fit all new ACEs */
 933     if ((new_aces = malloc((ace_count + tocopy_aces_count) * sizeof(ace_t))) == NULL) {
 934         LOG(log_error, logtype_afpd, "set_acl: malloc %s", strerror(errno));
 935         EC_STATUS(AFPERR_MISC);
 936         goto EC_CLEANUP;
 937     }
 938
 939     /* Start building new ACL */
 940
 941     /* Copy local inherited ACEs. Therefore we have 'Darwin canonical order' (see chmod there):
 942        inherited ACEs first. */
 943     if (inherit) {
 944         for (i=0; i < nfsv4_ace_count; i++) {
 945             if (old_aces[i].a_flags & ACE_INHERITED_ACE) {
 946                 memcpy(&new_aces[new_aces_count], &old_aces[i], sizeof(ace_t));
 947                 new_aces_count++;
 948             }
 949         }
 950     }
 951     LOG(log_debug7, logtype_afpd, "set_acl: copied %d inherited ACEs", new_aces_count);
 952
 953     /* Now the ACEs from the client */
 954     if ((ret = (map_acl(DARWIN_2_SOLARIS,
 955                         &new_aces[new_aces_count],
 956                         daces,
 957                         ace_count))) == -1) {
 958         EC_STATUS(AFPERR_PARAM);
 959         goto EC_CLEANUP;
 960     }
 961     new_aces_count += ret;
 962     LOG(log_debug7, logtype_afpd, "set_acl: mapped %d ACEs from client", ret);
 963
 964     /* Now copy the trivial ACEs */
 965     for (i=0; i < nfsv4_ace_count; i++) {
 966         if (old_aces[i].a_flags  & (ACE_OWNER | ACE_GROUP | ACE_EVERYONE)) {
 967             memcpy(&new_aces[new_aces_count], &old_aces[i], sizeof(ace_t));
 968             new_aces_count++;
 969             trivial_ace_count++;
 970         }
 971     }
 972     LOG(log_debug7, logtype_afpd, "set_acl: copied %d trivial ACEs", trivial_ace_count);
 973
 974     /* Ressourcefork first.
 975        Note: for dirs we set the same ACL on the .AppleDouble/.Parent _file_. This
 976        might be strange for ACE_DELETE_CHILD and for inheritance flags. */
 977     if ((ret = (vol->vfs->vfs_acl(vol, name, ACE_SETACL, new_aces_count, new_aces))) != 0) {
 978         LOG(log_error, logtype_afpd, "set_acl: error setting acl: %s", strerror(errno));
 979         if (errno == (EACCES | EPERM))
 980             EC_STATUS(AFPERR_ACCESS);
 981         else if (errno == ENOENT)
 982             EC_STATUS(AFPERR_NOITEM);
 983         else
 984             EC_STATUS(AFPERR_MISC);
 985         goto EC_CLEANUP;
 986     }
 987     if ((ret = (acl(name, ACE_SETACL, new_aces_count, new_aces))) != 0) {
 988         LOG(log_error, logtype_afpd, "set_acl: error setting acl: %s", strerror(errno));
 989         if (errno == (EACCES | EPERM))
 990             EC_STATUS(AFPERR_ACCESS);
 991         else if (errno == ENOENT)
 992             EC_STATUS(AFPERR_NOITEM);
 993         else
 994             EC_STATUS(AFPERR_MISC);
 995         goto EC_CLEANUP;
 996     }
 997
 998     EC_STATUS(AFP_OK);
 999
1000 EC_CLEANUP:
1001     if (old_aces) free(old_aces);
1002     if (new_aces) free(new_aces);
1003
1004     LOG(log_debug9, logtype_afpd, "set_acl: END");
1005     EC_EXIT;
1006 }
1007 #endif /* HAVE_SOLARIS_ACLS */
1008
1009 #ifdef HAVE_POSIX_ACLS
1010 static int set_acl(const struct vol *vol,
1011                    const char *name,
1012                    int inherit _U_,
1013                    darwin_ace_t *daces,
1014                    uint32_t ace_count)
1015 {
1016     EC_INIT;
1017     acl_t def_acl = NULL;
1018     acl_t acc_acl = NULL;
1019
1020     LOG(log_maxdebug, logtype_afpd, "set_acl: BEGIN");
1021
1022     struct stat st;
1023     EC_ZERO_LOG_ERR(lstat(name, &st), AFPERR_NOOBJ);
1024
1025     /* seed default ACL with access ACL */
1026     if (S_ISDIR(st.st_mode))
1027         EC_NULL_LOG_ERR(def_acl = acl_get_file(name, ACL_TYPE_ACCESS), AFPERR_MISC);
1028
1029     /* for files def_acl will be NULL */
1030
1031     /* create access acl from mode */
1032     EC_NULL_LOG_ERR(acc_acl = acl_from_mode(st.st_mode), AFPERR_MISC);
1033
1034     /* adds the clients aces */
1035     EC_ZERO_ERR(map_aces_darwin_to_posix(daces, &def_acl, &acc_acl, ace_count), AFPERR_MISC);
1036
1037     /* calcuate ACL mask */
1038     EC_ZERO_LOG_ERR(acl_calc_mask(&acc_acl), AFPERR_MISC);
1039
1040     /* is it ok? */
1041     EC_ZERO_LOG_ERR(acl_valid(acc_acl), AFPERR_MISC);
1042
1043     /* set it */
1044     EC_ZERO_LOG_ERR(acl_set_file(name, ACL_TYPE_ACCESS, acc_acl), AFPERR_MISC);
1045     EC_ZERO_LOG_ERR(vol->vfs->vfs_acl(vol, name, ACL_TYPE_ACCESS, 0, acc_acl), AFPERR_MISC);
1046
1047     if (def_acl) {
1048         EC_ZERO_LOG_ERR(acl_set_file(name, ACL_TYPE_DEFAULT, def_acl), AFPERR_MISC);
1049         EC_ZERO_LOG_ERR(vol->vfs->vfs_acl(vol, name, ACL_TYPE_DEFAULT, 0, def_acl), AFPERR_MISC);
1050     }
1051
1052 EC_CLEANUP:
1053     acl_free(acc_acl);
1054     acl_free(def_acl);
1055
1056     LOG(log_maxdebug, logtype_afpd, "set_acl: END");
1057     EC_EXIT;
1058 }
1059 #endif /* HAVE_POSIX_ACLS */
1060
1061 /*!
1062  * Checks if a given UUID has requested_rights(type darwin_ace_rights) for path.
1063  *
1064  * Note: this gets called frequently and is a good place for optimizations !
1065  *
1066  * @param vol              (r) volume
1067  * @param dir              (r) directory
1068  * @param path             (r) path to filesystem object
1069  * @param uuid             (r) UUID of user
1070  * @param requested_rights (r) requested Darwin ACE
1071  *
1072  * @returns                    AFP result code
1073 */
1074 static int check_acl_access(const struct vol *vol,
1075                             const struct dir *dir,
1076                             const char *path,
1077                             const uuidp_t uuid,
1078                             uint32_t requested_rights)
1079 {
1080     int            ret;
1081     uint32_t       allowed_rights = 0;
1082     char           *username = NULL;
1083     uuidtype_t     uuidtype;
1084     struct passwd  *pwd;
1085     struct stat    st;
1086     bstring        parent = NULL;
1087
1088     LOG(log_maxdebug, logtype_afpd, "check_access: Request: 0x%08x", requested_rights);
1089
1090     /* Get uid or gid from UUID */
1091     EC_ZERO_LOG_ERR(getnamefromuuid(uuid, &username, &uuidtype), AFPERR_PARAM);
1092     EC_ZERO_LOG_ERR(lstat(path, &st), AFPERR_PARAM);
1093
1094     switch (uuidtype) {
1095     case UUID_USER:
1096         break;
1097     case UUID_GROUP:
1098         LOG(log_warning, logtype_afpd, "check_access: afp_access not supported for groups");
1099         EC_STATUS(AFPERR_MISC);
1100         goto EC_CLEANUP;
1101
1102     case UUID_LOCAL:
1103         LOG(log_warning, logtype_afpd, "check_access: local UUID");
1104         EC_STATUS(AFPERR_MISC);
1105         goto EC_CLEANUP;
1106     }
1107
1108     EC_NULL_LOG_ERR(pwd = getpwnam(username), AFPERR_MISC);
1109
1110 #ifdef HAVE_SOLARIS_ACLS
1111     EC_ZERO_LOG(solaris_acl_rights(path, &st, pwd, &allowed_rights));
1112 #endif
1113 #ifdef HAVE_POSIX_ACLS
1114     EC_ZERO_LOG(posix_acl_rights(path, &st, pwd, &allowed_rights));
1115 #endif
1116
1117     LOG(log_debug, logtype_afpd, "allowed rights: 0x%08x", allowed_rights);
1118
1119     /*
1120      * The DARWIN_ACE_DELETE right might implicitly result from write acces to the parent
1121      * directory. As it seems the 10.6 AFP client is puzzled when this right is not
1122      * allowed where a delete would succeed because the parent dir gives write perms.
1123      * So we check the parent dir for write access and set the right accordingly.
1124      * Currentyl acl2ownermode calls us with dir = NULL, because it doesn't make sense
1125      * there to do this extra check -- afaict.
1126      */
1127     if (vol && dir && (requested_rights & DARWIN_ACE_DELETE)) {
1128         int i;
1129         uint32_t parent_rights = 0;
1130
1131         if (dir->d_did == DIRDID_ROOT_PARENT) {
1132             /* use volume path */
1133             EC_NULL_LOG_ERR(parent = bfromcstr(vol->v_path), AFPERR_MISC);
1134         } else {
1135             /* build path for parent */
1136             EC_NULL_LOG_ERR(parent = bstrcpy(dir->d_fullpath), AFPERR_MISC);
1137             EC_ZERO_LOG_ERR(bconchar(parent, '/'), AFPERR_MISC);
1138             EC_ZERO_LOG_ERR(bcatcstr(parent, path), AFPERR_MISC);
1139             EC_NEG1_LOG_ERR(i = bstrrchr(parent, '/'), AFPERR_MISC);
1140             EC_ZERO_LOG_ERR(binsertch(parent, i, 1, 0), AFPERR_MISC);
1141         }
1142
1143         LOG(log_debug, logtype_afpd,"parent: %s", cfrombstr(parent));
1144         EC_ZERO_LOG_ERR(lstat(cfrombstr(parent), &st), AFPERR_MISC);
1145
1146 #ifdef HAVE_SOLARIS_ACLS
1147         EC_ZERO_LOG(solaris_acl_rights(cfrombstr(parent), &st, pwd, &parent_rights));
1148 #endif
1149 #ifdef HAVE_POSIX_ACLS
1150     EC_ZERO_LOG(posix_acl_rights(path, &st, pwd, &allowed_rights));
1151 #endif
1152         if (parent_rights & (DARWIN_ACE_WRITE_DATA | DARWIN_ACE_DELETE_CHILD))
1153             allowed_rights |= DARWIN_ACE_DELETE; /* man, that was a lot of work! */
1154     }
1155
1156     if ((requested_rights & allowed_rights) != requested_rights) {
1157         LOG(log_debug, logtype_afpd, "some requested right wasn't allowed: 0x%08x / 0x%08x",
1158             requested_rights, allowed_rights);
1159         EC_STATUS(AFPERR_ACCESS);
1160     } else {
1161         LOG(log_debug, logtype_afpd, "all requested rights are allowed: 0x%08x",
1162             requested_rights);
1163         EC_STATUS(AFP_OK);
1164     }
1165
1166 EC_CLEANUP:
1167     if (username) free(username);
1168     if (parent) bdestroy(parent);
1169
1170     EC_EXIT;
1171 }
1172
1173 /********************************************************
1174  * Interface
1175  ********************************************************/
1176
1177 int afp_access(AFPObj *obj, char *ibuf, size_t ibuflen _U_, char *rbuf _U_, size_t *rbuflen)
1178 {
1179     int         ret;
1180     struct vol      *vol;
1181     struct dir      *dir;
1182     uint32_t            did, darwin_ace_rights;
1183     uint16_t        vid;
1184     struct path         *s_path;
1185     uuidp_t             uuid;
1186
1187     *rbuflen = 0;
1188     ibuf += 2;
1189
1190     memcpy(&vid, ibuf, sizeof( vid ));
1191     ibuf += sizeof(vid);
1192     if (NULL == ( vol = getvolbyvid( vid ))) {
1193         LOG(log_error, logtype_afpd, "afp_access: error getting volid:%d", vid);
1194         return AFPERR_NOOBJ;
1195     }
1196
1197     memcpy(&did, ibuf, sizeof( did ));
1198     ibuf += sizeof( did );
1199     if (NULL == ( dir = dirlookup( vol, did ))) {
1200         LOG(log_error, logtype_afpd, "afp_access: error getting did:%d", did);
1201         return afp_errno;
1202     }
1203
1204     /* Skip bitmap */
1205     ibuf += 2;
1206
1207     /* Store UUID address */
1208     uuid = (uuidp_t)ibuf;
1209     ibuf += UUID_BINSIZE;
1210
1211     /* Store ACE rights */
1212     memcpy(&darwin_ace_rights, ibuf, 4);
1213     darwin_ace_rights = ntohl(darwin_ace_rights);
1214     ibuf += 4;
1215
1216     /* get full path and handle file/dir subtleties in netatalk code*/
1217     if (NULL == ( s_path = cname( vol, dir, &ibuf ))) {
1218         LOG(log_error, logtype_afpd, "afp_getacl: cname got an error!");
1219         return AFPERR_NOOBJ;
1220     }
1221     if (!s_path->st_valid)
1222         of_statdir(vol, s_path);
1223     if ( s_path->st_errno != 0 ) {
1224         LOG(log_error, logtype_afpd, "afp_getacl: cant stat");
1225         return AFPERR_NOOBJ;
1226     }
1227
1228     ret = check_acl_access(vol, dir, s_path->u_name, uuid, darwin_ace_rights);
1229
1230     return ret;
1231 }
1232
1233 int afp_getacl(AFPObj *obj, char *ibuf, size_t ibuflen _U_, char *rbuf _U_, size_t *rbuflen)
1234 {
1235     struct vol      *vol;
1236     struct dir      *dir;
1237     int         ret;
1238     uint32_t           did;
1239     uint16_t        vid, bitmap;
1240     struct path         *s_path;
1241     struct passwd       *pw;
1242     struct group        *gr;
1243
1244     LOG(log_debug9, logtype_afpd, "afp_getacl: BEGIN");
1245     *rbuflen = 0;
1246     ibuf += 2;
1247
1248     memcpy(&vid, ibuf, sizeof( vid ));
1249     ibuf += sizeof(vid);
1250     if (NULL == ( vol = getvolbyvid( vid ))) {
1251         LOG(log_error, logtype_afpd, "afp_getacl: error getting volid:%d", vid);
1252         return AFPERR_NOOBJ;
1253     }
1254
1255     memcpy(&did, ibuf, sizeof( did ));
1256     ibuf += sizeof( did );
1257     if (NULL == ( dir = dirlookup( vol, did ))) {
1258         LOG(log_error, logtype_afpd, "afp_getacl: error getting did:%d", did);
1259         return afp_errno;
1260     }
1261
1262     memcpy(&bitmap, ibuf, sizeof( bitmap ));
1263     memcpy(rbuf, ibuf, sizeof( bitmap ));
1264     bitmap = ntohs( bitmap );
1265     ibuf += sizeof( bitmap );
1266     rbuf += sizeof( bitmap );
1267     *rbuflen += sizeof( bitmap );
1268
1269     /* skip maxreplysize */
1270     ibuf += 4;
1271
1272     /* get full path and handle file/dir subtleties in netatalk code*/
1273     if (NULL == ( s_path = cname( vol, dir, &ibuf ))) {
1274         LOG(log_error, logtype_afpd, "afp_getacl: cname got an error!");
1275         return AFPERR_NOOBJ;
1276     }
1277     if (!s_path->st_valid)
1278         of_statdir(vol, s_path);
1279     if ( s_path->st_errno != 0 ) {
1280         LOG(log_error, logtype_afpd, "afp_getacl: cant stat");
1281         return AFPERR_NOOBJ;
1282     }
1283
1284     /* Shall we return owner UUID ? */
1285     if (bitmap & kFileSec_UUID) {
1286         LOG(log_debug, logtype_afpd, "afp_getacl: client requested files owner user UUID");
1287         if (NULL == (pw = getpwuid(s_path->st.st_uid)))
1288             return AFPERR_MISC;
1289         LOG(log_debug, logtype_afpd, "afp_getacl: got uid: %d, name: %s", s_path->st.st_uid, pw->pw_name);
1290         if ((ret = getuuidfromname(pw->pw_name, UUID_USER, rbuf)) != 0)
1291             return AFPERR_MISC;
1292         rbuf += UUID_BINSIZE;
1293         *rbuflen += UUID_BINSIZE;
1294     }
1295
1296     /* Shall we return group UUID ? */
1297     if (bitmap & kFileSec_GRPUUID) {
1298         LOG(log_debug, logtype_afpd, "afp_getacl: client requested files owner group UUID");
1299         if (NULL == (gr = getgrgid(s_path->st.st_gid)))
1300             return AFPERR_MISC;
1301         LOG(log_debug, logtype_afpd, "afp_getacl: got gid: %d, name: %s", s_path->st.st_gid, gr->gr_name);
1302         if ((ret = getuuidfromname(gr->gr_name, UUID_GROUP, rbuf)) != 0)
1303             return AFPERR_MISC;
1304         rbuf += UUID_BINSIZE;
1305         *rbuflen += UUID_BINSIZE;
1306     }
1307
1308     /* Shall we return ACL ? */
1309     if (bitmap & kFileSec_ACL) {
1310         LOG(log_debug, logtype_afpd, "afp_getacl: client requested files ACL");
1311         get_and_map_acl(s_path->u_name, rbuf, rbuflen);
1312     }
1313
1314     LOG(log_debug9, logtype_afpd, "afp_getacl: END");
1315     return AFP_OK;
1316 }
1317
1318 int afp_setacl(AFPObj *obj, char *ibuf, size_t ibuflen _U_, char *rbuf _U_, size_t *rbuflen)
1319 {
1320     struct vol      *vol;
1321     struct dir      *dir;
1322     int         ret;
1323     uint32_t            did;
1324     uint16_t        vid, bitmap;
1325     struct path         *s_path;
1326
1327     LOG(log_debug9, logtype_afpd, "afp_setacl: BEGIN");
1328     *rbuflen = 0;
1329     ibuf += 2;
1330
1331     memcpy(&vid, ibuf, sizeof( vid ));
1332     ibuf += sizeof(vid);
1333     if (NULL == ( vol = getvolbyvid( vid ))) {
1334         LOG(log_error, logtype_afpd, "afp_setacl: error getting volid:%d", vid);
1335         return AFPERR_NOOBJ;
1336     }
1337
1338     memcpy(&did, ibuf, sizeof( did ));
1339     ibuf += sizeof( did );
1340     if (NULL == ( dir = dirlookup( vol, did ))) {
1341         LOG(log_error, logtype_afpd, "afp_setacl: error getting did:%d", did);
1342         return afp_errno;
1343     }
1344
1345     memcpy(&bitmap, ibuf, sizeof( bitmap ));
1346     bitmap = ntohs( bitmap );
1347     ibuf += sizeof( bitmap );
1348
1349     /* get full path and handle file/dir subtleties in netatalk code*/
1350     if (NULL == ( s_path = cname( vol, dir, &ibuf ))) {
1351         LOG(log_error, logtype_afpd, "afp_setacl: cname got an error!");
1352         return AFPERR_NOOBJ;
1353     }
1354     if (!s_path->st_valid)
1355         of_statdir(vol, s_path);
1356     if ( s_path->st_errno != 0 ) {
1357         LOG(log_error, logtype_afpd, "afp_setacl: cant stat");
1358         return AFPERR_NOOBJ;
1359     }
1360     LOG(log_debug, logtype_afpd, "afp_setacl: unixname: %s", s_path->u_name);
1361
1362     /* Padding? */
1363     if ((unsigned long)ibuf & 1)
1364         ibuf++;
1365
1366     /* Start processing request */
1367
1368     /* Change owner: dont even try */
1369     if (bitmap & kFileSec_UUID) {
1370         LOG(log_note, logtype_afpd, "afp_setacl: change owner request, discarded");
1371         ret = AFPERR_ACCESS;
1372         ibuf += UUID_BINSIZE;
1373     }
1374
1375     /* Change group: certain changes might be allowed, so try it. FIXME: not implemented yet. */
1376     if (bitmap & kFileSec_UUID) {
1377         LOG(log_note, logtype_afpd, "afp_setacl: change group request, not supported");
1378         ret = AFPERR_PARAM;
1379         ibuf += UUID_BINSIZE;
1380     }
1381
1382     /* Remove ACL ? */
1383     if (bitmap & kFileSec_REMOVEACL) {
1384         LOG(log_debug, logtype_afpd, "afp_setacl: Remove ACL request.");
1385         if ((ret = remove_acl(vol, s_path->u_name, S_ISDIR(s_path->st.st_mode))) != AFP_OK)
1386             LOG(log_error, logtype_afpd, "afp_setacl: error from remove_acl");
1387     }
1388
1389     /* Change ACL ? */
1390     if (bitmap & kFileSec_ACL) {
1391         LOG(log_debug, logtype_afpd, "afp_setacl: Change ACL request.");
1392         /*  Get no of ACEs the client put on the wire */
1393         uint32_t ace_count;
1394         memcpy(&ace_count, ibuf, sizeof(uint32_t));
1395         ace_count = htonl(ace_count);
1396         ibuf += 8;      /* skip ACL flags (see acls.h) */
1397
1398         ret = set_acl(vol,
1399                       s_path->u_name,
1400                       (bitmap & kFileSec_Inherit),
1401                       (darwin_ace_t *)ibuf,
1402                       ace_count);
1403         if (ret == 0)
1404             ret = AFP_OK;
1405         else {
1406             LOG(log_warning, logtype_afpd, "afp_setacl(\"%s/%s\"): error",
1407                 getcwdpath(), s_path->u_name);
1408             ret = AFPERR_MISC;
1409         }
1410     }
1411
1412     LOG(log_debug9, logtype_afpd, "afp_setacl: END");
1413     return ret;
1414 }
1415
1416 /*
1417   unix.c/accessmode calls this: map ACL to OS 9 mode
1418 */
1419 int acltoownermode(char *path, struct stat *st, uid_t uid, struct maccess *ma)
1420 {
1421     EC_INIT;
1422     struct passwd *pw;
1423     uint32_t rights = 0;
1424
1425     if ( ! (AFPobj->options.flags & OPTION_UUID)
1426          ||
1427          ! (AFPobj->options.flags & OPTION_ACL2MACCESS))
1428         return 0;
1429
1430     LOG(log_maxdebug, logtype_afpd, "acltoownermode('%s')", path);
1431
1432     EC_NULL_LOG(pw = getpwuid(uid));
1433
1434 #ifdef HAVE_SOLARIS_ACLS
1435     EC_ZERO_LOG(solaris_acl_rights(path, st, pw, &rights));
1436 #endif
1437 #ifdef HAVE_POSIX_ACLS
1438 #endif
1439
1440     LOG(log_debug, logtype_afpd, "rights: 0x%08x", rights);
1441
1442     LOG(log_maxdebug, logtype_afpd, "acltoownermode: ma_user before: %04o",ma->ma_user);
1443     if (rights & DARWIN_ACE_READ_DATA)
1444         ma->ma_user |= AR_UREAD;
1445     if (rights & DARWIN_ACE_WRITE_DATA)
1446         ma->ma_user |= AR_UWRITE;
1447     if (rights & (DARWIN_ACE_EXECUTE | DARWIN_ACE_SEARCH))
1448         ma->ma_user |= AR_USEARCH;
1449     LOG(log_maxdebug, logtype_afpd, "acltoownermode: ma_user after: %04o", ma->ma_user);
1450
1451 EC_CLEANUP:
1452     EC_EXIT;
1453 }