2 Unix SMB/CIFS implementation.
4 Copyright (C) Andrew Tridgell 1992-1998
5 Copyright (C) Jeremy Allison 1998-2005
6 Copyright (C) Timur Bakeyev 2005
7 Copyright (C) Bjoern Jacke 2006-2007
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.
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.
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/>.
24 #include "system/syslog.h"
25 #include "system/capability.h"
26 #include "system/passwd.h"
27 #include "system/filesys.h"
28 #include "../lib/util/setid.h"
30 #ifdef HAVE_SYS_SYSCTL_H
31 #include <sys/sysctl.h>
34 #ifdef HAVE_SYS_PRCTL_H
35 #include <sys/prctl.h>
39 The idea is that this file will eventually have wrappers around all
40 important system calls in samba. The aims are:
42 - to enable easier porting by putting OS dependent stuff in here
44 - to allow for hooks into other "pseudo-filesystems"
46 - to allow easier integration of things like the japanese extensions
48 - to support the philosophy of Samba to expose the features of
49 the OS within the SMB model. In general whatever file/printer/variable
50 expansions/etc make sense to the OS should be acceptable to Samba.
55 /*******************************************************************
56 A read wrapper that will deal with EINTR.
57 ********************************************************************/
59 ssize_t
sys_read(int fd
, void *buf
, size_t count
)
64 ret
= read(fd
, buf
, count
);
65 #if defined(EWOULDBLOCK)
66 } while (ret
== -1 && (errno
== EINTR
|| errno
== EAGAIN
|| errno
== EWOULDBLOCK
));
68 } while (ret
== -1 && (errno
== EINTR
|| errno
== EAGAIN
));
73 /*******************************************************************
74 A write wrapper that will deal with EINTR.
75 ********************************************************************/
77 ssize_t
sys_write(int fd
, const void *buf
, size_t count
)
82 ret
= write(fd
, buf
, count
);
83 #if defined(EWOULDBLOCK)
84 } while (ret
== -1 && (errno
== EINTR
|| errno
== EAGAIN
|| errno
== EWOULDBLOCK
));
86 } while (ret
== -1 && (errno
== EINTR
|| errno
== EAGAIN
));
91 /*******************************************************************
92 A writev wrapper that will deal with EINTR.
93 ********************************************************************/
95 ssize_t
sys_writev(int fd
, const struct iovec
*iov
, int iovcnt
)
100 /* Try to confuse write_data_iov a bit */
101 if ((random() % 5) == 0) {
102 return sys_write(fd
, iov
[0].iov_base
, iov
[0].iov_len
);
104 if (iov
[0].iov_len
> 1) {
105 return sys_write(fd
, iov
[0].iov_base
,
106 (random() % (iov
[0].iov_len
-1)) + 1);
111 ret
= writev(fd
, iov
, iovcnt
);
112 #if defined(EWOULDBLOCK)
113 } while (ret
== -1 && (errno
== EINTR
|| errno
== EAGAIN
|| errno
== EWOULDBLOCK
));
115 } while (ret
== -1 && (errno
== EINTR
|| errno
== EAGAIN
));
120 /*******************************************************************
121 A pread wrapper that will deal with EINTR
122 ********************************************************************/
124 #if defined(HAVE_PREAD)
125 ssize_t
sys_pread(int fd
, void *buf
, size_t count
, off_t off
)
130 ret
= pread(fd
, buf
, count
, off
);
131 } while (ret
== -1 && errno
== EINTR
);
136 /*******************************************************************
137 A write wrapper that will deal with EINTR
138 ********************************************************************/
140 #if defined(HAVE_PWRITE)
141 ssize_t
sys_pwrite(int fd
, const void *buf
, size_t count
, off_t off
)
146 ret
= pwrite(fd
, buf
, count
, off
);
147 } while (ret
== -1 && errno
== EINTR
);
152 /*******************************************************************
153 A send wrapper that will deal with EINTR or EAGAIN or EWOULDBLOCK.
154 ********************************************************************/
156 ssize_t
sys_send(int s
, const void *msg
, size_t len
, int flags
)
161 ret
= send(s
, msg
, len
, flags
);
162 #if defined(EWOULDBLOCK)
163 } while (ret
== -1 && (errno
== EINTR
|| errno
== EAGAIN
|| errno
== EWOULDBLOCK
));
165 } while (ret
== -1 && (errno
== EINTR
|| errno
== EAGAIN
));
170 /*******************************************************************
171 A recvfrom wrapper that will deal with EINTR.
172 ********************************************************************/
174 ssize_t
sys_recvfrom(int s
, void *buf
, size_t len
, int flags
, struct sockaddr
*from
, socklen_t
*fromlen
)
179 ret
= recvfrom(s
, buf
, len
, flags
, from
, fromlen
);
180 #if defined(EWOULDBLOCK)
181 } while (ret
== -1 && (errno
== EINTR
|| errno
== EAGAIN
|| errno
== EWOULDBLOCK
));
183 } while (ret
== -1 && (errno
== EINTR
|| errno
== EAGAIN
));
188 /*******************************************************************
189 A fcntl wrapper that will deal with EINTR.
190 ********************************************************************/
192 int sys_fcntl_ptr(int fd
, int cmd
, void *arg
)
197 ret
= fcntl(fd
, cmd
, arg
);
198 } while (ret
== -1 && errno
== EINTR
);
202 /*******************************************************************
203 A fcntl wrapper that will deal with EINTR.
204 ********************************************************************/
206 int sys_fcntl_long(int fd
, int cmd
, long arg
)
211 ret
= fcntl(fd
, cmd
, arg
);
212 } while (ret
== -1 && errno
== EINTR
);
216 /****************************************************************************
217 Get/Set all the possible time fields from a stat struct as a timespec.
218 ****************************************************************************/
220 static struct timespec
get_atimespec(const struct stat
*pst
)
222 #if !defined(HAVE_STAT_HIRES_TIMESTAMPS)
225 /* Old system - no ns timestamp. */
226 ret
.tv_sec
= pst
->st_atime
;
230 #if defined(HAVE_STRUCT_STAT_ST_MTIM_TV_NSEC)
232 #elif defined(HAVE_STRUCT_STAT_ST_MTIMENSEC)
234 ret
.tv_sec
= pst
->st_atime
;
235 ret
.tv_nsec
= pst
->st_atimensec
;
237 #elif defined(HAVE_STRUCT_STAT_ST_MTIME_N)
239 ret
.tv_sec
= pst
->st_atime
;
240 ret
.tv_nsec
= pst
->st_atime_n
;
242 #elif defined(HAVE_STRUCT_STAT_ST_UMTIME)
244 ret
.tv_sec
= pst
->st_atime
;
245 ret
.tv_nsec
= pst
->st_uatime
* 1000;
247 #elif defined(HAVE_STRUCT_STAT_ST_MTIMESPEC_TV_NSEC)
248 return pst
->st_atimespec
;
250 #error CONFIGURE_ERROR_IN_DETECTING_TIMESPEC_IN_STAT
255 static struct timespec
get_mtimespec(const struct stat
*pst
)
257 #if !defined(HAVE_STAT_HIRES_TIMESTAMPS)
260 /* Old system - no ns timestamp. */
261 ret
.tv_sec
= pst
->st_mtime
;
265 #if defined(HAVE_STRUCT_STAT_ST_MTIM_TV_NSEC)
267 #elif defined(HAVE_STRUCT_STAT_ST_MTIMENSEC)
269 ret
.tv_sec
= pst
->st_mtime
;
270 ret
.tv_nsec
= pst
->st_mtimensec
;
272 #elif defined(HAVE_STRUCT_STAT_ST_MTIME_N)
274 ret
.tv_sec
= pst
->st_mtime
;
275 ret
.tv_nsec
= pst
->st_mtime_n
;
277 #elif defined(HAVE_STRUCT_STAT_ST_UMTIME)
279 ret
.tv_sec
= pst
->st_mtime
;
280 ret
.tv_nsec
= pst
->st_umtime
* 1000;
282 #elif defined(HAVE_STRUCT_STAT_ST_MTIMESPEC_TV_NSEC)
283 return pst
->st_mtimespec
;
285 #error CONFIGURE_ERROR_IN_DETECTING_TIMESPEC_IN_STAT
290 static struct timespec
get_ctimespec(const struct stat
*pst
)
292 #if !defined(HAVE_STAT_HIRES_TIMESTAMPS)
295 /* Old system - no ns timestamp. */
296 ret
.tv_sec
= pst
->st_ctime
;
300 #if defined(HAVE_STRUCT_STAT_ST_MTIM_TV_NSEC)
302 #elif defined(HAVE_STRUCT_STAT_ST_MTIMENSEC)
304 ret
.tv_sec
= pst
->st_ctime
;
305 ret
.tv_nsec
= pst
->st_ctimensec
;
307 #elif defined(HAVE_STRUCT_STAT_ST_MTIME_N)
309 ret
.tv_sec
= pst
->st_ctime
;
310 ret
.tv_nsec
= pst
->st_ctime_n
;
312 #elif defined(HAVE_STRUCT_STAT_ST_UMTIME)
314 ret
.tv_sec
= pst
->st_ctime
;
315 ret
.tv_nsec
= pst
->st_uctime
* 1000;
317 #elif defined(HAVE_STRUCT_STAT_ST_MTIMESPEC_TV_NSEC)
318 return pst
->st_ctimespec
;
320 #error CONFIGURE_ERROR_IN_DETECTING_TIMESPEC_IN_STAT
325 /****************************************************************************
326 Return the best approximation to a 'create time' under UNIX from a stat
328 ****************************************************************************/
330 static struct timespec
calc_create_time_stat(const struct stat
*st
)
332 struct timespec ret
, ret1
;
333 struct timespec c_time
= get_ctimespec(st
);
334 struct timespec m_time
= get_mtimespec(st
);
335 struct timespec a_time
= get_atimespec(st
);
337 ret
= timespec_compare(&c_time
, &m_time
) < 0 ? c_time
: m_time
;
338 ret1
= timespec_compare(&ret
, &a_time
) < 0 ? ret
: a_time
;
340 if(!null_timespec(ret1
)) {
345 * One of ctime, mtime or atime was zero (probably atime).
346 * Just return MIN(ctime, mtime).
351 /****************************************************************************
352 Return the best approximation to a 'create time' under UNIX from a stat_ex
354 ****************************************************************************/
356 static struct timespec
calc_create_time_stat_ex(const struct stat_ex
*st
)
358 struct timespec ret
, ret1
;
359 struct timespec c_time
= st
->st_ex_ctime
;
360 struct timespec m_time
= st
->st_ex_mtime
;
361 struct timespec a_time
= st
->st_ex_atime
;
363 ret
= timespec_compare(&c_time
, &m_time
) < 0 ? c_time
: m_time
;
364 ret1
= timespec_compare(&ret
, &a_time
) < 0 ? ret
: a_time
;
366 if(!null_timespec(ret1
)) {
371 * One of ctime, mtime or atime was zero (probably atime).
372 * Just return MIN(ctime, mtime).
377 /****************************************************************************
378 Return the 'create time' from a stat struct if it exists (birthtime) or else
379 use the best approximation.
380 ****************************************************************************/
382 static void make_create_timespec(const struct stat
*pst
, struct stat_ex
*dst
,
383 bool fake_dir_create_times
)
385 if (S_ISDIR(pst
->st_mode
) && fake_dir_create_times
) {
386 dst
->st_ex_btime
.tv_sec
= 315493200L; /* 1/1/1980 */
387 dst
->st_ex_btime
.tv_nsec
= 0;
390 dst
->st_ex_calculated_birthtime
= false;
392 #if defined(HAVE_STRUCT_STAT_ST_BIRTHTIMESPEC_TV_NSEC)
393 dst
->st_ex_btime
= pst
->st_birthtimespec
;
394 #elif defined(HAVE_STRUCT_STAT_ST_BIRTHTIMENSEC)
395 dst
->st_ex_btime
.tv_sec
= pst
->st_birthtime
;
396 dst
->st_ex_btime
.tv_nsec
= pst
->st_birthtimenspec
;
397 #elif defined(HAVE_STRUCT_STAT_ST_BIRTHTIME)
398 dst
->st_ex_btime
.tv_sec
= pst
->st_birthtime
;
399 dst
->st_ex_btime
.tv_nsec
= 0;
401 dst
->st_ex_btime
= calc_create_time_stat(pst
);
402 dst
->st_ex_calculated_birthtime
= true;
405 /* Deal with systems that don't initialize birthtime correctly.
406 * Pointed out by SATOH Fumiyasu <fumiyas@osstech.jp>.
408 if (null_timespec(dst
->st_ex_btime
)) {
409 dst
->st_ex_btime
= calc_create_time_stat(pst
);
410 dst
->st_ex_calculated_birthtime
= true;
414 /****************************************************************************
415 If we update a timestamp in a stat_ex struct we may have to recalculate
416 the birthtime. For now only implement this for write time, but we may
417 also need to do it for atime and ctime. JRA.
418 ****************************************************************************/
420 void update_stat_ex_mtime(struct stat_ex
*dst
,
421 struct timespec write_ts
)
423 dst
->st_ex_mtime
= write_ts
;
425 /* We may have to recalculate btime. */
426 if (dst
->st_ex_calculated_birthtime
) {
427 dst
->st_ex_btime
= calc_create_time_stat_ex(dst
);
431 void update_stat_ex_create_time(struct stat_ex
*dst
,
432 struct timespec create_time
)
434 dst
->st_ex_btime
= create_time
;
435 dst
->st_ex_calculated_birthtime
= false;
438 void init_stat_ex_from_stat (struct stat_ex
*dst
,
439 const struct stat
*src
,
440 bool fake_dir_create_times
)
442 dst
->st_ex_dev
= src
->st_dev
;
443 dst
->st_ex_ino
= src
->st_ino
;
444 dst
->st_ex_mode
= src
->st_mode
;
445 dst
->st_ex_nlink
= src
->st_nlink
;
446 dst
->st_ex_uid
= src
->st_uid
;
447 dst
->st_ex_gid
= src
->st_gid
;
448 dst
->st_ex_rdev
= src
->st_rdev
;
449 dst
->st_ex_size
= src
->st_size
;
450 dst
->st_ex_atime
= get_atimespec(src
);
451 dst
->st_ex_mtime
= get_mtimespec(src
);
452 dst
->st_ex_ctime
= get_ctimespec(src
);
453 make_create_timespec(src
, dst
, fake_dir_create_times
);
454 #ifdef HAVE_STAT_ST_BLKSIZE
455 dst
->st_ex_blksize
= src
->st_blksize
;
457 dst
->st_ex_blksize
= STAT_ST_BLOCKSIZE
;
460 #ifdef HAVE_STAT_ST_BLOCKS
461 dst
->st_ex_blocks
= src
->st_blocks
;
463 dst
->st_ex_blocks
= src
->st_size
/ dst
->st_ex_blksize
+ 1;
466 #ifdef HAVE_STAT_ST_FLAGS
467 dst
->st_ex_flags
= src
->st_flags
;
469 dst
->st_ex_flags
= 0;
473 /*******************************************************************
475 ********************************************************************/
477 int sys_stat(const char *fname
, SMB_STRUCT_STAT
*sbuf
,
478 bool fake_dir_create_times
)
482 ret
= stat(fname
, &statbuf
);
484 /* we always want directories to appear zero size */
485 if (S_ISDIR(statbuf
.st_mode
)) {
488 init_stat_ex_from_stat(sbuf
, &statbuf
, fake_dir_create_times
);
493 /*******************************************************************
495 ********************************************************************/
497 int sys_fstat(int fd
, SMB_STRUCT_STAT
*sbuf
, bool fake_dir_create_times
)
501 ret
= fstat(fd
, &statbuf
);
503 /* we always want directories to appear zero size */
504 if (S_ISDIR(statbuf
.st_mode
)) {
507 init_stat_ex_from_stat(sbuf
, &statbuf
, fake_dir_create_times
);
512 /*******************************************************************
514 ********************************************************************/
516 int sys_lstat(const char *fname
,SMB_STRUCT_STAT
*sbuf
,
517 bool fake_dir_create_times
)
521 ret
= lstat(fname
, &statbuf
);
523 /* we always want directories to appear zero size */
524 if (S_ISDIR(statbuf
.st_mode
)) {
527 init_stat_ex_from_stat(sbuf
, &statbuf
, fake_dir_create_times
);
532 /*******************************************************************
533 An posix_fallocate() wrapper.
534 ********************************************************************/
535 int sys_posix_fallocate(int fd
, off_t offset
, off_t len
)
537 #if defined(HAVE_POSIX_FALLOCATE) && !defined(HAVE_BROKEN_POSIX_FALLOCATE)
538 return posix_fallocate(fd
, offset
, len
);
539 #elif defined(F_RESVSP64)
540 /* this handles XFS on IRIX */
542 off_t new_len
= offset
+ len
;
546 /* unlikely to get a too large file on a 64bit system but ... */
550 fl
.l_whence
= SEEK_SET
;
554 ret
=fcntl(fd
, F_RESVSP64
, &fl
);
559 /* Make sure the file gets enlarged after we allocated space: */
561 if (new_len
> sbuf
.st_size
)
562 ftruncate64(fd
, new_len
);
569 /*******************************************************************
570 An fallocate() function that matches the semantics of the Linux one.
571 ********************************************************************/
573 #ifdef HAVE_LINUX_FALLOC_H
574 #include <linux/falloc.h>
577 int sys_fallocate(int fd
, enum vfs_fallocate_mode mode
, off_t offset
, off_t len
)
579 #if defined(HAVE_LINUX_FALLOCATE64) || defined(HAVE_LINUX_FALLOCATE)
582 case VFS_FALLOCATE_EXTEND_SIZE
:
585 case VFS_FALLOCATE_KEEP_SIZE
:
586 lmode
= FALLOC_FL_KEEP_SIZE
;
592 #if defined(HAVE_LINUX_FALLOCATE)
593 return fallocate(fd
, lmode
, offset
, len
);
596 /* TODO - plumb in fallocate from other filesysetms like VXFS etc. JRA. */
602 #if HAVE_KERNEL_SHARE_MODES
604 #define LOCK_MAND 32 /* This is a mandatory flock */
605 #define LOCK_READ 64 /* ... Which allows concurrent read operations */
606 #define LOCK_WRITE 128 /* ... Which allows concurrent write operations */
607 #define LOCK_RW 192 /* ... Which allows concurrent read & write ops */
611 /*******************************************************************
612 A flock() wrapper that will perform the kernel flock.
613 ********************************************************************/
615 void kernel_flock(int fd
, uint32 share_mode
, uint32 access_mask
)
617 #if HAVE_KERNEL_SHARE_MODES
619 if (share_mode
== FILE_SHARE_WRITE
) {
620 kernel_mode
= LOCK_MAND
|LOCK_WRITE
;
621 } else if (share_mode
== FILE_SHARE_READ
) {
622 kernel_mode
= LOCK_MAND
|LOCK_READ
;
623 } else if (share_mode
== FILE_SHARE_NONE
) {
624 kernel_mode
= LOCK_MAND
;
627 flock(fd
, kernel_mode
);
635 /*******************************************************************
636 An fdopendir wrapper.
637 Ugly hack - we need dirfd for this to work correctly in the
639 ********************************************************************/
641 DIR *sys_fdopendir(int fd
)
643 #if defined(HAVE_FDOPENDIR) && defined(HAVE_DIRFD)
644 return fdopendir(fd
);
651 /*******************************************************************
653 ********************************************************************/
655 int sys_mknod(const char *path
, mode_t mode
, SMB_DEV_T dev
)
657 #if defined(HAVE_MKNOD)
658 return mknod(path
, mode
, dev
);
660 /* No mknod system call. */
666 /*******************************************************************
667 The wait() calls vary between systems
668 ********************************************************************/
670 int sys_waitpid(pid_t pid
,int *status
,int options
)
673 return waitpid(pid
,status
,options
);
674 #else /* HAVE_WAITPID */
675 return wait4(pid
, status
, options
, NULL
);
676 #endif /* HAVE_WAITPID */
679 /*******************************************************************
680 System wrapper for getwd. Always returns MALLOC'ed memory, or NULL
681 on error (malloc fail usually).
682 ********************************************************************/
684 char *sys_getwd(void)
686 #ifdef GETCWD_TAKES_NULL
687 return getcwd(NULL
, 0);
689 char *wd
= NULL
, *s
= NULL
;
690 size_t allocated
= PATH_MAX
;
693 s
= SMB_REALLOC_ARRAY(s
, char, allocated
);
697 wd
= getcwd(s
, allocated
);
701 if (errno
!= ERANGE
) {
706 if (allocated
< PATH_MAX
) {
713 char *s
= SMB_MALLOC_ARRAY(char, PATH_MAX
);
721 #if defined(HAVE_POSIX_CAPABILITIES)
723 /**************************************************************************
724 Try and abstract process capabilities (for systems that have them).
725 ****************************************************************************/
727 /* Set the POSIX capabilities needed for the given purpose into the effective
728 * capability set of the current process. Make sure they are always removed
729 * from the inheritable set, because there is no circumstance in which our
730 * children should inherit our elevated privileges.
732 static bool set_process_capability(enum smbd_capability capability
,
735 cap_value_t cap_vals
[2] = {0};
736 int num_cap_vals
= 0;
740 #if defined(HAVE_PRCTL) && defined(PR_GET_KEEPCAPS) && defined(PR_SET_KEEPCAPS)
741 /* On Linux, make sure that any capabilities we grab are sticky
742 * across UID changes. We expect that this would allow us to keep both
743 * the effective and permitted capability sets, but as of circa 2.6.16,
744 * only the permitted set is kept. It is a bug (which we work around)
745 * that the effective set is lost, but we still require the effective
748 if (!prctl(PR_GET_KEEPCAPS
)) {
749 prctl(PR_SET_KEEPCAPS
, 1);
753 cap
= cap_get_proc();
755 DEBUG(0,("set_process_capability: cap_get_proc failed: %s\n",
760 switch (capability
) {
761 case KERNEL_OPLOCK_CAPABILITY
:
762 #ifdef CAP_NETWORK_MGT
763 /* IRIX has CAP_NETWORK_MGT for oplocks. */
764 cap_vals
[num_cap_vals
++] = CAP_NETWORK_MGT
;
767 case DMAPI_ACCESS_CAPABILITY
:
768 #ifdef CAP_DEVICE_MGT
769 /* IRIX has CAP_DEVICE_MGT for DMAPI access. */
770 cap_vals
[num_cap_vals
++] = CAP_DEVICE_MGT
;
772 /* Linux has CAP_MKNOD for DMAPI access. */
773 cap_vals
[num_cap_vals
++] = CAP_MKNOD
;
776 case LEASE_CAPABILITY
:
778 cap_vals
[num_cap_vals
++] = CAP_LEASE
;
783 SMB_ASSERT(num_cap_vals
<= ARRAY_SIZE(cap_vals
));
785 if (num_cap_vals
== 0) {
790 cap_set_flag(cap
, CAP_EFFECTIVE
, num_cap_vals
, cap_vals
,
791 enable
? CAP_SET
: CAP_CLEAR
);
793 /* We never want to pass capabilities down to our children, so make
794 * sure they are not inherited.
796 cap_set_flag(cap
, CAP_INHERITABLE
, num_cap_vals
, cap_vals
, CAP_CLEAR
);
798 if (cap_set_proc(cap
) == -1) {
799 DEBUG(0, ("set_process_capability: cap_set_proc failed: %s\n",
809 #endif /* HAVE_POSIX_CAPABILITIES */
811 /****************************************************************************
812 Gain the oplock capability from the kernel if possible.
813 ****************************************************************************/
815 void set_effective_capability(enum smbd_capability capability
)
817 #if defined(HAVE_POSIX_CAPABILITIES)
818 set_process_capability(capability
, True
);
819 #endif /* HAVE_POSIX_CAPABILITIES */
822 void drop_effective_capability(enum smbd_capability capability
)
824 #if defined(HAVE_POSIX_CAPABILITIES)
825 set_process_capability(capability
, False
);
826 #endif /* HAVE_POSIX_CAPABILITIES */
829 /**************************************************************************
830 Wrapper for random().
831 ****************************************************************************/
833 long sys_random(void)
835 #if defined(HAVE_RANDOM)
836 return (long)random();
837 #elif defined(HAVE_RAND)
840 DEBUG(0,("Error - no random function available !\n"));
845 /**************************************************************************
846 Wrapper for srandom().
847 ****************************************************************************/
849 void sys_srandom(unsigned int seed
)
851 #if defined(HAVE_SRANDOM)
853 #elif defined(HAVE_SRAND)
856 DEBUG(0,("Error - no srandom function available !\n"));
862 #define NGROUPS_MAX 32 /* Guess... */
865 /**************************************************************************
866 Returns equivalent to NGROUPS_MAX - using sysconf if needed.
867 ****************************************************************************/
871 #if defined(SYSCONF_SC_NGROUPS_MAX)
872 int ret
= sysconf(_SC_NGROUPS_MAX
);
873 return (ret
== -1) ? NGROUPS_MAX
: ret
;
879 /**************************************************************************
880 Wrap setgroups and getgroups for systems that declare getgroups() as
881 returning an array of gid_t, but actuall return an array of int.
882 ****************************************************************************/
884 #if defined(HAVE_BROKEN_GETGROUPS)
886 #ifdef HAVE_BROKEN_GETGROUPS
892 static int sys_broken_getgroups(int setlen
, gid_t
*gidset
)
899 return getgroups(setlen
, &gid
);
903 * Broken case. We need to allocate a
904 * GID_T array of size setlen.
913 setlen
= groups_max();
915 if((group_list
= SMB_MALLOC_ARRAY(GID_T
, setlen
)) == NULL
) {
916 DEBUG(0,("sys_getgroups: Malloc fail.\n"));
920 if((ngroups
= getgroups(setlen
, group_list
)) < 0) {
921 int saved_errno
= errno
;
922 SAFE_FREE(group_list
);
927 for(i
= 0; i
< ngroups
; i
++)
928 gidset
[i
] = (gid_t
)group_list
[i
];
930 SAFE_FREE(group_list
);
934 static int sys_broken_setgroups(int setlen
, gid_t
*gidset
)
942 if (setlen
< 0 || setlen
> groups_max()) {
948 * Broken case. We need to allocate a
949 * GID_T array of size setlen.
952 if((group_list
= SMB_MALLOC_ARRAY(GID_T
, setlen
)) == NULL
) {
953 DEBUG(0,("sys_setgroups: Malloc fail.\n"));
957 for(i
= 0; i
< setlen
; i
++)
958 group_list
[i
] = (GID_T
) gidset
[i
];
960 if(samba_setgroups(setlen
, group_list
) != 0) {
961 int saved_errno
= errno
;
962 SAFE_FREE(group_list
);
967 SAFE_FREE(group_list
);
971 #endif /* HAVE_BROKEN_GETGROUPS */
973 /* This is a list of systems that require the first GID passed to setgroups(2)
974 * to be the effective GID. If your system is one of these, add it here.
976 #if defined (FREEBSD) || defined (DARWINOS)
977 #define USE_BSD_SETGROUPS
980 #if defined(USE_BSD_SETGROUPS)
981 /* Depending on the particular BSD implementation, the first GID that is
982 * passed to setgroups(2) will either be ignored or will set the credential's
983 * effective GID. In either case, the right thing to do is to guarantee that
984 * gidset[0] is the effective GID.
986 static int sys_bsd_setgroups(gid_t primary_gid
, int setlen
, const gid_t
*gidset
)
988 gid_t
*new_gidset
= NULL
;
992 /* setgroups(2) will fail with EINVAL if we pass too many groups. */
995 /* No group list, just make sure we are setting the efective GID. */
997 return samba_setgroups(1, &primary_gid
);
1000 /* If the primary gid is not the first array element, grow the array
1001 * and insert it at the front.
1003 if (gidset
[0] != primary_gid
) {
1004 new_gidset
= SMB_MALLOC_ARRAY(gid_t
, setlen
+ 1);
1005 if (new_gidset
== NULL
) {
1009 memcpy(new_gidset
+ 1, gidset
, (setlen
* sizeof(gid_t
)));
1010 new_gidset
[0] = primary_gid
;
1015 DEBUG(3, ("forced to truncate group list from %d to %d\n",
1020 #if defined(HAVE_BROKEN_GETGROUPS)
1021 ret
= sys_broken_setgroups(setlen
, new_gidset
? new_gidset
: gidset
);
1023 ret
= samba_setgroups(setlen
, new_gidset
? new_gidset
: gidset
);
1028 SAFE_FREE(new_gidset
);
1035 #endif /* USE_BSD_SETGROUPS */
1037 /**************************************************************************
1038 Wrapper for getgroups. Deals with broken (int) case.
1039 ****************************************************************************/
1041 int sys_getgroups(int setlen
, gid_t
*gidset
)
1043 #if defined(HAVE_BROKEN_GETGROUPS)
1044 return sys_broken_getgroups(setlen
, gidset
);
1046 return getgroups(setlen
, gidset
);
1050 /**************************************************************************
1051 Wrapper for setgroups. Deals with broken (int) case and BSD case.
1052 ****************************************************************************/
1054 int sys_setgroups(gid_t
UNUSED(primary_gid
), int setlen
, gid_t
*gidset
)
1056 #if !defined(HAVE_SETGROUPS)
1059 #endif /* HAVE_SETGROUPS */
1061 #if defined(USE_BSD_SETGROUPS)
1062 return sys_bsd_setgroups(primary_gid
, setlen
, gidset
);
1063 #elif defined(HAVE_BROKEN_GETGROUPS)
1064 return sys_broken_setgroups(setlen
, gidset
);
1066 return samba_setgroups(setlen
, gidset
);
1070 /**************************************************************************
1071 Extract a command into an arg list.
1072 ****************************************************************************/
1074 static char **extract_args(TALLOC_CTX
*mem_ctx
, const char *command
)
1083 if (!(trunc_cmd
= talloc_strdup(mem_ctx
, command
))) {
1084 DEBUG(0, ("talloc failed\n"));
1088 if(!(ptr
= strtok_r(trunc_cmd
, " \t", &saveptr
))) {
1089 TALLOC_FREE(trunc_cmd
);
1098 for( argcl
= 1; ptr
; ptr
= strtok_r(NULL
, " \t", &saveptr
))
1101 TALLOC_FREE(trunc_cmd
);
1103 if (!(argl
= talloc_array(mem_ctx
, char *, argcl
+ 1))) {
1108 * Now do the extraction.
1111 if (!(trunc_cmd
= talloc_strdup(mem_ctx
, command
))) {
1115 ptr
= strtok_r(trunc_cmd
, " \t", &saveptr
);
1118 if (!(argl
[i
++] = talloc_strdup(argl
, ptr
))) {
1122 while((ptr
= strtok_r(NULL
, " \t", &saveptr
)) != NULL
) {
1124 if (!(argl
[i
++] = talloc_strdup(argl
, ptr
))) {
1130 TALLOC_FREE(trunc_cmd
);
1134 DEBUG(0, ("talloc failed\n"));
1135 TALLOC_FREE(trunc_cmd
);
1141 /**************************************************************************
1142 Wrapper for popen. Safer as it doesn't search a path.
1143 Modified from the glibc sources.
1144 modified by tridge to return a file descriptor. We must kick our FILE* habit
1145 ****************************************************************************/
1147 typedef struct _popen_list
1151 struct _popen_list
*next
;
1154 static popen_list
*popen_chain
;
1156 int sys_popen(const char *command
)
1158 int parent_end
, child_end
;
1160 popen_list
*entry
= NULL
;
1169 if (pipe(pipe_fds
) < 0)
1172 parent_end
= pipe_fds
[0];
1173 child_end
= pipe_fds
[1];
1175 if((entry
= SMB_MALLOC_P(popen_list
)) == NULL
)
1178 ZERO_STRUCTP(entry
);
1181 * Extract the command and args into a NULL terminated array.
1184 if(!(argl
= extract_args(NULL
, command
)))
1187 entry
->child_pid
= fork();
1189 if (entry
->child_pid
== -1) {
1193 if (entry
->child_pid
== 0) {
1199 int child_std_end
= STDOUT_FILENO
;
1203 if (child_end
!= child_std_end
) {
1204 dup2 (child_end
, child_std_end
);
1209 * POSIX.2: "popen() shall ensure that any streams from previous
1210 * popen() calls that remain open in the parent process are closed
1211 * in the new child process."
1214 for (p
= popen_chain
; p
; p
= p
->next
)
1217 ret
= execv(argl
[0], argl
);
1219 DEBUG(0, ("sys_popen: ERROR executing command "
1220 "'%s': %s\n", command
, strerror(errno
)));
1232 /* Link into popen_chain. */
1233 entry
->next
= popen_chain
;
1234 popen_chain
= entry
;
1235 entry
->fd
= parent_end
;
1248 /**************************************************************************
1249 Wrapper for pclose. Modified from the glibc sources.
1250 ****************************************************************************/
1252 int sys_pclose(int fd
)
1255 popen_list
**ptr
= &popen_chain
;
1256 popen_list
*entry
= NULL
;
1260 /* Unlink from popen_chain. */
1261 for ( ; *ptr
!= NULL
; ptr
= &(*ptr
)->next
) {
1262 if ((*ptr
)->fd
== fd
) {
1264 *ptr
= (*ptr
)->next
;
1270 if (status
< 0 || close(entry
->fd
) < 0)
1274 * As Samba is catching and eating child process
1275 * exits we don't really care about the child exit
1276 * code, a -1 with errno = ECHILD will do fine for us.
1280 wait_pid
= sys_waitpid (entry
->child_pid
, &wstatus
, 0);
1281 } while (wait_pid
== -1 && errno
== EINTR
);
1290 /**************************************************************************
1291 Wrapper for Admin Logs.
1292 ****************************************************************************/
1294 void sys_adminlog(int priority
, const char *format_str
, ...)
1298 char *msgbuf
= NULL
;
1300 va_start( ap
, format_str
);
1301 ret
= vasprintf( &msgbuf
, format_str
, ap
);
1307 #if defined(HAVE_SYSLOG)
1308 syslog( priority
, "%s", msgbuf
);
1310 DEBUG(0,("%s", msgbuf
));
1315 /****************************************************************************
1316 Return the major devicenumber for UNIX extensions.
1317 ****************************************************************************/
1319 uint32
unix_dev_major(SMB_DEV_T dev
)
1321 #if defined(HAVE_DEVICE_MAJOR_FN)
1322 return (uint32
)major(dev
);
1324 return (uint32
)(dev
>> 8);
1328 /****************************************************************************
1329 Return the minor devicenumber for UNIX extensions.
1330 ****************************************************************************/
1332 uint32
unix_dev_minor(SMB_DEV_T dev
)
1334 #if defined(HAVE_DEVICE_MINOR_FN)
1335 return (uint32
)minor(dev
);
1337 return (uint32
)(dev
& 0xff);
1342 /*******************************************************************
1343 Return the number of CPUs.
1344 ********************************************************************/
1346 int sys_get_number_of_cores(void)
1350 #if defined(HAVE_SYSCONF)
1351 #if defined(_SC_NPROCESSORS_ONLN)
1352 ret
= (int)sysconf(_SC_NPROCESSORS_ONLN
);
1354 #if defined(_SC_NPROCESSORS_CONF)
1356 ret
= (int)sysconf(_SC_NPROCESSORS_CONF
);
1359 #elif defined(HAVE_SYSCTL) && defined(CTL_HW)
1361 unsigned int len
= sizeof(ret
);
1364 #if defined(HW_AVAILCPU)
1365 name
[1] = HW_AVAILCPU
;
1367 if (sysctl(name
, 2, &ret
, &len
, NULL
, 0) == -1) {
1371 #if defined(HW_NCPU)
1375 if (sysctl(nm
, 2, &count
, &len
, NULL
, 0) == -1) {