efcc98167945c9e9059e192b9c7fd1196ac68299
[nivanova/samba-autobuild/.git] / source3 / modules / vfs_netatalk.c
1 /* 
2  * AppleTalk VFS module for Samba-3.x
3  *
4  * Copyright (C) Alexei Kotovich, 2002
5  * Copyright (C) Stefan (metze) Metzmacher, 2003
6  *
7  * This program is free software; you can redistribute it and/or modify
8  * it under the terms of the GNU General Public License as published by
9  * the Free Software Foundation; either version 2 of the License, or
10  * (at your option) any later version.
11  *  
12  * This program is distributed in the hope that it will be useful,
13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15  * GNU General Public License for more details.
16  *  
17  * You should have received a copy of the GNU General Public License
18  * along with this program; if not, write to the Free Software
19  * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
20  */
21
22 #include "includes.h"
23
24 #undef DBGC_CLASS
25 #define DBGC_CLASS DBGC_VFS
26
27 #define APPLEDOUBLE     ".AppleDouble"
28 #define ADOUBLEMODE     0777
29
30 /* atalk functions */
31
32 static int atalk_build_paths(TALLOC_CTX *ctx, const char *path,
33   const char *fname, char **adbl_path, char **orig_path, 
34   SMB_STRUCT_STAT *adbl_info, SMB_STRUCT_STAT *orig_info);
35
36 static int atalk_unlink_file(const char *path);
37
38 static int atalk_get_path_ptr(char *path)
39 {
40         int i   = 0;
41         int ptr = 0;
42         
43         for (i = 0; path[i]; i ++) {
44                 if (path[i] == '/')
45                         ptr = i;
46                 /* get out some 'spam';) from win32's file name */
47                 else if (path[i] == ':') {
48                         path[i] = '\0';
49                         break;
50                 }
51         }
52         
53         return ptr;
54 }
55
56 static int atalk_build_paths(TALLOC_CTX *ctx, const char *path, const char *fname,
57                               char **adbl_path, char **orig_path,
58                               SMB_STRUCT_STAT *adbl_info, SMB_STRUCT_STAT *orig_info)
59 {
60         int ptr0 = 0;
61         int ptr1 = 0;
62         char *dname = 0;
63         char *name  = 0;
64
65         if (!ctx || !path || !fname || !adbl_path || !orig_path ||
66                 !adbl_info || !orig_info)
67                 return -1;
68 #if 0
69         DEBUG(3, ("ATALK: PATH: %s[%s]\n", path, fname));
70 #endif
71         if (strstr(path, APPLEDOUBLE) || strstr(fname, APPLEDOUBLE)) {
72                 DEBUG(3, ("ATALK: path %s[%s] already contains %s\n", path, fname, APPLEDOUBLE));
73                 return -1;
74         }
75
76         if (fname[0] == '.') ptr0 ++;
77         if (fname[1] == '/') ptr0 ++;
78
79         *orig_path = talloc_asprintf(ctx, "%s/%s", path, &fname[ptr0]);
80
81         /* get pointer to last '/' */
82         ptr1 = atalk_get_path_ptr(*orig_path);
83
84         sys_lstat(*orig_path, orig_info);
85
86         if (S_ISDIR(orig_info->st_mode)) {
87                 *adbl_path = talloc_asprintf(ctx, "%s/%s/%s/", 
88                   path, &fname[ptr0], APPLEDOUBLE);
89         } else {
90                 dname = talloc_strdup(ctx, *orig_path);
91                 dname[ptr1] = '\0';
92                 name = *orig_path;
93                 *adbl_path = talloc_asprintf(ctx, "%s/%s/%s", 
94                   dname, APPLEDOUBLE, &name[ptr1 + 1]);
95         }
96 #if 0
97         DEBUG(3, ("ATALK: DEBUG:\n%s\n%s\n", *orig_path, *adbl_path)); 
98 #endif
99         sys_lstat(*adbl_path, adbl_info);
100         return 0;
101 }
102
103 static int atalk_unlink_file(const char *path)
104 {
105         int ret = 0;
106
107         become_root();
108         ret = unlink(path);
109         unbecome_root();
110         
111         return ret;
112 }
113
114 static void atalk_add_to_list(name_compare_entry **list)
115 {
116         int i, count = 0;
117         name_compare_entry *new_list = 0;
118         name_compare_entry *cur_list = 0;
119
120         cur_list = *list;
121
122         if (cur_list) {
123                 for (i = 0, count = 0; cur_list[i].name; i ++, count ++) {
124                         if (strstr(cur_list[i].name, APPLEDOUBLE))
125                                 return;
126                 }
127         }
128
129         if (!(new_list = SMB_CALLOC_ARRAY(name_compare_entry, (count == 0 ? 1 : count + 1))))
130                 return;
131
132         for (i = 0; i < count; i ++) {
133                 new_list[i].name    = SMB_STRDUP(cur_list[i].name);
134                 new_list[i].is_wild = cur_list[i].is_wild;
135         }
136
137         new_list[i].name    = SMB_STRDUP(APPLEDOUBLE);
138         new_list[i].is_wild = False;
139
140         free_namearray(*list);
141
142         *list = new_list;
143         new_list = 0;
144         cur_list = 0;
145 }
146
147 static void atalk_rrmdir(TALLOC_CTX *ctx, char *path)
148 {
149         char *dpath;
150         SMB_STRUCT_DIRENT *dent = 0;
151         SMB_STRUCT_DIR *dir;
152
153         if (!path) return;
154
155         dir = sys_opendir(path);
156         if (!dir) return;
157
158         while (NULL != (dent = sys_readdir(dir))) {
159                 if (strcmp(dent->d_name, ".") == 0 ||
160                     strcmp(dent->d_name, "..") == 0)
161                         continue;
162                 if (!(dpath = talloc_asprintf(ctx, "%s/%s", 
163                                               path, dent->d_name)))
164                         continue;
165                 atalk_unlink_file(dpath);
166         }
167
168         sys_closedir(dir);
169 }
170
171 /* Disk operations */
172
173 /* Directory operations */
174
175 static SMB_STRUCT_DIR *atalk_opendir(struct vfs_handle_struct *handle, const char *fname, const char *mask, uint32 attr)
176 {
177         SMB_STRUCT_DIR *ret = 0;
178
179         ret = SMB_VFS_NEXT_OPENDIR(handle, fname, mask, attr);
180
181         /*
182          * when we try to perform delete operation upon file which has fork
183          * in ./.AppleDouble and this directory wasn't hidden by Samba,
184          * MS Windows explorer causes the error: "Cannot find the specified file"
185          * There is some workaround to avoid this situation, i.e. if
186          * connection has not .AppleDouble entry in either veto or hide 
187          * list then it would be nice to add one.
188          */
189
190         atalk_add_to_list(&handle->conn->hide_list);
191         atalk_add_to_list(&handle->conn->veto_list);
192
193         return ret;
194 }
195
196 static int atalk_rmdir(struct vfs_handle_struct *handle, const char *path)
197 {
198         BOOL add = False;
199         TALLOC_CTX *ctx = 0;
200         char *dpath;
201
202         if (!handle->conn->origpath || !path) goto exit_rmdir;
203
204         /* due to there is no way to change bDeleteVetoFiles variable
205          * from this module, gotta use talloc stuff..
206          */
207
208         strstr(path, APPLEDOUBLE) ? (add = False) : (add = True);
209
210         if (!(ctx = talloc_init("remove_directory")))
211                 goto exit_rmdir;
212
213         if (!(dpath = talloc_asprintf(ctx, "%s/%s%s", 
214           handle->conn->origpath, path, add ? "/"APPLEDOUBLE : "")))
215                 goto exit_rmdir;
216
217         atalk_rrmdir(ctx, dpath);
218
219 exit_rmdir:
220         talloc_destroy(ctx);
221         return SMB_VFS_NEXT_RMDIR(handle, path);
222 }
223
224 /* File operations */
225
226 static int atalk_rename(struct vfs_handle_struct *handle, const char *oldname, const char *newname)
227 {
228         int ret = 0;
229         char *adbl_path = 0;
230         char *orig_path = 0;
231         SMB_STRUCT_STAT adbl_info;
232         SMB_STRUCT_STAT orig_info;
233         TALLOC_CTX *ctx;
234
235         ret = SMB_VFS_NEXT_RENAME(handle, oldname, newname);
236
237         if (!oldname) return ret;
238
239         if (!(ctx = talloc_init("rename_file")))
240                 return ret;
241
242         if (atalk_build_paths(ctx, handle->conn->origpath, oldname, &adbl_path, &orig_path,
243           &adbl_info, &orig_info) != 0)
244                 goto exit_rename;
245
246         if (S_ISDIR(orig_info.st_mode) || S_ISREG(orig_info.st_mode)) {
247                 DEBUG(3, ("ATALK: %s has passed..\n", adbl_path));              
248                 goto exit_rename;
249         }
250
251         atalk_unlink_file(adbl_path);
252
253 exit_rename:
254         talloc_destroy(ctx);
255         return ret;
256 }
257
258 static int atalk_unlink(struct vfs_handle_struct *handle, const char *path)
259 {
260         int ret = 0, i;
261         char *adbl_path = 0;
262         char *orig_path = 0;
263         SMB_STRUCT_STAT adbl_info;
264         SMB_STRUCT_STAT orig_info;
265         TALLOC_CTX *ctx;
266
267         ret = SMB_VFS_NEXT_UNLINK(handle, path);
268
269         if (!path) return ret;
270
271         /* no .AppleDouble sync if veto or hide list is empty,
272          * otherwise "Cannot find the specified file" error will be caused
273          */
274
275         if (!handle->conn->veto_list) return ret;
276         if (!handle->conn->hide_list) return ret;
277
278         for (i = 0; handle->conn->veto_list[i].name; i ++) {
279                 if (strstr(handle->conn->veto_list[i].name, APPLEDOUBLE))
280                         break;
281         }
282
283         if (!handle->conn->veto_list[i].name) {
284                 for (i = 0; handle->conn->hide_list[i].name; i ++) {
285                         if (strstr(handle->conn->hide_list[i].name, APPLEDOUBLE))
286                                 break;
287                         else {
288                                 DEBUG(3, ("ATALK: %s is not hidden, skipped..\n",
289                                   APPLEDOUBLE));                
290                                 return ret;
291                         }
292                 }
293         }
294
295         if (!(ctx = talloc_init("unlink_file")))
296                 return ret;
297
298         if (atalk_build_paths(ctx, handle->conn->origpath, path, &adbl_path, &orig_path,
299           &adbl_info, &orig_info) != 0)
300                 goto exit_unlink;
301
302         if (S_ISDIR(orig_info.st_mode) || S_ISREG(orig_info.st_mode)) {
303                 DEBUG(3, ("ATALK: %s has passed..\n", adbl_path));
304                 goto exit_unlink;
305         }
306
307         atalk_unlink_file(adbl_path);
308
309 exit_unlink:    
310         talloc_destroy(ctx);
311         return ret;
312 }
313
314 static int atalk_chmod(struct vfs_handle_struct *handle, const char *path, mode_t mode)
315 {
316         int ret = 0;
317         char *adbl_path = 0;
318         char *orig_path = 0;
319         SMB_STRUCT_STAT adbl_info;
320         SMB_STRUCT_STAT orig_info;
321         TALLOC_CTX *ctx;
322
323         ret = SMB_VFS_NEXT_CHMOD(handle, path, mode);
324
325         if (!path) return ret;
326
327         if (!(ctx = talloc_init("chmod_file")))
328                 return ret;
329
330         if (atalk_build_paths(ctx, handle->conn->origpath, path, &adbl_path, &orig_path,
331           &adbl_info, &orig_info) != 0)
332                 goto exit_chmod;
333
334         if (!S_ISDIR(orig_info.st_mode) && !S_ISREG(orig_info.st_mode)) {
335                 DEBUG(3, ("ATALK: %s has passed..\n", orig_path));              
336                 goto exit_chmod;
337         }
338
339         chmod(adbl_path, ADOUBLEMODE);
340
341 exit_chmod:     
342         talloc_destroy(ctx);
343         return ret;
344 }
345
346 static int atalk_chown(struct vfs_handle_struct *handle, const char *path, uid_t uid, gid_t gid)
347 {
348         int ret = 0;
349         char *adbl_path = 0;
350         char *orig_path = 0;
351         SMB_STRUCT_STAT adbl_info;
352         SMB_STRUCT_STAT orig_info;
353         TALLOC_CTX *ctx;
354
355         ret = SMB_VFS_NEXT_CHOWN(handle, path, uid, gid);
356
357         if (!path) return ret;
358
359         if (!(ctx = talloc_init("chown_file")))
360                 return ret;
361
362         if (atalk_build_paths(ctx, handle->conn->origpath, path, &adbl_path, &orig_path,
363           &adbl_info, &orig_info) != 0)
364                 goto exit_chown;
365
366         if (!S_ISDIR(orig_info.st_mode) && !S_ISREG(orig_info.st_mode)) {
367                 DEBUG(3, ("ATALK: %s has passed..\n", orig_path));              
368                 goto exit_chown;
369         }
370
371         chown(adbl_path, uid, gid);
372
373 exit_chown:     
374         talloc_destroy(ctx);
375         return ret;
376 }
377
378 static vfs_op_tuple atalk_ops[] = {
379     
380         /* Directory operations */
381
382         {SMB_VFS_OP(atalk_opendir),             SMB_VFS_OP_OPENDIR,     SMB_VFS_LAYER_TRANSPARENT},
383         {SMB_VFS_OP(atalk_rmdir),               SMB_VFS_OP_RMDIR,       SMB_VFS_LAYER_TRANSPARENT},
384
385         /* File operations */
386
387         {SMB_VFS_OP(atalk_rename),              SMB_VFS_OP_RENAME,      SMB_VFS_LAYER_TRANSPARENT},
388         {SMB_VFS_OP(atalk_unlink),              SMB_VFS_OP_UNLINK,      SMB_VFS_LAYER_TRANSPARENT},
389         {SMB_VFS_OP(atalk_chmod),               SMB_VFS_OP_CHMOD,       SMB_VFS_LAYER_TRANSPARENT},
390         {SMB_VFS_OP(atalk_chown),               SMB_VFS_OP_CHOWN,       SMB_VFS_LAYER_TRANSPARENT},
391         
392         /* Finish VFS operations definition */
393         
394         {SMB_VFS_OP(NULL),                      SMB_VFS_OP_NOOP,        SMB_VFS_LAYER_NOOP}
395 };
396
397 NTSTATUS vfs_netatalk_init(void);
398 NTSTATUS vfs_netatalk_init(void)
399 {
400         return smb_register_vfs(SMB_VFS_INTERFACE_VERSION, "netatalk", atalk_ops);
401 }