1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
|
/* Provide a stub lchown function for systems that lack it.
Copyright (C) 1998-1999, 2002, 2004, 2006-2007, 2009-2023 Free Software
Foundation, Inc.
This file is free software: you can redistribute it and/or modify
it under the terms of the GNU Lesser General Public License as
published by the Free Software Foundation; either version 2.1 of the
License, or (at your option) any later version.
This file 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 Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public License
along with this program. If not, see <https://www.gnu.org/licenses/>. */
/* written by Jim Meyering */
#include <config.h>
#include <unistd.h>
#include <errno.h>
#include <string.h>
#include <sys/stat.h>
#if !HAVE_LCHOWN
/* If the system chown does not follow symlinks, we don't want it
replaced by gnulib's chown, which does follow symlinks. */
# if CHOWN_MODIFIES_SYMLINK
# undef chown
# endif
/* Work just like chown, except when FILE is a symbolic link.
In that case, set errno to EOPNOTSUPP and return -1.
But if autoconf tests determined that chown modifies
symlinks, then just call chown. */
int
lchown (const char *file, uid_t uid, gid_t gid)
{
# if HAVE_CHOWN
# if ! CHOWN_MODIFIES_SYMLINK
char readlink_buf[1];
if (0 <= readlink (file, readlink_buf, sizeof readlink_buf))
{
errno = EOPNOTSUPP;
return -1;
}
# endif
return chown (file, uid, gid);
# else /* !HAVE_CHOWN */
errno = ENOSYS;
return -1;
# endif
}
#else /* HAVE_LCHOWN */
# undef lchown
/* Work around trailing slash bugs in lchown. */
int
rpl_lchown (const char *file, uid_t uid, gid_t gid)
{
bool stat_valid = false;
int result;
# if CHOWN_CHANGE_TIME_BUG
struct stat st;
if (gid != (gid_t) -1 || uid != (uid_t) -1)
{
if (lstat (file, &st))
return -1;
stat_valid = true;
if (!S_ISLNK (st.st_mode))
return chown (file, uid, gid);
}
# endif
# if CHOWN_TRAILING_SLASH_BUG
if (!stat_valid)
{
size_t len = strlen (file);
if (len && file[len - 1] == '/')
return chown (file, uid, gid);
}
# endif
result = lchown (file, uid, gid);
# if CHOWN_CHANGE_TIME_BUG && HAVE_LCHMOD
if (result == 0 && stat_valid
&& (uid == st.st_uid || uid == (uid_t) -1)
&& (gid == st.st_gid || gid == (gid_t) -1))
{
/* No change in ownership, but at least one argument was not -1,
so we are required to update ctime. Since lchown succeeded,
we assume that lchmod will do likewise. But if the system
lacks lchmod and lutimes, we are out of luck. Oh well. */
result = lchmod (file, st.st_mode & (S_IRWXU | S_IRWXG | S_IRWXO
| S_ISUID | S_ISGID | S_ISVTX));
}
# endif
return result;
}
#endif /* HAVE_LCHOWN */
|
