s3: Finish plumbing the fsp->fsp_name smb_fname conversion through the modules.
[kai/samba.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 #include "includes.h"
25
26 #undef DBGC_CLASS
27 #define DBGC_CLASS DBGC_VFS
28
29 #include <gpfs_gpl.h>
30 #include "nfs4_acls.h"
31 #include "vfs_gpfs.h"
32
33 static int vfs_gpfs_kernel_flock(vfs_handle_struct *handle, files_struct *fsp, 
34                                  uint32 share_mode)
35 {
36
37         START_PROFILE(syscall_kernel_flock);
38
39         kernel_flock(fsp->fh->fd, share_mode);
40
41         if (!set_gpfs_sharemode(fsp, fsp->access_mask, fsp->share_access)) {
42
43                 return -1;
44
45         }
46
47         END_PROFILE(syscall_kernel_flock);
48
49         return 0;
50 }
51
52 static int vfs_gpfs_close(vfs_handle_struct *handle, files_struct *fsp)
53 {
54         if ((fsp->fh != NULL) && (fsp->fh->fd != -1)) {
55                 set_gpfs_sharemode(fsp, 0, 0);
56         }
57
58         return SMB_VFS_NEXT_CLOSE(handle, fsp);
59 }
60
61 static int vfs_gpfs_setlease(vfs_handle_struct *handle, files_struct *fsp, 
62                              int leasetype)
63 {
64         int ret;
65
66         START_PROFILE(syscall_linux_setlease);
67
68         if ( linux_set_lease_sighandler(fsp->fh->fd) == -1)
69                 return -1;
70
71         ret = set_gpfs_lease(fsp->fh->fd,leasetype);
72
73         if ( ret < 0 ) {
74                 /* This must have come from GPFS not being available */
75                 /* or some other error, hence call the default */
76                 ret = linux_setlease(fsp->fh->fd, leasetype);
77         }
78
79         END_PROFILE(syscall_linux_setlease);
80
81         return ret;
82 }
83
84 static int vfs_gpfs_get_real_filename(struct vfs_handle_struct *handle,
85                                       const char *path,
86                                       const char *name,
87                                       TALLOC_CTX *mem_ctx,
88                                       char **found_name)
89 {
90         int result;
91         char *full_path;
92         char real_pathname[PATH_MAX+1];
93         int buflen;
94
95         full_path = talloc_asprintf(talloc_tos(), "%s/%s", path, name);
96         if (full_path == NULL) {
97                 errno = ENOMEM;
98                 return -1;
99         }
100
101         buflen = sizeof(real_pathname) - 1;
102
103         result = smbd_gpfs_get_realfilename_path(full_path, real_pathname,
104                                                  &buflen);
105
106         TALLOC_FREE(full_path);
107
108         if ((result == -1) && (errno == ENOSYS)) {
109                 return SMB_VFS_NEXT_GET_REAL_FILENAME(
110                         handle, path, name, mem_ctx, found_name);
111         }
112
113         if (result == -1) {
114                 DEBUG(10, ("smbd_gpfs_get_realfilename_path returned %s\n",
115                            strerror(errno)));
116                 return -1;
117         }
118
119         /*
120          * GPFS does not necessarily null-terminate the returned path
121          * but instead returns the buffer length in buflen.
122          */
123
124         if (buflen < sizeof(real_pathname)) {
125                 real_pathname[buflen] = '\0';
126         } else {
127                 real_pathname[sizeof(real_pathname)-1] = '\0';
128         }
129
130         DEBUG(10, ("smbd_gpfs_get_realfilename_path: %s/%s -> %s\n",
131                    path, name, real_pathname));
132
133         name = strrchr_m(real_pathname, '/');
134         if (name == NULL) {
135                 errno = ENOENT;
136                 return -1;
137         }
138
139         *found_name = talloc_strdup(mem_ctx, name+1);
140         if (*found_name == NULL) {
141                 errno = ENOMEM;
142                 return -1;
143         }
144
145         return 0;
146 }
147
148 static void gpfs_dumpacl(int level, struct gpfs_acl *gacl)
149 {
150         int     i;
151         if (gacl==NULL)
152         {
153                 DEBUG(0, ("gpfs acl is NULL\n"));
154                 return;
155         }
156
157         DEBUG(level, ("gpfs acl: nace: %d, type:%d, version:%d, level:%d, len:%d\n",
158                 gacl->acl_nace, gacl->acl_type, gacl->acl_version, gacl->acl_level, gacl->acl_len));
159         for(i=0; i<gacl->acl_nace; i++)
160         {
161                 struct gpfs_ace_v4 *gace = gacl->ace_v4 + i;
162                 DEBUG(level, ("\tace[%d]: type:%d, flags:0x%x, mask:0x%x, iflags:0x%x, who:%u\n",
163                         i, gace->aceType, gace->aceFlags, gace->aceMask,
164                         gace->aceIFlags, gace->aceWho));
165         }
166 }
167
168 static struct gpfs_acl *gpfs_getacl_alloc(const char *fname, gpfs_aclType_t type)
169 {
170         struct gpfs_acl *acl;
171         size_t len = 200;
172         int ret;
173         TALLOC_CTX *mem_ctx = talloc_tos();
174
175         acl = (struct gpfs_acl *)TALLOC_SIZE(mem_ctx, len);
176         if (acl == NULL) {
177                 errno = ENOMEM;
178                 return NULL;
179         }
180
181         acl->acl_len = len;
182         acl->acl_level = 0;
183         acl->acl_version = 0;
184         acl->acl_type = type;
185
186         ret = smbd_gpfs_getacl((char *)fname, GPFS_GETACL_STRUCT | GPFS_ACL_SAMBA, acl);
187         if ((ret != 0) && (errno == ENOSPC)) {
188                 struct gpfs_acl *new_acl = (struct gpfs_acl *)TALLOC_SIZE(
189                         mem_ctx, acl->acl_len + sizeof(struct gpfs_acl));
190                 if (new_acl == NULL) {
191                         errno = ENOMEM;
192                         return NULL;
193                 }
194
195                 new_acl->acl_len = acl->acl_len;
196                 new_acl->acl_level = acl->acl_level;
197                 new_acl->acl_version = acl->acl_version;
198                 new_acl->acl_type = acl->acl_type;
199                 acl = new_acl;
200
201                 ret = smbd_gpfs_getacl((char *)fname, GPFS_GETACL_STRUCT | GPFS_ACL_SAMBA, acl);
202         }
203         if (ret != 0)
204         {
205                 DEBUG(8, ("smbd_gpfs_getacl failed with %s\n",strerror(errno)));
206                 return NULL;
207         }
208
209         return acl;
210 }
211
212 /* Tries to get nfs4 acls and returns SMB ACL allocated.
213  * On failure returns 1 if it got non-NFSv4 ACL to prompt 
214  * retry with POSIX ACL checks.
215  * On failure returns -1 if there is system (GPFS) error, check errno.
216  * Returns 0 on success
217  */
218 static int gpfs_get_nfs4_acl(const char *fname, SMB4ACL_T **ppacl)
219 {
220         int i;
221         struct gpfs_acl *gacl = NULL;
222         DEBUG(10, ("gpfs_get_nfs4_acl invoked for %s\n", fname));
223
224         /* First get the real acl length */
225         gacl = gpfs_getacl_alloc(fname, 0);
226         if (gacl == NULL) {
227                 DEBUG(9, ("gpfs_getacl failed for %s with %s\n",
228                            fname, strerror(errno)));
229                 return -1;
230         }
231
232         if (gacl->acl_type != GPFS_ACL_TYPE_NFS4) {
233                 DEBUG(10, ("Got non-nfsv4 acl\n"));
234                 /* Retry with POSIX ACLs check */
235                 return 1;
236         }
237
238         *ppacl = smb_create_smb4acl();
239
240         DEBUG(10, ("len: %d, level: %d, version: %d, nace: %d\n",
241                    gacl->acl_len, gacl->acl_level, gacl->acl_version,
242                    gacl->acl_nace));
243
244         for (i=0; i<gacl->acl_nace; i++) {
245                 struct gpfs_ace_v4 *gace = &gacl->ace_v4[i];
246                 SMB_ACE4PROP_T smbace;
247                 DEBUG(10, ("type: %d, iflags: %x, flags: %x, mask: %x, "
248                            "who: %d\n", gace->aceType, gace->aceIFlags,
249                            gace->aceFlags, gace->aceMask, gace->aceWho));
250
251                 ZERO_STRUCT(smbace);
252                 if (gace->aceIFlags & ACE4_IFLAG_SPECIAL_ID) {
253                         smbace.flags |= SMB_ACE4_ID_SPECIAL;
254                         switch (gace->aceWho) {
255                         case ACE4_SPECIAL_OWNER:
256                                 smbace.who.special_id = SMB_ACE4_WHO_OWNER;
257                                 break;
258                         case ACE4_SPECIAL_GROUP:
259                                 smbace.who.special_id = SMB_ACE4_WHO_GROUP;
260                                 break;
261                         case ACE4_SPECIAL_EVERYONE:
262                                 smbace.who.special_id = SMB_ACE4_WHO_EVERYONE;
263                                 break;
264                         default:
265                                 DEBUG(8, ("invalid special gpfs id %d "
266                                           "ignored\n", gace->aceWho));
267                                 continue; /* don't add it */
268                         }
269                 } else {
270                         if (gace->aceFlags & ACE4_FLAG_GROUP_ID)
271                                 smbace.who.gid = gace->aceWho;
272                         else
273                                 smbace.who.uid = gace->aceWho;
274                 }
275
276                 /* remove redundent deny entries */
277                 if (i > 0 && gace->aceType == SMB_ACE4_ACCESS_DENIED_ACE_TYPE) {
278                         struct gpfs_ace_v4 *prev = &gacl->ace_v4[i-1];
279                         if (prev->aceType == SMB_ACE4_ACCESS_ALLOWED_ACE_TYPE &&
280                             prev->aceFlags == gace->aceFlags &&
281                             prev->aceIFlags == gace->aceIFlags &&
282                             (gace->aceMask & prev->aceMask) == 0 &&
283                             gace->aceWho == prev->aceWho) {
284                                 /* its redundent - skip it */
285                                 continue;
286                         }                                                
287                 }
288
289                 smbace.aceType = gace->aceType;
290                 smbace.aceFlags = gace->aceFlags;
291                 smbace.aceMask = gace->aceMask;
292                 smb_add_ace4(*ppacl, &smbace);
293         }
294
295         return 0;
296 }
297
298 static NTSTATUS gpfsacl_fget_nt_acl(vfs_handle_struct *handle,
299         files_struct *fsp, uint32 security_info,
300         SEC_DESC **ppdesc)
301 {
302         SMB4ACL_T *pacl = NULL;
303         int     result;
304
305         *ppdesc = NULL;
306         result = gpfs_get_nfs4_acl(fsp->fsp_name->base_name, &pacl);
307
308         if (result == 0)
309                 return smb_fget_nt_acl_nfs4(fsp, security_info, ppdesc, pacl);
310
311         if (result > 0) {
312                 DEBUG(10, ("retrying with posix acl...\n"));
313                 return posix_fget_nt_acl(fsp, security_info, ppdesc);
314         }
315
316         /* GPFS ACL was not read, something wrong happened, error code is set in errno */
317         return map_nt_error_from_unix(errno);
318 }
319
320 static NTSTATUS gpfsacl_get_nt_acl(vfs_handle_struct *handle,
321         const char *name,
322         uint32 security_info, SEC_DESC **ppdesc)
323 {
324         SMB4ACL_T *pacl = NULL;
325         int     result;
326
327         *ppdesc = NULL;
328         result = gpfs_get_nfs4_acl(name, &pacl);
329
330         if (result == 0)
331                 return smb_get_nt_acl_nfs4(handle->conn, name, security_info, ppdesc, pacl);
332
333         if (result > 0) {
334                 DEBUG(10, ("retrying with posix acl...\n"));
335                 return posix_get_nt_acl(handle->conn, name, security_info, ppdesc);
336         }
337
338         /* GPFS ACL was not read, something wrong happened, error code is set in errno */
339         return map_nt_error_from_unix(errno);
340 }
341
342 static bool gpfsacl_process_smbacl(files_struct *fsp, SMB4ACL_T *smbacl)
343 {
344         int ret;
345         gpfs_aclLen_t gacl_len;
346         SMB4ACE_T       *smbace;
347         struct gpfs_acl *gacl;
348         TALLOC_CTX *mem_ctx  = talloc_tos();
349
350         gacl_len = sizeof(struct gpfs_acl) +
351                 (smb_get_naces(smbacl)-1)*sizeof(gpfs_ace_v4_t);
352
353         gacl = (struct gpfs_acl *)TALLOC_SIZE(mem_ctx, gacl_len);
354         if (gacl == NULL) {
355                 DEBUG(0, ("talloc failed\n"));
356                 errno = ENOMEM;
357                 return False;
358         }
359
360         gacl->acl_len = gacl_len;
361         gacl->acl_level = 0;
362         gacl->acl_version = GPFS_ACL_VERSION_NFS4;
363         gacl->acl_type = GPFS_ACL_TYPE_NFS4;
364         gacl->acl_nace = 0; /* change later... */
365
366         for (smbace=smb_first_ace4(smbacl); smbace!=NULL; smbace = smb_next_ace4(smbace)) {
367                 struct gpfs_ace_v4 *gace = &gacl->ace_v4[gacl->acl_nace];
368                 SMB_ACE4PROP_T  *aceprop = smb_get_ace4(smbace);
369
370                 gace->aceType = aceprop->aceType;
371                 gace->aceFlags = aceprop->aceFlags;
372                 gace->aceMask = aceprop->aceMask;
373
374                 /*
375                  * GPFS can't distinguish between WRITE and APPEND on
376                  * files, so one being set without the other is an
377                  * error. Sorry for the many ()'s :-)
378                  */
379
380                 if (!fsp->is_directory
381                     &&
382                     ((((gace->aceMask & ACE4_MASK_WRITE) == 0)
383                       && ((gace->aceMask & ACE4_MASK_APPEND) != 0))
384                      ||
385                      (((gace->aceMask & ACE4_MASK_WRITE) != 0)
386                       && ((gace->aceMask & ACE4_MASK_APPEND) == 0)))
387                     &&
388                     lp_parm_bool(fsp->conn->params->service, "gpfs",
389                                  "merge_writeappend", True)) {
390                         DEBUG(2, ("vfs_gpfs.c: file [%s]: ACE contains "
391                                   "WRITE^APPEND, setting WRITE|APPEND\n",
392                                   fsp_str_dbg(fsp)));
393                         gace->aceMask |= ACE4_MASK_WRITE|ACE4_MASK_APPEND;
394                 }
395
396                 gace->aceIFlags = (aceprop->flags&SMB_ACE4_ID_SPECIAL) ? ACE4_IFLAG_SPECIAL_ID : 0;
397
398                 if (aceprop->flags&SMB_ACE4_ID_SPECIAL)
399                 {
400                         switch(aceprop->who.special_id)
401                         {
402                         case SMB_ACE4_WHO_EVERYONE:
403                                 gace->aceWho = ACE4_SPECIAL_EVERYONE;
404                                 break;
405                         case SMB_ACE4_WHO_OWNER:
406                                 gace->aceWho = ACE4_SPECIAL_OWNER;
407                                 break;
408                         case SMB_ACE4_WHO_GROUP:
409                                 gace->aceWho = ACE4_SPECIAL_GROUP;
410                                 break;
411                         default:
412                                 DEBUG(8, ("unsupported special_id %d\n", aceprop->who.special_id));
413                                 continue; /* don't add it !!! */
414                         }
415                 } else {
416                         /* just only for the type safety... */
417                         if (aceprop->aceFlags&SMB_ACE4_IDENTIFIER_GROUP)
418                                 gace->aceWho = aceprop->who.gid;
419                         else
420                                 gace->aceWho = aceprop->who.uid;
421                 }
422
423                 gacl->acl_nace++;
424         }
425
426         ret = smbd_gpfs_putacl(fsp->fsp_name->base_name,
427                                GPFS_PUTACL_STRUCT | GPFS_ACL_SAMBA, gacl);
428         if (ret != 0) {
429                 DEBUG(8, ("gpfs_putacl failed with %s\n", strerror(errno)));
430                 gpfs_dumpacl(8, gacl);
431                 return False;
432         }
433
434         DEBUG(10, ("gpfs_putacl succeeded\n"));
435         return True;
436 }
437
438 static NTSTATUS gpfsacl_set_nt_acl_internal(files_struct *fsp, uint32 security_info_sent, const SEC_DESC *psd)
439 {
440         struct gpfs_acl *acl;
441         NTSTATUS result = NT_STATUS_ACCESS_DENIED;
442
443         acl = gpfs_getacl_alloc(fsp->fsp_name->base_name, 0);
444         if (acl == NULL)
445                 return result;
446
447         if (acl->acl_version&GPFS_ACL_VERSION_NFS4)
448         {
449                 if ((psd->type&SEC_DESC_DACL_PROTECTED)) {
450                         DEBUG(2, ("Rejecting unsupported ACL with DACL_PROTECTED bit set\n"));
451                         return NT_STATUS_NOT_SUPPORTED;
452                 }
453
454                 result = smb_set_nt_acl_nfs4(
455                         fsp, security_info_sent, psd,
456                         gpfsacl_process_smbacl);
457         } else { /* assume POSIX ACL - by default... */
458                 result = set_nt_acl(fsp, security_info_sent, psd);
459         }
460
461         return result;
462 }
463
464 static NTSTATUS gpfsacl_fset_nt_acl(vfs_handle_struct *handle, files_struct *fsp, uint32 security_info_sent, const SEC_DESC *psd)
465 {
466         return gpfsacl_set_nt_acl_internal(fsp, security_info_sent, psd);
467 }
468
469 static SMB_ACL_T gpfs2smb_acl(const struct gpfs_acl *pacl)
470 {
471         SMB_ACL_T result;
472         int i;
473
474         result = sys_acl_init(pacl->acl_nace);
475         if (result == NULL) {
476                 errno = ENOMEM;
477                 return NULL;
478         }
479
480         result->count = pacl->acl_nace;
481
482         for (i=0; i<pacl->acl_nace; i++) {
483                 struct smb_acl_entry *ace = &result->acl[i];
484                 const struct gpfs_ace_v1 *g_ace = &pacl->ace_v1[i];
485
486                 DEBUG(10, ("Converting type %d id %lu perm %x\n",
487                            (int)g_ace->ace_type, (unsigned long)g_ace->ace_who,
488                            (int)g_ace->ace_perm));
489
490                 switch (g_ace->ace_type) {
491                 case GPFS_ACL_USER:
492                         ace->a_type = SMB_ACL_USER;
493                         ace->uid = (uid_t)g_ace->ace_who;
494                         break;
495                 case GPFS_ACL_USER_OBJ:
496                         ace->a_type = SMB_ACL_USER_OBJ;
497                         break;
498                 case GPFS_ACL_GROUP:
499                         ace->a_type = SMB_ACL_GROUP;
500                         ace->gid = (gid_t)g_ace->ace_who;
501                         break;
502                 case GPFS_ACL_GROUP_OBJ:
503                         ace->a_type = SMB_ACL_GROUP_OBJ;
504                         break;
505                 case GPFS_ACL_OTHER:
506                         ace->a_type = SMB_ACL_OTHER;
507                         break;
508                 case GPFS_ACL_MASK:
509                         ace->a_type = SMB_ACL_MASK;
510                         break;
511                 default:
512                         DEBUG(10, ("Got invalid ace_type: %d\n",
513                                    g_ace->ace_type));
514                         errno = EINVAL;
515                         SAFE_FREE(result);
516                         return NULL;
517                 }
518
519                 ace->a_perm = 0;
520                 ace->a_perm |= (g_ace->ace_perm & ACL_PERM_READ) ?
521                         SMB_ACL_READ : 0;
522                 ace->a_perm |= (g_ace->ace_perm & ACL_PERM_WRITE) ?
523                         SMB_ACL_WRITE : 0;
524                 ace->a_perm |= (g_ace->ace_perm & ACL_PERM_EXECUTE) ?
525                         SMB_ACL_EXECUTE : 0;
526
527                 DEBUGADD(10, ("Converted to %d perm %x\n",
528                               ace->a_type, ace->a_perm));
529         }
530
531         return result;
532 }
533
534 static SMB_ACL_T gpfsacl_get_posix_acl(const char *path, gpfs_aclType_t type)
535 {
536         struct gpfs_acl *pacl;
537         SMB_ACL_T result = NULL;
538
539         pacl = gpfs_getacl_alloc(path, type);
540
541         if (pacl == NULL) {
542                 DEBUG(10, ("gpfs_getacl failed for %s with %s\n",
543                            path, strerror(errno)));
544                 if (errno == 0) {
545                         errno = EINVAL;
546                 }
547                 goto done;
548         }
549
550         if (pacl->acl_version != GPFS_ACL_VERSION_POSIX) {
551                 DEBUG(10, ("Got acl version %d, expected %d\n",
552                            pacl->acl_version, GPFS_ACL_VERSION_POSIX));
553                 errno = EINVAL;
554                 goto done;
555         }
556
557         DEBUG(10, ("len: %d, level: %d, version: %d, nace: %d\n",
558                    pacl->acl_len, pacl->acl_level, pacl->acl_version,
559                    pacl->acl_nace));
560
561         result = gpfs2smb_acl(pacl);
562         if (result == NULL) {
563                 goto done;
564         }
565
566  done:
567
568         if (errno != 0) {
569                 SAFE_FREE(result);
570         }
571         return result;  
572 }
573
574 static SMB_ACL_T gpfsacl_sys_acl_get_file(vfs_handle_struct *handle,
575                                           const char *path_p,
576                                           SMB_ACL_TYPE_T type)
577 {
578         gpfs_aclType_t gpfs_type;
579
580         switch(type) {
581         case SMB_ACL_TYPE_ACCESS:
582                 gpfs_type = GPFS_ACL_TYPE_ACCESS;
583                 break;
584         case SMB_ACL_TYPE_DEFAULT:
585                 gpfs_type = GPFS_ACL_TYPE_DEFAULT;
586                 break;
587         default:
588                 DEBUG(0, ("Got invalid type: %d\n", type));
589                 smb_panic("exiting");
590         }
591
592         return gpfsacl_get_posix_acl(path_p, gpfs_type);
593 }
594
595 static SMB_ACL_T gpfsacl_sys_acl_get_fd(vfs_handle_struct *handle,
596                                         files_struct *fsp)
597 {
598         return gpfsacl_get_posix_acl(fsp->fsp_name->base_name,
599                                      GPFS_ACL_TYPE_ACCESS);
600 }
601
602 static struct gpfs_acl *smb2gpfs_acl(const SMB_ACL_T pacl,
603                                      SMB_ACL_TYPE_T type)
604 {
605         gpfs_aclLen_t len;
606         struct gpfs_acl *result;
607         int i;
608         union gpfs_ace_union
609         {
610                 gpfs_ace_v1_t  ace_v1[1]; /* when GPFS_ACL_VERSION_POSIX */
611                 gpfs_ace_v4_t  ace_v4[1]; /* when GPFS_ACL_VERSION_NFS4  */
612         };
613
614         DEBUG(10, ("smb2gpfs_acl: Got ACL with %d entries\n", pacl->count));
615
616         len = sizeof(struct gpfs_acl) - sizeof(union gpfs_ace_union) +
617                 (pacl->count)*sizeof(gpfs_ace_v1_t);
618
619         result = (struct gpfs_acl *)SMB_MALLOC(len);
620         if (result == NULL) {
621                 errno = ENOMEM;
622                 return result;
623         }
624
625         result->acl_len = len;
626         result->acl_level = 0;
627         result->acl_version = GPFS_ACL_VERSION_POSIX;
628         result->acl_type = (type == SMB_ACL_TYPE_DEFAULT) ?
629                 GPFS_ACL_TYPE_DEFAULT : GPFS_ACL_TYPE_ACCESS;
630         result->acl_nace = pacl->count;
631
632         for (i=0; i<pacl->count; i++) {
633                 const struct smb_acl_entry *ace = &pacl->acl[i];
634                 struct gpfs_ace_v1 *g_ace = &result->ace_v1[i];
635
636                 DEBUG(10, ("Converting type %d perm %x\n",
637                            (int)ace->a_type, (int)ace->a_perm));
638
639                 g_ace->ace_perm = 0;
640
641                 switch(ace->a_type) {
642                 case SMB_ACL_USER:
643                         g_ace->ace_type = GPFS_ACL_USER;
644                         g_ace->ace_who = (gpfs_uid_t)ace->uid;
645                         break;
646                 case SMB_ACL_USER_OBJ:
647                         g_ace->ace_type = GPFS_ACL_USER_OBJ;
648                         g_ace->ace_perm |= ACL_PERM_CONTROL;
649                         g_ace->ace_who = 0;
650                         break;
651                 case SMB_ACL_GROUP:
652                         g_ace->ace_type = GPFS_ACL_GROUP;
653                         g_ace->ace_who = (gpfs_uid_t)ace->gid;
654                         break;
655                 case SMB_ACL_GROUP_OBJ:
656                         g_ace->ace_type = GPFS_ACL_GROUP_OBJ;
657                         g_ace->ace_who = 0;
658                         break;
659                 case SMB_ACL_MASK:
660                         g_ace->ace_type = GPFS_ACL_MASK;
661                         g_ace->ace_perm = 0x8f;
662                         g_ace->ace_who = 0;
663                         break;
664                 case SMB_ACL_OTHER:
665                         g_ace->ace_type = GPFS_ACL_OTHER;
666                         g_ace->ace_who = 0;
667                         break;
668                 default:
669                         DEBUG(10, ("Got invalid ace_type: %d\n", ace->a_type));
670                         errno = EINVAL;
671                         SAFE_FREE(result);
672                         return NULL;
673                 }
674
675                 g_ace->ace_perm |= (ace->a_perm & SMB_ACL_READ) ?
676                         ACL_PERM_READ : 0;
677                 g_ace->ace_perm |= (ace->a_perm & SMB_ACL_WRITE) ?
678                         ACL_PERM_WRITE : 0;
679                 g_ace->ace_perm |= (ace->a_perm & SMB_ACL_EXECUTE) ?
680                         ACL_PERM_EXECUTE : 0;
681
682                 DEBUGADD(10, ("Converted to %d id %d perm %x\n",
683                               g_ace->ace_type, g_ace->ace_who, g_ace->ace_perm));
684         }
685
686         return result;
687 }
688
689 static int gpfsacl_sys_acl_set_file(vfs_handle_struct *handle,
690                                     const char *name,
691                                     SMB_ACL_TYPE_T type,
692                                     SMB_ACL_T theacl)
693 {
694         struct gpfs_acl *gpfs_acl;
695         int result;
696
697         gpfs_acl = smb2gpfs_acl(theacl, type);
698         if (gpfs_acl == NULL) {
699                 return -1;
700         }
701
702         result = smbd_gpfs_putacl((char *)name, GPFS_PUTACL_STRUCT | GPFS_ACL_SAMBA, gpfs_acl);
703
704         SAFE_FREE(gpfs_acl);
705         return result;
706 }
707
708 static int gpfsacl_sys_acl_set_fd(vfs_handle_struct *handle,
709                                   files_struct *fsp,
710                                   SMB_ACL_T theacl)
711 {
712         return gpfsacl_sys_acl_set_file(handle, fsp->fsp_name->base_name,
713                                         SMB_ACL_TYPE_ACCESS, theacl);
714 }
715
716 static int gpfsacl_sys_acl_delete_def_file(vfs_handle_struct *handle,
717                                            const char *path)
718 {
719         errno = ENOTSUP;
720         return -1;
721 }
722
723 /*
724  * Assumed: mode bits are shiftable and standard
725  * Output: the new aceMask field for an smb nfs4 ace
726  */
727 static uint32 gpfsacl_mask_filter(uint32 aceType, uint32 aceMask, uint32 rwx)
728 {
729         const uint32 posix_nfs4map[3] = {
730                 SMB_ACE4_EXECUTE, /* execute */
731                 SMB_ACE4_WRITE_DATA | SMB_ACE4_APPEND_DATA, /* write; GPFS specific */
732                 SMB_ACE4_READ_DATA /* read */
733         };
734         int     i;
735         uint32_t        posix_mask = 0x01;
736         uint32_t        posix_bit;
737         uint32_t        nfs4_bits;
738
739         for(i=0; i<3; i++) {
740                 nfs4_bits = posix_nfs4map[i];
741                 posix_bit = rwx & posix_mask;
742
743                 if (aceType==SMB_ACE4_ACCESS_ALLOWED_ACE_TYPE) {
744                         if (posix_bit)
745                                 aceMask |= nfs4_bits;
746                         else
747                                 aceMask &= ~nfs4_bits;
748                 } else {
749                         /* add deny bits when suitable */
750                         if (!posix_bit)
751                                 aceMask |= nfs4_bits;
752                         else
753                                 aceMask &= ~nfs4_bits;
754                 } /* other ace types are unexpected */
755
756                 posix_mask <<= 1;
757         }
758
759         return aceMask;
760 }
761
762 static int gpfsacl_emu_chmod(const char *path, mode_t mode)
763 {
764         SMB4ACL_T *pacl = NULL;
765         int     result;
766         bool    haveAllowEntry[SMB_ACE4_WHO_EVERYONE + 1] = {False, False, False, False};
767         int     i;
768         files_struct    fake_fsp; /* TODO: rationalize parametrization */
769         SMB4ACE_T       *smbace;
770         struct smb_filename *smb_fname = NULL;
771         NTSTATUS status;
772
773         DEBUG(10, ("gpfsacl_emu_chmod invoked for %s mode %o\n", path, mode));
774
775         result = gpfs_get_nfs4_acl(path, &pacl);
776         if (result)
777                 return result;
778
779         if (mode & ~(S_IRWXU | S_IRWXG | S_IRWXO)) {
780                 DEBUG(2, ("WARNING: cutting extra mode bits %o on %s\n", mode, path));
781         }
782
783         for (smbace=smb_first_ace4(pacl); smbace!=NULL; smbace = smb_next_ace4(smbace)) {
784                 SMB_ACE4PROP_T  *ace = smb_get_ace4(smbace);
785                 uint32_t        specid = ace->who.special_id;
786
787                 if (ace->flags&SMB_ACE4_ID_SPECIAL &&
788                     ace->aceType<=SMB_ACE4_ACCESS_DENIED_ACE_TYPE &&
789                     specid <= SMB_ACE4_WHO_EVERYONE) {
790
791                         uint32_t newMask;
792
793                         if (ace->aceType==SMB_ACE4_ACCESS_ALLOWED_ACE_TYPE)
794                                 haveAllowEntry[specid] = True;
795
796                         /* mode >> 6 for @owner, mode >> 3 for @group,
797                          * mode >> 0 for @everyone */
798                         newMask = gpfsacl_mask_filter(ace->aceType, ace->aceMask,
799                                                       mode >> ((SMB_ACE4_WHO_EVERYONE - specid) * 3));
800                         if (ace->aceMask!=newMask) {
801                                 DEBUG(10, ("ace changed for %s (%o -> %o) id=%d\n",
802                                            path, ace->aceMask, newMask, specid));
803                         }
804                         ace->aceMask = newMask;
805                 }
806         }
807
808         /* make sure we have at least ALLOW entries
809          * for all the 3 special ids (@EVERYONE, @OWNER, @GROUP)
810          * - if necessary
811          */
812         for(i = SMB_ACE4_WHO_OWNER; i<=SMB_ACE4_WHO_EVERYONE; i++) {
813                 SMB_ACE4PROP_T  ace;
814
815                 if (haveAllowEntry[i]==True)
816                         continue;
817
818                 ZERO_STRUCT(ace);
819                 ace.aceType = SMB_ACE4_ACCESS_ALLOWED_ACE_TYPE;
820                 ace.flags |= SMB_ACE4_ID_SPECIAL;
821                 ace.who.special_id = i;
822
823                 if (i==SMB_ACE4_WHO_GROUP) /* not sure it's necessary... */
824                         ace.aceFlags |= SMB_ACE4_IDENTIFIER_GROUP;
825
826                 ace.aceMask = gpfsacl_mask_filter(ace.aceType, ace.aceMask,
827                                                   mode >> ((SMB_ACE4_WHO_EVERYONE - i) * 3));
828
829                 /* don't add unnecessary aces */
830                 if (!ace.aceMask)
831                         continue;
832
833                 /* we add it to the END - as windows expects allow aces */
834                 smb_add_ace4(pacl, &ace);
835                 DEBUG(10, ("Added ALLOW ace for %s, mode=%o, id=%d, aceMask=%x\n",
836                            path, mode, i, ace.aceMask));
837         }
838
839         /* don't add complementary DENY ACEs here */
840         ZERO_STRUCT(fake_fsp);
841         status = create_synthetic_smb_fname(talloc_tos(), path, NULL, NULL,
842                                             &fake_fsp.fsp_name);
843         if (!NT_STATUS_IS_OK(status)) {
844                 errno = map_errno_from_nt_status(status);
845                 return -1;
846         }
847         /* put the acl */
848         if (gpfsacl_process_smbacl(&fake_fsp, pacl) == False) {
849                 TALLOC_FREE(fake_fsp.fsp_name);
850                 return -1;
851         }
852
853         TALLOC_FREE(fake_fsp.fsp_name);
854         return 0; /* ok for [f]chmod */
855 }
856
857 static int vfs_gpfs_chmod(vfs_handle_struct *handle, const char *path, mode_t mode)
858 {
859                  SMB_STRUCT_STAT st;
860                  int rc;
861
862                  if (SMB_VFS_NEXT_STAT(handle, path, &st) != 0) {
863                          return -1;
864                  }
865
866                  /* avoid chmod() if possible, to preserve acls */
867                  if ((st.st_ex_mode & ~S_IFMT) == mode) {
868                          return 0;
869                  }
870
871                  rc = gpfsacl_emu_chmod(path, mode);
872                  if (rc == 1)
873                          return SMB_VFS_NEXT_CHMOD(handle, path, mode);
874                  return rc;
875 }
876
877 static int vfs_gpfs_fchmod(vfs_handle_struct *handle, files_struct *fsp, mode_t mode)
878 {
879                  SMB_STRUCT_STAT st;
880                  int rc;
881
882                  if (SMB_VFS_NEXT_FSTAT(handle, fsp, &st) != 0) {
883                          return -1;
884                  }
885
886                  /* avoid chmod() if possible, to preserve acls */
887                  if ((st.st_ex_mode & ~S_IFMT) == mode) {
888                          return 0;
889                  }
890
891                  rc = gpfsacl_emu_chmod(fsp->fsp_name->base_name, mode);
892                  if (rc == 1)
893                          return SMB_VFS_NEXT_FCHMOD(handle, fsp, mode);
894                  return rc;
895 }
896
897 static int gpfs_set_xattr(struct vfs_handle_struct *handle,  const char *path,
898                            const char *name, const void *value, size_t size,  int flags){
899         const char *attrstr = value;
900         unsigned int dosmode=0;
901         struct gpfs_winattr attrs;
902         int ret = 0;
903
904         DEBUG(10, ("gpfs_set_xattr: %s \n",path));
905
906         /* Only handle DOS Attributes */
907         if (strcmp(name,SAMBA_XATTR_DOS_ATTRIB) != 0){
908                 DEBUG(1, ("gpfs_set_xattr:name is %s\n",name));
909                 return SMB_VFS_NEXT_SETXATTR(handle,path,name,value,size,flags);
910         }
911
912         if (size < 2 || attrstr[0] != '0' || attrstr[1] != 'x' ||
913                                 sscanf(attrstr, "%x", &dosmode) != 1) {
914                         DEBUG(1,("gpfs_set_xattr: Trying to set badly formed DOSATTRIB on file %s - %s\n", path, attrstr));
915                 return False;
916         }
917
918         attrs.winAttrs = 0;
919         /*Just map RD_ONLY, ARCHIVE, SYSTEM and HIDDEN. Ignore the others*/
920         if (dosmode & FILE_ATTRIBUTE_ARCHIVE){
921                 attrs.winAttrs |= GPFS_WINATTR_ARCHIVE;
922         }
923         if (dosmode & FILE_ATTRIBUTE_HIDDEN){
924                         attrs.winAttrs |= GPFS_WINATTR_HIDDEN;
925                 }
926         if (dosmode & FILE_ATTRIBUTE_SYSTEM){
927                         attrs.winAttrs |= GPFS_WINATTR_SYSTEM;
928                 }
929         if (dosmode & FILE_ATTRIBUTE_READONLY){
930                         attrs.winAttrs |= GPFS_WINATTR_READONLY;
931         }
932
933
934         ret = set_gpfs_winattrs(CONST_DISCARD(char *, path),
935                                 GPFS_WINATTR_SET_ATTRS, &attrs);
936         if ( ret == -1){
937                 DEBUG(1, ("gpfs_set_xattr:Set GPFS attributes failed %d\n",ret));
938                 return -1;
939         }
940
941         DEBUG(10, ("gpfs_set_xattr:Set attributes: 0x%x\n",attrs.winAttrs));
942         return 0;
943 }
944
945 static size_t gpfs_get_xattr(struct vfs_handle_struct *handle,  const char *path,
946                               const char *name, void *value, size_t size){
947         char *attrstr = value;
948         unsigned int dosmode = 0;
949         struct gpfs_winattr attrs;
950         int ret = 0;
951
952         DEBUG(10, ("gpfs_get_xattr: %s \n",path));
953
954         /* Only handle DOS Attributes */
955         if (strcmp(name,SAMBA_XATTR_DOS_ATTRIB) != 0){
956                 DEBUG(1, ("gpfs_get_xattr:name is %s\n",name));
957                 return SMB_VFS_NEXT_GETXATTR(handle,path,name,value,size);
958         }
959
960         ret = get_gpfs_winattrs(CONST_DISCARD(char *, path), &attrs);
961         if ( ret == -1){
962                 DEBUG(1, ("gpfs_get_xattr: Get GPFS attributes failed: %d\n",ret));
963                 return -1;
964         }
965
966         DEBUG(10, ("gpfs_get_xattr:Got attributes: 0x%x\n",attrs.winAttrs));
967
968         /*Just map RD_ONLY, ARCHIVE, SYSTEM and HIDDEN. Ignore the others*/
969         if (attrs.winAttrs & GPFS_WINATTR_ARCHIVE){
970                 dosmode |= FILE_ATTRIBUTE_ARCHIVE;
971         }
972         if (attrs.winAttrs & GPFS_WINATTR_HIDDEN){
973                 dosmode |= FILE_ATTRIBUTE_HIDDEN;
974         }
975         if (attrs.winAttrs & GPFS_WINATTR_SYSTEM){
976                 dosmode |= FILE_ATTRIBUTE_SYSTEM;
977         }
978         if (attrs.winAttrs & GPFS_WINATTR_READONLY){
979                 dosmode |= FILE_ATTRIBUTE_READONLY;
980         }
981
982         snprintf(attrstr, size, "0x%x", dosmode & SAMBA_ATTRIBUTES_MASK);
983         DEBUG(10, ("gpfs_get_xattr: returning %s\n",attrstr));
984         return size;
985 }
986
987 static int vfs_gpfs_stat(struct vfs_handle_struct *handle,
988                          struct smb_filename *smb_fname)
989 {
990         struct gpfs_winattr attrs;
991         char *fname = NULL;
992         NTSTATUS status;
993         int ret;
994
995         ret = SMB_VFS_NEXT_STAT(handle, smb_fname);
996         if (ret == -1) {
997                 return -1;
998         }
999         status = get_full_smb_filename(talloc_tos(), smb_fname, &fname);
1000         if (!NT_STATUS_IS_OK) {
1001                 errno = map_errno_from_nt_status(status);
1002                 return -1;
1003         }
1004         ret = get_gpfs_winattrs(CONST_DISCARD(char *, fname), &attrs);
1005         TALLOC_FREE(fname);
1006         if (ret == 0) {
1007                 smb_fname->st.st_ex_btime.tv_sec = attrs.creationTime.tv_sec;
1008                 smb_fname->st.st_ex_btime.tv_nsec = attrs.creationTime.tv_nsec;
1009         }
1010         return 0;
1011 }
1012
1013 static int vfs_gpfs_fstat(struct vfs_handle_struct *handle,
1014                           struct files_struct *fsp, SMB_STRUCT_STAT *sbuf)
1015 {
1016         struct gpfs_winattr attrs;
1017         int ret;
1018
1019         ret = SMB_VFS_NEXT_FSTAT(handle, fsp, sbuf);
1020         if (ret == -1) {
1021                 return -1;
1022         }
1023         if ((fsp->fh == NULL) || (fsp->fh->fd == -1)) {
1024                 return 0;
1025         }
1026         ret = smbd_fget_gpfs_winattrs(fsp->fh->fd, &attrs);
1027         if (ret == 0) {
1028                 sbuf->st_ex_btime.tv_sec = attrs.creationTime.tv_sec;
1029                 sbuf->st_ex_btime.tv_nsec = attrs.creationTime.tv_nsec;
1030         }
1031         return 0;
1032 }
1033
1034 static int vfs_gpfs_lstat(struct vfs_handle_struct *handle,
1035                           struct smb_filename *smb_fname)
1036 {
1037         struct gpfs_winattr attrs;
1038         char *path = NULL;
1039         NTSTATUS status;
1040         int ret;
1041
1042         ret = SMB_VFS_NEXT_LSTAT(handle, smb_fname);
1043         if (ret == -1) {
1044                 return -1;
1045         }
1046         status = get_full_smb_filename(talloc_tos(), smb_fname, &path);
1047         if (!NT_STATUS_IS_OK) {
1048                 errno = map_errno_from_nt_status(status);
1049                 return -1;
1050         }
1051         ret = get_gpfs_winattrs(CONST_DISCARD(char *, path), &attrs);
1052         TALLOC_FREE(path);
1053         if (ret == 0) {
1054                 smb_fname->st.st_ex_btime.tv_sec = attrs.creationTime.tv_sec;
1055                 smb_fname->st.st_ex_btime.tv_nsec = attrs.creationTime.tv_nsec;
1056         }
1057         return 0;
1058 }
1059
1060 /* VFS operations structure */
1061
1062 static vfs_op_tuple gpfs_op_tuples[] = {
1063
1064         { SMB_VFS_OP(vfs_gpfs_kernel_flock), 
1065           SMB_VFS_OP_KERNEL_FLOCK,
1066           SMB_VFS_LAYER_OPAQUE },
1067
1068         { SMB_VFS_OP(vfs_gpfs_setlease), 
1069           SMB_VFS_OP_LINUX_SETLEASE,
1070           SMB_VFS_LAYER_OPAQUE },
1071
1072         { SMB_VFS_OP(vfs_gpfs_get_real_filename),
1073           SMB_VFS_OP_GET_REAL_FILENAME,
1074           SMB_VFS_LAYER_OPAQUE },
1075
1076         { SMB_VFS_OP(gpfsacl_fget_nt_acl), 
1077           SMB_VFS_OP_FGET_NT_ACL,
1078           SMB_VFS_LAYER_TRANSPARENT },
1079
1080         { SMB_VFS_OP(gpfsacl_get_nt_acl), 
1081           SMB_VFS_OP_GET_NT_ACL,
1082           SMB_VFS_LAYER_TRANSPARENT },
1083
1084         { SMB_VFS_OP(gpfsacl_fset_nt_acl), 
1085           SMB_VFS_OP_FSET_NT_ACL,
1086           SMB_VFS_LAYER_TRANSPARENT },
1087
1088         { SMB_VFS_OP(gpfsacl_sys_acl_get_file), 
1089           SMB_VFS_OP_SYS_ACL_GET_FILE,
1090           SMB_VFS_LAYER_TRANSPARENT },
1091
1092         { SMB_VFS_OP(gpfsacl_sys_acl_get_fd), 
1093           SMB_VFS_OP_SYS_ACL_GET_FD,
1094           SMB_VFS_LAYER_TRANSPARENT },
1095
1096         { SMB_VFS_OP(gpfsacl_sys_acl_set_file), 
1097           SMB_VFS_OP_SYS_ACL_SET_FILE,
1098           SMB_VFS_LAYER_TRANSPARENT },
1099
1100         { SMB_VFS_OP(gpfsacl_sys_acl_set_fd), 
1101           SMB_VFS_OP_SYS_ACL_SET_FD,
1102           SMB_VFS_LAYER_TRANSPARENT },
1103
1104         { SMB_VFS_OP(gpfsacl_sys_acl_delete_def_file),
1105           SMB_VFS_OP_SYS_ACL_DELETE_DEF_FILE,
1106           SMB_VFS_LAYER_TRANSPARENT },
1107
1108         { SMB_VFS_OP(vfs_gpfs_chmod), 
1109           SMB_VFS_OP_CHMOD,
1110           SMB_VFS_LAYER_TRANSPARENT },
1111
1112         { SMB_VFS_OP(vfs_gpfs_fchmod), 
1113           SMB_VFS_OP_FCHMOD,
1114           SMB_VFS_LAYER_TRANSPARENT },
1115
1116         { SMB_VFS_OP(vfs_gpfs_close),
1117           SMB_VFS_OP_CLOSE,
1118           SMB_VFS_LAYER_TRANSPARENT },
1119
1120         { SMB_VFS_OP(gpfs_set_xattr),
1121           SMB_VFS_OP_SETXATTR,
1122           SMB_VFS_LAYER_TRANSPARENT },
1123
1124         { SMB_VFS_OP(gpfs_get_xattr),
1125           SMB_VFS_OP_GETXATTR,
1126           SMB_VFS_LAYER_TRANSPARENT },
1127
1128         { SMB_VFS_OP(vfs_gpfs_stat),
1129           SMB_VFS_OP_STAT,
1130           SMB_VFS_LAYER_TRANSPARENT },
1131
1132         { SMB_VFS_OP(vfs_gpfs_fstat),
1133           SMB_VFS_OP_FSTAT,
1134           SMB_VFS_LAYER_TRANSPARENT },
1135
1136         { SMB_VFS_OP(vfs_gpfs_lstat),
1137           SMB_VFS_OP_LSTAT,
1138           SMB_VFS_LAYER_TRANSPARENT },
1139
1140         { SMB_VFS_OP(NULL), SMB_VFS_OP_NOOP, SMB_VFS_LAYER_NOOP }
1141
1142 };
1143
1144
1145 NTSTATUS vfs_gpfs_init(void);
1146 NTSTATUS vfs_gpfs_init(void)
1147 {
1148         init_gpfs();
1149
1150         return smb_register_vfs(SMB_VFS_INTERFACE_VERSION, "gpfs",
1151                                 gpfs_op_tuples);
1152 }