Context Navigation

source: trunk-3.0/source/smbd/posix_acls.c@ 103

Visit:

Last change on this file since 103 was 71, checked in by Paul Smedley, 18 years ago
Update source to 3.0.26a
File size: 138.2 KB

Line
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	current_ace->type = SMB_ACL_USER;
1406	} else if (sid_to_gid( &current_ace->trustee, &current_ace->unix_ug.gid)) {
1407	current_ace->owner_type = GID_ACE;
1408	current_ace->type = SMB_ACL_GROUP;
1409	} else {
1410	fstring str;
1411
1412	/*
1413	* Silently ignore map failures in non-mappable SIDs (NT Authority, BUILTIN etc).
1414	*/
1415
1416	if (non_mappable_sid(&psa->trustee)) {
1417	DEBUG(10,("create_canon_ace_lists: ignoring non-mappable SID %s\n",
1418	sid_to_string(str, &psa->trustee) ));
1419	SAFE_FREE(current_ace);
1420	continue;
1421	}
1422
1423	free_canon_ace_list(file_ace);
1424	free_canon_ace_list(dir_ace);
1425	DEBUG(0,("create_canon_ace_lists: unable to map SID %s to uid or gid.\n",
1426	sid_to_string(str, &current_ace->trustee) ));
1427	SAFE_FREE(current_ace);
1428	return False;
1429	}
1430
1431	/*
1432	* Map the given NT permissions into a UNIX mode_t containing only
1433	* S_I(R\|W\|X)USR bits.
1434	*/
1435
1436	current_ace->perms \|= map_nt_perms( &psa->access_mask, S_IRUSR);
1437	current_ace->attr = (psa->type == SEC_ACE_TYPE_ACCESS_ALLOWED) ? ALLOW_ACE : DENY_ACE;
1438	current_ace->inherited = ((psa->flags & SEC_ACE_FLAG_INHERITED_ACE) ? True : False);
1439
1440	/*
1441	* Now add the created ace to either the file list, the directory
1442	* list, or both. We MUST preserve the order here (hence we use
1443	* DLIST_ADD_END) as NT ACLs are order dependent.
1444	*/
1445
1446	if (fsp->is_directory) {
1447
1448	/*
1449	* We can only add to the default POSIX ACE list if the ACE is
1450	* designed to be inherited by both files and directories.
1451	*/
1452
1453	if ((psa->flags & (SEC_ACE_FLAG_OBJECT_INHERIT\|SEC_ACE_FLAG_CONTAINER_INHERIT)) ==
1454	(SEC_ACE_FLAG_OBJECT_INHERIT\|SEC_ACE_FLAG_CONTAINER_INHERIT)) {
1455
1456	DLIST_ADD_END(dir_ace, current_ace, canon_ace *);
1457
1458	/*
1459	* Note if this was an allow ace. We can't process
1460	* any further deny ace's after this.
1461	*/
1462
1463	if (current_ace->attr == ALLOW_ACE)
1464	got_dir_allow = True;
1465
1466	if ((current_ace->attr == DENY_ACE) && got_dir_allow) {
1467	DEBUG(0,("create_canon_ace_lists: malformed ACL in inheritable ACL ! \
1468	Deny entry after Allow entry. Failing to set on file %s.\n", fsp->fsp_name ));
1469	free_canon_ace_list(file_ace);
1470	free_canon_ace_list(dir_ace);
1471	return False;
1472	}
1473
1474	if( DEBUGLVL( 10 )) {
1475	dbgtext("create_canon_ace_lists: adding dir ACL:\n");
1476	print_canon_ace( current_ace, 0);
1477	}
1478
1479	/*
1480	* If this is not an inherit only ACE we need to add a duplicate
1481	* to the file acl.
1482	*/
1483
1484	if (!(psa->flags & SEC_ACE_FLAG_INHERIT_ONLY)) {
1485	canon_ace *dup_ace = dup_canon_ace(current_ace);
1486
1487	if (!dup_ace) {
1488	DEBUG(0,("create_canon_ace_lists: malloc fail !\n"));
1489	free_canon_ace_list(file_ace);
1490	free_canon_ace_list(dir_ace);
1491	return False;
1492	}
1493
1494	/*
1495	* We must not free current_ace here as its
1496	* pointer is now owned by the dir_ace list.
1497	*/
1498	current_ace = dup_ace;
1499	} else {
1500	/*
1501	* We must not free current_ace here as its
1502	* pointer is now owned by the dir_ace list.
1503	*/
1504	current_ace = NULL;
1505	}
1506	}
1507	}
1508
1509	/*
1510	* Only add to the file ACL if not inherit only.
1511	*/
1512
1513	if (current_ace && !(psa->flags & SEC_ACE_FLAG_INHERIT_ONLY)) {
1514	DLIST_ADD_END(file_ace, current_ace, canon_ace *);
1515
1516	/*
1517	* Note if this was an allow ace. We can't process
1518	* any further deny ace's after this.
1519	*/
1520
1521	if (current_ace->attr == ALLOW_ACE)
1522	got_file_allow = True;
1523
1524	if ((current_ace->attr == DENY_ACE) && got_file_allow) {
1525	DEBUG(0,("create_canon_ace_lists: malformed ACL in file ACL ! \
1526	Deny entry after Allow entry. Failing to set on file %s.\n", fsp->fsp_name ));
1527	free_canon_ace_list(file_ace);
1528	free_canon_ace_list(dir_ace);
1529	return False;
1530	}
1531
1532	if( DEBUGLVL( 10 )) {
1533	dbgtext("create_canon_ace_lists: adding file ACL:\n");
1534	print_canon_ace( current_ace, 0);
1535	}
1536	all_aces_are_inherit_only = False;
1537	/*
1538	* We must not free current_ace here as its
1539	* pointer is now owned by the file_ace list.
1540	*/
1541	current_ace = NULL;
1542	}
1543
1544	/*
1545	* Free if ACE was not added.
1546	*/
1547
1548	SAFE_FREE(current_ace);
1549	}
1550
1551	if (fsp->is_directory && all_aces_are_inherit_only) {
1552	/*
1553	* Windows 2000 is doing one of these weird 'inherit acl'
1554	* traverses to conserve NTFS ACL resources. Just pretend
1555	* there was no DACL sent. JRA.
1556	*/
1557
1558	DEBUG(10,("create_canon_ace_lists: Win2k inherit acl traverse. Ignoring DACL.\n"));
1559	free_canon_ace_list(file_ace);
1560	free_canon_ace_list(dir_ace);
1561	file_ace = NULL;
1562	dir_ace = NULL;
1563	} else {
1564	/*
1565	* Check if we have SMB_ACL_USER_OBJ and SMB_ACL_GROUP_OBJ entries in each
1566	* ACL. If we don't have them, check if any SMB_ACL_USER/SMB_ACL_GROUP
1567	* entries can be converted to *_OBJ. Usually we will already have these
1568	* entries in the Default ACL, and the Access ACL will not have them.
1569	*/
1570	if (file_ace) {
1571	check_owning_objs(file_ace, pfile_owner_sid, pfile_grp_sid);
1572	}
1573	if (dir_ace) {
1574	check_owning_objs(dir_ace, pfile_owner_sid, pfile_grp_sid);
1575	}
1576	}
1577
1578	*ppfile_ace = file_ace;
1579	*ppdir_ace = dir_ace;
1580
1581	return True;
1582	}
1583
1584	/****************************************************************************
1585	ASCII art time again... JRA :-).
1586
1587	We have 4 cases to process when moving from an NT ACL to a POSIX ACL. Firstly,
1588	we insist the ACL is in canonical form (ie. all DENY entries preceede ALLOW
1589	entries). Secondly, the merge code has ensured that all duplicate SID entries for
1590	allow or deny have been merged, so the same SID can only appear once in the deny
1591	list or once in the allow list.
1592
1593	We then process as follows :
1594
1595	---------------------------------------------------------------------------
1596	First pass - look for a Everyone DENY entry.
1597
1598	If it is deny all (rwx) trunate the list at this point.
1599	Else, walk the list from this point and use the deny permissions of this
1600	entry as a mask on all following allow entries. Finally, delete
1601	the Everyone DENY entry (we have applied it to everything possible).
1602
1603	In addition, in this pass we remove any DENY entries that have
1604	no permissions (ie. they are a DENY nothing).
1605	---------------------------------------------------------------------------
1606	Second pass - only deal with deny user entries.
1607
1608	DENY user1 (perms XXX)
1609
1610	new_perms = 0
1611	for all following allow group entries where user1 is in group
1612	new_perms \|= group_perms;
1613
1614	user1 entry perms = new_perms & ~ XXX;
1615
1616	Convert the deny entry to an allow entry with the new perms and
1617	push to the end of the list. Note if the user was in no groups
1618	this maps to a specific allow nothing entry for this user.
1619
1620	The common case from the NT ACL choser (userX deny all) is
1621	optimised so we don't do the group lookup - we just map to
1622	an allow nothing entry.
1623
1624	What we're doing here is inferring the allow permissions the
1625	person setting the ACE on user1 wanted by looking at the allow
1626	permissions on the groups the user is currently in. This will
1627	be a snapshot, depending on group membership but is the best
1628	we can do and has the advantage of failing closed rather than
1629	open.
1630	---------------------------------------------------------------------------
1631	Third pass - only deal with deny group entries.
1632
1633	DENY group1 (perms XXX)
1634
1635	for all following allow user entries where user is in group1
1636	user entry perms = user entry perms & ~ XXX;
1637
1638	If there is a group Everyone allow entry with permissions YYY,
1639	convert the group1 entry to an allow entry and modify its
1640	permissions to be :
1641
1642	new_perms = YYY & ~ XXX
1643
1644	and push to the end of the list.
1645
1646	If there is no group Everyone allow entry then convert the
1647	group1 entry to a allow nothing entry and push to the end of the list.
1648
1649	Note that the common case from the NT ACL choser (groupX deny all)
1650	cannot be optimised here as we need to modify user entries who are
1651	in the group to change them to a deny all also.
1652
1653	What we're doing here is modifying the allow permissions of
1654	user entries (which are more specific in POSIX ACLs) to mask
1655	out the explicit deny set on the group they are in. This will
1656	be a snapshot depending on current group membership but is the
1657	best we can do and has the advantage of failing closed rather
1658	than open.
1659	---------------------------------------------------------------------------
1660	Fourth pass - cope with cumulative permissions.
1661
1662	for all allow user entries, if there exists an allow group entry with
1663	more permissive permissions, and the user is in that group, rewrite the
1664	allow user permissions to contain both sets of permissions.
1665
1666	Currently the code for this is #ifdef'ed out as these semantics make
1667	no sense to me. JRA.
1668	---------------------------------------------------------------------------
1669
1670	Note we MUST do the deny user pass first as this will convert deny user
1671	entries into allow user entries which can then be processed by the deny
1672	group pass.
1673
1674	The above algorithm took a lot of thinking about - hence this
1675	explaination :-). JRA.
1676	****************************************************************************/
1677
1678	/****************************************************************************
1679	Process a canon_ace list entries. This is very complex code. We need
1680	to go through and remove the "deny" permissions from any allow entry that matches
1681	the id of this entry. We have already refused any NT ACL that wasn't in correct
1682	order (DENY followed by ALLOW). If any allow entry ends up with zero permissions,
1683	we just remove it (to fail safe). We have already removed any duplicate ace
1684	entries. Treat an "Everyone" DENY_ACE as a special case - use it to mask all
1685	allow entries.
1686	****************************************************************************/
1687
1688	static void process_deny_list( canon_ace **pp_ace_list )
1689	{
1690	canon_ace ace_list = pp_ace_list;
1691	canon_ace *curr_ace = NULL;
1692	canon_ace *curr_ace_next = NULL;
1693
1694	/* Pass 1 above - look for an Everyone, deny entry. */
1695
1696	for (curr_ace = ace_list; curr_ace; curr_ace = curr_ace_next) {
1697	canon_ace *allow_ace_p;
1698
1699	curr_ace_next = curr_ace->next; /* So we can't lose the link. */
1700
1701	if (curr_ace->attr != DENY_ACE)
1702	continue;
1703
1704	if (curr_ace->perms == (mode_t)0) {
1705
1706	/* Deny nothing entry - delete. */
1707
1708	DLIST_REMOVE(ace_list, curr_ace);
1709	continue;
1710	}
1711
1712	if (!sid_equal(&curr_ace->trustee, &global_sid_World))
1713	continue;
1714
1715	/* JRATEST - assert. */
1716	SMB_ASSERT(curr_ace->owner_type == WORLD_ACE);
1717
1718	if (curr_ace->perms == ALL_ACE_PERMS) {
1719
1720	/*
1721	* Optimisation. This is a DENY_ALL to Everyone. Truncate the
1722	* list at this point including this entry.
1723	*/
1724
1725	canon_ace *prev_entry = curr_ace->prev;
1726
1727	free_canon_ace_list( curr_ace );
1728	if (prev_entry)
1729	prev_entry->next = NULL;
1730	else {
1731	/* We deleted the entire list. */
1732	ace_list = NULL;
1733	}
1734	break;
1735	}
1736
1737	for (allow_ace_p = curr_ace->next; allow_ace_p; allow_ace_p = allow_ace_p->next) {
1738
1739	/*
1740	* Only mask off allow entries.
1741	*/
1742
1743	if (allow_ace_p->attr != ALLOW_ACE)
1744	continue;
1745
1746	allow_ace_p->perms &= ~curr_ace->perms;
1747	}
1748
1749	/*
1750	* Now it's been applied, remove it.
1751	*/
1752
1753	DLIST_REMOVE(ace_list, curr_ace);
1754	}
1755
1756	/* Pass 2 above - deal with deny user entries. */
1757
1758	for (curr_ace = ace_list; curr_ace; curr_ace = curr_ace_next) {
1759	mode_t new_perms = (mode_t)0;
1760	canon_ace *allow_ace_p;
1761
1762	curr_ace_next = curr_ace->next; /* So we can't lose the link. */
1763
1764	if (curr_ace->attr != DENY_ACE)
1765	continue;
1766
1767	if (curr_ace->owner_type != UID_ACE)
1768	continue;
1769
1770	if (curr_ace->perms == ALL_ACE_PERMS) {
1771
1772	/*
1773	* Optimisation - this is a deny everything to this user.
1774	* Convert to an allow nothing and push to the end of the list.
1775	*/
1776
1777	curr_ace->attr = ALLOW_ACE;
1778	curr_ace->perms = (mode_t)0;
1779	DLIST_DEMOTE(ace_list, curr_ace, canon_ace *);
1780	continue;
1781	}
1782
1783	for (allow_ace_p = curr_ace->next; allow_ace_p; allow_ace_p = allow_ace_p->next) {
1784
1785	if (allow_ace_p->attr != ALLOW_ACE)
1786	continue;
1787
1788	/* We process GID_ACE and WORLD_ACE entries only. */
1789
1790	if (allow_ace_p->owner_type == UID_ACE)
1791	continue;
1792
1793	if (uid_entry_in_group( curr_ace, allow_ace_p))
1794	new_perms \|= allow_ace_p->perms;
1795	}
1796
1797	/*
1798	* Convert to a allow entry, modify the perms and push to the end
1799	* of the list.
1800	*/
1801
1802	curr_ace->attr = ALLOW_ACE;
1803	curr_ace->perms = (new_perms & ~curr_ace->perms);
1804	DLIST_DEMOTE(ace_list, curr_ace, canon_ace *);
1805	}
1806
1807	/* Pass 3 above - deal with deny group entries. */
1808
1809	for (curr_ace = ace_list; curr_ace; curr_ace = curr_ace_next) {
1810	canon_ace *allow_ace_p;
1811	canon_ace *allow_everyone_p = NULL;
1812
1813	curr_ace_next = curr_ace->next; /* So we can't lose the link. */
1814
1815	if (curr_ace->attr != DENY_ACE)
1816	continue;
1817
1818	if (curr_ace->owner_type != GID_ACE)
1819	continue;
1820
1821	for (allow_ace_p = curr_ace->next; allow_ace_p; allow_ace_p = allow_ace_p->next) {
1822
1823	if (allow_ace_p->attr != ALLOW_ACE)
1824	continue;
1825
1826	/* Store a pointer to the Everyone allow, if it exists. */
1827	if (allow_ace_p->owner_type == WORLD_ACE)
1828	allow_everyone_p = allow_ace_p;
1829
1830	/* We process UID_ACE entries only. */
1831
1832	if (allow_ace_p->owner_type != UID_ACE)
1833	continue;
1834
1835	/* Mask off the deny group perms. */
1836
1837	if (uid_entry_in_group( allow_ace_p, curr_ace))
1838	allow_ace_p->perms &= ~curr_ace->perms;
1839	}
1840
1841	/*
1842	* Convert the deny to an allow with the correct perms and
1843	* push to the end of the list.
1844	*/
1845
1846	curr_ace->attr = ALLOW_ACE;
1847	if (allow_everyone_p)
1848	curr_ace->perms = allow_everyone_p->perms & ~curr_ace->perms;
1849	else
1850	curr_ace->perms = (mode_t)0;
1851	DLIST_DEMOTE(ace_list, curr_ace, canon_ace *);
1852	}
1853
1854	/* Doing this fourth pass allows Windows semantics to be layered
1855	* on top of POSIX semantics. I'm not sure if this is desirable.
1856	* For example, in W2K ACLs there is no way to say, "Group X no
1857	* access, user Y full access" if user Y is a member of group X.
1858	* This seems completely broken semantics to me.... JRA.
1859	*/
1860
1861	#if 0
1862	/* Pass 4 above - deal with allow entries. */
1863
1864	for (curr_ace = ace_list; curr_ace; curr_ace = curr_ace_next) {
1865	canon_ace *allow_ace_p;
1866
1867	curr_ace_next = curr_ace->next; /* So we can't lose the link. */
1868
1869	if (curr_ace->attr != ALLOW_ACE)
1870	continue;
1871
1872	if (curr_ace->owner_type != UID_ACE)
1873	continue;
1874
1875	for (allow_ace_p = ace_list; allow_ace_p; allow_ace_p = allow_ace_p->next) {
1876
1877	if (allow_ace_p->attr != ALLOW_ACE)
1878	continue;
1879
1880	/* We process GID_ACE entries only. */
1881
1882	if (allow_ace_p->owner_type != GID_ACE)
1883	continue;
1884
1885	/* OR in the group perms. */
1886
1887	if (uid_entry_in_group( curr_ace, allow_ace_p))
1888	curr_ace->perms \|= allow_ace_p->perms;
1889	}
1890	}
1891	#endif
1892
1893	*pp_ace_list = ace_list;
1894	}
1895
1896	/****************************************************************************
1897	Create a default mode that will be used if a security descriptor entry has
1898	no user/group/world entries.
1899	****************************************************************************/
1900
1901	static mode_t create_default_mode(files_struct *fsp, BOOL interitable_mode)
1902	{
1903	int snum = SNUM(fsp->conn);
1904	mode_t and_bits = (mode_t)0;
1905	mode_t or_bits = (mode_t)0;
1906	mode_t mode = interitable_mode
1907	? unix_mode( fsp->conn, FILE_ATTRIBUTE_ARCHIVE, fsp->fsp_name,
1908	NULL )
1909	: S_IRUSR;
1910
1911	if (fsp->is_directory)
1912	mode \|= (S_IWUSR\|S_IXUSR);
1913
1914	/*
1915	* Now AND with the create mode/directory mode bits then OR with the
1916	* force create mode/force directory mode bits.
1917	*/
1918
1919	if (fsp->is_directory) {
1920	and_bits = lp_dir_security_mask(snum);
1921	or_bits = lp_force_dir_security_mode(snum);
1922	} else {
1923	and_bits = lp_security_mask(snum);
1924	or_bits = lp_force_security_mode(snum);
1925	}
1926
1927	return ((mode & and_bits)\|or_bits);
1928	}
1929
1930	/****************************************************************************
1931	Unpack a SEC_DESC into two canonical ace lists. We don't depend on this
1932	succeeding.
1933	****************************************************************************/
1934
1935	static BOOL unpack_canon_ace(files_struct *fsp,
1936	SMB_STRUCT_STAT *pst,
1937	DOM_SID *pfile_owner_sid,
1938	DOM_SID *pfile_grp_sid,
1939	canon_ace ppfile_ace, canon_ace ppdir_ace,
1940	uint32 security_info_sent, SEC_DESC *psd)
1941	{
1942	canon_ace *file_ace = NULL;
1943	canon_ace *dir_ace = NULL;
1944
1945	*ppfile_ace = NULL;
1946	*ppdir_ace = NULL;
1947
1948	if(security_info_sent == 0) {
1949	DEBUG(0,("unpack_canon_ace: no security info sent !\n"));
1950	return False;
1951	}
1952
1953	/*
1954	* If no DACL then this is a chown only security descriptor.
1955	*/
1956
1957	if(!(security_info_sent & DACL_SECURITY_INFORMATION) \|\| !psd->dacl)
1958	return True;
1959
1960	/*
1961	* Now go through the DACL and create the canon_ace lists.
1962	*/
1963
1964	if (!create_canon_ace_lists( fsp, pst, pfile_owner_sid, pfile_grp_sid,
1965	&file_ace, &dir_ace, psd->dacl))
1966	return False;
1967
1968	if ((file_ace == NULL) && (dir_ace == NULL)) {
1969	/* W2K traverse DACL set - ignore. */
1970	return True;
1971	}
1972
1973	/*
1974	* Go through the canon_ace list and merge entries
1975	* belonging to identical users of identical allow or deny type.
1976	* We can do this as all deny entries come first, followed by
1977	* all allow entries (we have mandated this before accepting this acl).
1978	*/
1979
1980	print_canon_ace_list( "file ace - before merge", file_ace);
1981	merge_aces( &file_ace );
1982
1983	print_canon_ace_list( "dir ace - before merge", dir_ace);
1984	merge_aces( &dir_ace );
1985
1986	/*
1987	* NT ACLs are order dependent. Go through the acl lists and
1988	* process DENY entries by masking the allow entries.
1989	*/
1990
1991	print_canon_ace_list( "file ace - before deny", file_ace);
1992	process_deny_list( &file_ace);
1993
1994	print_canon_ace_list( "dir ace - before deny", dir_ace);
1995	process_deny_list( &dir_ace);
1996
1997	/*
1998	* A well formed POSIX file or default ACL has at least 3 entries, a
1999	* SMB_ACL_USER_OBJ, SMB_ACL_GROUP_OBJ, SMB_ACL_OTHER_OBJ
2000	* and optionally a mask entry. Ensure this is the case.
2001	*/
2002
2003	print_canon_ace_list( "file ace - before valid", file_ace);
2004
2005	/*
2006	* A default 3 element mode entry for a file should be r-- --- ---.
2007	* A default 3 element mode entry for a directory should be rwx --- ---.
2008	*/
2009
2010	pst->st_mode = create_default_mode(fsp, False);
2011
2012	if (!ensure_canon_entry_valid(&file_ace, fsp, pfile_owner_sid, pfile_grp_sid, pst, True)) {
2013	free_canon_ace_list(file_ace);
2014	free_canon_ace_list(dir_ace);
2015	return False;
2016	}
2017
2018	print_canon_ace_list( "dir ace - before valid", dir_ace);
2019
2020	/*
2021	* A default inheritable 3 element mode entry for a directory should be the
2022	* mode Samba will use to create a file within. Ensure user rwx bits are set if
2023	* it's a directory.
2024	*/
2025
2026	pst->st_mode = create_default_mode(fsp, True);
2027
2028	if (dir_ace && !ensure_canon_entry_valid(&dir_ace, fsp, pfile_owner_sid, pfile_grp_sid, pst, True)) {
2029	free_canon_ace_list(file_ace);
2030	free_canon_ace_list(dir_ace);
2031	return False;
2032	}
2033
2034	print_canon_ace_list( "file ace - return", file_ace);
2035	print_canon_ace_list( "dir ace - return", dir_ace);
2036
2037	*ppfile_ace = file_ace;
2038	*ppdir_ace = dir_ace;
2039	return True;
2040
2041	}
2042
2043	/******************************************************************************
2044	When returning permissions, try and fit NT display
2045	semantics if possible. Note the the canon_entries here must have been malloced.
2046	The list format should be - first entry = owner, followed by group and other user
2047	entries, last entry = other.
2048
2049	Note that this doesn't exactly match the NT semantics for an ACL. As POSIX entries
2050	are not ordered, and match on the most specific entry rather than walking a list,
2051	then a simple POSIX permission of rw-r--r-- should really map to 5 entries,
2052
2053	Entry 0: owner : deny all except read and write.
2054	Entry 1: owner : allow read and write.
2055	Entry 2: group : deny all except read.
2056	Entry 3: group : allow read.
2057	Entry 4: Everyone : allow read.
2058
2059	But NT cannot display this in their ACL editor !
2060	********************************************************************************/
2061
2062	static void arrange_posix_perms( char filename, canon_ace *pp_list_head)
2063	{
2064	canon_ace list_head = pp_list_head;
2065	canon_ace *owner_ace = NULL;
2066	canon_ace *other_ace = NULL;
2067	canon_ace *ace = NULL;
2068
2069	for (ace = list_head; ace; ace = ace->next) {
2070	if (ace->type == SMB_ACL_USER_OBJ)
2071	owner_ace = ace;
2072	else if (ace->type == SMB_ACL_OTHER) {
2073	/* Last ace - this is "other" */
2074	other_ace = ace;
2075	}
2076	}
2077
2078	if (!owner_ace \|\| !other_ace) {
2079	DEBUG(0,("arrange_posix_perms: Invalid POSIX permissions for file %s, missing owner or other.\n",
2080	filename ));
2081	return;
2082	}
2083
2084	/*
2085	* The POSIX algorithm applies to owner first, and other last,
2086	* so ensure they are arranged in this order.
2087	*/
2088
2089	if (owner_ace) {
2090	DLIST_PROMOTE(list_head, owner_ace);
2091	}
2092
2093	if (other_ace) {
2094	DLIST_DEMOTE(list_head, other_ace, canon_ace *);
2095	}
2096
2097	/* We have probably changed the head of the list. */
2098
2099	*pp_list_head = list_head;
2100	}
2101
2102	/****************************************************************************
2103	Create a linked list of canonical ACE entries.
2104	****************************************************************************/
2105
2106	static canon_ace canonicalise_acl( files_struct fsp, SMB_ACL_T posix_acl, SMB_STRUCT_STAT *psbuf,
2107	const DOM_SID powner, const DOM_SID pgroup, struct pai_val *pal, SMB_ACL_TYPE_T the_acl_type)
2108	{
2109	connection_struct *conn = fsp->conn;
2110	mode_t acl_mask = (S_IRUSR\|S_IWUSR\|S_IXUSR);
2111	canon_ace *list_head = NULL;
2112	canon_ace *ace = NULL;
2113	canon_ace *next_ace = NULL;
2114	int entry_id = SMB_ACL_FIRST_ENTRY;
2115	SMB_ACL_ENTRY_T entry;
2116	size_t ace_count;
2117
2118	while ( posix_acl && (SMB_VFS_SYS_ACL_GET_ENTRY(conn, posix_acl, entry_id, &entry) == 1)) {
2119	SMB_ACL_TAG_T tagtype;
2120	SMB_ACL_PERMSET_T permset;
2121	DOM_SID sid;
2122	posix_id unix_ug;
2123	enum ace_owner owner_type;
2124
2125	/* get_next... */
2126	if (entry_id == SMB_ACL_FIRST_ENTRY)
2127	entry_id = SMB_ACL_NEXT_ENTRY;
2128
2129	/* Is this a MASK entry ? */
2130	if (SMB_VFS_SYS_ACL_GET_TAG_TYPE(conn, entry, &tagtype) == -1)
2131	continue;
2132
2133	if (SMB_VFS_SYS_ACL_GET_PERMSET(conn, entry, &permset) == -1)
2134	continue;
2135
2136	/* Decide which SID to use based on the ACL type. */
2137	switch(tagtype) {
2138	case SMB_ACL_USER_OBJ:
2139	/* Get the SID from the owner. */
2140	sid_copy(&sid, powner);
2141	unix_ug.uid = psbuf->st_uid;
2142	owner_type = UID_ACE;
2143	break;
2144	case SMB_ACL_USER:
2145	{
2146	uid_t puid = (uid_t )SMB_VFS_SYS_ACL_GET_QUALIFIER(conn, entry);
2147	if (puid == NULL) {
2148	DEBUG(0,("canonicalise_acl: Failed to get uid.\n"));
2149	continue;
2150	}
2151	/*
2152	* A SMB_ACL_USER entry for the owner is shadowed by the
2153	* SMB_ACL_USER_OBJ entry and Windows also cannot represent
2154	* that entry, so we ignore it. We also don't create such
2155	* entries out of the blue when setting ACLs, so a get/set
2156	* cycle will drop them.
2157	*/
2158	if (the_acl_type == SMB_ACL_TYPE_ACCESS && *puid == psbuf->st_uid) {
2159	SMB_VFS_SYS_ACL_FREE_QUALIFIER(conn, (void *)puid,tagtype);
2160	continue;
2161	}
2162	uid_to_sid( &sid, *puid);
2163	unix_ug.uid = *puid;
2164	owner_type = UID_ACE;
2165	SMB_VFS_SYS_ACL_FREE_QUALIFIER(conn, (void *)puid,tagtype);
2166	break;
2167	}
2168	case SMB_ACL_GROUP_OBJ:
2169	/* Get the SID from the owning group. */
2170	sid_copy(&sid, pgroup);
2171	unix_ug.gid = psbuf->st_gid;
2172	owner_type = GID_ACE;
2173	break;
2174	case SMB_ACL_GROUP:
2175	{
2176	gid_t pgid = (gid_t )SMB_VFS_SYS_ACL_GET_QUALIFIER(conn, entry);
2177	if (pgid == NULL) {
2178	DEBUG(0,("canonicalise_acl: Failed to get gid.\n"));
2179	continue;
2180	}
2181	gid_to_sid( &sid, *pgid);
2182	unix_ug.gid = *pgid;
2183	owner_type = GID_ACE;
2184	SMB_VFS_SYS_ACL_FREE_QUALIFIER(conn, (void *)pgid,tagtype);
2185	break;
2186	}
2187	case SMB_ACL_MASK:
2188	acl_mask = convert_permset_to_mode_t(conn, permset);
2189	continue; /* Don't count the mask as an entry. */
2190	case SMB_ACL_OTHER:
2191	/* Use the Everyone SID */
2192	sid = global_sid_World;
2193	unix_ug.world = -1;
2194	owner_type = WORLD_ACE;
2195	break;
2196	default:
2197	DEBUG(0,("canonicalise_acl: Unknown tagtype %u\n", (unsigned int)tagtype));
2198	continue;
2199	}
2200
2201	/*
2202	* Add this entry to the list.
2203	*/
2204
2205	if ((ace = SMB_MALLOC_P(canon_ace)) == NULL)
2206	goto fail;
2207
2208	ZERO_STRUCTP(ace);
2209	ace->type = tagtype;
2210	ace->perms = convert_permset_to_mode_t(conn, permset);
2211	ace->attr = ALLOW_ACE;
2212	ace->trustee = sid;
2213	ace->unix_ug = unix_ug;
2214	ace->owner_type = owner_type;
2215	ace->inherited = get_inherited_flag(pal, ace, (the_acl_type == SMB_ACL_TYPE_DEFAULT));
2216
2217	DLIST_ADD(list_head, ace);
2218	}
2219
2220	/*
2221	* This next call will ensure we have at least a user/group/world set.
2222	*/
2223
2224	if (!ensure_canon_entry_valid(&list_head, fsp, powner, pgroup, psbuf, False))
2225	goto fail;
2226
2227	/*
2228	* Now go through the list, masking the permissions with the
2229	* acl_mask. Ensure all DENY Entries are at the start of the list.
2230	*/
2231
2232	DEBUG(10,("canonicalise_acl: %s ace entries before arrange :\n", the_acl_type == SMB_ACL_TYPE_ACCESS ? "Access" : "Default" ));
2233
2234	for ( ace_count = 0, ace = list_head; ace; ace = next_ace, ace_count++) {
2235	next_ace = ace->next;
2236
2237	/* Masks are only applied to entries other than USER_OBJ and OTHER. */
2238	if (ace->type != SMB_ACL_OTHER && ace->type != SMB_ACL_USER_OBJ)
2239	ace->perms &= acl_mask;
2240
2241	if (ace->perms == 0) {
2242	DLIST_PROMOTE(list_head, ace);
2243	}
2244
2245	if( DEBUGLVL( 10 ) ) {
2246	print_canon_ace(ace, ace_count);
2247	}
2248	}
2249
2250	arrange_posix_perms(fsp->fsp_name,&list_head );
2251
2252	print_canon_ace_list( "canonicalise_acl: ace entries after arrange", list_head );
2253
2254	return list_head;
2255
2256	fail:
2257
2258	free_canon_ace_list(list_head);
2259	return NULL;
2260	}
2261
2262	/****************************************************************************
2263	Check if the current user group list contains a given group.
2264	****************************************************************************/
2265
2266	static BOOL current_user_in_group(gid_t gid)
2267	{
2268	int i;
2269
2270	for (i = 0; i < current_user.ut.ngroups; i++) {
2271	if (current_user.ut.groups[i] == gid) {
2272	return True;
2273	}
2274	}
2275
2276	return False;
2277	}
2278
2279	/****************************************************************************
2280	Should we override a deny ? Check deprecated 'acl group control'
2281	and 'dos filemode'
2282	****************************************************************************/
2283
2284	static BOOL acl_group_override(connection_struct *conn, gid_t prim_gid)
2285	{
2286	if ( (errno == EACCES \|\| errno == EPERM)
2287	&& (lp_acl_group_control(SNUM(conn)) \|\| lp_dos_filemode(SNUM(conn)))
2288	&& current_user_in_group(prim_gid))
2289	{
2290	return True;
2291	}
2292
2293	return False;
2294	}
2295
2296	/****************************************************************************
2297	Attempt to apply an ACL to a file or directory.
2298	****************************************************************************/
2299
2300	static BOOL set_canon_ace_list(files_struct fsp, canon_ace the_ace, BOOL default_ace, gid_t prim_gid, BOOL *pacl_set_support)
2301	{
2302	connection_struct *conn = fsp->conn;
2303	BOOL ret = False;
2304	SMB_ACL_T the_acl = SMB_VFS_SYS_ACL_INIT(conn, (int)count_canon_ace_list(the_ace) + 1);
2305	canon_ace *p_ace;
2306	int i;
2307	SMB_ACL_ENTRY_T mask_entry;
2308	BOOL got_mask_entry = False;
2309	SMB_ACL_PERMSET_T mask_permset;
2310	SMB_ACL_TYPE_T the_acl_type = (default_ace ? SMB_ACL_TYPE_DEFAULT : SMB_ACL_TYPE_ACCESS);
2311	BOOL needs_mask = False;
2312	mode_t mask_perms = 0;
2313
2314	#if defined(POSIX_ACL_NEEDS_MASK)
2315	/* HP-UX always wants to have a mask (called "class" there). */
2316	needs_mask = True;
2317	#endif
2318
2319	if (the_acl == NULL) {
2320
2321	if (!no_acl_syscall_error(errno)) {
2322	/*
2323	* Only print this error message if we have some kind of ACL
2324	* support that's not working. Otherwise we would always get this.
2325	*/
2326	DEBUG(0,("set_canon_ace_list: Unable to init %s ACL. (%s)\n",
2327	default_ace ? "default" : "file", strerror(errno) ));
2328	}
2329	*pacl_set_support = False;
2330	return False;
2331	}
2332
2333	if( DEBUGLVL( 10 )) {
2334	dbgtext("set_canon_ace_list: setting ACL:\n");
2335	for (i = 0, p_ace = the_ace; p_ace; p_ace = p_ace->next, i++ ) {
2336	print_canon_ace( p_ace, i);
2337	}
2338	}
2339
2340	for (i = 0, p_ace = the_ace; p_ace; p_ace = p_ace->next, i++ ) {
2341	SMB_ACL_ENTRY_T the_entry;
2342	SMB_ACL_PERMSET_T the_permset;
2343
2344	/*
2345	* ACLs only "need" an ACL_MASK entry if there are any named user or
2346	* named group entries. But if there is an ACL_MASK entry, it applies
2347	* to ACL_USER, ACL_GROUP, and ACL_GROUP_OBJ entries. Set the mask
2348	* so that it doesn't deny (i.e., mask off) any permissions.
2349	*/
2350
2351	if (p_ace->type == SMB_ACL_USER \|\| p_ace->type == SMB_ACL_GROUP) {
2352	needs_mask = True;
2353	mask_perms \|= p_ace->perms;
2354	} else if (p_ace->type == SMB_ACL_GROUP_OBJ) {
2355	mask_perms \|= p_ace->perms;
2356	}
2357
2358	/*
2359	* Get the entry for this ACE.
2360	*/
2361
2362	if (SMB_VFS_SYS_ACL_CREATE_ENTRY(conn, &the_acl, &the_entry) == -1) {
2363	DEBUG(0,("set_canon_ace_list: Failed to create entry %d. (%s)\n",
2364	i, strerror(errno) ));
2365	goto fail;
2366	}
2367
2368	if (p_ace->type == SMB_ACL_MASK) {
2369	mask_entry = the_entry;
2370	got_mask_entry = True;
2371	}
2372
2373	/*
2374	* Ok - we now know the ACL calls should be working, don't
2375	* allow fallback to chmod.
2376	*/
2377
2378	*pacl_set_support = True;
2379
2380	/*
2381	* Initialise the entry from the canon_ace.
2382	*/
2383
2384	/*
2385	* First tell the entry what type of ACE this is.
2386	*/
2387
2388	if (SMB_VFS_SYS_ACL_SET_TAG_TYPE(conn, the_entry, p_ace->type) == -1) {
2389	DEBUG(0,("set_canon_ace_list: Failed to set tag type on entry %d. (%s)\n",
2390	i, strerror(errno) ));
2391	goto fail;
2392	}
2393
2394	/*
2395	* Only set the qualifier (user or group id) if the entry is a user
2396	* or group id ACE.
2397	*/
2398
2399	if ((p_ace->type == SMB_ACL_USER) \|\| (p_ace->type == SMB_ACL_GROUP)) {
2400	if (SMB_VFS_SYS_ACL_SET_QUALIFIER(conn, the_entry,(void *)&p_ace->unix_ug.uid) == -1) {
2401	DEBUG(0,("set_canon_ace_list: Failed to set qualifier on entry %d. (%s)\n",
2402	i, strerror(errno) ));
2403	goto fail;
2404	}
2405	}
2406
2407	/*
2408	* Convert the mode_t perms in the canon_ace to a POSIX permset.
2409	*/
2410
2411	if (SMB_VFS_SYS_ACL_GET_PERMSET(conn, the_entry, &the_permset) == -1) {
2412	DEBUG(0,("set_canon_ace_list: Failed to get permset on entry %d. (%s)\n",
2413	i, strerror(errno) ));
2414	goto fail;
2415	}
2416
2417	if (map_acl_perms_to_permset(conn, p_ace->perms, &the_permset) == -1) {
2418	DEBUG(0,("set_canon_ace_list: Failed to create permset for mode (%u) on entry %d. (%s)\n",
2419	(unsigned int)p_ace->perms, i, strerror(errno) ));
2420	goto fail;
2421	}
2422
2423	/*
2424	* ..and apply them to the entry.
2425	*/
2426
2427	if (SMB_VFS_SYS_ACL_SET_PERMSET(conn, the_entry, the_permset) == -1) {
2428	DEBUG(0,("set_canon_ace_list: Failed to add permset on entry %d. (%s)\n",
2429	i, strerror(errno) ));
2430	goto fail;
2431	}
2432
2433	if( DEBUGLVL( 10 ))
2434	print_canon_ace( p_ace, i);
2435
2436	}
2437
2438	if (needs_mask && !got_mask_entry) {
2439	if (SMB_VFS_SYS_ACL_CREATE_ENTRY(conn, &the_acl, &mask_entry) == -1) {
2440	DEBUG(0,("set_canon_ace_list: Failed to create mask entry. (%s)\n", strerror(errno) ));
2441	goto fail;
2442	}
2443
2444	if (SMB_VFS_SYS_ACL_SET_TAG_TYPE(conn, mask_entry, SMB_ACL_MASK) == -1) {
2445	DEBUG(0,("set_canon_ace_list: Failed to set tag type on mask entry. (%s)\n",strerror(errno) ));
2446	goto fail;
2447	}
2448
2449	if (SMB_VFS_SYS_ACL_GET_PERMSET(conn, mask_entry, &mask_permset) == -1) {
2450	DEBUG(0,("set_canon_ace_list: Failed to get mask permset. (%s)\n", strerror(errno) ));
2451	goto fail;
2452	}
2453
2454	if (map_acl_perms_to_permset(conn, S_IRUSR\|S_IWUSR\|S_IXUSR, &mask_permset) == -1) {
2455	DEBUG(0,("set_canon_ace_list: Failed to create mask permset. (%s)\n", strerror(errno) ));
2456	goto fail;
2457	}
2458
2459	if (SMB_VFS_SYS_ACL_SET_PERMSET(conn, mask_entry, mask_permset) == -1) {
2460	DEBUG(0,("set_canon_ace_list: Failed to add mask permset. (%s)\n", strerror(errno) ));
2461	goto fail;
2462	}
2463	}
2464
2465	/*
2466	* Finally apply it to the file or directory.
2467	*/
2468
2469	if(default_ace \|\| fsp->is_directory \|\| fsp->fh->fd == -1) {
2470	if (SMB_VFS_SYS_ACL_SET_FILE(conn, fsp->fsp_name, the_acl_type, the_acl) == -1) {
2471	/*
2472	* Some systems allow all the above calls and only fail with no ACL support
2473	* when attempting to apply the acl. HPUX with HFS is an example of this. JRA.
2474	*/
2475	if (no_acl_syscall_error(errno)) {
2476	*pacl_set_support = False;
2477	}
2478
2479	if (acl_group_override(conn, prim_gid)) {
2480	int sret;
2481
2482	DEBUG(5,("set_canon_ace_list: acl group control on and current user in file %s primary group.\n",
2483	fsp->fsp_name ));
2484
2485	become_root();
2486	sret = SMB_VFS_SYS_ACL_SET_FILE(conn, fsp->fsp_name, the_acl_type, the_acl);
2487	unbecome_root();
2488	if (sret == 0) {
2489	ret = True;
2490	}
2491	}
2492
2493	if (ret == False) {
2494	DEBUG(2,("set_canon_ace_list: sys_acl_set_file type %s failed for file %s (%s).\n",
2495	the_acl_type == SMB_ACL_TYPE_DEFAULT ? "directory default" : "file",
2496	fsp->fsp_name, strerror(errno) ));
2497	goto fail;
2498	}
2499	}
2500	} else {
2501	if (SMB_VFS_SYS_ACL_SET_FD(fsp, fsp->fh->fd, the_acl) == -1) {
2502	/*
2503	* Some systems allow all the above calls and only fail with no ACL support
2504	* when attempting to apply the acl. HPUX with HFS is an example of this. JRA.
2505	*/
2506	if (no_acl_syscall_error(errno)) {
2507	*pacl_set_support = False;
2508	}
2509
2510	if (acl_group_override(conn, prim_gid)) {
2511	int sret;
2512
2513	DEBUG(5,("set_canon_ace_list: acl group control on and current user in file %s primary group.\n",
2514	fsp->fsp_name ));
2515
2516	become_root();
2517	sret = SMB_VFS_SYS_ACL_SET_FD(fsp, fsp->fh->fd, the_acl);
2518	unbecome_root();
2519	if (sret == 0) {
2520	ret = True;
2521	}
2522	}
2523
2524	if (ret == False) {
2525	DEBUG(2,("set_canon_ace_list: sys_acl_set_file failed for file %s (%s).\n",
2526	fsp->fsp_name, strerror(errno) ));
2527	goto fail;
2528	}
2529	}
2530	}
2531
2532	ret = True;
2533
2534	fail:
2535
2536	if (the_acl != NULL) {
2537	SMB_VFS_SYS_ACL_FREE_ACL(conn, the_acl);
2538	}
2539
2540	return ret;
2541	}
2542
2543	/****************************************************************************
2544	Find a particular canon_ace entry.
2545	****************************************************************************/
2546
2547	static struct canon_ace canon_ace_entry_for(struct canon_ace list, SMB_ACL_TAG_T type, posix_id *id)
2548	{
2549	while (list) {
2550	if (list->type == type && ((type != SMB_ACL_USER && type != SMB_ACL_GROUP) \|\|
2551	(type == SMB_ACL_USER && id && id->uid == list->unix_ug.uid) \|\|
2552	(type == SMB_ACL_GROUP && id && id->gid == list->unix_ug.gid)))
2553	break;
2554	list = list->next;
2555	}
2556	return list;
2557	}
2558
2559	/****************************************************************************
2560
2561	****************************************************************************/
2562
2563	SMB_ACL_T free_empty_sys_acl(connection_struct *conn, SMB_ACL_T the_acl)
2564	{
2565	SMB_ACL_ENTRY_T entry;
2566
2567	if (!the_acl)
2568	return NULL;
2569	if (SMB_VFS_SYS_ACL_GET_ENTRY(conn, the_acl, SMB_ACL_FIRST_ENTRY, &entry) != 1) {
2570	SMB_VFS_SYS_ACL_FREE_ACL(conn, the_acl);
2571	return NULL;
2572	}
2573	return the_acl;
2574	}
2575
2576	/****************************************************************************
2577	Convert a canon_ace to a generic 3 element permission - if possible.
2578	****************************************************************************/
2579
2580	#define MAP_PERM(p,mask,result) (((p) & (mask)) ? (result) : 0 )
2581
2582	static BOOL convert_canon_ace_to_posix_perms( files_struct fsp, canon_ace file_ace_list, mode_t *posix_perms)
2583	{
2584	int snum = SNUM(fsp->conn);
2585	size_t ace_count = count_canon_ace_list(file_ace_list);
2586	canon_ace *ace_p;
2587	canon_ace *owner_ace = NULL;
2588	canon_ace *group_ace = NULL;
2589	canon_ace *other_ace = NULL;
2590	mode_t and_bits;
2591	mode_t or_bits;
2592
2593	if (ace_count != 3) {
2594	DEBUG(3,("convert_canon_ace_to_posix_perms: Too many ACE entries for file %s to convert to \
2595	posix perms.\n", fsp->fsp_name ));
2596	return False;
2597	}
2598
2599	for (ace_p = file_ace_list; ace_p; ace_p = ace_p->next) {
2600	if (ace_p->owner_type == UID_ACE)
2601	owner_ace = ace_p;
2602	else if (ace_p->owner_type == GID_ACE)
2603	group_ace = ace_p;
2604	else if (ace_p->owner_type == WORLD_ACE)
2605	other_ace = ace_p;
2606	}
2607
2608	if (!owner_ace \|\| !group_ace \|\| !other_ace) {
2609	DEBUG(3,("convert_canon_ace_to_posix_perms: Can't get standard entries for file %s.\n",
2610	fsp->fsp_name ));
2611	return False;
2612	}
2613
2614	*posix_perms = (mode_t)0;
2615
2616	*posix_perms \|= owner_ace->perms;
2617	*posix_perms \|= MAP_PERM(group_ace->perms, S_IRUSR, S_IRGRP);
2618	*posix_perms \|= MAP_PERM(group_ace->perms, S_IWUSR, S_IWGRP);
2619	*posix_perms \|= MAP_PERM(group_ace->perms, S_IXUSR, S_IXGRP);
2620	*posix_perms \|= MAP_PERM(other_ace->perms, S_IRUSR, S_IROTH);
2621	*posix_perms \|= MAP_PERM(other_ace->perms, S_IWUSR, S_IWOTH);
2622	*posix_perms \|= MAP_PERM(other_ace->perms, S_IXUSR, S_IXOTH);
2623
2624	/* The owner must have at least read access. */
2625
2626	*posix_perms \|= S_IRUSR;
2627	if (fsp->is_directory)
2628	*posix_perms \|= (S_IWUSR\|S_IXUSR);
2629
2630	/* If requested apply the masks. */
2631
2632	/* Get the initial bits to apply. */
2633
2634	if (fsp->is_directory) {
2635	and_bits = lp_dir_security_mask(snum);
2636	or_bits = lp_force_dir_security_mode(snum);
2637	} else {
2638	and_bits = lp_security_mask(snum);
2639	or_bits = lp_force_security_mode(snum);
2640	}
2641
2642	posix_perms = (((posix_perms) & and_bits)\|or_bits);
2643
2644	DEBUG(10,("convert_canon_ace_to_posix_perms: converted u=%o,g=%o,w=%o to perm=0%o for file %s.\n",
2645	(int)owner_ace->perms, (int)group_ace->perms, (int)other_ace->perms, (int)*posix_perms,
2646	fsp->fsp_name ));
2647
2648	return True;
2649	}
2650
2651	/****************************************************************************
2652	Incoming NT ACLs on a directory can be split into a default POSIX acl (CI\|OI\|IO) and
2653	a normal POSIX acl. Win2k needs these split acls re-merging into one ACL
2654	with CI\|OI set so it is inherited and also applies to the directory.
2655	Based on code from "Jim McDonough" <jmcd@us.ibm.com>.
2656	****************************************************************************/
2657
2658	static size_t merge_default_aces( SEC_ACE *nt_ace_list, size_t num_aces)
2659	{
2660	size_t i, j;
2661
2662	for (i = 0; i < num_aces; i++) {
2663	for (j = i+1; j < num_aces; j++) {
2664	uint32 i_flags_ni = (nt_ace_list[i].flags & ~SEC_ACE_FLAG_INHERITED_ACE);
2665	uint32 j_flags_ni = (nt_ace_list[j].flags & ~SEC_ACE_FLAG_INHERITED_ACE);
2666	BOOL i_inh = (nt_ace_list[i].flags & SEC_ACE_FLAG_INHERITED_ACE) ? True : False;
2667	BOOL j_inh = (nt_ace_list[j].flags & SEC_ACE_FLAG_INHERITED_ACE) ? True : False;
2668
2669	/* We know the lower number ACE's are file entries. */
2670	if ((nt_ace_list[i].type == nt_ace_list[j].type) &&
2671	(nt_ace_list[i].size == nt_ace_list[j].size) &&
2672	(nt_ace_list[i].access_mask == nt_ace_list[j].access_mask) &&
2673	sid_equal(&nt_ace_list[i].trustee, &nt_ace_list[j].trustee) &&
2674	(i_inh == j_inh) &&
2675	(i_flags_ni == 0) &&
2676	(j_flags_ni == (SEC_ACE_FLAG_OBJECT_INHERIT\|
2677	SEC_ACE_FLAG_CONTAINER_INHERIT\|
2678	SEC_ACE_FLAG_INHERIT_ONLY))) {
2679	/*
2680	* W2K wants to have access allowed zero access ACE's
2681	* at the end of the list. If the mask is zero, merge
2682	* the non-inherited ACE onto the inherited ACE.
2683	*/
2684
2685	if (nt_ace_list[i].access_mask == 0) {
2686	nt_ace_list[j].flags = SEC_ACE_FLAG_OBJECT_INHERIT\|SEC_ACE_FLAG_CONTAINER_INHERIT\|
2687	(i_inh ? SEC_ACE_FLAG_INHERITED_ACE : 0);
2688	if (num_aces - i - 1 > 0)
2689	memmove(&nt_ace_list[i], &nt_ace_list[i+1], (num_aces-i-1) *
2690	sizeof(SEC_ACE));
2691
2692	DEBUG(10,("merge_default_aces: Merging zero access ACE %u onto ACE %u.\n",
2693	(unsigned int)i, (unsigned int)j ));
2694	} else {
2695	/*
2696	* These are identical except for the flags.
2697	* Merge the inherited ACE onto the non-inherited ACE.
2698	*/
2699
2700	nt_ace_list[i].flags = SEC_ACE_FLAG_OBJECT_INHERIT\|SEC_ACE_FLAG_CONTAINER_INHERIT\|
2701	(i_inh ? SEC_ACE_FLAG_INHERITED_ACE : 0);
2702	if (num_aces - j - 1 > 0)
2703	memmove(&nt_ace_list[j], &nt_ace_list[j+1], (num_aces-j-1) *
2704	sizeof(SEC_ACE));
2705
2706	DEBUG(10,("merge_default_aces: Merging ACE %u onto ACE %u.\n",
2707	(unsigned int)j, (unsigned int)i ));
2708	}
2709	num_aces--;
2710	break;
2711	}
2712	}
2713	}
2714
2715	return num_aces;
2716	}
2717	/****************************************************************************
2718	Reply to query a security descriptor from an fsp. If it succeeds it allocates
2719	the space for the return elements and returns the size needed to return the
2720	security descriptor. This should be the only external function needed for
2721	the UNIX style get ACL.
2722	****************************************************************************/
2723
2724	size_t get_nt_acl(files_struct fsp, uint32 security_info, SEC_DESC *ppdesc)
2725	{
2726	connection_struct *conn = fsp->conn;
2727	SMB_STRUCT_STAT sbuf;
2728	SEC_ACE *nt_ace_list = NULL;
2729	DOM_SID owner_sid;
2730	DOM_SID group_sid;
2731	size_t sd_size = 0;
2732	SEC_ACL *psa = NULL;
2733	size_t num_acls = 0;
2734	size_t num_def_acls = 0;
2735	size_t num_aces = 0;
2736	SMB_ACL_T posix_acl = NULL;
2737	SMB_ACL_T def_acl = NULL;
2738	canon_ace *file_ace = NULL;
2739	canon_ace *dir_ace = NULL;
2740	size_t num_profile_acls = 0;
2741	struct pai_val *pal = NULL;
2742	SEC_DESC *psd = NULL;
2743
2744	*ppdesc = NULL;
2745
2746	DEBUG(10,("get_nt_acl: called for file %s\n", fsp->fsp_name ));
2747
2748	if(fsp->is_directory \|\| fsp->fh->fd == -1) {
2749
2750	/* Get the stat struct for the owner info. */
2751	if(SMB_VFS_STAT(fsp->conn,fsp->fsp_name, &sbuf) != 0) {
2752	return 0;
2753	}
2754	/*
2755	* Get the ACL from the path.
2756	*/
2757
2758	posix_acl = SMB_VFS_SYS_ACL_GET_FILE(conn, fsp->fsp_name, SMB_ACL_TYPE_ACCESS);
2759
2760	/*
2761	* If it's a directory get the default POSIX ACL.
2762	*/
2763
2764	if(fsp->is_directory) {
2765	def_acl = SMB_VFS_SYS_ACL_GET_FILE(conn, fsp->fsp_name, SMB_ACL_TYPE_DEFAULT);
2766	def_acl = free_empty_sys_acl(conn, def_acl);
2767	}
2768
2769	} else {
2770
2771	/* Get the stat struct for the owner info. */
2772	if(SMB_VFS_FSTAT(fsp,fsp->fh->fd,&sbuf) != 0) {
2773	return 0;
2774	}
2775	/*
2776	* Get the ACL from the fd.
2777	*/
2778	posix_acl = SMB_VFS_SYS_ACL_GET_FD(fsp, fsp->fh->fd);
2779	}
2780
2781	DEBUG(5,("get_nt_acl : file ACL %s, directory ACL %s\n",
2782	posix_acl ? "present" : "absent",
2783	def_acl ? "present" : "absent" ));
2784
2785	pal = load_inherited_info(fsp);
2786
2787	/*
2788	* Get the owner, group and world SIDs.
2789	*/
2790
2791	if (lp_profile_acls(SNUM(conn))) {
2792	/* For WXP SP1 the owner must be administrators. */
2793	sid_copy(&owner_sid, &global_sid_Builtin_Administrators);
2794	sid_copy(&group_sid, &global_sid_Builtin_Users);
2795	num_profile_acls = 2;
2796	} else {
2797	create_file_sids(&sbuf, &owner_sid, &group_sid);
2798	}
2799
2800	if ((security_info & DACL_SECURITY_INFORMATION) && !(security_info & PROTECTED_DACL_SECURITY_INFORMATION)) {
2801
2802	/*
2803	* In the optimum case Creator Owner and Creator Group would be used for
2804	* the ACL_USER_OBJ and ACL_GROUP_OBJ entries, respectively, but this
2805	* would lead to usability problems under Windows: The Creator entries
2806	* are only available in browse lists of directories and not for files;
2807	* additionally the identity of the owning group couldn't be determined.
2808	* We therefore use those identities only for Default ACLs.
2809	*/
2810
2811	/* Create the canon_ace lists. */
2812	file_ace = canonicalise_acl( fsp, posix_acl, &sbuf, &owner_sid, &group_sid, pal, SMB_ACL_TYPE_ACCESS );
2813
2814	/* We must have some ACLS. */
2815
2816	if (count_canon_ace_list(file_ace) == 0) {
2817	DEBUG(0,("get_nt_acl : No ACLs on file (%s) !\n", fsp->fsp_name ));
2818	goto done;
2819	}
2820
2821	if (fsp->is_directory && def_acl) {
2822	dir_ace = canonicalise_acl(fsp, def_acl, &sbuf,
2823	&global_sid_Creator_Owner,
2824	&global_sid_Creator_Group, pal, SMB_ACL_TYPE_DEFAULT );
2825	}
2826
2827	/*
2828	* Create the NT ACE list from the canonical ace lists.
2829	*/
2830
2831	{
2832	canon_ace *ace;
2833	int nt_acl_type;
2834	int i;
2835
2836	if (nt4_compatible_acls() && dir_ace) {
2837	/*
2838	* NT 4 chokes if an ACL contains an INHERIT_ONLY entry
2839	* but no non-INHERIT_ONLY entry for one SID. So we only
2840	* remove entries from the Access ACL if the
2841	* corresponding Default ACL entries have also been
2842	* removed. ACEs for CREATOR-OWNER and CREATOR-GROUP
2843	* are exceptions. We can do nothing
2844	* intelligent if the Default ACL contains entries that
2845	* are not also contained in the Access ACL, so this
2846	* case will still fail under NT 4.
2847	*/
2848
2849	ace = canon_ace_entry_for(dir_ace, SMB_ACL_OTHER, NULL);
2850	if (ace && !ace->perms) {
2851	DLIST_REMOVE(dir_ace, ace);
2852	SAFE_FREE(ace);
2853
2854	ace = canon_ace_entry_for(file_ace, SMB_ACL_OTHER, NULL);
2855	if (ace && !ace->perms) {
2856	DLIST_REMOVE(file_ace, ace);
2857	SAFE_FREE(ace);
2858	}
2859	}
2860
2861	/*
2862	* WinNT doesn't usually have Creator Group
2863	* in browse lists, so we send this entry to
2864	* WinNT even if it contains no relevant
2865	* permissions. Once we can add
2866	* Creator Group to browse lists we can
2867	* re-enable this.
2868	*/
2869
2870	#if 0
2871	ace = canon_ace_entry_for(dir_ace, SMB_ACL_GROUP_OBJ, NULL);
2872	if (ace && !ace->perms) {
2873	DLIST_REMOVE(dir_ace, ace);
2874	SAFE_FREE(ace);
2875	}
2876	#endif
2877
2878	ace = canon_ace_entry_for(file_ace, SMB_ACL_GROUP_OBJ, NULL);
2879	if (ace && !ace->perms) {
2880	DLIST_REMOVE(file_ace, ace);
2881	SAFE_FREE(ace);
2882	}
2883	}
2884
2885	num_acls = count_canon_ace_list(file_ace);
2886	num_def_acls = count_canon_ace_list(dir_ace);
2887
2888	/* Allocate the ace list. */
2889	if ((nt_ace_list = SMB_MALLOC_ARRAY(SEC_ACE,num_acls + num_profile_acls + num_def_acls)) == NULL) {
2890	DEBUG(0,("get_nt_acl: Unable to malloc space for nt_ace_list.\n"));
2891	goto done;
2892	}
2893
2894	memset(nt_ace_list, '\0', (num_acls + num_def_acls) * sizeof(SEC_ACE) );
2895
2896	/*
2897	* Create the NT ACE list from the canonical ace lists.
2898	*/
2899
2900	ace = file_ace;
2901
2902	for (i = 0; i < num_acls; i++, ace = ace->next) {
2903	SEC_ACCESS acc;
2904
2905	acc = map_canon_ace_perms(SNUM(conn),
2906	&nt_acl_type,
2907	ace->perms,
2908	fsp->is_directory);
2909	init_sec_ace(&nt_ace_list[num_aces++],
2910	&ace->trustee,
2911	nt_acl_type,
2912	acc,
2913	ace->inherited ?
2914	SEC_ACE_FLAG_INHERITED_ACE : 0);
2915	}
2916
2917	/* The User must have access to a profile share - even
2918	* if we can't map the SID. */
2919	if (lp_profile_acls(SNUM(conn))) {
2920	SEC_ACCESS acc;
2921
2922	init_sec_access(&acc,FILE_GENERIC_ALL);
2923	init_sec_ace(&nt_ace_list[num_aces++],
2924	&global_sid_Builtin_Users,
2925	SEC_ACE_TYPE_ACCESS_ALLOWED,
2926	acc, 0);
2927	}
2928
2929	ace = dir_ace;
2930
2931	for (i = 0; i < num_def_acls; i++, ace = ace->next) {
2932	SEC_ACCESS acc;
2933
2934	acc = map_canon_ace_perms(SNUM(conn),
2935	&nt_acl_type,
2936	ace->perms,
2937	fsp->is_directory);
2938	init_sec_ace(&nt_ace_list[num_aces++],
2939	&ace->trustee,
2940	nt_acl_type,
2941	acc,
2942	SEC_ACE_FLAG_OBJECT_INHERIT\|
2943	SEC_ACE_FLAG_CONTAINER_INHERIT\|
2944	SEC_ACE_FLAG_INHERIT_ONLY\|
2945	(ace->inherited ?
2946	SEC_ACE_FLAG_INHERITED_ACE : 0));
2947	}
2948
2949	/* The User must have access to a profile share - even
2950	* if we can't map the SID. */
2951	if (lp_profile_acls(SNUM(conn))) {
2952	SEC_ACCESS acc;
2953
2954	init_sec_access(&acc,FILE_GENERIC_ALL);
2955	init_sec_ace(&nt_ace_list[num_aces++], &global_sid_Builtin_Users, SEC_ACE_TYPE_ACCESS_ALLOWED, acc,
2956	SEC_ACE_FLAG_OBJECT_INHERIT\|SEC_ACE_FLAG_CONTAINER_INHERIT\|
2957	SEC_ACE_FLAG_INHERIT_ONLY\|0);
2958	}
2959
2960	/*
2961	* Merge POSIX default ACLs and normal ACLs into one NT ACE.
2962	* Win2K needs this to get the inheritance correct when replacing ACLs
2963	* on a directory tree. Based on work by Jim @ IBM.
2964	*/
2965
2966	num_aces = merge_default_aces(nt_ace_list, num_aces);
2967
2968	}
2969
2970	if (num_aces) {
2971	if((psa = make_sec_acl( main_loop_talloc_get(), NT4_ACL_REVISION, num_aces, nt_ace_list)) == NULL) {
2972	DEBUG(0,("get_nt_acl: Unable to malloc space for acl.\n"));
2973	goto done;
2974	}
2975	}
2976	} /* security_info & DACL_SECURITY_INFORMATION */
2977
2978	psd = make_standard_sec_desc( main_loop_talloc_get(),
2979	(security_info & OWNER_SECURITY_INFORMATION) ? &owner_sid : NULL,
2980	(security_info & GROUP_SECURITY_INFORMATION) ? &group_sid : NULL,
2981	psa,
2982	&sd_size);
2983
2984	if(!psd) {
2985	DEBUG(0,("get_nt_acl: Unable to malloc space for security descriptor.\n"));
2986	sd_size = 0;
2987	goto done;
2988	}
2989
2990	/*
2991	* Windows 2000: The DACL_PROTECTED flag in the security
2992	* descriptor marks the ACL as non-inheriting, i.e., no
2993	* ACEs from higher level directories propagate to this
2994	* ACL. In the POSIX ACL model permissions are only
2995	* inherited at file create time, so ACLs never contain
2996	* any ACEs that are inherited dynamically. The DACL_PROTECTED
2997	* flag doesn't seem to bother Windows NT.
2998	* Always set this if map acl inherit is turned off.
2999	*/
3000	if (get_protected_flag(pal) \|\| !lp_map_acl_inherit(SNUM(conn))) {
3001	psd->type \|= SE_DESC_DACL_PROTECTED;
3002	}
3003
3004	if (psd->dacl) {
3005	dacl_sort_into_canonical_order(psd->dacl->aces, (unsigned int)psd->dacl->num_aces);
3006	}
3007
3008	*ppdesc = psd;
3009
3010	done:
3011
3012	if (posix_acl) {
3013	SMB_VFS_SYS_ACL_FREE_ACL(conn, posix_acl);
3014	}
3015	if (def_acl) {
3016	SMB_VFS_SYS_ACL_FREE_ACL(conn, def_acl);
3017	}
3018	free_canon_ace_list(file_ace);
3019	free_canon_ace_list(dir_ace);
3020	free_inherited_info(pal);
3021	SAFE_FREE(nt_ace_list);
3022
3023	return sd_size;
3024	}
3025
3026	/****************************************************************************
3027	Try to chown a file. We will be able to chown it under the following conditions.
3028
3029	1) If we have root privileges, then it will just work.
3030	2) If we have SeTakeOwnershipPrivilege we can change the user to the current user.
3031	3) If we have SeRestorePrivilege we can change the user to any other user.
3032	4) If we have write permission to the file and dos_filemodes is set
3033	then allow chown to the currently authenticated user.
3034	****************************************************************************/
3035
3036	int try_chown(connection_struct conn, const char fname, uid_t uid, gid_t gid)
3037	{
3038	int ret;
3039	files_struct *fsp;
3040	SMB_STRUCT_STAT st;
3041
3042	if(!CAN_WRITE(conn)) {
3043	return -1;
3044	}
3045
3046	/* Case (1). */
3047	/* try the direct way first */
3048	ret = SMB_VFS_CHOWN(conn, fname, uid, gid);
3049	if (ret == 0)
3050	return 0;
3051
3052	/* Case (2) / (3) */
3053	if (lp_enable_privileges()) {
3054
3055	BOOL has_take_ownership_priv = user_has_privileges(current_user.nt_user_token,
3056	&se_take_ownership);
3057	BOOL has_restore_priv = user_has_privileges(current_user.nt_user_token,
3058	&se_restore);
3059
3060	/* Case (2) */
3061	if ( ( has_take_ownership_priv && ( uid == current_user.ut.uid ) ) \|\|
3062	/* Case (3) */
3063	( has_restore_priv ) ) {
3064
3065	become_root();
3066	/* Keep the current file gid the same - take ownership doesn't imply group change. */
3067	ret = SMB_VFS_CHOWN(conn, fname, uid, (gid_t)-1);
3068	unbecome_root();
3069	return ret;
3070	}
3071	}
3072
3073	/* Case (4). */
3074	if (!lp_dos_filemode(SNUM(conn))) {
3075	return -1;
3076	}
3077
3078	if (SMB_VFS_STAT(conn,fname,&st)) {
3079	return -1;
3080	}
3081
3082	if (!NT_STATUS_IS_OK(open_file_fchmod(conn,fname,&st,&fsp))) {
3083	return -1;
3084	}
3085
3086	/* only allow chown to the current user. This is more secure,
3087	and also copes with the case where the SID in a take ownership ACL is
3088	a local SID on the users workstation
3089	*/
3090	uid = current_user.ut.uid;
3091
3092	become_root();
3093	/* Keep the current file gid the same. */
3094	ret = SMB_VFS_FCHOWN(fsp, fsp->fh->fd, uid, (gid_t)-1);
3095	unbecome_root();
3096
3097	close_file_fchmod(fsp);
3098
3099	return ret;
3100	}
3101
3102	static NTSTATUS append_ugw_ace(files_struct *fsp,
3103	SMB_STRUCT_STAT *psbuf,
3104	mode_t unx_mode,
3105	int ugw,
3106	SEC_ACE *se)
3107	{
3108	mode_t perms;
3109	SEC_ACCESS acc;
3110	int nt_acl_type; /* Tru64 has "acl_type" as a macro.. */
3111	DOM_SID trustee;
3112
3113	switch (ugw) {
3114	case S_IRUSR:
3115	perms = unix_perms_to_acl_perms(unx_mode,
3116	S_IRUSR,
3117	S_IWUSR,
3118	S_IXUSR);
3119	uid_to_sid(&trustee, psbuf->st_uid );
3120	break;
3121	case S_IRGRP:
3122	perms = unix_perms_to_acl_perms(unx_mode,
3123	S_IRGRP,
3124	S_IWGRP,
3125	S_IXGRP);
3126	gid_to_sid(&trustee, psbuf->st_gid );
3127	break;
3128	case S_IROTH:
3129	perms = unix_perms_to_acl_perms(unx_mode,
3130	S_IROTH,
3131	S_IWOTH,
3132	S_IXOTH);
3133	sid_copy(&trustee, &global_sid_World);
3134	break;
3135	default:
3136	return NT_STATUS_INVALID_PARAMETER;
3137	}
3138	acc = map_canon_ace_perms(SNUM(fsp->conn),
3139	&nt_acl_type,
3140	perms,
3141	fsp->is_directory);
3142
3143	init_sec_ace(se,
3144	&trustee,
3145	nt_acl_type,
3146	acc,
3147	0);
3148	return NT_STATUS_OK;
3149	}
3150
3151	/****************************************************************************
3152	If this is an
3153	****************************************************************************/
3154
3155	static NTSTATUS append_parent_acl(files_struct *fsp,
3156	SMB_STRUCT_STAT *psbuf,
3157	SEC_DESC *psd,
3158	SEC_DESC **pp_new_sd)
3159	{
3160	SEC_DESC *parent_sd = NULL;
3161	files_struct *parent_fsp = NULL;
3162	TALLOC_CTX *mem_ctx = talloc_parent(psd);
3163	char *parent_name = NULL;
3164	SEC_ACE *new_ace = NULL;
3165	unsigned int num_aces = psd->dacl->num_aces;
3166	SMB_STRUCT_STAT sbuf;
3167	NTSTATUS status;
3168	int info;
3169	size_t sd_size;
3170	unsigned int i, j;
3171	mode_t unx_mode;
3172
3173	ZERO_STRUCT(sbuf);
3174
3175	if (mem_ctx == NULL) {
3176	return NT_STATUS_NO_MEMORY;
3177	}
3178
3179	if (!parent_dirname_talloc(mem_ctx,
3180	fsp->fsp_name,
3181	&parent_name,
3182	NULL)) {
3183	return NT_STATUS_NO_MEMORY;
3184	}
3185
3186	/* Create a default mode for u/g/w. */
3187	unx_mode = unix_mode(fsp->conn,
3188	aARCH \| (fsp->is_directory ? aDIR : 0),
3189	fsp->fsp_name,
3190	parent_name);
3191
3192	status = open_directory(fsp->conn,
3193	parent_name,
3194	&sbuf,
3195	FILE_READ_ATTRIBUTES, /* Just a stat open */
3196	FILE_SHARE_NONE, /* Ignored for stat opens */
3197	FILE_OPEN,
3198	0,
3199	0,
3200	&info,
3201	&parent_fsp);
3202
3203	if (!NT_STATUS_IS_OK(status)) {
3204	return status;
3205	}
3206
3207	sd_size = SMB_VFS_GET_NT_ACL(parent_fsp, parent_fsp->fsp_name,
3208	DACL_SECURITY_INFORMATION, &parent_sd );
3209
3210	close_file(parent_fsp, NORMAL_CLOSE);
3211
3212	if (!sd_size) {
3213	return NT_STATUS_ACCESS_DENIED;
3214	}
3215
3216	/*
3217	* Make room for potentially all the ACLs from
3218	* the parent, plus the user/group/other triple.
3219	*/
3220
3221	num_aces += parent_sd->dacl->num_aces + 3;
3222
3223	if((new_ace = TALLOC_ZERO_ARRAY(mem_ctx, SEC_ACE,
3224	num_aces)) == NULL) {
3225	return NT_STATUS_NO_MEMORY;
3226	}
3227
3228	DEBUG(10,("append_parent_acl: parent ACL has %u entries. New "
3229	"ACL has %u entries\n",
3230	parent_sd->dacl->num_aces, num_aces ));
3231
3232	/* Start by copying in all the given ACE entries. */
3233	for (i = 0; i < psd->dacl->num_aces; i++) {
3234	sec_ace_copy(&new_ace[i], &psd->dacl->aces[i]);
3235	}
3236
3237	/*
3238	* Note that we're ignoring "inherit permissions" here
3239	* as that really only applies to newly created files. JRA.
3240	*/
3241
3242	/*
3243	* Append u/g/w.
3244	*/
3245
3246	status = append_ugw_ace(fsp, psbuf, unx_mode, S_IRUSR, &new_ace[i++]);
3247	if (!NT_STATUS_IS_OK(status)) {
3248	return status;
3249	}
3250	status = append_ugw_ace(fsp, psbuf, unx_mode, S_IRGRP, &new_ace[i++]);
3251	if (!NT_STATUS_IS_OK(status)) {
3252	return status;
3253	}
3254	status = append_ugw_ace(fsp, psbuf, unx_mode, S_IROTH, &new_ace[i++]);
3255	if (!NT_STATUS_IS_OK(status)) {
3256	return status;
3257	}
3258
3259	/* Finally append any inherited ACEs. */
3260	for (j = 0; j < parent_sd->dacl->num_aces; j++) {
3261	SEC_ACE *se = &parent_sd->dacl->aces[j];
3262	uint32 i_flags = se->flags & (SEC_ACE_FLAG_OBJECT_INHERIT\|
3263	SEC_ACE_FLAG_CONTAINER_INHERIT\|
3264	SEC_ACE_FLAG_INHERIT_ONLY);
3265
3266	if (fsp->is_directory) {
3267	if (i_flags == SEC_ACE_FLAG_OBJECT_INHERIT) {
3268	/* Should only apply to a file - ignore. */
3269	continue;
3270	}
3271	} else {
3272	if ((i_flags & (SEC_ACE_FLAG_OBJECT_INHERIT\|
3273	SEC_ACE_FLAG_INHERIT_ONLY)) !=
3274	SEC_ACE_FLAG_OBJECT_INHERIT) {
3275	/* Should not apply to a file - ignore. */
3276	continue;
3277	}
3278	}
3279	sec_ace_copy(&new_ace[i], se);
3280	if (se->flags & SEC_ACE_FLAG_NO_PROPAGATE_INHERIT) {
3281	new_ace[i].flags &= ~(SEC_ACE_FLAG_VALID_INHERIT);
3282	}
3283	new_ace[i].flags \|= SEC_ACE_FLAG_INHERITED_ACE;
3284	i++;
3285	}
3286
3287	parent_sd->dacl->aces = new_ace;
3288	parent_sd->dacl->num_aces = i;
3289
3290	*pp_new_sd = parent_sd;
3291	return status;
3292	}
3293
3294	/****************************************************************************
3295	Reply to set a security descriptor on an fsp. security_info_sent is the
3296	description of the following NT ACL.
3297	This should be the only external function needed for the UNIX style set ACL.
3298	****************************************************************************/
3299
3300	BOOL set_nt_acl(files_struct fsp, uint32 security_info_sent, SEC_DESC psd)
3301	{
3302	connection_struct *conn = fsp->conn;
3303	uid_t user = (uid_t)-1;
3304	gid_t grp = (gid_t)-1;
3305	SMB_STRUCT_STAT sbuf;
3306	DOM_SID file_owner_sid;
3307	DOM_SID file_grp_sid;
3308	canon_ace *file_ace_list = NULL;
3309	canon_ace *dir_ace_list = NULL;
3310	BOOL acl_perms = False;
3311	mode_t orig_mode = (mode_t)0;
3312	uid_t orig_uid;
3313	gid_t orig_gid;
3314	BOOL need_chown = False;
3315
3316	DEBUG(10,("set_nt_acl: called for file %s\n", fsp->fsp_name ));
3317
3318	if (!CAN_WRITE(conn)) {
3319	DEBUG(10,("set acl rejected on read-only share\n"));
3320	return False;
3321	}
3322
3323	/*
3324	* Get the current state of the file.
3325	*/
3326
3327	if(fsp->is_directory \|\| fsp->fh->fd == -1) {
3328	if(SMB_VFS_STAT(fsp->conn,fsp->fsp_name, &sbuf) != 0)
3329	return False;
3330	} else {
3331	if(SMB_VFS_FSTAT(fsp,fsp->fh->fd,&sbuf) != 0)
3332	return False;
3333	}
3334
3335	/* Save the original elements we check against. */
3336	orig_mode = sbuf.st_mode;
3337	orig_uid = sbuf.st_uid;
3338	orig_gid = sbuf.st_gid;
3339
3340	/*
3341	* Unpack the user/group/world id's.
3342	*/
3343
3344	if (!unpack_nt_owners( SNUM(conn), &user, &grp, security_info_sent, psd)) {
3345	return False;
3346	}
3347
3348	/*
3349	* Do we need to chown ?
3350	*/
3351
3352	if (((user != (uid_t)-1) && (orig_uid != user)) \|\| (( grp != (gid_t)-1) && (orig_gid != grp))) {
3353	need_chown = True;
3354	}
3355
3356	/*
3357	* Chown before setting ACL only if we don't change the user, or
3358	* if we change to the current user, but not if we want to give away
3359	* the file.
3360	*/
3361
3362	if (need_chown && (user == (uid_t)-1 \|\| user == current_user.ut.uid)) {
3363
3364	DEBUG(3,("set_nt_acl: chown %s. uid = %u, gid = %u.\n",
3365	fsp->fsp_name, (unsigned int)user, (unsigned int)grp ));
3366
3367	if(try_chown( fsp->conn, fsp->fsp_name, user, grp) == -1) {
3368	DEBUG(3,("set_nt_acl: chown %s, %u, %u failed. Error = %s.\n",
3369	fsp->fsp_name, (unsigned int)user, (unsigned int)grp, strerror(errno) ));
3370	return False;
3371	}
3372
3373	/*
3374	* Recheck the current state of the file, which may have changed.
3375	* (suid/sgid bits, for instance)
3376	*/
3377
3378	if(fsp->is_directory) {
3379	if(SMB_VFS_STAT(fsp->conn, fsp->fsp_name, &sbuf) != 0) {
3380	return False;
3381	}
3382	} else {
3383
3384	int ret;
3385
3386	if(fsp->fh->fd == -1)
3387	ret = SMB_VFS_STAT(fsp->conn, fsp->fsp_name, &sbuf);
3388	else
3389	ret = SMB_VFS_FSTAT(fsp,fsp->fh->fd,&sbuf);
3390
3391	if(ret != 0)
3392	return False;
3393	}
3394
3395	/* Save the original elements we check against. */
3396	orig_mode = sbuf.st_mode;
3397	orig_uid = sbuf.st_uid;
3398	orig_gid = sbuf.st_gid;
3399
3400	/* We did it, don't try again */
3401	need_chown = False;
3402	}
3403
3404	create_file_sids(&sbuf, &file_owner_sid, &file_grp_sid);
3405
3406	if ((security_info_sent & DACL_SECURITY_INFORMATION) &&
3407	psd->dacl != NULL &&
3408	(psd->type & (SE_DESC_DACL_AUTO_INHERITED\|
3409	SE_DESC_DACL_AUTO_INHERIT_REQ))==
3410	(SE_DESC_DACL_AUTO_INHERITED\|
3411	SE_DESC_DACL_AUTO_INHERIT_REQ) ) {
3412	NTSTATUS status = append_parent_acl(fsp, &sbuf, psd, &psd);
3413	if (!NT_STATUS_IS_OK(status)) {
3414	return False;
3415	}
3416	}
3417
3418	acl_perms = unpack_canon_ace( fsp, &sbuf, &file_owner_sid, &file_grp_sid,
3419	&file_ace_list, &dir_ace_list, security_info_sent, psd);
3420
3421	/* Ignore W2K traverse DACL set. */
3422	if (file_ace_list \|\| dir_ace_list) {
3423
3424	if (!acl_perms) {
3425	DEBUG(3,("set_nt_acl: cannot set permissions\n"));
3426	free_canon_ace_list(file_ace_list);
3427	free_canon_ace_list(dir_ace_list);
3428	return False;
3429	}
3430
3431	/*
3432	* Only change security if we got a DACL.
3433	*/
3434
3435	if((security_info_sent & DACL_SECURITY_INFORMATION) && (psd->dacl != NULL)) {
3436
3437	BOOL acl_set_support = False;
3438	BOOL ret = False;
3439
3440	/*
3441	* Try using the POSIX ACL set first. Fall back to chmod if
3442	* we have no ACL support on this filesystem.
3443	*/
3444
3445	if (acl_perms && file_ace_list) {
3446	ret = set_canon_ace_list(fsp, file_ace_list, False, sbuf.st_gid, &acl_set_support);
3447	if (acl_set_support && ret == False) {
3448	DEBUG(3,("set_nt_acl: failed to set file acl on file %s (%s).\n", fsp->fsp_name, strerror(errno) ));
3449	free_canon_ace_list(file_ace_list);
3450	free_canon_ace_list(dir_ace_list);
3451	return False;
3452	}
3453	}
3454
3455	if (acl_perms && acl_set_support && fsp->is_directory) {
3456	if (dir_ace_list) {
3457	if (!set_canon_ace_list(fsp, dir_ace_list, True, sbuf.st_gid, &acl_set_support)) {
3458	DEBUG(3,("set_nt_acl: failed to set default acl on directory %s (%s).\n", fsp->fsp_name, strerror(errno) ));
3459	free_canon_ace_list(file_ace_list);
3460	free_canon_ace_list(dir_ace_list);
3461	return False;
3462	}
3463	} else {
3464
3465	/*
3466	* No default ACL - delete one if it exists.
3467	*/
3468
3469	if (SMB_VFS_SYS_ACL_DELETE_DEF_FILE(conn, fsp->fsp_name) == -1) {
3470	int sret = -1;
3471
3472	if (acl_group_override(conn, sbuf.st_gid)) {
3473	DEBUG(5,("set_nt_acl: acl group control on and "
3474	"current user in file %s primary group. Override delete_def_acl\n",
3475	fsp->fsp_name ));
3476
3477	become_root();
3478	sret = SMB_VFS_SYS_ACL_DELETE_DEF_FILE(conn, fsp->fsp_name);
3479	unbecome_root();
3480	}
3481
3482	if (sret == -1) {
3483	DEBUG(3,("set_nt_acl: sys_acl_delete_def_file failed (%s)\n", 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	}
3491
3492	if (acl_set_support) {
3493	store_inheritance_attributes(fsp, file_ace_list, dir_ace_list,
3494	(psd->type & SE_DESC_DACL_PROTECTED) ? True : False);
3495	}
3496
3497	/*
3498	* If we cannot set using POSIX ACLs we fall back to checking if we need to chmod.
3499	*/
3500
3501	if(!acl_set_support && acl_perms) {
3502	mode_t posix_perms;
3503
3504	if (!convert_canon_ace_to_posix_perms( fsp, file_ace_list, &posix_perms)) {
3505	free_canon_ace_list(file_ace_list);
3506	free_canon_ace_list(dir_ace_list);
3507	DEBUG(3,("set_nt_acl: failed to convert file acl to posix permissions for file %s.\n",
3508	fsp->fsp_name ));
3509	return False;
3510	}
3511
3512	if (orig_mode != posix_perms) {
3513
3514	DEBUG(3,("set_nt_acl: chmod %s. perms = 0%o.\n",
3515	fsp->fsp_name, (unsigned int)posix_perms ));
3516
3517	if(SMB_VFS_CHMOD(conn,fsp->fsp_name, posix_perms) == -1) {
3518	int sret = -1;
3519	if (acl_group_override(conn, sbuf.st_gid)) {
3520	DEBUG(5,("set_nt_acl: acl group control on and "
3521	"current user in file %s primary group. Override chmod\n",
3522	fsp->fsp_name ));
3523
3524	become_root();
3525	sret = SMB_VFS_CHMOD(conn,fsp->fsp_name, posix_perms);
3526	unbecome_root();
3527	}
3528
3529	if (sret == -1) {
3530	DEBUG(3,("set_nt_acl: chmod %s, 0%o failed. Error = %s.\n",
3531	fsp->fsp_name, (unsigned int)posix_perms, strerror(errno) ));
3532	free_canon_ace_list(file_ace_list);
3533	free_canon_ace_list(dir_ace_list);
3534	return False;
3535	}
3536	}
3537	}
3538	}
3539	}
3540
3541	free_canon_ace_list(file_ace_list);
3542	free_canon_ace_list(dir_ace_list);
3543	}
3544
3545	/* Any chown pending? */
3546	if (need_chown) {
3547
3548	DEBUG(3,("set_nt_acl: chown %s. uid = %u, gid = %u.\n",
3549	fsp->fsp_name, (unsigned int)user, (unsigned int)grp ));
3550
3551	if(try_chown( fsp->conn, fsp->fsp_name, user, grp) == -1) {
3552	DEBUG(3,("set_nt_acl: chown %s, %u, %u failed. Error = %s.\n",
3553	fsp->fsp_name, (unsigned int)user, (unsigned int)grp, strerror(errno) ));
3554	return False;
3555	}
3556	}
3557
3558	return True;
3559	}
3560
3561	/****************************************************************************
3562	Get the actual group bits stored on a file with an ACL. Has no effect if
3563	the file has no ACL. Needed in dosmode code where the stat() will return
3564	the mask bits, not the real group bits, for a file with an ACL.
3565	****************************************************************************/
3566
3567	int get_acl_group_bits( connection_struct conn, const char fname, mode_t *mode )
3568	{
3569	int entry_id = SMB_ACL_FIRST_ENTRY;
3570	SMB_ACL_ENTRY_T entry;
3571	SMB_ACL_T posix_acl;
3572	int result = -1;
3573
3574	posix_acl = SMB_VFS_SYS_ACL_GET_FILE(conn, fname, SMB_ACL_TYPE_ACCESS);
3575	if (posix_acl == (SMB_ACL_T)NULL)
3576	return -1;
3577
3578	while (SMB_VFS_SYS_ACL_GET_ENTRY(conn, posix_acl, entry_id, &entry) == 1) {
3579	SMB_ACL_TAG_T tagtype;
3580	SMB_ACL_PERMSET_T permset;
3581
3582	/* get_next... */
3583	if (entry_id == SMB_ACL_FIRST_ENTRY)
3584	entry_id = SMB_ACL_NEXT_ENTRY;
3585
3586	if (SMB_VFS_SYS_ACL_GET_TAG_TYPE(conn, entry, &tagtype) ==-1)
3587	break;
3588
3589	if (tagtype == SMB_ACL_GROUP_OBJ) {
3590	if (SMB_VFS_SYS_ACL_GET_PERMSET(conn, entry, &permset) == -1) {
3591	break;
3592	} else {
3593	*mode &= ~(S_IRGRP\|S_IWGRP\|S_IXGRP);
3594	*mode \|= (SMB_VFS_SYS_ACL_GET_PERM(conn, permset, SMB_ACL_READ) ? S_IRGRP : 0);
3595	*mode \|= (SMB_VFS_SYS_ACL_GET_PERM(conn, permset, SMB_ACL_WRITE) ? S_IWGRP : 0);
3596	*mode \|= (SMB_VFS_SYS_ACL_GET_PERM(conn, permset, SMB_ACL_EXECUTE) ? S_IXGRP : 0);
3597	result = 0;
3598	break;
3599	}
3600	}
3601	}
3602	SMB_VFS_SYS_ACL_FREE_ACL(conn, posix_acl);
3603	return result;
3604	}
3605
3606	/****************************************************************************
3607	Do a chmod by setting the ACL USER_OBJ, GROUP_OBJ and OTHER bits in an ACL
3608	and set the mask to rwx. Needed to preserve complex ACLs set by NT.
3609	****************************************************************************/
3610
3611	static int chmod_acl_internals( connection_struct *conn, SMB_ACL_T posix_acl, mode_t mode)
3612	{
3613	int entry_id = SMB_ACL_FIRST_ENTRY;
3614	SMB_ACL_ENTRY_T entry;
3615	int num_entries = 0;
3616
3617	while ( SMB_VFS_SYS_ACL_GET_ENTRY(conn, posix_acl, entry_id, &entry) == 1) {
3618	SMB_ACL_TAG_T tagtype;
3619	SMB_ACL_PERMSET_T permset;
3620	mode_t perms;
3621
3622	/* get_next... */
3623	if (entry_id == SMB_ACL_FIRST_ENTRY)
3624	entry_id = SMB_ACL_NEXT_ENTRY;
3625
3626	if (SMB_VFS_SYS_ACL_GET_TAG_TYPE(conn, entry, &tagtype) == -1)
3627	return -1;
3628
3629	if (SMB_VFS_SYS_ACL_GET_PERMSET(conn, entry, &permset) == -1)
3630	return -1;
3631
3632	num_entries++;
3633
3634	switch(tagtype) {
3635	case SMB_ACL_USER_OBJ:
3636	perms = unix_perms_to_acl_perms(mode, S_IRUSR, S_IWUSR, S_IXUSR);
3637	break;
3638	case SMB_ACL_GROUP_OBJ:
3639	perms = unix_perms_to_acl_perms(mode, S_IRGRP, S_IWGRP, S_IXGRP);
3640	break;
3641	case SMB_ACL_MASK:
3642	/*
3643	* FIXME: The ACL_MASK entry permissions should really be set to
3644	* the union of the permissions of all ACL_USER,
3645	* ACL_GROUP_OBJ, and ACL_GROUP entries. That's what
3646	* acl_calc_mask() does, but Samba ACLs doesn't provide it.
3647	*/
3648	perms = S_IRUSR\|S_IWUSR\|S_IXUSR;
3649	break;
3650	case SMB_ACL_OTHER:
3651	perms = unix_perms_to_acl_perms(mode, S_IROTH, S_IWOTH, S_IXOTH);
3652	break;
3653	default:
3654	continue;
3655	}
3656
3657	if (map_acl_perms_to_permset(conn, perms, &permset) == -1)
3658	return -1;
3659
3660	if (SMB_VFS_SYS_ACL_SET_PERMSET(conn, entry, permset) == -1)
3661	return -1;
3662	}
3663
3664	/*
3665	* If this is a simple 3 element ACL or no elements then it's a standard
3666	* UNIX permission set. Just use chmod...
3667	*/
3668
3669	if ((num_entries == 3) \|\| (num_entries == 0))
3670	return -1;
3671
3672	return 0;
3673	}
3674
3675	/****************************************************************************
3676	Get the access ACL of FROM, do a chmod by setting the ACL USER_OBJ,
3677	GROUP_OBJ and OTHER bits in an ACL and set the mask to rwx. Set the
3678	resulting ACL on TO. Note that name is in UNIX character set.
3679	****************************************************************************/
3680
3681	static int copy_access_acl(connection_struct conn, const char from, const char *to, mode_t mode)
3682	{
3683	SMB_ACL_T posix_acl = NULL;
3684	int ret = -1;
3685
3686	if ((posix_acl = SMB_VFS_SYS_ACL_GET_FILE(conn, from, SMB_ACL_TYPE_ACCESS)) == NULL)
3687	return -1;
3688
3689	if ((ret = chmod_acl_internals(conn, posix_acl, mode)) == -1)
3690	goto done;
3691
3692	ret = SMB_VFS_SYS_ACL_SET_FILE(conn, to, SMB_ACL_TYPE_ACCESS, posix_acl);
3693
3694	done:
3695
3696	SMB_VFS_SYS_ACL_FREE_ACL(conn, posix_acl);
3697	return ret;
3698	}
3699
3700	/****************************************************************************
3701	Do a chmod by setting the ACL USER_OBJ, GROUP_OBJ and OTHER bits in an ACL
3702	and set the mask to rwx. Needed to preserve complex ACLs set by NT.
3703	Note that name is in UNIX character set.
3704	****************************************************************************/
3705
3706	int chmod_acl(connection_struct conn, const char name, mode_t mode)
3707	{
3708	return copy_access_acl(conn, name, name, mode);
3709	}
3710
3711	/****************************************************************************
3712	If the parent directory has no default ACL but it does have an Access ACL,
3713	inherit this Access ACL to file name.
3714	****************************************************************************/
3715
3716	int inherit_access_acl(connection_struct conn, const char inherit_from_dir,
3717	const char *name, mode_t mode)
3718	{
3719	if (directory_has_default_acl(conn, inherit_from_dir))
3720	return 0;
3721
3722	return copy_access_acl(conn, inherit_from_dir, name, mode);
3723	}
3724
3725	/****************************************************************************
3726	Do an fchmod by setting the ACL USER_OBJ, GROUP_OBJ and OTHER bits in an ACL
3727	and set the mask to rwx. Needed to preserve complex ACLs set by NT.
3728	****************************************************************************/
3729
3730	int fchmod_acl(files_struct *fsp, int fd, mode_t mode)
3731	{
3732	connection_struct *conn = fsp->conn;
3733	SMB_ACL_T posix_acl = NULL;
3734	int ret = -1;
3735
3736	if ((posix_acl = SMB_VFS_SYS_ACL_GET_FD(fsp, fd)) == NULL)
3737	return -1;
3738
3739	if ((ret = chmod_acl_internals(conn, posix_acl, mode)) == -1)
3740	goto done;
3741
3742	ret = SMB_VFS_SYS_ACL_SET_FD(fsp, fd, posix_acl);
3743
3744	done:
3745
3746	SMB_VFS_SYS_ACL_FREE_ACL(conn, posix_acl);
3747	return ret;
3748	}
3749
3750	/****************************************************************************
3751	Check for an existing default POSIX ACL on a directory.
3752	****************************************************************************/
3753
3754	BOOL directory_has_default_acl(connection_struct conn, const char fname)
3755	{
3756	SMB_ACL_T def_acl = SMB_VFS_SYS_ACL_GET_FILE( conn, fname, SMB_ACL_TYPE_DEFAULT);
3757	BOOL has_acl = False;
3758	SMB_ACL_ENTRY_T entry;
3759
3760	if (def_acl != NULL && (SMB_VFS_SYS_ACL_GET_ENTRY(conn, def_acl, SMB_ACL_FIRST_ENTRY, &entry) == 1)) {
3761	has_acl = True;
3762	}
3763
3764	if (def_acl) {
3765	SMB_VFS_SYS_ACL_FREE_ACL(conn, def_acl);
3766	}
3767	return has_acl;
3768	}
3769
3770	/****************************************************************************
3771	Map from wire type to permset.
3772	****************************************************************************/
3773
3774	static BOOL unix_ex_wire_to_permset(connection_struct conn, unsigned char wire_perm, SMB_ACL_PERMSET_T p_permset)
3775	{
3776	if (wire_perm & ~(SMB_POSIX_ACL_READ\|SMB_POSIX_ACL_WRITE\|SMB_POSIX_ACL_EXECUTE)) {
3777	return False;
3778	}
3779
3780	if (SMB_VFS_SYS_ACL_CLEAR_PERMS(conn, *p_permset) == -1) {
3781	return False;
3782	}
3783
3784	if (wire_perm & SMB_POSIX_ACL_READ) {
3785	if (SMB_VFS_SYS_ACL_ADD_PERM(conn, *p_permset, SMB_ACL_READ) == -1) {
3786	return False;
3787	}
3788	}
3789	if (wire_perm & SMB_POSIX_ACL_WRITE) {
3790	if (SMB_VFS_SYS_ACL_ADD_PERM(conn, *p_permset, SMB_ACL_WRITE) == -1) {
3791	return False;
3792	}
3793	}
3794	if (wire_perm & SMB_POSIX_ACL_EXECUTE) {
3795	if (SMB_VFS_SYS_ACL_ADD_PERM(conn, *p_permset, SMB_ACL_EXECUTE) == -1) {
3796	return False;
3797	}
3798	}
3799	return True;
3800	}
3801
3802	/****************************************************************************
3803	Map from wire type to tagtype.
3804	****************************************************************************/
3805
3806	static BOOL unix_ex_wire_to_tagtype(unsigned char wire_tt, SMB_ACL_TAG_T *p_tt)
3807	{
3808	switch (wire_tt) {
3809	case SMB_POSIX_ACL_USER_OBJ:
3810	*p_tt = SMB_ACL_USER_OBJ;
3811	break;
3812	case SMB_POSIX_ACL_USER:
3813	*p_tt = SMB_ACL_USER;
3814	break;
3815	case SMB_POSIX_ACL_GROUP_OBJ:
3816	*p_tt = SMB_ACL_GROUP_OBJ;
3817	break;
3818	case SMB_POSIX_ACL_GROUP:
3819	*p_tt = SMB_ACL_GROUP;
3820	break;
3821	case SMB_POSIX_ACL_MASK:
3822	*p_tt = SMB_ACL_MASK;
3823	break;
3824	case SMB_POSIX_ACL_OTHER:
3825	*p_tt = SMB_ACL_OTHER;
3826	break;
3827	default:
3828	return False;
3829	}
3830	return True;
3831	}
3832
3833	/****************************************************************************
3834	Create a new POSIX acl from wire permissions.
3835	FIXME ! How does the share mask/mode fit into this.... ?
3836	****************************************************************************/
3837
3838	static SMB_ACL_T create_posix_acl_from_wire(connection_struct conn, uint16 num_acls, const char pdata)
3839	{
3840	unsigned int i;
3841	SMB_ACL_T the_acl = SMB_VFS_SYS_ACL_INIT(conn, num_acls);
3842
3843	if (the_acl == NULL) {
3844	return NULL;
3845	}
3846
3847	for (i = 0; i < num_acls; i++) {
3848	SMB_ACL_ENTRY_T the_entry;
3849	SMB_ACL_PERMSET_T the_permset;
3850	SMB_ACL_TAG_T tag_type;
3851
3852	if (SMB_VFS_SYS_ACL_CREATE_ENTRY(conn, &the_acl, &the_entry) == -1) {
3853	DEBUG(0,("create_posix_acl_from_wire: Failed to create entry %u. (%s)\n",
3854	i, strerror(errno) ));
3855	goto fail;
3856	}
3857
3858	if (!unix_ex_wire_to_tagtype(CVAL(pdata,(i*SMB_POSIX_ACL_ENTRY_SIZE)), &tag_type)) {
3859	DEBUG(0,("create_posix_acl_from_wire: invalid wire tagtype %u on entry %u.\n",
3860	CVAL(pdata,(i*SMB_POSIX_ACL_ENTRY_SIZE)), i ));
3861	goto fail;
3862	}
3863
3864	if (SMB_VFS_SYS_ACL_SET_TAG_TYPE(conn, the_entry, tag_type) == -1) {
3865	DEBUG(0,("create_posix_acl_from_wire: Failed to set tagtype on entry %u. (%s)\n",
3866	i, strerror(errno) ));
3867	goto fail;
3868	}
3869
3870	/* Get the permset pointer from the new ACL entry. */
3871	if (SMB_VFS_SYS_ACL_GET_PERMSET(conn, the_entry, &the_permset) == -1) {
3872	DEBUG(0,("create_posix_acl_from_wire: Failed to get permset on entry %u. (%s)\n",
3873	i, strerror(errno) ));
3874	goto fail;
3875	}
3876
3877	/* Map from wire to permissions. */
3878	if (!unix_ex_wire_to_permset(conn, CVAL(pdata,(i*SMB_POSIX_ACL_ENTRY_SIZE)+1), &the_permset)) {
3879	DEBUG(0,("create_posix_acl_from_wire: invalid permset %u on entry %u.\n",
3880	CVAL(pdata,(i*SMB_POSIX_ACL_ENTRY_SIZE) + 1), i ));
3881	goto fail;
3882	}
3883
3884	/* Now apply to the new ACL entry. */
3885	if (SMB_VFS_SYS_ACL_SET_PERMSET(conn, the_entry, the_permset) == -1) {
3886	DEBUG(0,("create_posix_acl_from_wire: Failed to add permset on entry %u. (%s)\n",
3887	i, strerror(errno) ));
3888	goto fail;
3889	}
3890
3891	if (tag_type == SMB_ACL_USER) {
3892	uint32 uidval = IVAL(pdata,(i*SMB_POSIX_ACL_ENTRY_SIZE)+2);
3893	uid_t uid = (uid_t)uidval;
3894	if (SMB_VFS_SYS_ACL_SET_QUALIFIER(conn, the_entry,(void *)&uid) == -1) {
3895	DEBUG(0,("create_posix_acl_from_wire: Failed to set uid %u on entry %u. (%s)\n",
3896	(unsigned int)uid, i, strerror(errno) ));
3897	goto fail;
3898	}
3899	}
3900
3901	if (tag_type == SMB_ACL_GROUP) {
3902	uint32 gidval = IVAL(pdata,(i*SMB_POSIX_ACL_ENTRY_SIZE)+2);
3903	gid_t gid = (uid_t)gidval;
3904	if (SMB_VFS_SYS_ACL_SET_QUALIFIER(conn, the_entry,(void *)&gid) == -1) {
3905	DEBUG(0,("create_posix_acl_from_wire: Failed to set gid %u on entry %u. (%s)\n",
3906	(unsigned int)gid, i, strerror(errno) ));
3907	goto fail;
3908	}
3909	}
3910	}
3911
3912	return the_acl;
3913
3914	fail:
3915
3916	if (the_acl != NULL) {
3917	SMB_VFS_SYS_ACL_FREE_ACL(conn, the_acl);
3918	}
3919	return NULL;
3920	}
3921
3922	/****************************************************************************
3923	Calls from UNIX extensions - Default POSIX ACL set.
3924	If num_def_acls == 0 and not a directory just return. If it is a directory
3925	and num_def_acls == 0 then remove the default acl. Else set the default acl
3926	on the directory.
3927	****************************************************************************/
3928
3929	BOOL set_unix_posix_default_acl(connection_struct conn, const char fname, SMB_STRUCT_STAT *psbuf,
3930	uint16 num_def_acls, const char *pdata)
3931	{
3932	SMB_ACL_T def_acl = NULL;
3933
3934	if (num_def_acls && !S_ISDIR(psbuf->st_mode)) {
3935	DEBUG(5,("set_unix_posix_default_acl: Can't set default ACL on non-directory file %s\n", fname ));
3936	errno = EISDIR;
3937	return False;
3938	}
3939
3940	if (!num_def_acls) {
3941	/* Remove the default ACL. */
3942	if (SMB_VFS_SYS_ACL_DELETE_DEF_FILE(conn, fname) == -1) {
3943	DEBUG(5,("set_unix_posix_default_acl: acl_delete_def_file failed on directory %s (%s)\n",
3944	fname, strerror(errno) ));
3945	return False;
3946	}
3947	return True;
3948	}
3949
3950	if ((def_acl = create_posix_acl_from_wire(conn, num_def_acls, pdata)) == NULL) {
3951	return False;
3952	}
3953
3954	if (SMB_VFS_SYS_ACL_SET_FILE(conn, fname, SMB_ACL_TYPE_DEFAULT, def_acl) == -1) {
3955	DEBUG(5,("set_unix_posix_default_acl: acl_set_file failed on directory %s (%s)\n",
3956	fname, strerror(errno) ));
3957	SMB_VFS_SYS_ACL_FREE_ACL(conn, def_acl);
3958	return False;
3959	}
3960
3961	DEBUG(10,("set_unix_posix_default_acl: set default acl for file %s\n", fname ));
3962	SMB_VFS_SYS_ACL_FREE_ACL(conn, def_acl);
3963	return True;
3964	}
3965
3966	/****************************************************************************
3967	Remove an ACL from a file. As we don't have acl_delete_entry() available
3968	we must read the current acl and copy all entries except MASK, USER and GROUP
3969	to a new acl, then set that. This (at least on Linux) causes any ACL to be
3970	removed.
3971	FIXME ! How does the share mask/mode fit into this.... ?
3972	****************************************************************************/
3973
3974	static BOOL remove_posix_acl(connection_struct conn, files_struct fsp, const char *fname)
3975	{
3976	SMB_ACL_T file_acl = NULL;
3977	int entry_id = SMB_ACL_FIRST_ENTRY;
3978	SMB_ACL_ENTRY_T entry;
3979	BOOL ret = False;
3980	/* Create a new ACL with only 3 entries, u/g/w. */
3981	SMB_ACL_T new_file_acl = SMB_VFS_SYS_ACL_INIT(conn, 3);
3982	SMB_ACL_ENTRY_T user_ent = NULL;
3983	SMB_ACL_ENTRY_T group_ent = NULL;
3984	SMB_ACL_ENTRY_T other_ent = NULL;
3985
3986	if (new_file_acl == NULL) {
3987	DEBUG(5,("remove_posix_acl: failed to init new ACL with 3 entries for file %s.\n", fname));
3988	return False;
3989	}
3990
3991	/* Now create the u/g/w entries. */
3992	if (SMB_VFS_SYS_ACL_CREATE_ENTRY(conn, &new_file_acl, &user_ent) == -1) {
3993	DEBUG(5,("remove_posix_acl: Failed to create user entry for file %s. (%s)\n",
3994	fname, strerror(errno) ));
3995	goto done;
3996	}
3997	if (SMB_VFS_SYS_ACL_SET_TAG_TYPE(conn, user_ent, SMB_ACL_USER_OBJ) == -1) {
3998	DEBUG(5,("remove_posix_acl: Failed to set user entry for file %s. (%s)\n",
3999	fname, strerror(errno) ));
4000	goto done;
4001	}
4002
4003	if (SMB_VFS_SYS_ACL_CREATE_ENTRY(conn, &new_file_acl, &group_ent) == -1) {
4004	DEBUG(5,("remove_posix_acl: Failed to create group entry for file %s. (%s)\n",
4005	fname, strerror(errno) ));
4006	goto done;
4007	}
4008	if (SMB_VFS_SYS_ACL_SET_TAG_TYPE(conn, group_ent, SMB_ACL_GROUP_OBJ) == -1) {
4009	DEBUG(5,("remove_posix_acl: Failed to set group entry for file %s. (%s)\n",
4010	fname, strerror(errno) ));
4011	goto done;
4012	}
4013
4014	if (SMB_VFS_SYS_ACL_CREATE_ENTRY(conn, &new_file_acl, &other_ent) == -1) {
4015	DEBUG(5,("remove_posix_acl: Failed to create other entry for file %s. (%s)\n",
4016	fname, strerror(errno) ));
4017	goto done;
4018	}
4019	if (SMB_VFS_SYS_ACL_SET_TAG_TYPE(conn, other_ent, SMB_ACL_OTHER) == -1) {
4020	DEBUG(5,("remove_posix_acl: Failed to set other entry for file %s. (%s)\n",
4021	fname, strerror(errno) ));
4022	goto done;
4023	}
4024
4025	/* Get the current file ACL. */
4026	if (fsp && fsp->fh->fd != -1) {
4027	file_acl = SMB_VFS_SYS_ACL_GET_FD(fsp, fsp->fh->fd);
4028	} else {
4029	file_acl = SMB_VFS_SYS_ACL_GET_FILE( conn, fname, SMB_ACL_TYPE_ACCESS);
4030	}
4031
4032	if (file_acl == NULL) {
4033	/* This is only returned if an error occurred. Even for a file with
4034	no acl a u/g/w acl should be returned. */
4035	DEBUG(5,("remove_posix_acl: failed to get ACL from file %s (%s).\n",
4036	fname, strerror(errno) ));
4037	goto done;
4038	}
4039
4040	while ( SMB_VFS_SYS_ACL_GET_ENTRY(conn, file_acl, entry_id, &entry) == 1) {
4041	SMB_ACL_TAG_T tagtype;
4042	SMB_ACL_PERMSET_T permset;
4043
4044	/* get_next... */
4045	if (entry_id == SMB_ACL_FIRST_ENTRY)
4046	entry_id = SMB_ACL_NEXT_ENTRY;
4047
4048	if (SMB_VFS_SYS_ACL_GET_TAG_TYPE(conn, entry, &tagtype) == -1) {
4049	DEBUG(5,("remove_posix_acl: failed to get tagtype from ACL on file %s (%s).\n",
4050	fname, strerror(errno) ));
4051	goto done;
4052	}
4053
4054	if (SMB_VFS_SYS_ACL_GET_PERMSET(conn, entry, &permset) == -1) {
4055	DEBUG(5,("remove_posix_acl: failed to get permset from ACL on file %s (%s).\n",
4056	fname, strerror(errno) ));
4057	goto done;
4058	}
4059
4060	if (tagtype == SMB_ACL_USER_OBJ) {
4061	if (SMB_VFS_SYS_ACL_SET_PERMSET(conn, user_ent, permset) == -1) {
4062	DEBUG(5,("remove_posix_acl: failed to set permset from ACL on file %s (%s).\n",
4063	fname, strerror(errno) ));
4064	}
4065	} else if (tagtype == SMB_ACL_GROUP_OBJ) {
4066	if (SMB_VFS_SYS_ACL_SET_PERMSET(conn, group_ent, permset) == -1) {
4067	DEBUG(5,("remove_posix_acl: failed to set permset from ACL on file %s (%s).\n",
4068	fname, strerror(errno) ));
4069	}
4070	} else if (tagtype == SMB_ACL_OTHER) {
4071	if (SMB_VFS_SYS_ACL_SET_PERMSET(conn, other_ent, permset) == -1) {
4072	DEBUG(5,("remove_posix_acl: failed to set permset from ACL on file %s (%s).\n",
4073	fname, strerror(errno) ));
4074	}
4075	}
4076	}
4077
4078	/* Set the new empty file ACL. */
4079	if (fsp && fsp->fh->fd != -1) {
4080	if (SMB_VFS_SYS_ACL_SET_FD(fsp, fsp->fh->fd, new_file_acl) == -1) {
4081	DEBUG(5,("remove_posix_acl: acl_set_file failed on %s (%s)\n",
4082	fname, strerror(errno) ));
4083	goto done;
4084	}
4085	} else {
4086	if (SMB_VFS_SYS_ACL_SET_FILE(conn, fname, SMB_ACL_TYPE_ACCESS, new_file_acl) == -1) {
4087	DEBUG(5,("remove_posix_acl: acl_set_file failed on %s (%s)\n",
4088	fname, strerror(errno) ));
4089	goto done;
4090	}
4091	}
4092
4093	ret = True;
4094
4095	done:
4096
4097	if (file_acl) {
4098	SMB_VFS_SYS_ACL_FREE_ACL(conn, file_acl);
4099	}
4100	if (new_file_acl) {
4101	SMB_VFS_SYS_ACL_FREE_ACL(conn, new_file_acl);
4102	}
4103	return ret;
4104	}
4105
4106	/****************************************************************************
4107	Calls from UNIX extensions - POSIX ACL set.
4108	If num_def_acls == 0 then read/modify/write acl after removing all entries
4109	except SMB_ACL_USER_OBJ, SMB_ACL_GROUP_OBJ, SMB_ACL_OTHER.
4110	****************************************************************************/
4111
4112	BOOL set_unix_posix_acl(connection_struct conn, files_struct fsp, const char fname, uint16 num_acls, const char pdata)
4113	{
4114	SMB_ACL_T file_acl = NULL;
4115
4116	if (!num_acls) {
4117	/* Remove the ACL from the file. */
4118	return remove_posix_acl(conn, fsp, fname);
4119	}
4120
4121	if ((file_acl = create_posix_acl_from_wire(conn, num_acls, pdata)) == NULL) {
4122	return False;
4123	}
4124
4125	if (fsp && fsp->fh->fd != -1) {
4126	/* The preferred way - use an open fd. */
4127	if (SMB_VFS_SYS_ACL_SET_FD(fsp, fsp->fh->fd, file_acl) == -1) {
4128	DEBUG(5,("set_unix_posix_acl: acl_set_file failed on %s (%s)\n",
4129	fname, strerror(errno) ));
4130	SMB_VFS_SYS_ACL_FREE_ACL(conn, file_acl);
4131	return False;
4132	}
4133	} else {
4134	if (SMB_VFS_SYS_ACL_SET_FILE(conn, fname, SMB_ACL_TYPE_ACCESS, file_acl) == -1) {
4135	DEBUG(5,("set_unix_posix_acl: acl_set_file failed on %s (%s)\n",
4136	fname, strerror(errno) ));
4137	SMB_VFS_SYS_ACL_FREE_ACL(conn, file_acl);
4138	return False;
4139	}
4140	}
4141
4142	DEBUG(10,("set_unix_posix_acl: set acl for file %s\n", fname ));
4143	SMB_VFS_SYS_ACL_FREE_ACL(conn, file_acl);
4144	return True;
4145	}
4146
4147	/****************************************************************************
4148	Check for POSIX group ACLs. If none use stat entry.
4149	Return -1 if no match, 0 if match and denied, 1 if match and allowed.
4150	****************************************************************************/
4151
4152	static int check_posix_acl_group_access(connection_struct conn, const char fname, SMB_STRUCT_STAT *psbuf, uint32 access_mask)
4153	{
4154	SMB_ACL_T posix_acl = NULL;
4155	int entry_id = SMB_ACL_FIRST_ENTRY;
4156	SMB_ACL_ENTRY_T entry;
4157	int i;
4158	BOOL seen_mask = False;
4159	BOOL seen_owning_group = False;
4160	int ret = -1;
4161	gid_t cu_gid;
4162
4163	DEBUG(10,("check_posix_acl_group_access: requesting 0x%x on file %s\n",
4164	(unsigned int)access_mask, fname ));
4165
4166	if ((posix_acl = SMB_VFS_SYS_ACL_GET_FILE(conn, fname, SMB_ACL_TYPE_ACCESS)) == NULL) {
4167	goto check_stat;
4168	}
4169
4170	/* First ensure the group mask allows group access. */
4171	/* Also check any user entries (these take preference over group). */
4172
4173	while ( SMB_VFS_SYS_ACL_GET_ENTRY(conn, posix_acl, entry_id, &entry) == 1) {
4174	SMB_ACL_TAG_T tagtype;
4175	SMB_ACL_PERMSET_T permset;
4176	int have_write = -1;
4177	int have_read = -1;
4178
4179	/* get_next... */
4180	if (entry_id == SMB_ACL_FIRST_ENTRY)
4181	entry_id = SMB_ACL_NEXT_ENTRY;
4182
4183	if (SMB_VFS_SYS_ACL_GET_TAG_TYPE(conn, entry, &tagtype) == -1) {
4184	goto check_stat;
4185	}
4186
4187	if (SMB_VFS_SYS_ACL_GET_PERMSET(conn, entry, &permset) == -1) {
4188	goto check_stat;
4189	}
4190
4191	have_read = SMB_VFS_SYS_ACL_GET_PERM(conn, permset, SMB_ACL_READ);
4192	if (have_read == -1) {
4193	goto check_stat;
4194	}
4195
4196	have_write = SMB_VFS_SYS_ACL_GET_PERM(conn, permset, SMB_ACL_WRITE);
4197	if (have_write == -1) {
4198	goto check_stat;
4199	}
4200
4201	/*
4202	* Solaris returns 2 for this if write is available.
4203	* canonicalize to 0 or 1.
4204	*/
4205	have_write = (have_write ? 1 : 0);
4206	have_read = (have_read ? 1 : 0);
4207
4208	switch(tagtype) {
4209	case SMB_ACL_MASK:
4210	seen_mask = True;
4211	switch (access_mask) {
4212	case FILE_READ_DATA:
4213	if (!have_read) {
4214	ret = -1;
4215	DEBUG(10,("check_posix_acl_group_access: file %s "
4216	"refusing read due to mask.\n", fname));
4217	goto done;
4218	}
4219	break;
4220	case FILE_WRITE_DATA:
4221	if (!have_write) {
4222	ret = -1;
4223	DEBUG(10,("check_posix_acl_group_access: file %s "
4224	"refusing write due to mask.\n", fname));
4225	goto done;
4226	}
4227	break;
4228	default: /* FILE_READ_DATA\|FILE_WRITE_DATA */
4229	if (!have_write \|\| !have_read) {
4230	ret = -1;
4231	DEBUG(10,("check_posix_acl_group_access: file %s "
4232	"refusing read/write due to mask.\n", fname));
4233	goto done;
4234	}
4235	break;
4236	}
4237	break;
4238	case SMB_ACL_USER:
4239	{
4240	/* Check against current_user.ut.uid. */
4241	uid_t puid = (uid_t )SMB_VFS_SYS_ACL_GET_QUALIFIER(conn, entry);
4242	if (puid == NULL) {
4243	goto check_stat;
4244	}
4245	if (current_user.ut.uid == *puid) {
4246	/* We have a uid match but we must ensure we have seen the acl mask. */
4247	switch (access_mask) {
4248	case FILE_READ_DATA:
4249	ret = have_read;
4250	break;
4251	case FILE_WRITE_DATA:
4252	ret = have_write;
4253	break;
4254	default: /* FILE_READ_DATA\|FILE_WRITE_DATA */
4255	ret = (have_write & have_read);
4256	break;
4257	}
4258	DEBUG(10,("check_posix_acl_group_access: file %s "
4259	"match on user %u -> %s.\n",
4260	fname, (unsigned int)*puid,
4261	ret ? "can access" : "cannot access"));
4262	if (seen_mask) {
4263	goto done;
4264	}
4265	}
4266	break;
4267	}
4268	default:
4269	continue;
4270	}
4271	}
4272
4273	/* If ret is anything other than -1 we matched on a user entry. */
4274	if (ret != -1) {
4275	goto done;
4276	}
4277
4278	/* Next check all group entries. */
4279	entry_id = SMB_ACL_FIRST_ENTRY;
4280	while ( SMB_VFS_SYS_ACL_GET_ENTRY(conn, posix_acl, entry_id, &entry) == 1) {
4281	SMB_ACL_TAG_T tagtype;
4282	SMB_ACL_PERMSET_T permset;
4283	int have_write = -1;
4284	int have_read = -1;
4285
4286	/* get_next... */
4287	if (entry_id == SMB_ACL_FIRST_ENTRY)
4288	entry_id = SMB_ACL_NEXT_ENTRY;
4289
4290	if (SMB_VFS_SYS_ACL_GET_TAG_TYPE(conn, entry, &tagtype) == -1) {
4291	goto check_stat;
4292	}
4293
4294	if (SMB_VFS_SYS_ACL_GET_PERMSET(conn, entry, &permset) == -1) {
4295	goto check_stat;
4296	}
4297
4298	have_read = SMB_VFS_SYS_ACL_GET_PERM(conn, permset, SMB_ACL_READ);
4299	if (have_read == -1) {
4300	goto check_stat;
4301	}
4302
4303	have_write = SMB_VFS_SYS_ACL_GET_PERM(conn, permset, SMB_ACL_WRITE);
4304	if (have_write == -1) {
4305	goto check_stat;
4306	}
4307
4308	/*
4309	* Solaris returns 2 for this if write is available.
4310	* canonicalize to 0 or 1.
4311	*/
4312	have_write = (have_write ? 1 : 0);
4313	have_read = (have_read ? 1 : 0);
4314
4315	switch(tagtype) {
4316	case SMB_ACL_GROUP:
4317	case SMB_ACL_GROUP_OBJ:
4318	{
4319	gid_t *pgid = NULL;
4320
4321	if (tagtype == SMB_ACL_GROUP) {
4322	pgid = (gid_t *)SMB_VFS_SYS_ACL_GET_QUALIFIER(conn, entry);
4323	} else {
4324	seen_owning_group = True;
4325	pgid = &psbuf->st_gid;
4326	}
4327	if (pgid == NULL) {
4328	goto check_stat;
4329	}
4330
4331	/*
4332	* Does it match the current effective group
4333	* or supplementary groups ?
4334	*/
4335	for (cu_gid = get_current_user_gid_first(&i); cu_gid != (gid_t)-1;
4336	cu_gid = get_current_user_gid_next(&i)) {
4337	if (cu_gid == *pgid) {
4338	switch (access_mask) {
4339	case FILE_READ_DATA:
4340	ret = have_read;
4341	break;
4342	case FILE_WRITE_DATA:
4343	ret = have_write;
4344	break;
4345	default: /* FILE_READ_DATA\|FILE_WRITE_DATA */
4346	ret = (have_write & have_read);
4347	break;
4348	}
4349
4350	DEBUG(10,("check_posix_acl_group_access: file %s "
4351	"match on group %u -> can access.\n",
4352	fname, (unsigned int)cu_gid ));
4353
4354	/* If we don't have access permission this entry doesn't
4355	terminate the enumeration of the entries. */
4356	if (ret) {
4357	goto done;
4358	}
4359	/* But does terminate the group iteration. */
4360	break;
4361	}
4362	}
4363	break;
4364	}
4365	default:
4366	continue;
4367	}
4368	}
4369
4370	/* If ret is -1 here we didn't match on the user entry or
4371	supplemental group entries. */
4372
4373	DEBUG(10,("check_posix_acl_group_access: ret = %d before check_stat:\n", ret));
4374
4375	check_stat:
4376
4377	/*
4378	* We only check the S_I[RW]GRP permissions if we haven't already
4379	* seen an owning group SMB_ACL_GROUP_OBJ ace entry. If there is an
4380	* SMB_ACL_GROUP_OBJ ace entry then the group bits in st_gid are
4381	* the same as the SMB_ACL_MASK bits, not the SMB_ACL_GROUP_OBJ
4382	* bits. Thanks to Marc Cousin <mcousin@sigma.fr> for pointing
4383	* this out. JRA.
4384	*/
4385
4386	if (!seen_owning_group) {
4387	/* Do we match on the owning group entry ? */
4388	/*
4389	* Does it match the current effective group
4390	* or supplementary groups ?
4391	*/
4392	for (cu_gid = get_current_user_gid_first(&i); cu_gid != (gid_t)-1;
4393	cu_gid = get_current_user_gid_next(&i)) {
4394	if (cu_gid == psbuf->st_gid) {
4395	switch (access_mask) {
4396	case FILE_READ_DATA:
4397	ret = (psbuf->st_mode & S_IRGRP) ? 1 : 0;
4398	break;
4399	case FILE_WRITE_DATA:
4400	ret = (psbuf->st_mode & S_IWGRP) ? 1 : 0;
4401	break;
4402	default: /* FILE_READ_DATA\|FILE_WRITE_DATA */
4403	if ((psbuf->st_mode & (S_IWGRP\|S_IRGRP)) == (S_IWGRP\|S_IRGRP)) {
4404	ret = 1;
4405	} else {
4406	ret = 0;
4407	}
4408	break;
4409	}
4410	DEBUG(10,("check_posix_acl_group_access: file %s "
4411	"match on owning group %u -> %s.\n",
4412	fname, (unsigned int)psbuf->st_gid,
4413	ret ? "can access" : "cannot access"));
4414	break;
4415	}
4416	}
4417
4418	if (cu_gid == (gid_t)-1) {
4419	DEBUG(10,("check_posix_acl_group_access: file %s "
4420	"failed to match on user or group in token (ret = %d).\n",
4421	fname, ret ));
4422	}
4423	}
4424
4425	done:
4426
4427	if (posix_acl) {
4428	SMB_VFS_SYS_ACL_FREE_ACL(conn, posix_acl);
4429	}
4430
4431	DEBUG(10,("check_posix_acl_group_access: file %s returning (ret = %d).\n", fname, ret ));
4432	return ret;
4433	}
4434
4435	/****************************************************************************
4436	Actually emulate the in-kernel access checking for delete access. We need
4437	this to successfully return ACCESS_DENIED on a file open for delete access.
4438	****************************************************************************/
4439
4440	BOOL can_delete_file_in_directory(connection_struct conn, const char fname)
4441	{
4442	SMB_STRUCT_STAT sbuf;
4443	pstring dname;
4444	int ret;
4445
4446	if (!CAN_WRITE(conn)) {
4447	return False;
4448	}
4449
4450	/* Get the parent directory permission mask and owners. */
4451	pstrcpy(dname, parent_dirname(fname));
4452	if(SMB_VFS_STAT(conn, dname, &sbuf) != 0) {
4453	return False;
4454	}
4455	if (!S_ISDIR(sbuf.st_mode)) {
4456	return False;
4457	}
4458	if (current_user.ut.uid == 0 \|\| conn->admin_user) {
4459	/* I'm sorry sir, I didn't know you were root... */
4460	return True;
4461	}
4462
4463	/* Check primary owner write access. */
4464	if (current_user.ut.uid == sbuf.st_uid) {
4465	return (sbuf.st_mode & S_IWUSR) ? True : False;
4466	}
4467
4468	#ifdef S_ISVTX
4469	/* sticky bit means delete only by owner or root. */
4470	if (sbuf.st_mode & S_ISVTX) {
4471	SMB_STRUCT_STAT sbuf_file;
4472	if(SMB_VFS_STAT(conn, fname, &sbuf_file) != 0) {
4473	if (errno == ENOENT) {
4474	/* If the file doesn't already exist then
4475	* yes we'll be able to delete it. */
4476	return True;
4477	}
4478	return False;
4479	}
4480	/*
4481	* Patch from SATOH Fumiyasu <fumiyas@miraclelinux.com>
4482	* for bug #3348. Don't assume owning sticky bit
4483	* directory means write access allowed.
4484	*/
4485	if (current_user.ut.uid != sbuf_file.st_uid) {
4486	return False;
4487	}
4488	}
4489	#endif
4490
4491	/* Check group or explicit user acl entry write access. */
4492	ret = check_posix_acl_group_access(conn, dname, &sbuf, FILE_WRITE_DATA);
4493	if (ret == 0 \|\| ret == 1) {
4494	return ret ? True : False;
4495	}
4496
4497	/* Finally check other write access. */
4498	return (sbuf.st_mode & S_IWOTH) ? True : False;
4499	}
4500
4501	/****************************************************************************
4502	Actually emulate the in-kernel access checking for read/write access. We need
4503	this to successfully check for ability to write for dos filetimes.
4504	Note this doesn't take into account share write permissions.
4505	****************************************************************************/
4506
4507	BOOL can_access_file(connection_struct conn, const char fname, SMB_STRUCT_STAT *psbuf, uint32 access_mask)
4508	{
4509	int ret;
4510
4511	if (!(access_mask & (FILE_READ_DATA\|FILE_WRITE_DATA))) {
4512	return False;
4513	}
4514	access_mask &= (FILE_READ_DATA\|FILE_WRITE_DATA);
4515
4516	DEBUG(10,("can_access_file: requesting 0x%x on file %s\n",
4517	(unsigned int)access_mask, fname ));
4518
4519	#ifndef __OS2__
4520	/* Samba always runs as root on OS/2 */
4521	if (current_user.ut.uid == 0 \|\| conn->admin_user) {
4522	/* I'm sorry sir, I didn't know you were root... */
4523	return True;
4524	}
4525	#endif
4526	if (!VALID_STAT(*psbuf)) {
4527	/* Get the file permission mask and owners. */
4528	if(SMB_VFS_STAT(conn, fname, psbuf) != 0) {
4529	return False;
4530	}
4531	}
4532
4533	/* Check primary owner access. */
4534	if (current_user.ut.uid == psbuf->st_uid) {
4535	switch (access_mask) {
4536	case FILE_READ_DATA:
4537	return (psbuf->st_mode & S_IRUSR) ? True : False;
4538
4539	case FILE_WRITE_DATA:
4540	return (psbuf->st_mode & S_IWUSR) ? True : False;
4541
4542	default: /* FILE_READ_DATA\|FILE_WRITE_DATA */
4543
4544	if ((psbuf->st_mode & (S_IWUSR\|S_IRUSR)) == (S_IWUSR\|S_IRUSR)) {
4545	return True;
4546	} else {
4547	return False;
4548	}
4549	}
4550	}
4551
4552	/* Check group or explicit user acl entry access. */
4553	ret = check_posix_acl_group_access(conn, fname, psbuf, access_mask);
4554	if (ret == 0 \|\| ret == 1) {
4555	return ret ? True : False;
4556	}
4557
4558	/* Finally check other access. */
4559	switch (access_mask) {
4560	case FILE_READ_DATA:
4561	return (psbuf->st_mode & S_IROTH) ? True : False;
4562
4563	case FILE_WRITE_DATA:
4564	return (psbuf->st_mode & S_IWOTH) ? True : False;
4565
4566	default: /* FILE_READ_DATA\|FILE_WRITE_DATA */
4567
4568	if ((psbuf->st_mode & (S_IWOTH\|S_IROTH)) == (S_IWOTH\|S_IROTH)) {
4569	return True;
4570	}
4571	}
4572	return False;
4573	}
4574
4575	/****************************************************************************
4576	Userspace check for write access.
4577	Note this doesn't take into account share write permissions.
4578	****************************************************************************/
4579
4580	BOOL can_write_to_file(connection_struct conn, const char fname, SMB_STRUCT_STAT *psbuf)
4581	{
4582	return can_access_file(conn, fname, psbuf, FILE_WRITE_DATA);
4583	}
4584
4585	/********************************************************************
4586	Pull the NT ACL from a file on disk or the OpenEventlog() access
4587	check. Caller is responsible for freeing the returned security
4588	descriptor via TALLOC_FREE(). This is designed for dealing with
4589	user space access checks in smbd outside of the VFS. For example,
4590	checking access rights in OpenEventlog().
4591
4592	Assume we are dealing with files (for now)
4593	********************************************************************/
4594
4595	SEC_DESC* get_nt_acl_no_snum( TALLOC_CTX ctx, const char fname)
4596	{
4597	SEC_DESC psd, ret_sd;
4598	connection_struct conn;
4599	files_struct finfo;
4600	struct fd_handle fh;
4601	pstring path;
4602	pstring filename;
4603
4604	ZERO_STRUCT( conn );
4605
4606	if ( !(conn.mem_ctx = talloc_init( "novfs_get_nt_acl" )) ) {
4607	DEBUG(0,("get_nt_acl_no_snum: talloc() failed!\n"));
4608	return NULL;
4609	}
4610
4611	if (!(conn.params = TALLOC_P(conn.mem_ctx, struct share_params))) {
4612	DEBUG(0,("get_nt_acl_no_snum: talloc() failed!\n"));
4613	TALLOC_FREE(conn.mem_ctx);
4614	return NULL;
4615	}
4616
4617	conn.params->service = -1;
4618
4619	pstrcpy( path, "/" );
4620	set_conn_connectpath(&conn, path);
4621
4622	if (!smbd_vfs_init(&conn)) {
4623	DEBUG(0,("get_nt_acl_no_snum: Unable to create a fake connection struct!\n"));
4624	conn_free_internal( &conn );
4625	return NULL;
4626	}
4627
4628	ZERO_STRUCT( finfo );
4629	ZERO_STRUCT( fh );
4630
4631	finfo.fnum = -1;
4632	finfo.conn = &conn;
4633	finfo.fh = &fh;
4634	finfo.fh->fd = -1;
4635	pstrcpy( filename, fname );
4636	finfo.fsp_name = filename;
4637
4638	if (get_nt_acl( &finfo, DACL_SECURITY_INFORMATION, &psd ) == 0) {
4639	DEBUG(0,("get_nt_acl_no_snum: get_nt_acl returned zero.\n"));
4640	conn_free_internal( &conn );
4641	return NULL;
4642	}
4643
4644	ret_sd = dup_sec_desc( ctx, psd );
4645
4646	conn_free_internal( &conn );
4647
4648	return ret_sd;
4649	}

Note: See TracBrowser for help on using the repository browser.

Download in other formats: