Software `/` code `/` prosody

Annotate

util-src/pposix.c @ 12181:783056b4e448 0.11 0.11.12

util.xml: Do not allow doctypes, comments or processing instructions Yes. This is as bad as it sounds. CVE pending. In Prosody itself, this only affects mod_websocket, which uses util.xml to parse the <open/> frame, thus allowing unauthenticated remote DoS using Billion Laughs. However, third-party modules using util.xml may also be affected by this. This commit installs handlers which disallow the use of doctype declarations and processing instructions without any escape hatch. It, by default, also introduces such a handler for comments, however, there is a way to enable comments nontheless. This is because util.xml is used to parse human-facing data, where comments are generally a desirable feature, and also because comments are generally harmless.

author	Jonas Schäfer <jonas@wielicki.name>
date	Mon, 10 Jan 2022 18:23:54 +0100
parent	10410:659b577f280c
child	10411:db2a06b9ff98

rev	line source
2923 b7049746bd29 Update copyright headers for 2010 Matthew Wild <mwild1@gmail.com> parents: 2830 diff changeset	1 /* Prosody IM
b7049746bd29 Update copyright headers for 2010 Matthew Wild <mwild1@gmail.com> parents: 2830 diff changeset	2 -- Copyright (C) 2008-2010 Matthew Wild
b7049746bd29 Update copyright headers for 2010 Matthew Wild <mwild1@gmail.com> parents: 2830 diff changeset	3 -- Copyright (C) 2008-2010 Waqas Hussain
864 416c812acde5 pposix: Small fix for copyright notice Matthew Wild <mwild1@gmail.com> parents: 861 diff changeset	4 -- Copyright (C) 2009 Tobias Markmann
2436 ccc71b5d2e01 util.posix: Trailing whitespace Matthew Wild <mwild1@gmail.com> parents: 2060 diff changeset	5 --
766 433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 730 diff changeset	6 -- This project is MIT/X11 licensed. Please see the
433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 730 diff changeset	7 -- COPYING file in the source package for more information.
433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 730 diff changeset	8 --
586 b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	9 */
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	10
766 433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 730 diff changeset	11 /*
433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 730 diff changeset	12 * pposix.c
433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 730 diff changeset	13 * POSIX support functions for Lua
586 b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	14 */
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	15
8012 e898c8fda986 util.pposix: Remove fallocate Kim Alvefur <zash@zash.se> parents: 8010 diff changeset	16 #define MODULE_VERSION "0.4.0"
727 78c9542de94e pposix: Add _NAME and _VERSION Matthew Wild <mwild1@gmail.com> parents: 723 diff changeset	17
7931 b619b85e01aa util.pposix, configure: Move _GNU_SOURCE macro into source files Kim Alvefur <zash@zash.se> parents: 7926 diff changeset	18
b619b85e01aa util.pposix, configure: Move _GNU_SOURCE macro into source files Kim Alvefur <zash@zash.se> parents: 7926 diff changeset	19 #if defined(__linux__)
9150 c1d5f52274cf net, pposix, signal: Check for redefined defines, fix warnings. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 9028 diff changeset	20 #ifndef _GNU_SOURCE
7931 b619b85e01aa util.pposix, configure: Move _GNU_SOURCE macro into source files Kim Alvefur <zash@zash.se> parents: 7926 diff changeset	21 #define _GNU_SOURCE
9150 c1d5f52274cf net, pposix, signal: Check for redefined defines, fix warnings. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 9028 diff changeset	22 #endif
7931 b619b85e01aa util.pposix, configure: Move _GNU_SOURCE macro into source files Kim Alvefur <zash@zash.se> parents: 7926 diff changeset	23 #else
9150 c1d5f52274cf net, pposix, signal: Check for redefined defines, fix warnings. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 9028 diff changeset	24 #ifndef _DEFAULT_SOURCE
7931 b619b85e01aa util.pposix, configure: Move _GNU_SOURCE macro into source files Kim Alvefur <zash@zash.se> parents: 7926 diff changeset	25 #define _DEFAULT_SOURCE
b619b85e01aa util.pposix, configure: Move _GNU_SOURCE macro into source files Kim Alvefur <zash@zash.se> parents: 7926 diff changeset	26 #endif
9150 c1d5f52274cf net, pposix, signal: Check for redefined defines, fix warnings. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 9028 diff changeset	27 #endif
9280 37b796cc366a util.pposix: Fix or silence a warning on OS X (#1202) Kim Alvefur <zash@zash.se> parents: 9278 diff changeset	28 #if defined(__APPLE__)
9282 778d2dbfc784 util.pposix: Allow _DARWIN_C_SOURCE to be overriden Kim Alvefur <zash@zash.se> parents: 9281 diff changeset	29 #ifndef _DARWIN_C_SOURCE
9280 37b796cc366a util.pposix: Fix or silence a warning on OS X (#1202) Kim Alvefur <zash@zash.se> parents: 9278 diff changeset	30 #define _DARWIN_C_SOURCE
37b796cc366a util.pposix: Fix or silence a warning on OS X (#1202) Kim Alvefur <zash@zash.se> parents: 9278 diff changeset	31 #endif
9282 778d2dbfc784 util.pposix: Allow _DARWIN_C_SOURCE to be overriden Kim Alvefur <zash@zash.se> parents: 9281 diff changeset	32 #endif
9150 c1d5f52274cf net, pposix, signal: Check for redefined defines, fix warnings. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 9028 diff changeset	33 #ifndef _POSIX_C_SOURCE
7931 b619b85e01aa util.pposix, configure: Move _GNU_SOURCE macro into source files Kim Alvefur <zash@zash.se> parents: 7926 diff changeset	34 #define _POSIX_C_SOURCE 200809L
9150 c1d5f52274cf net, pposix, signal: Check for redefined defines, fix warnings. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 9028 diff changeset	35 #endif
7931 b619b85e01aa util.pposix, configure: Move _GNU_SOURCE macro into source files Kim Alvefur <zash@zash.se> parents: 7926 diff changeset	36
586 b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	37 #include <stdlib.h>
2438 819ba949c7bc util.pposix: Add pposix.umask(), bump version to 0.3.2 (and do the same in mod_posix) Matthew Wild <mwild1@gmail.com> parents: 2437 diff changeset	38 #include <math.h>
586 b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	39 #include <unistd.h>
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	40 #include <libgen.h>
859 43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	41 #include <sys/resource.h>
586 b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	42 #include <sys/types.h>
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	43 #include <sys/stat.h>
3481 72d3c8029178 util.pposix: Add pposix.uname(), bump version Matthew Wild <mwild1@gmail.com> parents: 3471 diff changeset	44 #include <sys/utsname.h>
586 b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	45 #include <fcntl.h>
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	46
722 63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	47 #include <syslog.h>
804 9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	48 #include <pwd.h>
1578 5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	49 #include <grp.h>
722 63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	50
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	51 #include <string.h>
804 9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	52 #include <errno.h>
586 b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	53 #include "lua.h"
5044 4ef0dbfead53 util.pposix: Add fallocate method, backed by either posix_fallocate() or Linux fallocate() Kim Alvefur <zash@zash.se> parents: 4950 diff changeset	54 #include "lualib.h"
722 63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	55 #include "lauxlib.h"
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	56
6789 6b180e77c97a util-src/.c: Invert Lua 5.2 compat to be 5.2+ by default and a macro to support 5.1 Kim Alvefur <zash@zash.se>* parents: 6642 diff changeset	57 #if (LUA_VERSION_NUM == 501)
6b180e77c97a util-src/.c: Invert Lua 5.2 compat to be 5.2+ by default and a macro to support 5.1 Kim Alvefur <zash@zash.se>* parents: 6642 diff changeset	58 #define luaL_setfuncs(L, R, N) luaL_register(L, NULL, R)
6413 a552f4170aed util-src/.c: Add macro for compiling with Lua 5.2 Kim Alvefur <zash@zash.se>* parents: 6411 diff changeset	59 #endif
a552f4170aed util-src/.c: Add macro for compiling with Lua 5.2 Kim Alvefur <zash@zash.se>* parents: 6411 diff changeset	60
5044 4ef0dbfead53 util.pposix: Add fallocate method, backed by either posix_fallocate() or Linux fallocate() Kim Alvefur <zash@zash.se> parents: 4950 diff changeset	61 #include <fcntl.h>
7931 b619b85e01aa util.pposix, configure: Move _GNU_SOURCE macro into source files Kim Alvefur <zash@zash.se> parents: 7926 diff changeset	62 #if defined(__linux__)
5044 4ef0dbfead53 util.pposix: Add fallocate method, backed by either posix_fallocate() or Linux fallocate() Kim Alvefur <zash@zash.se> parents: 4950 diff changeset	63 #include <linux/falloc.h>
4ef0dbfead53 util.pposix: Add fallocate method, backed by either posix_fallocate() or Linux fallocate() Kim Alvefur <zash@zash.se> parents: 4950 diff changeset	64 #endif
4ef0dbfead53 util.pposix: Add fallocate method, backed by either posix_fallocate() or Linux fallocate() Kim Alvefur <zash@zash.se> parents: 4950 diff changeset	65
9277 fa6a6f921405 util.pposix: Restrict use of malloc_info to glibc Kim Alvefur <zash@zash.se> parents: 9276 diff changeset	66 #if !defined(WITHOUT_MALLINFO) && defined(__linux__) && defined(__GLIBC__)
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	67 #include <malloc.h>
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	68 #define WITH_MALLINFO
4946 2975c7008ccd util.pposix: Add meminfo() binding to memory allocation stats provided by mallinfo() [compilation tested on Ubuntu...] Matthew Wild <mwild1@gmail.com> parents: 4934 diff changeset	69 #endif
2975c7008ccd util.pposix: Add meminfo() binding to memory allocation stats provided by mallinfo() [compilation tested on Ubuntu...] Matthew Wild <mwild1@gmail.com> parents: 4934 diff changeset	70
7789 93dd90309779 util.pposix: rfork() seems to be FreeBSD only (fixes #412) Kim Alvefur <zash@zash.se> parents: 7440 diff changeset	71 #if defined(__FreeBSD__) && defined(RFPROC)
7440 5424e24cdcb1 util.pposix: Ask for shared file descriptor table using rfork() on BSD (fixes #412) Kim Alvefur <zash@zash.se>* parents: 6942 diff changeset	72 /*
7789 93dd90309779 util.pposix: rfork() seems to be FreeBSD only (fixes #412) Kim Alvefur <zash@zash.se> parents: 7440 diff changeset	73 * On FreeBSD, calling fork() is equivalent to rfork(RFPROC \| RFFDG).
7440 5424e24cdcb1 util.pposix: Ask for shared file descriptor table using rfork() on BSD (fixes #412) Kim Alvefur <zash@zash.se>* parents: 6942 diff changeset	74 *
5424e24cdcb1 util.pposix: Ask for shared file descriptor table using rfork() on BSD (fixes #412) Kim Alvefur <zash@zash.se>* parents: 6942 diff changeset	75 * RFFDG being set means that the file descriptor table is copied,
5424e24cdcb1 util.pposix: Ask for shared file descriptor table using rfork() on BSD (fixes #412) Kim Alvefur <zash@zash.se>* parents: 6942 diff changeset	76 * otherwise it's shared. We want the later, otherwise libevent gets
5424e24cdcb1 util.pposix: Ask for shared file descriptor table using rfork() on BSD (fixes #412) Kim Alvefur <zash@zash.se>* parents: 6942 diff changeset	77 * messed up.
5424e24cdcb1 util.pposix: Ask for shared file descriptor table using rfork() on BSD (fixes #412) Kim Alvefur <zash@zash.se>* parents: 6942 diff changeset	78 *
5424e24cdcb1 util.pposix: Ask for shared file descriptor table using rfork() on BSD (fixes #412) Kim Alvefur <zash@zash.se>* parents: 6942 diff changeset	79 * See issue #412
5424e24cdcb1 util.pposix: Ask for shared file descriptor table using rfork() on BSD (fixes #412) Kim Alvefur <zash@zash.se>* parents: 6942 diff changeset	80 */
5424e24cdcb1 util.pposix: Ask for shared file descriptor table using rfork() on BSD (fixes #412) Kim Alvefur <zash@zash.se>* parents: 6942 diff changeset	81 #define fork() rfork(RFPROC)
5424e24cdcb1 util.pposix: Ask for shared file descriptor table using rfork() on BSD (fixes #412) Kim Alvefur <zash@zash.se>* parents: 6942 diff changeset	82 #endif
5424e24cdcb1 util.pposix: Ask for shared file descriptor table using rfork() on BSD (fixes #412) Kim Alvefur <zash@zash.se>* parents: 6942 diff changeset	83
722 63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	84 /* Daemonization support */
586 b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	85
7889 b8d694646597 util-src/.c: Attach pointer to name instead of type Kim Alvefur <zash@zash.se> parents: 7835 diff changeset	86 static int lc_daemonize(lua_State *L) {
586 b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	87
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	88 pid_t pid;
2436 ccc71b5d2e01 util.posix: Trailing whitespace Matthew Wild <mwild1@gmail.com> parents: 2060 diff changeset	89
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	90 if(getppid() == 1) {
586 b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	91 lua_pushboolean(L, 0);
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	92 lua_pushstring(L, "already-daemonized");
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	93 return 2;
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	94 }
2436 ccc71b5d2e01 util.posix: Trailing whitespace Matthew Wild <mwild1@gmail.com> parents: 2060 diff changeset	95
586 b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	96 /* Attempt initial fork */
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	97 if((pid = fork()) < 0) {
586 b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	98 /* Forking failed */
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	99 lua_pushboolean(L, 0);
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	100 lua_pushstring(L, "fork-failed");
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	101 return 2;
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	102 } else if(pid != 0) {
586 b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	103 /* We are the parent process */
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	104 lua_pushboolean(L, 1);
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	105 lua_pushnumber(L, pid);
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	106 return 2;
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	107 }
2436 ccc71b5d2e01 util.posix: Trailing whitespace Matthew Wild <mwild1@gmail.com> parents: 2060 diff changeset	108
586 b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	109 /* and we are the child process */
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	110 if(setsid() == -1) {
586 b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	111 /* We failed to become session leader */
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	112 /* (we probably already were) */
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	113 lua_pushboolean(L, 0);
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	114 lua_pushstring(L, "setsid-failed");
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	115 return 2;
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	116 }
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	117
5176 7d0a8b255a37 util.pposix: Prevent FDs 0, 1 and 2 from being assigned to connections Kim Alvefur <zash@zash.se> parents: 5068 diff changeset	118 /* Make sure accidental use of FDs 0, 1, 2 don't cause weirdness */
9276 3a13c246b877 util.pposix: Do not attempt to assign to stdio variables [pedantic] Kim Alvefur <zash@zash.se> parents: 9152 diff changeset	119 freopen("/dev/null", "r", stdin);
3a13c246b877 util.pposix: Do not attempt to assign to stdio variables [pedantic] Kim Alvefur <zash@zash.se> parents: 9152 diff changeset	120 freopen("/dev/null", "w", stdout);
3a13c246b877 util.pposix: Do not attempt to assign to stdio variables [pedantic] Kim Alvefur <zash@zash.se> parents: 9152 diff changeset	121 freopen("/dev/null", "w", stderr);
1195 6b91a2b39680 Close std{in,out,err} when daemonizing Matthew Wild <mwild1@gmail.com> parents: 896 diff changeset	122
586 b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	123 /* Final fork, use it wisely */
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	124 if(fork()) {
586 b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	125 exit(0);
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	126 }
586 b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	127
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	128 /* Show's over, let's continue */
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	129 lua_pushboolean(L, 1);
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	130 lua_pushnil(L);
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	131 return 2;
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	132 }
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	133
722 63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	134 /* Syslog support */
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	135
7889 b8d694646597 util-src/.c: Attach pointer to name instead of type Kim Alvefur <zash@zash.se> parents: 7835 diff changeset	136 const char *const facility_strings[] = {
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	137 "auth",
1842 8337c0d4aee4 util.pposix: Compatibility with Solaris systems (thanks Filip) Matthew Wild <mwild1@gmail.com> parents: 1579 diff changeset	138 #if !(defined(sun) \|\| defined(__sun))
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	139 "authpriv",
1842 8337c0d4aee4 util.pposix: Compatibility with Solaris systems (thanks Filip) Matthew Wild <mwild1@gmail.com> parents: 1579 diff changeset	140 #endif
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	141 "cron",
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	142 "daemon",
1842 8337c0d4aee4 util.pposix: Compatibility with Solaris systems (thanks Filip) Matthew Wild <mwild1@gmail.com> parents: 1579 diff changeset	143 #if !(defined(sun) \|\| defined(__sun))
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	144 "ftp",
1842 8337c0d4aee4 util.pposix: Compatibility with Solaris systems (thanks Filip) Matthew Wild <mwild1@gmail.com> parents: 1579 diff changeset	145 #endif
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	146 "kern",
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	147 "local0",
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	148 "local1",
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	149 "local2",
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	150 "local3",
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	151 "local4",
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	152 "local5",
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	153 "local6",
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	154 "local7",
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	155 "lpr",
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	156 "mail",
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	157 "syslog",
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	158 "user",
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	159 "uucp",
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	160 NULL
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	161 };
722 63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	162 int facility_constants[] = {
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	163 LOG_AUTH,
1842 8337c0d4aee4 util.pposix: Compatibility with Solaris systems (thanks Filip) Matthew Wild <mwild1@gmail.com> parents: 1579 diff changeset	164 #if !(defined(sun) \|\| defined(__sun))
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	165 LOG_AUTHPRIV,
1842 8337c0d4aee4 util.pposix: Compatibility with Solaris systems (thanks Filip) Matthew Wild <mwild1@gmail.com> parents: 1579 diff changeset	166 #endif
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	167 LOG_CRON,
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	168 LOG_DAEMON,
1842 8337c0d4aee4 util.pposix: Compatibility with Solaris systems (thanks Filip) Matthew Wild <mwild1@gmail.com> parents: 1579 diff changeset	169 #if !(defined(sun) \|\| defined(__sun))
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	170 LOG_FTP,
1842 8337c0d4aee4 util.pposix: Compatibility with Solaris systems (thanks Filip) Matthew Wild <mwild1@gmail.com> parents: 1579 diff changeset	171 #endif
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	172 LOG_KERN,
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	173 LOG_LOCAL0,
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	174 LOG_LOCAL1,
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	175 LOG_LOCAL2,
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	176 LOG_LOCAL3,
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	177 LOG_LOCAL4,
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	178 LOG_LOCAL5,
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	179 LOG_LOCAL6,
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	180 LOG_LOCAL7,
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	181 LOG_LPR,
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	182 LOG_MAIL,
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	183 LOG_NEWS,
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	184 LOG_SYSLOG,
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	185 LOG_USER,
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	186 LOG_UUCP,
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	187 -1
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	188 };
722 63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	189
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	190 /* "
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	191 The parameter ident in the call of openlog() is probably stored as-is.
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	192 Thus, if the string it points to is changed, syslog() may start
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	193 prepending the changed string, and if the string it points to ceases to
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	194 exist, the results are undefined. Most portable is to use a string
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	195 constant.
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	196 " -- syslog manpage
2436 ccc71b5d2e01 util.posix: Trailing whitespace Matthew Wild <mwild1@gmail.com> parents: 2060 diff changeset	197 */
7889 b8d694646597 util-src/.c: Attach pointer to name instead of type Kim Alvefur <zash@zash.se> parents: 7835 diff changeset	198 char *syslog_ident = NULL;
722 63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	199
7889 b8d694646597 util-src/.c: Attach pointer to name instead of type Kim Alvefur <zash@zash.se> parents: 7835 diff changeset	200 int lc_syslog_open(lua_State *L) {
796 63f56696c66c util.pposix: Fix incompatible pointer type compiler warnings Matthew Wild <mwild1@gmail.com> parents: 766 diff changeset	201 int facility = luaL_checkoption(L, 2, "daemon", facility_strings);
722 63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	202 facility = facility_constants[facility];
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	203
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	204 luaL_checkstring(L, 1);
2436 ccc71b5d2e01 util.posix: Trailing whitespace Matthew Wild <mwild1@gmail.com> parents: 2060 diff changeset	205
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	206 if(syslog_ident) {
722 63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	207 free(syslog_ident);
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	208 }
2436 ccc71b5d2e01 util.posix: Trailing whitespace Matthew Wild <mwild1@gmail.com> parents: 2060 diff changeset	209
722 63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	210 syslog_ident = strdup(lua_tostring(L, 1));
2436 ccc71b5d2e01 util.posix: Trailing whitespace Matthew Wild <mwild1@gmail.com> parents: 2060 diff changeset	211
722 63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	212 openlog(syslog_ident, LOG_PID, facility);
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	213 return 0;
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	214 }
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	215
7889 b8d694646597 util-src/.c: Attach pointer to name instead of type Kim Alvefur <zash@zash.se> parents: 7835 diff changeset	216 const char *const level_strings[] = {
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	217 "debug",
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	218 "info",
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	219 "notice",
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	220 "warn",
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	221 "error",
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	222 NULL
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	223 };
722 63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	224 int level_constants[] = {
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	225 LOG_DEBUG,
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	226 LOG_INFO,
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	227 LOG_NOTICE,
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	228 LOG_WARNING,
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	229 LOG_CRIT,
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	230 -1
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	231 };
7889 b8d694646597 util-src/.c: Attach pointer to name instead of type Kim Alvefur <zash@zash.se> parents: 7835 diff changeset	232 int lc_syslog_log(lua_State *L) {
5449 35a271b4b920 util.pposix: syslog(): Support an optional source parameter (producing messages of the form '<source>: <message>' Matthew Wild <mwild1@gmail.com> parents: 5359 diff changeset	233 int level = level_constants[luaL_checkoption(L, 1, "notice", level_strings)];
722 63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	234
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	235 if(lua_gettop(L) == 3) {
5449 35a271b4b920 util.pposix: syslog(): Support an optional source parameter (producing messages of the form '<source>: <message>' Matthew Wild <mwild1@gmail.com> parents: 5359 diff changeset	236 syslog(level, "%s: %s", luaL_checkstring(L, 2), luaL_checkstring(L, 3));
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	237 } else {
5449 35a271b4b920 util.pposix: syslog(): Support an optional source parameter (producing messages of the form '<source>: <message>' Matthew Wild <mwild1@gmail.com> parents: 5359 diff changeset	238 syslog(level, "%s", lua_tostring(L, 2));
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	239 }
722 63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	240
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	241 return 0;
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	242 }
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	243
7889 b8d694646597 util-src/.c: Attach pointer to name instead of type Kim Alvefur <zash@zash.se> parents: 7835 diff changeset	244 int lc_syslog_close(lua_State *L) {
9151 fee3933ff346 pposix, signal: Ignore unused arguments. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 9150 diff changeset	245 (void)L;
722 63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	246 closelog();
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	247
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	248 if(syslog_ident) {
722 63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	249 free(syslog_ident);
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	250 syslog_ident = NULL;
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	251 }
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	252
722 63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	253 return 0;
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	254 }
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	255
7889 b8d694646597 util-src/.c: Attach pointer to name instead of type Kim Alvefur <zash@zash.se> parents: 7835 diff changeset	256 int lc_syslog_setmask(lua_State *L) {
796 63f56696c66c util.pposix: Fix incompatible pointer type compiler warnings Matthew Wild <mwild1@gmail.com> parents: 766 diff changeset	257 int level_idx = luaL_checkoption(L, 1, "notice", level_strings);
729 f62ef65d5c01 pposix: Add syslog_setmask (use config: minimum_log_level = 'warn' etc.) Matthew Wild <mwild1@gmail.com> parents: 727 diff changeset	258 int mask = 0;
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	259
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	260 do {
729 f62ef65d5c01 pposix: Add syslog_setmask (use config: minimum_log_level = 'warn' etc.) Matthew Wild <mwild1@gmail.com> parents: 727 diff changeset	261 mask \|= LOG_MASK(level_constants[level_idx]);
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	262 } while(++level_idx <= 4);
729 f62ef65d5c01 pposix: Add syslog_setmask (use config: minimum_log_level = 'warn' etc.) Matthew Wild <mwild1@gmail.com> parents: 727 diff changeset	263
f62ef65d5c01 pposix: Add syslog_setmask (use config: minimum_log_level = 'warn' etc.) Matthew Wild <mwild1@gmail.com> parents: 727 diff changeset	264 setlogmask(mask);
f62ef65d5c01 pposix: Add syslog_setmask (use config: minimum_log_level = 'warn' etc.) Matthew Wild <mwild1@gmail.com> parents: 727 diff changeset	265 return 0;
f62ef65d5c01 pposix: Add syslog_setmask (use config: minimum_log_level = 'warn' etc.) Matthew Wild <mwild1@gmail.com> parents: 727 diff changeset	266 }
f62ef65d5c01 pposix: Add syslog_setmask (use config: minimum_log_level = 'warn' etc.) Matthew Wild <mwild1@gmail.com> parents: 727 diff changeset	267
723 c1e7d280c174 mod_posix/pposix: Fix reporting of incorrect PID on daemonization. Log correct PID, and support writing a pidfile (pidfile = '/path/to/prosody.pid' in config). Added getpid() to pposix and improved function names. Matthew Wild <mwild1@gmail.com> parents: 722 diff changeset	268 /* getpid */
c1e7d280c174 mod_posix/pposix: Fix reporting of incorrect PID on daemonization. Log correct PID, and support writing a pidfile (pidfile = '/path/to/prosody.pid' in config). Added getpid() to pposix and improved function names. Matthew Wild <mwild1@gmail.com> parents: 722 diff changeset	269
7889 b8d694646597 util-src/.c: Attach pointer to name instead of type Kim Alvefur <zash@zash.se> parents: 7835 diff changeset	270 int lc_getpid(lua_State *L) {
723 c1e7d280c174 mod_posix/pposix: Fix reporting of incorrect PID on daemonization. Log correct PID, and support writing a pidfile (pidfile = '/path/to/prosody.pid' in config). Added getpid() to pposix and improved function names. Matthew Wild <mwild1@gmail.com> parents: 722 diff changeset	271 lua_pushinteger(L, getpid());
c1e7d280c174 mod_posix/pposix: Fix reporting of incorrect PID on daemonization. Log correct PID, and support writing a pidfile (pidfile = '/path/to/prosody.pid' in config). Added getpid() to pposix and improved function names. Matthew Wild <mwild1@gmail.com> parents: 722 diff changeset	272 return 1;
c1e7d280c174 mod_posix/pposix: Fix reporting of incorrect PID on daemonization. Log correct PID, and support writing a pidfile (pidfile = '/path/to/prosody.pid' in config). Added getpid() to pposix and improved function names. Matthew Wild <mwild1@gmail.com> parents: 722 diff changeset	273 }
c1e7d280c174 mod_posix/pposix: Fix reporting of incorrect PID on daemonization. Log correct PID, and support writing a pidfile (pidfile = '/path/to/prosody.pid' in config). Added getpid() to pposix and improved function names. Matthew Wild <mwild1@gmail.com> parents: 722 diff changeset	274
804 9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	275 /* UID/GID functions */
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	276
7889 b8d694646597 util-src/.c: Attach pointer to name instead of type Kim Alvefur <zash@zash.se> parents: 7835 diff changeset	277 int lc_getuid(lua_State *L) {
804 9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	278 lua_pushinteger(L, getuid());
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	279 return 1;
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	280 }
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	281
7889 b8d694646597 util-src/.c: Attach pointer to name instead of type Kim Alvefur <zash@zash.se> parents: 7835 diff changeset	282 int lc_getgid(lua_State *L) {
804 9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	283 lua_pushinteger(L, getgid());
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	284 return 1;
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	285 }
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	286
7889 b8d694646597 util-src/.c: Attach pointer to name instead of type Kim Alvefur <zash@zash.se> parents: 7835 diff changeset	287 int lc_setuid(lua_State *L) {
804 9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	288 int uid = -1;
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	289
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	290 if(lua_gettop(L) < 1) {
804 9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	291 return 0;
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	292 }
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	293
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	294 if(!lua_isnumber(L, 1) && lua_tostring(L, 1)) {
804 9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	295 /* Passed UID is actually a string, so look up the UID */
7889 b8d694646597 util-src/.c: Attach pointer to name instead of type Kim Alvefur <zash@zash.se> parents: 7835 diff changeset	296 struct passwd *p;
804 9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	297 p = getpwnam(lua_tostring(L, 1));
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	298
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	299 if(!p) {
804 9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	300 lua_pushboolean(L, 0);
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	301 lua_pushstring(L, "no-such-user");
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	302 return 2;
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	303 }
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	304
804 9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	305 uid = p->pw_uid;
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	306 } else {
804 9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	307 uid = lua_tonumber(L, 1);
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	308 }
2436 ccc71b5d2e01 util.posix: Trailing whitespace Matthew Wild <mwild1@gmail.com> parents: 2060 diff changeset	309
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	310 if(uid > -1) {
804 9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	311 /* Ok, attempt setuid */
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	312 errno = 0;
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	313
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	314 if(setuid(uid)) {
804 9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	315 /* Fail */
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	316 lua_pushboolean(L, 0);
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	317
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	318 switch(errno) {
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	319 case EINVAL:
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	320 lua_pushstring(L, "invalid-uid");
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	321 break;
7889 b8d694646597 util-src/.c: Attach pointer to name instead of type Kim Alvefur <zash@zash.se> parents: 7835 diff changeset	322
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	323 case EPERM:
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	324 lua_pushstring(L, "permission-denied");
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	325 break;
7889 b8d694646597 util-src/.c: Attach pointer to name instead of type Kim Alvefur <zash@zash.se> parents: 7835 diff changeset	326
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	327 default:
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	328 lua_pushstring(L, "unknown-error");
804 9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	329 }
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	330
804 9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	331 return 2;
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	332 } else {
804 9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	333 /* Success! */
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	334 lua_pushboolean(L, 1);
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	335 return 1;
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	336 }
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	337 }
2436 ccc71b5d2e01 util.posix: Trailing whitespace Matthew Wild <mwild1@gmail.com> parents: 2060 diff changeset	338
804 9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	339 /* Seems we couldn't find a valid UID to switch to */
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	340 lua_pushboolean(L, 0);
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	341 lua_pushstring(L, "invalid-uid");
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	342 return 2;
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	343 }
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	344
7889 b8d694646597 util-src/.c: Attach pointer to name instead of type Kim Alvefur <zash@zash.se> parents: 7835 diff changeset	345 int lc_setgid(lua_State *L) {
1578 5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	346 int gid = -1;
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	347
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	348 if(lua_gettop(L) < 1) {
1578 5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	349 return 0;
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	350 }
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	351
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	352 if(!lua_isnumber(L, 1) && lua_tostring(L, 1)) {
1578 5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	353 /* Passed GID is actually a string, so look up the GID */
7889 b8d694646597 util-src/.c: Attach pointer to name instead of type Kim Alvefur <zash@zash.se> parents: 7835 diff changeset	354 struct group *g;
1578 5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	355 g = getgrnam(lua_tostring(L, 1));
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	356
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	357 if(!g) {
1578 5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	358 lua_pushboolean(L, 0);
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	359 lua_pushstring(L, "no-such-group");
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	360 return 2;
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	361 }
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	362
1578 5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	363 gid = g->gr_gid;
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	364 } else {
1578 5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	365 gid = lua_tonumber(L, 1);
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	366 }
2436 ccc71b5d2e01 util.posix: Trailing whitespace Matthew Wild <mwild1@gmail.com> parents: 2060 diff changeset	367
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	368 if(gid > -1) {
1578 5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	369 /* Ok, attempt setgid */
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	370 errno = 0;
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	371
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	372 if(setgid(gid)) {
1578 5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	373 /* Fail */
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	374 lua_pushboolean(L, 0);
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	375
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	376 switch(errno) {
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	377 case EINVAL:
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	378 lua_pushstring(L, "invalid-gid");
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	379 break;
7889 b8d694646597 util-src/.c: Attach pointer to name instead of type Kim Alvefur <zash@zash.se> parents: 7835 diff changeset	380
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	381 case EPERM:
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	382 lua_pushstring(L, "permission-denied");
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	383 break;
7889 b8d694646597 util-src/.c: Attach pointer to name instead of type Kim Alvefur <zash@zash.se> parents: 7835 diff changeset	384
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	385 default:
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	386 lua_pushstring(L, "unknown-error");
1578 5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	387 }
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	388
1578 5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	389 return 2;
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	390 } else {
1578 5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	391 /* Success! */
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	392 lua_pushboolean(L, 1);
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	393 return 1;
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	394 }
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	395 }
2436 ccc71b5d2e01 util.posix: Trailing whitespace Matthew Wild <mwild1@gmail.com> parents: 2060 diff changeset	396
1578 5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	397 /* Seems we couldn't find a valid GID to switch to */
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	398 lua_pushboolean(L, 0);
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	399 lua_pushstring(L, "invalid-gid");
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	400 return 2;
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	401 }
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	402
7889 b8d694646597 util-src/.c: Attach pointer to name instead of type Kim Alvefur <zash@zash.se> parents: 7835 diff changeset	403 int lc_initgroups(lua_State *L) {
3471 482275e38224 util.pposix, prosodyctl, mod_posix: Add initgroups() function, and bump module version. prosodyctl inits groups with the groups of prosody_user. (thanks dbb) Matthew Wild <mwild1@gmail.com> parents: 2925 diff changeset	404 int ret;
482275e38224 util.pposix, prosodyctl, mod_posix: Add initgroups() function, and bump module version. prosodyctl inits groups with the groups of prosody_user. (thanks dbb) Matthew Wild <mwild1@gmail.com> parents: 2925 diff changeset	405 gid_t gid;
7889 b8d694646597 util-src/.c: Attach pointer to name instead of type Kim Alvefur <zash@zash.se> parents: 7835 diff changeset	406 struct passwd *p;
3471 482275e38224 util.pposix, prosodyctl, mod_posix: Add initgroups() function, and bump module version. prosodyctl inits groups with the groups of prosody_user. (thanks dbb) Matthew Wild <mwild1@gmail.com> parents: 2925 diff changeset	407
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	408 if(!lua_isstring(L, 1)) {
3471 482275e38224 util.pposix, prosodyctl, mod_posix: Add initgroups() function, and bump module version. prosodyctl inits groups with the groups of prosody_user. (thanks dbb) Matthew Wild <mwild1@gmail.com> parents: 2925 diff changeset	409 lua_pushnil(L);
482275e38224 util.pposix, prosodyctl, mod_posix: Add initgroups() function, and bump module version. prosodyctl inits groups with the groups of prosody_user. (thanks dbb) Matthew Wild <mwild1@gmail.com> parents: 2925 diff changeset	410 lua_pushstring(L, "invalid-username");
482275e38224 util.pposix, prosodyctl, mod_posix: Add initgroups() function, and bump module version. prosodyctl inits groups with the groups of prosody_user. (thanks dbb) Matthew Wild <mwild1@gmail.com> parents: 2925 diff changeset	411 return 2;
482275e38224 util.pposix, prosodyctl, mod_posix: Add initgroups() function, and bump module version. prosodyctl inits groups with the groups of prosody_user. (thanks dbb) Matthew Wild <mwild1@gmail.com> parents: 2925 diff changeset	412 }
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	413
3471 482275e38224 util.pposix, prosodyctl, mod_posix: Add initgroups() function, and bump module version. prosodyctl inits groups with the groups of prosody_user. (thanks dbb) Matthew Wild <mwild1@gmail.com> parents: 2925 diff changeset	414 p = getpwnam(lua_tostring(L, 1));
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	415
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	416 if(!p) {
3471 482275e38224 util.pposix, prosodyctl, mod_posix: Add initgroups() function, and bump module version. prosodyctl inits groups with the groups of prosody_user. (thanks dbb) Matthew Wild <mwild1@gmail.com> parents: 2925 diff changeset	417 lua_pushnil(L);
482275e38224 util.pposix, prosodyctl, mod_posix: Add initgroups() function, and bump module version. prosodyctl inits groups with the groups of prosody_user. (thanks dbb) Matthew Wild <mwild1@gmail.com> parents: 2925 diff changeset	418 lua_pushstring(L, "no-such-user");
482275e38224 util.pposix, prosodyctl, mod_posix: Add initgroups() function, and bump module version. prosodyctl inits groups with the groups of prosody_user. (thanks dbb) Matthew Wild <mwild1@gmail.com> parents: 2925 diff changeset	419 return 2;
482275e38224 util.pposix, prosodyctl, mod_posix: Add initgroups() function, and bump module version. prosodyctl inits groups with the groups of prosody_user. (thanks dbb) Matthew Wild <mwild1@gmail.com> parents: 2925 diff changeset	420 }
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	421
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	422 if(lua_gettop(L) < 2) {
3471 482275e38224 util.pposix, prosodyctl, mod_posix: Add initgroups() function, and bump module version. prosodyctl inits groups with the groups of prosody_user. (thanks dbb) Matthew Wild <mwild1@gmail.com> parents: 2925 diff changeset	423 lua_pushnil(L);
482275e38224 util.pposix, prosodyctl, mod_posix: Add initgroups() function, and bump module version. prosodyctl inits groups with the groups of prosody_user. (thanks dbb) Matthew Wild <mwild1@gmail.com> parents: 2925 diff changeset	424 }
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	425
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	426 switch(lua_type(L, 2)) {
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	427 case LUA_TNIL:
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	428 gid = p->pw_gid;
4415 0091db139229 util.pposix: Don't trust errno for success. Thanks Quince Kim Alvefur <zash@zash.se> parents: 3966 diff changeset	429 break;
7889 b8d694646597 util-src/.c: Attach pointer to name instead of type Kim Alvefur <zash@zash.se> parents: 7835 diff changeset	430
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	431 case LUA_TNUMBER:
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	432 gid = lua_tointeger(L, 2);
4415 0091db139229 util.pposix: Don't trust errno for success. Thanks Quince Kim Alvefur <zash@zash.se> parents: 3966 diff changeset	433 break;
7889 b8d694646597 util-src/.c: Attach pointer to name instead of type Kim Alvefur <zash@zash.se> parents: 7835 diff changeset	434
4415 0091db139229 util.pposix: Don't trust errno for success. Thanks Quince Kim Alvefur <zash@zash.se> parents: 3966 diff changeset	435 default:
0091db139229 util.pposix: Don't trust errno for success. Thanks Quince Kim Alvefur <zash@zash.se> parents: 3966 diff changeset	436 lua_pushnil(L);
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	437 lua_pushstring(L, "invalid-gid");
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	438 return 2;
4415 0091db139229 util.pposix: Don't trust errno for success. Thanks Quince Kim Alvefur <zash@zash.se> parents: 3966 diff changeset	439 }
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	440
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	441 ret = initgroups(lua_tostring(L, 1), gid);
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	442
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	443 if(ret) {
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	444 switch(errno) {
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	445 case ENOMEM:
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	446 lua_pushnil(L);
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	447 lua_pushstring(L, "no-memory");
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	448 break;
7889 b8d694646597 util-src/.c: Attach pointer to name instead of type Kim Alvefur <zash@zash.se> parents: 7835 diff changeset	449
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	450 case EPERM:
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	451 lua_pushnil(L);
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	452 lua_pushstring(L, "permission-denied");
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	453 break;
7889 b8d694646597 util-src/.c: Attach pointer to name instead of type Kim Alvefur <zash@zash.se> parents: 7835 diff changeset	454
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	455 default:
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	456 lua_pushnil(L);
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	457 lua_pushstring(L, "unknown-error");
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	458 }
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	459 } else {
3471 482275e38224 util.pposix, prosodyctl, mod_posix: Add initgroups() function, and bump module version. prosodyctl inits groups with the groups of prosody_user. (thanks dbb) Matthew Wild <mwild1@gmail.com> parents: 2925 diff changeset	460 lua_pushboolean(L, 1);
482275e38224 util.pposix, prosodyctl, mod_posix: Add initgroups() function, and bump module version. prosodyctl inits groups with the groups of prosody_user. (thanks dbb) Matthew Wild <mwild1@gmail.com> parents: 2925 diff changeset	461 lua_pushnil(L);
482275e38224 util.pposix, prosodyctl, mod_posix: Add initgroups() function, and bump module version. prosodyctl inits groups with the groups of prosody_user. (thanks dbb) Matthew Wild <mwild1@gmail.com> parents: 2925 diff changeset	462 }
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	463
3471 482275e38224 util.pposix, prosodyctl, mod_posix: Add initgroups() function, and bump module version. prosodyctl inits groups with the groups of prosody_user. (thanks dbb) Matthew Wild <mwild1@gmail.com> parents: 2925 diff changeset	464 return 2;
482275e38224 util.pposix, prosodyctl, mod_posix: Add initgroups() function, and bump module version. prosodyctl inits groups with the groups of prosody_user. (thanks dbb) Matthew Wild <mwild1@gmail.com> parents: 2925 diff changeset	465 }
482275e38224 util.pposix, prosodyctl, mod_posix: Add initgroups() function, and bump module version. prosodyctl inits groups with the groups of prosody_user. (thanks dbb) Matthew Wild <mwild1@gmail.com> parents: 2925 diff changeset	466
7889 b8d694646597 util-src/.c: Attach pointer to name instead of type Kim Alvefur <zash@zash.se> parents: 7835 diff changeset	467 int lc_umask(lua_State *L) {
2438 819ba949c7bc util.pposix: Add pposix.umask(), bump version to 0.3.2 (and do the same in mod_posix) Matthew Wild <mwild1@gmail.com> parents: 2437 diff changeset	468 char old_mode_string[7];
819ba949c7bc util.pposix: Add pposix.umask(), bump version to 0.3.2 (and do the same in mod_posix) Matthew Wild <mwild1@gmail.com> parents: 2437 diff changeset	469 mode_t old_mode = umask(strtoul(luaL_checkstring(L, 1), NULL, 8));
819ba949c7bc util.pposix: Add pposix.umask(), bump version to 0.3.2 (and do the same in mod_posix) Matthew Wild <mwild1@gmail.com> parents: 2437 diff changeset	470
819ba949c7bc util.pposix: Add pposix.umask(), bump version to 0.3.2 (and do the same in mod_posix) Matthew Wild <mwild1@gmail.com> parents: 2437 diff changeset	471 snprintf(old_mode_string, sizeof(old_mode_string), "%03o", old_mode);
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	472 old_mode_string[sizeof(old_mode_string) - 1] = 0;
2438 819ba949c7bc util.pposix: Add pposix.umask(), bump version to 0.3.2 (and do the same in mod_posix) Matthew Wild <mwild1@gmail.com> parents: 2437 diff changeset	473 lua_pushstring(L, old_mode_string);
819ba949c7bc util.pposix: Add pposix.umask(), bump version to 0.3.2 (and do the same in mod_posix) Matthew Wild <mwild1@gmail.com> parents: 2437 diff changeset	474
819ba949c7bc util.pposix: Add pposix.umask(), bump version to 0.3.2 (and do the same in mod_posix) Matthew Wild <mwild1@gmail.com> parents: 2437 diff changeset	475 return 1;
819ba949c7bc util.pposix: Add pposix.umask(), bump version to 0.3.2 (and do the same in mod_posix) Matthew Wild <mwild1@gmail.com> parents: 2437 diff changeset	476 }
819ba949c7bc util.pposix: Add pposix.umask(), bump version to 0.3.2 (and do the same in mod_posix) Matthew Wild <mwild1@gmail.com> parents: 2437 diff changeset	477
7889 b8d694646597 util-src/.c: Attach pointer to name instead of type Kim Alvefur <zash@zash.se> parents: 7835 diff changeset	478 int lc_mkdir(lua_State *L) {
2443 b335ae55af77 util.pposix: Add mkdir(path) Matthew Wild <mwild1@gmail.com> parents: 2441 diff changeset	479 int ret = mkdir(luaL_checkstring(L, 1), S_IRUSR \| S_IWUSR \| S_IXUSR
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	480 \| S_IRGRP \| S_IWGRP \| S_IXGRP
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	481 \| S_IROTH \| S_IXOTH); /* mode 775 */
2443 b335ae55af77 util.pposix: Add mkdir(path) Matthew Wild <mwild1@gmail.com> parents: 2441 diff changeset	482
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	483 lua_pushboolean(L, ret == 0);
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	484
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	485 if(ret) {
2443 b335ae55af77 util.pposix: Add mkdir(path) Matthew Wild <mwild1@gmail.com> parents: 2441 diff changeset	486 lua_pushstring(L, strerror(errno));
b335ae55af77 util.pposix: Add mkdir(path) Matthew Wild <mwild1@gmail.com> parents: 2441 diff changeset	487 return 2;
b335ae55af77 util.pposix: Add mkdir(path) Matthew Wild <mwild1@gmail.com> parents: 2441 diff changeset	488 }
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	489
2443 b335ae55af77 util.pposix: Add mkdir(path) Matthew Wild <mwild1@gmail.com> parents: 2441 diff changeset	490 return 1;
b335ae55af77 util.pposix: Add mkdir(path) Matthew Wild <mwild1@gmail.com> parents: 2441 diff changeset	491 }
b335ae55af77 util.pposix: Add mkdir(path) Matthew Wild <mwild1@gmail.com> parents: 2441 diff changeset	492
859 43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	493 /* Like POSIX's setrlimit()/getrlimit() API functions.
2436 ccc71b5d2e01 util.posix: Trailing whitespace Matthew Wild <mwild1@gmail.com> parents: 2060 diff changeset	494 *
859 43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	495 * Syntax:
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	496 * pposix.setrlimit( resource, soft limit, hard limit)
2436 ccc71b5d2e01 util.posix: Trailing whitespace Matthew Wild <mwild1@gmail.com> parents: 2060 diff changeset	497 *
859 43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	498 * Any negative limit will be replace with the current limit by an additional call of getrlimit().
2436 ccc71b5d2e01 util.posix: Trailing whitespace Matthew Wild <mwild1@gmail.com> parents: 2060 diff changeset	499 *
859 43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	500 * Example usage:
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	501 * pposix.setrlimit("NOFILE", 1000, 2000)
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	502 */
7889 b8d694646597 util-src/.c: Attach pointer to name instead of type Kim Alvefur <zash@zash.se> parents: 7835 diff changeset	503 int string2resource(const char *s) {
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	504 if(!strcmp(s, "CORE")) {
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	505 return RLIMIT_CORE;
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	506 }
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	507
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	508 if(!strcmp(s, "CPU")) {
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	509 return RLIMIT_CPU;
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	510 }
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	511
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	512 if(!strcmp(s, "DATA")) {
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	513 return RLIMIT_DATA;
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	514 }
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	515
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	516 if(!strcmp(s, "FSIZE")) {
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	517 return RLIMIT_FSIZE;
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	518 }
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	519
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	520 if(!strcmp(s, "NOFILE")) {
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	521 return RLIMIT_NOFILE;
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	522 }
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	523
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	524 if(!strcmp(s, "STACK")) {
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	525 return RLIMIT_STACK;
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	526 }
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	527
9278 8f9e18d4fe50 util.pposix: Fix building on OS X (#1202) Kim Alvefur <zash@zash.se> parents: 8012 diff changeset	528 #if !(defined(sun) \|\| defined(__sun) \|\| defined(__APPLE__))
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	529
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	530 if(!strcmp(s, "MEMLOCK")) {
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	531 return RLIMIT_MEMLOCK;
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	532 }
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	533
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	534 if(!strcmp(s, "NPROC")) {
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	535 return RLIMIT_NPROC;
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	536 }
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	537
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	538 if(!strcmp(s, "RSS")) {
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	539 return RLIMIT_RSS;
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	540 }
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	541
1842 8337c0d4aee4 util.pposix: Compatibility with Solaris systems (thanks Filip) Matthew Wild <mwild1@gmail.com> parents: 1579 diff changeset	542 #endif
5359 43517e649c53 util.pposix: Allow fetching RLIMIT_NICE when available Matthew Wild <mwild1@gmail.com> parents: 5176 diff changeset	543 #ifdef RLIMIT_NICE
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	544
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	545 if(!strcmp(s, "NICE")) {
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	546 return RLIMIT_NICE;
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	547 }
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	548
5359 43517e649c53 util.pposix: Allow fetching RLIMIT_NICE when available Matthew Wild <mwild1@gmail.com> parents: 5176 diff changeset	549 #endif
859 43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	550 return -1;
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	551 }
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	552
7966 30309fd01d76 util.pposix: Use correct type for limits [-Wconstant-conversion] Kim Alvefur <zash@zash.se> parents: 7965 diff changeset	553 rlim_t arg_to_rlimit(lua_State *L, int idx, rlim_t current) {
5719 84025249fc04 util.pposix: Correctly handle 'unlimited' limits (RLIM_INFINITY), by returning and accepting the string 'unlimited' in get/setrlimit() Matthew Wild <mwild1@gmail.com> parents: 5451 diff changeset	554 switch(lua_type(L, idx)) {
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	555 case LUA_TSTRING:
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	556
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	557 if(strcmp(lua_tostring(L, idx), "unlimited") == 0) {
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	558 return RLIM_INFINITY;
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	559 }
9152 bad9e8b43f50 pposix: Generate an error when a passed string isn’t "unlimited". Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 9151 diff changeset	560 return luaL_argerror(L, idx, "unexpected type");
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	561
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	562 case LUA_TNUMBER:
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	563 return lua_tointeger(L, idx);
7889 b8d694646597 util-src/.c: Attach pointer to name instead of type Kim Alvefur <zash@zash.se> parents: 7835 diff changeset	564
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	565 case LUA_TNONE:
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	566 case LUA_TNIL:
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	567 return current;
7889 b8d694646597 util-src/.c: Attach pointer to name instead of type Kim Alvefur <zash@zash.se> parents: 7835 diff changeset	568
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	569 default:
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	570 return luaL_argerror(L, idx, "unexpected type");
5719 84025249fc04 util.pposix: Correctly handle 'unlimited' limits (RLIM_INFINITY), by returning and accepting the string 'unlimited' in get/setrlimit() Matthew Wild <mwild1@gmail.com> parents: 5451 diff changeset	571 }
84025249fc04 util.pposix: Correctly handle 'unlimited' limits (RLIM_INFINITY), by returning and accepting the string 'unlimited' in get/setrlimit() Matthew Wild <mwild1@gmail.com> parents: 5451 diff changeset	572 }
84025249fc04 util.pposix: Correctly handle 'unlimited' limits (RLIM_INFINITY), by returning and accepting the string 'unlimited' in get/setrlimit() Matthew Wild <mwild1@gmail.com> parents: 5451 diff changeset	573
7889 b8d694646597 util-src/.c: Attach pointer to name instead of type Kim Alvefur <zash@zash.se> parents: 7835 diff changeset	574 int lc_setrlimit(lua_State *L) {
5719 84025249fc04 util.pposix: Correctly handle 'unlimited' limits (RLIM_INFINITY), by returning and accepting the string 'unlimited' in get/setrlimit() Matthew Wild <mwild1@gmail.com> parents: 5451 diff changeset	575 struct rlimit lim;
859 43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	576 int arguments = lua_gettop(L);
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	577 int rid = -1;
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	578
859 43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	579 if(arguments < 1 \|\| arguments > 3) {
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	580 lua_pushboolean(L, 0);
865 2dce34e9182d pposix: Standardize error messages Matthew Wild <mwild1@gmail.com> parents: 864 diff changeset	581 lua_pushstring(L, "incorrect-arguments");
5717 bf98912a4f5b util.pposix: setrlimit(): Add missing return on error when an incorrect number of arguments are passed Matthew Wild <mwild1@gmail.com> parents: 5451 diff changeset	582 return 2;
859 43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	583 }
2436 ccc71b5d2e01 util.posix: Trailing whitespace Matthew Wild <mwild1@gmail.com> parents: 2060 diff changeset	584
5719 84025249fc04 util.pposix: Correctly handle 'unlimited' limits (RLIM_INFINITY), by returning and accepting the string 'unlimited' in get/setrlimit() Matthew Wild <mwild1@gmail.com> parents: 5451 diff changeset	585 rid = string2resource(luaL_checkstring(L, 1));
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	586
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	587 if(rid == -1) {
859 43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	588 lua_pushboolean(L, 0);
865 2dce34e9182d pposix: Standardize error messages Matthew Wild <mwild1@gmail.com> parents: 864 diff changeset	589 lua_pushstring(L, "invalid-resource");
859 43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	590 return 2;
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	591 }
2436 ccc71b5d2e01 util.posix: Trailing whitespace Matthew Wild <mwild1@gmail.com> parents: 2060 diff changeset	592
5719 84025249fc04 util.pposix: Correctly handle 'unlimited' limits (RLIM_INFINITY), by returning and accepting the string 'unlimited' in get/setrlimit() Matthew Wild <mwild1@gmail.com> parents: 5451 diff changeset	593 /* Fetch current values to use as defaults */
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	594 if(getrlimit(rid, &lim)) {
5719 84025249fc04 util.pposix: Correctly handle 'unlimited' limits (RLIM_INFINITY), by returning and accepting the string 'unlimited' in get/setrlimit() Matthew Wild <mwild1@gmail.com> parents: 5451 diff changeset	595 lua_pushboolean(L, 0);
84025249fc04 util.pposix: Correctly handle 'unlimited' limits (RLIM_INFINITY), by returning and accepting the string 'unlimited' in get/setrlimit() Matthew Wild <mwild1@gmail.com> parents: 5451 diff changeset	596 lua_pushstring(L, "getrlimit-failed");
84025249fc04 util.pposix: Correctly handle 'unlimited' limits (RLIM_INFINITY), by returning and accepting the string 'unlimited' in get/setrlimit() Matthew Wild <mwild1@gmail.com> parents: 5451 diff changeset	597 return 2;
84025249fc04 util.pposix: Correctly handle 'unlimited' limits (RLIM_INFINITY), by returning and accepting the string 'unlimited' in get/setrlimit() Matthew Wild <mwild1@gmail.com> parents: 5451 diff changeset	598 }
2436 ccc71b5d2e01 util.posix: Trailing whitespace Matthew Wild <mwild1@gmail.com> parents: 2060 diff changeset	599
5719 84025249fc04 util.pposix: Correctly handle 'unlimited' limits (RLIM_INFINITY), by returning and accepting the string 'unlimited' in get/setrlimit() Matthew Wild <mwild1@gmail.com> parents: 5451 diff changeset	600 lim.rlim_cur = arg_to_rlimit(L, 2, lim.rlim_cur);
84025249fc04 util.pposix: Correctly handle 'unlimited' limits (RLIM_INFINITY), by returning and accepting the string 'unlimited' in get/setrlimit() Matthew Wild <mwild1@gmail.com> parents: 5451 diff changeset	601 lim.rlim_max = arg_to_rlimit(L, 3, lim.rlim_max);
2436 ccc71b5d2e01 util.posix: Trailing whitespace Matthew Wild <mwild1@gmail.com> parents: 2060 diff changeset	602
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	603 if(setrlimit(rid, &lim)) {
859 43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	604 lua_pushboolean(L, 0);
5719 84025249fc04 util.pposix: Correctly handle 'unlimited' limits (RLIM_INFINITY), by returning and accepting the string 'unlimited' in get/setrlimit() Matthew Wild <mwild1@gmail.com> parents: 5451 diff changeset	605 lua_pushstring(L, "setrlimit-failed");
859 43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	606 return 2;
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	607 }
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	608
859 43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	609 lua_pushboolean(L, 1);
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	610 return 1;
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	611 }
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	612
7889 b8d694646597 util-src/.c: Attach pointer to name instead of type Kim Alvefur <zash@zash.se> parents: 7835 diff changeset	613 int lc_getrlimit(lua_State *L) {
860 048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	614 int arguments = lua_gettop(L);
7889 b8d694646597 util-src/.c: Attach pointer to name instead of type Kim Alvefur <zash@zash.se> parents: 7835 diff changeset	615 const char *resource = NULL;
860 048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	616 int rid = -1;
861 2a5373897128 Make the code actually build. Tobias Markmann <tm@ayena.de> parents: 860 diff changeset	617 struct rlimit lim;
2436 ccc71b5d2e01 util.posix: Trailing whitespace Matthew Wild <mwild1@gmail.com> parents: 2060 diff changeset	618
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	619 if(arguments != 1) {
860 048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	620 lua_pushboolean(L, 0);
865 2dce34e9182d pposix: Standardize error messages Matthew Wild <mwild1@gmail.com> parents: 864 diff changeset	621 lua_pushstring(L, "invalid-arguments");
860 048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	622 return 2;
048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	623 }
2436 ccc71b5d2e01 util.posix: Trailing whitespace Matthew Wild <mwild1@gmail.com> parents: 2060 diff changeset	624
860 048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	625 resource = luaL_checkstring(L, 1);
048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	626 rid = string2resource(resource);
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	627
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	628 if(rid != -1) {
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	629 if(getrlimit(rid, &lim)) {
860 048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	630 lua_pushboolean(L, 0);
865 2dce34e9182d pposix: Standardize error messages Matthew Wild <mwild1@gmail.com> parents: 864 diff changeset	631 lua_pushstring(L, "getrlimit-failed.");
860 048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	632 return 2;
048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	633 }
048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	634 } else {
7919 251bf68922d9 util.pposix: Fix typo in comment Kim Alvefur <zash@zash.se> parents: 7889 diff changeset	635 /* Unsupported resource. Sorry I'm pretty limited by POSIX standard. */
860 048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	636 lua_pushboolean(L, 0);
865 2dce34e9182d pposix: Standardize error messages Matthew Wild <mwild1@gmail.com> parents: 864 diff changeset	637 lua_pushstring(L, "invalid-resource");
860 048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	638 return 2;
048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	639 }
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	640
860 048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	641 lua_pushboolean(L, 1);
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	642
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	643 if(lim.rlim_cur == RLIM_INFINITY) {
5719 84025249fc04 util.pposix: Correctly handle 'unlimited' limits (RLIM_INFINITY), by returning and accepting the string 'unlimited' in get/setrlimit() Matthew Wild <mwild1@gmail.com> parents: 5451 diff changeset	644 lua_pushstring(L, "unlimited");
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	645 } else {
5719 84025249fc04 util.pposix: Correctly handle 'unlimited' limits (RLIM_INFINITY), by returning and accepting the string 'unlimited' in get/setrlimit() Matthew Wild <mwild1@gmail.com> parents: 5451 diff changeset	646 lua_pushnumber(L, lim.rlim_cur);
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	647 }
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	648
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	649 if(lim.rlim_max == RLIM_INFINITY) {
5719 84025249fc04 util.pposix: Correctly handle 'unlimited' limits (RLIM_INFINITY), by returning and accepting the string 'unlimited' in get/setrlimit() Matthew Wild <mwild1@gmail.com> parents: 5451 diff changeset	650 lua_pushstring(L, "unlimited");
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	651 } else {
5719 84025249fc04 util.pposix: Correctly handle 'unlimited' limits (RLIM_INFINITY), by returning and accepting the string 'unlimited' in get/setrlimit() Matthew Wild <mwild1@gmail.com> parents: 5451 diff changeset	652 lua_pushnumber(L, lim.rlim_max);
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	653 }
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	654
860 048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	655 return 3;
859 43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	656 }
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	657
7889 b8d694646597 util-src/.c: Attach pointer to name instead of type Kim Alvefur <zash@zash.se> parents: 7835 diff changeset	658 int lc_abort(lua_State *L) {
9151 fee3933ff346 pposix, signal: Ignore unused arguments. Emmanuel Gil Peyrot <linkmauve@linkmauve.fr> parents: 9150 diff changeset	659 (void)L;
2060 b23295b5428a util.pposix: Add abort() function Matthew Wild <mwild1@gmail.com> parents: 1842 diff changeset	660 abort();
2830 1df57426263a util.pposix: Fix return type of lc_abort to shush compiler warning Matthew Wild <mwild1@gmail.com> parents: 2060 diff changeset	661 return 0;
2060 b23295b5428a util.pposix: Add abort() function Matthew Wild <mwild1@gmail.com> parents: 1842 diff changeset	662 }
b23295b5428a util.pposix: Add abort() function Matthew Wild <mwild1@gmail.com> parents: 1842 diff changeset	663
7889 b8d694646597 util-src/.c: Attach pointer to name instead of type Kim Alvefur <zash@zash.se> parents: 7835 diff changeset	664 int lc_uname(lua_State *L) {
3481 72d3c8029178 util.pposix: Add pposix.uname(), bump version Matthew Wild <mwild1@gmail.com> parents: 3471 diff changeset	665 struct utsname uname_info;
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	666
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	667 if(uname(&uname_info) != 0) {
3482 e1a4f7b15caf util.pposix: uname(): Fix to push nil,err in case of error Matthew Wild <mwild1@gmail.com> parents: 3481 diff changeset	668 lua_pushnil(L);
3481 72d3c8029178 util.pposix: Add pposix.uname(), bump version Matthew Wild <mwild1@gmail.com> parents: 3471 diff changeset	669 lua_pushstring(L, strerror(errno));
72d3c8029178 util.pposix: Add pposix.uname(), bump version Matthew Wild <mwild1@gmail.com> parents: 3471 diff changeset	670 return 2;
72d3c8029178 util.pposix: Add pposix.uname(), bump version Matthew Wild <mwild1@gmail.com> parents: 3471 diff changeset	671 }
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	672
7969 1c6a07606309 util-src: Specify size of various tables to be allocated Kim Alvefur <zash@zash.se> parents: 7966 diff changeset	673 lua_createtable(L, 0, 6);
3481 72d3c8029178 util.pposix: Add pposix.uname(), bump version Matthew Wild <mwild1@gmail.com> parents: 3471 diff changeset	674 lua_pushstring(L, uname_info.sysname);
72d3c8029178 util.pposix: Add pposix.uname(), bump version Matthew Wild <mwild1@gmail.com> parents: 3471 diff changeset	675 lua_setfield(L, -2, "sysname");
72d3c8029178 util.pposix: Add pposix.uname(), bump version Matthew Wild <mwild1@gmail.com> parents: 3471 diff changeset	676 lua_pushstring(L, uname_info.nodename);
72d3c8029178 util.pposix: Add pposix.uname(), bump version Matthew Wild <mwild1@gmail.com> parents: 3471 diff changeset	677 lua_setfield(L, -2, "nodename");
72d3c8029178 util.pposix: Add pposix.uname(), bump version Matthew Wild <mwild1@gmail.com> parents: 3471 diff changeset	678 lua_pushstring(L, uname_info.release);
72d3c8029178 util.pposix: Add pposix.uname(), bump version Matthew Wild <mwild1@gmail.com> parents: 3471 diff changeset	679 lua_setfield(L, -2, "release");
72d3c8029178 util.pposix: Add pposix.uname(), bump version Matthew Wild <mwild1@gmail.com> parents: 3471 diff changeset	680 lua_pushstring(L, uname_info.version);
72d3c8029178 util.pposix: Add pposix.uname(), bump version Matthew Wild <mwild1@gmail.com> parents: 3471 diff changeset	681 lua_setfield(L, -2, "version");
72d3c8029178 util.pposix: Add pposix.uname(), bump version Matthew Wild <mwild1@gmail.com> parents: 3471 diff changeset	682 lua_pushstring(L, uname_info.machine);
72d3c8029178 util.pposix: Add pposix.uname(), bump version Matthew Wild <mwild1@gmail.com> parents: 3471 diff changeset	683 lua_setfield(L, -2, "machine");
7931 b619b85e01aa util.pposix, configure: Move _GNU_SOURCE macro into source files Kim Alvefur <zash@zash.se> parents: 7926 diff changeset	684 #ifdef __USE_GNU
6942 f12deb882148 util.pposix: Expose the uname GNU extension field 'domainname' Kim Alvefur <zash@zash.se> parents: 6789 diff changeset	685 lua_pushstring(L, uname_info.domainname);
f12deb882148 util.pposix: Expose the uname GNU extension field 'domainname' Kim Alvefur <zash@zash.se> parents: 6789 diff changeset	686 lua_setfield(L, -2, "domainname");
f12deb882148 util.pposix: Expose the uname GNU extension field 'domainname' Kim Alvefur <zash@zash.se> parents: 6789 diff changeset	687 #endif
3481 72d3c8029178 util.pposix: Add pposix.uname(), bump version Matthew Wild <mwild1@gmail.com> parents: 3471 diff changeset	688 return 1;
72d3c8029178 util.pposix: Add pposix.uname(), bump version Matthew Wild <mwild1@gmail.com> parents: 3471 diff changeset	689 }
72d3c8029178 util.pposix: Add pposix.uname(), bump version Matthew Wild <mwild1@gmail.com> parents: 3471 diff changeset	690
7889 b8d694646597 util-src/.c: Attach pointer to name instead of type Kim Alvefur <zash@zash.se> parents: 7835 diff changeset	691 int lc_setenv(lua_State *L) {
b8d694646597 util-src/.c: Attach pointer to name instead of type Kim Alvefur <zash@zash.se> parents: 7835 diff changeset	692 const char *var = luaL_checkstring(L, 1);
b8d694646597 util-src/.c: Attach pointer to name instead of type Kim Alvefur <zash@zash.se> parents: 7835 diff changeset	693 const char *value;
4934 5a6a85719b7b util.pposix: Add setenv() Kim Alvefur <zash@zash.se> parents: 4415 diff changeset	694
5a6a85719b7b util.pposix: Add setenv() Kim Alvefur <zash@zash.se> parents: 4415 diff changeset	695 /* If the second argument is nil or nothing, unset the var */
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	696 if(lua_isnoneornil(L, 2)) {
8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	697 if(unsetenv(var) != 0) {
4934 5a6a85719b7b util.pposix: Add setenv() Kim Alvefur <zash@zash.se> parents: 4415 diff changeset	698 lua_pushnil(L);
5a6a85719b7b util.pposix: Add setenv() Kim Alvefur <zash@zash.se> parents: 4415 diff changeset	699 lua_pushstring(L, strerror(errno));
5a6a85719b7b util.pposix: Add setenv() Kim Alvefur <zash@zash.se> parents: 4415 diff changeset	700 return 2;
5a6a85719b7b util.pposix: Add setenv() Kim Alvefur <zash@zash.se> parents: 4415 diff changeset	701 }
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	702
4934 5a6a85719b7b util.pposix: Add setenv() Kim Alvefur <zash@zash.se> parents: 4415 diff changeset	703 lua_pushboolean(L, 1);
5a6a85719b7b util.pposix: Add setenv() Kim Alvefur <zash@zash.se> parents: 4415 diff changeset	704 return 1;
5a6a85719b7b util.pposix: Add setenv() Kim Alvefur <zash@zash.se> parents: 4415 diff changeset	705 }
5a6a85719b7b util.pposix: Add setenv() Kim Alvefur <zash@zash.se> parents: 4415 diff changeset	706
5a6a85719b7b util.pposix: Add setenv() Kim Alvefur <zash@zash.se> parents: 4415 diff changeset	707 value = luaL_checkstring(L, 2);
5a6a85719b7b util.pposix: Add setenv() Kim Alvefur <zash@zash.se> parents: 4415 diff changeset	708
6615 8e4572a642cb util-src/.c: astyle --indent=tab --brackets=attach --indent-switches --break-blocks --pad-oper --unpad-paren --add-brackets --align-pointer=type --lineend=linux Kim Alvefur <zash@zash.se>* parents: 6413 diff changeset	709 if(setenv(var, value, 1) != 0) {
4934 5a6a85719b7b util.pposix: Add setenv() Kim Alvefur <zash@zash.se> parents: 4415 diff changeset	710 lua_pushnil(L);
5a6a85719b7b util.pposix: Add setenv() Kim Alvefur <zash@zash.se> parents: 4415 diff changeset	711 lua_pushstring(L, strerror(errno));
5a6a85719b7b util.pposix: Add setenv() Kim Alvefur <zash@zash.se> parents: 4415 diff changeset	712 return 2;
5a6a85719b7b util.pposix: Add setenv() Kim Alvefur <zash@zash.se> parents: 4415 diff changeset	713 }
5a6a85719b7b util.pposix: Add setenv() Kim Alvefur <zash@zash.se> parents: 4415 diff changeset	714
5a6a85719b7b util.pposix: Add setenv() Kim Alvefur <zash@zash.se> parents: 4415 diff changeset	715 lua_pushboolean(L, 1);
5a6a85719b7b util.pposix: Add setenv() Kim Alvefur <zash@zash.se> parents: 4415 diff changeset	716 return 1;
5a6a85719b7b util.pposix: Add setenv() Kim Alvefur <zash@zash.se> parents: 4415 diff changeset	717 }
5a6a85719b7b util.pposix: Add setenv() Kim Alvefur <zash@zash.se> parents: 4415 diff changeset	718
4946 2975c7008ccd util.pposix: Add meminfo() binding to memory allocation stats provided by mallinfo() [compilation tested on Ubuntu...] Matthew Wild <mwild1@gmail.com> parents: 4934 diff changeset	719 #ifdef WITH_MALLINFO
7889 b8d694646597 util-src/.c: Attach pointer to name instead of type Kim Alvefur <zash@zash.se> parents: 7835 diff changeset	720 int lc_meminfo(lua_State *L) {
4946 2975c7008ccd util.pposix: Add meminfo() binding to memory allocation stats provided by mallinfo() [compilation tested on Ubuntu...] Matthew Wild <mwild1@gmail.com> parents: 4934 diff changeset	721 struct mallinfo info = mallinfo();
7969 1c6a07606309 util-src: Specify size of various tables to be allocated Kim Alvefur <zash@zash.se> parents: 7966 diff changeset	722 lua_createtable(L, 0, 5);
4950 02e5e9fa37b8 util.pposix: Add comments to mallinfo fields we use, so I don't forget tomorrow what they mean Matthew Wild <mwild1@gmail.com> parents: 4946 diff changeset	723 /* This is the total size of memory allocated with sbrk by malloc, in bytes. */
10410 659b577f280c util.pposix: Avoid overflow of malloc info at 2GB (fixes #1445 until 4GB) Kim Alvefur <zash@zash.se> parents: 9282 diff changeset	724 lua_pushinteger(L, (unsigned)info.arena);
4946 2975c7008ccd util.pposix: Add meminfo() binding to memory allocation stats provided by mallinfo() [compilation tested on Ubuntu...] Matthew Wild <mwild1@gmail.com> parents: 4934 diff changeset	725 lua_setfield(L, -2, "allocated");
4950 02e5e9fa37b8 util.pposix: Add comments to mallinfo fields we use, so I don't forget tomorrow what they mean Matthew Wild <mwild1@gmail.com> parents: 4946 diff changeset	726 /* This is the total size of memory allocated with mmap, in bytes. */
10410 659b577f280c util.pposix: Avoid overflow of malloc info at 2GB (fixes #1445 until 4GB) Kim Alvefur <zash@zash.se> parents: 9282 diff changeset	727 lua_pushinteger(L, (unsigned)info.hblkhd);
4946 2975c7008ccd util.pposix: Add meminfo() binding to memory allocation stats provided by mallinfo() [compilation tested on Ubuntu...] Matthew Wild <mwild1@gmail.com> parents: 4934 diff changeset	728 lua_setfield(L, -2, "allocated_mmap");
4950 02e5e9fa37b8 util.pposix: Add comments to mallinfo fields we use, so I don't forget tomorrow what they mean Matthew Wild <mwild1@gmail.com> parents: 4946 diff changeset	729 /* This is the total size of memory occupied by chunks handed out by malloc. */
10410 659b577f280c util.pposix: Avoid overflow of malloc info at 2GB (fixes #1445 until 4GB) Kim Alvefur <zash@zash.se> parents: 9282 diff changeset	730 lua_pushinteger(L, (unsigned)info.uordblks);
4946 2975c7008ccd util.pposix: Add meminfo() binding to memory allocation stats provided by mallinfo() [compilation tested on Ubuntu...] Matthew Wild <mwild1@gmail.com> parents: 4934 diff changeset	731 lua_setfield(L, -2, "used");
4950 02e5e9fa37b8 util.pposix: Add comments to mallinfo fields we use, so I don't forget tomorrow what they mean Matthew Wild <mwild1@gmail.com> parents: 4946 diff changeset	732 /* This is the total size of memory occupied by free (not in use) chunks. */
10410 659b577f280c util.pposix: Avoid overflow of malloc info at 2GB (fixes #1445 until 4GB) Kim Alvefur <zash@zash.se> parents: 9282 diff changeset	733 lua_pushinteger(L, (unsigned)info.fordblks);
4946 2975c7008ccd util.pposix: Add meminfo() binding to memory allocation stats provided by mallinfo() [compilation tested on Ubuntu...] Matthew Wild <mwild1@gmail.com> parents: 4934 diff changeset	734 lua_setfield(L, -2, "unused");
4950 02e5e9fa37b8 util.pposix: Add comments to mallinfo fields we use, so I don't forget tomorrow what they mean Matthew Wild <mwild1@gmail.com> parents: 4946 diff changeset	735 /* This is the size of the top-most releasable chunk that normally borders the
02e5e9fa37b8 util.pposix: Add comments to mallinfo fields we use, so I don't forget tomorrow what they mean Matthew Wild <mwild1@gmail.com> parents: 4946 diff changeset	736 end of the heap (i.e., the high end of the virtual address space's data segment). */
10410 659b577f280c util.pposix: Avoid overflow of malloc info at 2GB (fixes #1445 until 4GB) Kim Alvefur <zash@zash.se> parents: 9282 diff changeset	737 lua_pushinteger(L, (unsigned)info.keepcost);
4946 2975c7008ccd util.pposix: Add meminfo() binding to memory allocation stats provided by mallinfo() [compilation tested on Ubuntu...] Matthew Wild <mwild1@gmail.com> parents: 4934 diff changeset	738 lua_setfield(L, -2, "returnable");
2975c7008ccd util.pposix: Add meminfo() binding to memory allocation stats provided by mallinfo() [compilation tested on Ubuntu...] Matthew Wild <mwild1@gmail.com> parents: 4934 diff changeset	739 return 1;
2975c7008ccd util.pposix: Add meminfo() binding to memory allocation stats provided by mallinfo() [compilation tested on Ubuntu...] Matthew Wild <mwild1@gmail.com> parents: 4934 diff changeset	740 }
2975c7008ccd util.pposix: Add meminfo() binding to memory allocation stats provided by mallinfo() [compilation tested on Ubuntu...] Matthew Wild <mwild1@gmail.com> parents: 4934 diff changeset	741 #endif
2975c7008ccd util.pposix: Add meminfo() binding to memory allocation stats provided by mallinfo() [compilation tested on Ubuntu...] Matthew Wild <mwild1@gmail.com> parents: 4934 diff changeset	742
8010 49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	743 /*
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	744 * Append some data to a file handle
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	745 * Attempt to allocate space first
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	746 * Truncate to original size on failure
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	747 */
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	748 int lc_atomic_append(lua_State *L) {
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	749 int err;
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	750 size_t len;
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	751
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	752 FILE f = (FILE **) luaL_checkudata(L, 1, LUA_FILEHANDLE);
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	753 const char *data = luaL_checklstring(L, 2, &len);
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	754
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	755 off_t offset = ftell(f);
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	756
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	757 #if defined(__linux__)
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	758 /* Try to allocate space without changing the file size. */
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	759 if((err = fallocate(fileno(f), FALLOC_FL_KEEP_SIZE, offset, len))) {
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	760 if(errno != 0) {
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	761 /* Some old versions of Linux apparently use the return value instead of errno */
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	762 err = errno;
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	763 }
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	764 switch(err) {
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	765 case ENOSYS: /* Kernel doesn't implement fallocate */
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	766 case EOPNOTSUPP: /* Filesystem doesn't support it */
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	767 /* Ignore and proceed to try to write */
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	768 break;
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	769
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	770 case ENOSPC: /* No space left */
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	771 default: /* Other issues */
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	772 lua_pushnil(L);
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	773 lua_pushstring(L, strerror(err));
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	774 lua_pushinteger(L, err);
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	775 return 3;
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	776 }
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	777 }
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	778 #endif
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	779
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	780 if(fwrite(data, sizeof(char), len, f) == len) {
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	781 if(fflush(f) == 0) {
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	782 lua_pushboolean(L, 1); /* Great success! */
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	783 return 1;
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	784 } else {
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	785 err = errno;
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	786 }
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	787 } else {
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	788 err = ferror(f);
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	789 }
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	790
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	791 fseek(f, offset, SEEK_SET);
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	792
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	793 /* Cut partially written data */
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	794 if(ftruncate(fileno(f), offset)) {
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	795 /* The file is now most likely corrupted, throw hard error */
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	796 return luaL_error(L, "atomic_append() failed in ftruncate(): %s", strerror(errno));
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	797 }
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	798
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	799 lua_pushnil(L);
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	800 lua_pushstring(L, strerror(err));
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	801 lua_pushinteger(L, err);
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	802 return 3;
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	803 }
49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	804
723 c1e7d280c174 mod_posix/pposix: Fix reporting of incorrect PID on daemonization. Log correct PID, and support writing a pidfile (pidfile = '/path/to/prosody.pid' in config). Added getpid() to pposix and improved function names. Matthew Wild <mwild1@gmail.com> parents: 722 diff changeset	805 /* Register functions */
c1e7d280c174 mod_posix/pposix: Fix reporting of incorrect PID on daemonization. Log correct PID, and support writing a pidfile (pidfile = '/path/to/prosody.pid' in config). Added getpid() to pposix and improved function names. Matthew Wild <mwild1@gmail.com> parents: 722 diff changeset	806
7889 b8d694646597 util-src/.c: Attach pointer to name instead of type Kim Alvefur <zash@zash.se> parents: 7835 diff changeset	807 int luaopen_util_pposix(lua_State *L) {
7818 54669df178c2 util-src: Make C modules assert that the Lua runtime matches what it was compiled for Kim Alvefur <zash@zash.se> parents: 7789 diff changeset	808 #if (LUA_VERSION_NUM > 501)
54669df178c2 util-src: Make C modules assert that the Lua runtime matches what it was compiled for Kim Alvefur <zash@zash.se> parents: 7789 diff changeset	809 luaL_checkversion(L);
54669df178c2 util-src: Make C modules assert that the Lua runtime matches what it was compiled for Kim Alvefur <zash@zash.se> parents: 7789 diff changeset	810 #endif
2441 d72078946a16 util.pposix: Replace the unwieldy module table generation with luaL_register() call - side effect - it now sets the pposix global to the module table Matthew Wild <mwild1@gmail.com> parents: 2438 diff changeset	811 luaL_Reg exports[] = {
d72078946a16 util.pposix: Replace the unwieldy module table generation with luaL_register() call - side effect - it now sets the pposix global to the module table Matthew Wild <mwild1@gmail.com> parents: 2438 diff changeset	812 { "abort", lc_abort },
722 63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	813
2441 d72078946a16 util.pposix: Replace the unwieldy module table generation with luaL_register() call - side effect - it now sets the pposix global to the module table Matthew Wild <mwild1@gmail.com> parents: 2438 diff changeset	814 { "daemonize", lc_daemonize },
722 63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	815
2441 d72078946a16 util.pposix: Replace the unwieldy module table generation with luaL_register() call - side effect - it now sets the pposix global to the module table Matthew Wild <mwild1@gmail.com> parents: 2438 diff changeset	816 { "syslog_open", lc_syslog_open },
d72078946a16 util.pposix: Replace the unwieldy module table generation with luaL_register() call - side effect - it now sets the pposix global to the module table Matthew Wild <mwild1@gmail.com> parents: 2438 diff changeset	817 { "syslog_close", lc_syslog_close },
d72078946a16 util.pposix: Replace the unwieldy module table generation with luaL_register() call - side effect - it now sets the pposix global to the module table Matthew Wild <mwild1@gmail.com> parents: 2438 diff changeset	818 { "syslog_log", lc_syslog_log },
d72078946a16 util.pposix: Replace the unwieldy module table generation with luaL_register() call - side effect - it now sets the pposix global to the module table Matthew Wild <mwild1@gmail.com> parents: 2438 diff changeset	819 { "syslog_setminlevel", lc_syslog_setmask },
722 63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	820
2441 d72078946a16 util.pposix: Replace the unwieldy module table generation with luaL_register() call - side effect - it now sets the pposix global to the module table Matthew Wild <mwild1@gmail.com> parents: 2438 diff changeset	821 { "getpid", lc_getpid },
d72078946a16 util.pposix: Replace the unwieldy module table generation with luaL_register() call - side effect - it now sets the pposix global to the module table Matthew Wild <mwild1@gmail.com> parents: 2438 diff changeset	822 { "getuid", lc_getuid },
d72078946a16 util.pposix: Replace the unwieldy module table generation with luaL_register() call - side effect - it now sets the pposix global to the module table Matthew Wild <mwild1@gmail.com> parents: 2438 diff changeset	823 { "getgid", lc_getgid },
722 63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	824
2441 d72078946a16 util.pposix: Replace the unwieldy module table generation with luaL_register() call - side effect - it now sets the pposix global to the module table Matthew Wild <mwild1@gmail.com> parents: 2438 diff changeset	825 { "setuid", lc_setuid },
d72078946a16 util.pposix: Replace the unwieldy module table generation with luaL_register() call - side effect - it now sets the pposix global to the module table Matthew Wild <mwild1@gmail.com> parents: 2438 diff changeset	826 { "setgid", lc_setgid },
3471 482275e38224 util.pposix, prosodyctl, mod_posix: Add initgroups() function, and bump module version. prosodyctl inits groups with the groups of prosody_user. (thanks dbb) Matthew Wild <mwild1@gmail.com> parents: 2925 diff changeset	827 { "initgroups", lc_initgroups },
729 f62ef65d5c01 pposix: Add syslog_setmask (use config: minimum_log_level = 'warn' etc.) Matthew Wild <mwild1@gmail.com> parents: 727 diff changeset	828
2441 d72078946a16 util.pposix: Replace the unwieldy module table generation with luaL_register() call - side effect - it now sets the pposix global to the module table Matthew Wild <mwild1@gmail.com> parents: 2438 diff changeset	829 { "umask", lc_umask },
723 c1e7d280c174 mod_posix/pposix: Fix reporting of incorrect PID on daemonization. Log correct PID, and support writing a pidfile (pidfile = '/path/to/prosody.pid' in config). Added getpid() to pposix and improved function names. Matthew Wild <mwild1@gmail.com> parents: 722 diff changeset	830
2443 b335ae55af77 util.pposix: Add mkdir(path) Matthew Wild <mwild1@gmail.com> parents: 2441 diff changeset	831 { "mkdir", lc_mkdir },
804 9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	832
2441 d72078946a16 util.pposix: Replace the unwieldy module table generation with luaL_register() call - side effect - it now sets the pposix global to the module table Matthew Wild <mwild1@gmail.com> parents: 2438 diff changeset	833 { "setrlimit", lc_setrlimit },
d72078946a16 util.pposix: Replace the unwieldy module table generation with luaL_register() call - side effect - it now sets the pposix global to the module table Matthew Wild <mwild1@gmail.com> parents: 2438 diff changeset	834 { "getrlimit", lc_getrlimit },
2436 ccc71b5d2e01 util.posix: Trailing whitespace Matthew Wild <mwild1@gmail.com> parents: 2060 diff changeset	835
3481 72d3c8029178 util.pposix: Add pposix.uname(), bump version Matthew Wild <mwild1@gmail.com> parents: 3471 diff changeset	836 { "uname", lc_uname },
72d3c8029178 util.pposix: Add pposix.uname(), bump version Matthew Wild <mwild1@gmail.com> parents: 3471 diff changeset	837
4934 5a6a85719b7b util.pposix: Add setenv() Kim Alvefur <zash@zash.se> parents: 4415 diff changeset	838 { "setenv", lc_setenv },
5a6a85719b7b util.pposix: Add setenv() Kim Alvefur <zash@zash.se> parents: 4415 diff changeset	839
4946 2975c7008ccd util.pposix: Add meminfo() binding to memory allocation stats provided by mallinfo() [compilation tested on Ubuntu...] Matthew Wild <mwild1@gmail.com> parents: 4934 diff changeset	840 #ifdef WITH_MALLINFO
2975c7008ccd util.pposix: Add meminfo() binding to memory allocation stats provided by mallinfo() [compilation tested on Ubuntu...] Matthew Wild <mwild1@gmail.com> parents: 4934 diff changeset	841 { "meminfo", lc_meminfo },
2975c7008ccd util.pposix: Add meminfo() binding to memory allocation stats provided by mallinfo() [compilation tested on Ubuntu...] Matthew Wild <mwild1@gmail.com> parents: 4934 diff changeset	842 #endif
2975c7008ccd util.pposix: Add meminfo() binding to memory allocation stats provided by mallinfo() [compilation tested on Ubuntu...] Matthew Wild <mwild1@gmail.com> parents: 4934 diff changeset	843
8010 49feb0da29e1 util.pposix: Add function for atomically appending data to a file Kim Alvefur <zash@zash.se> parents: 7969 diff changeset	844 { "atomic_append", lc_atomic_append },
5044 4ef0dbfead53 util.pposix: Add fallocate method, backed by either posix_fallocate() or Linux fallocate() Kim Alvefur <zash@zash.se> parents: 4950 diff changeset	845
2441 d72078946a16 util.pposix: Replace the unwieldy module table generation with luaL_register() call - side effect - it now sets the pposix global to the module table Matthew Wild <mwild1@gmail.com> parents: 2438 diff changeset	846 { NULL, NULL }
d72078946a16 util.pposix: Replace the unwieldy module table generation with luaL_register() call - side effect - it now sets the pposix global to the module table Matthew Wild <mwild1@gmail.com> parents: 2438 diff changeset	847 };
2438 819ba949c7bc util.pposix: Add pposix.umask(), bump version to 0.3.2 (and do the same in mod_posix) Matthew Wild <mwild1@gmail.com> parents: 2437 diff changeset	848
6411 6c8f6364bc48 util-src/.c: Don't create globals when loaded Kim Alvefur <zash@zash.se>* parents: 6156 diff changeset	849 lua_newtable(L);
6789 6b180e77c97a util-src/.c: Invert Lua 5.2 compat to be 5.2+ by default and a macro to support 5.1 Kim Alvefur <zash@zash.se>* parents: 6642 diff changeset	850 luaL_setfuncs(L, exports, 0);
804 9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	851
7926 b009c27818c6 util.pposix: Expose ENOENT constant (usually 2, but you never know) Kim Alvefur <zash@zash.se> parents: 7919 diff changeset	852 #ifdef ENOENT
b009c27818c6 util.pposix: Expose ENOENT constant (usually 2, but you never know) Kim Alvefur <zash@zash.se> parents: 7919 diff changeset	853 lua_pushinteger(L, ENOENT);
b009c27818c6 util.pposix: Expose ENOENT constant (usually 2, but you never know) Kim Alvefur <zash@zash.se> parents: 7919 diff changeset	854 lua_setfield(L, -2, "ENOENT");
b009c27818c6 util.pposix: Expose ENOENT constant (usually 2, but you never know) Kim Alvefur <zash@zash.se> parents: 7919 diff changeset	855 #endif
b009c27818c6 util.pposix: Expose ENOENT constant (usually 2, but you never know) Kim Alvefur <zash@zash.se> parents: 7919 diff changeset	856
727 78c9542de94e pposix: Add _NAME and _VERSION Matthew Wild <mwild1@gmail.com> parents: 723 diff changeset	857 lua_pushliteral(L, "pposix");
78c9542de94e pposix: Add _NAME and _VERSION Matthew Wild <mwild1@gmail.com> parents: 723 diff changeset	858 lua_setfield(L, -2, "_NAME");
78c9542de94e pposix: Add _NAME and _VERSION Matthew Wild <mwild1@gmail.com> parents: 723 diff changeset	859
78c9542de94e pposix: Add _NAME and _VERSION Matthew Wild <mwild1@gmail.com> parents: 723 diff changeset	860 lua_pushliteral(L, MODULE_VERSION);
78c9542de94e pposix: Add _NAME and _VERSION Matthew Wild <mwild1@gmail.com> parents: 723 diff changeset	861 lua_setfield(L, -2, "_VERSION");
2436 ccc71b5d2e01 util.posix: Trailing whitespace Matthew Wild <mwild1@gmail.com> parents: 2060 diff changeset	862
586 b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	863 return 1;
3966 e71c19dac1c7 util.pposix: Remove extraneous semicolon Matthew Wild <mwild1@gmail.com> parents: 3482 diff changeset	864 }

prosody

0.11.12

util-src/pposix.c

Software / code / prosody

Annotate

util-src/pposix.c @ 12181:783056b4e448 0.11 0.11.12

Software `/` code `/` prosody