mirror of
https://github.com/MidnightCommander/mc
synced 2024-12-25 13:57:00 +03:00
481 lines
13 KiB
C
481 lines
13 KiB
C
/*
|
|
Unix SMB/Netbios implementation.
|
|
Version 1.9.
|
|
Samba system utilities
|
|
Copyright (C) Jeremy Allison 1992-1998
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation; either version 2 of the License, or
|
|
(at your option) any later version.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with this program; if not, write to the Free Software
|
|
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
*/
|
|
|
|
#include "includes.h"
|
|
|
|
/*
|
|
* Wrappers for calls that need to translate to
|
|
* DOS/Windows semantics. Note that the pathnames
|
|
* in all these functions referred to as 'DOS' names
|
|
* are actually in UNIX path format (ie. '/' instead of
|
|
* '\' directory separators etc.), but the codepage they
|
|
* are in is still the client codepage, hence the 'DOS'
|
|
* name.
|
|
*/
|
|
|
|
extern int DEBUGLEVEL;
|
|
|
|
/*******************************************************************
|
|
Unlink wrapper that calls dos_to_unix.
|
|
********************************************************************/
|
|
|
|
int dos_unlink(char *fname)
|
|
{
|
|
return(unlink(dos_to_unix(fname,False)));
|
|
}
|
|
|
|
/*******************************************************************
|
|
Open() wrapper that calls dos_to_unix.
|
|
********************************************************************/
|
|
|
|
int dos_open(char *fname,int flags,mode_t mode)
|
|
{
|
|
return(sys_open(dos_to_unix(fname,False),flags,mode));
|
|
}
|
|
|
|
/*******************************************************************
|
|
Opendir() wrapper that calls dos_to_unix.
|
|
********************************************************************/
|
|
|
|
DIR *dos_opendir(char *dname)
|
|
{
|
|
return(opendir(dos_to_unix(dname,False)));
|
|
}
|
|
|
|
/*******************************************************************
|
|
Readdirname() wrapper that calls unix_to_dos.
|
|
********************************************************************/
|
|
|
|
char *dos_readdirname(DIR *p)
|
|
{
|
|
char *dname = readdirname(p);
|
|
|
|
if (!dname)
|
|
return(NULL);
|
|
|
|
unix_to_dos(dname, True);
|
|
return(dname);
|
|
}
|
|
|
|
/*******************************************************************
|
|
A chown() wrapper that calls dos_to_unix.
|
|
********************************************************************/
|
|
|
|
int dos_chown(char *fname, uid_t uid, gid_t gid)
|
|
{
|
|
return(sys_chown(dos_to_unix(fname,False),uid,gid));
|
|
}
|
|
|
|
/*******************************************************************
|
|
A stat() wrapper that calls dos_to_unix.
|
|
********************************************************************/
|
|
|
|
int dos_stat(char *fname,SMB_STRUCT_STAT *sbuf)
|
|
{
|
|
return(sys_stat(dos_to_unix(fname,False),sbuf));
|
|
}
|
|
|
|
/*******************************************************************
|
|
An lstat() that calls dos_to_unix.
|
|
********************************************************************/
|
|
|
|
int dos_lstat(char *fname,SMB_STRUCT_STAT *sbuf)
|
|
{
|
|
return(sys_lstat(dos_to_unix(fname,False),sbuf));
|
|
}
|
|
|
|
/*******************************************************************
|
|
Mkdir() that calls dos_to_unix.
|
|
********************************************************************/
|
|
|
|
int dos_mkdir(char *dname,mode_t mode)
|
|
{
|
|
return(mkdir(dos_to_unix(dname,False),mode));
|
|
}
|
|
|
|
/*******************************************************************
|
|
Rmdir() - call dos_to_unix.
|
|
********************************************************************/
|
|
|
|
int dos_rmdir(char *dname)
|
|
{
|
|
return(rmdir(dos_to_unix(dname,False)));
|
|
}
|
|
|
|
/*******************************************************************
|
|
chdir() - call dos_to_unix.
|
|
********************************************************************/
|
|
|
|
int dos_chdir(char *dname)
|
|
{
|
|
return(chdir(dos_to_unix(dname,False)));
|
|
}
|
|
|
|
/*******************************************************************
|
|
Utime() - call dos_to_unix.
|
|
********************************************************************/
|
|
|
|
int dos_utime(char *fname,struct utimbuf *times)
|
|
{
|
|
/* if the modtime is 0 or -1 then ignore the call and
|
|
return success */
|
|
if (times->modtime == (time_t)0 || times->modtime == (time_t)-1)
|
|
return 0;
|
|
|
|
/* if the access time is 0 or -1 then set it to the modtime */
|
|
if (times->actime == (time_t)0 || times->actime == (time_t)-1)
|
|
times->actime = times->modtime;
|
|
|
|
return(utime(dos_to_unix(fname,False),times));
|
|
}
|
|
|
|
/*********************************************************
|
|
For rename across filesystems Patch from Warren Birnbaum
|
|
<warrenb@hpcvscdp.cv.hp.com>
|
|
**********************************************************/
|
|
|
|
static int copy_reg(char *source, const char *dest)
|
|
{
|
|
SMB_STRUCT_STAT source_stats;
|
|
int ifd;
|
|
int ofd;
|
|
char *buf;
|
|
int len; /* Number of bytes read into `buf'. */
|
|
|
|
sys_lstat (source, &source_stats);
|
|
if (!S_ISREG (source_stats.st_mode))
|
|
return 1;
|
|
|
|
if (unlink (dest) && errno != ENOENT)
|
|
return 1;
|
|
|
|
if((ifd = sys_open (source, O_RDONLY, 0)) < 0)
|
|
return 1;
|
|
|
|
if((ofd = sys_open (dest, O_WRONLY | O_CREAT | O_TRUNC, 0600)) < 0 )
|
|
{
|
|
close (ifd);
|
|
return 1;
|
|
}
|
|
|
|
if((buf = malloc( COPYBUF_SIZE )) == NULL)
|
|
{
|
|
close (ifd);
|
|
close (ofd);
|
|
unlink (dest);
|
|
return 1;
|
|
}
|
|
|
|
while ((len = read(ifd, buf, COPYBUF_SIZE)) > 0)
|
|
{
|
|
if (write_data(ofd, buf, len) < 0)
|
|
{
|
|
close (ifd);
|
|
close (ofd);
|
|
unlink (dest);
|
|
free(buf);
|
|
return 1;
|
|
}
|
|
}
|
|
free(buf);
|
|
if (len < 0)
|
|
{
|
|
close (ifd);
|
|
close (ofd);
|
|
unlink (dest);
|
|
return 1;
|
|
}
|
|
|
|
if (close (ifd) < 0)
|
|
{
|
|
close (ofd);
|
|
return 1;
|
|
}
|
|
if (close (ofd) < 0)
|
|
return 1;
|
|
|
|
/* chown turns off set[ug]id bits for non-root,
|
|
so do the chmod last. */
|
|
|
|
/* Try to copy the old file's modtime and access time. */
|
|
{
|
|
struct utimbuf tv;
|
|
|
|
tv.actime = source_stats.st_atime;
|
|
tv.modtime = source_stats.st_mtime;
|
|
if (utime (dest, &tv))
|
|
return 1;
|
|
}
|
|
|
|
/* Try to preserve ownership. For non-root it might fail, but that's ok.
|
|
But root probably wants to know, e.g. if NFS disallows it. */
|
|
if (chown (dest, source_stats.st_uid, source_stats.st_gid)
|
|
&& (errno != EPERM))
|
|
return 1;
|
|
|
|
if (chmod (dest, source_stats.st_mode & 07777))
|
|
return 1;
|
|
|
|
unlink (source);
|
|
return 0;
|
|
}
|
|
|
|
/*******************************************************************
|
|
Rename() - call dos_to_unix.
|
|
********************************************************************/
|
|
|
|
int dos_rename(char *from, char *to)
|
|
{
|
|
int rcode;
|
|
pstring zfrom, zto;
|
|
|
|
pstrcpy (zfrom, dos_to_unix (from, False));
|
|
pstrcpy (zto, dos_to_unix (to, False));
|
|
rcode = rename (zfrom, zto);
|
|
|
|
if (errno == EXDEV)
|
|
{
|
|
/* Rename across filesystems needed. */
|
|
rcode = copy_reg (zfrom, zto);
|
|
}
|
|
return rcode;
|
|
}
|
|
|
|
/*******************************************************************
|
|
Chmod - call dos_to_unix.
|
|
********************************************************************/
|
|
|
|
int dos_chmod(char *fname,mode_t mode)
|
|
{
|
|
return(chmod(dos_to_unix(fname,False),mode));
|
|
}
|
|
|
|
/*******************************************************************
|
|
Getwd - takes a UNIX directory name and returns the name
|
|
in dos format.
|
|
********************************************************************/
|
|
|
|
char *dos_getwd(char *unix_path)
|
|
{
|
|
char *wd;
|
|
wd = sys_getwd(unix_path);
|
|
if (wd)
|
|
unix_to_dos(wd, True);
|
|
return wd;
|
|
}
|
|
|
|
/*******************************************************************
|
|
Check if a DOS file exists.
|
|
********************************************************************/
|
|
|
|
BOOL dos_file_exist(char *fname,SMB_STRUCT_STAT *sbuf)
|
|
{
|
|
return file_exist(dos_to_unix(fname, False), sbuf);
|
|
}
|
|
|
|
/*******************************************************************
|
|
Check if a DOS directory exists.
|
|
********************************************************************/
|
|
|
|
BOOL dos_directory_exist(char *dname,SMB_STRUCT_STAT *st)
|
|
{
|
|
return directory_exist(dos_to_unix(dname, False), st);
|
|
}
|
|
|
|
/*******************************************************************
|
|
Return the modtime of a DOS pathname.
|
|
********************************************************************/
|
|
|
|
time_t dos_file_modtime(char *fname)
|
|
{
|
|
return file_modtime(dos_to_unix(fname, False));
|
|
}
|
|
|
|
/*******************************************************************
|
|
Return the file size of a DOS pathname.
|
|
********************************************************************/
|
|
|
|
SMB_OFF_T dos_file_size(char *file_name)
|
|
{
|
|
return file_size(dos_to_unix(file_name, False));
|
|
}
|
|
|
|
/*******************************************************************
|
|
A wrapper for dos_chdir().
|
|
********************************************************************/
|
|
|
|
int dos_ChDir(char *path)
|
|
{
|
|
int res;
|
|
static pstring LastDir="";
|
|
|
|
if (strcsequal(path,"."))
|
|
return(0);
|
|
|
|
if (*path == '/' && strcsequal(LastDir,path))
|
|
return(0);
|
|
|
|
DEBUG(3,("dos_ChDir to %s\n",path));
|
|
|
|
res = dos_chdir(path);
|
|
if (!res)
|
|
pstrcpy(LastDir,path);
|
|
return(res);
|
|
}
|
|
|
|
/* 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;
|
|
} ino_list[MAX_GETWDCACHE];
|
|
|
|
BOOL use_getwd_cache=True;
|
|
|
|
/****************************************************************************
|
|
Prompte a ptr (to make it recently used)
|
|
****************************************************************************/
|
|
|
|
static void array_promote(char *array,int elsize,int element)
|
|
{
|
|
char *p;
|
|
if (element == 0)
|
|
return;
|
|
|
|
p = (char *)malloc(elsize);
|
|
|
|
if (!p)
|
|
{
|
|
DEBUG(5,("Ahh! Cannot malloc\n"));
|
|
return;
|
|
}
|
|
memcpy(p,array + element * elsize, elsize);
|
|
memmove(array + elsize,array,elsize*element);
|
|
memcpy(array,p,elsize);
|
|
free(p);
|
|
}
|
|
|
|
/*******************************************************************
|
|
Return the absolute current directory path - given a UNIX pathname.
|
|
Note that this path is returned in DOS format, not UNIX
|
|
format.
|
|
********************************************************************/
|
|
|
|
char *dos_GetWd(char *path)
|
|
{
|
|
pstring s;
|
|
static BOOL getwd_cache_init = False;
|
|
SMB_STRUCT_STAT st, st2;
|
|
int i;
|
|
|
|
*s = 0;
|
|
|
|
if (!use_getwd_cache)
|
|
return(dos_getwd(path));
|
|
|
|
/* init the cache */
|
|
if (!getwd_cache_init)
|
|
{
|
|
getwd_cache_init = True;
|
|
for (i=0;i<MAX_GETWDCACHE;i++)
|
|
{
|
|
string_init(&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 (sys_stat(".",&st) == -1)
|
|
{
|
|
DEBUG(0,("Very strange, couldn't stat \".\"\n"));
|
|
return(dos_getwd(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 (dos_stat(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. */
|
|
|
|
if (!dos_getwd(s))
|
|
{
|
|
DEBUG(0,("dos_GetWd: dos_getwd call failed, errno %s\n",strerror(errno)));
|
|
return (NULL);
|
|
}
|
|
|
|
pstrcpy(path,s);
|
|
|
|
DEBUG(5,("dos_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;
|
|
|
|
/* put it at the top of the list */
|
|
array_promote((char *)&ino_list[0],sizeof(ino_list[0]),i);
|
|
|
|
return (path);
|
|
}
|