source3/smbd/filename.c

   1 /*
   2    Unix SMB/CIFS implementation.
   3    filename handling routines
   4    Copyright (C) Andrew Tridgell 1992-1998
   5    Copyright (C) Jeremy Allison 1999-2007
   6    Copyright (C) Ying Chen 2000
   7    Copyright (C) Volker Lendecke 2007
   8
   9    This program is free software; you can redistribute it and/or modify
  10    it under the terms of the GNU General Public License as published by
  11    the Free Software Foundation; either version 3 of the License, or
  12    (at your option) any later version.
  13
  14    This program is distributed in the hope that it will be useful,
  15    but WITHOUT ANY WARRANTY; without even the implied warranty of
  16    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17    GNU General Public License for more details.
  18
  19    You should have received a copy of the GNU General Public License
  20    along with this program.  If not, see <http://www.gnu.org/licenses/>.
  21 */
  22
  23 /*
  24  * New hash table stat cache code added by Ying Chen.
  25  */
  26
  27 #include "includes.h"
  28
  29 static NTSTATUS build_stream_path(TALLOC_CTX *mem_ctx,
  30                                   connection_struct *conn,
  31                                   const char *orig_path,
  32                                   struct smb_filename *smb_fname);
  33
  34 /****************************************************************************
  35  Mangle the 2nd name and check if it is then equal to the first name.
  36 ****************************************************************************/
  37
  38 static bool mangled_equal(const char *name1,
  39                         const char *name2,
  40                         const struct share_params *p)
  41 {
  42         char mname[13];
  43
  44         if (!name_to_8_3(name2, mname, False, p)) {
  45                 return False;
  46         }
  47         return strequal(name1, mname);
  48 }
  49
  50 /****************************************************************************
  51  Cope with the differing wildcard and non-wildcard error cases.
  52 ****************************************************************************/
  53
  54 static NTSTATUS determine_path_error(const char *name,
  55                         bool allow_wcard_last_component)
  56 {
  57         const char *p;
  58
  59         if (!allow_wcard_last_component) {
  60                 /* Error code within a pathname. */
  61                 return NT_STATUS_OBJECT_PATH_NOT_FOUND;
  62         }
  63
  64         /* We're terminating here so we
  65          * can be a little slower and get
  66          * the error code right. Windows
  67          * treats the last part of the pathname
  68          * separately I think, so if the last
  69          * component is a wildcard then we treat
  70          * this ./ as "end of component" */
  71
  72         p = strchr(name, '/');
  73
  74         if (!p && (ms_has_wild(name) || ISDOT(name))) {
  75                 /* Error code at the end of a pathname. */
  76                 return NT_STATUS_OBJECT_NAME_INVALID;
  77         } else {
  78                 /* Error code within a pathname. */
  79                 return NT_STATUS_OBJECT_PATH_NOT_FOUND;
  80         }
  81 }
  82
  83 NTSTATUS get_full_smb_filename(TALLOC_CTX *ctx, const struct smb_filename *smb_fname,
  84                                char **full_name)
  85 {
  86         if (smb_fname->stream_name) {
  87                 *full_name = talloc_asprintf(ctx, "%s%s", smb_fname->base_name,
  88                                              smb_fname->stream_name);
  89         } else {
  90                 *full_name = talloc_strdup(ctx, smb_fname->base_name);
  91         }
  92
  93         if (!*full_name) {
  94                 return NT_STATUS_NO_MEMORY;
  95         }
  96
  97         return NT_STATUS_OK;
  98 }
  99
 100 /****************************************************************************
 101 This routine is called to convert names from the dos namespace to unix
 102 namespace. It needs to handle any case conversions, mangling, format changes,
 103 streams etc.
 104
 105 We assume that we have already done a chdir() to the right "root" directory
 106 for this service.
 107
 108 The function will return an NTSTATUS error if some part of the name except for
 109 the last part cannot be resolved, else NT_STATUS_OK.
 110
 111 Note NT_STATUS_OK doesn't mean the name exists or is valid, just that we
 112 didn't get any fatal errors that should immediately terminate the calling SMB
 113 processing whilst resolving.
 114
 115 If the UCF_SAVE_LCOMP flag is passed in, then the unmodified last component
 116 of the pathname is set in smb_filename->original_lcomp.
 117
 118 If UCF_ALLOW_WCARD_LCOMP is passed in, then a MS wildcard was detected and
 119 should be allowed in the last component of the path only.
 120
 121 If the orig_path was a stream, smb_filename->base_name will point to the base
 122 filename, and smb_filename->stream_name will point to the stream name.  If
 123 orig_path was not a stream, then smb_filename->stream_name will be NULL.
 124
 125 On exit from unix_convert, the smb_filename->st stat struct will be populated
 126 if the file exists and was found, if not this stat struct will be filled with
 127 zeros (and this can be detected by checking for nlinks = 0, which can never be
 128 true for any file).
 129 ****************************************************************************/
 130
 131 NTSTATUS unix_convert(TALLOC_CTX *ctx,
 132                       connection_struct *conn,
 133                       const char *orig_path,
 134                       struct smb_filename **smb_fname_out,
 135                       uint32_t ucf_flags)
 136 {
 137         SMB_STRUCT_STAT st;
 138         struct smb_filename *smb_fname = NULL;
 139         char *start, *end;
 140         char *dirpath = NULL;
 141         char *name = NULL;
 142         char *stream = NULL;
 143         bool component_was_mangled = False;
 144         bool name_has_wildcard = False;
 145         bool posix_pathnames = false;
 146         bool allow_wcard_last_component = ucf_flags & UCF_ALLOW_WCARD_LCOMP;
 147         bool save_last_component = ucf_flags & UCF_SAVE_LCOMP;
 148         NTSTATUS result;
 149         int ret = -1;
 150
 151         *smb_fname_out = NULL;
 152
 153         smb_fname = TALLOC_ZERO_P(talloc_tos(), struct smb_filename);
 154         if (smb_fname == NULL) {
 155                 return NT_STATUS_NO_MEMORY;
 156         }
 157
 158         if (conn->printer) {
 159                 /* we don't ever use the filenames on a printer share as a
 160                         filename - so don't convert them */
 161                 if (!(smb_fname->base_name = talloc_strdup(smb_fname,
 162                                                            orig_path))) {
 163                         return NT_STATUS_NO_MEMORY;
 164                 }
 165                 *smb_fname_out = smb_fname;
 166                 return NT_STATUS_OK;
 167         }
 168
 169         DEBUG(5, ("unix_convert called on file \"%s\"\n", orig_path));
 170
 171         /*
 172          * Conversion to basic unix format is already done in
 173          * check_path_syntax().
 174          */
 175
 176         /*
 177          * Names must be relative to the root of the service - any leading /.
 178          * and trailing /'s should have been trimmed by check_path_syntax().
 179          */
 180
 181 #ifdef DEVELOPER
 182         SMB_ASSERT(*orig_path != '/');
 183 #endif
 184
 185         /*
 186          * If we trimmed down to a single '\0' character
 187          * then we should use the "." directory to avoid
 188          * searching the cache, but not if we are in a
 189          * printing share.
 190          * As we know this is valid we can return true here.
 191          */
 192
 193         if (!*orig_path) {
 194                 if (!(name = talloc_strdup(ctx,"."))) {
 195                         return NT_STATUS_NO_MEMORY;
 196                 }
 197                 if (SMB_VFS_STAT(conn,name,&st) == 0) {
 198                         smb_fname->st = st;
 199                 } else {
 200                         return map_nt_error_from_unix(errno);
 201                 }
 202                 DEBUG(5,("conversion finished \"\" -> %s\n",name));
 203                 goto done;
 204         }
 205
 206         if (orig_path[0] == '.' && (orig_path[1] == '/' ||
 207                                 orig_path[1] == '\0')) {
 208                 /* Start of pathname can't be "." only. */
 209                 if (orig_path[1] == '\0' || orig_path[2] == '\0') {
 210                         result = NT_STATUS_OBJECT_NAME_INVALID;
 211                 } else {
 212                         result =determine_path_error(
 213                                 &orig_path[2], allow_wcard_last_component);
 214                 }
 215                 return result;
 216         }
 217
 218         if (!(name = talloc_strdup(ctx, orig_path))) {
 219                 DEBUG(0, ("talloc_strdup failed\n"));
 220                 return NT_STATUS_NO_MEMORY;
 221         }
 222
 223         /*
 224          * Large directory fix normalization. If we're case sensitive, and
 225          * the case preserving parameters are set to "no", normalize the case of
 226          * the incoming filename from the client WHETHER IT EXISTS OR NOT !
 227          * This is in conflict with the current (3.0.20) man page, but is
 228          * what people expect from the "large directory howto". I'll update
 229          * the man page. Thanks to jht@samba.org for finding this. JRA.
 230          */
 231
 232         if (conn->case_sensitive && !conn->case_preserve &&
 233                         !conn->short_case_preserve) {
 234                 strnorm(name, lp_defaultcase(SNUM(conn)));
 235         }
 236
 237         /*
 238          * Ensure saved_last_component is valid even if file exists.
 239          */
 240
 241         if(save_last_component) {
 242                 end = strrchr_m(name, '/');
 243                 if (end) {
 244                         smb_fname->original_lcomp = talloc_strdup(ctx,
 245                                                                   end + 1);
 246                 } else {
 247                         smb_fname->original_lcomp = talloc_strdup(ctx, name);
 248                 }
 249         }
 250
 251         posix_pathnames = lp_posix_pathnames();
 252
 253         /* Strip off the stream. Should we use any of the other stream parsing
 254          * at this point? Also, should we set the is_stream bit? */
 255         if (!posix_pathnames) {
 256                 stream = strchr_m(name, ':');
 257
 258                 if (stream != NULL) {
 259                         char *tmp = talloc_strdup(ctx, stream);
 260                         if (tmp == NULL) {
 261                                 TALLOC_FREE(name);
 262                                 return NT_STATUS_NO_MEMORY;
 263                         }
 264                         *stream = '\0';
 265                         stream = tmp;
 266                 }
 267         }
 268
 269         start = name;
 270
 271         /* If we're providing case insentive semantics or
 272          * the underlying filesystem is case insensitive,
 273          * then a case-normalized hit in the stat-cache is
 274          * authoratitive. JRA.
 275          */
 276
 277         if((!conn->case_sensitive || !(conn->fs_capabilities & FILE_CASE_SENSITIVE_SEARCH)) &&
 278                         stat_cache_lookup(conn, &name, &dirpath, &start, &st)) {
 279                 smb_fname->st = st;
 280                 goto done;
 281         }
 282
 283         /*
 284          * Make sure "dirpath" is an allocated string, we use this for
 285          * building the directories with asprintf and free it.
 286          */
 287
 288         if ((dirpath == NULL) && (!(dirpath = talloc_strdup(ctx,"")))) {
 289                 DEBUG(0, ("talloc_strdup failed\n"));
 290                 TALLOC_FREE(name);
 291                 return NT_STATUS_NO_MEMORY;
 292         }
 293
 294         /*
 295          * stat the name - if it exists then we are all done!
 296          */
 297
 298         if (posix_pathnames) {
 299                 ret = SMB_VFS_LSTAT(conn,name,&st);
 300         } else {
 301                 ret = SMB_VFS_STAT(conn,name,&st);
 302         }
 303
 304         if (ret == 0) {
 305                 /* Ensure we catch all names with in "/."
 306                    this is disallowed under Windows. */
 307                 const char *p = strstr(name, "/."); /* mb safe. */
 308                 if (p) {
 309                         if (p[2] == '/') {
 310                                 /* Error code within a pathname. */
 311                                 result = NT_STATUS_OBJECT_PATH_NOT_FOUND;
 312                                 goto fail;
 313                         } else if (p[2] == '\0') {
 314                                 /* Error code at the end of a pathname. */
 315                                 result = NT_STATUS_OBJECT_NAME_INVALID;
 316                                 goto fail;
 317                         }
 318                 }
 319                 stat_cache_add(orig_path, name, conn->case_sensitive);
 320                 DEBUG(5,("conversion finished %s -> %s\n",orig_path, name));
 321                 smb_fname->st = st;
 322                 goto done;
 323         }
 324
 325         DEBUG(5,("unix_convert begin: name = %s, dirpath = %s, start = %s\n",
 326                                 name, dirpath, start));
 327
 328         /*
 329          * A special case - if we don't have any mangling chars and are case
 330          * sensitive or the underlying filesystem is case insentive then searching
 331          * won't help.
 332          */
 333
 334         if ((conn->case_sensitive || !(conn->fs_capabilities & FILE_CASE_SENSITIVE_SEARCH)) &&
 335                         !mangle_is_mangled(name, conn->params)) {
 336                 goto done;
 337         }
 338
 339         /*
 340          * is_mangled() was changed to look at an entire pathname, not
 341          * just a component. JRA.
 342          */
 343
 344         if (mangle_is_mangled(start, conn->params)) {
 345                 component_was_mangled = True;
 346         }
 347
 348         /*
 349          * Now we need to recursively match the name against the real
 350          * directory structure.
 351          */
 352
 353         /*
 354          * Match each part of the path name separately, trying the names
 355          * as is first, then trying to scan the directory for matching names.
 356          */
 357
 358         for (; start ; start = (end?end+1:(char *)NULL)) {
 359                 /*
 360                  * Pinpoint the end of this section of the filename.
 361                  */
 362                 /* mb safe. '/' can't be in any encoded char. */
 363                 end = strchr(start, '/');
 364
 365                 /*
 366                  * Chop the name at this point.
 367                  */
 368                 if (end) {
 369                         *end = 0;
 370                 }
 371
 372                 if (save_last_component) {
 373                         TALLOC_FREE(smb_fname->original_lcomp);
 374                         smb_fname->original_lcomp = talloc_strdup(ctx,
 375                                                         end ? end + 1 : start);
 376                         if (!smb_fname->original_lcomp) {
 377                                 DEBUG(0, ("talloc failed\n"));
 378                                 return NT_STATUS_NO_MEMORY;
 379                         }
 380                 }
 381
 382                 /* The name cannot have a component of "." */
 383
 384                 if (ISDOT(start)) {
 385                         if (!end)  {
 386                                 /* Error code at the end of a pathname. */
 387                                 result = NT_STATUS_OBJECT_NAME_INVALID;
 388                         } else {
 389                                 result = determine_path_error(end+1,
 390                                                 allow_wcard_last_component);
 391                         }
 392                         goto fail;
 393                 }
 394
 395                 /* The name cannot have a wildcard if it's not
 396                    the last component. */
 397
 398                 name_has_wildcard = ms_has_wild(start);
 399
 400                 /* Wildcard not valid anywhere. */
 401                 if (name_has_wildcard && !allow_wcard_last_component) {
 402                         result = NT_STATUS_OBJECT_NAME_INVALID;
 403                         goto fail;
 404                 }
 405
 406                 /* Wildcards never valid within a pathname. */
 407                 if (name_has_wildcard && end) {
 408                         result = NT_STATUS_OBJECT_NAME_INVALID;
 409                         goto fail;
 410                 }
 411
 412                 /*
 413                  * Check if the name exists up to this point.
 414                  */
 415
 416                 if (posix_pathnames) {
 417                         ret = SMB_VFS_LSTAT(conn,name, &st);
 418                 } else {
 419                         ret = SMB_VFS_STAT(conn,name, &st);
 420                 }
 421
 422                 if (ret == 0) {
 423                         /*
 424                          * It exists. it must either be a directory or this must
 425                          * be the last part of the path for it to be OK.
 426                          */
 427                         if (end && !S_ISDIR(st.st_ex_mode)) {
 428                                 /*
 429                                  * An intermediate part of the name isn't
 430                                  * a directory.
 431                                  */
 432                                 DEBUG(5,("Not a dir %s\n",start));
 433                                 *end = '/';
 434                                 /*
 435                                  * We need to return the fact that the
 436                                  * intermediate name resolution failed. This
 437                                  * is used to return an error of ERRbadpath
 438                                  * rather than ERRbadfile. Some Windows
 439                                  * applications depend on the difference between
 440                                  * these two errors.
 441                                  */
 442                                 result = NT_STATUS_OBJECT_PATH_NOT_FOUND;
 443                                 goto fail;
 444                         }
 445
 446                         if (!end) {
 447                                 /*
 448                                  * We just scanned for, and found the end of
 449                                  * the path. We must return the valid stat
 450                                  * struct. JRA.
 451                                  */
 452
 453                                 smb_fname->st = st;
 454                         }
 455
 456                 } else {
 457                         char *found_name = NULL;
 458
 459                         /* Stat failed - ensure we don't use it. */
 460                         SET_STAT_INVALID(st);
 461
 462                         /*
 463                          * Reset errno so we can detect
 464                          * directory open errors.
 465                          */
 466                         errno = 0;
 467
 468                         /*
 469                          * Try to find this part of the path in the directory.
 470                          */
 471
 472                         if (name_has_wildcard ||
 473                             (get_real_filename(conn, dirpath, start,
 474                                                talloc_tos(),
 475                                                &found_name) == -1)) {
 476                                 char *unmangled;
 477
 478                                 if (end) {
 479                                         /*
 480                                          * An intermediate part of the name
 481                                          * can't be found.
 482                                          */
 483                                         DEBUG(5,("Intermediate not found %s\n",
 484                                                         start));
 485                                         *end = '/';
 486
 487                                         /*
 488                                          * We need to return the fact that the
 489                                          * intermediate name resolution failed.
 490                                          * This is used to return an error of
 491                                          * ERRbadpath rather than ERRbadfile.
 492                                          * Some Windows applications depend on
 493                                          * the difference between these two
 494                                          * errors.
 495                                          */
 496
 497                                         /*
 498                                          * ENOENT, ENOTDIR and ELOOP all map
 499                                          * to NT_STATUS_OBJECT_PATH_NOT_FOUND
 500                                          * in the filename walk.
 501                                          */
 502
 503                                         if (errno == ENOENT ||
 504                                                         errno == ENOTDIR ||
 505                                                         errno == ELOOP) {
 506                                                 result =
 507                                                 NT_STATUS_OBJECT_PATH_NOT_FOUND;
 508                                         }
 509                                         else {
 510                                                 result =
 511                                                 map_nt_error_from_unix(errno);
 512                                         }
 513                                         goto fail;
 514                                 }
 515
 516                                 /* ENOENT is the only valid error here. */
 517                                 if ((errno != 0) && (errno != ENOENT)) {
 518                                         /*
 519                                          * ENOTDIR and ELOOP both map to
 520                                          * NT_STATUS_OBJECT_PATH_NOT_FOUND
 521                                          * in the filename walk.
 522                                          */
 523                                         if (errno == ENOTDIR ||
 524                                                         errno == ELOOP) {
 525                                                 result =
 526                                                 NT_STATUS_OBJECT_PATH_NOT_FOUND;
 527                                                 goto fail;
 528                                         } else if (errno != EACCES) {
 529                                                 result =
 530                                                 map_nt_error_from_unix(errno);
 531                                                 goto fail;
 532                                         }
 533                                 }
 534
 535                                 /*
 536                                  * Just the last part of the name doesn't exist.
 537                                  * We need to strupper() or strlower() it as
 538                                  * this conversion may be used for file creation
 539                                  * purposes. Fix inspired by
 540                                  * Thomas Neumann <t.neumann@iku-ag.de>.
 541                                  */
 542                                 if (!conn->case_preserve ||
 543                                     (mangle_is_8_3(start, False,
 544                                                    conn->params) &&
 545                                                  !conn->short_case_preserve)) {
 546                                         strnorm(start,
 547                                                 lp_defaultcase(SNUM(conn)));
 548                                 }
 549
 550                                 /*
 551                                  * check on the mangled stack to see if we can
 552                                  * recover the base of the filename.
 553                                  */
 554
 555                                 if (mangle_is_mangled(start, conn->params)
 556                                     && mangle_lookup_name_from_8_3(ctx,
 557                                                         start,
 558                                                         &unmangled,
 559                                                         conn->params)) {
 560                                         char *tmp;
 561                                         size_t start_ofs = start - name;
 562
 563                                         if (*dirpath != '\0') {
 564                                                 tmp = talloc_asprintf(ctx,
 565                                                         "%s/%s", dirpath,
 566                                                         unmangled);
 567                                                 TALLOC_FREE(unmangled);
 568                                         }
 569                                         else {
 570                                                 tmp = unmangled;
 571                                         }
 572                                         if (tmp == NULL) {
 573                                                 DEBUG(0, ("talloc failed\n"));
 574                                                 return NT_STATUS_NO_MEMORY;
 575                                         }
 576                                         TALLOC_FREE(name);
 577                                         name = tmp;
 578                                         start = name + start_ofs;
 579                                         end = start + strlen(start);
 580                                 }
 581
 582                                 DEBUG(5,("New file %s\n",start));
 583                                 goto done;
 584                         }
 585
 586
 587                         /*
 588                          * Restore the rest of the string. If the string was
 589                          * mangled the size may have changed.
 590                          */
 591                         if (end) {
 592                                 char *tmp;
 593                                 size_t start_ofs = start - name;
 594
 595                                 if (*dirpath != '\0') {
 596                                         tmp = talloc_asprintf(ctx,
 597                                                 "%s/%s/%s", dirpath,
 598                                                 found_name, end+1);
 599                                 }
 600                                 else {
 601                                         tmp = talloc_asprintf(ctx,
 602                                                 "%s/%s", found_name,
 603                                                 end+1);
 604                                 }
 605                                 if (tmp == NULL) {
 606                                         DEBUG(0, ("talloc_asprintf failed\n"));
 607                                         return NT_STATUS_NO_MEMORY;
 608                                 }
 609                                 TALLOC_FREE(name);
 610                                 name = tmp;
 611                                 start = name + start_ofs;
 612                                 end = start + strlen(found_name);
 613                                 *end = '\0';
 614                         } else {
 615                                 char *tmp;
 616                                 size_t start_ofs = start - name;
 617
 618                                 if (*dirpath != '\0') {
 619                                         tmp = talloc_asprintf(ctx,
 620                                                 "%s/%s", dirpath,
 621                                                 found_name);
 622                                 } else {
 623                                         tmp = talloc_strdup(ctx,
 624                                                 found_name);
 625                                 }
 626                                 if (tmp == NULL) {
 627                                         DEBUG(0, ("talloc failed\n"));
 628                                         return NT_STATUS_NO_MEMORY;
 629                                 }
 630                                 TALLOC_FREE(name);
 631                                 name = tmp;
 632                                 start = name + start_ofs;
 633
 634                                 /*
 635                                  * We just scanned for, and found the end of
 636                                  * the path. We must return a valid stat struct
 637                                  * if it exists. JRA.
 638                                  */
 639
 640                                 if (posix_pathnames) {
 641                                         ret = SMB_VFS_LSTAT(conn,name, &st);
 642                                 } else {
 643                                         ret = SMB_VFS_STAT(conn,name, &st);
 644                                 }
 645
 646                                 if (ret == 0) {
 647                                         smb_fname->st = st;
 648                                 } else {
 649                                         SET_STAT_INVALID(st);
 650                                 }
 651                         }
 652
 653                         TALLOC_FREE(found_name);
 654                 } /* end else */
 655
 656 #ifdef DEVELOPER
 657                 /*
 658                  * This sucks!
 659                  * We should never provide different behaviors
 660                  * depending on DEVELOPER!!!
 661                  */
 662                 if (VALID_STAT(st)) {
 663                         bool delete_pending;
 664                         get_file_infos(vfs_file_id_from_sbuf(conn, &st),
 665                                        &delete_pending, NULL);
 666                         if (delete_pending) {
 667                                 result = NT_STATUS_DELETE_PENDING;
 668                                 goto fail;
 669                         }
 670                 }
 671 #endif
 672
 673                 /*
 674                  * Add to the dirpath that we have resolved so far.
 675                  */
 676
 677                 if (*dirpath != '\0') {
 678                         char *tmp = talloc_asprintf(ctx,
 679                                         "%s/%s", dirpath, start);
 680                         if (!tmp) {
 681                                 DEBUG(0, ("talloc_asprintf failed\n"));
 682                                 return NT_STATUS_NO_MEMORY;
 683                         }
 684                         TALLOC_FREE(dirpath);
 685                         dirpath = tmp;
 686                 }
 687                 else {
 688                         TALLOC_FREE(dirpath);
 689                         if (!(dirpath = talloc_strdup(ctx,start))) {
 690                                 DEBUG(0, ("talloc_strdup failed\n"));
 691                                 return NT_STATUS_NO_MEMORY;
 692                         }
 693                 }
 694
 695                 /*
 696                  * Don't cache a name with mangled or wildcard components
 697                  * as this can change the size.
 698                  */
 699
 700                 if(!component_was_mangled && !name_has_wildcard) {
 701                         stat_cache_add(orig_path, dirpath,
 702                                         conn->case_sensitive);
 703                 }
 704
 705                 /*
 706                  * Restore the / that we wiped out earlier.
 707                  */
 708                 if (end) {
 709                         *end = '/';
 710                 }
 711         }
 712
 713         /*
 714          * Don't cache a name with mangled or wildcard components
 715          * as this can change the size.
 716          */
 717
 718         if(!component_was_mangled && !name_has_wildcard) {
 719                 stat_cache_add(orig_path, name, conn->case_sensitive);
 720         }
 721
 722         /*
 723          * The name has been resolved.
 724          */
 725
 726         DEBUG(5,("conversion finished %s -> %s\n",orig_path, name));
 727
 728  done:
 729         smb_fname->base_name = name;
 730
 731         if (stream != NULL) {
 732                 smb_fname->stream_name = stream;
 733
 734                 /* Check path now that the base_name has been converted. */
 735                 result = build_stream_path(ctx, conn, orig_path, smb_fname);
 736                 if (!NT_STATUS_IS_OK(result)) {
 737                         goto fail;
 738                 }
 739         }
 740         TALLOC_FREE(dirpath);
 741         *smb_fname_out = smb_fname;
 742         return NT_STATUS_OK;
 743  fail:
 744         DEBUG(10, ("dirpath = [%s] start = [%s]\n", dirpath, start));
 745         if (*dirpath != '\0') {
 746                 smb_fname->base_name = talloc_asprintf(ctx, "%s/%s", dirpath,
 747                                                        start);
 748         } else {
 749                 smb_fname->base_name = talloc_strdup(ctx, start);
 750         }
 751         if (!smb_fname->base_name) {
 752                 DEBUG(0, ("talloc_asprintf failed\n"));
 753                 return NT_STATUS_NO_MEMORY;
 754         }
 755
 756         *smb_fname_out = smb_fname;
 757         TALLOC_FREE(name);
 758         TALLOC_FREE(dirpath);
 759         return result;
 760 }
 761
 762 /****************************************************************************
 763  Check a filename - possibly calling check_reduced_name.
 764  This is called by every routine before it allows an operation on a filename.
 765  It does any final confirmation necessary to ensure that the filename is
 766  a valid one for the user to access.
 767 ****************************************************************************/
 768
 769 NTSTATUS check_name(connection_struct *conn, const char *name)
 770 {
 771         if (IS_VETO_PATH(conn, name))  {
 772                 /* Is it not dot or dot dot. */
 773                 if (!((name[0] == '.') && (!name[1] ||
 774                                         (name[1] == '.' && !name[2])))) {
 775                         DEBUG(5,("check_name: file path name %s vetoed\n",
 776                                                 name));
 777                         return map_nt_error_from_unix(ENOENT);
 778                 }
 779         }
 780
 781         if (!lp_widelinks(SNUM(conn)) || !lp_symlinks(SNUM(conn))) {
 782                 NTSTATUS status = check_reduced_name(conn,name);
 783                 if (!NT_STATUS_IS_OK(status)) {
 784                         DEBUG(5,("check_name: name %s failed with %s\n",name,
 785                                                 nt_errstr(status)));
 786                         return status;
 787                 }
 788         }
 789
 790         return NT_STATUS_OK;
 791 }
 792
 793 /****************************************************************************
 794  Check if two filenames are equal.
 795  This needs to be careful about whether we are case sensitive.
 796 ****************************************************************************/
 797
 798 static bool fname_equal(const char *name1, const char *name2,
 799                 bool case_sensitive)
 800 {
 801         /* Normal filename handling */
 802         if (case_sensitive) {
 803                 return(strcmp(name1,name2) == 0);
 804         }
 805
 806         return(strequal(name1,name2));
 807 }
 808
 809 /****************************************************************************
 810  Scan a directory to find a filename, matching without case sensitivity.
 811  If the name looks like a mangled name then try via the mangling functions
 812 ****************************************************************************/
 813
 814 static int get_real_filename_full_scan(connection_struct *conn,
 815                                        const char *path, const char *name,
 816                                        bool mangled,
 817                                        TALLOC_CTX *mem_ctx, char **found_name)
 818 {
 819         struct smb_Dir *cur_dir;
 820         const char *dname;
 821         char *unmangled_name = NULL;
 822         long curpos;
 823
 824         /* handle null paths */
 825         if ((path == NULL) || (*path == 0)) {
 826                 path = ".";
 827         }
 828
 829         /* If we have a case-sensitive filesystem, it doesn't do us any
 830          * good to search for a name. If a case variation of the name was
 831          * there, then the original stat(2) would have found it.
 832          */
 833         if (!mangled && !(conn->fs_capabilities & FILE_CASE_SENSITIVE_SEARCH)) {
 834                 errno = ENOENT;
 835                 return -1;
 836         }
 837
 838         /*
 839          * The incoming name can be mangled, and if we de-mangle it
 840          * here it will not compare correctly against the filename (name2)
 841          * read from the directory and then mangled by the name_to_8_3()
 842          * call. We need to mangle both names or neither.
 843          * (JRA).
 844          *
 845          * Fix for bug found by Dina Fine. If in case sensitive mode then
 846          * the mangle cache is no good (3 letter extension could be wrong
 847          * case - so don't demangle in this case - leave as mangled and
 848          * allow the mangling of the directory entry read (which is done
 849          * case insensitively) to match instead. This will lead to more
 850          * false positive matches but we fail completely without it. JRA.
 851          */
 852
 853         if (mangled && !conn->case_sensitive) {
 854                 mangled = !mangle_lookup_name_from_8_3(talloc_tos(), name,
 855                                                        &unmangled_name,
 856                                                        conn->params);
 857                 if (!mangled) {
 858                         /* Name is now unmangled. */
 859                         name = unmangled_name;
 860                 }
 861         }
 862
 863         /* open the directory */
 864         if (!(cur_dir = OpenDir(talloc_tos(), conn, path, NULL, 0))) {
 865                 DEBUG(3,("scan dir didn't open dir [%s]\n",path));
 866                 TALLOC_FREE(unmangled_name);
 867                 return -1;
 868         }
 869
 870         /* now scan for matching names */
 871         curpos = 0;
 872         while ((dname = ReadDirName(cur_dir, &curpos, NULL))) {
 873
 874                 /* Is it dot or dot dot. */
 875                 if (ISDOT(dname) || ISDOTDOT(dname)) {
 876                         continue;
 877                 }
 878
 879                 /*
 880                  * At this point dname is the unmangled name.
 881                  * name is either mangled or not, depending on the state
 882                  * of the "mangled" variable. JRA.
 883                  */
 884
 885                 /*
 886                  * Check mangled name against mangled name, or unmangled name
 887                  * against unmangled name.
 888                  */
 889
 890                 if ((mangled && mangled_equal(name,dname,conn->params)) ||
 891                         fname_equal(name, dname, conn->case_sensitive)) {
 892                         /* we've found the file, change it's name and return */
 893                         *found_name = talloc_strdup(mem_ctx, dname);
 894                         TALLOC_FREE(unmangled_name);
 895                         TALLOC_FREE(cur_dir);
 896                         if (!*found_name) {
 897                                 errno = ENOMEM;
 898                                 return -1;
 899                         }
 900                         return 0;
 901                 }
 902         }
 903
 904         TALLOC_FREE(unmangled_name);
 905         TALLOC_FREE(cur_dir);
 906         errno = ENOENT;
 907         return -1;
 908 }
 909
 910 /****************************************************************************
 911  Wrapper around the vfs get_real_filename and the full directory scan
 912  fallback.
 913 ****************************************************************************/
 914
 915 int get_real_filename(connection_struct *conn, const char *path,
 916                       const char *name, TALLOC_CTX *mem_ctx,
 917                       char **found_name)
 918 {
 919         int ret;
 920         bool mangled;
 921
 922         mangled = mangle_is_mangled(name, conn->params);
 923
 924         if (mangled) {
 925                 return get_real_filename_full_scan(conn, path, name, mangled,
 926                                                    mem_ctx, found_name);
 927         }
 928
 929         /* Try the vfs first to take advantage of case-insensitive stat. */
 930         ret = SMB_VFS_GET_REAL_FILENAME(conn, path, name, mem_ctx, found_name);
 931
 932         /*
 933          * If the case-insensitive stat was successful, or returned an error
 934          * other than EOPNOTSUPP then there is no need to fall back on the
 935          * full directory scan.
 936          */
 937         if (ret == 0 || (ret == -1 && errno != EOPNOTSUPP)) {
 938                 return ret;
 939         }
 940
 941         return get_real_filename_full_scan(conn, path, name, mangled, mem_ctx,
 942                                            found_name);
 943 }
 944
 945 static NTSTATUS build_stream_path(TALLOC_CTX *mem_ctx,
 946                                   connection_struct *conn,
 947                                   const char *orig_path,
 948                                   struct smb_filename *smb_fname)
 949 {
 950         char *result = NULL;
 951         NTSTATUS status;
 952         unsigned int i, num_streams;
 953         struct stream_struct *streams = NULL;
 954
 955         status = get_full_smb_filename(mem_ctx, smb_fname, &result);
 956         if (!NT_STATUS_IS_OK(status)) {
 957                 return NT_STATUS_NO_MEMORY;
 958         }
 959
 960         if (SMB_VFS_STAT(conn, result, &smb_fname->st) == 0) {
 961                 return NT_STATUS_OK;
 962         }
 963
 964         if (errno != ENOENT) {
 965                 status = map_nt_error_from_unix(errno);
 966                 DEBUG(10, ("vfs_stat failed: %s\n", nt_errstr(status)));
 967                 goto fail;
 968         }
 969
 970         /* Fall back to a case-insensitive scan of all streams on the file. */
 971         status = SMB_VFS_STREAMINFO(conn, NULL, smb_fname->base_name, mem_ctx,
 972                                     &num_streams, &streams);
 973
 974         if (NT_STATUS_EQUAL(status, NT_STATUS_OBJECT_NAME_NOT_FOUND)) {
 975                 SET_STAT_INVALID(smb_fname->st);
 976                 return NT_STATUS_OK;
 977         }
 978
 979         if (!NT_STATUS_IS_OK(status)) {
 980                 DEBUG(10, ("vfs_streaminfo failed: %s\n", nt_errstr(status)));
 981                 goto fail;
 982         }
 983
 984         for (i=0; i<num_streams; i++) {
 985                 DEBUG(10, ("comparing [%s] and [%s]: ",
 986                            smb_fname->stream_name, streams[i].name));
 987                 if (fname_equal(smb_fname->stream_name, streams[i].name,
 988                                 conn->case_sensitive)) {
 989                         DEBUGADD(10, ("equal\n"));
 990                         break;
 991                 }
 992                 DEBUGADD(10, ("not equal\n"));
 993         }
 994
 995         /* Couldn't find the stream. */
 996         if (i == num_streams) {
 997                 SET_STAT_INVALID(smb_fname->st);
 998                 TALLOC_FREE(streams);
 999                 return NT_STATUS_OK;
1000         }
1001
1002         DEBUG(10, ("case insensitive stream. requested: %s, actual: %s\n",
1003                 smb_fname->stream_name, streams[i].name));
1004
1005
1006         TALLOC_FREE(smb_fname->stream_name);
1007         smb_fname->stream_name = talloc_strdup(mem_ctx, streams[i].name);
1008
1009         TALLOC_FREE(result);
1010         status = get_full_smb_filename(mem_ctx, smb_fname, &result);
1011         if (!NT_STATUS_IS_OK(status)) {
1012                 status = NT_STATUS_NO_MEMORY;
1013                 goto fail;
1014         }
1015
1016         SET_STAT_INVALID(smb_fname->st);
1017
1018         if (SMB_VFS_STAT(conn, result, &smb_fname->st) == 0) {
1019                 stat_cache_add(orig_path, result, conn->case_sensitive);
1020         }
1021
1022         TALLOC_FREE(streams);
1023         return NT_STATUS_OK;
1024
1025  fail:
1026         TALLOC_FREE(result);
1027         TALLOC_FREE(streams);
1028         return status;
1029 }