fa0b4e97a5c1716a3f7635526b2897abb63072dc
[abartlet/samba.git/.git] / source3 / modules / vfs_gpfs.c
1 /*
2    Unix SMB/CIFS implementation.
3    Wrap gpfs calls in vfs functions.
4  
5    Copyright (C) Christian Ambach <cambach1@de.ibm.com> 2006
6    
7    Major code contributions by Chetan Shringarpure <chetan.sh@in.ibm.com>
8                             and Gomati Mohanan <gomati.mohanan@in.ibm.com>
9    
10    This program is free software; you can redistribute it and/or modify
11    it under the terms of the GNU General Public License as published by
12    the Free Software Foundation; either version 3 of the License, or
13    (at your option) any later version.
14    
15    This program is distributed in the hope that it will be useful,
16    but WITHOUT ANY WARRANTY; without even the implied warranty of
17    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
18    GNU General Public License for more details.
19    
20    You should have received a copy of the GNU General Public License
21    along with this program.  If not, see <http://www.gnu.org/licenses/>.
22   
23
24 */
25
26 #include "includes.h"
27
28 #undef DBGC_CLASS
29 #define DBGC_CLASS DBGC_VFS
30
31 #include <gpfs_gpl.h>
32 #include "nfs4_acls.h"
33 #include "vfs_gpfs.h"
34
35 static int vfs_gpfs_kernel_flock(vfs_handle_struct *handle, files_struct *fsp, 
36                                  uint32 share_mode)
37 {
38
39         START_PROFILE(syscall_kernel_flock);
40
41         kernel_flock(fsp->fh->fd, share_mode);
42
43         if (!set_gpfs_sharemode(fsp, fsp->access_mask, fsp->share_access)) {
44
45                 return -1;
46
47         }
48
49         END_PROFILE(syscall_kernel_flock);
50
51         return 0;
52 }
53
54 static int vfs_gpfs_setlease(vfs_handle_struct *handle, files_struct *fsp, 
55                              int leasetype)
56 {
57         int ret;
58         
59         START_PROFILE(syscall_linux_setlease);
60         
61         if ( linux_set_lease_sighandler(fsp->fh->fd) == -1)
62                 return -1;
63
64         ret = set_gpfs_lease(fsp->fh->fd,leasetype);
65         
66         if ( ret < 0 ) {
67                 /* This must have come from GPFS not being available */
68                 /* or some other error, hence call the default */
69                 ret = linux_setlease(fsp->fh->fd, leasetype);
70         }
71
72         END_PROFILE(syscall_linux_setlease);
73
74         return ret;
75 }
76
77
78
79 static void gpfs_dumpacl(int level, struct gpfs_acl *gacl)
80 {
81         int     i;
82         if (gacl==NULL)
83         {
84                 DEBUG(0, ("gpfs acl is NULL\n"));
85                 return;
86         }
87
88         DEBUG(level, ("gpfs acl: nace: %d, type:%d, version:%d, level:%d, len:%d\n",
89                 gacl->acl_nace, gacl->acl_type, gacl->acl_version, gacl->acl_level, gacl->acl_len));
90         for(i=0; i<gacl->acl_nace; i++)
91         {
92                 struct gpfs_ace_v4 *gace = gacl->ace_v4 + i;
93                 DEBUG(level, ("\tace[%d]: type:%d, flags:0x%x, mask:0x%x, iflags:0x%x, who:%u\n",
94                         i, gace->aceType, gace->aceFlags, gace->aceMask,
95                         gace->aceIFlags, gace->aceWho));
96         }
97 }
98
99 static struct gpfs_acl *gpfs_getacl_alloc(const char *fname, gpfs_aclType_t type)
100 {
101         struct gpfs_acl *acl;
102         size_t len = 200;
103         int ret;
104         TALLOC_CTX *mem_ctx = talloc_tos();
105
106         acl = (struct gpfs_acl *)TALLOC_SIZE(mem_ctx, len);
107         if (acl == NULL) {
108                 errno = ENOMEM;
109                 return NULL;
110         }
111
112         acl->acl_len = len;
113         acl->acl_level = 0;
114         acl->acl_version = 0;
115         acl->acl_type = type;
116
117         ret = smbd_gpfs_getacl((char *)fname, GPFS_GETACL_STRUCT | GPFS_ACL_SAMBA, acl);
118         if ((ret != 0) && (errno == ENOSPC)) {
119                 struct gpfs_acl *new_acl = (struct gpfs_acl *)TALLOC_SIZE(
120                         mem_ctx, acl->acl_len + sizeof(struct gpfs_acl));
121                 if (new_acl == NULL) {
122                         errno = ENOMEM;
123                         return NULL;
124                 }
125
126                 new_acl->acl_len = acl->acl_len;
127                 new_acl->acl_level = acl->acl_level;
128                 new_acl->acl_version = acl->acl_version;
129                 new_acl->acl_type = acl->acl_type;
130                 acl = new_acl;
131
132                 ret = smbd_gpfs_getacl((char *)fname, GPFS_GETACL_STRUCT | GPFS_ACL_SAMBA, acl);
133         }
134         if (ret != 0)
135         {
136                 DEBUG(8, ("smbd_gpfs_getacl failed with %s\n",strerror(errno)));
137                 return NULL;
138         }
139
140         return acl;
141 }
142
143 /* Tries to get nfs4 acls and returns SMB ACL allocated.
144  * On failure returns 1 if it got non-NFSv4 ACL to prompt 
145  * retry with POSIX ACL checks.
146  * On failure returns -1 if there is system (GPFS) error, check errno.
147  * Returns 0 on success
148  */
149 static int gpfs_get_nfs4_acl(const char *fname, SMB4ACL_T **ppacl)
150 {
151         int i;
152         struct gpfs_acl *gacl = NULL;
153         DEBUG(10, ("gpfs_get_nfs4_acl invoked for %s\n", fname));
154
155         /* First get the real acl length */
156         gacl = gpfs_getacl_alloc(fname, 0);
157         if (gacl == NULL) {
158                 DEBUG(9, ("gpfs_getacl failed for %s with %s\n",
159                            fname, strerror(errno)));
160                 return -1;
161         }
162
163         if (gacl->acl_type != GPFS_ACL_TYPE_NFS4) {
164                 DEBUG(10, ("Got non-nfsv4 acl\n"));
165                 /* Retry with POSIX ACLs check */
166                 return 1;
167         }
168
169         *ppacl = smb_create_smb4acl();
170
171         DEBUG(10, ("len: %d, level: %d, version: %d, nace: %d\n",
172                    gacl->acl_len, gacl->acl_level, gacl->acl_version,
173                    gacl->acl_nace));
174
175         for (i=0; i<gacl->acl_nace; i++) {
176                 struct gpfs_ace_v4 *gace = &gacl->ace_v4[i];
177                 SMB_ACE4PROP_T smbace;
178                 DEBUG(10, ("type: %d, iflags: %x, flags: %x, mask: %x, "
179                            "who: %d\n", gace->aceType, gace->aceIFlags,
180                            gace->aceFlags, gace->aceMask, gace->aceWho));
181
182                 ZERO_STRUCT(smbace);
183                 if (gace->aceIFlags & ACE4_IFLAG_SPECIAL_ID) {
184                         smbace.flags |= SMB_ACE4_ID_SPECIAL;
185                         switch (gace->aceWho) {
186                         case ACE4_SPECIAL_OWNER:
187                                 smbace.who.special_id = SMB_ACE4_WHO_OWNER;
188                                 break;
189                         case ACE4_SPECIAL_GROUP:
190                                 smbace.who.special_id = SMB_ACE4_WHO_GROUP;
191                                 break;
192                         case ACE4_SPECIAL_EVERYONE:
193                                 smbace.who.special_id = SMB_ACE4_WHO_EVERYONE;
194                                 break;
195                         default:
196                                 DEBUG(8, ("invalid special gpfs id %d "
197                                           "ignored\n", gace->aceWho));
198                                 continue; /* don't add it */
199                         }
200                 } else {
201                         if (gace->aceFlags & ACE4_FLAG_GROUP_ID)
202                                 smbace.who.gid = gace->aceWho;
203                         else
204                                 smbace.who.uid = gace->aceWho;
205                 }
206
207                 /* remove redundent deny entries */
208                 if (i > 0 && gace->aceType == SMB_ACE4_ACCESS_DENIED_ACE_TYPE) {
209                         struct gpfs_ace_v4 *prev = &gacl->ace_v4[i-1];
210                         if (prev->aceType == SMB_ACE4_ACCESS_ALLOWED_ACE_TYPE &&
211                             prev->aceFlags == gace->aceFlags &&
212                             prev->aceIFlags == gace->aceIFlags &&
213                             (gace->aceMask & prev->aceMask) == 0 &&
214                             gace->aceWho == prev->aceWho) {
215                                 /* its redundent - skip it */
216                                 continue;
217                         }                                                
218                 }
219
220                 smbace.aceType = gace->aceType;
221                 smbace.aceFlags = gace->aceFlags;
222                 smbace.aceMask = gace->aceMask;
223                 smb_add_ace4(*ppacl, &smbace);
224         }
225
226         return 0;
227 }
228
229 static NTSTATUS gpfsacl_fget_nt_acl(vfs_handle_struct *handle,
230         files_struct *fsp, uint32 security_info,
231         SEC_DESC **ppdesc)
232 {
233         SMB4ACL_T *pacl = NULL;
234         int     result;
235
236         *ppdesc = NULL;
237         result = gpfs_get_nfs4_acl(fsp->fsp_name, &pacl);
238
239         if (result == 0)
240                 return smb_fget_nt_acl_nfs4(fsp, security_info, ppdesc, pacl);
241
242         if (result > 0) {
243                 DEBUG(10, ("retrying with posix acl...\n"));
244                 return posix_fget_nt_acl(fsp, security_info, ppdesc);
245         }
246
247         /* GPFS ACL was not read, something wrong happened, error code is set in errno */
248         return map_nt_error_from_unix(errno);
249 }
250
251 static NTSTATUS gpfsacl_get_nt_acl(vfs_handle_struct *handle,
252         const char *name,
253         uint32 security_info, SEC_DESC **ppdesc)
254 {
255         SMB4ACL_T *pacl = NULL;
256         int     result;
257
258         *ppdesc = NULL;
259         result = gpfs_get_nfs4_acl(name, &pacl);
260
261         if (result == 0)
262                 return smb_get_nt_acl_nfs4(handle->conn, name, security_info, ppdesc, pacl);
263
264         if (result > 0) {
265                 DEBUG(10, ("retrying with posix acl...\n"));
266                 return posix_get_nt_acl(handle->conn, name, security_info, ppdesc);
267         }
268
269         /* GPFS ACL was not read, something wrong happened, error code is set in errno */
270         return map_nt_error_from_unix(errno);
271 }
272
273 static bool gpfsacl_process_smbacl(files_struct *fsp, SMB4ACL_T *smbacl)
274 {
275         int ret;
276         gpfs_aclLen_t gacl_len;
277         SMB4ACE_T       *smbace;
278         struct gpfs_acl *gacl;
279         TALLOC_CTX *mem_ctx  = talloc_tos();
280
281         gacl_len = sizeof(struct gpfs_acl) +
282                 (smb_get_naces(smbacl)-1)*sizeof(gpfs_ace_v4_t);
283
284         gacl = TALLOC_SIZE(mem_ctx, gacl_len);
285         if (gacl == NULL) {
286                 DEBUG(0, ("talloc failed\n"));
287                 errno = ENOMEM;
288                 return False;
289         }
290
291         gacl->acl_len = gacl_len;
292         gacl->acl_level = 0;
293         gacl->acl_version = GPFS_ACL_VERSION_NFS4;
294         gacl->acl_type = GPFS_ACL_TYPE_NFS4;
295         gacl->acl_nace = 0; /* change later... */
296
297         for (smbace=smb_first_ace4(smbacl); smbace!=NULL; smbace = smb_next_ace4(smbace)) {
298                 struct gpfs_ace_v4 *gace = &gacl->ace_v4[gacl->acl_nace];
299                 SMB_ACE4PROP_T  *aceprop = smb_get_ace4(smbace);
300
301                 gace->aceType = aceprop->aceType;
302                 gace->aceFlags = aceprop->aceFlags;
303                 gace->aceMask = aceprop->aceMask;
304                 
305                 /*
306                  * GPFS can't distinguish between WRITE and APPEND on
307                  * files, so one being set without the other is an
308                  * error. Sorry for the many ()'s :-)
309                  */
310                 
311                 if (!fsp->is_directory
312                     &&
313                     ((((gace->aceMask & ACE4_MASK_WRITE) == 0)
314                       && ((gace->aceMask & ACE4_MASK_APPEND) != 0))
315                      ||
316                      (((gace->aceMask & ACE4_MASK_WRITE) != 0)
317                       && ((gace->aceMask & ACE4_MASK_APPEND) == 0)))
318                     &&
319                     lp_parm_bool(fsp->conn->params->service, "gpfs",
320                                  "merge_writeappend", True)) {
321                         DEBUG(2, ("vfs_gpfs.c: file [%s]: ACE contains "
322                                   "WRITE^APPEND, setting WRITE|APPEND\n",
323                                   fsp->fsp_name));
324                         gace->aceMask |= ACE4_MASK_WRITE|ACE4_MASK_APPEND;
325                 }
326                 
327                 gace->aceIFlags = (aceprop->flags&SMB_ACE4_ID_SPECIAL) ? ACE4_IFLAG_SPECIAL_ID : 0;
328                 
329                 if (aceprop->flags&SMB_ACE4_ID_SPECIAL)
330                 {
331                         switch(aceprop->who.special_id)
332                         {
333                         case SMB_ACE4_WHO_EVERYONE:
334                                 gace->aceWho = ACE4_SPECIAL_EVERYONE;
335                                 break;
336                         case SMB_ACE4_WHO_OWNER:
337                                 gace->aceWho = ACE4_SPECIAL_OWNER;
338                                 break;
339                         case SMB_ACE4_WHO_GROUP:
340                                 gace->aceWho = ACE4_SPECIAL_GROUP;
341                                 break;
342                         default:
343                                 DEBUG(8, ("unsupported special_id %d\n", aceprop->who.special_id));
344                                 continue; /* don't add it !!! */
345                         }
346                 } else {
347                         /* just only for the type safety... */
348                         if (aceprop->aceFlags&SMB_ACE4_IDENTIFIER_GROUP)
349                                 gace->aceWho = aceprop->who.gid;
350                         else
351                                 gace->aceWho = aceprop->who.uid;
352                 }
353
354                 gacl->acl_nace++;
355         }
356
357         ret = smbd_gpfs_putacl(fsp->fsp_name, GPFS_PUTACL_STRUCT | GPFS_ACL_SAMBA, gacl);
358         if (ret != 0) {
359                 DEBUG(8, ("gpfs_putacl failed with %s\n", strerror(errno)));
360                 gpfs_dumpacl(8, gacl);
361                 return False;
362         }
363
364         DEBUG(10, ("gpfs_putacl succeeded\n"));
365         return True;
366 }
367
368 static NTSTATUS gpfsacl_set_nt_acl_internal(files_struct *fsp, uint32 security_info_sent, const SEC_DESC *psd)
369 {
370         struct gpfs_acl *acl;
371         NTSTATUS result = NT_STATUS_ACCESS_DENIED;
372
373         acl = gpfs_getacl_alloc(fsp->fsp_name, 0);
374         if (acl == NULL)
375                 return result;
376
377         if (acl->acl_version&GPFS_ACL_VERSION_NFS4)
378         {
379                 result = smb_set_nt_acl_nfs4(
380                         fsp, security_info_sent, psd,
381                         gpfsacl_process_smbacl);
382         } else { /* assume POSIX ACL - by default... */
383                 result = set_nt_acl(fsp, security_info_sent, psd);
384         }
385
386         return result;
387 }
388
389 static NTSTATUS gpfsacl_fset_nt_acl(vfs_handle_struct *handle, files_struct *fsp, uint32 security_info_sent, const SEC_DESC *psd)
390 {
391         return gpfsacl_set_nt_acl_internal(fsp, security_info_sent, psd);
392 }
393
394 static SMB_ACL_T gpfs2smb_acl(const struct gpfs_acl *pacl)
395 {
396         SMB_ACL_T result;
397         int i;
398
399         result = sys_acl_init(pacl->acl_nace);
400         if (result == NULL) {
401                 errno = ENOMEM;
402                 return NULL;
403         }
404
405         result->count = pacl->acl_nace;
406
407         for (i=0; i<pacl->acl_nace; i++) {
408                 struct smb_acl_entry *ace = &result->acl[i];
409                 const struct gpfs_ace_v1 *g_ace = &pacl->ace_v1[i];
410
411                 DEBUG(10, ("Converting type %d id %lu perm %x\n",
412                            (int)g_ace->ace_type, (unsigned long)g_ace->ace_who,
413                            (int)g_ace->ace_perm));
414
415                 switch (g_ace->ace_type) {
416                 case GPFS_ACL_USER:
417                         ace->a_type = SMB_ACL_USER;
418                         ace->uid = (uid_t)g_ace->ace_who;
419                         break;
420                 case GPFS_ACL_USER_OBJ:
421                         ace->a_type = SMB_ACL_USER_OBJ;
422                         break;
423                 case GPFS_ACL_GROUP:
424                         ace->a_type = SMB_ACL_GROUP;
425                         ace->gid = (gid_t)g_ace->ace_who;
426                         break;
427                 case GPFS_ACL_GROUP_OBJ:
428                         ace->a_type = SMB_ACL_GROUP_OBJ;
429                         break;
430                 case GPFS_ACL_OTHER:
431                         ace->a_type = SMB_ACL_OTHER;
432                         break;
433                 case GPFS_ACL_MASK:
434                         ace->a_type = SMB_ACL_MASK;
435                         break;
436                 default:
437                         DEBUG(10, ("Got invalid ace_type: %d\n",
438                                    g_ace->ace_type));
439                         errno = EINVAL;
440                         SAFE_FREE(result);
441                         return NULL;
442                 }
443
444                 ace->a_perm = 0;
445                 ace->a_perm |= (g_ace->ace_perm & ACL_PERM_READ) ?
446                         SMB_ACL_READ : 0;
447                 ace->a_perm |= (g_ace->ace_perm & ACL_PERM_WRITE) ?
448                         SMB_ACL_WRITE : 0;
449                 ace->a_perm |= (g_ace->ace_perm & ACL_PERM_EXECUTE) ?
450                         SMB_ACL_EXECUTE : 0;
451
452                 DEBUGADD(10, ("Converted to %d perm %x\n",
453                               ace->a_type, ace->a_perm));
454         }
455
456         return result;
457 }
458
459 static SMB_ACL_T gpfsacl_get_posix_acl(const char *path, gpfs_aclType_t type)
460 {
461         struct gpfs_acl *pacl;
462         SMB_ACL_T result = NULL;
463
464         pacl = gpfs_getacl_alloc(path, type);
465
466         if (pacl == NULL) {
467                 DEBUG(10, ("gpfs_getacl failed for %s with %s\n",
468                            path, strerror(errno)));
469                 if (errno == 0) {
470                         errno = EINVAL;
471                 }
472                 goto done;
473         }
474
475         if (pacl->acl_version != GPFS_ACL_VERSION_POSIX) {
476                 DEBUG(10, ("Got acl version %d, expected %d\n",
477                            pacl->acl_version, GPFS_ACL_VERSION_POSIX));
478                 errno = EINVAL;
479                 goto done;
480         }
481         
482         DEBUG(10, ("len: %d, level: %d, version: %d, nace: %d\n",
483                    pacl->acl_len, pacl->acl_level, pacl->acl_version,
484                    pacl->acl_nace));
485
486         result = gpfs2smb_acl(pacl);
487         if (result == NULL) {
488                 goto done;
489         }
490
491  done:
492
493         if (errno != 0) {
494                 SAFE_FREE(result);
495         }
496         return result;  
497 }
498
499 SMB_ACL_T gpfsacl_sys_acl_get_file(vfs_handle_struct *handle,
500                                     
501                                     const char *path_p,
502                                     SMB_ACL_TYPE_T type)
503 {
504         gpfs_aclType_t gpfs_type;
505
506         switch(type) {
507         case SMB_ACL_TYPE_ACCESS:
508                 gpfs_type = GPFS_ACL_TYPE_ACCESS;
509                 break;
510         case SMB_ACL_TYPE_DEFAULT:
511                 gpfs_type = GPFS_ACL_TYPE_DEFAULT;
512                 break;
513         default:
514                 DEBUG(0, ("Got invalid type: %d\n", type));
515                 smb_panic("exiting");
516         }
517
518         return gpfsacl_get_posix_acl(path_p, gpfs_type);
519 }
520
521 SMB_ACL_T gpfsacl_sys_acl_get_fd(vfs_handle_struct *handle,
522                                  files_struct *fsp)
523 {
524         return gpfsacl_get_posix_acl(fsp->fsp_name, GPFS_ACL_TYPE_ACCESS);
525 }
526
527 static struct gpfs_acl *smb2gpfs_acl(const SMB_ACL_T pacl,
528                                      SMB_ACL_TYPE_T type)
529 {
530         gpfs_aclLen_t len;
531         struct gpfs_acl *result;
532         int i;
533         union gpfs_ace_union
534         {
535                 gpfs_ace_v1_t  ace_v1[1]; /* when GPFS_ACL_VERSION_POSIX */
536                 gpfs_ace_v4_t  ace_v4[1]; /* when GPFS_ACL_VERSION_NFS4  */
537         };
538
539         DEBUG(10, ("smb2gpfs_acl: Got ACL with %d entries\n", pacl->count));
540
541         len = sizeof(struct gpfs_acl) - sizeof(union gpfs_ace_union) +
542                 (pacl->count)*sizeof(gpfs_ace_v1_t);
543
544         result = SMB_MALLOC(len);
545         if (result == NULL) {
546                 errno = ENOMEM;
547                 return result;
548         }
549
550         result->acl_len = len;
551         result->acl_level = 0;
552         result->acl_version = GPFS_ACL_VERSION_POSIX;
553         result->acl_type = (type == SMB_ACL_TYPE_DEFAULT) ?
554                 GPFS_ACL_TYPE_DEFAULT : GPFS_ACL_TYPE_ACCESS;
555         result->acl_nace = pacl->count;
556
557         for (i=0; i<pacl->count; i++) {
558                 const struct smb_acl_entry *ace = &pacl->acl[i];
559                 struct gpfs_ace_v1 *g_ace = &result->ace_v1[i];
560                 
561                 DEBUG(10, ("Converting type %d perm %x\n",
562                            (int)ace->a_type, (int)ace->a_perm));
563
564                 g_ace->ace_perm = 0;
565
566                 switch(ace->a_type) {
567                 case SMB_ACL_USER:
568                         g_ace->ace_type = GPFS_ACL_USER;
569                         g_ace->ace_who = (gpfs_uid_t)ace->uid;
570                         break;
571                 case SMB_ACL_USER_OBJ:
572                         g_ace->ace_type = GPFS_ACL_USER_OBJ;
573                         g_ace->ace_perm |= ACL_PERM_CONTROL;
574                         g_ace->ace_who = 0;
575                         break;
576                 case SMB_ACL_GROUP:
577                         g_ace->ace_type = GPFS_ACL_GROUP;
578                         g_ace->ace_who = (gpfs_uid_t)ace->gid;
579                         break;
580                 case SMB_ACL_GROUP_OBJ:
581                         g_ace->ace_type = GPFS_ACL_GROUP_OBJ;
582                         g_ace->ace_who = 0;
583                         break;
584                 case SMB_ACL_MASK:
585                         g_ace->ace_type = GPFS_ACL_MASK;
586                         g_ace->ace_perm = 0x8f;
587                         g_ace->ace_who = 0;
588                         break;
589                 case SMB_ACL_OTHER:
590                         g_ace->ace_type = GPFS_ACL_OTHER;
591                         g_ace->ace_who = 0;
592                         break;
593                 default:
594                         DEBUG(10, ("Got invalid ace_type: %d\n", ace->a_type));
595                         errno = EINVAL;
596                         SAFE_FREE(result);
597                         return NULL;
598                 }
599
600                 g_ace->ace_perm |= (ace->a_perm & SMB_ACL_READ) ?
601                         ACL_PERM_READ : 0;
602                 g_ace->ace_perm |= (ace->a_perm & SMB_ACL_WRITE) ?
603                         ACL_PERM_WRITE : 0;
604                 g_ace->ace_perm |= (ace->a_perm & SMB_ACL_EXECUTE) ?
605                         ACL_PERM_EXECUTE : 0;
606
607                 DEBUGADD(10, ("Converted to %d id %d perm %x\n",
608                               g_ace->ace_type, g_ace->ace_who, g_ace->ace_perm));
609         }
610
611         return result;
612 }
613
614 int gpfsacl_sys_acl_set_file(vfs_handle_struct *handle,
615                               
616                               const char *name,
617                               SMB_ACL_TYPE_T type,
618                               SMB_ACL_T theacl)
619 {
620         struct gpfs_acl *gpfs_acl;
621         int result;
622
623         gpfs_acl = smb2gpfs_acl(theacl, type);
624         if (gpfs_acl == NULL) {
625                 return -1;
626         }
627
628         result = smbd_gpfs_putacl((char *)name, GPFS_PUTACL_STRUCT | GPFS_ACL_SAMBA, gpfs_acl);
629
630         SAFE_FREE(gpfs_acl);
631         return result;
632 }
633
634 int gpfsacl_sys_acl_set_fd(vfs_handle_struct *handle,
635                             files_struct *fsp,
636                             SMB_ACL_T theacl)
637 {
638         return gpfsacl_sys_acl_set_file(handle, fsp->fsp_name, SMB_ACL_TYPE_ACCESS, theacl);
639 }
640
641 int gpfsacl_sys_acl_delete_def_file(vfs_handle_struct *handle,
642                                      
643                                      const char *path)
644 {
645         errno = ENOTSUP;
646         return -1;
647 }
648
649 /*
650  * Assumed: mode bits are shiftable and standard
651  * Output: the new aceMask field for an smb nfs4 ace
652  */
653 static uint32 gpfsacl_mask_filter(uint32 aceType, uint32 aceMask, uint32 rwx)
654 {
655         const uint32 posix_nfs4map[3] = {
656                 SMB_ACE4_EXECUTE, /* execute */
657                 SMB_ACE4_WRITE_DATA | SMB_ACE4_APPEND_DATA, /* write; GPFS specific */
658                 SMB_ACE4_READ_DATA /* read */
659         };
660         int     i;
661         uint32_t        posix_mask = 0x01;
662         uint32_t        posix_bit;
663         uint32_t        nfs4_bits;
664         
665         for(i=0; i<3; i++) {
666                 nfs4_bits = posix_nfs4map[i];
667                 posix_bit = rwx & posix_mask;
668                 
669                 if (aceType==SMB_ACE4_ACCESS_ALLOWED_ACE_TYPE) {
670                         if (posix_bit)
671                                 aceMask |= nfs4_bits;
672                         else
673                                 aceMask &= ~nfs4_bits;
674                 } else {
675                         /* add deny bits when suitable */
676                         if (!posix_bit)
677                                 aceMask |= nfs4_bits;
678                         else
679                                 aceMask &= ~nfs4_bits;
680                 } /* other ace types are unexpected */
681                 
682                 posix_mask <<= 1;
683         }
684         
685         return aceMask;
686 }
687
688 static int gpfsacl_emu_chmod(const char *path, mode_t mode)
689 {
690         SMB4ACL_T *pacl = NULL;
691         int     result;
692         bool    haveAllowEntry[SMB_ACE4_WHO_EVERYONE + 1] = {False, False, False, False};
693         int     i;
694         files_struct    fake_fsp; /* TODO: rationalize parametrization */
695         SMB4ACE_T       *smbace;
696         
697         DEBUG(10, ("gpfsacl_emu_chmod invoked for %s mode %o\n", path, mode));
698         
699         result = gpfs_get_nfs4_acl(path, &pacl);
700         if (result)
701                 return result;
702         
703         if (mode & ~(S_IRWXU | S_IRWXG | S_IRWXO)) {
704                 DEBUG(2, ("WARNING: cutting extra mode bits %o on %s\n", mode, path));
705         }
706         
707         for (smbace=smb_first_ace4(pacl); smbace!=NULL; smbace = smb_next_ace4(smbace)) {
708                 SMB_ACE4PROP_T  *ace = smb_get_ace4(smbace);
709                 uint32_t        specid = ace->who.special_id;
710                 
711                 if (ace->flags&SMB_ACE4_ID_SPECIAL &&
712                     ace->aceType<=SMB_ACE4_ACCESS_DENIED_ACE_TYPE &&
713                     specid <= SMB_ACE4_WHO_EVERYONE) {
714                         
715                         uint32_t newMask;
716                         
717                         if (ace->aceType==SMB_ACE4_ACCESS_ALLOWED_ACE_TYPE)
718                                 haveAllowEntry[specid] = True;
719                         
720                         /* mode >> 6 for @owner, mode >> 3 for @group,
721                          * mode >> 0 for @everyone */
722                         newMask = gpfsacl_mask_filter(ace->aceType, ace->aceMask,
723                                                       mode >> ((SMB_ACE4_WHO_EVERYONE - specid) * 3));
724                         if (ace->aceMask!=newMask) {
725                                 DEBUG(10, ("ace changed for %s (%o -> %o) id=%d\n",
726                                            path, ace->aceMask, newMask, specid));
727                         }
728                         ace->aceMask = newMask;
729                 }
730         }
731
732         /* make sure we have at least ALLOW entries
733          * for all the 3 special ids (@EVERYONE, @OWNER, @GROUP)
734          * - if necessary
735          */
736         for(i = SMB_ACE4_WHO_OWNER; i<=SMB_ACE4_WHO_EVERYONE; i++) {
737                 SMB_ACE4PROP_T  ace;
738                 
739                 if (haveAllowEntry[i]==True)
740                         continue;
741                 
742                 ZERO_STRUCT(ace);
743                 ace.aceType = SMB_ACE4_ACCESS_ALLOWED_ACE_TYPE;
744                 ace.flags |= SMB_ACE4_ID_SPECIAL;
745                 ace.who.special_id = i;
746                 
747                 if (i==SMB_ACE4_WHO_GROUP) /* not sure it's necessary... */
748                         ace.aceFlags |= SMB_ACE4_IDENTIFIER_GROUP;
749                 
750                 ace.aceMask = gpfsacl_mask_filter(ace.aceType, ace.aceMask,
751                                                   mode >> ((SMB_ACE4_WHO_EVERYONE - i) * 3));
752                 
753                 /* don't add unnecessary aces */
754                 if (!ace.aceMask)
755                         continue;
756                 
757                 /* we add it to the END - as windows expects allow aces */
758                 smb_add_ace4(pacl, &ace);
759                 DEBUG(10, ("Added ALLOW ace for %s, mode=%o, id=%d, aceMask=%x\n",
760                            path, mode, i, ace.aceMask));
761         }
762         
763         /* don't add complementary DENY ACEs here */
764         ZERO_STRUCT(fake_fsp);
765         fake_fsp.fsp_name = (char *)path; /* no file_new is needed here */
766         
767         /* put the acl */
768         if (gpfsacl_process_smbacl(&fake_fsp, pacl) == False)
769                 return -1;
770         return 0; /* ok for [f]chmod */
771 }
772
773 static int vfs_gpfs_chmod(vfs_handle_struct *handle, const char *path, mode_t mode)
774 {
775                  SMB_STRUCT_STAT st;
776                  int rc;
777                  
778                  if (SMB_VFS_NEXT_STAT(handle, path, &st) != 0) {
779                          return -1;
780                  }
781                  
782                  /* avoid chmod() if possible, to preserve acls */
783                  if ((st.st_mode & ~S_IFMT) == mode) {
784                          return 0;
785                  }
786
787                  rc = gpfsacl_emu_chmod(path, mode);
788                  if (rc == 1)
789                          return SMB_VFS_NEXT_CHMOD(handle, path, mode);
790                  return rc;
791 }
792
793 static int vfs_gpfs_fchmod(vfs_handle_struct *handle, files_struct *fsp, mode_t mode)
794 {
795                  SMB_STRUCT_STAT st;
796                  int rc;
797                  
798                  if (SMB_VFS_NEXT_FSTAT(handle, fsp, &st) != 0) {
799                          return -1;
800                  }
801
802                  /* avoid chmod() if possible, to preserve acls */
803                  if ((st.st_mode & ~S_IFMT) == mode) {
804                          return 0;
805                  }
806
807                  rc = gpfsacl_emu_chmod(fsp->fsp_name, mode);
808                  if (rc == 1)
809                          return SMB_VFS_NEXT_FCHMOD(handle, fsp, mode);
810                  return rc;
811 }
812
813 /* VFS operations structure */
814
815 static vfs_op_tuple gpfs_op_tuples[] = {
816         
817         { SMB_VFS_OP(vfs_gpfs_kernel_flock), 
818           SMB_VFS_OP_KERNEL_FLOCK,
819           SMB_VFS_LAYER_OPAQUE },
820         
821         { SMB_VFS_OP(vfs_gpfs_setlease), 
822           SMB_VFS_OP_LINUX_SETLEASE,
823           SMB_VFS_LAYER_OPAQUE },
824         
825         { SMB_VFS_OP(gpfsacl_fget_nt_acl), 
826           SMB_VFS_OP_FGET_NT_ACL,
827           SMB_VFS_LAYER_TRANSPARENT },
828         
829         { SMB_VFS_OP(gpfsacl_get_nt_acl), 
830           SMB_VFS_OP_GET_NT_ACL,
831           SMB_VFS_LAYER_TRANSPARENT },
832         
833         { SMB_VFS_OP(gpfsacl_fset_nt_acl), 
834           SMB_VFS_OP_FSET_NT_ACL,
835           SMB_VFS_LAYER_TRANSPARENT },
836         
837         { SMB_VFS_OP(gpfsacl_sys_acl_get_file), 
838           SMB_VFS_OP_SYS_ACL_GET_FILE,
839           SMB_VFS_LAYER_TRANSPARENT },
840         
841         { SMB_VFS_OP(gpfsacl_sys_acl_get_fd), 
842           SMB_VFS_OP_SYS_ACL_GET_FD,
843           SMB_VFS_LAYER_TRANSPARENT },
844         
845         { SMB_VFS_OP(gpfsacl_sys_acl_set_file), 
846           SMB_VFS_OP_SYS_ACL_SET_FILE,
847           SMB_VFS_LAYER_TRANSPARENT },
848         
849         { SMB_VFS_OP(gpfsacl_sys_acl_set_fd), 
850           SMB_VFS_OP_SYS_ACL_SET_FD,
851           SMB_VFS_LAYER_TRANSPARENT },
852         
853         { SMB_VFS_OP(gpfsacl_sys_acl_delete_def_file),
854           SMB_VFS_OP_SYS_ACL_DELETE_DEF_FILE,
855           SMB_VFS_LAYER_TRANSPARENT },
856         
857         { SMB_VFS_OP(vfs_gpfs_chmod), 
858           SMB_VFS_OP_CHMOD,
859           SMB_VFS_LAYER_TRANSPARENT },
860         
861         { SMB_VFS_OP(vfs_gpfs_fchmod), 
862           SMB_VFS_OP_FCHMOD,
863           SMB_VFS_LAYER_TRANSPARENT },
864
865         { SMB_VFS_OP(NULL), SMB_VFS_OP_NOOP, SMB_VFS_LAYER_NOOP }
866
867 };
868
869
870 NTSTATUS vfs_gpfs_init(void);
871 NTSTATUS vfs_gpfs_init(void)
872 {
873         init_gpfs();
874         
875         return smb_register_vfs(SMB_VFS_INTERFACE_VERSION, "gpfs",
876                                 gpfs_op_tuples);
877 }