vfs: Use posix_sys_acl_blob_get_file in vfs_aixacl2 for posix ACLs
[kai/samba.git] / source3 / modules / vfs_aixacl2.c
1 /*
2  * Convert JFS2 NFS4/AIXC acls to NT acls and vice versa.
3  *
4  * Copyright (C) Volker Lendecke, 2006
5  *
6  * This program is free software; you can redistribute it and/or modify
7  * it under the terms of the GNU General Public License as published by
8  * the Free Software Foundation; either version 3 of the License, or
9  * (at your option) any later version.
10  *
11  * This program is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14  * GNU General Public License for more details.
15  *
16  * You should have received a copy of the GNU General Public License
17  * along with this program; if not, see <http://www.gnu.org/licenses/>.
18  */
19
20 #include "includes.h"
21 #include "system/filesys.h"
22 #include "smbd/smbd.h"
23 #include "nfs4_acls.h"
24
25 #undef DBGC_CLASS
26 #define DBGC_CLASS DBGC_VFS
27
28 #define AIXACL2_MODULE_NAME "aixacl2"
29
30 extern SMB_ACL_T aixacl_to_smbacl( struct acl *file_acl);
31 extern struct acl *aixacl_smb_to_aixacl(SMB_ACL_TYPE_T acltype, SMB_ACL_T theacl);
32
33 typedef union aixjfs2_acl_t {
34         nfs4_acl_int_t jfs2_acl[1];
35         aixc_acl_t aixc_acl[1];
36 }AIXJFS2_ACL_T;
37
38 static int32_t aixacl2_getlen(AIXJFS2_ACL_T *acl, acl_type_t *type)
39 {
40         int32_t len;
41  
42                 if(type->u64 == ACL_NFS4) {
43                         len = acl->jfs2_acl[0].aclLength;
44                 }       
45                 else {
46                         if(type->u64 == ACL_AIXC) {
47                                 len = acl->aixc_acl[0].acl_len;
48                         } else {
49                                 DEBUG(0,("aixacl2_getlen:unknown type:%d\n",type->u64));
50                                 return False;
51                         }       
52                 }               
53                 DEBUG(10,("aixacl2_getlen:%d\n",len));
54         return len;
55 }
56
57 static AIXJFS2_ACL_T *aixjfs2_getacl_alloc(const char *fname, acl_type_t *type)
58 {
59         AIXJFS2_ACL_T *acl;
60         size_t len = 200;
61         mode_t mode;
62         int ret;
63         uint64_t ctl_flag=0;
64         TALLOC_CTX      *mem_ctx;
65
66         mem_ctx = talloc_tos();
67         acl = (AIXJFS2_ACL_T *)TALLOC_SIZE(mem_ctx, len);
68         if (acl == NULL) {
69                 errno = ENOMEM;
70                 return NULL;
71         }
72
73         if(type->u64 == ACL_ANY) {
74                 ctl_flag = ctl_flag | GET_ACLINFO_ONLY;
75         }
76
77         ret = aclx_get((char *)fname, ctl_flag, type, acl, &len, &mode);
78         if ((ret != 0) && (errno == ENOSPC)) {
79                 len = aixacl2_getlen(acl, type) + sizeof(AIXJFS2_ACL_T);
80                 DEBUG(10,("aixjfs2_getacl_alloc - acl_len:%d\n",len));
81
82                 acl = (AIXJFS2_ACL_T *)TALLOC_SIZE(mem_ctx, len);
83                 if (acl == NULL) {
84                         errno = ENOMEM;
85                         return NULL;
86                 }
87
88                 ret = aclx_get((char *)fname, ctl_flag, type, acl, &len, &mode);
89         }
90         if (ret != 0) {
91                 DEBUG(8, ("aclx_get failed with %s\n", strerror(errno)));
92                 return NULL;
93         }
94
95         return acl;
96 }
97
98 static bool aixjfs2_get_nfs4_acl(const char *name,
99         SMB4ACL_T **ppacl, bool *pretryPosix)
100 {
101         int32_t i;
102         
103         AIXJFS2_ACL_T *pacl = NULL;
104         nfs4_acl_int_t *jfs2_acl = NULL;
105         nfs4_ace_int_t *jfs2_ace = NULL;
106         acl_type_t type;
107
108         DEBUG(10,("jfs2 get_nt_acl invoked for %s\n", name));
109
110         memset(&type, 0, sizeof(acl_type_t));
111         type.u64 = ACL_NFS4;
112
113         pacl = aixjfs2_getacl_alloc(name, &type);
114         if (pacl == NULL) {
115                 DEBUG(9, ("aixjfs2_getacl_alloc failed for %s with %s\n",
116                                 name, strerror(errno)));
117                 if (errno==ENOSYS)
118                         *pretryPosix = True;
119                 return False;
120         }
121
122         jfs2_acl = &pacl->jfs2_acl[0];
123         DEBUG(10, ("len: %d, version: %d, nace: %d, type: 0x%x\n",
124                         jfs2_acl->aclLength, jfs2_acl->aclVersion, jfs2_acl->aclEntryN, type.u64));
125
126         *ppacl = smb_create_smb4acl();
127         if (*ppacl==NULL)
128                 return False;
129
130         jfs2_ace = &jfs2_acl->aclEntry[0];
131         for (i=0; i<jfs2_acl->aclEntryN; i++) {
132                 SMB_ACE4PROP_T aceprop;
133
134                 DEBUG(10, ("type: %d, iflags: %x, flags: %x, mask: %x, "
135                                 "who: %d, aclLen: %d\n", jfs2_ace->aceType, jfs2_ace->flags,
136                                 jfs2_ace->aceFlags, jfs2_ace->aceMask, jfs2_ace->aceWho.id, jfs2_ace->entryLen));
137
138                 aceprop.aceType = jfs2_ace->aceType;
139                 aceprop.aceFlags = jfs2_ace->aceFlags;
140                 aceprop.aceMask = jfs2_ace->aceMask;
141                 aceprop.flags = (jfs2_ace->flags&ACE4_ID_SPECIAL) ? SMB_ACE4_ID_SPECIAL : 0;
142
143                 /* don't care it's real content is only 16 or 32 bit */
144                 aceprop.who.id = jfs2_ace->aceWho.id;
145
146                 if (smb_add_ace4(*ppacl, &aceprop)==NULL)
147                         return False;
148
149                 /* iterate to the next jfs2 ace */
150                 jfs2_ace = (nfs4_ace_int_t *)(((char *)jfs2_ace) + jfs2_ace->entryLen);
151         }
152
153         DEBUG(10,("jfs2 get_nt_acl finished successfully\n"));
154
155         return True;
156 }
157
158 static NTSTATUS aixjfs2_fget_nt_acl(vfs_handle_struct *handle,
159         files_struct *fsp, uint32 security_info,
160         TALLOC_CTX *mem_ctx,
161         struct security_descriptor **ppdesc)
162 {
163         SMB4ACL_T *pacl = NULL;
164         bool    result;
165         bool    retryPosix = False;
166
167         *ppdesc = NULL;
168         result = aixjfs2_get_nfs4_acl(fsp->fsp_name->base_name, &pacl,
169                                       &retryPosix);
170         if (retryPosix)
171         {
172                 DEBUG(10, ("retrying with posix acl...\n"));
173                 return posix_fget_nt_acl(fsp, security_info,
174                                          mem_ctx, ppdesc);
175         }
176         if (result==False)
177                 return NT_STATUS_ACCESS_DENIED;
178
179         return smb_fget_nt_acl_nfs4(fsp, security_info, ppdesc,
180                                     mem_ctx, pacl);
181 }
182
183 static NTSTATUS aixjfs2_get_nt_acl(vfs_handle_struct *handle,
184         const char *name,
185         uint32 security_info,
186         TALLOC_CTX *mem_ctx,
187         struct security_descriptor **ppdesc)
188 {
189         SMB4ACL_T *pacl = NULL;
190         bool    result;
191         bool    retryPosix = False;
192
193         *ppdesc = NULL;
194         result = aixjfs2_get_nfs4_acl(name, &pacl, &retryPosix);
195         if (retryPosix)
196         {
197                 DEBUG(10, ("retrying with posix acl...\n"));
198                 return posix_get_nt_acl(handle->conn, name, security_info,
199                                         mem_ctx, ppdesc);
200         }
201         if (result==False)
202                 return NT_STATUS_ACCESS_DENIED;
203
204         return smb_get_nt_acl_nfs4(handle->conn, name, security_info,
205                                    mem_ctx, ppdesc,
206                                    pacl);
207 }
208
209 static int aixjfs2_sys_acl_blob_get_file(vfs_handle_struct *handle, const char *path_p, TALLOC_CTX *mem_ctx, char **blob_description, DATA_BLOB *blob)
210 {
211         SMB4ACL_T *pacl = NULL;
212         bool    result;
213         bool    retryPosix = False;
214
215         *ppdesc = NULL;
216         result = aixjfs2_get_nfs4_acl(path_p, &pacl, &retryPosix);
217         if (retryPosix)
218         {
219                 return posix_sys_acl_blob_get_file(handle, path_p, mem_ctx,
220                                                    blob_description, blob);
221         }
222         /* Now way to linarlise NFS4 ACLs at the moment, but the NT ACL is pretty close in this case */
223         errno = ENOSYS;
224         return -1;
225 }
226
227 static int aixjfs2_sys_acl_blob_get_fd(vfs_handle_struct *handle, files_struct *fsp, TALLOC_CTX *mem_ctx, char **blob_description, DATA_BLOB *blob)
228 {
229         SMB4ACL_T *pacl = NULL;
230         bool    result;
231         bool    retryPosix = False;
232
233         result = aixjfs2_get_nfs4_acl(fsp->fsp_name->base_name, &pacl,
234                                       &retryPosix);
235         if (retryPosix)
236         {
237                 return posix_sys_acl_blob_get_fd(handle, fsp, mem_ctx, blob_description, blob);
238         }
239
240         /* Now way to linarlise NFS4 ACLs at the moment, but the NT ACL is pretty close in this case */
241         errno = ENOSYS;
242         return -1;
243 }
244
245 static SMB_ACL_T aixjfs2_get_posix_acl(const char *path, acl_type_t type, TALLOC_CTX *mem_ctx)
246 {
247         aixc_acl_t *pacl;
248         AIXJFS2_ACL_T *acl;
249         SMB_ACL_T result = NULL;
250         int ret;
251
252         acl = aixjfs2_getacl_alloc(path, &type);
253
254         if (acl == NULL) {
255                 DEBUG(10, ("aixjfs2_getacl failed for %s with %s\n",
256                            path, strerror(errno)));
257                 if (errno == 0) {
258                         errno = EINVAL;
259                 }
260                 goto done;
261         }
262
263         pacl = &acl->aixc_acl[0];
264         DEBUG(10, ("len: %d, mode: %d\n",
265                    pacl->acl_len, pacl->acl_mode));
266
267         result = aixacl_to_smbacl(pacl, mem_ctx);
268         if (result == NULL) {
269                 goto done;
270         }
271
272  done:
273         if (errno != 0) {
274                 TALLOC_FREE(result);
275         }
276         return result;
277 }
278
279 SMB_ACL_T aixjfs2_sys_acl_get_file(vfs_handle_struct *handle,
280                                     const char *path_p,
281                                    SMB_ACL_TYPE_T type,
282                                    TALLOC_CTX *mem_ctx)
283 {
284         acl_type_t aixjfs2_type;
285
286         switch(type) {
287         case SMB_ACL_TYPE_ACCESS:
288                 aixjfs2_type.u64 = ACL_AIXC;
289                 break;
290         case SMB_ACL_TYPE_DEFAULT:
291                 DEBUG(0, ("Got AIX JFS2 unsupported type: %d\n", type));
292                 return NULL;
293         default:
294                 DEBUG(0, ("Got invalid type: %d\n", type));
295                 smb_panic("exiting");
296         }
297
298         return aixjfs2_get_posix_acl(path_p, aixjfs2_type, mem_ctx);
299 }
300
301 SMB_ACL_T aixjfs2_sys_acl_get_fd(vfs_handle_struct *handle,
302                                   files_struct *fsp)
303 {
304         acl_type_t aixjfs2_type;
305         aixjfs2_type.u64 = ACL_AIXC;
306
307         return aixjfs2_get_posix_acl(fsp->fsp_name->base_name, aixjfs2_type);
308 }
309
310 /*
311  * Test whether we have that aclType support on the given path
312  */
313 static int aixjfs2_query_acl_support(
314         char *filepath,
315         uint64_t aclType,
316         acl_type_t *pacl_type_info
317 )
318 {
319         acl_types_list_t        acl_type_list;
320         size_t  acl_type_list_len = sizeof(acl_types_list_t);
321         uint32_t        i;
322
323         memset(&acl_type_list, 0, sizeof(acl_type_list));
324
325         if (aclx_gettypes(filepath, &acl_type_list, &acl_type_list_len)) {
326                 DEBUG(2, ("aclx_gettypes failed with error %s for %s\n",
327                         strerror(errno), filepath));
328                 return -1;
329         }
330
331         for(i=0; i<acl_type_list.num_entries; i++) {
332                 if (acl_type_list.entries[i].u64==aclType) {
333                         memcpy(pacl_type_info, acl_type_list.entries + i, sizeof(acl_type_t));
334                         DEBUG(10, ("found %s ACL support for %s\n",
335                                 pacl_type_info->acl_type, filepath));
336                         return 0;
337                 }
338         }
339
340         return 1; /* haven't found that ACL type. */
341 }
342
343 static bool aixjfs2_process_smbacl(files_struct *fsp, SMB4ACL_T *smbacl)
344 {
345         SMB4ACE_T       *smbace;
346         TALLOC_CTX      *mem_ctx;
347         nfs4_acl_int_t  *jfs2acl;
348         int32_t entryLen;
349         uint32  aclLen, naces;
350         int     rc;
351         acl_type_t      acltype;
352
353         DEBUG(10, ("jfs2_process_smbacl invoked on %s\n", fsp_str_dbg(fsp)));
354
355         /* no need to be freed which is alloced with mem_ctx */
356         mem_ctx = talloc_tos();
357
358         entryLen = sizeof(nfs4_ace_int_t);
359         if (entryLen & 0x03)
360                 entryLen = entryLen + 4 - (entryLen%4);
361
362         naces = smb_get_naces(smbacl);
363         aclLen = ACL_V4_SIZ + naces * entryLen;
364         jfs2acl = (nfs4_acl_int_t *)TALLOC_SIZE(mem_ctx, aclLen);
365         if (jfs2acl==NULL) {
366                 DEBUG(0, ("TALLOC_SIZE failed\n"));
367                 errno = ENOMEM;
368                 return False;
369         }
370
371         jfs2acl->aclLength = ACL_V4_SIZ;
372         jfs2acl->aclVersion = NFS4_ACL_INT_STRUCT_VERSION;
373         jfs2acl->aclEntryN = 0;
374
375         for(smbace = smb_first_ace4(smbacl); smbace!=NULL; smbace = smb_next_ace4(smbace))
376         {
377                 SMB_ACE4PROP_T *aceprop = smb_get_ace4(smbace);
378                 nfs4_ace_int_t *jfs2_ace = (nfs4_ace_int_t *)(((char *)jfs2acl) + jfs2acl->aclLength);
379
380                 memset(jfs2_ace, 0, entryLen);
381                 jfs2_ace->entryLen = entryLen; /* won't store textual "who" */
382                 jfs2_ace->aceType = aceprop->aceType; /* only ACCES|DENY supported by jfs2 */
383                 jfs2_ace->aceFlags = aceprop->aceFlags;
384                 jfs2_ace->aceMask = aceprop->aceMask;
385                 jfs2_ace->flags = (aceprop->flags&SMB_ACE4_ID_SPECIAL) ? ACE4_ID_SPECIAL : 0;
386
387                 /* don't care it's real content is only 16 or 32 bit */
388                 jfs2_ace->aceWho.id = aceprop->who.id;
389
390                 /* iterate to the next jfs2 ace */
391                 jfs2acl->aclLength += jfs2_ace->entryLen;
392                 jfs2acl->aclEntryN++;
393         }
394         SMB_ASSERT(jfs2acl->aclEntryN==naces);
395
396         /* Don't query it (again) */
397         memset(&acltype, 0, sizeof(acl_type_t));
398         acltype.u64 = ACL_NFS4;
399
400         /* won't set S_ISUID - the only one JFS2/NFS4 accepts */
401         rc = aclx_put(
402                 fsp->fsp_name->base_name,
403                 SET_ACL, /* set only the ACL, not mode bits */
404                 acltype, /* not a pointer !!! */
405                 jfs2acl,
406                 jfs2acl->aclLength,
407                 0 /* don't set here mode bits */
408         );
409         if (rc) {
410                 DEBUG(8, ("aclx_put failed with %s\n", strerror(errno)));
411                 return False;
412         }
413
414         DEBUG(10, ("jfs2_process_smbacl succeeded.\n"));
415         return True;
416 }
417
418 static NTSTATUS aixjfs2_set_nt_acl_common(files_struct *fsp, uint32 security_info_sent, const struct security_descriptor *psd)
419 {
420         acl_type_t      acl_type_info;
421         NTSTATUS        result = NT_STATUS_ACCESS_DENIED;
422         int     rc;
423
424         rc = aixjfs2_query_acl_support(
425                 fsp->fsp_name,
426                 ACL_NFS4,
427                 &acl_type_info);
428
429         if (rc==0)
430         {
431                 result = smb_set_nt_acl_nfs4(
432                         fsp, security_info_sent, psd,
433                         aixjfs2_process_smbacl);
434         } else if (rc==1) { /* assume POSIX ACL - by default... */
435                 result = set_nt_acl(fsp, security_info_sent, psd);
436         } else
437                 result = map_nt_error_from_unix(errno); /* query failed */
438         
439         return result;
440 }
441
442 NTSTATUS aixjfs2_fset_nt_acl(vfs_handle_struct *handle, files_struct *fsp, uint32 security_info_sent, const struct security_descriptor *psd)
443 {
444         return aixjfs2_set_nt_acl_common(fsp, security_info_sent, psd);
445 }
446
447 int aixjfs2_sys_acl_set_file(vfs_handle_struct *handle,
448                               const char *name,
449                               SMB_ACL_TYPE_T type,
450                               SMB_ACL_T theacl)
451 {
452         struct acl      *acl_aixc;
453         acl_type_t      acl_type_info;
454         int     rc;
455
456         DEBUG(10, ("aixjfs2_sys_acl_set_file invoked for %s", name));
457
458         rc = aixjfs2_query_acl_support((char *)name, ACL_AIXC, &acl_type_info);
459         if (rc) {
460                 DEBUG(8, ("jfs2_set_nt_acl: AIXC support not found\n"));
461                 return -1;
462         }
463
464         acl_aixc = aixacl_smb_to_aixacl(type, theacl);
465         if (!acl_aixc)
466                 return -1;
467
468         rc = aclx_put(
469                 (char *)name,
470                 SET_ACL, /* set only the ACL, not mode bits */
471                 acl_type_info,
472                 acl_aixc,
473                 acl_aixc->acl_len,
474                 0
475         );
476         if (rc) {
477                 DEBUG(2, ("aclx_put failed with %s for %s\n",
478                         strerror(errno), name));
479                 return -1;
480         }
481
482         return 0;
483 }
484
485 int aixjfs2_sys_acl_set_fd(vfs_handle_struct *handle,
486                             files_struct *fsp,
487                             SMB_ACL_T theacl)
488 {
489         struct acl      *acl_aixc;
490         acl_type_t      acl_type_info;
491         int     rc;
492
493         DEBUG(10, ("aixjfs2_sys_acl_set_fd invoked for %s", fsp_str_dbg(fsp)));
494
495         rc = aixjfs2_query_acl_support(fsp->fsp_name->base_name, ACL_AIXC,
496                                        &acl_type_info);
497         if (rc) {
498                 DEBUG(8, ("jfs2_set_nt_acl: AIXC support not found\n"));
499                 return -1;
500         }
501
502         acl_aixc = aixacl_smb_to_aixacl(SMB_ACL_TYPE_ACCESS, theacl);
503         if (!acl_aixc)
504                 return -1;
505
506         rc = aclx_fput(
507                 fsp->fh->fd,
508                 SET_ACL, /* set only the ACL, not mode bits */
509                 acl_type_info,
510                 acl_aixc,
511                 acl_aixc->acl_len,
512                 0
513         );
514         if (rc) {
515                 DEBUG(2, ("aclx_fput failed with %s for %s\n",
516                         strerror(errno), fsp_str_dbg(fsp)));
517                 return -1;
518         }
519
520         return 0;
521 }
522
523 int aixjfs2_sys_acl_delete_def_file(vfs_handle_struct *handle,
524                                      const char *path)
525 {
526         /* Not available under AIXC ACL */
527         /* Don't report here any error otherwise */
528         /* upper layer will break the normal execution */
529         return 0;
530 }
531
532 static struct vfs_fn_pointers vfs_aixacl2_fns = {
533         .fget_nt_acl_fn = aixjfs2_fget_nt_acl,
534         .get_nt_acl_fn = aixjfs2_get_nt_acl,
535         .fset_nt_acl_fn = aixjfs2_fset_nt_acl,
536         .sys_acl_get_file_fn = aixjfs2_sys_acl_get_file,
537         .sys_acl_get_fd_fn = aixjfs2_sys_acl_get_fd,
538         .sys_acl_blob_get_file_fn = aixjfs2_sys_acl_blob_get_file,
539         .sys_acl_blob_get_fd_fn = aixjfs2_sys_acl_blob_get_fd,
540         .sys_acl_set_file_fn = aixjfs2_sys_acl_set_file,
541         .sys_acl_set_fd_fn = aixjfs2_sys_acl_set_fd,
542         .sys_acl_delete_def_file_fn = aixjfs2_sys_acl_delete_def_file
543 };
544
545 NTSTATUS vfs_aixacl2_init(void);
546 NTSTATUS vfs_aixacl2_init(void)
547 {
548         return smb_register_vfs(SMB_VFS_INTERFACE_VERSION, AIXACL2_MODULE_NAME,
549                                 &vfs_aixacl2_fns);
550 }