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 3 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, see <http://www.gnu.org/licenses/>.
  19  */
  20
  21 #include "includes.h"
  22 #include "smbd/smbd.h"
  23 #include "system/filesys.h"
  24
  25 #undef DBGC_CLASS
  26 #define DBGC_CLASS DBGC_VFS
  27
  28 #define APPLEDOUBLE     ".AppleDouble"
  29 #define ADOUBLEMODE     0777
  30
  31 /* atalk functions */
  32
  33 static int atalk_build_paths(TALLOC_CTX *ctx, const char *path,
  34                              const char *fname,
  35                              char **adbl_path, char **orig_path,
  36                              SMB_STRUCT_STAT *adbl_info,
  37                              SMB_STRUCT_STAT *orig_info);
  38
  39 static int atalk_unlink_file(const char *path);
  40
  41 static int atalk_get_path_ptr(char *path)
  42 {
  43         int i   = 0;
  44         int ptr = 0;
  45
  46         for (i = 0; path[i]; i ++) {
  47                 if (path[i] == '/')
  48                         ptr = i;
  49                 /* get out some 'spam';) from win32's file name */
  50                 else if (path[i] == ':') {
  51                         path[i] = '\0';
  52                         break;
  53                 }
  54         }
  55
  56         return ptr;
  57 }
  58
  59 static int atalk_build_paths(TALLOC_CTX *ctx, const char *path,
  60                              const char *fname,
  61                              char **adbl_path, char **orig_path,
  62                              SMB_STRUCT_STAT *adbl_info,
  63                              SMB_STRUCT_STAT *orig_info)
  64 {
  65         int ptr0 = 0;
  66         int ptr1 = 0;
  67         char *dname = 0;
  68         char *name  = 0;
  69
  70         if (!ctx || !path || !fname || !adbl_path || !orig_path ||
  71                 !adbl_info || !orig_info)
  72                 return -1;
  73 #if 0
  74         DEBUG(3, ("ATALK: PATH: %s[%s]\n", path, fname));
  75 #endif
  76         if (strstr_m(path, APPLEDOUBLE) || strstr_m(fname, APPLEDOUBLE)) {
  77                 DEBUG(3, ("ATALK: path %s[%s] already contains %s\n", path, fname, APPLEDOUBLE));
  78                 return -1;
  79         }
  80
  81         if (fname[0] == '.') ptr0 ++;
  82         if (fname[1] == '/') ptr0 ++;
  83
  84         *orig_path = talloc_asprintf(ctx, "%s/%s", path, &fname[ptr0]);
  85
  86         /* get pointer to last '/' */
  87         ptr1 = atalk_get_path_ptr(*orig_path);
  88
  89         sys_lstat(*orig_path, orig_info, false);
  90
  91         if (S_ISDIR(orig_info->st_ex_mode)) {
  92                 *adbl_path = talloc_asprintf(ctx, "%s/%s/%s/",
  93                   path, &fname[ptr0], APPLEDOUBLE);
  94         } else {
  95                 dname = talloc_strdup(ctx, *orig_path);
  96                 dname[ptr1] = '\0';
  97                 name = *orig_path;
  98                 *adbl_path = talloc_asprintf(ctx, "%s/%s/%s",
  99                   dname, APPLEDOUBLE, &name[ptr1 + 1]);
 100         }
 101 #if 0
 102         DEBUG(3, ("ATALK: DEBUG:\n%s\n%s\n", *orig_path, *adbl_path));
 103 #endif
 104         sys_lstat(*adbl_path, adbl_info, false);
 105         return 0;
 106 }
 107
 108 static int atalk_unlink_file(const char *path)
 109 {
 110         int ret = 0;
 111
 112         become_root();
 113         ret = unlink(path);
 114         unbecome_root();
 115
 116         return ret;
 117 }
 118
 119 static void atalk_add_to_list(name_compare_entry **list)
 120 {
 121         int i, count = 0;
 122         name_compare_entry *new_list = 0;
 123         name_compare_entry *cur_list = 0;
 124
 125         cur_list = *list;
 126
 127         if (cur_list) {
 128                 for (i = 0, count = 0; cur_list[i].name; i ++, count ++) {
 129                         if (strstr_m(cur_list[i].name, APPLEDOUBLE))
 130                                 return;
 131                 }
 132         }
 133
 134         if (!(new_list = SMB_CALLOC_ARRAY(name_compare_entry, count + 2)))
 135                 return;
 136
 137         for (i = 0; i < count; i ++) {
 138                 new_list[i].name    = SMB_STRDUP(cur_list[i].name);
 139                 new_list[i].is_wild = cur_list[i].is_wild;
 140         }
 141
 142         new_list[i].name    = SMB_STRDUP(APPLEDOUBLE);
 143         new_list[i].is_wild = False;
 144
 145         free_namearray(*list);
 146
 147         *list = new_list;
 148         new_list = 0;
 149         cur_list = 0;
 150 }
 151
 152 static void atalk_rrmdir(TALLOC_CTX *ctx, char *path)
 153 {
 154         char *dpath;
 155         struct dirent *dent = 0;
 156         DIR *dir;
 157
 158         if (!path) return;
 159
 160         dir = opendir(path);
 161         if (!dir) return;
 162
 163         while (NULL != (dent = readdir(dir))) {
 164                 if (strcmp(dent->d_name, ".") == 0 ||
 165                     strcmp(dent->d_name, "..") == 0)
 166                         continue;
 167                 if (!(dpath = talloc_asprintf(ctx, "%s/%s",
 168                                               path, dent->d_name)))
 169                         continue;
 170                 atalk_unlink_file(dpath);
 171         }
 172
 173         closedir(dir);
 174 }
 175
 176 /* Disk operations */
 177
 178 /* Directory operations */
 179
 180 static DIR *atalk_opendir(struct vfs_handle_struct *handle,
 181                         const struct smb_filename *smb_fname,
 182                         const char *mask,
 183                         uint32_t attr)
 184 {
 185         DIR *ret = 0;
 186
 187         ret = SMB_VFS_NEXT_OPENDIR(handle, smb_fname, mask, attr);
 188
 189         /*
 190          * when we try to perform delete operation upon file which has fork
 191          * in ./.AppleDouble and this directory wasn't hidden by Samba,
 192          * MS Windows explorer causes the error: "Cannot find the specified file"
 193          * There is some workaround to avoid this situation, i.e. if
 194          * connection has not .AppleDouble entry in either veto or hide
 195          * list then it would be nice to add one.
 196          */
 197
 198         atalk_add_to_list(&handle->conn->hide_list);
 199         atalk_add_to_list(&handle->conn->veto_list);
 200
 201         return ret;
 202 }
 203
 204 static DIR *atalk_fdopendir(struct vfs_handle_struct *handle, files_struct *fsp, const char *mask, uint32_t attr)
 205 {
 206         DIR *ret = 0;
 207
 208         ret = SMB_VFS_NEXT_FDOPENDIR(handle, fsp, mask, attr);
 209
 210         if (ret == NULL) {
 211                 return ret;
 212         }
 213
 214         /*
 215          * when we try to perform delete operation upon file which has fork
 216          * in ./.AppleDouble and this directory wasn't hidden by Samba,
 217          * MS Windows explorer causes the error: "Cannot find the specified file"
 218          * There is some workaround to avoid this situation, i.e. if
 219          * connection has not .AppleDouble entry in either veto or hide
 220          * list then it would be nice to add one.
 221          */
 222
 223         atalk_add_to_list(&handle->conn->hide_list);
 224         atalk_add_to_list(&handle->conn->veto_list);
 225
 226         return ret;
 227 }
 228
 229 static int atalk_rmdir(struct vfs_handle_struct *handle,
 230                         const struct smb_filename *smb_fname)
 231 {
 232         bool add = False;
 233         TALLOC_CTX *ctx = 0;
 234         const char *path = smb_fname->base_name;
 235         char *dpath;
 236
 237         if (!handle->conn->cwd_fname->base_name || !path) goto exit_rmdir;
 238
 239         /* due to there is no way to change bDeleteVetoFiles variable
 240          * from this module, gotta use talloc stuff..
 241          */
 242
 243         strstr_m(path, APPLEDOUBLE) ? (add = False) : (add = True);
 244
 245         if (!(ctx = talloc_init("remove_directory")))
 246                 goto exit_rmdir;
 247
 248         if (!(dpath = talloc_asprintf(ctx, "%s/%s%s",
 249           handle->conn->cwd_fname->base_name, path, add ? "/"APPLEDOUBLE : "")))
 250                 goto exit_rmdir;
 251
 252         atalk_rrmdir(ctx, dpath);
 253
 254 exit_rmdir:
 255         talloc_destroy(ctx);
 256         return SMB_VFS_NEXT_RMDIR(handle, smb_fname);
 257 }
 258
 259 /* File operations */
 260
 261 static int atalk_rename(struct vfs_handle_struct *handle,
 262                         const struct smb_filename *smb_fname_src,
 263                         const struct smb_filename *smb_fname_dst)
 264 {
 265         int ret = 0;
 266         char *oldname = NULL;
 267         char *adbl_path = NULL;
 268         char *orig_path = NULL;
 269         SMB_STRUCT_STAT adbl_info;
 270         SMB_STRUCT_STAT orig_info;
 271         NTSTATUS status;
 272
 273         ret = SMB_VFS_NEXT_RENAME(handle, smb_fname_src, smb_fname_dst);
 274
 275         status = get_full_smb_filename(talloc_tos(), smb_fname_src, &oldname);
 276         if (!NT_STATUS_IS_OK(status)) {
 277                 return ret;
 278         }
 279
 280         if (atalk_build_paths(talloc_tos(), handle->conn->cwd_fname->base_name, oldname,
 281                               &adbl_path, &orig_path, &adbl_info,
 282                               &orig_info) != 0)
 283                 goto exit_rename;
 284
 285         if (S_ISDIR(orig_info.st_ex_mode) || S_ISREG(orig_info.st_ex_mode)) {
 286                 DEBUG(3, ("ATALK: %s has passed..\n", adbl_path));
 287                 goto exit_rename;
 288         }
 289
 290         atalk_unlink_file(adbl_path);
 291
 292 exit_rename:
 293         TALLOC_FREE(oldname);
 294         TALLOC_FREE(adbl_path);
 295         TALLOC_FREE(orig_path);
 296         return ret;
 297 }
 298
 299 static int atalk_unlink(struct vfs_handle_struct *handle,
 300                         const struct smb_filename *smb_fname)
 301 {
 302         int ret = 0, i;
 303         char *path = NULL;
 304         char *adbl_path = NULL;
 305         char *orig_path = NULL;
 306         SMB_STRUCT_STAT adbl_info;
 307         SMB_STRUCT_STAT orig_info;
 308         NTSTATUS status;
 309
 310         ret = SMB_VFS_NEXT_UNLINK(handle, smb_fname);
 311
 312         status = get_full_smb_filename(talloc_tos(), smb_fname, &path);
 313         if (!NT_STATUS_IS_OK(status)) {
 314                 return ret;
 315         }
 316
 317         /* no .AppleDouble sync if veto or hide list is empty,
 318          * otherwise "Cannot find the specified file" error will be caused
 319          */
 320
 321         if (!handle->conn->veto_list) return ret;
 322         if (!handle->conn->hide_list) return ret;
 323
 324         for (i = 0; handle->conn->veto_list[i].name; i ++) {
 325                 if (strstr_m(handle->conn->veto_list[i].name, APPLEDOUBLE))
 326                         break;
 327         }
 328
 329         if (!handle->conn->veto_list[i].name) {
 330                 for (i = 0; handle->conn->hide_list[i].name; i ++) {
 331                         if (strstr_m(handle->conn->hide_list[i].name, APPLEDOUBLE))
 332                                 break;
 333                         else {
 334                                 DEBUG(3, ("ATALK: %s is not hidden, skipped..\n",
 335                                   APPLEDOUBLE));
 336                                 goto exit_unlink;
 337                         }
 338                 }
 339         }
 340
 341         if (atalk_build_paths(talloc_tos(),
 342                                 handle->conn->cwd_fname->base_name, path,
 343                               &adbl_path, &orig_path,
 344                               &adbl_info, &orig_info) != 0)
 345                 goto exit_unlink;
 346
 347         if (S_ISDIR(orig_info.st_ex_mode) || S_ISREG(orig_info.st_ex_mode)) {
 348                 DEBUG(3, ("ATALK: %s has passed..\n", adbl_path));
 349                 goto exit_unlink;
 350         }
 351
 352         atalk_unlink_file(adbl_path);
 353
 354 exit_unlink:
 355         TALLOC_FREE(path);
 356         TALLOC_FREE(adbl_path);
 357         TALLOC_FREE(orig_path);
 358         return ret;
 359 }
 360
 361 static int atalk_chmod(struct vfs_handle_struct *handle,
 362                         const struct smb_filename *smb_fname,
 363                         mode_t mode)
 364 {
 365         int ret = 0;
 366         int ret1 = 0;
 367         char *adbl_path = 0;
 368         char *orig_path = 0;
 369         SMB_STRUCT_STAT adbl_info;
 370         SMB_STRUCT_STAT orig_info;
 371         TALLOC_CTX *ctx;
 372
 373         ret = SMB_VFS_NEXT_CHMOD(handle, smb_fname, mode);
 374
 375         if (!(ctx = talloc_init("chmod_file")))
 376                 return ret;
 377
 378         ret1 = atalk_build_paths(ctx,
 379                         handle->conn->cwd_fname->base_name,
 380                         smb_fname->base_name,
 381                         &adbl_path,
 382                         &orig_path,
 383                         &adbl_info,
 384                         &orig_info);
 385         if (ret1 != 0) {
 386                 goto exit_chmod;
 387         }
 388
 389         if (!S_ISDIR(orig_info.st_ex_mode) && !S_ISREG(orig_info.st_ex_mode)) {
 390                 DEBUG(3, ("ATALK: %s has passed..\n", orig_path));
 391                 goto exit_chmod;
 392         }
 393
 394         chmod(adbl_path, ADOUBLEMODE);
 395
 396 exit_chmod:
 397         talloc_destroy(ctx);
 398         return ret;
 399 }
 400
 401 static int atalk_chown(struct vfs_handle_struct *handle,
 402                         const struct smb_filename *smb_fname,
 403                         uid_t uid,
 404                         gid_t gid)
 405 {
 406         int ret = 0;
 407         char *adbl_path = 0;
 408         char *orig_path = 0;
 409         SMB_STRUCT_STAT adbl_info;
 410         SMB_STRUCT_STAT orig_info;
 411         TALLOC_CTX *ctx;
 412
 413         ret = SMB_VFS_NEXT_CHOWN(handle, smb_fname, uid, gid);
 414
 415         if (!(ctx = talloc_init("chown_file")))
 416                 return ret;
 417
 418         if (atalk_build_paths(ctx, handle->conn->cwd_fname->base_name,
 419                                 smb_fname->base_name,
 420                                 &adbl_path, &orig_path,
 421                                 &adbl_info, &orig_info) != 0)
 422                 goto exit_chown;
 423
 424         if (!S_ISDIR(orig_info.st_ex_mode) && !S_ISREG(orig_info.st_ex_mode)) {
 425                 DEBUG(3, ("ATALK: %s has passed..\n", orig_path));
 426                 goto exit_chown;
 427         }
 428
 429         if (chown(adbl_path, uid, gid) == -1) {
 430                 DEBUG(3, ("ATALK: chown error %s\n", strerror(errno)));
 431         }
 432
 433 exit_chown:
 434         talloc_destroy(ctx);
 435         return ret;
 436 }
 437
 438 static int atalk_lchown(struct vfs_handle_struct *handle,
 439                         const struct smb_filename *smb_fname,
 440                         uid_t uid,
 441                         gid_t gid)
 442 {
 443         int ret = 0;
 444         char *adbl_path = 0;
 445         char *orig_path = 0;
 446         SMB_STRUCT_STAT adbl_info;
 447         SMB_STRUCT_STAT orig_info;
 448         TALLOC_CTX *ctx;
 449
 450         ret = SMB_VFS_NEXT_LCHOWN(handle, smb_fname, uid, gid);
 451
 452         if (!(ctx = talloc_init("lchown_file")))
 453                 return ret;
 454
 455         if (atalk_build_paths(ctx, handle->conn->cwd_fname->base_name,
 456                                 smb_fname->base_name,
 457                                 &adbl_path, &orig_path,
 458                                 &adbl_info, &orig_info) != 0)
 459                 goto exit_lchown;
 460
 461         if (!S_ISDIR(orig_info.st_ex_mode) && !S_ISREG(orig_info.st_ex_mode)) {
 462                 DEBUG(3, ("ATALK: %s has passed..\n", orig_path));
 463                 goto exit_lchown;
 464         }
 465
 466         if (lchown(adbl_path, uid, gid) == -1) {
 467                 DEBUG(3, ("ATALK: lchown error %s\n", strerror(errno)));
 468         }
 469
 470 exit_lchown:
 471         talloc_destroy(ctx);
 472         return ret;
 473 }
 474
 475 static struct vfs_fn_pointers vfs_netatalk_fns = {
 476         .opendir_fn = atalk_opendir,
 477         .fdopendir_fn = atalk_fdopendir,
 478         .rmdir_fn = atalk_rmdir,
 479         .rename_fn = atalk_rename,
 480         .unlink_fn = atalk_unlink,
 481         .chmod_fn = atalk_chmod,
 482         .chown_fn = atalk_chown,
 483         .lchown_fn = atalk_lchown,
 484 };
 485
 486 static_decl_vfs;
 487 NTSTATUS vfs_netatalk_init(TALLOC_CTX *ctx)
 488 {
 489         return smb_register_vfs(SMB_VFS_INTERFACE_VERSION, "netatalk",
 490                                 &vfs_netatalk_fns);
 491 }