Removed HAVE_LIBDL from most places (except system.c). Added checks for
[gd/samba-autobuild/.git] / source / smbd / vfs.c
index 60762a0155557578d142dbd5594a0c09924d1b32..4e2e353ed8af4167bc92398ca6e118703508a90f 100644 (file)
@@ -1,6 +1,6 @@
 /*
    Unix SMB/Netbios implementation.
-   Version 3.0
+   Version 1.9.
    VFS initialisation and support functions
    Copyright (C) Tim Potter 1999
 
@@ -21,8 +21,6 @@
 
 #include "includes.h"
 
-extern int DEBUGLEVEL;
-
 /* Some structures to help us initialise the vfs operations table */
 
 struct vfs_syminfo {
@@ -74,19 +72,45 @@ struct vfs_ops default_vfs_ops = {
        vfswrap_lock,
        vfswrap_symlink,
        vfswrap_readlink,
+       vfswrap_link,
+       vfswrap_mknod,
+       vfswrap_realpath,
 
        vfswrap_fget_nt_acl,
        vfswrap_get_nt_acl,
        vfswrap_fset_nt_acl,
        vfswrap_set_nt_acl,
 
+       /* POSIX ACL operations. */
 #if defined(HAVE_NO_ACLS)
        NULL,
-       NULL
+       NULL,
 #else
        vfswrap_chmod_acl,
-       vfswrap_fchmod_acl
+       vfswrap_fchmod_acl,
 #endif
+       vfswrap_sys_acl_get_entry,
+       vfswrap_sys_acl_get_tag_type,
+       vfswrap_sys_acl_get_permset,
+       vfswrap_sys_acl_get_qualifier,
+       vfswrap_sys_acl_get_file,
+       vfswrap_sys_acl_get_fd,
+       vfswrap_sys_acl_clear_perms,
+       vfswrap_sys_acl_add_perm,
+       vfswrap_sys_acl_to_text,
+       vfswrap_sys_acl_init,
+       vfswrap_sys_acl_create_entry,
+       vfswrap_sys_acl_set_tag_type,
+       vfswrap_sys_acl_set_qualifier,
+       vfswrap_sys_acl_set_permset,
+       vfswrap_sys_acl_valid,
+       vfswrap_sys_acl_set_file,
+       vfswrap_sys_acl_set_fd,
+       vfswrap_sys_acl_delete_def_file,
+       vfswrap_sys_acl_get_perm,
+       vfswrap_sys_acl_free_text,
+       vfswrap_sys_acl_free_acl,
+       vfswrap_sys_acl_free_qualifier
 };
 
 /****************************************************************************
@@ -95,84 +119,77 @@ struct vfs_ops default_vfs_ops = {
 
 static BOOL vfs_init_default(connection_struct *conn)
 {
-    DEBUG(3, ("Initialising default vfs hooks\n"));
+       DEBUG(3, ("Initialising default vfs hooks\n"));
 
-    memcpy(&conn->vfs_ops, &default_vfs_ops, sizeof(struct vfs_ops));
-    return True;
+       memcpy(&conn->vfs_ops, &default_vfs_ops, sizeof(struct vfs_ops));
+       return True;
 }
 
 /****************************************************************************
   initialise custom vfs hooks
 ****************************************************************************/
 
-#ifdef HAVE_LIBDL
 static BOOL vfs_init_custom(connection_struct *conn)
 {
        int vfs_version = -1;
        struct vfs_ops *ops, *(*init_fptr)(int *, struct vfs_ops *);
 
-       DEBUG(3, ("Initialising custom vfs hooks from %s\n",
-                 lp_vfsobj(SNUM(conn))));
+       DEBUG(3, ("Initialising custom vfs hooks from %s\n", lp_vfsobj(SNUM(conn))));
 
        /* Open object file */
-       if ((conn->dl_handle = sys_dlopen(lp_vfsobj(SNUM(conn)), 
-                                         RTLD_NOW | RTLD_GLOBAL)) == NULL) {
-               DEBUG(0, ("Error opening %s: %s\n", lp_vfsobj(SNUM(conn)), sys_dlerror()));
+
+       if ((conn->dl_handle = sys_dlopen(lp_vfsobj(SNUM(conn)), RTLD_NOW | RTLD_GLOBAL)) == NULL) {
+               DEBUG(0, ("Error opening %s: %s\n", lp_vfsobj(SNUM(conn)), dlerror()));
                return False;
        }
 
        /* Get handle on vfs_init() symbol */
+
        init_fptr = (struct vfs_ops *(*)(int *, struct vfs_ops *))sys_dlsym(conn->dl_handle, "vfs_init");
 
        if (init_fptr == NULL) {
-               DEBUG(0, ("No vfs_init() symbol found in %s\n",
-                         lp_vfsobj(SNUM(conn))));
+               DEBUG(0, ("No vfs_init() symbol found in %s\n", lp_vfsobj(SNUM(conn))));
                return False;
        }
 
        /* Initialise vfs_ops structure */
+
        conn->vfs_ops = default_vfs_ops;
 
-       if ((ops = init_fptr(&vfs_version, &conn->vfs_ops)) == NULL) {
+       if ((ops = init_fptr(&vfs_version, &default_vfs_ops)) == NULL) {
                DEBUG(0, ("vfs_init function from %s failed\n", lp_vfsobj(SNUM(conn))));
                return False;
        }
-       
+
        if (vfs_version != SMB_VFS_INTERFACE_VERSION) {
                DEBUG(0, ("vfs_init returned wrong interface version info (was %d, should be %d)\n",
-                         vfs_version, SMB_VFS_INTERFACE_VERSION ));
+                       vfs_version, SMB_VFS_INTERFACE_VERSION ));
                return False;
        }
-       
+
        if (ops != &conn->vfs_ops) {
                memcpy(&conn->vfs_ops, ops, sizeof(struct vfs_ops));
        }
 
        return True;
 }
-#endif
 
 /*****************************************************************
  Generic VFS init.
 ******************************************************************/
 
-BOOL vfs_init(connection_struct *conn)
+BOOL smbd_vfs_init(connection_struct *conn)
 {
        if (*lp_vfsobj(SNUM(conn))) {
-#ifdef HAVE_LIBDL
  
                /* Loadable object file */
  
                if (!vfs_init_custom(conn)) {
-                       DEBUG(0, ("vfs_init: vfs_init_custom failed\n"));
+                       DEBUG(0, ("smbd_vfs_init: vfs_init_custom failed\n"));
                        return False;
                }
 
                return True;
-#else
-               DEBUG(0, ("vfs_init: No libdl present - cannot use VFS objects\n"));
-               return False;
-#endif
        }
  
        /* Normal share - initialise with disk access functions */
@@ -233,10 +250,10 @@ int vfs_mkdir(connection_struct *conn, const char *name, mode_t mode)
 }
 
 /*******************************************************************
- Check if a vfs file exists.
+ Check if an object exists in the vfs.
 ********************************************************************/
 
-BOOL vfs_file_exist(connection_struct *conn,const char *fname,SMB_STRUCT_STAT *sbuf)
+BOOL vfs_object_exist(connection_struct *conn,const char *fname,SMB_STRUCT_STAT *sbuf)
 {
        SMB_STRUCT_STAT st;
 
@@ -245,9 +262,26 @@ BOOL vfs_file_exist(connection_struct *conn,const char *fname,SMB_STRUCT_STAT *s
 
        ZERO_STRUCTP(sbuf);
 
-       if (vfs_stat(conn,fname,sbuf) != 0)
+       if (vfs_stat(conn,fname,sbuf) == -1)
                return(False);
+       return True;
+}
+
+/*******************************************************************
+ Check if a file exists in the vfs.
+********************************************************************/
+
+BOOL vfs_file_exist(connection_struct *conn, const char *fname,SMB_STRUCT_STAT *sbuf)
+{
+       SMB_STRUCT_STAT st;
+
+       if (!sbuf)
+               sbuf = &st;
+
+       ZERO_STRUCTP(sbuf);
 
+       if (vfs_stat(conn,fname,sbuf) == -1)
+               return False;
        return(S_ISREG(sbuf->st_mode));
 }
 
@@ -262,7 +296,7 @@ ssize_t vfs_read_data(files_struct *fsp, char *buf, size_t byte_count)
        while (total < byte_count)
        {
                ssize_t ret = fsp->conn->vfs_ops.read(fsp, fsp->fd, buf + total,
-                                                                                         byte_count - total);
+                                       byte_count - total);
 
                if (ret == 0) return total;
                if (ret == -1) {
@@ -282,19 +316,20 @@ ssize_t vfs_read_data(files_struct *fsp, char *buf, size_t byte_count)
 
 ssize_t vfs_write_data(files_struct *fsp,const char *buffer,size_t N)
 {
-  size_t total=0;
-  ssize_t ret;
+       size_t total=0;
+       ssize_t ret;
 
-  while (total < N)
-  {
-    ret = fsp->conn->vfs_ops.write(fsp,fsp->fd,buffer + total,N - total);
+       while (total < N) {
+               ret = fsp->conn->vfs_ops.write(fsp,fsp->fd,buffer + total,N - total);
 
-    if (ret == -1) return -1;
-    if (ret == 0) return total;
+               if (ret == -1)
+                       return -1;
+               if (ret == 0)
+                       return total;
 
-    total += ret;
-  }
-  return (ssize_t)total;
+               total += ret;
+       }
+       return (ssize_t)total;
 }
 
 /****************************************************************************
@@ -307,11 +342,11 @@ int vfs_allocate_file_space(files_struct *fsp, SMB_OFF_T len)
 {
        int ret;
        SMB_STRUCT_STAT st;
-       struct vfs_ops *vfs_ops = &fsp->conn->vfs_ops;
+       connection_struct *conn = fsp->conn;
+       struct vfs_ops *vfs_ops = &conn->vfs_ops;
+       SMB_OFF_T space_avail;
+       SMB_BIG_UINT bsize,dfree,dsize;
 
-       if (!lp_strict_allocate(SNUM(fsp->conn)))
-               return vfs_set_filelen(fsp, len);
-               
        release_level_2_oplocks_on_change(fsp);
 
        /*
@@ -333,47 +368,30 @@ int vfs_allocate_file_space(files_struct *fsp, SMB_OFF_T len)
                DEBUG(10,("vfs_allocate_file_space: file %s, shrink. Current size %.0f\n",
                                fsp->fsp_name, (double)st.st_size ));
 
+               flush_write_cache(fsp, SIZECHANGE_FLUSH);
                if ((ret = vfs_ops->ftruncate(fsp, fsp->fd, len)) != -1) {
                        set_filelen_write_cache(fsp, len);
                }
                return ret;
        }
 
-       /* Grow - we need to write out the space.... */
-       {
-               static unsigned char zero_space[65536];
-
-               SMB_OFF_T start_pos = st.st_size;
-               SMB_OFF_T len_to_write = len - st.st_size;
-               SMB_OFF_T retlen;
-
-               DEBUG(10,("vfs_allocate_file_space: file %s, grow. Current size %.0f\n",
-                               fsp->fsp_name, (double)st.st_size ));
+       /* Grow - we need to test if we have enough space. */
 
-               if ((retlen = vfs_ops->lseek(fsp, fsp->fd, start_pos, SEEK_SET)) != start_pos)
-                       return -1;
+       if (!lp_strict_allocate(SNUM(fsp->conn)))
+               return 0;
 
-               while ( len_to_write > 0) {
-                       SMB_OFF_T current_len_to_write = MIN(sizeof(zero_space),len_to_write);
-
-                       retlen = vfs_ops->write(fsp,fsp->fd,(const char *)zero_space,current_len_to_write);
-                       if (retlen <= 0) {
-                               /* Write fail - return to original size. */
-                               int save_errno = errno;
-                               fsp->conn->vfs_ops.ftruncate(fsp, fsp->fd, st.st_size);
-                               errno = save_errno;
-                               DEBUG(10,("vfs_allocate_file_space: file %s, grow. write fail %s\n",
-                                       fsp->fsp_name, strerror(errno) ));
-                               return -1;
-                       }
+       len -= st.st_size;
+       len /= 1024; /* Len is now number of 1k blocks needed. */
+       space_avail = (SMB_OFF_T)conn->vfs_ops.disk_free(conn,fsp->fsp_name,False,&bsize,&dfree,&dsize);
 
-                       DEBUG(10,("vfs_allocate_file_space: file %s, grow. wrote %.0f\n",
-                                       fsp->fsp_name, (double)retlen ));
+       DEBUG(10,("vfs_allocate_file_space: file %s, grow. Current size %.0f, needed blocks = %lu, space avail = %lu\n",
+                       fsp->fsp_name, (double)st.st_size, (unsigned long)len, (unsigned long)space_avail ));
 
-                       len_to_write -= retlen;
-               }
-               set_filelen_write_cache(fsp, len);
+       if (len > space_avail) {
+               errno = ENOSPC;
+               return -1;
        }
+
        return 0;
 }
 
@@ -388,6 +406,8 @@ int vfs_set_filelen(files_struct *fsp, SMB_OFF_T len)
        int ret;
 
        release_level_2_oplocks_on_change(fsp);
+       DEBUG(10,("vfs_set_filelen: ftruncate %s to len %.0f\n", fsp->fsp_name, (double)len));
+       flush_write_cache(fsp, SIZECHANGE_FLUSH);
        if ((ret = fsp->conn->vfs_ops.ftruncate(fsp, fsp->fd, len)) != -1)
                set_filelen_write_cache(fsp, len);
 
@@ -542,12 +562,11 @@ int vfs_ChDir(connection_struct *conn, char *path)
 /* number of list structures for a caching GetWd function. */
 #define MAX_GETWDCACHE (50)
 
-struct
-{
-  SMB_DEV_T dev; /* These *must* be compatible with the types returned in a stat() call. */
-  SMB_INO_T inode; /* These *must* be compatible with the types returned in a stat() call. */
-  char *dos_path; /* The pathname in DOS format. */
-  BOOL valid;
+struct {
+       SMB_DEV_T dev; /* These *must* be compatible with the types returned in a stat() call. */
+       SMB_INO_T inode; /* These *must* be compatible with the types returned in a stat() call. */
+       char *dos_path; /* The pathname in DOS format. */
+       BOOL valid;
 } ino_list[MAX_GETWDCACHE];
 
 extern BOOL use_getwd_cache;
@@ -583,98 +602,86 @@ static void array_promote(char *array,int elsize,int element)
 
 char *vfs_GetWd(connection_struct *conn, char *path)
 {
-  pstring s;
-  static BOOL getwd_cache_init = False;
-  SMB_STRUCT_STAT st, st2;
-  int i;
-
-  *s = 0;
-
-  if (!use_getwd_cache)
-    return(vfs_getwd(conn,path));
-
-  /* init the cache */
-  if (!getwd_cache_init)
-  {
-    getwd_cache_init = True;
-    for (i=0;i<MAX_GETWDCACHE;i++)
-    {
-      string_set(&ino_list[i].dos_path,"");
-      ino_list[i].valid = False;
-    }
-  }
-
-  /*  Get the inode of the current directory, if this doesn't work we're
-      in trouble :-) */
-
-  if (vfs_stat(conn, ".",&st) == -1)
-  {
-    DEBUG(0,("Very strange, couldn't stat \".\" path=%s\n", path));
-    return(vfs_getwd(conn,path));
-  }
-
-
-  for (i=0; i<MAX_GETWDCACHE; i++)
-    if (ino_list[i].valid)
-    {
-
-      /*  If we have found an entry with a matching inode and dev number
-          then find the inode number for the directory in the cached string.
-          If this agrees with that returned by the stat for the current
-          directory then all is o.k. (but make sure it is a directory all
-          the same...) */
-
-      if (st.st_ino == ino_list[i].inode &&
-          st.st_dev == ino_list[i].dev)
-      {
-        if (vfs_stat(conn,ino_list[i].dos_path,&st2) == 0)
-        {
-          if (st.st_ino == st2.st_ino &&
-              st.st_dev == st2.st_dev &&
-              (st2.st_mode & S_IFMT) == S_IFDIR)
-          {
-            pstrcpy (path, ino_list[i].dos_path);
-
-            /* promote it for future use */
-            array_promote((char *)&ino_list[0],sizeof(ino_list[0]),i);
-            return (path);
-          }
-          else
-          {
-            /*  If the inode is different then something's changed,
-                scrub the entry and start from scratch. */
-            ino_list[i].valid = False;
-          }
-        }
-      }
-    }
+       pstring s;
+       static BOOL getwd_cache_init = False;
+       SMB_STRUCT_STAT st, st2;
+       int i;
+
+       *s = 0;
+
+       if (!use_getwd_cache)
+               return(vfs_getwd(conn,path));
+
+       /* init the cache */
+       if (!getwd_cache_init) {
+               getwd_cache_init = True;
+               for (i=0;i<MAX_GETWDCACHE;i++) {
+                       string_set(&ino_list[i].dos_path,"");
+                       ino_list[i].valid = False;
+               }
+       }
+
+       /*  Get the inode of the current directory, if this doesn't work we're
+               in trouble :-) */
+
+       if (vfs_stat(conn, ".",&st) == -1) {
+               DEBUG(0,("Very strange, couldn't stat \".\" path=%s\n", path));
+               return(vfs_getwd(conn,path));
+       }
+
 
+       for (i=0; i<MAX_GETWDCACHE; i++) {
+               if (ino_list[i].valid) {
+
+                       /*  If we have found an entry with a matching inode and dev number
+                               then find the inode number for the directory in the cached string.
+                               If this agrees with that returned by the stat for the current
+                               directory then all is o.k. (but make sure it is a directory all
+                               the same...) */
+
+                       if (st.st_ino == ino_list[i].inode && st.st_dev == ino_list[i].dev) {
+                               if (vfs_stat(conn,ino_list[i].dos_path,&st2) == 0) {
+                                       if (st.st_ino == st2.st_ino && st.st_dev == st2.st_dev &&
+                                                       (st2.st_mode & S_IFMT) == S_IFDIR) {
+                                               pstrcpy (path, ino_list[i].dos_path);
+
+                                               /* promote it for future use */
+                                               array_promote((char *)&ino_list[0],sizeof(ino_list[0]),i);
+                                               return (path);
+                                       } else {
+                                               /*  If the inode is different then something's changed,
+                                                       scrub the entry and start from scratch. */
+                                               ino_list[i].valid = False;
+                                       }
+                               }
+                       }
+               }
+       }
 
-  /*  We don't have the information to hand so rely on traditional methods.
-      The very slow getcwd, which spawns a process on some systems, or the
-      not quite so bad getwd. */
+       /*  We don't have the information to hand so rely on traditional methods.
+               The very slow getcwd, which spawns a process on some systems, or the
+               not quite so bad getwd. */
 
-  if (!vfs_getwd(conn,s))
-  {
-    DEBUG(0,("vfs_GetWd: vfs_getwd call failed, errno %s\n",strerror(errno)));
-    return (NULL);
-  }
+       if (!vfs_getwd(conn,s)) {
+               DEBUG(0,("vfs_GetWd: vfs_getwd call failed, errno %s\n",strerror(errno)));
+               return (NULL);
+       }
 
-  pstrcpy(path,s);
+       pstrcpy(path,s);
 
-  DEBUG(5,("vfs_GetWd %s, inode %.0f, dev %.0f\n",s,(double)st.st_ino,(double)st.st_dev));
+       DEBUG(5,("vfs_GetWd %s, inode %.0f, dev %.0f\n",s,(double)st.st_ino,(double)st.st_dev));
 
-  /* add it to the cache */
-  i = MAX_GETWDCACHE - 1;
-  string_set(&ino_list[i].dos_path,s);
-  ino_list[i].dev = st.st_dev;
-  ino_list[i].inode = st.st_ino;
-  ino_list[i].valid = True;
+       /* add it to the cache */
+       i = MAX_GETWDCACHE - 1;
+       string_set(&ino_list[i].dos_path,s);
+       ino_list[i].dev = st.st_dev;
+       ino_list[i].inode = st.st_ino;
+       ino_list[i].valid = True;
 
-  /* put it at the top of the list */
-  array_promote((char *)&ino_list[0],sizeof(ino_list[0]),i);
+       /* put it at the top of the list */
+       array_promote((char *)&ino_list[0],sizeof(ino_list[0]),i);
 
-  return (path);
+       return (path);
 }
 
 /*******************************************************************
@@ -687,121 +694,109 @@ char *vfs_GetWd(connection_struct *conn, char *path)
 BOOL reduce_name(connection_struct *conn, char *s,char *dir,BOOL widelinks)
 {
 #ifndef REDUCE_PATHS
-  return True;
+       return True;
 #else
-  pstring dir2;
-  pstring wd;
-  pstring base_name;
-  pstring newname;
-  char *p=NULL;
-  BOOL relative = (*s != '/');
-
-  *dir2 = *wd = *base_name = *newname = 0;
-
-  if (widelinks)
-  {
-    unix_clean_name(s);
-    /* can't have a leading .. */
-    if (strncmp(s,"..",2) == 0 && (s[2]==0 || s[2]=='/'))
-    {
-      DEBUG(3,("Illegal file name? (%s)\n",s));
-      return(False);
-    }
+       pstring dir2;
+       pstring wd;
+       pstring base_name;
+       pstring newname;
+       char *p=NULL;
+       BOOL relative = (*s != '/');
+
+       *dir2 = *wd = *base_name = *newname = 0;
+
+       if (widelinks) {
+               unix_clean_name(s);
+               /* can't have a leading .. */
+               if (strncmp(s,"..",2) == 0 && (s[2]==0 || s[2]=='/')) {
+                       DEBUG(3,("Illegal file name? (%s)\n",s));
+                       return(False);
+               }
 
-    if (strlen(s) == 0)
-      pstrcpy(s,"./");
-
-    return(True);
-  }
-
-  DEBUG(3,("reduce_name [%s] [%s]\n",s,dir));
-
-  /* remove any double slashes */
-  all_string_sub(s,"//","/",0);
-
-  pstrcpy(base_name,s);
-  p = strrchr_m(base_name,'/');
-
-  if (!p)
-    return(True);
-
-  if (!vfs_GetWd(conn,wd))
-  {
-    DEBUG(0,("couldn't vfs_GetWd for %s %s\n",s,dir));
-    return(False);
-  }
-
-  if (vfs_ChDir(conn,dir) != 0)
-  {
-    DEBUG(0,("couldn't vfs_ChDir to %s\n",dir));
-    return(False);
-  }
-
-  if (!vfs_GetWd(conn,dir2))
-  {
-    DEBUG(0,("couldn't vfs_GetWd for %s\n",dir));
-    vfs_ChDir(conn,wd);
-    return(False);
-  }
-
-  if (p && (p != base_name))
-  {
-    *p = 0;
-    if (strcmp(p+1,".")==0)
-      p[1]=0;
-    if (strcmp(p+1,"..")==0)
-      *p = '/';
-  }
-
-  if (vfs_ChDir(conn,base_name) != 0)
-  {
-    vfs_ChDir(conn,wd);
-    DEBUG(3,("couldn't vfs_ChDir for %s %s basename=%s\n",s,dir,base_name));
-    return(False);
-  }
-
-  if (!vfs_GetWd(conn,newname))
-  {
-    vfs_ChDir(conn,wd);
-    DEBUG(2,("couldn't get vfs_GetWd for %s %s\n",s,dir2));
-    return(False);
-  }
-
-  if (p && (p != base_name))
-  {
-    pstrcat(newname,"/");
-    pstrcat(newname,p+1);
-  }
-
-  {
-    size_t l = strlen(dir2);
-    if (dir2[l-1] == '/')
-      l--;
-
-    if (strncmp(newname,dir2,l) != 0)
-    {
-      vfs_ChDir(conn,wd);
-      DEBUG(2,("Bad access attempt? s=%s dir=%s newname=%s l=%d\n",s,dir2,newname,(int)l));
-      return(False);
-    }
+               if (strlen(s) == 0)
+                       pstrcpy(s,"./");
 
-    if (relative)
-    {
-      if (newname[l] == '/')
-        pstrcpy(s,newname + l + 1);
-      else
-        pstrcpy(s,newname+l);
-    }
-    else
-      pstrcpy(s,newname);
-  }
+               return(True);
+       }
+
+       DEBUG(3,("reduce_name [%s] [%s]\n",s,dir));
+
+       /* remove any double slashes */
+       all_string_sub(s,"//","/",0);
+
+       pstrcpy(base_name,s);
+       p = strrchr_m(base_name,'/');
+
+       if (!p)
+               return(True);
+
+       if (!vfs_GetWd(conn,wd)) {
+               DEBUG(0,("couldn't vfs_GetWd for %s %s\n",s,dir));
+               return(False);
+       }
+
+       if (vfs_ChDir(conn,dir) != 0) {
+               DEBUG(0,("couldn't vfs_ChDir to %s\n",dir));
+               return(False);
+       }
+
+       if (!vfs_GetWd(conn,dir2)) {
+               DEBUG(0,("couldn't vfs_GetWd for %s\n",dir));
+               vfs_ChDir(conn,wd);
+               return(False);
+       }
+
+       if (p && (p != base_name)) {
+               *p = 0;
+               if (strcmp(p+1,".")==0)
+                       p[1]=0;
+               if (strcmp(p+1,"..")==0)
+                       *p = '/';
+       }
+
+       if (vfs_ChDir(conn,base_name) != 0) {
+               vfs_ChDir(conn,wd);
+               DEBUG(3,("couldn't vfs_ChDir for %s %s basename=%s\n",s,dir,base_name));
+               return(False);
+       }
+
+       if (!vfs_GetWd(conn,newname)) {
+               vfs_ChDir(conn,wd);
+               DEBUG(2,("couldn't get vfs_GetWd for %s %s\n",s,dir2));
+               return(False);
+       }
+
+       if (p && (p != base_name)) {
+               pstrcat(newname,"/");
+               pstrcat(newname,p+1);
+       }
+
+       {
+               size_t l = strlen(dir2);
+               if (dir2[l-1] == '/')
+                       l--;
+
+               if (strncmp(newname,dir2,l) != 0) {
+                       vfs_ChDir(conn,wd);
+                       DEBUG(2,("Bad access attempt? s=%s dir=%s newname=%s l=%d\n",s,dir2,newname,(int)l));
+                       return(False);
+               }
+
+               if (relative) {
+                       if (newname[l] == '/')
+                               pstrcpy(s,newname + l + 1);
+                       else
+                               pstrcpy(s,newname+l);
+               } else
+                       pstrcpy(s,newname);
+       }
 
-  vfs_ChDir(conn,wd);
+       vfs_ChDir(conn,wd);
 
-  if (strlen(s) == 0)
-    pstrcpy(s,"./");
+       if (strlen(s) == 0)
+               pstrcpy(s,"./");
 
-  DEBUG(3,("reduced to %s\n",s));
-  return(True);
+       DEBUG(3,("reduced to %s\n",s));
+       return(True);
 #endif
 }