Context Navigation

source: branches/samba-3.0/source/smbd/posix_acls.c

Visit:

Last change on this file was 312, checked in by Herwig Bauernfeind, 16 years ago
Update 3.0 to final 3.0.36 (source)
File size: 133.2 KB

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

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

Download in other formats: