source/smbd/posix_acls.c

   1 /*
   2    Unix SMB/CIFS implementation.
   3    SMB NT Security Descriptor / Unix permission conversion.
   4    Copyright (C) Jeremy Allison 1994-2000.
   5    Copyright (C) Andreas Gruenbacher 2002.
   6
   7    This program is free software; you can redistribute it and/or modify
   8    it under the terms of the GNU General Public License as published by
   9    the Free Software Foundation; either version 2 of the License, or
  10    (at your option) any later version.
  11
  12    This program is distributed in the hope that it will be useful,
  13    but WITHOUT ANY WARRANTY; without even the implied warranty of
  14    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15    GNU General Public License for more details.
  16
  17    You should have received a copy of the GNU General Public License
  18    along with this program; if not, write to the Free Software
  19    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  20 */
  21
  22 #include "includes.h"
  23
  24 extern struct current_user current_user;
  25 extern struct generic_mapping file_generic_mapping;
  26
  27 #undef  DBGC_CLASS
  28 #define DBGC_CLASS DBGC_ACLS
  29
  30 /****************************************************************************
  31  Data structures representing the internal ACE format.
  32 ****************************************************************************/
  33
  34 enum ace_owner {UID_ACE, GID_ACE, WORLD_ACE};
  35 enum ace_attribute {ALLOW_ACE, DENY_ACE}; /* Used for incoming NT ACLS. */
  36
  37 typedef union posix_id {
  38                 uid_t uid;
  39                 gid_t gid;
  40                 int world;
  41 } posix_id;
  42
  43 typedef struct canon_ace {
  44         struct canon_ace *next, *prev;
  45         SMB_ACL_TAG_T type;
  46         mode_t perms; /* Only use S_I(R|W|X)USR mode bits here. */
  47         DOM_SID trustee;
  48         enum ace_owner owner_type;
  49         enum ace_attribute attr;
  50         posix_id unix_ug;
  51         BOOL inherited;
  52 } canon_ace;
  53
  54 #define ALL_ACE_PERMS (S_IRUSR|S_IWUSR|S_IXUSR)
  55
  56 /*
  57  * EA format of user.SAMBA_PAI (Samba_Posix_Acl_Interitance)
  58  * attribute on disk.
  59  *
  60  * |  1   |  1   |   2         |         2           |  ....
  61  * +------+------+-------------+---------------------+-------------+--------------------+
  62  * | vers | flag | num_entries | num_default_entries | ..entries.. | default_entries... |
  63  * +------+------+-------------+---------------------+-------------+--------------------+
  64  */
  65
  66 #define PAI_VERSION_OFFSET      0
  67 #define PAI_FLAG_OFFSET         1
  68 #define PAI_NUM_ENTRIES_OFFSET  2
  69 #define PAI_NUM_DEFAULT_ENTRIES_OFFSET  4
  70 #define PAI_ENTRIES_BASE        6
  71
  72 #define PAI_VERSION             1
  73 #define PAI_ACL_FLAG_PROTECTED  0x1
  74 #define PAI_ENTRY_LENGTH        5
  75
  76 /*
  77  * In memory format of user.SAMBA_PAI attribute.
  78  */
  79
  80 struct pai_entry {
  81         struct pai_entry *next, *prev;
  82         enum ace_owner owner_type;
  83         posix_id unix_ug;
  84 };
  85
  86 struct pai_val {
  87         BOOL pai_protected;
  88         unsigned int num_entries;
  89         struct pai_entry *entry_list;
  90         unsigned int num_def_entries;
  91         struct pai_entry *def_entry_list;
  92 };
  93
  94 /************************************************************************
  95  Return a uint32 of the pai_entry principal.
  96 ************************************************************************/
  97
  98 static uint32 get_pai_entry_val(struct pai_entry *paie)
  99 {
 100         switch (paie->owner_type) {
 101                 case UID_ACE:
 102                         DEBUG(10,("get_pai_entry_val: uid = %u\n", (unsigned int)paie->unix_ug.uid ));
 103                         return (uint32)paie->unix_ug.uid;
 104                 case GID_ACE:
 105                         DEBUG(10,("get_pai_entry_val: gid = %u\n", (unsigned int)paie->unix_ug.gid ));
 106                         return (uint32)paie->unix_ug.gid;
 107                 case WORLD_ACE:
 108                 default:
 109                         DEBUG(10,("get_pai_entry_val: world ace\n"));
 110                         return (uint32)-1;
 111         }
 112 }
 113
 114 /************************************************************************
 115  Return a uint32 of the entry principal.
 116 ************************************************************************/
 117
 118 static uint32 get_entry_val(canon_ace *ace_entry)
 119 {
 120         switch (ace_entry->owner_type) {
 121                 case UID_ACE:
 122                         DEBUG(10,("get_entry_val: uid = %u\n", (unsigned int)ace_entry->unix_ug.uid ));
 123                         return (uint32)ace_entry->unix_ug.uid;
 124                 case GID_ACE:
 125                         DEBUG(10,("get_entry_val: gid = %u\n", (unsigned int)ace_entry->unix_ug.gid ));
 126                         return (uint32)ace_entry->unix_ug.gid;
 127                 case WORLD_ACE:
 128                 default:
 129                         DEBUG(10,("get_entry_val: world ace\n"));
 130                         return (uint32)-1;
 131         }
 132 }
 133
 134 /************************************************************************
 135  Count the inherited entries.
 136 ************************************************************************/
 137
 138 static unsigned int num_inherited_entries(canon_ace *ace_list)
 139 {
 140         unsigned int num_entries = 0;
 141
 142         for (; ace_list; ace_list = ace_list->next)
 143                 if (ace_list->inherited)
 144                         num_entries++;
 145         return num_entries;
 146 }
 147
 148 /************************************************************************
 149  Create the on-disk format. Caller must free.
 150 ************************************************************************/
 151
 152 static char *create_pai_buf(canon_ace *file_ace_list, canon_ace *dir_ace_list, BOOL pai_protected, size_t *store_size)
 153 {
 154         char *pai_buf = NULL;
 155         canon_ace *ace_list = NULL;
 156         char *entry_offset = NULL;
 157         unsigned int num_entries = 0;
 158         unsigned int num_def_entries = 0;
 159
 160         for (ace_list = file_ace_list; ace_list; ace_list = ace_list->next)
 161                 if (ace_list->inherited)
 162                         num_entries++;
 163
 164         for (ace_list = dir_ace_list; ace_list; ace_list = ace_list->next)
 165                 if (ace_list->inherited)
 166                         num_def_entries++;
 167
 168         DEBUG(10,("create_pai_buf: num_entries = %u, num_def_entries = %u\n", num_entries, num_def_entries ));
 169
 170         *store_size = PAI_ENTRIES_BASE + ((num_entries + num_def_entries)*PAI_ENTRY_LENGTH);
 171
 172         pai_buf = (char *)SMB_MALLOC(*store_size);
 173         if (!pai_buf) {
 174                 return NULL;
 175         }
 176
 177         /* Set up the header. */
 178         memset(pai_buf, '\0', PAI_ENTRIES_BASE);
 179         SCVAL(pai_buf,PAI_VERSION_OFFSET,PAI_VERSION);
 180         SCVAL(pai_buf,PAI_FLAG_OFFSET,(pai_protected ? PAI_ACL_FLAG_PROTECTED : 0));
 181         SSVAL(pai_buf,PAI_NUM_ENTRIES_OFFSET,num_entries);
 182         SSVAL(pai_buf,PAI_NUM_DEFAULT_ENTRIES_OFFSET,num_def_entries);
 183
 184         entry_offset = pai_buf + PAI_ENTRIES_BASE;
 185
 186         for (ace_list = file_ace_list; ace_list; ace_list = ace_list->next) {
 187                 if (ace_list->inherited) {
 188                         uint8 type_val = (unsigned char)ace_list->owner_type;
 189                         uint32 entry_val = get_entry_val(ace_list);
 190
 191                         SCVAL(entry_offset,0,type_val);
 192                         SIVAL(entry_offset,1,entry_val);
 193                         entry_offset += PAI_ENTRY_LENGTH;
 194                 }
 195         }
 196
 197         for (ace_list = dir_ace_list; ace_list; ace_list = ace_list->next) {
 198                 if (ace_list->inherited) {
 199                         uint8 type_val = (unsigned char)ace_list->owner_type;
 200                         uint32 entry_val = get_entry_val(ace_list);
 201
 202                         SCVAL(entry_offset,0,type_val);
 203                         SIVAL(entry_offset,1,entry_val);
 204                         entry_offset += PAI_ENTRY_LENGTH;
 205                 }
 206         }
 207
 208         return pai_buf;
 209 }
 210
 211 /************************************************************************
 212  Store the user.SAMBA_PAI attribute on disk.
 213 ************************************************************************/
 214
 215 static void store_inheritance_attributes(files_struct *fsp, canon_ace *file_ace_list,
 216                                         canon_ace *dir_ace_list, BOOL pai_protected)
 217 {
 218         int ret;
 219         size_t store_size;
 220         char *pai_buf;
 221
 222         if (!lp_map_acl_inherit(SNUM(fsp->conn)))
 223                 return;
 224
 225         /*
 226          * Don't store if this ACL isn't protected and
 227          * none of the entries in it are marked as inherited.
 228          */
 229
 230         if (!pai_protected && num_inherited_entries(file_ace_list) == 0 && num_inherited_entries(dir_ace_list) == 0) {
 231                 /* Instead just remove the attribute if it exists. */
 232                 if (fsp->fh->fd != -1)
 233                         SMB_VFS_FREMOVEXATTR(fsp, fsp->fh->fd, SAMBA_POSIX_INHERITANCE_EA_NAME);
 234                 else
 235                         SMB_VFS_REMOVEXATTR(fsp->conn, fsp->fsp_name, SAMBA_POSIX_INHERITANCE_EA_NAME);
 236                 return;
 237         }
 238
 239         pai_buf = create_pai_buf(file_ace_list, dir_ace_list, pai_protected, &store_size);
 240
 241         if (fsp->fh->fd != -1)
 242                 ret = SMB_VFS_FSETXATTR(fsp, fsp->fh->fd, SAMBA_POSIX_INHERITANCE_EA_NAME,
 243                                 pai_buf, store_size, 0);
 244         else
 245                 ret = SMB_VFS_SETXATTR(fsp->conn,fsp->fsp_name, SAMBA_POSIX_INHERITANCE_EA_NAME,
 246                                 pai_buf, store_size, 0);
 247
 248         SAFE_FREE(pai_buf);
 249
 250         DEBUG(10,("store_inheritance_attribute:%s for file %s\n", pai_protected ? " (protected)" : "", fsp->fsp_name));
 251         if (ret == -1 && !no_acl_syscall_error(errno))
 252                 DEBUG(1,("store_inheritance_attribute: Error %s\n", strerror(errno) ));
 253 }
 254
 255 /************************************************************************
 256  Delete the in memory inheritance info.
 257 ************************************************************************/
 258
 259 static void free_inherited_info(struct pai_val *pal)
 260 {
 261         if (pal) {
 262                 struct pai_entry *paie, *paie_next;
 263                 for (paie = pal->entry_list; paie; paie = paie_next) {
 264                         paie_next = paie->next;
 265                         SAFE_FREE(paie);
 266                 }
 267                 for (paie = pal->def_entry_list; paie; paie = paie_next) {
 268                         paie_next = paie->next;
 269                         SAFE_FREE(paie);
 270                 }
 271                 SAFE_FREE(pal);
 272         }
 273 }
 274
 275 /************************************************************************
 276  Was this ACL protected ?
 277 ************************************************************************/
 278
 279 static BOOL get_protected_flag(struct pai_val *pal)
 280 {
 281         if (!pal)
 282                 return False;
 283         return pal->pai_protected;
 284 }
 285
 286 /************************************************************************
 287  Was this ACE inherited ?
 288 ************************************************************************/
 289
 290 static BOOL get_inherited_flag(struct pai_val *pal, canon_ace *ace_entry, BOOL default_ace)
 291 {
 292         struct pai_entry *paie;
 293
 294         if (!pal)
 295                 return False;
 296
 297         /* If the entry exists it is inherited. */
 298         for (paie = (default_ace ? pal->def_entry_list : pal->entry_list); paie; paie = paie->next) {
 299                 if (ace_entry->owner_type == paie->owner_type &&
 300                                 get_entry_val(ace_entry) == get_pai_entry_val(paie))
 301                         return True;
 302         }
 303         return False;
 304 }
 305
 306 /************************************************************************
 307  Ensure an attribute just read is valid.
 308 ************************************************************************/
 309
 310 static BOOL check_pai_ok(char *pai_buf, size_t pai_buf_data_size)
 311 {
 312         uint16 num_entries;
 313         uint16 num_def_entries;
 314
 315         if (pai_buf_data_size < PAI_ENTRIES_BASE) {
 316                 /* Corrupted - too small. */
 317                 return False;
 318         }
 319
 320         if (CVAL(pai_buf,PAI_VERSION_OFFSET) != PAI_VERSION)
 321                 return False;
 322
 323         num_entries = SVAL(pai_buf,PAI_NUM_ENTRIES_OFFSET);
 324         num_def_entries = SVAL(pai_buf,PAI_NUM_DEFAULT_ENTRIES_OFFSET);
 325
 326         /* Check the entry lists match. */
 327         /* Each entry is 5 bytes (type plus 4 bytes of uid or gid). */
 328
 329         if (((num_entries + num_def_entries)*PAI_ENTRY_LENGTH) + PAI_ENTRIES_BASE != pai_buf_data_size)
 330                 return False;
 331
 332         return True;
 333 }
 334
 335
 336 /************************************************************************
 337  Convert to in-memory format.
 338 ************************************************************************/
 339
 340 static struct pai_val *create_pai_val(char *buf, size_t size)
 341 {
 342         char *entry_offset;
 343         struct pai_val *paiv = NULL;
 344         int i;
 345
 346         if (!check_pai_ok(buf, size))
 347                 return NULL;
 348
 349         paiv = SMB_MALLOC_P(struct pai_val);
 350         if (!paiv)
 351                 return NULL;
 352
 353         memset(paiv, '\0', sizeof(struct pai_val));
 354
 355         paiv->pai_protected = (CVAL(buf,PAI_FLAG_OFFSET) == PAI_ACL_FLAG_PROTECTED);
 356
 357         paiv->num_entries = SVAL(buf,PAI_NUM_ENTRIES_OFFSET);
 358         paiv->num_def_entries = SVAL(buf,PAI_NUM_DEFAULT_ENTRIES_OFFSET);
 359
 360         entry_offset = buf + PAI_ENTRIES_BASE;
 361
 362         DEBUG(10,("create_pai_val:%s num_entries = %u, num_def_entries = %u\n",
 363                         paiv->pai_protected ? " (pai_protected)" : "", paiv->num_entries, paiv->num_def_entries ));
 364
 365         for (i = 0; i < paiv->num_entries; i++) {
 366                 struct pai_entry *paie;
 367
 368                 paie = SMB_MALLOC_P(struct pai_entry);
 369                 if (!paie) {
 370                         free_inherited_info(paiv);
 371                         return NULL;
 372                 }
 373
 374                 paie->owner_type = (enum ace_owner)CVAL(entry_offset,0);
 375                 switch( paie->owner_type) {
 376                         case UID_ACE:
 377                                 paie->unix_ug.uid = (uid_t)IVAL(entry_offset,1);
 378                                 DEBUG(10,("create_pai_val: uid = %u\n", (unsigned int)paie->unix_ug.uid ));
 379                                 break;
 380                         case GID_ACE:
 381                                 paie->unix_ug.gid = (gid_t)IVAL(entry_offset,1);
 382                                 DEBUG(10,("create_pai_val: gid = %u\n", (unsigned int)paie->unix_ug.gid ));
 383                                 break;
 384                         case WORLD_ACE:
 385                                 paie->unix_ug.world = -1;
 386                                 DEBUG(10,("create_pai_val: world ace\n"));
 387                                 break;
 388                         default:
 389                                 free_inherited_info(paiv);
 390                                 return NULL;
 391                 }
 392                 entry_offset += PAI_ENTRY_LENGTH;
 393                 DLIST_ADD(paiv->entry_list, paie);
 394         }
 395
 396         for (i = 0; i < paiv->num_def_entries; i++) {
 397                 struct pai_entry *paie;
 398
 399                 paie = SMB_MALLOC_P(struct pai_entry);
 400                 if (!paie) {
 401                         free_inherited_info(paiv);
 402                         return NULL;
 403                 }
 404
 405                 paie->owner_type = (enum ace_owner)CVAL(entry_offset,0);
 406                 switch( paie->owner_type) {
 407                         case UID_ACE:
 408                                 paie->unix_ug.uid = (uid_t)IVAL(entry_offset,1);
 409                                 DEBUG(10,("create_pai_val: (def) uid = %u\n", (unsigned int)paie->unix_ug.uid ));
 410                                 break;
 411                         case GID_ACE:
 412                                 paie->unix_ug.gid = (gid_t)IVAL(entry_offset,1);
 413                                 DEBUG(10,("create_pai_val: (def) gid = %u\n", (unsigned int)paie->unix_ug.gid ));
 414                                 break;
 415                         case WORLD_ACE:
 416                                 paie->unix_ug.world = -1;
 417                                 DEBUG(10,("create_pai_val: (def) world ace\n"));
 418                                 break;
 419                         default:
 420                                 free_inherited_info(paiv);
 421                                 return NULL;
 422                 }
 423                 entry_offset += PAI_ENTRY_LENGTH;
 424                 DLIST_ADD(paiv->def_entry_list, paie);
 425         }
 426
 427         return paiv;
 428 }
 429
 430 /************************************************************************
 431  Load the user.SAMBA_PAI attribute.
 432 ************************************************************************/
 433
 434 static struct pai_val *load_inherited_info(files_struct *fsp)
 435 {
 436         char *pai_buf;
 437         size_t pai_buf_size = 1024;
 438         struct pai_val *paiv = NULL;
 439         ssize_t ret;
 440
 441         if (!lp_map_acl_inherit(SNUM(fsp->conn)))
 442                 return NULL;
 443
 444         if ((pai_buf = (char *)SMB_MALLOC(pai_buf_size)) == NULL)
 445                 return NULL;
 446
 447         do {
 448                 if (fsp->fh->fd != -1)
 449                         ret = SMB_VFS_FGETXATTR(fsp, fsp->fh->fd, SAMBA_POSIX_INHERITANCE_EA_NAME,
 450                                         pai_buf, pai_buf_size);
 451                 else
 452                         ret = SMB_VFS_GETXATTR(fsp->conn,fsp->fsp_name,SAMBA_POSIX_INHERITANCE_EA_NAME,
 453                                         pai_buf, pai_buf_size);
 454
 455                 if (ret == -1) {
 456                         if (errno != ERANGE) {
 457                                 break;
 458                         }
 459                         /* Buffer too small - enlarge it. */
 460                         pai_buf_size *= 2;
 461                         SAFE_FREE(pai_buf);
 462                         if (pai_buf_size > 1024*1024) {
 463                                 return NULL; /* Limit malloc to 1mb. */
 464                         }
 465                         if ((pai_buf = (char *)SMB_MALLOC(pai_buf_size)) == NULL)
 466                                 return NULL;
 467                 }
 468         } while (ret == -1);
 469
 470         DEBUG(10,("load_inherited_info: ret = %lu for file %s\n", (unsigned long)ret, fsp->fsp_name));
 471
 472         if (ret == -1) {
 473                 /* No attribute or not supported. */
 474 #if defined(ENOATTR)
 475                 if (errno != ENOATTR)
 476                         DEBUG(10,("load_inherited_info: Error %s\n", strerror(errno) ));
 477 #else
 478                 if (errno != ENOSYS)
 479                         DEBUG(10,("load_inherited_info: Error %s\n", strerror(errno) ));
 480 #endif
 481                 SAFE_FREE(pai_buf);
 482                 return NULL;
 483         }
 484
 485         paiv = create_pai_val(pai_buf, ret);
 486
 487         if (paiv && paiv->pai_protected)
 488                 DEBUG(10,("load_inherited_info: ACL is protected for file %s\n", fsp->fsp_name));
 489
 490         SAFE_FREE(pai_buf);
 491         return paiv;
 492 }
 493
 494 /****************************************************************************
 495  Functions to manipulate the internal ACE format.
 496 ****************************************************************************/
 497
 498 /****************************************************************************
 499  Count a linked list of canonical ACE entries.
 500 ****************************************************************************/
 501
 502 static size_t count_canon_ace_list( canon_ace *list_head )
 503 {
 504         size_t count = 0;
 505         canon_ace *ace;
 506
 507         for (ace = list_head; ace; ace = ace->next)
 508                 count++;
 509
 510         return count;
 511 }
 512
 513 /****************************************************************************
 514  Free a linked list of canonical ACE entries.
 515 ****************************************************************************/
 516
 517 static void free_canon_ace_list( canon_ace *list_head )
 518 {
 519         canon_ace *list, *next;
 520
 521         for (list = list_head; list; list = next) {
 522                 next = list->next;
 523                 DLIST_REMOVE(list_head, list);
 524                 SAFE_FREE(list);
 525         }
 526 }
 527
 528 /****************************************************************************
 529  Function to duplicate a canon_ace entry.
 530 ****************************************************************************/
 531
 532 static canon_ace *dup_canon_ace( canon_ace *src_ace)
 533 {
 534         canon_ace *dst_ace = SMB_MALLOC_P(canon_ace);
 535
 536         if (dst_ace == NULL)
 537                 return NULL;
 538
 539         *dst_ace = *src_ace;
 540         dst_ace->prev = dst_ace->next = NULL;
 541         return dst_ace;
 542 }
 543
 544 /****************************************************************************
 545  Print out a canon ace.
 546 ****************************************************************************/
 547
 548 static void print_canon_ace(canon_ace *pace, int num)
 549 {
 550         fstring str;
 551
 552         dbgtext( "canon_ace index %d. Type = %s ", num, pace->attr == ALLOW_ACE ? "allow" : "deny" );
 553         dbgtext( "SID = %s ", sid_to_string( str, &pace->trustee));
 554         if (pace->owner_type == UID_ACE) {
 555                 const char *u_name = uidtoname(pace->unix_ug.uid);
 556                 dbgtext( "uid %u (%s) ", (unsigned int)pace->unix_ug.uid, u_name );
 557         } else if (pace->owner_type == GID_ACE) {
 558                 char *g_name = gidtoname(pace->unix_ug.gid);
 559                 dbgtext( "gid %u (%s) ", (unsigned int)pace->unix_ug.gid, g_name );
 560         } else
 561                 dbgtext( "other ");
 562         switch (pace->type) {
 563                 case SMB_ACL_USER:
 564                         dbgtext( "SMB_ACL_USER ");
 565                         break;
 566                 case SMB_ACL_USER_OBJ:
 567                         dbgtext( "SMB_ACL_USER_OBJ ");
 568                         break;
 569                 case SMB_ACL_GROUP:
 570                         dbgtext( "SMB_ACL_GROUP ");
 571                         break;
 572                 case SMB_ACL_GROUP_OBJ:
 573                         dbgtext( "SMB_ACL_GROUP_OBJ ");
 574                         break;
 575                 case SMB_ACL_OTHER:
 576                         dbgtext( "SMB_ACL_OTHER ");
 577                         break;
 578                 default:
 579                         dbgtext( "MASK " );
 580                         break;
 581         }
 582         if (pace->inherited)
 583                 dbgtext( "(inherited) ");
 584         dbgtext( "perms ");
 585         dbgtext( "%c", pace->perms & S_IRUSR ? 'r' : '-');
 586         dbgtext( "%c", pace->perms & S_IWUSR ? 'w' : '-');
 587         dbgtext( "%c\n", pace->perms & S_IXUSR ? 'x' : '-');
 588 }
 589
 590 /****************************************************************************
 591  Print out a canon ace list.
 592 ****************************************************************************/
 593
 594 static void print_canon_ace_list(const char *name, canon_ace *ace_list)
 595 {
 596         int count = 0;
 597
 598         if( DEBUGLVL( 10 )) {
 599                 dbgtext( "print_canon_ace_list: %s\n", name );
 600                 for (;ace_list; ace_list = ace_list->next, count++)
 601                         print_canon_ace(ace_list, count );
 602         }
 603 }
 604
 605 /****************************************************************************
 606  Map POSIX ACL perms to canon_ace permissions (a mode_t containing only S_(R|W|X)USR bits).
 607 ****************************************************************************/
 608
 609 static mode_t convert_permset_to_mode_t(connection_struct *conn, SMB_ACL_PERMSET_T permset)
 610 {
 611         mode_t ret = 0;
 612
 613         ret |= (SMB_VFS_SYS_ACL_GET_PERM(conn, permset, SMB_ACL_READ) ? S_IRUSR : 0);
 614         ret |= (SMB_VFS_SYS_ACL_GET_PERM(conn, permset, SMB_ACL_WRITE) ? S_IWUSR : 0);
 615         ret |= (SMB_VFS_SYS_ACL_GET_PERM(conn, permset, SMB_ACL_EXECUTE) ? S_IXUSR : 0);
 616
 617         return ret;
 618 }
 619
 620 /****************************************************************************
 621  Map generic UNIX permissions to canon_ace permissions (a mode_t containing only S_(R|W|X)USR bits).
 622 ****************************************************************************/
 623
 624 static mode_t unix_perms_to_acl_perms(mode_t mode, int r_mask, int w_mask, int x_mask)
 625 {
 626         mode_t ret = 0;
 627
 628         if (mode & r_mask)
 629                 ret |= S_IRUSR;
 630         if (mode & w_mask)
 631                 ret |= S_IWUSR;
 632         if (mode & x_mask)
 633                 ret |= S_IXUSR;
 634
 635         return ret;
 636 }
 637
 638 /****************************************************************************
 639  Map canon_ace permissions (a mode_t containing only S_(R|W|X)USR bits) to
 640  an SMB_ACL_PERMSET_T.
 641 ****************************************************************************/
 642
 643 static int map_acl_perms_to_permset(connection_struct *conn, mode_t mode, SMB_ACL_PERMSET_T *p_permset)
 644 {
 645         if (SMB_VFS_SYS_ACL_CLEAR_PERMS(conn, *p_permset) ==  -1)
 646                 return -1;
 647         if (mode & S_IRUSR) {
 648                 if (SMB_VFS_SYS_ACL_ADD_PERM(conn, *p_permset, SMB_ACL_READ) == -1)
 649                         return -1;
 650         }
 651         if (mode & S_IWUSR) {
 652                 if (SMB_VFS_SYS_ACL_ADD_PERM(conn, *p_permset, SMB_ACL_WRITE) == -1)
 653                         return -1;
 654         }
 655         if (mode & S_IXUSR) {
 656                 if (SMB_VFS_SYS_ACL_ADD_PERM(conn, *p_permset, SMB_ACL_EXECUTE) == -1)
 657                         return -1;
 658         }
 659         return 0;
 660 }
 661
 662 /****************************************************************************
 663  Function to create owner and group SIDs from a SMB_STRUCT_STAT.
 664 ****************************************************************************/
 665
 666 static void create_file_sids(SMB_STRUCT_STAT *psbuf, DOM_SID *powner_sid, DOM_SID *pgroup_sid)
 667 {
 668         uid_to_sid( powner_sid, psbuf->st_uid );
 669         gid_to_sid( pgroup_sid, psbuf->st_gid );
 670 }
 671
 672 /****************************************************************************
 673  Is the identity in two ACEs equal ? Check both SID and uid/gid.
 674 ****************************************************************************/
 675
 676 static BOOL identity_in_ace_equal(canon_ace *ace1, canon_ace *ace2)
 677 {
 678         if (sid_equal(&ace1->trustee, &ace2->trustee)) {
 679                 return True;
 680         }
 681         if (ace1->owner_type == ace2->owner_type) {
 682                 if (ace1->owner_type == UID_ACE &&
 683                                 ace1->unix_ug.uid == ace2->unix_ug.uid) {
 684                         return True;
 685                 } else if (ace1->owner_type == GID_ACE &&
 686                                 ace1->unix_ug.gid == ace2->unix_ug.gid) {
 687                         return True;
 688                 }
 689         }
 690         return False;
 691 }
 692
 693 /****************************************************************************
 694  Merge aces with a common sid - if both are allow or deny, OR the permissions together and
 695  delete the second one. If the first is deny, mask the permissions off and delete the allow
 696  if the permissions become zero, delete the deny if the permissions are non zero.
 697 ****************************************************************************/
 698
 699 static void merge_aces( canon_ace **pp_list_head )
 700 {
 701         canon_ace *list_head = *pp_list_head;
 702         canon_ace *curr_ace_outer;
 703         canon_ace *curr_ace_outer_next;
 704
 705         /*
 706          * First, merge allow entries with identical SIDs, and deny entries
 707          * with identical SIDs.
 708          */
 709
 710         for (curr_ace_outer = list_head; curr_ace_outer; curr_ace_outer = curr_ace_outer_next) {
 711                 canon_ace *curr_ace;
 712                 canon_ace *curr_ace_next;
 713
 714                 curr_ace_outer_next = curr_ace_outer->next; /* Save the link in case we delete. */
 715
 716                 for (curr_ace = curr_ace_outer->next; curr_ace; curr_ace = curr_ace_next) {
 717
 718                         curr_ace_next = curr_ace->next; /* Save the link in case of delete. */
 719
 720                         if (identity_in_ace_equal(curr_ace, curr_ace_outer) &&
 721                                 (curr_ace->attr == curr_ace_outer->attr)) {
 722
 723                                 if( DEBUGLVL( 10 )) {
 724                                         dbgtext("merge_aces: Merging ACE's\n");
 725                                         print_canon_ace( curr_ace_outer, 0);
 726                                         print_canon_ace( curr_ace, 0);
 727                                 }
 728
 729                                 /* Merge two allow or two deny ACE's. */
 730
 731                                 curr_ace_outer->perms |= curr_ace->perms;
 732                                 DLIST_REMOVE(list_head, curr_ace);
 733                                 SAFE_FREE(curr_ace);
 734                                 curr_ace_outer_next = curr_ace_outer->next; /* We may have deleted the link. */
 735                         }
 736                 }
 737         }
 738
 739         /*
 740          * Now go through and mask off allow permissions with deny permissions.
 741          * We can delete either the allow or deny here as we know that each SID
 742          * appears only once in the list.
 743          */
 744
 745         for (curr_ace_outer = list_head; curr_ace_outer; curr_ace_outer = curr_ace_outer_next) {
 746                 canon_ace *curr_ace;
 747                 canon_ace *curr_ace_next;
 748
 749                 curr_ace_outer_next = curr_ace_outer->next; /* Save the link in case we delete. */
 750
 751                 for (curr_ace = curr_ace_outer->next; curr_ace; curr_ace = curr_ace_next) {
 752
 753                         curr_ace_next = curr_ace->next; /* Save the link in case of delete. */
 754
 755                         /*
 756                          * Subtract ACE's with different entries. Due to the ordering constraints
 757                          * we've put on the ACL, we know the deny must be the first one.
 758                          */
 759
 760                         if (identity_in_ace_equal(curr_ace, curr_ace_outer) &&
 761                                 (curr_ace_outer->attr == DENY_ACE) && (curr_ace->attr == ALLOW_ACE)) {
 762
 763                                 if( DEBUGLVL( 10 )) {
 764                                         dbgtext("merge_aces: Masking ACE's\n");
 765                                         print_canon_ace( curr_ace_outer, 0);
 766                                         print_canon_ace( curr_ace, 0);
 767                                 }
 768
 769                                 curr_ace->perms &= ~curr_ace_outer->perms;
 770
 771                                 if (curr_ace->perms == 0) {
 772
 773                                         /*
 774                                          * The deny overrides the allow. Remove the allow.
 775                                          */
 776
 777                                         DLIST_REMOVE(list_head, curr_ace);
 778                                         SAFE_FREE(curr_ace);
 779                                         curr_ace_outer_next = curr_ace_outer->next; /* We may have deleted the link. */
 780
 781                                 } else {
 782
 783                                         /*
 784                                          * Even after removing permissions, there
 785                                          * are still allow permissions - delete the deny.
 786                                          * It is safe to delete the deny here,
 787                                          * as we are guarenteed by the deny first
 788                                          * ordering that all the deny entries for
 789                                          * this SID have already been merged into one
 790                                          * before we can get to an allow ace.
 791                                          */
 792
 793                                         DLIST_REMOVE(list_head, curr_ace_outer);
 794                                         SAFE_FREE(curr_ace_outer);
 795                                         break;
 796                                 }
 797                         }
 798
 799                 } /* end for curr_ace */
 800         } /* end for curr_ace_outer */
 801
 802         /* We may have modified the list. */
 803
 804         *pp_list_head = list_head;
 805 }
 806
 807 /****************************************************************************
 808  Check if we need to return NT4.x compatible ACL entries.
 809 ****************************************************************************/
 810
 811 static BOOL nt4_compatible_acls(void)
 812 {
 813         int compat = lp_acl_compatibility();
 814
 815         if (compat == ACL_COMPAT_AUTO) {
 816                 enum remote_arch_types ra_type = get_remote_arch();
 817
 818                 /* Automatically adapt to client */
 819                 return (ra_type <= RA_WINNT);
 820         } else
 821                 return (compat == ACL_COMPAT_WINNT);
 822 }
 823
 824
 825 /****************************************************************************
 826  Map canon_ace perms to permission bits NT.
 827  The attr element is not used here - we only process deny entries on set,
 828  not get. Deny entries are implicit on get with ace->perms = 0.
 829 ****************************************************************************/
 830
 831 static SEC_ACCESS map_canon_ace_perms(int snum,
 832                                 int *pacl_type,
 833                                 mode_t perms,
 834                                 BOOL directory_ace)
 835 {
 836         SEC_ACCESS sa;
 837         uint32 nt_mask = 0;
 838
 839         *pacl_type = SEC_ACE_TYPE_ACCESS_ALLOWED;
 840
 841         if (lp_acl_map_full_control(snum) && ((perms & ALL_ACE_PERMS) == ALL_ACE_PERMS)) {
 842                 if (directory_ace) {
 843                         nt_mask = UNIX_DIRECTORY_ACCESS_RWX;
 844                 } else {
 845                         nt_mask = UNIX_ACCESS_RWX;
 846                 }
 847         } else if ((perms & ALL_ACE_PERMS) == (mode_t)0) {
 848                 /*
 849                  * Windows NT refuses to display ACEs with no permissions in them (but
 850                  * they are perfectly legal with Windows 2000). If the ACE has empty
 851                  * permissions we cannot use 0, so we use the otherwise unused
 852                  * WRITE_OWNER permission, which we ignore when we set an ACL.
 853                  * We abstract this into a #define of UNIX_ACCESS_NONE to allow this
 854                  * to be changed in the future.
 855                  */
 856
 857                 if (nt4_compatible_acls())
 858                         nt_mask = UNIX_ACCESS_NONE;
 859                 else
 860                         nt_mask = 0;
 861         } else {
 862                 if (directory_ace) {
 863                         nt_mask |= ((perms & S_IRUSR) ? UNIX_DIRECTORY_ACCESS_R : 0 );
 864                         nt_mask |= ((perms & S_IWUSR) ? UNIX_DIRECTORY_ACCESS_W : 0 );
 865                         nt_mask |= ((perms & S_IXUSR) ? UNIX_DIRECTORY_ACCESS_X : 0 );
 866                 } else {
 867                         nt_mask |= ((perms & S_IRUSR) ? UNIX_ACCESS_R : 0 );
 868                         nt_mask |= ((perms & S_IWUSR) ? UNIX_ACCESS_W : 0 );
 869                         nt_mask |= ((perms & S_IXUSR) ? UNIX_ACCESS_X : 0 );
 870                 }
 871         }
 872
 873         DEBUG(10,("map_canon_ace_perms: Mapped (UNIX) %x to (NT) %x\n",
 874                         (unsigned int)perms, (unsigned int)nt_mask ));
 875
 876         init_sec_access(&sa,nt_mask);
 877         return sa;
 878 }
 879
 880 /****************************************************************************
 881  Map NT perms to a UNIX mode_t.
 882 ****************************************************************************/
 883
 884 #define FILE_SPECIFIC_READ_BITS (FILE_READ_DATA|FILE_READ_EA|FILE_READ_ATTRIBUTES)
 885 #define FILE_SPECIFIC_WRITE_BITS (FILE_WRITE_DATA|FILE_APPEND_DATA|FILE_WRITE_EA|FILE_WRITE_ATTRIBUTES)
 886 #define FILE_SPECIFIC_EXECUTE_BITS (FILE_EXECUTE)
 887
 888 static mode_t map_nt_perms( uint32 *mask, int type)
 889 {
 890         mode_t mode = 0;
 891
 892         switch(type) {
 893         case S_IRUSR:
 894                 if((*mask) & GENERIC_ALL_ACCESS)
 895                         mode = S_IRUSR|S_IWUSR|S_IXUSR;
 896                 else {
 897                         mode |= ((*mask) & (GENERIC_READ_ACCESS|FILE_SPECIFIC_READ_BITS)) ? S_IRUSR : 0;
 898                         mode |= ((*mask) & (GENERIC_WRITE_ACCESS|FILE_SPECIFIC_WRITE_BITS)) ? S_IWUSR : 0;
 899                         mode |= ((*mask) & (GENERIC_EXECUTE_ACCESS|FILE_SPECIFIC_EXECUTE_BITS)) ? S_IXUSR : 0;
 900                 }
 901                 break;
 902         case S_IRGRP:
 903                 if((*mask) & GENERIC_ALL_ACCESS)
 904                         mode = S_IRGRP|S_IWGRP|S_IXGRP;
 905                 else {
 906                         mode |= ((*mask) & (GENERIC_READ_ACCESS|FILE_SPECIFIC_READ_BITS)) ? S_IRGRP : 0;
 907                         mode |= ((*mask) & (GENERIC_WRITE_ACCESS|FILE_SPECIFIC_WRITE_BITS)) ? S_IWGRP : 0;
 908                         mode |= ((*mask) & (GENERIC_EXECUTE_ACCESS|FILE_SPECIFIC_EXECUTE_BITS)) ? S_IXGRP : 0;
 909                 }
 910                 break;
 911         case S_IROTH:
 912                 if((*mask) & GENERIC_ALL_ACCESS)
 913                         mode = S_IROTH|S_IWOTH|S_IXOTH;
 914                 else {
 915                         mode |= ((*mask) & (GENERIC_READ_ACCESS|FILE_SPECIFIC_READ_BITS)) ? S_IROTH : 0;
 916                         mode |= ((*mask) & (GENERIC_WRITE_ACCESS|FILE_SPECIFIC_WRITE_BITS)) ? S_IWOTH : 0;
 917                         mode |= ((*mask) & (GENERIC_EXECUTE_ACCESS|FILE_SPECIFIC_EXECUTE_BITS)) ? S_IXOTH : 0;
 918                 }
 919                 break;
 920         }
 921
 922         return mode;
 923 }
 924
 925 /****************************************************************************
 926  Unpack a SEC_DESC into a UNIX owner and group.
 927 ****************************************************************************/
 928
 929 BOOL unpack_nt_owners(int snum, uid_t *puser, gid_t *pgrp, uint32 security_info_sent, SEC_DESC *psd)
 930 {
 931         DOM_SID owner_sid;
 932         DOM_SID grp_sid;
 933
 934         *puser = (uid_t)-1;
 935         *pgrp = (gid_t)-1;
 936
 937         if(security_info_sent == 0) {
 938                 DEBUG(0,("unpack_nt_owners: no security info sent !\n"));
 939                 return True;
 940         }
 941
 942         /*
 943          * Validate the owner and group SID's.
 944          */
 945
 946         memset(&owner_sid, '\0', sizeof(owner_sid));
 947         memset(&grp_sid, '\0', sizeof(grp_sid));
 948
 949         DEBUG(5,("unpack_nt_owners: validating owner_sids.\n"));
 950
 951         /*
 952          * Don't immediately fail if the owner sid cannot be validated.
 953          * This may be a group chown only set.
 954          */
 955
 956         if (security_info_sent & OWNER_SECURITY_INFORMATION) {
 957                 sid_copy(&owner_sid, psd->owner_sid);
 958                 if (!sid_to_uid(&owner_sid, puser)) {
 959                         if (lp_force_unknown_acl_user(snum)) {
 960                                 /* this allows take ownership to work
 961                                  * reasonably */
 962                                 *puser = current_user.ut.uid;
 963                         } else {
 964                                 DEBUG(3,("unpack_nt_owners: unable to validate"
 965                                          " owner sid for %s\n",
 966                                          sid_string_static(&owner_sid)));
 967                                 return False;
 968                         }
 969                 }
 970         }
 971
 972         /*
 973          * Don't immediately fail if the group sid cannot be validated.
 974          * This may be an owner chown only set.
 975          */
 976
 977         if (security_info_sent & GROUP_SECURITY_INFORMATION) {
 978                 sid_copy(&grp_sid, psd->group_sid);
 979                 if (!sid_to_gid( &grp_sid, pgrp)) {
 980                         if (lp_force_unknown_acl_user(snum)) {
 981                                 /* this allows take group ownership to work
 982                                  * reasonably */
 983                                 *pgrp = current_user.ut.gid;
 984                         } else {
 985                                 DEBUG(3,("unpack_nt_owners: unable to validate"
 986                                          " group sid.\n"));
 987                                 return False;
 988                         }
 989                 }
 990         }
 991
 992         DEBUG(5,("unpack_nt_owners: owner_sids validated.\n"));
 993
 994         return True;
 995 }
 996
 997 /****************************************************************************
 998  Ensure the enforced permissions for this share apply.
 999 ****************************************************************************/
1000
1001 static void apply_default_perms(files_struct *fsp, canon_ace *pace, mode_t type)
1002 {
1003         int snum = SNUM(fsp->conn);
1004         mode_t and_bits = (mode_t)0;
1005         mode_t or_bits = (mode_t)0;
1006
1007         /* Get the initial bits to apply. */
1008
1009         if (fsp->is_directory) {
1010                 and_bits = lp_dir_security_mask(snum);
1011                 or_bits = lp_force_dir_security_mode(snum);
1012         } else {
1013                 and_bits = lp_security_mask(snum);
1014                 or_bits = lp_force_security_mode(snum);
1015         }
1016
1017         /* Now bounce them into the S_USR space. */
1018         switch(type) {
1019         case S_IRUSR:
1020                 /* Ensure owner has read access. */
1021                 pace->perms |= S_IRUSR;
1022                 if (fsp->is_directory)
1023                         pace->perms |= (S_IWUSR|S_IXUSR);
1024                 and_bits = unix_perms_to_acl_perms(and_bits, S_IRUSR, S_IWUSR, S_IXUSR);
1025                 or_bits = unix_perms_to_acl_perms(or_bits, S_IRUSR, S_IWUSR, S_IXUSR);
1026                 break;
1027         case S_IRGRP:
1028                 and_bits = unix_perms_to_acl_perms(and_bits, S_IRGRP, S_IWGRP, S_IXGRP);
1029                 or_bits = unix_perms_to_acl_perms(or_bits, S_IRGRP, S_IWGRP, S_IXGRP);
1030                 break;
1031         case S_IROTH:
1032                 and_bits = unix_perms_to_acl_perms(and_bits, S_IROTH, S_IWOTH, S_IXOTH);
1033                 or_bits = unix_perms_to_acl_perms(or_bits, S_IROTH, S_IWOTH, S_IXOTH);
1034                 break;
1035         }
1036
1037         pace->perms = ((pace->perms & and_bits)|or_bits);
1038 }
1039
1040 /****************************************************************************
1041  Check if a given uid/SID is in a group gid/SID. This is probably very
1042  expensive and will need optimisation. A *lot* of optimisation :-). JRA.
1043 ****************************************************************************/
1044
1045 static BOOL uid_entry_in_group( canon_ace *uid_ace, canon_ace *group_ace )
1046 {
1047         fstring u_name;
1048
1049         /* "Everyone" always matches every uid. */
1050
1051         if (sid_equal(&group_ace->trustee, &global_sid_World))
1052                 return True;
1053
1054         /* Assume that the current user is in the current group (force group) */
1055
1056         if (uid_ace->unix_ug.uid == current_user.ut.uid && group_ace->unix_ug.gid == current_user.ut.gid)
1057                 return True;
1058
1059         fstrcpy(u_name, uidtoname(uid_ace->unix_ug.uid));
1060         return user_in_group_sid(u_name, &group_ace->trustee);
1061 }
1062
1063 /****************************************************************************
1064  A well formed POSIX file or default ACL has at least 3 entries, a
1065  SMB_ACL_USER_OBJ, SMB_ACL_GROUP_OBJ, SMB_ACL_OTHER_OBJ.
1066  In addition, the owner must always have at least read access.
1067  When using this call on get_acl, the pst struct is valid and contains
1068  the mode of the file. When using this call on set_acl, the pst struct has
1069  been modified to have a mode containing the default for this file or directory
1070  type.
1071 ****************************************************************************/
1072
1073 static BOOL ensure_canon_entry_valid(canon_ace **pp_ace,
1074                                                         files_struct *fsp,
1075                                                         const DOM_SID *pfile_owner_sid,
1076                                                         const DOM_SID *pfile_grp_sid,
1077                                                         SMB_STRUCT_STAT *pst,
1078                                                         BOOL setting_acl)
1079 {
1080         canon_ace *pace;
1081         BOOL got_user = False;
1082         BOOL got_grp = False;
1083         BOOL got_other = False;
1084         canon_ace *pace_other = NULL;
1085
1086         for (pace = *pp_ace; pace; pace = pace->next) {
1087                 if (pace->type == SMB_ACL_USER_OBJ) {
1088
1089                         if (setting_acl)
1090                                 apply_default_perms(fsp, pace, S_IRUSR);
1091                         got_user = True;
1092
1093                 } else if (pace->type == SMB_ACL_GROUP_OBJ) {
1094
1095                         /*
1096                          * Ensure create mask/force create mode is respected on set.
1097                          */
1098
1099                         if (setting_acl)
1100                                 apply_default_perms(fsp, pace, S_IRGRP);
1101                         got_grp = True;
1102
1103                 } else if (pace->type == SMB_ACL_OTHER) {
1104
1105                         /*
1106                          * Ensure create mask/force create mode is respected on set.
1107                          */
1108
1109                         if (setting_acl)
1110                                 apply_default_perms(fsp, pace, S_IROTH);
1111                         got_other = True;
1112                         pace_other = pace;
1113                 }
1114         }
1115
1116         if (!got_user) {
1117                 if ((pace = SMB_MALLOC_P(canon_ace)) == NULL) {
1118                         DEBUG(0,("ensure_canon_entry_valid: malloc fail.\n"));
1119                         return False;
1120                 }
1121
1122                 ZERO_STRUCTP(pace);
1123                 pace->type = SMB_ACL_USER_OBJ;
1124                 pace->owner_type = UID_ACE;
1125                 pace->unix_ug.uid = pst->st_uid;
1126                 pace->trustee = *pfile_owner_sid;
1127                 pace->attr = ALLOW_ACE;
1128
1129                 if (setting_acl) {
1130                         /* See if the owning user is in any of the other groups in
1131                            the ACE. If so, OR in the permissions from that group. */
1132
1133                         BOOL group_matched = False;
1134                         canon_ace *pace_iter;
1135
1136                         for (pace_iter = *pp_ace; pace_iter; pace_iter = pace_iter->next) {
1137                                 if (pace_iter->type == SMB_ACL_GROUP_OBJ || pace_iter->type == SMB_ACL_GROUP) {
1138                                         if (uid_entry_in_group(pace, pace_iter)) {
1139                                                 pace->perms |= pace_iter->perms;
1140                                                 group_matched = True;
1141                                         }
1142                                 }
1143                         }
1144
1145                         /* If we only got an "everyone" perm, just use that. */
1146                         if (!group_matched) {
1147                                 if (got_other)
1148                                         pace->perms = pace_other->perms;
1149                                 else
1150                                         pace->perms = 0;
1151                         }
1152
1153                         apply_default_perms(fsp, pace, S_IRUSR);
1154                 } else {
1155                         pace->perms = unix_perms_to_acl_perms(pst->st_mode, S_IRUSR, S_IWUSR, S_IXUSR);
1156                 }
1157
1158                 DLIST_ADD(*pp_ace, pace);
1159         }
1160
1161         if (!got_grp) {
1162                 if ((pace = SMB_MALLOC_P(canon_ace)) == NULL) {
1163                         DEBUG(0,("ensure_canon_entry_valid: malloc fail.\n"));
1164                         return False;
1165                 }
1166
1167                 ZERO_STRUCTP(pace);
1168                 pace->type = SMB_ACL_GROUP_OBJ;
1169                 pace->owner_type = GID_ACE;
1170                 pace->unix_ug.uid = pst->st_gid;
1171                 pace->trustee = *pfile_grp_sid;
1172                 pace->attr = ALLOW_ACE;
1173                 if (setting_acl) {
1174                         /* If we only got an "everyone" perm, just use that. */
1175                         if (got_other)
1176                                 pace->perms = pace_other->perms;
1177                         else
1178                                 pace->perms = 0;
1179                         apply_default_perms(fsp, pace, S_IRGRP);
1180                 } else {
1181                         pace->perms = unix_perms_to_acl_perms(pst->st_mode, S_IRGRP, S_IWGRP, S_IXGRP);
1182                 }
1183
1184                 DLIST_ADD(*pp_ace, pace);
1185         }
1186
1187         if (!got_other) {
1188                 if ((pace = SMB_MALLOC_P(canon_ace)) == NULL) {
1189                         DEBUG(0,("ensure_canon_entry_valid: malloc fail.\n"));
1190                         return False;
1191                 }
1192
1193                 ZERO_STRUCTP(pace);
1194                 pace->type = SMB_ACL_OTHER;
1195                 pace->owner_type = WORLD_ACE;
1196                 pace->unix_ug.world = -1;
1197                 pace->trustee = global_sid_World;
1198                 pace->attr = ALLOW_ACE;
1199                 if (setting_acl) {
1200                         pace->perms = 0;
1201                         apply_default_perms(fsp, pace, S_IROTH);
1202                 } else
1203                         pace->perms = unix_perms_to_acl_perms(pst->st_mode, S_IROTH, S_IWOTH, S_IXOTH);
1204
1205                 DLIST_ADD(*pp_ace, pace);
1206         }
1207
1208         return True;
1209 }
1210
1211 /****************************************************************************
1212  Check if a POSIX ACL has the required SMB_ACL_USER_OBJ and SMB_ACL_GROUP_OBJ entries.
1213  If it does not have them, check if there are any entries where the trustee is the
1214  file owner or the owning group, and map these to SMB_ACL_USER_OBJ and SMB_ACL_GROUP_OBJ.
1215 ****************************************************************************/
1216
1217 static void check_owning_objs(canon_ace *ace, DOM_SID *pfile_owner_sid, DOM_SID *pfile_grp_sid)
1218 {
1219         BOOL got_user_obj, got_group_obj;
1220         canon_ace *current_ace;
1221         int i, entries;
1222
1223         entries = count_canon_ace_list(ace);
1224         got_user_obj = False;
1225         got_group_obj = False;
1226
1227         for (i=0, current_ace = ace; i < entries; i++, current_ace = current_ace->next) {
1228                 if (current_ace->type == SMB_ACL_USER_OBJ)
1229                         got_user_obj = True;
1230                 else if (current_ace->type == SMB_ACL_GROUP_OBJ)
1231                         got_group_obj = True;
1232         }
1233         if (got_user_obj && got_group_obj) {
1234                 DEBUG(10,("check_owning_objs: ACL had owning user/group entries.\n"));
1235                 return;
1236         }
1237
1238         for (i=0, current_ace = ace; i < entries; i++, current_ace = current_ace->next) {
1239                 if (!got_user_obj && current_ace->owner_type == UID_ACE &&
1240                                 sid_equal(&current_ace->trustee, pfile_owner_sid)) {
1241                         current_ace->type = SMB_ACL_USER_OBJ;
1242                         got_user_obj = True;
1243                 }
1244                 if (!got_group_obj && current_ace->owner_type == GID_ACE &&
1245                                 sid_equal(&current_ace->trustee, pfile_grp_sid)) {
1246                         current_ace->type = SMB_ACL_GROUP_OBJ;
1247                         got_group_obj = True;
1248                 }
1249         }
1250         if (!got_user_obj)
1251                 DEBUG(10,("check_owning_objs: ACL is missing an owner entry.\n"));
1252         if (!got_group_obj)
1253                 DEBUG(10,("check_owning_objs: ACL is missing an owning group entry.\n"));
1254 }
1255
1256 /****************************************************************************
1257  Unpack a SEC_DESC into two canonical ace lists.
1258 ****************************************************************************/
1259
1260 static BOOL create_canon_ace_lists(files_struct *fsp, SMB_STRUCT_STAT *pst,
1261                                                         DOM_SID *pfile_owner_sid,
1262                                                         DOM_SID *pfile_grp_sid,
1263                                                         canon_ace **ppfile_ace, canon_ace **ppdir_ace,
1264                                                         SEC_ACL *dacl)
1265 {
1266         BOOL all_aces_are_inherit_only = (fsp->is_directory ? True : False);
1267         canon_ace *file_ace = NULL;
1268         canon_ace *dir_ace = NULL;
1269         canon_ace *current_ace = NULL;
1270         BOOL got_dir_allow = False;
1271         BOOL got_file_allow = False;
1272         int i, j;
1273
1274         *ppfile_ace = NULL;
1275         *ppdir_ace = NULL;
1276
1277         /*
1278          * Convert the incoming ACL into a more regular form.
1279          */
1280
1281         for(i = 0; i < dacl->num_aces; i++) {
1282                 SEC_ACE *psa = &dacl->aces[i];
1283
1284                 if((psa->type != SEC_ACE_TYPE_ACCESS_ALLOWED) && (psa->type != SEC_ACE_TYPE_ACCESS_DENIED)) {
1285                         DEBUG(3,("create_canon_ace_lists: unable to set anything but an ALLOW or DENY ACE.\n"));
1286                         return False;
1287                 }
1288
1289                 if (nt4_compatible_acls()) {
1290                         /*
1291                          * The security mask may be UNIX_ACCESS_NONE which should map into
1292                          * no permissions (we overload the WRITE_OWNER bit for this) or it
1293                          * should be one of the ALL/EXECUTE/READ/WRITE bits. Arrange for this
1294                          * to be so. Any other bits override the UNIX_ACCESS_NONE bit.
1295                          */
1296
1297                         /*
1298                          * Convert GENERIC bits to specific bits.
1299                          */
1300
1301                         se_map_generic(&psa->access_mask, &file_generic_mapping);
1302
1303                         psa->access_mask &= (UNIX_ACCESS_NONE|FILE_ALL_ACCESS);
1304
1305                         if(psa->access_mask != UNIX_ACCESS_NONE)
1306                                 psa->access_mask &= ~UNIX_ACCESS_NONE;
1307                 }
1308         }
1309
1310         /*
1311          * Deal with the fact that NT 4.x re-writes the canonical format
1312          * that we return for default ACLs. If a directory ACE is identical
1313          * to a inherited directory ACE then NT changes the bits so that the
1314          * first ACE is set to OI|IO and the second ACE for this SID is set
1315          * to CI. We need to repair this. JRA.
1316          */
1317
1318         for(i = 0; i < dacl->num_aces; i++) {
1319                 SEC_ACE *psa1 = &dacl->aces[i];
1320
1321                 for (j = i + 1; j < dacl->num_aces; j++) {
1322                         SEC_ACE *psa2 = &dacl->aces[j];
1323
1324                         if (psa1->access_mask != psa2->access_mask)
1325                                 continue;
1326
1327                         if (!sid_equal(&psa1->trustee, &psa2->trustee))
1328                                 continue;
1329
1330                         /*
1331                          * Ok - permission bits and SIDs are equal.
1332                          * Check if flags were re-written.
1333                          */
1334
1335                         if (psa1->flags & SEC_ACE_FLAG_INHERIT_ONLY) {
1336
1337                                 psa1->flags |= (psa2->flags & (SEC_ACE_FLAG_CONTAINER_INHERIT|SEC_ACE_FLAG_OBJECT_INHERIT));
1338                                 psa2->flags &= ~(SEC_ACE_FLAG_CONTAINER_INHERIT|SEC_ACE_FLAG_OBJECT_INHERIT);
1339
1340                         } else if (psa2->flags & SEC_ACE_FLAG_INHERIT_ONLY) {
1341
1342                                 psa2->flags |= (psa1->flags & (SEC_ACE_FLAG_CONTAINER_INHERIT|SEC_ACE_FLAG_OBJECT_INHERIT));
1343                                 psa1->flags &= ~(SEC_ACE_FLAG_CONTAINER_INHERIT|SEC_ACE_FLAG_OBJECT_INHERIT);
1344
1345                         }
1346                 }
1347         }
1348
1349         for(i = 0; i < dacl->num_aces; i++) {
1350                 SEC_ACE *psa = &dacl->aces[i];
1351
1352                 /*
1353                  * Create a cannon_ace entry representing this NT DACL ACE.
1354                  */
1355
1356                 if ((current_ace = SMB_MALLOC_P(canon_ace)) == NULL) {
1357                         free_canon_ace_list(file_ace);
1358                         free_canon_ace_list(dir_ace);
1359                         DEBUG(0,("create_canon_ace_lists: malloc fail.\n"));
1360                         return False;
1361                 }
1362
1363                 ZERO_STRUCTP(current_ace);
1364
1365                 sid_copy(&current_ace->trustee, &psa->trustee);
1366
1367                 /*
1368                  * Try and work out if the SID is a user or group
1369                  * as we need to flag these differently for POSIX.
1370                  * Note what kind of a POSIX ACL this should map to.
1371                  */
1372
1373                 if( sid_equal(&current_ace->trustee, &global_sid_World)) {
1374                         current_ace->owner_type = WORLD_ACE;
1375                         current_ace->unix_ug.world = -1;
1376                         current_ace->type = SMB_ACL_OTHER;
1377                 } else if (sid_equal(&current_ace->trustee, &global_sid_Creator_Owner)) {
1378                         current_ace->owner_type = UID_ACE;
1379                         current_ace->unix_ug.uid = pst->st_uid;
1380                         current_ace->type = SMB_ACL_USER_OBJ;
1381
1382                         /*
1383                          * The Creator Owner entry only specifies inheritable permissions,
1384                          * never access permissions. WinNT doesn't always set the ACE to
1385                          *INHERIT_ONLY, though.
1386                          */
1387
1388                         if (nt4_compatible_acls())
1389                                 psa->flags |= SEC_ACE_FLAG_INHERIT_ONLY;
1390                 } else if (sid_equal(&current_ace->trustee, &global_sid_Creator_Group)) {
1391                         current_ace->owner_type = GID_ACE;
1392                         current_ace->unix_ug.gid = pst->st_gid;
1393                         current_ace->type = SMB_ACL_GROUP_OBJ;
1394
1395                         /*
1396                          * The Creator Group entry only specifies inheritable permissions,
1397                          * never access permissions. WinNT doesn't always set the ACE to
1398                          *INHERIT_ONLY, though.
1399                          */
1400                         if (nt4_compatible_acls())
1401                                 psa->flags |= SEC_ACE_FLAG_INHERIT_ONLY;
1402
1403                 } else if (sid_to_uid( &current_ace->trustee, &current_ace->unix_ug.uid)) {
1404                         current_ace->owner_type = UID_ACE;
1405                         /* If it's the owning user, this is a user_obj, not
1406                          * a user. */
1407                         if (current_ace->unix_ug.uid == pst->st_uid) {
1408                                 current_ace->type = SMB_ACL_USER_OBJ;
1409                         } else {
1410                                 current_ace->type = SMB_ACL_USER;
1411                         }
1412                 } else if (sid_to_gid( &current_ace->trustee, &current_ace->unix_ug.gid)) {
1413                         current_ace->owner_type = GID_ACE;
1414                         /* If it's the primary group, this is a group_obj, not
1415                          * a group. */
1416                         if (current_ace->unix_ug.gid == pst->st_gid) {
1417                                 current_ace->type = SMB_ACL_GROUP_OBJ;
1418                         } else {
1419                                 current_ace->type = SMB_ACL_GROUP;
1420                         }
1421                 } else {
1422                         fstring str;
1423
1424                         /*
1425                          * Silently ignore map failures in non-mappable SIDs (NT Authority, BUILTIN etc).
1426                          */
1427
1428                         if (non_mappable_sid(&psa->trustee)) {
1429                                 DEBUG(10,("create_canon_ace_lists: ignoring non-mappable SID %s\n",
1430                                         sid_to_string(str, &psa->trustee) ));
1431                                 SAFE_FREE(current_ace);
1432                                 continue;
1433                         }
1434
1435                         free_canon_ace_list(file_ace);
1436                         free_canon_ace_list(dir_ace);
1437                         DEBUG(0,("create_canon_ace_lists: unable to map SID %s to uid or gid.\n",
1438                                 sid_to_string(str, &current_ace->trustee) ));
1439                         SAFE_FREE(current_ace);
1440                         return False;
1441                 }
1442
1443                 /*
1444                  * Map the given NT permissions into a UNIX mode_t containing only
1445                  * S_I(R|W|X)USR bits.
1446                  */
1447
1448                 current_ace->perms |= map_nt_perms( &psa->access_mask, S_IRUSR);
1449                 current_ace->attr = (psa->type == SEC_ACE_TYPE_ACCESS_ALLOWED) ? ALLOW_ACE : DENY_ACE;
1450                 current_ace->inherited = ((psa->flags & SEC_ACE_FLAG_INHERITED_ACE) ? True : False);
1451
1452                 /*
1453                  * Now add the created ace to either the file list, the directory
1454                  * list, or both. We *MUST* preserve the order here (hence we use
1455                  * DLIST_ADD_END) as NT ACLs are order dependent.
1456                  */
1457
1458                 if (fsp->is_directory) {
1459
1460                         /*
1461                          * We can only add to the default POSIX ACE list if the ACE is
1462                          * designed to be inherited by both files and directories.
1463                          */
1464
1465                         if ((psa->flags & (SEC_ACE_FLAG_OBJECT_INHERIT|SEC_ACE_FLAG_CONTAINER_INHERIT)) ==
1466                                 (SEC_ACE_FLAG_OBJECT_INHERIT|SEC_ACE_FLAG_CONTAINER_INHERIT)) {
1467
1468                                 DLIST_ADD_END(dir_ace, current_ace, canon_ace *);
1469
1470                                 /*
1471                                  * Note if this was an allow ace. We can't process
1472                                  * any further deny ace's after this.
1473                                  */
1474
1475                                 if (current_ace->attr == ALLOW_ACE)
1476                                         got_dir_allow = True;
1477
1478                                 if ((current_ace->attr == DENY_ACE) && got_dir_allow) {
1479                                         DEBUG(0,("create_canon_ace_lists: malformed ACL in inheritable ACL ! \
1480 Deny entry after Allow entry. Failing to set on file %s.\n", fsp->fsp_name ));
1481                                         free_canon_ace_list(file_ace);
1482                                         free_canon_ace_list(dir_ace);
1483                                         return False;
1484                                 }
1485
1486                                 if( DEBUGLVL( 10 )) {
1487                                         dbgtext("create_canon_ace_lists: adding dir ACL:\n");
1488                                         print_canon_ace( current_ace, 0);
1489                                 }
1490
1491                                 /*
1492                                  * If this is not an inherit only ACE we need to add a duplicate
1493                                  * to the file acl.
1494                                  */
1495
1496                                 if (!(psa->flags & SEC_ACE_FLAG_INHERIT_ONLY)) {
1497                                         canon_ace *dup_ace = dup_canon_ace(current_ace);
1498
1499                                         if (!dup_ace) {
1500                                                 DEBUG(0,("create_canon_ace_lists: malloc fail !\n"));
1501                                                 free_canon_ace_list(file_ace);
1502                                                 free_canon_ace_list(dir_ace);
1503                                                 return False;
1504                                         }
1505
1506                                         /*
1507                                          * We must not free current_ace here as its
1508                                          * pointer is now owned by the dir_ace list.
1509                                          */
1510                                         current_ace = dup_ace;
1511                                 } else {
1512                                         /*
1513                                          * We must not free current_ace here as its
1514                                          * pointer is now owned by the dir_ace list.
1515                                          */
1516                                         current_ace = NULL;
1517                                 }
1518                         }
1519                 }
1520
1521                 /*
1522                  * Only add to the file ACL if not inherit only.
1523                  */
1524
1525                 if (current_ace && !(psa->flags & SEC_ACE_FLAG_INHERIT_ONLY)) {
1526                         DLIST_ADD_END(file_ace, current_ace, canon_ace *);
1527
1528                         /*
1529                          * Note if this was an allow ace. We can't process
1530                          * any further deny ace's after this.
1531                          */
1532
1533                         if (current_ace->attr == ALLOW_ACE)
1534                                 got_file_allow = True;
1535
1536                         if ((current_ace->attr == DENY_ACE) && got_file_allow) {
1537                                 DEBUG(0,("create_canon_ace_lists: malformed ACL in file ACL ! \
1538 Deny entry after Allow entry. Failing to set on file %s.\n", fsp->fsp_name ));
1539                                 free_canon_ace_list(file_ace);
1540                                 free_canon_ace_list(dir_ace);
1541                                 return False;
1542                         }
1543
1544                         if( DEBUGLVL( 10 )) {
1545                                 dbgtext("create_canon_ace_lists: adding file ACL:\n");
1546                                 print_canon_ace( current_ace, 0);
1547                         }
1548                         all_aces_are_inherit_only = False;
1549                         /*
1550                          * We must not free current_ace here as its
1551                          * pointer is now owned by the file_ace list.
1552                          */
1553                         current_ace = NULL;
1554                 }
1555
1556                 /*
1557                  * Free if ACE was not added.
1558                  */
1559
1560                 SAFE_FREE(current_ace);
1561         }
1562
1563         if (fsp->is_directory && all_aces_are_inherit_only) {
1564                 /*
1565                  * Windows 2000 is doing one of these weird 'inherit acl'
1566                  * traverses to conserve NTFS ACL resources. Just pretend
1567                  * there was no DACL sent. JRA.
1568                  */
1569
1570                 DEBUG(10,("create_canon_ace_lists: Win2k inherit acl traverse. Ignoring DACL.\n"));
1571                 free_canon_ace_list(file_ace);
1572                 free_canon_ace_list(dir_ace);
1573                 file_ace = NULL;
1574                 dir_ace = NULL;
1575         } else {
1576                 /*
1577                  * Check if we have SMB_ACL_USER_OBJ and SMB_ACL_GROUP_OBJ entries in each
1578                  * ACL. If we don't have them, check if any SMB_ACL_USER/SMB_ACL_GROUP
1579                  * entries can be converted to *_OBJ. Usually we will already have these
1580                  * entries in the Default ACL, and the Access ACL will not have them.
1581                  */
1582                 if (file_ace) {
1583                         check_owning_objs(file_ace, pfile_owner_sid, pfile_grp_sid);
1584                 }
1585                 if (dir_ace) {
1586                         check_owning_objs(dir_ace, pfile_owner_sid, pfile_grp_sid);
1587                 }
1588         }
1589
1590         *ppfile_ace = file_ace;
1591         *ppdir_ace = dir_ace;
1592
1593         return True;
1594 }
1595
1596 /****************************************************************************
1597  ASCII art time again... JRA :-).
1598
1599  We have 4 cases to process when moving from an NT ACL to a POSIX ACL. Firstly,
1600  we insist the ACL is in canonical form (ie. all DENY entries preceede ALLOW
1601  entries). Secondly, the merge code has ensured that all duplicate SID entries for
1602  allow or deny have been merged, so the same SID can only appear once in the deny
1603  list or once in the allow list.
1604
1605  We then process as follows :
1606
1607  ---------------------------------------------------------------------------
1608  First pass - look for a Everyone DENY entry.
1609
1610  If it is deny all (rwx) trunate the list at this point.
1611  Else, walk the list from this point and use the deny permissions of this
1612  entry as a mask on all following allow entries. Finally, delete
1613  the Everyone DENY entry (we have applied it to everything possible).
1614
1615  In addition, in this pass we remove any DENY entries that have
1616  no permissions (ie. they are a DENY nothing).
1617  ---------------------------------------------------------------------------
1618  Second pass - only deal with deny user entries.
1619
1620  DENY user1 (perms XXX)
1621
1622  new_perms = 0
1623  for all following allow group entries where user1 is in group
1624         new_perms |= group_perms;
1625
1626  user1 entry perms = new_perms & ~ XXX;
1627
1628  Convert the deny entry to an allow entry with the new perms and
1629  push to the end of the list. Note if the user was in no groups
1630  this maps to a specific allow nothing entry for this user.
1631
1632  The common case from the NT ACL choser (userX deny all) is
1633  optimised so we don't do the group lookup - we just map to
1634  an allow nothing entry.
1635
1636  What we're doing here is inferring the allow permissions the
1637  person setting the ACE on user1 wanted by looking at the allow
1638  permissions on the groups the user is currently in. This will
1639  be a snapshot, depending on group membership but is the best
1640  we can do and has the advantage of failing closed rather than
1641  open.
1642  ---------------------------------------------------------------------------
1643  Third pass - only deal with deny group entries.
1644
1645  DENY group1 (perms XXX)
1646
1647  for all following allow user entries where user is in group1
1648    user entry perms = user entry perms & ~ XXX;
1649
1650  If there is a group Everyone allow entry with permissions YYY,
1651  convert the group1 entry to an allow entry and modify its
1652  permissions to be :
1653
1654  new_perms = YYY & ~ XXX
1655
1656  and push to the end of the list.
1657
1658  If there is no group Everyone allow entry then convert the
1659  group1 entry to a allow nothing entry and push to the end of the list.
1660
1661  Note that the common case from the NT ACL choser (groupX deny all)
1662  cannot be optimised here as we need to modify user entries who are
1663  in the group to change them to a deny all also.
1664
1665  What we're doing here is modifying the allow permissions of
1666  user entries (which are more specific in POSIX ACLs) to mask
1667  out the explicit deny set on the group they are in. This will
1668  be a snapshot depending on current group membership but is the
1669  best we can do and has the advantage of failing closed rather
1670  than open.
1671  ---------------------------------------------------------------------------
1672  Fourth pass - cope with cumulative permissions.
1673
1674  for all allow user entries, if there exists an allow group entry with
1675  more permissive permissions, and the user is in that group, rewrite the
1676  allow user permissions to contain both sets of permissions.
1677
1678  Currently the code for this is #ifdef'ed out as these semantics make
1679  no sense to me. JRA.
1680  ---------------------------------------------------------------------------
1681
1682  Note we *MUST* do the deny user pass first as this will convert deny user
1683  entries into allow user entries which can then be processed by the deny
1684  group pass.
1685
1686  The above algorithm took a *lot* of thinking about - hence this
1687  explaination :-). JRA.
1688 ****************************************************************************/
1689
1690 /****************************************************************************
1691  Process a canon_ace list entries. This is very complex code. We need
1692  to go through and remove the "deny" permissions from any allow entry that matches
1693  the id of this entry. We have already refused any NT ACL that wasn't in correct
1694  order (DENY followed by ALLOW). If any allow entry ends up with zero permissions,
1695  we just remove it (to fail safe). We have already removed any duplicate ace
1696  entries. Treat an "Everyone" DENY_ACE as a special case - use it to mask all
1697  allow entries.
1698 ****************************************************************************/
1699
1700 static void process_deny_list( canon_ace **pp_ace_list )
1701 {
1702         canon_ace *ace_list = *pp_ace_list;
1703         canon_ace *curr_ace = NULL;
1704         canon_ace *curr_ace_next = NULL;
1705
1706         /* Pass 1 above - look for an Everyone, deny entry. */
1707
1708         for (curr_ace = ace_list; curr_ace; curr_ace = curr_ace_next) {
1709                 canon_ace *allow_ace_p;
1710
1711                 curr_ace_next = curr_ace->next; /* So we can't lose the link. */
1712
1713                 if (curr_ace->attr != DENY_ACE)
1714                         continue;
1715
1716                 if (curr_ace->perms == (mode_t)0) {
1717
1718                         /* Deny nothing entry - delete. */
1719
1720                         DLIST_REMOVE(ace_list, curr_ace);
1721                         continue;
1722                 }
1723
1724                 if (!sid_equal(&curr_ace->trustee, &global_sid_World))
1725                         continue;
1726
1727                 /* JRATEST - assert. */
1728                 SMB_ASSERT(curr_ace->owner_type == WORLD_ACE);
1729
1730                 if (curr_ace->perms == ALL_ACE_PERMS) {
1731
1732                         /*
1733                          * Optimisation. This is a DENY_ALL to Everyone. Truncate the
1734                          * list at this point including this entry.
1735                          */
1736
1737                         canon_ace *prev_entry = curr_ace->prev;
1738
1739                         free_canon_ace_list( curr_ace );
1740                         if (prev_entry)
1741                                 prev_entry->next = NULL;
1742                         else {
1743                                 /* We deleted the entire list. */
1744                                 ace_list = NULL;
1745                         }
1746                         break;
1747                 }
1748
1749                 for (allow_ace_p = curr_ace->next; allow_ace_p; allow_ace_p = allow_ace_p->next) {
1750
1751                         /*
1752                          * Only mask off allow entries.
1753                          */
1754
1755                         if (allow_ace_p->attr != ALLOW_ACE)
1756                                 continue;
1757
1758                         allow_ace_p->perms &= ~curr_ace->perms;
1759                 }
1760
1761                 /*
1762                  * Now it's been applied, remove it.
1763                  */
1764
1765                 DLIST_REMOVE(ace_list, curr_ace);
1766         }
1767
1768         /* Pass 2 above - deal with deny user entries. */
1769
1770         for (curr_ace = ace_list; curr_ace; curr_ace = curr_ace_next) {
1771                 mode_t new_perms = (mode_t)0;
1772                 canon_ace *allow_ace_p;
1773
1774                 curr_ace_next = curr_ace->next; /* So we can't lose the link. */
1775
1776                 if (curr_ace->attr != DENY_ACE)
1777                         continue;
1778
1779                 if (curr_ace->owner_type != UID_ACE)
1780                         continue;
1781
1782                 if (curr_ace->perms == ALL_ACE_PERMS) {
1783
1784                         /*
1785                          * Optimisation - this is a deny everything to this user.
1786                          * Convert to an allow nothing and push to the end of the list.
1787                          */
1788
1789                         curr_ace->attr = ALLOW_ACE;
1790                         curr_ace->perms = (mode_t)0;
1791                         DLIST_DEMOTE(ace_list, curr_ace, canon_ace *);
1792                         continue;
1793                 }
1794
1795                 for (allow_ace_p = curr_ace->next; allow_ace_p; allow_ace_p = allow_ace_p->next) {
1796
1797                         if (allow_ace_p->attr != ALLOW_ACE)
1798                                 continue;
1799
1800                         /* We process GID_ACE and WORLD_ACE entries only. */
1801
1802                         if (allow_ace_p->owner_type == UID_ACE)
1803                                 continue;
1804
1805                         if (uid_entry_in_group( curr_ace, allow_ace_p))
1806                                 new_perms |= allow_ace_p->perms;
1807                 }
1808
1809                 /*
1810                  * Convert to a allow entry, modify the perms and push to the end
1811                  * of the list.
1812                  */
1813
1814                 curr_ace->attr = ALLOW_ACE;
1815                 curr_ace->perms = (new_perms & ~curr_ace->perms);
1816                 DLIST_DEMOTE(ace_list, curr_ace, canon_ace *);
1817         }
1818
1819         /* Pass 3 above - deal with deny group entries. */
1820
1821         for (curr_ace = ace_list; curr_ace; curr_ace = curr_ace_next) {
1822                 canon_ace *allow_ace_p;
1823                 canon_ace *allow_everyone_p = NULL;
1824
1825                 curr_ace_next = curr_ace->next; /* So we can't lose the link. */
1826
1827                 if (curr_ace->attr != DENY_ACE)
1828                         continue;
1829
1830                 if (curr_ace->owner_type != GID_ACE)
1831                         continue;
1832
1833                 for (allow_ace_p = curr_ace->next; allow_ace_p; allow_ace_p = allow_ace_p->next) {
1834
1835                         if (allow_ace_p->attr != ALLOW_ACE)
1836                                 continue;
1837
1838                         /* Store a pointer to the Everyone allow, if it exists. */
1839                         if (allow_ace_p->owner_type == WORLD_ACE)
1840                                 allow_everyone_p = allow_ace_p;
1841
1842                         /* We process UID_ACE entries only. */
1843
1844                         if (allow_ace_p->owner_type != UID_ACE)
1845                                 continue;
1846
1847                         /* Mask off the deny group perms. */
1848
1849                         if (uid_entry_in_group( allow_ace_p, curr_ace))
1850                                 allow_ace_p->perms &= ~curr_ace->perms;
1851                 }
1852
1853                 /*
1854                  * Convert the deny to an allow with the correct perms and
1855                  * push to the end of the list.
1856                  */
1857
1858                 curr_ace->attr = ALLOW_ACE;
1859                 if (allow_everyone_p)
1860                         curr_ace->perms = allow_everyone_p->perms & ~curr_ace->perms;
1861                 else
1862                         curr_ace->perms = (mode_t)0;
1863                 DLIST_DEMOTE(ace_list, curr_ace, canon_ace *);
1864         }
1865
1866         /* Doing this fourth pass allows Windows semantics to be layered
1867          * on top of POSIX semantics. I'm not sure if this is desirable.
1868          * For example, in W2K ACLs there is no way to say, "Group X no
1869          * access, user Y full access" if user Y is a member of group X.
1870          * This seems completely broken semantics to me.... JRA.
1871          */
1872
1873 #if 0
1874         /* Pass 4 above - deal with allow entries. */
1875
1876         for (curr_ace = ace_list; curr_ace; curr_ace = curr_ace_next) {
1877                 canon_ace *allow_ace_p;
1878
1879                 curr_ace_next = curr_ace->next; /* So we can't lose the link. */
1880
1881                 if (curr_ace->attr != ALLOW_ACE)
1882                         continue;
1883
1884                 if (curr_ace->owner_type != UID_ACE)
1885                         continue;
1886
1887                 for (allow_ace_p = ace_list; allow_ace_p; allow_ace_p = allow_ace_p->next) {
1888
1889                         if (allow_ace_p->attr != ALLOW_ACE)
1890                                 continue;
1891
1892                         /* We process GID_ACE entries only. */
1893
1894                         if (allow_ace_p->owner_type != GID_ACE)
1895                                 continue;
1896
1897                         /* OR in the group perms. */
1898
1899                         if (uid_entry_in_group( curr_ace, allow_ace_p))
1900                                 curr_ace->perms |= allow_ace_p->perms;
1901                 }
1902         }
1903 #endif
1904
1905         *pp_ace_list = ace_list;
1906 }
1907
1908 /****************************************************************************
1909  Create a default mode that will be used if a security descriptor entry has
1910  no user/group/world entries.
1911 ****************************************************************************/
1912
1913 static mode_t create_default_mode(files_struct *fsp, BOOL interitable_mode)
1914 {
1915         int snum = SNUM(fsp->conn);
1916         mode_t and_bits = (mode_t)0;
1917         mode_t or_bits = (mode_t)0;
1918         mode_t mode = interitable_mode
1919                 ? unix_mode( fsp->conn, FILE_ATTRIBUTE_ARCHIVE, fsp->fsp_name,
1920                              NULL )
1921                 : S_IRUSR;
1922
1923         if (fsp->is_directory)
1924                 mode |= (S_IWUSR|S_IXUSR);
1925
1926         /*
1927          * Now AND with the create mode/directory mode bits then OR with the
1928          * force create mode/force directory mode bits.
1929          */
1930
1931         if (fsp->is_directory) {
1932                 and_bits = lp_dir_security_mask(snum);
1933                 or_bits = lp_force_dir_security_mode(snum);
1934         } else {
1935                 and_bits = lp_security_mask(snum);
1936                 or_bits = lp_force_security_mode(snum);
1937         }
1938
1939         return ((mode & and_bits)|or_bits);
1940 }
1941
1942 /****************************************************************************
1943  Unpack a SEC_DESC into two canonical ace lists. We don't depend on this
1944  succeeding.
1945 ****************************************************************************/
1946
1947 static BOOL unpack_canon_ace(files_struct *fsp,
1948                                                         SMB_STRUCT_STAT *pst,
1949                                                         DOM_SID *pfile_owner_sid,
1950                                                         DOM_SID *pfile_grp_sid,
1951                                                         canon_ace **ppfile_ace, canon_ace **ppdir_ace,
1952                                                         uint32 security_info_sent, SEC_DESC *psd)
1953 {
1954         canon_ace *file_ace = NULL;
1955         canon_ace *dir_ace = NULL;
1956
1957         *ppfile_ace = NULL;
1958         *ppdir_ace = NULL;
1959
1960         if(security_info_sent == 0) {
1961                 DEBUG(0,("unpack_canon_ace: no security info sent !\n"));
1962                 return False;
1963         }
1964
1965         /*
1966          * If no DACL then this is a chown only security descriptor.
1967          */
1968
1969         if(!(security_info_sent & DACL_SECURITY_INFORMATION) || !psd->dacl)
1970                 return True;
1971
1972         /*
1973          * Now go through the DACL and create the canon_ace lists.
1974          */
1975
1976         if (!create_canon_ace_lists( fsp, pst, pfile_owner_sid, pfile_grp_sid,
1977                                                                 &file_ace, &dir_ace, psd->dacl))
1978                 return False;
1979
1980         if ((file_ace == NULL) && (dir_ace == NULL)) {
1981                 /* W2K traverse DACL set - ignore. */
1982                 return True;
1983         }
1984
1985         /*
1986          * Go through the canon_ace list and merge entries
1987          * belonging to identical users of identical allow or deny type.
1988          * We can do this as all deny entries come first, followed by
1989          * all allow entries (we have mandated this before accepting this acl).
1990          */
1991
1992         print_canon_ace_list( "file ace - before merge", file_ace);
1993         merge_aces( &file_ace );
1994
1995         print_canon_ace_list( "dir ace - before merge", dir_ace);
1996         merge_aces( &dir_ace );
1997
1998         /*
1999          * NT ACLs are order dependent. Go through the acl lists and
2000          * process DENY entries by masking the allow entries.
2001          */
2002
2003         print_canon_ace_list( "file ace - before deny", file_ace);
2004         process_deny_list( &file_ace);
2005
2006         print_canon_ace_list( "dir ace - before deny", dir_ace);
2007         process_deny_list( &dir_ace);
2008
2009         /*
2010          * A well formed POSIX file or default ACL has at least 3 entries, a
2011          * SMB_ACL_USER_OBJ, SMB_ACL_GROUP_OBJ, SMB_ACL_OTHER_OBJ
2012          * and optionally a mask entry. Ensure this is the case.
2013          */
2014
2015         print_canon_ace_list( "file ace - before valid", file_ace);
2016
2017         /*
2018          * A default 3 element mode entry for a file should be r-- --- ---.
2019          * A default 3 element mode entry for a directory should be rwx --- ---.
2020          */
2021
2022         pst->st_mode = create_default_mode(fsp, False);
2023
2024         if (!ensure_canon_entry_valid(&file_ace, fsp, pfile_owner_sid, pfile_grp_sid, pst, True)) {
2025                 free_canon_ace_list(file_ace);
2026                 free_canon_ace_list(dir_ace);
2027                 return False;
2028         }
2029
2030         print_canon_ace_list( "dir ace - before valid", dir_ace);
2031
2032         /*
2033          * A default inheritable 3 element mode entry for a directory should be the
2034          * mode Samba will use to create a file within. Ensure user rwx bits are set if
2035          * it's a directory.
2036          */
2037
2038         pst->st_mode = create_default_mode(fsp, True);
2039
2040         if (dir_ace && !ensure_canon_entry_valid(&dir_ace, fsp, pfile_owner_sid, pfile_grp_sid, pst, True)) {
2041                 free_canon_ace_list(file_ace);
2042                 free_canon_ace_list(dir_ace);
2043                 return False;
2044         }
2045
2046         print_canon_ace_list( "file ace - return", file_ace);
2047         print_canon_ace_list( "dir ace - return", dir_ace);
2048
2049         *ppfile_ace = file_ace;
2050         *ppdir_ace = dir_ace;
2051         return True;
2052
2053 }
2054
2055 /******************************************************************************
2056  When returning permissions, try and fit NT display
2057  semantics if possible. Note the the canon_entries here must have been malloced.
2058  The list format should be - first entry = owner, followed by group and other user
2059  entries, last entry = other.
2060
2061  Note that this doesn't exactly match the NT semantics for an ACL. As POSIX entries
2062  are not ordered, and match on the most specific entry rather than walking a list,
2063  then a simple POSIX permission of rw-r--r-- should really map to 5 entries,
2064
2065  Entry 0: owner : deny all except read and write.
2066  Entry 1: owner : allow read and write.
2067  Entry 2: group : deny all except read.
2068  Entry 3: group : allow read.
2069  Entry 4: Everyone : allow read.
2070
2071  But NT cannot display this in their ACL editor !
2072 ********************************************************************************/
2073
2074 static void arrange_posix_perms( char *filename, canon_ace **pp_list_head)
2075 {
2076         canon_ace *list_head = *pp_list_head;
2077         canon_ace *owner_ace = NULL;
2078         canon_ace *other_ace = NULL;
2079         canon_ace *ace = NULL;
2080
2081         for (ace = list_head; ace; ace = ace->next) {
2082                 if (ace->type == SMB_ACL_USER_OBJ)
2083                         owner_ace = ace;
2084                 else if (ace->type == SMB_ACL_OTHER) {
2085                         /* Last ace - this is "other" */
2086                         other_ace = ace;
2087                 }
2088         }
2089
2090         if (!owner_ace || !other_ace) {
2091                 DEBUG(0,("arrange_posix_perms: Invalid POSIX permissions for file %s, missing owner or other.\n",
2092                         filename ));
2093                 return;
2094         }
2095
2096         /*
2097          * The POSIX algorithm applies to owner first, and other last,
2098          * so ensure they are arranged in this order.
2099          */
2100
2101         if (owner_ace) {
2102                 DLIST_PROMOTE(list_head, owner_ace);
2103         }
2104
2105         if (other_ace) {
2106                 DLIST_DEMOTE(list_head, other_ace, canon_ace *);
2107         }
2108
2109         /* We have probably changed the head of the list. */
2110
2111         *pp_list_head = list_head;
2112 }
2113
2114 /****************************************************************************
2115  Create a linked list of canonical ACE entries.
2116 ****************************************************************************/
2117
2118 static canon_ace *canonicalise_acl( files_struct *fsp, SMB_ACL_T posix_acl, SMB_STRUCT_STAT *psbuf,
2119                                         const DOM_SID *powner, const DOM_SID *pgroup, struct pai_val *pal, SMB_ACL_TYPE_T the_acl_type)
2120 {
2121         connection_struct *conn = fsp->conn;
2122         mode_t acl_mask = (S_IRUSR|S_IWUSR|S_IXUSR);
2123         canon_ace *list_head = NULL;
2124         canon_ace *ace = NULL;
2125         canon_ace *next_ace = NULL;
2126         int entry_id = SMB_ACL_FIRST_ENTRY;
2127         SMB_ACL_ENTRY_T entry;
2128         size_t ace_count;
2129
2130         while ( posix_acl && (SMB_VFS_SYS_ACL_GET_ENTRY(conn, posix_acl, entry_id, &entry) == 1)) {
2131                 SMB_ACL_TAG_T tagtype;
2132                 SMB_ACL_PERMSET_T permset;
2133                 DOM_SID sid;
2134                 posix_id unix_ug;
2135                 enum ace_owner owner_type;
2136
2137                 /* get_next... */
2138                 if (entry_id == SMB_ACL_FIRST_ENTRY)
2139                         entry_id = SMB_ACL_NEXT_ENTRY;
2140
2141                 /* Is this a MASK entry ? */
2142                 if (SMB_VFS_SYS_ACL_GET_TAG_TYPE(conn, entry, &tagtype) == -1)
2143                         continue;
2144
2145                 if (SMB_VFS_SYS_ACL_GET_PERMSET(conn, entry, &permset) == -1)
2146                         continue;
2147
2148                 /* Decide which SID to use based on the ACL type. */
2149                 switch(tagtype) {
2150                         case SMB_ACL_USER_OBJ:
2151                                 /* Get the SID from the owner. */
2152                                 sid_copy(&sid, powner);
2153                                 unix_ug.uid = psbuf->st_uid;
2154                                 owner_type = UID_ACE;
2155                                 break;
2156                         case SMB_ACL_USER:
2157                                 {
2158                                         uid_t *puid = (uid_t *)SMB_VFS_SYS_ACL_GET_QUALIFIER(conn, entry);
2159                                         if (puid == NULL) {
2160                                                 DEBUG(0,("canonicalise_acl: Failed to get uid.\n"));
2161                                                 continue;
2162                                         }
2163                                         /*
2164                                          * A SMB_ACL_USER entry for the owner is shadowed by the
2165                                          * SMB_ACL_USER_OBJ entry and Windows also cannot represent
2166                                          * that entry, so we ignore it. We also don't create such
2167                                          * entries out of the blue when setting ACLs, so a get/set
2168                                          * cycle will drop them.
2169                                          */
2170                                         if (the_acl_type == SMB_ACL_TYPE_ACCESS && *puid == psbuf->st_uid) {
2171                                                 SMB_VFS_SYS_ACL_FREE_QUALIFIER(conn, (void *)puid,tagtype);
2172                                                 continue;
2173                                         }
2174                                         uid_to_sid( &sid, *puid);
2175                                         unix_ug.uid = *puid;
2176                                         owner_type = UID_ACE;
2177                                         SMB_VFS_SYS_ACL_FREE_QUALIFIER(conn, (void *)puid,tagtype);
2178                                         break;
2179                                 }
2180                         case SMB_ACL_GROUP_OBJ:
2181                                 /* Get the SID from the owning group. */
2182                                 sid_copy(&sid, pgroup);
2183                                 unix_ug.gid = psbuf->st_gid;
2184                                 owner_type = GID_ACE;
2185                                 break;
2186                         case SMB_ACL_GROUP:
2187                                 {
2188                                         gid_t *pgid = (gid_t *)SMB_VFS_SYS_ACL_GET_QUALIFIER(conn, entry);
2189                                         if (pgid == NULL) {
2190                                                 DEBUG(0,("canonicalise_acl: Failed to get gid.\n"));
2191                                                 continue;
2192                                         }
2193                                         gid_to_sid( &sid, *pgid);
2194                                         unix_ug.gid = *pgid;
2195                                         owner_type = GID_ACE;
2196                                         SMB_VFS_SYS_ACL_FREE_QUALIFIER(conn, (void *)pgid,tagtype);
2197                                         break;
2198                                 }
2199                         case SMB_ACL_MASK:
2200                                 acl_mask = convert_permset_to_mode_t(conn, permset);
2201                                 continue; /* Don't count the mask as an entry. */
2202                         case SMB_ACL_OTHER:
2203                                 /* Use the Everyone SID */
2204                                 sid = global_sid_World;
2205                                 unix_ug.world = -1;
2206                                 owner_type = WORLD_ACE;
2207                                 break;
2208                         default:
2209                                 DEBUG(0,("canonicalise_acl: Unknown tagtype %u\n", (unsigned int)tagtype));
2210                                 continue;
2211                 }
2212
2213                 /*
2214                  * Add this entry to the list.
2215                  */
2216
2217                 if ((ace = SMB_MALLOC_P(canon_ace)) == NULL)
2218                         goto fail;
2219
2220                 ZERO_STRUCTP(ace);
2221                 ace->type = tagtype;
2222                 ace->perms = convert_permset_to_mode_t(conn, permset);
2223                 ace->attr = ALLOW_ACE;
2224                 ace->trustee = sid;
2225                 ace->unix_ug = unix_ug;
2226                 ace->owner_type = owner_type;
2227                 ace->inherited = get_inherited_flag(pal, ace, (the_acl_type == SMB_ACL_TYPE_DEFAULT));
2228
2229                 DLIST_ADD(list_head, ace);
2230         }
2231
2232         /*
2233          * This next call will ensure we have at least a user/group/world set.
2234          */
2235
2236         if (!ensure_canon_entry_valid(&list_head, fsp, powner, pgroup, psbuf, False))
2237                 goto fail;
2238
2239         /*
2240          * Now go through the list, masking the permissions with the
2241          * acl_mask. Ensure all DENY Entries are at the start of the list.
2242          */
2243
2244         DEBUG(10,("canonicalise_acl: %s ace entries before arrange :\n", the_acl_type == SMB_ACL_TYPE_ACCESS ? "Access" : "Default" ));
2245
2246         for ( ace_count = 0, ace = list_head; ace; ace = next_ace, ace_count++) {
2247                 next_ace = ace->next;
2248
2249                 /* Masks are only applied to entries other than USER_OBJ and OTHER. */
2250                 if (ace->type != SMB_ACL_OTHER && ace->type != SMB_ACL_USER_OBJ)
2251                         ace->perms &= acl_mask;
2252
2253                 if (ace->perms == 0) {
2254                         DLIST_PROMOTE(list_head, ace);
2255                 }
2256
2257                 if( DEBUGLVL( 10 ) ) {
2258                         print_canon_ace(ace, ace_count);
2259                 }
2260         }
2261
2262         arrange_posix_perms(fsp->fsp_name,&list_head );
2263
2264         print_canon_ace_list( "canonicalise_acl: ace entries after arrange", list_head );
2265
2266         return list_head;
2267
2268   fail:
2269
2270         free_canon_ace_list(list_head);
2271         return NULL;
2272 }
2273
2274 /****************************************************************************
2275  Check if the current user group list contains a given group.
2276 ****************************************************************************/
2277
2278 static BOOL current_user_in_group(gid_t gid)
2279 {
2280         int i;
2281
2282         for (i = 0; i < current_user.ut.ngroups; i++) {
2283                 if (current_user.ut.groups[i] == gid) {
2284                         return True;
2285                 }
2286         }
2287
2288         return False;
2289 }
2290
2291 /****************************************************************************
2292  Should we override a deny ?  Check 'acl group control' and 'dos filemode'
2293 ****************************************************************************/
2294
2295 static BOOL acl_group_override(connection_struct *conn, gid_t prim_gid, const char *fname)
2296 {
2297         SMB_STRUCT_STAT sbuf;
2298
2299         if ((errno != EPERM) && (errno != EACCES)) {
2300                 return False;
2301         }
2302
2303         /* file primary group == user primary or supplementary group */
2304         if (lp_acl_group_control(SNUM(conn)) && current_user_in_group(prim_gid)) {
2305                 return True;
2306         }
2307
2308         /* user has writeable permission */
2309         if (lp_dos_filemode(SNUM(conn)) && can_write_to_file(conn, fname, &sbuf)) {
2310                 return True;
2311         }
2312
2313         return False;
2314 }
2315
2316 /****************************************************************************
2317  Attempt to apply an ACL to a file or directory.
2318 ****************************************************************************/
2319
2320 static BOOL set_canon_ace_list(files_struct *fsp, canon_ace *the_ace, BOOL default_ace, gid_t prim_gid, BOOL *pacl_set_support)
2321 {
2322         connection_struct *conn = fsp->conn;
2323         BOOL ret = False;
2324         SMB_ACL_T the_acl = SMB_VFS_SYS_ACL_INIT(conn, (int)count_canon_ace_list(the_ace) + 1);
2325         canon_ace *p_ace;
2326         int i;
2327         SMB_ACL_ENTRY_T mask_entry;
2328         BOOL got_mask_entry = False;
2329         SMB_ACL_PERMSET_T mask_permset;
2330         SMB_ACL_TYPE_T the_acl_type = (default_ace ? SMB_ACL_TYPE_DEFAULT : SMB_ACL_TYPE_ACCESS);
2331         BOOL needs_mask = False;
2332         mode_t mask_perms = 0;
2333
2334 #if defined(POSIX_ACL_NEEDS_MASK)
2335         /* HP-UX always wants to have a mask (called "class" there). */
2336         needs_mask = True;
2337 #endif
2338
2339         if (the_acl == NULL) {
2340
2341                 if (!no_acl_syscall_error(errno)) {
2342                         /*
2343                          * Only print this error message if we have some kind of ACL
2344                          * support that's not working. Otherwise we would always get this.
2345                          */
2346                         DEBUG(0,("set_canon_ace_list: Unable to init %s ACL. (%s)\n",
2347                                 default_ace ? "default" : "file", strerror(errno) ));
2348                 }
2349                 *pacl_set_support = False;
2350                 return False;
2351         }
2352
2353         if( DEBUGLVL( 10 )) {
2354                 dbgtext("set_canon_ace_list: setting ACL:\n");
2355                 for (i = 0, p_ace = the_ace; p_ace; p_ace = p_ace->next, i++ ) {
2356                         print_canon_ace( p_ace, i);
2357                 }
2358         }
2359
2360         for (i = 0, p_ace = the_ace; p_ace; p_ace = p_ace->next, i++ ) {
2361                 SMB_ACL_ENTRY_T the_entry;
2362                 SMB_ACL_PERMSET_T the_permset;
2363
2364                 /*
2365                  * ACLs only "need" an ACL_MASK entry if there are any named user or
2366                  * named group entries. But if there is an ACL_MASK entry, it applies
2367                  * to ACL_USER, ACL_GROUP, and ACL_GROUP_OBJ entries. Set the mask
2368                  * so that it doesn't deny (i.e., mask off) any permissions.
2369                  */
2370
2371                 if (p_ace->type == SMB_ACL_USER || p_ace->type == SMB_ACL_GROUP) {
2372                         needs_mask = True;
2373                         mask_perms |= p_ace->perms;
2374                 } else if (p_ace->type == SMB_ACL_GROUP_OBJ) {
2375                         mask_perms |= p_ace->perms;
2376                 }
2377
2378                 /*
2379                  * Get the entry for this ACE.
2380                  */
2381
2382                 if (SMB_VFS_SYS_ACL_CREATE_ENTRY(conn, &the_acl, &the_entry) == -1) {
2383                         DEBUG(0,("set_canon_ace_list: Failed to create entry %d. (%s)\n",
2384                                 i, strerror(errno) ));
2385                         goto fail;
2386                 }
2387
2388                 if (p_ace->type == SMB_ACL_MASK) {
2389                         mask_entry = the_entry;
2390                         got_mask_entry = True;
2391                 }
2392
2393                 /*
2394                  * Ok - we now know the ACL calls should be working, don't
2395                  * allow fallback to chmod.
2396                  */
2397
2398                 *pacl_set_support = True;
2399
2400                 /*
2401                  * Initialise the entry from the canon_ace.
2402                  */
2403
2404                 /*
2405                  * First tell the entry what type of ACE this is.
2406                  */
2407
2408                 if (SMB_VFS_SYS_ACL_SET_TAG_TYPE(conn, the_entry, p_ace->type) == -1) {
2409                         DEBUG(0,("set_canon_ace_list: Failed to set tag type on entry %d. (%s)\n",
2410                                 i, strerror(errno) ));
2411                         goto fail;
2412                 }
2413
2414                 /*
2415                  * Only set the qualifier (user or group id) if the entry is a user
2416                  * or group id ACE.
2417                  */
2418
2419                 if ((p_ace->type == SMB_ACL_USER) || (p_ace->type == SMB_ACL_GROUP)) {
2420                         if (SMB_VFS_SYS_ACL_SET_QUALIFIER(conn, the_entry,(void *)&p_ace->unix_ug.uid) == -1) {
2421                                 DEBUG(0,("set_canon_ace_list: Failed to set qualifier on entry %d. (%s)\n",
2422                                         i, strerror(errno) ));
2423                                 goto fail;
2424                         }
2425                 }
2426
2427                 /*
2428                  * Convert the mode_t perms in the canon_ace to a POSIX permset.
2429                  */
2430
2431                 if (SMB_VFS_SYS_ACL_GET_PERMSET(conn, the_entry, &the_permset) == -1) {
2432                         DEBUG(0,("set_canon_ace_list: Failed to get permset on entry %d. (%s)\n",
2433                                 i, strerror(errno) ));
2434                         goto fail;
2435                 }
2436
2437                 if (map_acl_perms_to_permset(conn, p_ace->perms, &the_permset) == -1) {
2438                         DEBUG(0,("set_canon_ace_list: Failed to create permset for mode (%u) on entry %d. (%s)\n",
2439                                 (unsigned int)p_ace->perms, i, strerror(errno) ));
2440                         goto fail;
2441                 }
2442
2443                 /*
2444                  * ..and apply them to the entry.
2445                  */
2446
2447                 if (SMB_VFS_SYS_ACL_SET_PERMSET(conn, the_entry, the_permset) == -1) {
2448                         DEBUG(0,("set_canon_ace_list: Failed to add permset on entry %d. (%s)\n",
2449                                 i, strerror(errno) ));
2450                         goto fail;
2451                 }
2452
2453                 if( DEBUGLVL( 10 ))
2454                         print_canon_ace( p_ace, i);
2455
2456         }
2457
2458         if (needs_mask && !got_mask_entry) {
2459                 if (SMB_VFS_SYS_ACL_CREATE_ENTRY(conn, &the_acl, &mask_entry) == -1) {
2460                         DEBUG(0,("set_canon_ace_list: Failed to create mask entry. (%s)\n", strerror(errno) ));
2461                         goto fail;
2462                 }
2463
2464                 if (SMB_VFS_SYS_ACL_SET_TAG_TYPE(conn, mask_entry, SMB_ACL_MASK) == -1) {
2465                         DEBUG(0,("set_canon_ace_list: Failed to set tag type on mask entry. (%s)\n",strerror(errno) ));
2466                         goto fail;
2467                 }
2468
2469                 if (SMB_VFS_SYS_ACL_GET_PERMSET(conn, mask_entry, &mask_permset) == -1) {
2470                         DEBUG(0,("set_canon_ace_list: Failed to get mask permset. (%s)\n", strerror(errno) ));
2471                         goto fail;
2472                 }
2473
2474                 if (map_acl_perms_to_permset(conn, S_IRUSR|S_IWUSR|S_IXUSR, &mask_permset) == -1) {
2475                         DEBUG(0,("set_canon_ace_list: Failed to create mask permset. (%s)\n", strerror(errno) ));
2476                         goto fail;
2477                 }
2478
2479                 if (SMB_VFS_SYS_ACL_SET_PERMSET(conn, mask_entry, mask_permset) == -1) {
2480                         DEBUG(0,("set_canon_ace_list: Failed to add mask permset. (%s)\n", strerror(errno) ));
2481                         goto fail;
2482                 }
2483         }
2484
2485         /*
2486          * Finally apply it to the file or directory.
2487          */
2488
2489         if(default_ace || fsp->is_directory || fsp->fh->fd == -1) {
2490                 if (SMB_VFS_SYS_ACL_SET_FILE(conn, fsp->fsp_name, the_acl_type, the_acl) == -1) {
2491                         /*
2492                          * Some systems allow all the above calls and only fail with no ACL support
2493                          * when attempting to apply the acl. HPUX with HFS is an example of this. JRA.
2494                          */
2495                         if (no_acl_syscall_error(errno)) {
2496                                 *pacl_set_support = False;
2497                         }
2498
2499                         if (acl_group_override(conn, prim_gid, fsp->fsp_name)) {
2500                                 int sret;
2501
2502                                 DEBUG(5,("set_canon_ace_list: acl group control on and current user in file %s primary group.\n",
2503                                         fsp->fsp_name ));
2504
2505                                 become_root();
2506                                 sret = SMB_VFS_SYS_ACL_SET_FILE(conn, fsp->fsp_name, the_acl_type, the_acl);
2507                                 unbecome_root();
2508                                 if (sret == 0) {
2509                                         ret = True;
2510                                 }
2511                         }
2512
2513                         if (ret == False) {
2514                                 DEBUG(2,("set_canon_ace_list: sys_acl_set_file type %s failed for file %s (%s).\n",
2515                                                 the_acl_type == SMB_ACL_TYPE_DEFAULT ? "directory default" : "file",
2516                                                 fsp->fsp_name, strerror(errno) ));
2517                                 goto fail;
2518                         }
2519                 }
2520         } else {
2521                 if (SMB_VFS_SYS_ACL_SET_FD(fsp, fsp->fh->fd, the_acl) == -1) {
2522                         /*
2523                          * Some systems allow all the above calls and only fail with no ACL support
2524                          * when attempting to apply the acl. HPUX with HFS is an example of this. JRA.
2525                          */
2526                         if (no_acl_syscall_error(errno)) {
2527                                 *pacl_set_support = False;
2528                         }
2529
2530                         if (acl_group_override(conn, prim_gid, fsp->fsp_name)) {
2531                                 int sret;
2532
2533                                 DEBUG(5,("set_canon_ace_list: acl group control on and current user in file %s primary group.\n",
2534                                         fsp->fsp_name ));
2535
2536                                 become_root();
2537                                 sret = SMB_VFS_SYS_ACL_SET_FD(fsp, fsp->fh->fd, the_acl);
2538                                 unbecome_root();
2539                                 if (sret == 0) {
2540                                         ret = True;
2541                                 }
2542                         }
2543
2544                         if (ret == False) {
2545                                 DEBUG(2,("set_canon_ace_list: sys_acl_set_file failed for file %s (%s).\n",
2546                                                 fsp->fsp_name, strerror(errno) ));
2547                                 goto fail;
2548                         }
2549                 }
2550         }
2551
2552         ret = True;
2553
2554   fail:
2555
2556         if (the_acl != NULL) {
2557                 SMB_VFS_SYS_ACL_FREE_ACL(conn, the_acl);
2558         }
2559
2560         return ret;
2561 }
2562
2563 /****************************************************************************
2564  Find a particular canon_ace entry.
2565 ****************************************************************************/
2566
2567 static struct canon_ace *canon_ace_entry_for(struct canon_ace *list, SMB_ACL_TAG_T type, posix_id *id)
2568 {
2569         while (list) {
2570                 if (list->type == type && ((type != SMB_ACL_USER && type != SMB_ACL_GROUP) ||
2571                                 (type == SMB_ACL_USER  && id && id->uid == list->unix_ug.uid) ||
2572                                 (type == SMB_ACL_GROUP && id && id->gid == list->unix_ug.gid)))
2573                         break;
2574                 list = list->next;
2575         }
2576         return list;
2577 }
2578
2579 /****************************************************************************
2580
2581 ****************************************************************************/
2582
2583 SMB_ACL_T free_empty_sys_acl(connection_struct *conn, SMB_ACL_T the_acl)
2584 {
2585         SMB_ACL_ENTRY_T entry;
2586
2587         if (!the_acl)
2588                 return NULL;
2589         if (SMB_VFS_SYS_ACL_GET_ENTRY(conn, the_acl, SMB_ACL_FIRST_ENTRY, &entry) != 1) {
2590                 SMB_VFS_SYS_ACL_FREE_ACL(conn, the_acl);
2591                 return NULL;
2592         }
2593         return the_acl;
2594 }
2595
2596 /****************************************************************************
2597  Convert a canon_ace to a generic 3 element permission - if possible.
2598 ****************************************************************************/
2599
2600 #define MAP_PERM(p,mask,result) (((p) & (mask)) ? (result) : 0 )
2601
2602 static BOOL convert_canon_ace_to_posix_perms( files_struct *fsp, canon_ace *file_ace_list, mode_t *posix_perms)
2603 {
2604         int snum = SNUM(fsp->conn);
2605         size_t ace_count = count_canon_ace_list(file_ace_list);
2606         canon_ace *ace_p;
2607         canon_ace *owner_ace = NULL;
2608         canon_ace *group_ace = NULL;
2609         canon_ace *other_ace = NULL;
2610         mode_t and_bits;
2611         mode_t or_bits;
2612
2613         if (ace_count != 3) {
2614                 DEBUG(3,("convert_canon_ace_to_posix_perms: Too many ACE entries for file %s to convert to \
2615 posix perms.\n", fsp->fsp_name ));
2616                 return False;
2617         }
2618
2619         for (ace_p = file_ace_list; ace_p; ace_p = ace_p->next) {
2620                 if (ace_p->owner_type == UID_ACE)
2621                         owner_ace = ace_p;
2622                 else if (ace_p->owner_type == GID_ACE)
2623                         group_ace = ace_p;
2624                 else if (ace_p->owner_type == WORLD_ACE)
2625                         other_ace = ace_p;
2626         }
2627
2628         if (!owner_ace || !group_ace || !other_ace) {
2629                 DEBUG(3,("convert_canon_ace_to_posix_perms: Can't get standard entries for file %s.\n",
2630                                 fsp->fsp_name ));
2631                 return False;
2632         }
2633
2634         *posix_perms = (mode_t)0;
2635
2636         *posix_perms |= owner_ace->perms;
2637         *posix_perms |= MAP_PERM(group_ace->perms, S_IRUSR, S_IRGRP);
2638         *posix_perms |= MAP_PERM(group_ace->perms, S_IWUSR, S_IWGRP);
2639         *posix_perms |= MAP_PERM(group_ace->perms, S_IXUSR, S_IXGRP);
2640         *posix_perms |= MAP_PERM(other_ace->perms, S_IRUSR, S_IROTH);
2641         *posix_perms |= MAP_PERM(other_ace->perms, S_IWUSR, S_IWOTH);
2642         *posix_perms |= MAP_PERM(other_ace->perms, S_IXUSR, S_IXOTH);
2643
2644         /* The owner must have at least read access. */
2645
2646         *posix_perms |= S_IRUSR;
2647         if (fsp->is_directory)
2648                 *posix_perms |= (S_IWUSR|S_IXUSR);
2649
2650         /* If requested apply the masks. */
2651
2652         /* Get the initial bits to apply. */
2653
2654         if (fsp->is_directory) {
2655                 and_bits = lp_dir_security_mask(snum);
2656                 or_bits = lp_force_dir_security_mode(snum);
2657         } else {
2658                 and_bits = lp_security_mask(snum);
2659                 or_bits = lp_force_security_mode(snum);
2660         }
2661
2662         *posix_perms = (((*posix_perms) & and_bits)|or_bits);
2663
2664         DEBUG(10,("convert_canon_ace_to_posix_perms: converted u=%o,g=%o,w=%o to perm=0%o for file %s.\n",
2665                 (int)owner_ace->perms, (int)group_ace->perms, (int)other_ace->perms, (int)*posix_perms,
2666                 fsp->fsp_name ));
2667
2668         return True;
2669 }
2670
2671 /****************************************************************************
2672   Incoming NT ACLs on a directory can be split into a default POSIX acl (CI|OI|IO) and
2673   a normal POSIX acl. Win2k needs these split acls re-merging into one ACL
2674   with CI|OI set so it is inherited and also applies to the directory.
2675   Based on code from "Jim McDonough" <jmcd@us.ibm.com>.
2676 ****************************************************************************/
2677
2678 static size_t merge_default_aces( SEC_ACE *nt_ace_list, size_t num_aces)
2679 {
2680         size_t i, j;
2681
2682         for (i = 0; i < num_aces; i++) {
2683                 for (j = i+1; j < num_aces; j++) {
2684                         uint32 i_flags_ni = (nt_ace_list[i].flags & ~SEC_ACE_FLAG_INHERITED_ACE);
2685                         uint32 j_flags_ni = (nt_ace_list[j].flags & ~SEC_ACE_FLAG_INHERITED_ACE);
2686                         BOOL i_inh = (nt_ace_list[i].flags & SEC_ACE_FLAG_INHERITED_ACE) ? True : False;
2687                         BOOL j_inh = (nt_ace_list[j].flags & SEC_ACE_FLAG_INHERITED_ACE) ? True : False;
2688
2689                         /* We know the lower number ACE's are file entries. */
2690                         if ((nt_ace_list[i].type == nt_ace_list[j].type) &&
2691                                 (nt_ace_list[i].size == nt_ace_list[j].size) &&
2692                                 (nt_ace_list[i].access_mask == nt_ace_list[j].access_mask) &&
2693                                 sid_equal(&nt_ace_list[i].trustee, &nt_ace_list[j].trustee) &&
2694                                 (i_inh == j_inh) &&
2695                                 (i_flags_ni == 0) &&
2696                                 (j_flags_ni == (SEC_ACE_FLAG_OBJECT_INHERIT|
2697                                                   SEC_ACE_FLAG_CONTAINER_INHERIT|
2698                                                   SEC_ACE_FLAG_INHERIT_ONLY))) {
2699                                 /*
2700                                  * W2K wants to have access allowed zero access ACE's
2701                                  * at the end of the list. If the mask is zero, merge
2702                                  * the non-inherited ACE onto the inherited ACE.
2703                                  */
2704
2705                                 if (nt_ace_list[i].access_mask == 0) {
2706                                         nt_ace_list[j].flags = SEC_ACE_FLAG_OBJECT_INHERIT|SEC_ACE_FLAG_CONTAINER_INHERIT|
2707                                                                 (i_inh ? SEC_ACE_FLAG_INHERITED_ACE : 0);
2708                                         if (num_aces - i - 1 > 0)
2709                                                 memmove(&nt_ace_list[i], &nt_ace_list[i+1], (num_aces-i-1) *
2710                                                                 sizeof(SEC_ACE));
2711
2712                                         DEBUG(10,("merge_default_aces: Merging zero access ACE %u onto ACE %u.\n",
2713                                                 (unsigned int)i, (unsigned int)j ));
2714                                 } else {
2715                                         /*
2716                                          * These are identical except for the flags.
2717                                          * Merge the inherited ACE onto the non-inherited ACE.
2718                                          */
2719
2720                                         nt_ace_list[i].flags = SEC_ACE_FLAG_OBJECT_INHERIT|SEC_ACE_FLAG_CONTAINER_INHERIT|
2721                                                                 (i_inh ? SEC_ACE_FLAG_INHERITED_ACE : 0);
2722                                         if (num_aces - j - 1 > 0)
2723                                                 memmove(&nt_ace_list[j], &nt_ace_list[j+1], (num_aces-j-1) *
2724                                                                 sizeof(SEC_ACE));
2725
2726                                         DEBUG(10,("merge_default_aces: Merging ACE %u onto ACE %u.\n",
2727                                                 (unsigned int)j, (unsigned int)i ));
2728                                 }
2729                                 num_aces--;
2730                                 break;
2731                         }
2732                 }
2733         }
2734
2735         return num_aces;
2736 }
2737 /****************************************************************************
2738  Reply to query a security descriptor from an fsp. If it succeeds it allocates
2739  the space for the return elements and returns the size needed to return the
2740  security descriptor. This should be the only external function needed for
2741  the UNIX style get ACL.
2742 ****************************************************************************/
2743
2744 size_t get_nt_acl(files_struct *fsp, uint32 security_info, SEC_DESC **ppdesc)
2745 {
2746         connection_struct *conn = fsp->conn;
2747         SMB_STRUCT_STAT sbuf;
2748         SEC_ACE *nt_ace_list = NULL;
2749         DOM_SID owner_sid;
2750         DOM_SID group_sid;
2751         size_t sd_size = 0;
2752         SEC_ACL *psa = NULL;
2753         size_t num_acls = 0;
2754         size_t num_def_acls = 0;
2755         size_t num_aces = 0;
2756         SMB_ACL_T posix_acl = NULL;
2757         SMB_ACL_T def_acl = NULL;
2758         canon_ace *file_ace = NULL;
2759         canon_ace *dir_ace = NULL;
2760         size_t num_profile_acls = 0;
2761         struct pai_val *pal = NULL;
2762         SEC_DESC *psd = NULL;
2763
2764         *ppdesc = NULL;
2765
2766         DEBUG(10,("get_nt_acl: called for file %s\n", fsp->fsp_name ));
2767
2768         if(fsp->is_directory || fsp->fh->fd == -1) {
2769
2770                 /* Get the stat struct for the owner info. */
2771                 if(SMB_VFS_STAT(fsp->conn,fsp->fsp_name, &sbuf) != 0) {
2772                         return 0;
2773                 }
2774                 /*
2775                  * Get the ACL from the path.
2776                  */
2777
2778                 posix_acl = SMB_VFS_SYS_ACL_GET_FILE(conn, fsp->fsp_name, SMB_ACL_TYPE_ACCESS);
2779
2780                 /*
2781                  * If it's a directory get the default POSIX ACL.
2782                  */
2783
2784                 if(fsp->is_directory) {
2785                         def_acl = SMB_VFS_SYS_ACL_GET_FILE(conn, fsp->fsp_name, SMB_ACL_TYPE_DEFAULT);
2786                         def_acl = free_empty_sys_acl(conn, def_acl);
2787                 }
2788
2789         } else {
2790
2791                 /* Get the stat struct for the owner info. */
2792                 if(SMB_VFS_FSTAT(fsp,fsp->fh->fd,&sbuf) != 0) {
2793                         return 0;
2794                 }
2795                 /*
2796                  * Get the ACL from the fd.
2797                  */
2798                 posix_acl = SMB_VFS_SYS_ACL_GET_FD(fsp, fsp->fh->fd);
2799         }
2800
2801         DEBUG(5,("get_nt_acl : file ACL %s, directory ACL %s\n",
2802                         posix_acl ? "present" :  "absent",
2803                         def_acl ? "present" :  "absent" ));
2804
2805         pal = load_inherited_info(fsp);
2806
2807         /*
2808          * Get the owner, group and world SIDs.
2809          */
2810
2811         if (lp_profile_acls(SNUM(conn))) {
2812                 /* For WXP SP1 the owner must be administrators. */
2813                 sid_copy(&owner_sid, &global_sid_Builtin_Administrators);
2814                 sid_copy(&group_sid, &global_sid_Builtin_Users);
2815                 num_profile_acls = 2;
2816         } else {
2817                 create_file_sids(&sbuf, &owner_sid, &group_sid);
2818         }
2819
2820         if ((security_info & DACL_SECURITY_INFORMATION) && !(security_info & PROTECTED_DACL_SECURITY_INFORMATION)) {
2821
2822                 /*
2823                  * In the optimum case Creator Owner and Creator Group would be used for
2824                  * the ACL_USER_OBJ and ACL_GROUP_OBJ entries, respectively, but this
2825                  * would lead to usability problems under Windows: The Creator entries
2826                  * are only available in browse lists of directories and not for files;
2827                  * additionally the identity of the owning group couldn't be determined.
2828                  * We therefore use those identities only for Default ACLs.
2829                  */
2830
2831                 /* Create the canon_ace lists. */
2832                 file_ace = canonicalise_acl( fsp, posix_acl, &sbuf, &owner_sid, &group_sid, pal, SMB_ACL_TYPE_ACCESS );
2833
2834                 /* We must have *some* ACLS. */
2835
2836                 if (count_canon_ace_list(file_ace) == 0) {
2837                         DEBUG(0,("get_nt_acl : No ACLs on file (%s) !\n", fsp->fsp_name ));
2838                         goto done;
2839                 }
2840
2841                 if (fsp->is_directory && def_acl) {
2842                         dir_ace = canonicalise_acl(fsp, def_acl, &sbuf,
2843                                         &global_sid_Creator_Owner,
2844                                         &global_sid_Creator_Group, pal, SMB_ACL_TYPE_DEFAULT );
2845                 }
2846
2847                 /*
2848                  * Create the NT ACE list from the canonical ace lists.
2849                  */
2850
2851                 {
2852                         canon_ace *ace;
2853                         int nt_acl_type;
2854                         int i;
2855
2856                         if (nt4_compatible_acls() && dir_ace) {
2857                                 /*
2858                                  * NT 4 chokes if an ACL contains an INHERIT_ONLY entry
2859                                  * but no non-INHERIT_ONLY entry for one SID. So we only
2860                                  * remove entries from the Access ACL if the
2861                                  * corresponding Default ACL entries have also been
2862                                  * removed. ACEs for CREATOR-OWNER and CREATOR-GROUP
2863                                  * are exceptions. We can do nothing
2864                                  * intelligent if the Default ACL contains entries that
2865                                  * are not also contained in the Access ACL, so this
2866                                  * case will still fail under NT 4.
2867                                  */
2868
2869                                 ace = canon_ace_entry_for(dir_ace, SMB_ACL_OTHER, NULL);
2870                                 if (ace && !ace->perms) {
2871                                         DLIST_REMOVE(dir_ace, ace);
2872                                         SAFE_FREE(ace);
2873
2874                                         ace = canon_ace_entry_for(file_ace, SMB_ACL_OTHER, NULL);
2875                                         if (ace && !ace->perms) {
2876                                                 DLIST_REMOVE(file_ace, ace);
2877                                                 SAFE_FREE(ace);
2878                                         }
2879                                 }
2880
2881                                 /*
2882                                  * WinNT doesn't usually have Creator Group
2883                                  * in browse lists, so we send this entry to
2884                                  * WinNT even if it contains no relevant
2885                                  * permissions. Once we can add
2886                                  * Creator Group to browse lists we can
2887                                  * re-enable this.
2888                                  */
2889
2890 #if 0
2891                                 ace = canon_ace_entry_for(dir_ace, SMB_ACL_GROUP_OBJ, NULL);
2892                                 if (ace && !ace->perms) {
2893                                         DLIST_REMOVE(dir_ace, ace);
2894                                         SAFE_FREE(ace);
2895                                 }
2896 #endif
2897
2898                                 ace = canon_ace_entry_for(file_ace, SMB_ACL_GROUP_OBJ, NULL);
2899                                 if (ace && !ace->perms) {
2900                                         DLIST_REMOVE(file_ace, ace);
2901                                         SAFE_FREE(ace);
2902                                 }
2903                         }
2904
2905                         num_acls = count_canon_ace_list(file_ace);
2906                         num_def_acls = count_canon_ace_list(dir_ace);
2907
2908                         /* Allocate the ace list. */
2909                         if ((nt_ace_list = SMB_MALLOC_ARRAY(SEC_ACE,num_acls + num_profile_acls + num_def_acls)) == NULL) {
2910                                 DEBUG(0,("get_nt_acl: Unable to malloc space for nt_ace_list.\n"));
2911                                 goto done;
2912                         }
2913
2914                         memset(nt_ace_list, '\0', (num_acls + num_def_acls) * sizeof(SEC_ACE) );
2915
2916                         /*
2917                          * Create the NT ACE list from the canonical ace lists.
2918                          */
2919
2920                         ace = file_ace;
2921
2922                         for (i = 0; i < num_acls; i++, ace = ace->next) {
2923                                 SEC_ACCESS acc;
2924
2925                                 acc = map_canon_ace_perms(SNUM(conn),
2926                                                 &nt_acl_type,
2927                                                 ace->perms,
2928                                                 fsp->is_directory);
2929                                 init_sec_ace(&nt_ace_list[num_aces++],
2930                                         &ace->trustee,
2931                                         nt_acl_type,
2932                                         acc,
2933                                         ace->inherited ?
2934                                                 SEC_ACE_FLAG_INHERITED_ACE : 0);
2935                         }
2936
2937                         /* The User must have access to a profile share - even
2938                          * if we can't map the SID. */
2939                         if (lp_profile_acls(SNUM(conn))) {
2940                                 SEC_ACCESS acc;
2941
2942                                 init_sec_access(&acc,FILE_GENERIC_ALL);
2943                                 init_sec_ace(&nt_ace_list[num_aces++],
2944                                                 &global_sid_Builtin_Users,
2945                                                 SEC_ACE_TYPE_ACCESS_ALLOWED,
2946                                                 acc, 0);
2947                         }
2948
2949                         ace = dir_ace;
2950
2951                         for (i = 0; i < num_def_acls; i++, ace = ace->next) {
2952                                 SEC_ACCESS acc;
2953
2954                                 acc = map_canon_ace_perms(SNUM(conn),
2955                                                 &nt_acl_type,
2956                                                 ace->perms,
2957                                                 fsp->is_directory);
2958                                 init_sec_ace(&nt_ace_list[num_aces++],
2959                                         &ace->trustee,
2960                                         nt_acl_type,
2961                                         acc,
2962                                         SEC_ACE_FLAG_OBJECT_INHERIT|
2963                                         SEC_ACE_FLAG_CONTAINER_INHERIT|
2964                                         SEC_ACE_FLAG_INHERIT_ONLY|
2965                                         (ace->inherited ?
2966                                            SEC_ACE_FLAG_INHERITED_ACE : 0));
2967                         }
2968
2969                         /* The User must have access to a profile share - even
2970                          * if we can't map the SID. */
2971                         if (lp_profile_acls(SNUM(conn))) {
2972                                 SEC_ACCESS acc;
2973
2974                                 init_sec_access(&acc,FILE_GENERIC_ALL);
2975                                 init_sec_ace(&nt_ace_list[num_aces++], &global_sid_Builtin_Users, SEC_ACE_TYPE_ACCESS_ALLOWED, acc,
2976                                                 SEC_ACE_FLAG_OBJECT_INHERIT|SEC_ACE_FLAG_CONTAINER_INHERIT|
2977                                                 SEC_ACE_FLAG_INHERIT_ONLY|0);
2978                         }
2979
2980                         /*
2981                          * Merge POSIX default ACLs and normal ACLs into one NT ACE.
2982                          * Win2K needs this to get the inheritance correct when replacing ACLs
2983                          * on a directory tree. Based on work by Jim @ IBM.
2984                          */
2985
2986                         num_aces = merge_default_aces(nt_ace_list, num_aces);
2987
2988                 }
2989
2990                 if (num_aces) {
2991                         if((psa = make_sec_acl( main_loop_talloc_get(), NT4_ACL_REVISION, num_aces, nt_ace_list)) == NULL) {
2992                                 DEBUG(0,("get_nt_acl: Unable to malloc space for acl.\n"));
2993                                 goto done;
2994                         }
2995                 }
2996         } /* security_info & DACL_SECURITY_INFORMATION */
2997
2998         psd = make_standard_sec_desc( main_loop_talloc_get(),
2999                         (security_info & OWNER_SECURITY_INFORMATION) ? &owner_sid : NULL,
3000                         (security_info & GROUP_SECURITY_INFORMATION) ? &group_sid : NULL,
3001                         psa,
3002                         &sd_size);
3003
3004         if(!psd) {
3005                 DEBUG(0,("get_nt_acl: Unable to malloc space for security descriptor.\n"));
3006                 sd_size = 0;
3007                 goto done;
3008         }
3009
3010         /*
3011          * Windows 2000: The DACL_PROTECTED flag in the security
3012          * descriptor marks the ACL as non-inheriting, i.e., no
3013          * ACEs from higher level directories propagate to this
3014          * ACL. In the POSIX ACL model permissions are only
3015          * inherited at file create time, so ACLs never contain
3016          * any ACEs that are inherited dynamically. The DACL_PROTECTED
3017          * flag doesn't seem to bother Windows NT.
3018          * Always set this if map acl inherit is turned off.
3019          */
3020         if (get_protected_flag(pal) || !lp_map_acl_inherit(SNUM(conn))) {
3021                 psd->type |= SE_DESC_DACL_PROTECTED;
3022         }
3023
3024         if (psd->dacl) {
3025                 dacl_sort_into_canonical_order(psd->dacl->aces, (unsigned int)psd->dacl->num_aces);
3026         }
3027
3028         *ppdesc = psd;
3029
3030  done:
3031
3032         if (posix_acl) {
3033                 SMB_VFS_SYS_ACL_FREE_ACL(conn, posix_acl);
3034         }
3035         if (def_acl) {
3036                 SMB_VFS_SYS_ACL_FREE_ACL(conn, def_acl);
3037         }
3038         free_canon_ace_list(file_ace);
3039         free_canon_ace_list(dir_ace);
3040         free_inherited_info(pal);
3041         SAFE_FREE(nt_ace_list);
3042
3043         return sd_size;
3044 }
3045
3046 /****************************************************************************
3047  Try to chown a file. We will be able to chown it under the following conditions.
3048
3049   1) If we have root privileges, then it will just work.
3050   2) If we have SeTakeOwnershipPrivilege we can change the user to the current user.
3051   3) If we have SeRestorePrivilege we can change the user to any other user.
3052   4) If we have write permission to the file and dos_filemodes is set
3053      then allow chown to the currently authenticated user.
3054 ****************************************************************************/
3055
3056 int try_chown(connection_struct *conn, const char *fname, uid_t uid, gid_t gid)
3057 {
3058         int ret;
3059         files_struct *fsp;
3060         SMB_STRUCT_STAT st;
3061
3062         if(!CAN_WRITE(conn)) {
3063                 return -1;
3064         }
3065
3066         /* Case (1). */
3067         /* try the direct way first */
3068         ret = SMB_VFS_CHOWN(conn, fname, uid, gid);
3069         if (ret == 0)
3070                 return 0;
3071
3072         /* Case (2) / (3) */
3073         if (lp_enable_privileges()) {
3074
3075                 BOOL has_take_ownership_priv = user_has_privileges(current_user.nt_user_token,
3076                                                               &se_take_ownership);
3077                 BOOL has_restore_priv = user_has_privileges(current_user.nt_user_token,
3078                                                        &se_restore);
3079
3080                 /* Case (2) */
3081                 if ( ( has_take_ownership_priv && ( uid == current_user.ut.uid ) ) ||
3082                 /* Case (3) */
3083                      ( has_restore_priv ) ) {
3084
3085                         become_root();
3086                         /* Keep the current file gid the same - take ownership doesn't imply group change. */
3087                         ret = SMB_VFS_CHOWN(conn, fname, uid, (gid_t)-1);
3088                         unbecome_root();
3089                         return ret;
3090                 }
3091         }
3092
3093         /* Case (4). */
3094         if (!lp_dos_filemode(SNUM(conn))) {
3095                 return -1;
3096         }
3097
3098         if (SMB_VFS_STAT(conn,fname,&st)) {
3099                 return -1;
3100         }
3101
3102         if (!NT_STATUS_IS_OK(open_file_fchmod(conn,fname,&st,&fsp))) {
3103                 return -1;
3104         }
3105
3106         /* only allow chown to the current user. This is more secure,
3107            and also copes with the case where the SID in a take ownership ACL is
3108            a local SID on the users workstation
3109         */
3110         uid = current_user.ut.uid;
3111
3112         become_root();
3113         /* Keep the current file gid the same. */
3114         ret = SMB_VFS_FCHOWN(fsp, fsp->fh->fd, uid, (gid_t)-1);
3115         unbecome_root();
3116
3117         close_file_fchmod(fsp);
3118
3119         return ret;
3120 }
3121
3122 #if 0
3123 /* Disable this - prevents ACL inheritance from the ACL editor. JRA. */
3124
3125 /****************************************************************************
3126  Take care of parent ACL inheritance.
3127 ****************************************************************************/
3128
3129 static NTSTATUS append_parent_acl(files_struct *fsp,
3130                                 SMB_STRUCT_STAT *psbuf,
3131                                 SEC_DESC *psd,
3132                                 SEC_DESC **pp_new_sd)
3133 {
3134         SEC_DESC *parent_sd = NULL;
3135         files_struct *parent_fsp = NULL;
3136         TALLOC_CTX *mem_ctx = talloc_parent(psd);
3137         char *parent_name = NULL;
3138         SEC_ACE *new_ace = NULL;
3139         unsigned int num_aces = psd->dacl->num_aces;
3140         SMB_STRUCT_STAT sbuf;
3141         NTSTATUS status;
3142         int info;
3143         size_t sd_size;
3144         unsigned int i, j;
3145         BOOL is_dacl_protected = (psd->type & SE_DESC_DACL_PROTECTED);
3146
3147         ZERO_STRUCT(sbuf);
3148
3149         if (mem_ctx == NULL) {
3150                 return NT_STATUS_NO_MEMORY;
3151         }
3152
3153         if (!parent_dirname_talloc(mem_ctx,
3154                                 fsp->fsp_name,
3155                                 &parent_name,
3156                                 NULL)) {
3157                 return NT_STATUS_NO_MEMORY;
3158         }
3159
3160         status = open_directory(fsp->conn,
3161                                 parent_name,
3162                                 &sbuf,
3163                                 FILE_READ_ATTRIBUTES, /* Just a stat open */
3164                                 FILE_SHARE_NONE, /* Ignored for stat opens */
3165                                 FILE_OPEN,
3166                                 0,
3167                                 0,
3168                                 &info,
3169                                 &parent_fsp);
3170
3171         if (!NT_STATUS_IS_OK(status)) {
3172                 return status;
3173         }
3174
3175         sd_size = SMB_VFS_GET_NT_ACL(parent_fsp, parent_fsp->fsp_name,
3176                         DACL_SECURITY_INFORMATION, &parent_sd );
3177
3178         close_file(parent_fsp, NORMAL_CLOSE);
3179
3180         if (!sd_size) {
3181                 return NT_STATUS_ACCESS_DENIED;
3182         }
3183
3184         /*
3185          * Make room for potentially all the ACLs from
3186          * the parent. We used to add the ugw triple here,
3187          * as we knew we were dealing with POSIX ACLs.
3188          * We no longer need to do so as we can guarentee
3189          * that a default ACL from the parent directory will
3190          * be well formed for POSIX ACLs if it came from a
3191          * POSIX ACL source, and if we're not writing to a
3192          * POSIX ACL sink then we don't care if it's not well
3193          * formed. JRA.
3194          */
3195
3196         num_aces += parent_sd->dacl->num_aces;
3197
3198         if((new_ace = TALLOC_ZERO_ARRAY(mem_ctx, SEC_ACE,
3199                                         num_aces)) == NULL) {
3200                 return NT_STATUS_NO_MEMORY;
3201         }
3202
3203         /* Start by copying in all the given ACE entries. */
3204         for (i = 0; i < psd->dacl->num_aces; i++) {
3205                 sec_ace_copy(&new_ace[i], &psd->dacl->aces[i]);
3206         }
3207
3208         /*
3209          * Note that we're ignoring "inherit permissions" here
3210          * as that really only applies to newly created files. JRA.
3211          */
3212
3213         /* Finally append any inherited ACEs. */
3214         for (j = 0; j < parent_sd->dacl->num_aces; j++) {
3215                 SEC_ACE *se = &parent_sd->dacl->aces[j];
3216
3217                 if (fsp->is_directory) {
3218                         if (!(se->flags & SEC_ACE_FLAG_CONTAINER_INHERIT)) {
3219                                 /* Doesn't apply to a directory - ignore. */
3220                                 DEBUG(10,("append_parent_acl: directory %s "
3221                                         "ignoring non container "
3222                                         "inherit flags %u on ACE with sid %s "
3223                                         "from parent %s\n",
3224                                         fsp->fsp_name,
3225                                         (unsigned int)se->flags,
3226                                         sid_string_static(&se->trustee),
3227                                         parent_name));
3228                                 continue;
3229                         }
3230                 } else {
3231                         if (!(se->flags & SEC_ACE_FLAG_OBJECT_INHERIT)) {
3232                                 /* Doesn't apply to a file - ignore. */
3233                                 DEBUG(10,("append_parent_acl: file %s "
3234                                         "ignoring non object "
3235                                         "inherit flags %u on ACE with sid %s "
3236                                         "from parent %s\n",
3237                                         fsp->fsp_name,
3238                                         (unsigned int)se->flags,
3239                                         sid_string_static(&se->trustee),
3240                                         parent_name));
3241                                 continue;
3242                         }
3243                 }
3244
3245                 if (is_dacl_protected) {
3246                         /* If the DACL is protected it means we must
3247                          * not overwrite an existing ACE entry with the
3248                          * same SID. This is order N^2. Ouch :-(. JRA. */
3249                         unsigned int k;
3250                         for (k = 0; k < psd->dacl->num_aces; k++) {
3251                                 if (sid_equal(&psd->dacl->aces[k].trustee,
3252                                                 &se->trustee)) {
3253                                         break;
3254                                 }
3255                         }
3256                         if (k < psd->dacl->num_aces) {
3257                                 /* SID matched. Ignore. */
3258                                 DEBUG(10,("append_parent_acl: path %s "
3259                                         "ignoring ACE with protected sid %s "
3260                                         "from parent %s\n",
3261                                         fsp->fsp_name,
3262                                         sid_string_static(&se->trustee),
3263                                         parent_name));
3264                                 continue;
3265                         }
3266                 }
3267
3268                 sec_ace_copy(&new_ace[i], se);
3269                 if (se->flags & SEC_ACE_FLAG_NO_PROPAGATE_INHERIT) {
3270                         new_ace[i].flags &= ~(SEC_ACE_FLAG_VALID_INHERIT);
3271                 }
3272                 new_ace[i].flags |= SEC_ACE_FLAG_INHERITED_ACE;
3273
3274                 if (fsp->is_directory) {
3275                         /*
3276                          * Strip off any inherit only. It's applied.
3277                          */
3278                         new_ace[i].flags &= ~(SEC_ACE_FLAG_INHERIT_ONLY);
3279                         if (se->flags & SEC_ACE_FLAG_NO_PROPAGATE_INHERIT) {
3280                                 /* No further inheritance. */
3281                                 new_ace[i].flags &=
3282                                         ~(SEC_ACE_FLAG_CONTAINER_INHERIT|
3283                                         SEC_ACE_FLAG_OBJECT_INHERIT);
3284                         }
3285                 } else {
3286                         /*
3287                          * Strip off any container or inherit
3288                          * flags, they can't apply to objects.
3289                          */
3290                         new_ace[i].flags &= ~(SEC_ACE_FLAG_CONTAINER_INHERIT|
3291                                                 SEC_ACE_FLAG_INHERIT_ONLY|
3292                                                 SEC_ACE_FLAG_NO_PROPAGATE_INHERIT);
3293                 }
3294
3295                 i++;
3296
3297                 DEBUG(10,("append_parent_acl: path %s "
3298                         "inheriting ACE with sid %s "
3299                         "from parent %s\n",
3300                         fsp->fsp_name,
3301                         sid_string_static(&se->trustee),
3302                         parent_name));
3303
3304         }
3305
3306         /* This sucks. psd should be const and we should
3307          * be doing a deep-copy here. We're getting away
3308          * with is as we know parent_sd is talloced off
3309          * talloc_tos() as well as psd. JRA. */
3310
3311         psd->dacl->aces = new_ace;
3312         psd->dacl->num_aces = i;
3313         psd->type &= ~(SE_DESC_DACL_AUTO_INHERITED|
3314                          SE_DESC_DACL_AUTO_INHERIT_REQ);
3315
3316         *pp_new_sd = psd;
3317         return status;
3318 }
3319 #endif
3320
3321 /****************************************************************************
3322  Reply to set a security descriptor on an fsp. security_info_sent is the
3323  description of the following NT ACL.
3324  This should be the only external function needed for the UNIX style set ACL.
3325 ****************************************************************************/
3326
3327 BOOL set_nt_acl(files_struct *fsp, uint32 security_info_sent, SEC_DESC *psd)
3328 {
3329         connection_struct *conn = fsp->conn;
3330         uid_t user = (uid_t)-1;
3331         gid_t grp = (gid_t)-1;
3332         SMB_STRUCT_STAT sbuf;
3333         DOM_SID file_owner_sid;
3334         DOM_SID file_grp_sid;
3335         canon_ace *file_ace_list = NULL;
3336         canon_ace *dir_ace_list = NULL;
3337         BOOL acl_perms = False;
3338         mode_t orig_mode = (mode_t)0;
3339         uid_t orig_uid;
3340         gid_t orig_gid;
3341         BOOL need_chown = False;
3342
3343         DEBUG(10,("set_nt_acl: called for file %s\n", fsp->fsp_name ));
3344
3345         if (!CAN_WRITE(conn)) {
3346                 DEBUG(10,("set acl rejected on read-only share\n"));
3347                 return False;
3348         }
3349
3350         /*
3351          * Get the current state of the file.
3352          */
3353
3354         if(fsp->is_directory || fsp->fh->fd == -1) {
3355                 if(SMB_VFS_STAT(fsp->conn,fsp->fsp_name, &sbuf) != 0)
3356                         return False;
3357         } else {
3358                 if(SMB_VFS_FSTAT(fsp,fsp->fh->fd,&sbuf) != 0)
3359                         return False;
3360         }
3361
3362         /* Save the original elements we check against. */
3363         orig_mode = sbuf.st_mode;
3364         orig_uid = sbuf.st_uid;
3365         orig_gid = sbuf.st_gid;
3366
3367         /*
3368          * Unpack the user/group/world id's.
3369          */
3370
3371         if (!unpack_nt_owners( SNUM(conn), &user, &grp, security_info_sent, psd)) {
3372                 return False;
3373         }
3374
3375         /*
3376          * Do we need to chown ?
3377          */
3378
3379         if (((user != (uid_t)-1) && (orig_uid != user)) || (( grp != (gid_t)-1) && (orig_gid != grp))) {
3380                 need_chown = True;
3381         }
3382
3383         /*
3384          * Chown before setting ACL only if we don't change the user, or
3385          * if we change to the current user, but not if we want to give away
3386          * the file.
3387          */
3388
3389         if (need_chown && (user == (uid_t)-1 || user == current_user.ut.uid)) {
3390
3391                 DEBUG(3,("set_nt_acl: chown %s. uid = %u, gid = %u.\n",
3392                                 fsp->fsp_name, (unsigned int)user, (unsigned int)grp ));
3393
3394                 if(try_chown( fsp->conn, fsp->fsp_name, user, grp) == -1) {
3395                         DEBUG(3,("set_nt_acl: chown %s, %u, %u failed. Error = %s.\n",
3396                                 fsp->fsp_name, (unsigned int)user, (unsigned int)grp, strerror(errno) ));
3397                         return False;
3398                 }
3399
3400                 /*
3401                  * Recheck the current state of the file, which may have changed.
3402                  * (suid/sgid bits, for instance)
3403                  */
3404
3405                 if(fsp->is_directory) {
3406                         if(SMB_VFS_STAT(fsp->conn, fsp->fsp_name, &sbuf) != 0) {
3407                                 return False;
3408                         }
3409                 } else {
3410
3411                         int ret;
3412
3413                         if(fsp->fh->fd == -1)
3414                                 ret = SMB_VFS_STAT(fsp->conn, fsp->fsp_name, &sbuf);
3415                         else
3416                                 ret = SMB_VFS_FSTAT(fsp,fsp->fh->fd,&sbuf);
3417
3418                         if(ret != 0)
3419                                 return False;
3420                 }
3421
3422                 /* Save the original elements we check against. */
3423                 orig_mode = sbuf.st_mode;
3424                 orig_uid = sbuf.st_uid;
3425                 orig_gid = sbuf.st_gid;
3426
3427                 /* We did it, don't try again */
3428                 need_chown = False;
3429         }
3430
3431         create_file_sids(&sbuf, &file_owner_sid, &file_grp_sid);
3432
3433 #if 0
3434         /* Disable this - prevents ACL inheritance from the ACL editor. JRA. */
3435
3436         /* See here: http://www.codeproject.com/KB/winsdk/accessctrl2.aspx
3437          * for details and also the log trace in bug #4308. JRA.
3438         */
3439
3440         if ((security_info_sent & DACL_SECURITY_INFORMATION) &&
3441                 psd->dacl != NULL &&
3442                 (psd->type & (SE_DESC_DACL_AUTO_INHERITED|
3443                               SE_DESC_DACL_AUTO_INHERIT_REQ))==
3444                         (SE_DESC_DACL_AUTO_INHERITED|
3445                          SE_DESC_DACL_AUTO_INHERIT_REQ) ) {
3446                 NTSTATUS status = append_parent_acl(fsp, &sbuf, psd, &psd);
3447                 if (!NT_STATUS_IS_OK(status)) {
3448                         return False;
3449                 }
3450         }
3451 #endif
3452
3453         acl_perms = unpack_canon_ace( fsp, &sbuf, &file_owner_sid, &file_grp_sid,
3454                                         &file_ace_list, &dir_ace_list, security_info_sent, psd);
3455
3456         /* Ignore W2K traverse DACL set. */
3457         if (file_ace_list || dir_ace_list) {
3458
3459                 if (!acl_perms) {
3460                         DEBUG(3,("set_nt_acl: cannot set permissions\n"));
3461                         free_canon_ace_list(file_ace_list);
3462                         free_canon_ace_list(dir_ace_list);
3463                         return False;
3464                 }
3465
3466                 /*
3467                  * Only change security if we got a DACL.
3468                  */
3469
3470                 if((security_info_sent & DACL_SECURITY_INFORMATION) && (psd->dacl != NULL)) {
3471
3472                         BOOL acl_set_support = False;
3473                         BOOL ret = False;
3474
3475                         /*
3476                          * Try using the POSIX ACL set first. Fall back to chmod if
3477                          * we have no ACL support on this filesystem.
3478                          */
3479
3480                         if (acl_perms && file_ace_list) {
3481                                 ret = set_canon_ace_list(fsp, file_ace_list, False, sbuf.st_gid, &acl_set_support);
3482                                 if (acl_set_support && ret == False) {
3483                                         DEBUG(3,("set_nt_acl: failed to set file acl on file %s (%s).\n", fsp->fsp_name, strerror(errno) ));
3484                                         free_canon_ace_list(file_ace_list);
3485                                         free_canon_ace_list(dir_ace_list);
3486                                         return False;
3487                                 }
3488                         }
3489
3490                         if (acl_perms && acl_set_support && fsp->is_directory) {
3491                                 if (dir_ace_list) {
3492                                         if (!set_canon_ace_list(fsp, dir_ace_list, True, sbuf.st_gid, &acl_set_support)) {
3493                                                 DEBUG(3,("set_nt_acl: failed to set default acl on directory %s (%s).\n", fsp->fsp_name, strerror(errno) ));
3494                                                 free_canon_ace_list(file_ace_list);
3495                                                 free_canon_ace_list(dir_ace_list);
3496                                                 return False;
3497                                         }
3498                                 } else {
3499
3500                                         /*
3501                                          * No default ACL - delete one if it exists.
3502                                          */
3503
3504                                         if (SMB_VFS_SYS_ACL_DELETE_DEF_FILE(conn, fsp->fsp_name) == -1) {
3505                                                 int sret = -1;
3506
3507                                                 if (acl_group_override(conn, sbuf.st_gid, fsp->fsp_name)) {
3508                                                         DEBUG(5,("set_nt_acl: acl group control on and "
3509                                                                 "current user in file %s primary group. Override delete_def_acl\n",
3510                                                                 fsp->fsp_name ));
3511
3512                                                         become_root();
3513                                                         sret = SMB_VFS_SYS_ACL_DELETE_DEF_FILE(conn, fsp->fsp_name);
3514                                                         unbecome_root();
3515                                                 }
3516
3517                                                 if (sret == -1) {
3518                                                         DEBUG(3,("set_nt_acl: sys_acl_delete_def_file failed (%s)\n", strerror(errno)));
3519                                                         free_canon_ace_list(file_ace_list);
3520                                                         free_canon_ace_list(dir_ace_list);
3521                                                         return False;
3522                                                 }
3523                                         }
3524                                 }
3525                         }
3526
3527                         if (acl_set_support) {
3528                                 store_inheritance_attributes(fsp, file_ace_list, dir_ace_list,
3529                                                 (psd->type & SE_DESC_DACL_PROTECTED) ? True : False);
3530                         }
3531
3532                         /*
3533                          * If we cannot set using POSIX ACLs we fall back to checking if we need to chmod.
3534                          */
3535
3536                         if(!acl_set_support && acl_perms) {
3537                                 mode_t posix_perms;
3538
3539                                 if (!convert_canon_ace_to_posix_perms( fsp, file_ace_list, &posix_perms)) {
3540                                         free_canon_ace_list(file_ace_list);
3541                                         free_canon_ace_list(dir_ace_list);
3542                                         DEBUG(3,("set_nt_acl: failed to convert file acl to posix permissions for file %s.\n",
3543                                                 fsp->fsp_name ));
3544                                         return False;
3545                                 }
3546
3547                                 if (orig_mode != posix_perms) {
3548
3549                                         DEBUG(3,("set_nt_acl: chmod %s. perms = 0%o.\n",
3550                                                 fsp->fsp_name, (unsigned int)posix_perms ));
3551
3552                                         if(SMB_VFS_CHMOD(conn,fsp->fsp_name, posix_perms) == -1) {
3553                                                 int sret = -1;
3554                                                 if (acl_group_override(conn, sbuf.st_gid, fsp->fsp_name)) {
3555                                                         DEBUG(5,("set_nt_acl: acl group control on and "
3556                                                                 "current user in file %s primary group. Override chmod\n",
3557                                                                 fsp->fsp_name ));
3558
3559                                                         become_root();
3560                                                         sret = SMB_VFS_CHMOD(conn,fsp->fsp_name, posix_perms);
3561                                                         unbecome_root();
3562                                                 }
3563
3564                                                 if (sret == -1) {
3565                                                         DEBUG(3,("set_nt_acl: chmod %s, 0%o failed. Error = %s.\n",
3566                                                                 fsp->fsp_name, (unsigned int)posix_perms, strerror(errno) ));
3567                                                         free_canon_ace_list(file_ace_list);
3568                                                         free_canon_ace_list(dir_ace_list);
3569                                                         return False;
3570                                                 }
3571                                         }
3572                                 }
3573                         }
3574                 }
3575
3576                 free_canon_ace_list(file_ace_list);
3577                 free_canon_ace_list(dir_ace_list);
3578         }
3579
3580         /* Any chown pending? */
3581         if (need_chown) {
3582
3583                 DEBUG(3,("set_nt_acl: chown %s. uid = %u, gid = %u.\n",
3584                         fsp->fsp_name, (unsigned int)user, (unsigned int)grp ));
3585
3586                 if(try_chown( fsp->conn, fsp->fsp_name, user, grp) == -1) {
3587                         DEBUG(3,("set_nt_acl: chown %s, %u, %u failed. Error = %s.\n",
3588                                 fsp->fsp_name, (unsigned int)user, (unsigned int)grp, strerror(errno) ));
3589                         return False;
3590                 }
3591         }
3592
3593         return True;
3594 }
3595
3596 /****************************************************************************
3597  Get the actual group bits stored on a file with an ACL. Has no effect if
3598  the file has no ACL. Needed in dosmode code where the stat() will return
3599  the mask bits, not the real group bits, for a file with an ACL.
3600 ****************************************************************************/
3601
3602 int get_acl_group_bits( connection_struct *conn, const char *fname, mode_t *mode )
3603 {
3604         int entry_id = SMB_ACL_FIRST_ENTRY;
3605         SMB_ACL_ENTRY_T entry;
3606         SMB_ACL_T posix_acl;
3607         int result = -1;
3608
3609         posix_acl = SMB_VFS_SYS_ACL_GET_FILE(conn, fname, SMB_ACL_TYPE_ACCESS);
3610         if (posix_acl == (SMB_ACL_T)NULL)
3611                 return -1;
3612
3613         while (SMB_VFS_SYS_ACL_GET_ENTRY(conn, posix_acl, entry_id, &entry) == 1) {
3614                 SMB_ACL_TAG_T tagtype;
3615                 SMB_ACL_PERMSET_T permset;
3616
3617                 /* get_next... */
3618                 if (entry_id == SMB_ACL_FIRST_ENTRY)
3619                         entry_id = SMB_ACL_NEXT_ENTRY;
3620
3621                 if (SMB_VFS_SYS_ACL_GET_TAG_TYPE(conn, entry, &tagtype) ==-1)
3622                         break;
3623
3624                 if (tagtype == SMB_ACL_GROUP_OBJ) {
3625                         if (SMB_VFS_SYS_ACL_GET_PERMSET(conn, entry, &permset) == -1) {
3626                                 break;
3627                         } else {
3628                                 *mode &= ~(S_IRGRP|S_IWGRP|S_IXGRP);
3629                                 *mode |= (SMB_VFS_SYS_ACL_GET_PERM(conn, permset, SMB_ACL_READ) ? S_IRGRP : 0);
3630                                 *mode |= (SMB_VFS_SYS_ACL_GET_PERM(conn, permset, SMB_ACL_WRITE) ? S_IWGRP : 0);
3631                                 *mode |= (SMB_VFS_SYS_ACL_GET_PERM(conn, permset, SMB_ACL_EXECUTE) ? S_IXGRP : 0);
3632                                 result = 0;
3633                                 break;
3634                         }
3635                 }
3636         }
3637         SMB_VFS_SYS_ACL_FREE_ACL(conn, posix_acl);
3638         return result;
3639 }
3640
3641 /****************************************************************************
3642  Do a chmod by setting the ACL USER_OBJ, GROUP_OBJ and OTHER bits in an ACL
3643  and set the mask to rwx. Needed to preserve complex ACLs set by NT.
3644 ****************************************************************************/
3645
3646 static int chmod_acl_internals( connection_struct *conn, SMB_ACL_T posix_acl, mode_t mode)
3647 {
3648         int entry_id = SMB_ACL_FIRST_ENTRY;
3649         SMB_ACL_ENTRY_T entry;
3650         int num_entries = 0;
3651
3652         while ( SMB_VFS_SYS_ACL_GET_ENTRY(conn, posix_acl, entry_id, &entry) == 1) {
3653                 SMB_ACL_TAG_T tagtype;
3654                 SMB_ACL_PERMSET_T permset;
3655                 mode_t perms;
3656
3657                 /* get_next... */
3658                 if (entry_id == SMB_ACL_FIRST_ENTRY)
3659                         entry_id = SMB_ACL_NEXT_ENTRY;
3660
3661                 if (SMB_VFS_SYS_ACL_GET_TAG_TYPE(conn, entry, &tagtype) == -1)
3662                         return -1;
3663
3664                 if (SMB_VFS_SYS_ACL_GET_PERMSET(conn, entry, &permset) == -1)
3665                         return -1;
3666
3667                 num_entries++;
3668
3669                 switch(tagtype) {
3670                         case SMB_ACL_USER_OBJ:
3671                                 perms = unix_perms_to_acl_perms(mode, S_IRUSR, S_IWUSR, S_IXUSR);
3672                                 break;
3673                         case SMB_ACL_GROUP_OBJ:
3674                                 perms = unix_perms_to_acl_perms(mode, S_IRGRP, S_IWGRP, S_IXGRP);
3675                                 break;
3676                         case SMB_ACL_MASK:
3677                                 /*
3678                                  * FIXME: The ACL_MASK entry permissions should really be set to
3679                                  * the union of the permissions of all ACL_USER,
3680                                  * ACL_GROUP_OBJ, and ACL_GROUP entries. That's what
3681                                  * acl_calc_mask() does, but Samba ACLs doesn't provide it.
3682                                  */
3683                                 perms = S_IRUSR|S_IWUSR|S_IXUSR;
3684                                 break;
3685                         case SMB_ACL_OTHER:
3686                                 perms = unix_perms_to_acl_perms(mode, S_IROTH, S_IWOTH, S_IXOTH);
3687                                 break;
3688                         default:
3689                                 continue;
3690                 }
3691
3692                 if (map_acl_perms_to_permset(conn, perms, &permset) == -1)
3693                         return -1;
3694
3695                 if (SMB_VFS_SYS_ACL_SET_PERMSET(conn, entry, permset) == -1)
3696                         return -1;
3697         }
3698
3699         /*
3700          * If this is a simple 3 element ACL or no elements then it's a standard
3701          * UNIX permission set. Just use chmod...
3702          */
3703
3704         if ((num_entries == 3) || (num_entries == 0))
3705                 return -1;
3706
3707         return 0;
3708 }
3709
3710 /****************************************************************************
3711  Get the access ACL of FROM, do a chmod by setting the ACL USER_OBJ,
3712  GROUP_OBJ and OTHER bits in an ACL and set the mask to rwx. Set the
3713  resulting ACL on TO.  Note that name is in UNIX character set.
3714 ****************************************************************************/
3715
3716 static int copy_access_acl(connection_struct *conn, const char *from, const char *to, mode_t mode)
3717 {
3718         SMB_ACL_T posix_acl = NULL;
3719         int ret = -1;
3720
3721         if ((posix_acl = SMB_VFS_SYS_ACL_GET_FILE(conn, from, SMB_ACL_TYPE_ACCESS)) == NULL)
3722                 return -1;
3723
3724         if ((ret = chmod_acl_internals(conn, posix_acl, mode)) == -1)
3725                 goto done;
3726
3727         ret = SMB_VFS_SYS_ACL_SET_FILE(conn, to, SMB_ACL_TYPE_ACCESS, posix_acl);
3728
3729  done:
3730
3731         SMB_VFS_SYS_ACL_FREE_ACL(conn, posix_acl);
3732         return ret;
3733 }
3734
3735 /****************************************************************************
3736  Do a chmod by setting the ACL USER_OBJ, GROUP_OBJ and OTHER bits in an ACL
3737  and set the mask to rwx. Needed to preserve complex ACLs set by NT.
3738  Note that name is in UNIX character set.
3739 ****************************************************************************/
3740
3741 int chmod_acl(connection_struct *conn, const char *name, mode_t mode)
3742 {
3743         return copy_access_acl(conn, name, name, mode);
3744 }
3745
3746 /****************************************************************************
3747  If the parent directory has no default ACL but it does have an Access ACL,
3748  inherit this Access ACL to file name.
3749 ****************************************************************************/
3750
3751 int inherit_access_acl(connection_struct *conn, const char *inherit_from_dir,
3752                        const char *name, mode_t mode)
3753 {
3754         if (directory_has_default_acl(conn, inherit_from_dir))
3755                 return 0;
3756
3757         return copy_access_acl(conn, inherit_from_dir, name, mode);
3758 }
3759
3760 /****************************************************************************
3761  Do an fchmod by setting the ACL USER_OBJ, GROUP_OBJ and OTHER bits in an ACL
3762  and set the mask to rwx. Needed to preserve complex ACLs set by NT.
3763 ****************************************************************************/
3764
3765 int fchmod_acl(files_struct *fsp, int fd, mode_t mode)
3766 {
3767         connection_struct *conn = fsp->conn;
3768         SMB_ACL_T posix_acl = NULL;
3769         int ret = -1;
3770
3771         if ((posix_acl = SMB_VFS_SYS_ACL_GET_FD(fsp, fd)) == NULL)
3772                 return -1;
3773
3774         if ((ret = chmod_acl_internals(conn, posix_acl, mode)) == -1)
3775                 goto done;
3776
3777         ret = SMB_VFS_SYS_ACL_SET_FD(fsp, fd, posix_acl);
3778
3779   done:
3780
3781         SMB_VFS_SYS_ACL_FREE_ACL(conn, posix_acl);
3782         return ret;
3783 }
3784
3785 /****************************************************************************
3786  Check for an existing default POSIX ACL on a directory.
3787 ****************************************************************************/
3788
3789 BOOL directory_has_default_acl(connection_struct *conn, const char *fname)
3790 {
3791         SMB_ACL_T def_acl = SMB_VFS_SYS_ACL_GET_FILE( conn, fname, SMB_ACL_TYPE_DEFAULT);
3792         BOOL has_acl = False;
3793         SMB_ACL_ENTRY_T entry;
3794
3795         if (def_acl != NULL && (SMB_VFS_SYS_ACL_GET_ENTRY(conn, def_acl, SMB_ACL_FIRST_ENTRY, &entry) == 1)) {
3796                 has_acl = True;
3797         }
3798
3799         if (def_acl) {
3800                 SMB_VFS_SYS_ACL_FREE_ACL(conn, def_acl);
3801         }
3802         return has_acl;
3803 }
3804
3805 /****************************************************************************
3806  Map from wire type to permset.
3807 ****************************************************************************/
3808
3809 static BOOL unix_ex_wire_to_permset(connection_struct *conn, unsigned char wire_perm, SMB_ACL_PERMSET_T *p_permset)
3810 {
3811         if (wire_perm & ~(SMB_POSIX_ACL_READ|SMB_POSIX_ACL_WRITE|SMB_POSIX_ACL_EXECUTE)) {
3812                 return False;
3813         }
3814
3815         if (SMB_VFS_SYS_ACL_CLEAR_PERMS(conn, *p_permset) ==  -1) {
3816                 return False;
3817         }
3818
3819         if (wire_perm & SMB_POSIX_ACL_READ) {
3820                 if (SMB_VFS_SYS_ACL_ADD_PERM(conn, *p_permset, SMB_ACL_READ) == -1) {
3821                         return False;
3822                 }
3823         }
3824         if (wire_perm & SMB_POSIX_ACL_WRITE) {
3825                 if (SMB_VFS_SYS_ACL_ADD_PERM(conn, *p_permset, SMB_ACL_WRITE) == -1) {
3826                         return False;
3827                 }
3828         }
3829         if (wire_perm & SMB_POSIX_ACL_EXECUTE) {
3830                 if (SMB_VFS_SYS_ACL_ADD_PERM(conn, *p_permset, SMB_ACL_EXECUTE) == -1) {
3831                         return False;
3832                 }
3833         }
3834         return True;
3835 }
3836
3837 /****************************************************************************
3838  Map from wire type to tagtype.
3839 ****************************************************************************/
3840
3841 static BOOL unix_ex_wire_to_tagtype(unsigned char wire_tt, SMB_ACL_TAG_T *p_tt)
3842 {
3843         switch (wire_tt) {
3844                 case SMB_POSIX_ACL_USER_OBJ:
3845                         *p_tt = SMB_ACL_USER_OBJ;
3846                         break;
3847                 case SMB_POSIX_ACL_USER:
3848                         *p_tt = SMB_ACL_USER;
3849                         break;
3850                 case SMB_POSIX_ACL_GROUP_OBJ:
3851                         *p_tt = SMB_ACL_GROUP_OBJ;
3852                         break;
3853                 case SMB_POSIX_ACL_GROUP:
3854                         *p_tt = SMB_ACL_GROUP;
3855                         break;
3856                 case SMB_POSIX_ACL_MASK:
3857                         *p_tt = SMB_ACL_MASK;
3858                         break;
3859                 case SMB_POSIX_ACL_OTHER:
3860                         *p_tt = SMB_ACL_OTHER;
3861                         break;
3862                 default:
3863                         return False;
3864         }
3865         return True;
3866 }
3867
3868 /****************************************************************************
3869  Create a new POSIX acl from wire permissions.
3870  FIXME ! How does the share mask/mode fit into this.... ?
3871 ****************************************************************************/
3872
3873 static SMB_ACL_T create_posix_acl_from_wire(connection_struct *conn, uint16 num_acls, const char *pdata)
3874 {
3875         unsigned int i;
3876         SMB_ACL_T the_acl = SMB_VFS_SYS_ACL_INIT(conn, num_acls);
3877
3878         if (the_acl == NULL) {
3879                 return NULL;
3880         }
3881
3882         for (i = 0; i < num_acls; i++) {
3883                 SMB_ACL_ENTRY_T the_entry;
3884                 SMB_ACL_PERMSET_T the_permset;
3885                 SMB_ACL_TAG_T tag_type;
3886
3887                 if (SMB_VFS_SYS_ACL_CREATE_ENTRY(conn, &the_acl, &the_entry) == -1) {
3888                         DEBUG(0,("create_posix_acl_from_wire: Failed to create entry %u. (%s)\n",
3889                                 i, strerror(errno) ));
3890                         goto fail;
3891                 }
3892
3893                 if (!unix_ex_wire_to_tagtype(CVAL(pdata,(i*SMB_POSIX_ACL_ENTRY_SIZE)), &tag_type)) {
3894                         DEBUG(0,("create_posix_acl_from_wire: invalid wire tagtype %u on entry %u.\n",
3895                                 CVAL(pdata,(i*SMB_POSIX_ACL_ENTRY_SIZE)), i ));
3896                         goto fail;
3897                 }
3898
3899                 if (SMB_VFS_SYS_ACL_SET_TAG_TYPE(conn, the_entry, tag_type) == -1) {
3900                         DEBUG(0,("create_posix_acl_from_wire: Failed to set tagtype on entry %u. (%s)\n",
3901                                 i, strerror(errno) ));
3902                         goto fail;
3903                 }
3904
3905                 /* Get the permset pointer from the new ACL entry. */
3906                 if (SMB_VFS_SYS_ACL_GET_PERMSET(conn, the_entry, &the_permset) == -1) {
3907                         DEBUG(0,("create_posix_acl_from_wire: Failed to get permset on entry %u. (%s)\n",
3908                                 i, strerror(errno) ));
3909                         goto fail;
3910                 }
3911
3912                 /* Map from wire to permissions. */
3913                 if (!unix_ex_wire_to_permset(conn, CVAL(pdata,(i*SMB_POSIX_ACL_ENTRY_SIZE)+1), &the_permset)) {
3914                         DEBUG(0,("create_posix_acl_from_wire: invalid permset %u on entry %u.\n",
3915                                 CVAL(pdata,(i*SMB_POSIX_ACL_ENTRY_SIZE) + 1), i ));
3916                         goto fail;
3917                 }
3918
3919                 /* Now apply to the new ACL entry. */
3920                 if (SMB_VFS_SYS_ACL_SET_PERMSET(conn, the_entry, the_permset) == -1) {
3921                         DEBUG(0,("create_posix_acl_from_wire: Failed to add permset on entry %u. (%s)\n",
3922                                 i, strerror(errno) ));
3923                         goto fail;
3924                 }
3925
3926                 if (tag_type == SMB_ACL_USER) {
3927                         uint32 uidval = IVAL(pdata,(i*SMB_POSIX_ACL_ENTRY_SIZE)+2);
3928                         uid_t uid = (uid_t)uidval;
3929                         if (SMB_VFS_SYS_ACL_SET_QUALIFIER(conn, the_entry,(void *)&uid) == -1) {
3930                                 DEBUG(0,("create_posix_acl_from_wire: Failed to set uid %u on entry %u. (%s)\n",
3931                                         (unsigned int)uid, i, strerror(errno) ));
3932                                 goto fail;
3933                         }
3934                 }
3935
3936                 if (tag_type == SMB_ACL_GROUP) {
3937                         uint32 gidval = IVAL(pdata,(i*SMB_POSIX_ACL_ENTRY_SIZE)+2);
3938                         gid_t gid = (uid_t)gidval;
3939                         if (SMB_VFS_SYS_ACL_SET_QUALIFIER(conn, the_entry,(void *)&gid) == -1) {
3940                                 DEBUG(0,("create_posix_acl_from_wire: Failed to set gid %u on entry %u. (%s)\n",
3941                                         (unsigned int)gid, i, strerror(errno) ));
3942                                 goto fail;
3943                         }
3944                 }
3945         }
3946
3947         return the_acl;
3948
3949  fail:
3950
3951         if (the_acl != NULL) {
3952                 SMB_VFS_SYS_ACL_FREE_ACL(conn, the_acl);
3953         }
3954         return NULL;
3955 }
3956
3957 /****************************************************************************
3958  Calls from UNIX extensions - Default POSIX ACL set.
3959  If num_def_acls == 0 and not a directory just return. If it is a directory
3960  and num_def_acls == 0 then remove the default acl. Else set the default acl
3961  on the directory.
3962 ****************************************************************************/
3963
3964 BOOL set_unix_posix_default_acl(connection_struct *conn, const char *fname, SMB_STRUCT_STAT *psbuf,
3965                                 uint16 num_def_acls, const char *pdata)
3966 {
3967         SMB_ACL_T def_acl = NULL;
3968
3969         if (num_def_acls && !S_ISDIR(psbuf->st_mode)) {
3970                 DEBUG(5,("set_unix_posix_default_acl: Can't set default ACL on non-directory file %s\n", fname ));
3971                 errno = EISDIR;
3972                 return False;
3973         }
3974
3975         if (!num_def_acls) {
3976                 /* Remove the default ACL. */
3977                 if (SMB_VFS_SYS_ACL_DELETE_DEF_FILE(conn, fname) == -1) {
3978                         DEBUG(5,("set_unix_posix_default_acl: acl_delete_def_file failed on directory %s (%s)\n",
3979                                 fname, strerror(errno) ));
3980                         return False;
3981                 }
3982                 return True;
3983         }
3984
3985         if ((def_acl = create_posix_acl_from_wire(conn, num_def_acls, pdata)) == NULL) {
3986                 return False;
3987         }
3988
3989         if (SMB_VFS_SYS_ACL_SET_FILE(conn, fname, SMB_ACL_TYPE_DEFAULT, def_acl) == -1) {
3990                 DEBUG(5,("set_unix_posix_default_acl: acl_set_file failed on directory %s (%s)\n",
3991                         fname, strerror(errno) ));
3992                 SMB_VFS_SYS_ACL_FREE_ACL(conn, def_acl);
3993                 return False;
3994         }
3995
3996         DEBUG(10,("set_unix_posix_default_acl: set default acl for file %s\n", fname ));
3997         SMB_VFS_SYS_ACL_FREE_ACL(conn, def_acl);
3998         return True;
3999 }
4000
4001 /****************************************************************************
4002  Remove an ACL from a file. As we don't have acl_delete_entry() available
4003  we must read the current acl and copy all entries except MASK, USER and GROUP
4004  to a new acl, then set that. This (at least on Linux) causes any ACL to be
4005  removed.
4006  FIXME ! How does the share mask/mode fit into this.... ?
4007 ****************************************************************************/
4008
4009 static BOOL remove_posix_acl(connection_struct *conn, files_struct *fsp, const char *fname)
4010 {
4011         SMB_ACL_T file_acl = NULL;
4012         int entry_id = SMB_ACL_FIRST_ENTRY;
4013         SMB_ACL_ENTRY_T entry;
4014         BOOL ret = False;
4015         /* Create a new ACL with only 3 entries, u/g/w. */
4016         SMB_ACL_T new_file_acl = SMB_VFS_SYS_ACL_INIT(conn, 3);
4017         SMB_ACL_ENTRY_T user_ent = NULL;
4018         SMB_ACL_ENTRY_T group_ent = NULL;
4019         SMB_ACL_ENTRY_T other_ent = NULL;
4020
4021         if (new_file_acl == NULL) {
4022                 DEBUG(5,("remove_posix_acl: failed to init new ACL with 3 entries for file %s.\n", fname));
4023                 return False;
4024         }
4025
4026         /* Now create the u/g/w entries. */
4027         if (SMB_VFS_SYS_ACL_CREATE_ENTRY(conn, &new_file_acl, &user_ent) == -1) {
4028                 DEBUG(5,("remove_posix_acl: Failed to create user entry for file %s. (%s)\n",
4029                         fname, strerror(errno) ));
4030                 goto done;
4031         }
4032         if (SMB_VFS_SYS_ACL_SET_TAG_TYPE(conn, user_ent, SMB_ACL_USER_OBJ) == -1) {
4033                 DEBUG(5,("remove_posix_acl: Failed to set user entry for file %s. (%s)\n",
4034                         fname, strerror(errno) ));
4035                 goto done;
4036         }
4037
4038         if (SMB_VFS_SYS_ACL_CREATE_ENTRY(conn, &new_file_acl, &group_ent) == -1) {
4039                 DEBUG(5,("remove_posix_acl: Failed to create group entry for file %s. (%s)\n",
4040                         fname, strerror(errno) ));
4041                 goto done;
4042         }
4043         if (SMB_VFS_SYS_ACL_SET_TAG_TYPE(conn, group_ent, SMB_ACL_GROUP_OBJ) == -1) {
4044                 DEBUG(5,("remove_posix_acl: Failed to set group entry for file %s. (%s)\n",
4045                         fname, strerror(errno) ));
4046                 goto done;
4047         }
4048
4049         if (SMB_VFS_SYS_ACL_CREATE_ENTRY(conn, &new_file_acl, &other_ent) == -1) {
4050                 DEBUG(5,("remove_posix_acl: Failed to create other entry for file %s. (%s)\n",
4051                         fname, strerror(errno) ));
4052                 goto done;
4053         }
4054         if (SMB_VFS_SYS_ACL_SET_TAG_TYPE(conn, other_ent, SMB_ACL_OTHER) == -1) {
4055                 DEBUG(5,("remove_posix_acl: Failed to set other entry for file %s. (%s)\n",
4056                         fname, strerror(errno) ));
4057                 goto done;
4058         }
4059
4060         /* Get the current file ACL. */
4061         if (fsp && fsp->fh->fd != -1) {
4062                 file_acl = SMB_VFS_SYS_ACL_GET_FD(fsp, fsp->fh->fd);
4063         } else {
4064                 file_acl = SMB_VFS_SYS_ACL_GET_FILE( conn, fname, SMB_ACL_TYPE_ACCESS);
4065         }
4066
4067         if (file_acl == NULL) {
4068                 /* This is only returned if an error occurred. Even for a file with
4069                    no acl a u/g/w acl should be returned. */
4070                 DEBUG(5,("remove_posix_acl: failed to get ACL from file %s (%s).\n",
4071                         fname, strerror(errno) ));
4072                 goto done;
4073         }
4074
4075         while ( SMB_VFS_SYS_ACL_GET_ENTRY(conn, file_acl, entry_id, &entry) == 1) {
4076                 SMB_ACL_TAG_T tagtype;
4077                 SMB_ACL_PERMSET_T permset;
4078
4079                 /* get_next... */
4080                 if (entry_id == SMB_ACL_FIRST_ENTRY)
4081                         entry_id = SMB_ACL_NEXT_ENTRY;
4082
4083                 if (SMB_VFS_SYS_ACL_GET_TAG_TYPE(conn, entry, &tagtype) == -1) {
4084                         DEBUG(5,("remove_posix_acl: failed to get tagtype from ACL on file %s (%s).\n",
4085                                 fname, strerror(errno) ));
4086                         goto done;
4087                 }
4088
4089                 if (SMB_VFS_SYS_ACL_GET_PERMSET(conn, entry, &permset) == -1) {
4090                         DEBUG(5,("remove_posix_acl: failed to get permset from ACL on file %s (%s).\n",
4091                                 fname, strerror(errno) ));
4092                         goto done;
4093                 }
4094
4095                 if (tagtype == SMB_ACL_USER_OBJ) {
4096                         if (SMB_VFS_SYS_ACL_SET_PERMSET(conn, user_ent, permset) == -1) {
4097                                 DEBUG(5,("remove_posix_acl: failed to set permset from ACL on file %s (%s).\n",
4098                                         fname, strerror(errno) ));
4099                         }
4100                 } else if (tagtype == SMB_ACL_GROUP_OBJ) {
4101                         if (SMB_VFS_SYS_ACL_SET_PERMSET(conn, group_ent, permset) == -1) {
4102                                 DEBUG(5,("remove_posix_acl: failed to set permset from ACL on file %s (%s).\n",
4103                                         fname, strerror(errno) ));
4104                         }
4105                 } else if (tagtype == SMB_ACL_OTHER) {
4106                         if (SMB_VFS_SYS_ACL_SET_PERMSET(conn, other_ent, permset) == -1) {
4107                                 DEBUG(5,("remove_posix_acl: failed to set permset from ACL on file %s (%s).\n",
4108                                         fname, strerror(errno) ));
4109                         }
4110                 }
4111         }
4112
4113         /* Set the new empty file ACL. */
4114         if (fsp && fsp->fh->fd != -1) {
4115                 if (SMB_VFS_SYS_ACL_SET_FD(fsp, fsp->fh->fd, new_file_acl) == -1) {
4116                         DEBUG(5,("remove_posix_acl: acl_set_file failed on %s (%s)\n",
4117                                 fname, strerror(errno) ));
4118                         goto done;
4119                 }
4120         } else {
4121                 if (SMB_VFS_SYS_ACL_SET_FILE(conn, fname, SMB_ACL_TYPE_ACCESS, new_file_acl) == -1) {
4122                         DEBUG(5,("remove_posix_acl: acl_set_file failed on %s (%s)\n",
4123                                 fname, strerror(errno) ));
4124                         goto done;
4125                 }
4126         }
4127
4128         ret = True;
4129
4130  done:
4131
4132         if (file_acl) {
4133                 SMB_VFS_SYS_ACL_FREE_ACL(conn, file_acl);
4134         }
4135         if (new_file_acl) {
4136                 SMB_VFS_SYS_ACL_FREE_ACL(conn, new_file_acl);
4137         }
4138         return ret;
4139 }
4140
4141 /****************************************************************************
4142  Calls from UNIX extensions - POSIX ACL set.
4143  If num_def_acls == 0 then read/modify/write acl after removing all entries
4144  except SMB_ACL_USER_OBJ, SMB_ACL_GROUP_OBJ, SMB_ACL_OTHER.
4145 ****************************************************************************/
4146
4147 BOOL set_unix_posix_acl(connection_struct *conn, files_struct *fsp, const char *fname, uint16 num_acls, const char *pdata)
4148 {
4149         SMB_ACL_T file_acl = NULL;
4150
4151         if (!num_acls) {
4152                 /* Remove the ACL from the file. */
4153                 return remove_posix_acl(conn, fsp, fname);
4154         }
4155
4156         if ((file_acl = create_posix_acl_from_wire(conn, num_acls, pdata)) == NULL) {
4157                 return False;
4158         }
4159
4160         if (fsp && fsp->fh->fd != -1) {
4161                 /* The preferred way - use an open fd. */
4162                 if (SMB_VFS_SYS_ACL_SET_FD(fsp, fsp->fh->fd, file_acl) == -1) {
4163                         DEBUG(5,("set_unix_posix_acl: acl_set_file failed on %s (%s)\n",
4164                                 fname, strerror(errno) ));
4165                         SMB_VFS_SYS_ACL_FREE_ACL(conn, file_acl);
4166                         return False;
4167                 }
4168         } else {
4169                 if (SMB_VFS_SYS_ACL_SET_FILE(conn, fname, SMB_ACL_TYPE_ACCESS, file_acl) == -1) {
4170                         DEBUG(5,("set_unix_posix_acl: acl_set_file failed on %s (%s)\n",
4171                                 fname, strerror(errno) ));
4172                         SMB_VFS_SYS_ACL_FREE_ACL(conn, file_acl);
4173                         return False;
4174                 }
4175         }
4176
4177         DEBUG(10,("set_unix_posix_acl: set acl for file %s\n", fname ));
4178         SMB_VFS_SYS_ACL_FREE_ACL(conn, file_acl);
4179         return True;
4180 }
4181
4182 /****************************************************************************
4183  Helper function that gets a security descriptor by connection and
4184  file name.
4185  NOTE: This is transitional, in the sense that SMB_VFS_GET_NT_ACL really
4186  should *not* get a files_struct pointer but a connection_struct ptr
4187  (automatic by the vfs handle) and the file name and _use_ that!
4188 ****************************************************************************/
4189 static NTSTATUS conn_get_nt_acl(TALLOC_CTX *mem_ctx,
4190                                 struct connection_struct *conn,
4191                                 const char *fname,
4192                                 SMB_STRUCT_STAT *psbuf,
4193                                 struct security_descriptor_info **psd)
4194 {
4195         NTSTATUS status;
4196         struct files_struct *fsp = NULL;
4197         struct security_descriptor_info *secdesc = NULL;
4198         size_t secdesc_size;
4199
4200         if (!VALID_STAT(*psbuf)) {
4201                 if (SMB_VFS_STAT(conn, fname, psbuf) != 0) {
4202                         return map_nt_error_from_unix(errno);
4203                 }
4204         }
4205
4206         /* fake a files_struct ptr: */
4207
4208         if (S_ISDIR(psbuf->st_mode)) {
4209                 status = open_directory(conn, fname, psbuf,
4210                                         READ_CONTROL_ACCESS,
4211                                         FILE_SHARE_READ|FILE_SHARE_WRITE,
4212                                         FILE_OPEN,
4213                                         0,
4214                                         FILE_ATTRIBUTE_DIRECTORY,
4215                                         NULL, &fsp);
4216         }
4217         else {
4218                 status = open_file_stat(conn, fname, psbuf, &fsp);
4219         }
4220
4221         if (!NT_STATUS_IS_OK(status)) {
4222                 DEBUG(3, ("Unable to open file %s: %s\n", fname,
4223                           nt_errstr(status)));
4224                 return status;
4225         }
4226
4227         secdesc_size = SMB_VFS_GET_NT_ACL(fsp, fname,
4228                                           (OWNER_SECURITY_INFORMATION |
4229                                            GROUP_SECURITY_INFORMATION |
4230                                            DACL_SECURITY_INFORMATION),
4231                                           &secdesc);
4232         if (secdesc_size == 0) {
4233                 DEBUG(5, ("Unable to get NT ACL for file %s\n", fname));
4234                 status = NT_STATUS_ACCESS_DENIED;
4235                 goto done;
4236         }
4237
4238         *psd = talloc_move(mem_ctx, &secdesc);
4239         status = NT_STATUS_OK;
4240
4241 done:
4242         close_file(fsp, NORMAL_CLOSE);
4243         return status;
4244 }
4245
4246 static BOOL can_access_file_acl(struct connection_struct *conn,
4247                                 const char * fname, SMB_STRUCT_STAT *psbuf,
4248                                 uint32_t access_mask)
4249 {
4250         BOOL result;
4251         NTSTATUS status;
4252         uint32_t access_granted;
4253         struct security_descriptor_info *secdesc = NULL;
4254
4255         status = conn_get_nt_acl(tmp_talloc_ctx(), conn, fname, psbuf, &secdesc);
4256         if (!NT_STATUS_IS_OK(status)) {
4257                 DEBUG(5, ("Could not get acl: %s\n", nt_errstr(status)));
4258                 return False;
4259         }
4260
4261         result = se_access_check(secdesc, current_user.nt_user_token,
4262                                  access_mask, &access_granted, &status);
4263         TALLOC_FREE(secdesc);
4264         return result;
4265 }
4266
4267 /****************************************************************************
4268  Actually emulate the in-kernel access checking for delete access. We need
4269  this to successfully return ACCESS_DENIED on a file open for delete access.
4270 ****************************************************************************/
4271
4272 BOOL can_delete_file_in_directory(connection_struct *conn, const char *fname)
4273 {
4274         SMB_STRUCT_STAT sbuf;
4275         pstring dname;
4276
4277         if (!CAN_WRITE(conn)) {
4278                 return False;
4279         }
4280
4281         /* Get the parent directory permission mask and owners. */
4282         pstrcpy(dname, parent_dirname(fname));
4283         if(SMB_VFS_STAT(conn, dname, &sbuf) != 0) {
4284                 return False;
4285         }
4286
4287         /* fast paths first */
4288
4289         if (!S_ISDIR(sbuf.st_mode)) {
4290                 return False;
4291         }
4292         if (current_user.ut.uid == 0 || conn->admin_user) {
4293                 /* I'm sorry sir, I didn't know you were root... */
4294                 return True;
4295         }
4296
4297         /* Check primary owner write access. */
4298         if (current_user.ut.uid == sbuf.st_uid) {
4299                 return (sbuf.st_mode & S_IWUSR) ? True : False;
4300         }
4301
4302 #ifdef S_ISVTX
4303         /* sticky bit means delete only by owner or root. */
4304         if (sbuf.st_mode & S_ISVTX) {
4305                 SMB_STRUCT_STAT sbuf_file;
4306                 if(SMB_VFS_STAT(conn, fname, &sbuf_file) != 0) {
4307                         if (errno == ENOENT) {
4308                                 /* If the file doesn't already exist then
4309                                  * yes we'll be able to delete it. */
4310                                 return True;
4311                         }
4312                         return False;
4313                 }
4314                 /*
4315                  * Patch from SATOH Fumiyasu <fumiyas@miraclelinux.com>
4316                  * for bug #3348. Don't assume owning sticky bit
4317                  * directory means write access allowed.
4318                  */
4319                 if (current_user.ut.uid != sbuf_file.st_uid) {
4320                         return False;
4321                 }
4322         }
4323 #endif
4324
4325         /* now for ACL checks */
4326
4327         return can_access_file_acl(conn, dname, &sbuf, FILE_WRITE_DATA);
4328 }
4329
4330 /****************************************************************************
4331  Actually emulate the in-kernel access checking for read/write access. We need
4332  this to successfully check for ability to write for dos filetimes.
4333  Note this doesn't take into account share write permissions.
4334 ****************************************************************************/
4335
4336 BOOL can_access_file(connection_struct *conn, const char *fname, SMB_STRUCT_STAT *psbuf, uint32 access_mask)
4337 {
4338         if (!(access_mask & (FILE_READ_DATA|FILE_WRITE_DATA))) {
4339                 return False;
4340         }
4341         access_mask &= (FILE_READ_DATA|FILE_WRITE_DATA);
4342
4343         /* some fast paths first */
4344
4345         DEBUG(10,("can_access_file: requesting 0x%x on file %s\n",
4346                 (unsigned int)access_mask, fname ));
4347
4348         if (current_user.ut.uid == 0 || conn->admin_user) {
4349                 /* I'm sorry sir, I didn't know you were root... */
4350                 return True;
4351         }
4352
4353         if (!VALID_STAT(*psbuf)) {
4354                 /* Get the file permission mask and owners. */
4355                 if(SMB_VFS_STAT(conn, fname, psbuf) != 0) {
4356                         return False;
4357                 }
4358         }
4359
4360         /* Check primary owner access. */
4361         if (current_user.ut.uid == psbuf->st_uid) {
4362                 switch (access_mask) {
4363                         case FILE_READ_DATA:
4364                                 return (psbuf->st_mode & S_IRUSR) ? True : False;
4365
4366                         case FILE_WRITE_DATA:
4367                                 return (psbuf->st_mode & S_IWUSR) ? True : False;
4368
4369                         default: /* FILE_READ_DATA|FILE_WRITE_DATA */
4370
4371                                 if ((psbuf->st_mode & (S_IWUSR|S_IRUSR)) == (S_IWUSR|S_IRUSR)) {
4372                                         return True;
4373                                 } else {
4374                                         return False;
4375                                 }
4376                 }
4377         }
4378
4379         /* now for ACL checks */
4380
4381         return can_access_file_acl(conn, fname, psbuf, access_mask);
4382 }
4383
4384 /****************************************************************************
4385  Userspace check for write access.
4386  Note this doesn't take into account share write permissions.
4387 ****************************************************************************/
4388
4389 BOOL can_write_to_file(connection_struct *conn, const char *fname, SMB_STRUCT_STAT *psbuf)
4390 {
4391         return can_access_file(conn, fname, psbuf, FILE_WRITE_DATA);
4392 }
4393
4394 /********************************************************************
4395  Pull the NT ACL from a file on disk or the OpenEventlog() access
4396  check.  Caller is responsible for freeing the returned security
4397  descriptor via TALLOC_FREE().  This is designed for dealing with
4398  user space access checks in smbd outside of the VFS.  For example,
4399  checking access rights in OpenEventlog().
4400
4401  Assume we are dealing with files (for now)
4402 ********************************************************************/
4403
4404 SEC_DESC* get_nt_acl_no_snum( TALLOC_CTX *ctx, const char *fname)
4405 {
4406         SEC_DESC *psd, *ret_sd;
4407         connection_struct conn;
4408         files_struct finfo;
4409         struct fd_handle fh;
4410         pstring path;
4411         pstring filename;
4412
4413         ZERO_STRUCT( conn );
4414
4415         if ( !(conn.mem_ctx = talloc_init( "novfs_get_nt_acl" )) ) {
4416                 DEBUG(0,("get_nt_acl_no_snum: talloc() failed!\n"));
4417                 return NULL;
4418         }
4419
4420         if (!(conn.params = TALLOC_P(conn.mem_ctx, struct share_params))) {
4421                 DEBUG(0,("get_nt_acl_no_snum: talloc() failed!\n"));
4422                 TALLOC_FREE(conn.mem_ctx);
4423                 return NULL;
4424         }
4425
4426         conn.params->service = -1;
4427
4428         pstrcpy( path, "/" );
4429         set_conn_connectpath(&conn, path);
4430
4431         if (!smbd_vfs_init(&conn)) {
4432                 DEBUG(0,("get_nt_acl_no_snum: Unable to create a fake connection struct!\n"));
4433                 conn_free_internal( &conn );
4434                 return NULL;
4435         }
4436
4437         ZERO_STRUCT( finfo );
4438         ZERO_STRUCT( fh );
4439
4440         finfo.fnum = -1;
4441         finfo.conn = &conn;
4442         finfo.fh = &fh;
4443         finfo.fh->fd = -1;
4444         pstrcpy( filename, fname );
4445         finfo.fsp_name = filename;
4446
4447         if (get_nt_acl( &finfo, DACL_SECURITY_INFORMATION, &psd ) == 0) {
4448                 DEBUG(0,("get_nt_acl_no_snum: get_nt_acl returned zero.\n"));
4449                 conn_free_internal( &conn );
4450                 return NULL;
4451         }
4452
4453         ret_sd = dup_sec_desc( ctx, psd );
4454
4455         conn_free_internal( &conn );
4456
4457         return ret_sd;
4458 }