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