Software `/` code `/` prosody

Annotate

util-src/pposix.c @ 1931:f203330eb82e

util.stanza: Make xml_escape publicly accessible

author	Matthew Wild <mwild1@gmail.com>
date	Tue, 06 Oct 2009 18:05:31 +0100
parent	1842:8337c0d4aee4
child	2060:b23295b5428a

rev	line source
896 2c0b9e3c11c3 0.3->0.4 Matthew Wild <mwild1@gmail.com> parents: 865 diff changeset	1 /* Prosody IM v0.4
766 433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 730 diff changeset	2 -- Copyright (C) 2008-2009 Matthew Wild
433a5226267f Licensing/version updates for some files (forgot to commit, doh...) Matthew Wild <mwild1@gmail.com> parents: 730 diff changeset	3 -- Copyright (C) 2008-2009 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
586 b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: 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
1579 95698f021c5d pposix, mod_posix: Bump pposix version number Matthew Wild <mwild1@gmail.com> parents: 1578 diff changeset	16 #define MODULE_VERSION "0.3.1"
727 78c9542de94e pposix: Add _NAME and _VERSION Matthew Wild <mwild1@gmail.com> parents: 723 diff changeset	17
586 b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	18 #include <stdlib.h>
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	19 #include <unistd.h>
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	20 #include <libgen.h>
859 43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	21 #include <sys/resource.h>
586 b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	22 #include <sys/types.h>
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	23 #include <sys/stat.h>
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	24 #include <fcntl.h>
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	25
722 63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	26 #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	27 #include <pwd.h>
1578 5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	28 #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	29
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	30 #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	31 #include <errno.h>
586 b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	32 #include "lua.h"
722 63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	33 #include "lauxlib.h"
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	34
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	35 /* Daemonization support */
586 b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	36
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	37 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	38 {
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	39
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	40 pid_t pid;
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	41
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	42 if ( getppid() == 1 )
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	43 {
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	44 lua_pushboolean(L, 0);
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	45 lua_pushstring(L, "already-daemonized");
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	46 return 2;
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	47 }
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	48
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	49 /* Attempt initial fork */
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	50 if((pid = fork()) < 0)
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	51 {
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	52 /* Forking failed */
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	53 lua_pushboolean(L, 0);
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	54 lua_pushstring(L, "fork-failed");
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	55 return 2;
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	56 }
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	57 else if(pid != 0)
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	58 {
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	59 /* We are the parent process */
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	60 lua_pushboolean(L, 1);
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	61 lua_pushnumber(L, pid);
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	62 return 2;
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	63 }
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	64
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	65 /* and we are the child process */
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	66 if(setsid() == -1)
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	67 {
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	68 /* We failed to become session leader */
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	69 /* (we probably already were) */
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	70 lua_pushboolean(L, 0);
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	71 lua_pushstring(L, "setsid-failed");
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	72 return 2;
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	73 }
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	74
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	75 /* Close stdin, stdout, stderr */
1195 6b91a2b39680 Close std{in,out,err} when daemonizing Matthew Wild <mwild1@gmail.com> parents: 896 diff changeset	76 close(0);
586 b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	77 close(1);
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	78 close(2);
1195 6b91a2b39680 Close std{in,out,err} when daemonizing Matthew Wild <mwild1@gmail.com> parents: 896 diff changeset	79
586 b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	80 /* Final fork, use it wisely */
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	81 if(fork())
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	82 exit(0);
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	83
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	84 /* Show's over, let's continue */
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	85 lua_pushboolean(L, 1);
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	86 lua_pushnil(L);
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	87 return 2;
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	88 }
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	89
722 63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	90 /* Syslog support */
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	91
796 63f56696c66c util.pposix: Fix incompatible pointer type compiler warnings Matthew Wild <mwild1@gmail.com> parents: 766 diff changeset	92 const char * const facility_strings[] = {
63f56696c66c util.pposix: Fix incompatible pointer type compiler warnings Matthew Wild <mwild1@gmail.com> parents: 766 diff changeset	93 "auth",
1842 8337c0d4aee4 util.pposix: Compatibility with Solaris systems (thanks Filip) Matthew Wild <mwild1@gmail.com> parents: 1579 diff changeset	94 #if !(defined(sun) \|\| defined(__sun))
722 63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	95 "authpriv",
1842 8337c0d4aee4 util.pposix: Compatibility with Solaris systems (thanks Filip) Matthew Wild <mwild1@gmail.com> parents: 1579 diff changeset	96 #endif
722 63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	97 "cron",
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	98 "daemon",
1842 8337c0d4aee4 util.pposix: Compatibility with Solaris systems (thanks Filip) Matthew Wild <mwild1@gmail.com> parents: 1579 diff changeset	99 #if !(defined(sun) \|\| defined(__sun))
722 63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	100 "ftp",
1842 8337c0d4aee4 util.pposix: Compatibility with Solaris systems (thanks Filip) Matthew Wild <mwild1@gmail.com> parents: 1579 diff changeset	101 #endif
722 63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	102 "kern",
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	103 "local0",
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	104 "local1",
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	105 "local2",
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	106 "local3",
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	107 "local4",
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	108 "local5",
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	109 "local6",
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	110 "local7",
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	111 "lpr",
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	112 "mail",
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	113 "syslog",
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	114 "user",
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	115 "uucp",
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	116 NULL
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	117 };
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	118 int facility_constants[] = {
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	119 LOG_AUTH,
1842 8337c0d4aee4 util.pposix: Compatibility with Solaris systems (thanks Filip) Matthew Wild <mwild1@gmail.com> parents: 1579 diff changeset	120 #if !(defined(sun) \|\| defined(__sun))
722 63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	121 LOG_AUTHPRIV,
1842 8337c0d4aee4 util.pposix: Compatibility with Solaris systems (thanks Filip) Matthew Wild <mwild1@gmail.com> parents: 1579 diff changeset	122 #endif
722 63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	123 LOG_CRON,
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	124 LOG_DAEMON,
1842 8337c0d4aee4 util.pposix: Compatibility with Solaris systems (thanks Filip) Matthew Wild <mwild1@gmail.com> parents: 1579 diff changeset	125 #if !(defined(sun) \|\| defined(__sun))
722 63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	126 LOG_FTP,
1842 8337c0d4aee4 util.pposix: Compatibility with Solaris systems (thanks Filip) Matthew Wild <mwild1@gmail.com> parents: 1579 diff changeset	127 #endif
722 63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	128 LOG_KERN,
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	129 LOG_LOCAL0,
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	130 LOG_LOCAL1,
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	131 LOG_LOCAL2,
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	132 LOG_LOCAL3,
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	133 LOG_LOCAL4,
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	134 LOG_LOCAL5,
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	135 LOG_LOCAL6,
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	136 LOG_LOCAL7,
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	137 LOG_LPR,
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	138 LOG_MAIL,
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	139 LOG_NEWS,
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	140 LOG_SYSLOG,
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	141 LOG_USER,
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	142 LOG_UUCP,
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	143 -1
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	144 };
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	145
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	146 /* "
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	147 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	148 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	149 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	150 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	151 constant.
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	152 " -- syslog manpage
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	153 */
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	154 char* syslog_ident = NULL;
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	155
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	156 int lc_syslog_open(lua_State* L)
722 63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	157 {
796 63f56696c66c util.pposix: Fix incompatible pointer type compiler warnings Matthew Wild <mwild1@gmail.com> parents: 766 diff changeset	158 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	159 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	160
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	161 luaL_checkstring(L, 1);
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	162
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	163 if(syslog_ident)
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	164 free(syslog_ident);
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	165
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	166 syslog_ident = strdup(lua_tostring(L, 1));
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	167
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	168 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	169 return 0;
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	170 }
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	171
796 63f56696c66c util.pposix: Fix incompatible pointer type compiler warnings Matthew Wild <mwild1@gmail.com> parents: 766 diff changeset	172 const char * const level_strings[] = {
722 63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	173 "debug",
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	174 "info",
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	175 "notice",
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	176 "warn",
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	177 "error",
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	178 NULL
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	179 };
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	180 int level_constants[] = {
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	181 LOG_DEBUG,
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	182 LOG_INFO,
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	183 LOG_NOTICE,
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	184 LOG_WARNING,
1565 f1eeb049a0a5 pposix: Change LOG_EMERG -> LOG_CRIT, which makes more sense, thanks to intosi for reporting and an initial patch Matthew Wild <mwild1@gmail.com> parents: 1195 diff changeset	185 LOG_CRIT,
722 63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	186 -1
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	187 };
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	188 int lc_syslog_log(lua_State* L)
722 63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	189 {
796 63f56696c66c util.pposix: Fix incompatible pointer type compiler warnings Matthew Wild <mwild1@gmail.com> parents: 766 diff changeset	190 int level = 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	191 level = level_constants[level];
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	192
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	193 luaL_checkstring(L, 2);
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	194
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	195 syslog(level, "%s", lua_tostring(L, 2));
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	196 return 0;
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	197 }
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	198
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	199 int lc_syslog_close(lua_State* L)
722 63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	200 {
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	201 closelog();
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	202 if(syslog_ident)
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 free(syslog_ident);
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	205 syslog_ident = NULL;
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	206 }
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	207 return 0;
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	208 }
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	209
729 f62ef65d5c01 pposix: Add syslog_setmask (use config: minimum_log_level = 'warn' etc.) Matthew Wild <mwild1@gmail.com> parents: 727 diff changeset	210 int lc_syslog_setmask(lua_State* L)
f62ef65d5c01 pposix: Add syslog_setmask (use config: minimum_log_level = 'warn' etc.) Matthew Wild <mwild1@gmail.com> parents: 727 diff changeset	211 {
796 63f56696c66c util.pposix: Fix incompatible pointer type compiler warnings Matthew Wild <mwild1@gmail.com> parents: 766 diff changeset	212 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	213 int mask = 0;
f62ef65d5c01 pposix: Add syslog_setmask (use config: minimum_log_level = 'warn' etc.) Matthew Wild <mwild1@gmail.com> parents: 727 diff changeset	214 do
f62ef65d5c01 pposix: Add syslog_setmask (use config: minimum_log_level = 'warn' etc.) Matthew Wild <mwild1@gmail.com> parents: 727 diff changeset	215 {
f62ef65d5c01 pposix: Add syslog_setmask (use config: minimum_log_level = 'warn' etc.) Matthew Wild <mwild1@gmail.com> parents: 727 diff changeset	216 mask \|= LOG_MASK(level_constants[level_idx]);
f62ef65d5c01 pposix: Add syslog_setmask (use config: minimum_log_level = 'warn' etc.) Matthew Wild <mwild1@gmail.com> parents: 727 diff changeset	217 } while (++level_idx<=4);
f62ef65d5c01 pposix: Add syslog_setmask (use config: minimum_log_level = 'warn' etc.) Matthew Wild <mwild1@gmail.com> parents: 727 diff changeset	218
f62ef65d5c01 pposix: Add syslog_setmask (use config: minimum_log_level = 'warn' etc.) Matthew Wild <mwild1@gmail.com> parents: 727 diff changeset	219 setlogmask(mask);
f62ef65d5c01 pposix: Add syslog_setmask (use config: minimum_log_level = 'warn' etc.) Matthew Wild <mwild1@gmail.com> parents: 727 diff changeset	220 return 0;
f62ef65d5c01 pposix: Add syslog_setmask (use config: minimum_log_level = 'warn' etc.) Matthew Wild <mwild1@gmail.com> parents: 727 diff changeset	221 }
f62ef65d5c01 pposix: Add syslog_setmask (use config: minimum_log_level = 'warn' etc.) Matthew Wild <mwild1@gmail.com> parents: 727 diff changeset	222
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	223 /* 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	224
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	225 int lc_getpid(lua_State* L)
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	226 {
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	227 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	228 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	229 }
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	230
804 9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	231 /* UID/GID functions */
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	232
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	233 int lc_getuid(lua_State* L)
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	234 {
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	235 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	236 return 1;
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	237 }
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	238
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	239 int lc_getgid(lua_State* L)
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	240 {
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	241 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	242 return 1;
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	243 }
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	244
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	245 int lc_setuid(lua_State* L)
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	246 {
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	247 int uid = -1;
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	248 if(lua_gettop(L) < 1)
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	249 return 0;
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	250 if(!lua_isnumber(L, 1) && lua_tostring(L, 1))
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	251 {
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	252 /* Passed UID is actually a string, so look up the UID */
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	253 struct passwd *p;
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	254 p = getpwnam(lua_tostring(L, 1));
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	255 if(!p)
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	256 {
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	257 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	258 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	259 return 2;
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	260 }
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	261 uid = p->pw_uid;
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	262 }
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	263 else
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	264 {
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	265 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	266 }
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	267
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	268 if(uid>-1)
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	269 {
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	270 /* Ok, attempt setuid */
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	271 errno = 0;
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	272 if(setuid(uid))
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	273 {
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	274 /* Fail */
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	275 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	276 switch(errno)
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	277 {
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	278 case EINVAL:
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	279 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	280 break;
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	281 case EPERM:
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	282 lua_pushstring(L, "permission-denied");
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	283 break;
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	284 default:
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	285 lua_pushstring(L, "unknown-error");
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	286 }
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	287 return 2;
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	288 }
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	289 else
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	290 {
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	291 /* Success! */
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	292 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	293 return 1;
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	294 }
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	295 }
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	296
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	297 /* 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	298 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	299 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	300 return 2;
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	301 }
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	302
1578 5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	303 int lc_setgid(lua_State* L)
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	304 {
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	305 int gid = -1;
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	306 if(lua_gettop(L) < 1)
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	307 return 0;
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	308 if(!lua_isnumber(L, 1) && lua_tostring(L, 1))
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	309 {
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	310 /* Passed GID is actually a string, so look up the GID */
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	311 struct group *g;
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	312 g = getgrnam(lua_tostring(L, 1));
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	313 if(!g)
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	314 {
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	315 lua_pushboolean(L, 0);
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	316 lua_pushstring(L, "no-such-group");
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	317 return 2;
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	318 }
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	319 gid = g->gr_gid;
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	320 }
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	321 else
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	322 {
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	323 gid = lua_tonumber(L, 1);
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	324 }
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	325
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	326 if(gid>-1)
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	327 {
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	328 /* Ok, attempt setgid */
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	329 errno = 0;
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	330 if(setgid(gid))
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	331 {
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	332 /* Fail */
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	333 lua_pushboolean(L, 0);
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	334 switch(errno)
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	335 {
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	336 case EINVAL:
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	337 lua_pushstring(L, "invalid-gid");
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	338 break;
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	339 case EPERM:
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	340 lua_pushstring(L, "permission-denied");
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	341 break;
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	342 default:
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	343 lua_pushstring(L, "unknown-error");
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	344 }
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	345 return 2;
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	346 }
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	347 else
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	348 {
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	349 /* Success! */
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	350 lua_pushboolean(L, 1);
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	351 return 1;
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	352 }
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	353 }
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	354
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	355 /* 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	356 lua_pushboolean(L, 0);
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	357 lua_pushstring(L, "invalid-gid");
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	358 return 2;
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	359 }
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	360
859 43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	361 /* Like POSIX's setrlimit()/getrlimit() API functions.
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	362 *
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	363 * Syntax:
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	364 * pposix.setrlimit( resource, soft limit, hard limit)
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	365 *
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	366 * Any negative limit will be replace with the current limit by an additional call of getrlimit().
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	367 *
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	368 * Example usage:
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	369 * pposix.setrlimit("NOFILE", 1000, 2000)
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	370 */
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	371 int string2resource(const char *s) {
861 2a5373897128 Make the code actually build. Tobias Markmann <tm@ayena.de> parents: 860 diff changeset	372 if (!strcmp(s, "CORE")) return RLIMIT_CORE;
2a5373897128 Make the code actually build. Tobias Markmann <tm@ayena.de> parents: 860 diff changeset	373 if (!strcmp(s, "CPU")) return RLIMIT_CPU;
2a5373897128 Make the code actually build. Tobias Markmann <tm@ayena.de> parents: 860 diff changeset	374 if (!strcmp(s, "DATA")) return RLIMIT_DATA;
2a5373897128 Make the code actually build. Tobias Markmann <tm@ayena.de> parents: 860 diff changeset	375 if (!strcmp(s, "FSIZE")) return RLIMIT_FSIZE;
1842 8337c0d4aee4 util.pposix: Compatibility with Solaris systems (thanks Filip) Matthew Wild <mwild1@gmail.com> parents: 1579 diff changeset	376 if (!strcmp(s, "NOFILE")) return RLIMIT_NOFILE;
8337c0d4aee4 util.pposix: Compatibility with Solaris systems (thanks Filip) Matthew Wild <mwild1@gmail.com> parents: 1579 diff changeset	377 if (!strcmp(s, "STACK")) return RLIMIT_STACK;
8337c0d4aee4 util.pposix: Compatibility with Solaris systems (thanks Filip) Matthew Wild <mwild1@gmail.com> parents: 1579 diff changeset	378 #if !(defined(sun) \|\| defined(__sun))
861 2a5373897128 Make the code actually build. Tobias Markmann <tm@ayena.de> parents: 860 diff changeset	379 if (!strcmp(s, "MEMLOCK")) return RLIMIT_MEMLOCK;
2a5373897128 Make the code actually build. Tobias Markmann <tm@ayena.de> parents: 860 diff changeset	380 if (!strcmp(s, "NPROC")) return RLIMIT_NPROC;
2a5373897128 Make the code actually build. Tobias Markmann <tm@ayena.de> parents: 860 diff changeset	381 if (!strcmp(s, "RSS")) return RLIMIT_RSS;
1842 8337c0d4aee4 util.pposix: Compatibility with Solaris systems (thanks Filip) Matthew Wild <mwild1@gmail.com> parents: 1579 diff changeset	382 #endif
859 43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	383 return -1;
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	384 }
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	385
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	386 int lc_setrlimit(lua_State *L) {
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	387 int arguments = lua_gettop(L);
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	388 int softlimit = -1;
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	389 int hardlimit = -1;
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	390 const char *resource = NULL;
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	391 int rid = -1;
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	392 if(arguments < 1 \|\| arguments > 3) {
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	393 lua_pushboolean(L, 0);
865 2dce34e9182d pposix: Standardize error messages Matthew Wild <mwild1@gmail.com> parents: 864 diff changeset	394 lua_pushstring(L, "incorrect-arguments");
859 43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	395 }
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	396
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	397 resource = luaL_checkstring(L, 1);
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	398 softlimit = luaL_checkinteger(L, 2);
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	399 hardlimit = luaL_checkinteger(L, 3);
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	400
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	401 rid = string2resource(resource);
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	402 if (rid != -1) {
861 2a5373897128 Make the code actually build. Tobias Markmann <tm@ayena.de> parents: 860 diff changeset	403 struct rlimit lim;
2a5373897128 Make the code actually build. Tobias Markmann <tm@ayena.de> parents: 860 diff changeset	404 struct rlimit lim_current;
859 43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	405
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	406 if (softlimit < 0 \|\| hardlimit < 0) {
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	407 if (getrlimit(rid, &lim_current)) {
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	408 lua_pushboolean(L, 0);
865 2dce34e9182d pposix: Standardize error messages Matthew Wild <mwild1@gmail.com> parents: 864 diff changeset	409 lua_pushstring(L, "getrlimit-failed");
859 43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	410 return 2;
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	411 }
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	412 }
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	413
861 2a5373897128 Make the code actually build. Tobias Markmann <tm@ayena.de> parents: 860 diff changeset	414 if (softlimit < 0) lim.rlim_cur = lim_current.rlim_cur;
859 43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	415 else lim.rlim_cur = softlimit;
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	416 if (hardlimit < 0) lim.rlim_max = lim_current.rlim_max;
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	417 else lim.rlim_max = hardlimit;
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	418
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	419 if (setrlimit(rid, &lim)) {
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	420 lua_pushboolean(L, 0);
865 2dce34e9182d pposix: Standardize error messages Matthew Wild <mwild1@gmail.com> parents: 864 diff changeset	421 lua_pushstring(L, "setrlimit-failed");
859 43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	422 return 2;
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	423 }
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	424 } else {
865 2dce34e9182d pposix: Standardize error messages Matthew Wild <mwild1@gmail.com> parents: 864 diff changeset	425 /* Unsupported resoucrce. Sorry I'm pretty limited by POSIX standard. */
859 43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	426 lua_pushboolean(L, 0);
865 2dce34e9182d pposix: Standardize error messages Matthew Wild <mwild1@gmail.com> parents: 864 diff changeset	427 lua_pushstring(L, "invalid-resource");
859 43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	428 return 2;
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	429 }
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	430 lua_pushboolean(L, 1);
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	431 return 1;
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	432 }
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	433
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	434 int lc_getrlimit(lua_State *L) {
860 048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	435 int arguments = lua_gettop(L);
048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	436 const char *resource = NULL;
048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	437 int rid = -1;
861 2a5373897128 Make the code actually build. Tobias Markmann <tm@ayena.de> parents: 860 diff changeset	438 struct rlimit lim;
860 048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	439
048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	440 if (arguments != 1) {
048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	441 lua_pushboolean(L, 0);
865 2dce34e9182d pposix: Standardize error messages Matthew Wild <mwild1@gmail.com> parents: 864 diff changeset	442 lua_pushstring(L, "invalid-arguments");
860 048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	443 return 2;
048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	444 }
048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	445
048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	446 resource = luaL_checkstring(L, 1);
048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	447 rid = string2resource(resource);
048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	448 if (rid != -1) {
048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	449 if (getrlimit(rid, &lim)) {
048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	450 lua_pushboolean(L, 0);
865 2dce34e9182d pposix: Standardize error messages Matthew Wild <mwild1@gmail.com> parents: 864 diff changeset	451 lua_pushstring(L, "getrlimit-failed.");
860 048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	452 return 2;
048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	453 }
048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	454 } else {
865 2dce34e9182d pposix: Standardize error messages Matthew Wild <mwild1@gmail.com> parents: 864 diff changeset	455 /* Unsupported resoucrce. Sorry I'm pretty limited by POSIX standard. */
860 048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	456 lua_pushboolean(L, 0);
865 2dce34e9182d pposix: Standardize error messages Matthew Wild <mwild1@gmail.com> parents: 864 diff changeset	457 lua_pushstring(L, "invalid-resource");
860 048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	458 return 2;
048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	459 }
048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	460 lua_pushboolean(L, 1);
048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	461 lua_pushnumber(L, lim.rlim_cur);
048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	462 lua_pushnumber(L, lim.rlim_max);
048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	463 return 3;
859 43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	464 }
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	465
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	466 /* 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	467
586 b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	468 int luaopen_util_pposix(lua_State *L)
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	469 {
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	470 lua_newtable(L);
722 63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	471
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	472 lua_pushcfunction(L, lc_daemonize);
586 b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	473 lua_setfield(L, -2, "daemonize");
722 63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	474
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	475 lua_pushcfunction(L, lc_syslog_open);
722 63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	476 lua_setfield(L, -2, "syslog_open");
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	477
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	478 lua_pushcfunction(L, lc_syslog_close);
722 63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	479 lua_setfield(L, -2, "syslog_close");
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	480
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	481 lua_pushcfunction(L, lc_syslog_log);
722 63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	482 lua_setfield(L, -2, "syslog_log");
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	483
729 f62ef65d5c01 pposix: Add syslog_setmask (use config: minimum_log_level = 'warn' etc.) Matthew Wild <mwild1@gmail.com> parents: 727 diff changeset	484 lua_pushcfunction(L, lc_syslog_setmask);
f62ef65d5c01 pposix: Add syslog_setmask (use config: minimum_log_level = 'warn' etc.) Matthew Wild <mwild1@gmail.com> parents: 727 diff changeset	485 lua_setfield(L, -2, "syslog_setminlevel");
f62ef65d5c01 pposix: Add syslog_setmask (use config: minimum_log_level = 'warn' etc.) Matthew Wild <mwild1@gmail.com> parents: 727 diff changeset	486
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	487 lua_pushcfunction(L, lc_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	488 lua_setfield(L, -2, "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	489
804 9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	490 lua_pushcfunction(L, lc_getuid);
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	491 lua_setfield(L, -2, "getuid");
1578 5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	492 lua_pushcfunction(L, lc_getgid);
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	493 lua_setfield(L, -2, "getgid");
804 9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	494
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	495 lua_pushcfunction(L, lc_setuid);
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	496 lua_setfield(L, -2, "setuid");
1578 5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	497 lua_pushcfunction(L, lc_setgid);
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	498 lua_setfield(L, -2, "setgid");
859 43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	499
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	500 lua_pushcfunction(L, lc_setrlimit);
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	501 lua_setfield(L, -2, "setrlimit");
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	502
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	503 lua_pushcfunction(L, lc_getrlimit);
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	504 lua_setfield(L, -2, "getrlimit");
804 9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	505
727 78c9542de94e pposix: Add _NAME and _VERSION Matthew Wild <mwild1@gmail.com> parents: 723 diff changeset	506 lua_pushliteral(L, "pposix");
78c9542de94e pposix: Add _NAME and _VERSION Matthew Wild <mwild1@gmail.com> parents: 723 diff changeset	507 lua_setfield(L, -2, "_NAME");
78c9542de94e pposix: Add _NAME and _VERSION Matthew Wild <mwild1@gmail.com> parents: 723 diff changeset	508
78c9542de94e pposix: Add _NAME and _VERSION Matthew Wild <mwild1@gmail.com> parents: 723 diff changeset	509 lua_pushliteral(L, MODULE_VERSION);
78c9542de94e pposix: Add _NAME and _VERSION Matthew Wild <mwild1@gmail.com> parents: 723 diff changeset	510 lua_setfield(L, -2, "_VERSION");
78c9542de94e pposix: Add _NAME and _VERSION Matthew Wild <mwild1@gmail.com> parents: 723 diff changeset	511
586 b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	512 return 1;
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	513 };

prosody

f203330eb82e

util-src/pposix.c

Software / code / prosody

Annotate

util-src/pposix.c @ 1931:f203330eb82e

Software `/` code `/` prosody