Context Navigation

source: branches/samba-3.2.x/source/smbd/posix_acls.c

Visit:

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

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

Download in other formats: