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
32static 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
36static int atalk_unlink_file(const char *path);
37
38static 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
56static 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
103static 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
114static 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
147static void atalk_rrmdir(TALLOC_CTX *ctx, char *path)
148{
149	char *dpath;
150	SMB_STRUCT_DIRENT *dent = 0;
151	DIR *dir;
152
153	if (!path) return;
154
155	dir = 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	closedir(dir);
169}
170
171/* Disk operations */
172
173/* Directory operations */
174
175DIR *atalk_opendir(struct vfs_handle_struct *handle, struct connection_struct *conn, const char *fname)
176{
177	DIR *ret = 0;
178
179	ret = SMB_VFS_NEXT_OPENDIR(handle, conn, fname);
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(&conn->hide_list);
191	atalk_add_to_list(&conn->veto_list);
192
193	return ret;
194}
195
196static int atalk_rmdir(struct vfs_handle_struct *handle, struct connection_struct *conn, const char *path)
197{
198	BOOL add = False;
199	TALLOC_CTX *ctx = 0;
200	char *dpath;
201
202	if (!conn || !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	  conn->origpath, path, add ? "/"APPLEDOUBLE : "")))
215		goto exit_rmdir;
216
217	atalk_rrmdir(ctx, dpath);
218
219exit_rmdir:
220	talloc_destroy(ctx);
221	return SMB_VFS_NEXT_RMDIR(handle, conn, path);
222}
223
224/* File operations */
225
226static int atalk_rename(struct vfs_handle_struct *handle, struct connection_struct *conn, const char *old, const char *new)
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, conn, old, new);
236
237	if (!conn || !old) return ret;
238
239	if (!(ctx = talloc_init("rename_file")))
240		return ret;
241
242	if (atalk_build_paths(ctx, conn->origpath, old, &adbl_path, &orig_path,
243	  &adbl_info, &orig_info) != 0)
244		return ret;
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
253exit_rename:
254	talloc_destroy(ctx);
255	return ret;
256}
257
258static int atalk_unlink(struct vfs_handle_struct *handle, struct connection_struct *conn, 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, conn, path);
268
269	if (!conn || !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 (!conn->veto_list) return ret;
276	if (!conn->hide_list) return ret;
277
278	for (i = 0; conn->veto_list[i].name; i ++) {
279		if (strstr(conn->veto_list[i].name, APPLEDOUBLE))
280			break;
281	}
282
283	if (!conn->veto_list[i].name) {
284		for (i = 0; conn->hide_list[i].name; i ++) {
285			if (strstr(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, conn->origpath, path, &adbl_path, &orig_path,
299	  &adbl_info, &orig_info) != 0)
300		return ret;
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
309exit_unlink:
310	talloc_destroy(ctx);
311	return ret;
312}
313
314static int atalk_chmod(struct vfs_handle_struct *handle, struct connection_struct *conn, 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, conn, path, mode);
324
325	if (!conn || !path) return ret;
326
327	if (!(ctx = talloc_init("chmod_file")))
328		return ret;
329
330	if (atalk_build_paths(ctx, conn->origpath, path, &adbl_path, &orig_path,
331	  &adbl_info, &orig_info) != 0)
332		return ret;
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
341exit_chmod:
342	talloc_destroy(ctx);
343	return ret;
344}
345
346static int atalk_chown(struct vfs_handle_struct *handle, struct connection_struct *conn, 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, conn, path, uid, gid);
356
357	if (!conn || !path) return ret;
358
359	if (!(ctx = talloc_init("chown_file")))
360		return ret;
361
362	if (atalk_build_paths(ctx, conn->origpath, path, &adbl_path, &orig_path,
363	  &adbl_info, &orig_info) != 0)
364		return ret;
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
373exit_chown:
374	talloc_destroy(ctx);
375	return ret;
376}
377
378static 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
397NTSTATUS vfs_netatalk_init(void)
398{
399	return smb_register_vfs(SMB_VFS_INTERFACE_VERSION, "netatalk", atalk_ops);
400}
401