Software `/` code `/` prosody

Annotate

util-src/pposix.c @ 1822:2f78ea5d0f11

net.dns: Remove elements from the cache when expired so as to not leave holes in the array

author	Matthew Wild <mwild1@gmail.com>
date	Thu, 24 Sep 2009 23:46:12 +0100
parent	1579:95698f021c5d
child	1842:8337c0d4aee4

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",
722 63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	94 "authpriv",
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	95 "cron",
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	96 "daemon",
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	97 "ftp",
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	98 "kern",
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	99 "local0",
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	100 "local1",
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	101 "local2",
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	102 "local3",
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	103 "local4",
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	104 "local5",
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	105 "local6",
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	106 "local7",
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	107 "lpr",
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	108 "mail",
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	109 "syslog",
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	110 "user",
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	111 "uucp",
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	112 NULL
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	113 };
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	114 int facility_constants[] = {
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	115 LOG_AUTH,
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	116 LOG_AUTHPRIV,
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	117 LOG_CRON,
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	118 LOG_DAEMON,
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	119 LOG_FTP,
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	120 LOG_KERN,
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	121 LOG_LOCAL0,
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	122 LOG_LOCAL1,
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	123 LOG_LOCAL2,
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	124 LOG_LOCAL3,
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	125 LOG_LOCAL4,
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	126 LOG_LOCAL5,
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	127 LOG_LOCAL6,
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	128 LOG_LOCAL7,
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	129 LOG_LPR,
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	130 LOG_MAIL,
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	131 LOG_NEWS,
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	132 LOG_SYSLOG,
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	133 LOG_USER,
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	134 LOG_UUCP,
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	135 -1
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	136 };
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	137
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	138 /* "
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	139 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	140 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	141 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	142 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	143 constant.
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	144 " -- syslog manpage
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 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	147
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	148 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	149 {
796 63f56696c66c util.pposix: Fix incompatible pointer type compiler warnings Matthew Wild <mwild1@gmail.com> parents: 766 diff changeset	150 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	151 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	152
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	153 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	154
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	155 if(syslog_ident)
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	156 free(syslog_ident);
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	157
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	158 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	159
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	160 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	161 return 0;
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
796 63f56696c66c util.pposix: Fix incompatible pointer type compiler warnings Matthew Wild <mwild1@gmail.com> parents: 766 diff changeset	164 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	165 "debug",
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	166 "info",
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	167 "notice",
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	168 "warn",
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	169 "error",
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	170 NULL
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	171 };
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	172 int level_constants[] = {
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	173 LOG_DEBUG,
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	174 LOG_INFO,
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	175 LOG_NOTICE,
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	176 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	177 LOG_CRIT,
722 63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	178 -1
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	179 };
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	180 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	181 {
796 63f56696c66c util.pposix: Fix incompatible pointer type compiler warnings Matthew Wild <mwild1@gmail.com> parents: 766 diff changeset	182 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	183 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	184
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	185 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	186
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	187 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	188 return 0;
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
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	191 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	192 {
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	193 closelog();
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	194 if(syslog_ident)
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	195 {
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	196 free(syslog_ident);
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	197 syslog_ident = NULL;
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	198 }
63456c9d0522 mod_posix: Support for logging to syslog (log = 'syslog' in config) Matthew Wild <mwild1@gmail.com> parents: 588 diff changeset	199 return 0;
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
729 f62ef65d5c01 pposix: Add syslog_setmask (use config: minimum_log_level = 'warn' etc.) Matthew Wild <mwild1@gmail.com> parents: 727 diff changeset	202 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	203 {
796 63f56696c66c util.pposix: Fix incompatible pointer type compiler warnings Matthew Wild <mwild1@gmail.com> parents: 766 diff changeset	204 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	205 int mask = 0;
f62ef65d5c01 pposix: Add syslog_setmask (use config: minimum_log_level = 'warn' etc.) Matthew Wild <mwild1@gmail.com> parents: 727 diff changeset	206 do
f62ef65d5c01 pposix: Add syslog_setmask (use config: minimum_log_level = 'warn' etc.) Matthew Wild <mwild1@gmail.com> parents: 727 diff changeset	207 {
f62ef65d5c01 pposix: Add syslog_setmask (use config: minimum_log_level = 'warn' etc.) Matthew Wild <mwild1@gmail.com> parents: 727 diff changeset	208 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	209 } 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	210
f62ef65d5c01 pposix: Add syslog_setmask (use config: minimum_log_level = 'warn' etc.) Matthew Wild <mwild1@gmail.com> parents: 727 diff changeset	211 setlogmask(mask);
f62ef65d5c01 pposix: Add syslog_setmask (use config: minimum_log_level = 'warn' etc.) Matthew Wild <mwild1@gmail.com> parents: 727 diff changeset	212 return 0;
f62ef65d5c01 pposix: Add syslog_setmask (use config: minimum_log_level = 'warn' etc.) Matthew Wild <mwild1@gmail.com> parents: 727 diff changeset	213 }
f62ef65d5c01 pposix: Add syslog_setmask (use config: minimum_log_level = 'warn' etc.) Matthew Wild <mwild1@gmail.com> parents: 727 diff changeset	214
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	215 /* 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	216
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	217 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	218 {
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	219 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	220 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	221 }
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	222
804 9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	223 /* UID/GID functions */
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	224
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	225 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	226 {
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	227 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	228 return 1;
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	229 }
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	230
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	231 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	232 {
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	233 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	234 return 1;
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	235 }
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	236
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	237 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	238 {
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	239 int uid = -1;
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	240 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	241 return 0;
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	242 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	243 {
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	244 /* 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	245 struct passwd *p;
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	246 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	247 if(!p)
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	248 {
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	249 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	250 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	251 return 2;
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	252 }
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	253 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	254 }
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	255 else
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 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	258 }
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	259
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	260 if(uid>-1)
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	261 {
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	262 /* Ok, attempt setuid */
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	263 errno = 0;
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	264 if(setuid(uid))
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	265 {
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	266 /* Fail */
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	267 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	268 switch(errno)
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 case EINVAL:
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	271 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	272 break;
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	273 case EPERM:
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	274 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	275 break;
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	276 default:
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	277 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	278 }
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	279 return 2;
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 else
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	282 {
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	283 /* Success! */
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	284 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	285 return 1;
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 }
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 /* 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	290 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	291 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	292 return 2;
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	293 }
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	294
1578 5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	295 int lc_setgid(lua_State* L)
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	296 {
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	297 int gid = -1;
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	298 if(lua_gettop(L) < 1)
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	299 return 0;
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	300 if(!lua_isnumber(L, 1) && lua_tostring(L, 1))
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	301 {
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	302 /* 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	303 struct group *g;
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	304 g = getgrnam(lua_tostring(L, 1));
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	305 if(!g)
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	306 {
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	307 lua_pushboolean(L, 0);
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	308 lua_pushstring(L, "no-such-group");
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	309 return 2;
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	310 }
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	311 gid = g->gr_gid;
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	312 }
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	313 else
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 gid = lua_tonumber(L, 1);
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	316 }
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	317
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	318 if(gid>-1)
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	319 {
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	320 /* Ok, attempt setgid */
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	321 errno = 0;
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	322 if(setgid(gid))
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	323 {
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	324 /* Fail */
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	325 lua_pushboolean(L, 0);
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	326 switch(errno)
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 case EINVAL:
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	329 lua_pushstring(L, "invalid-gid");
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	330 break;
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	331 case EPERM:
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	332 lua_pushstring(L, "permission-denied");
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	333 break;
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	334 default:
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	335 lua_pushstring(L, "unknown-error");
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	336 }
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	337 return 2;
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	338 }
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	339 else
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	340 {
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	341 /* Success! */
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	342 lua_pushboolean(L, 1);
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	343 return 1;
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 }
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 /* 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	348 lua_pushboolean(L, 0);
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	349 lua_pushstring(L, "invalid-gid");
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	350 return 2;
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	351 }
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	352
859 43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	353 /* Like POSIX's setrlimit()/getrlimit() API functions.
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	354 *
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	355 * Syntax:
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	356 * pposix.setrlimit( resource, soft limit, hard limit)
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	357 *
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	358 * 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	359 *
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	360 * Example usage:
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	361 * pposix.setrlimit("NOFILE", 1000, 2000)
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 int string2resource(const char *s) {
861 2a5373897128 Make the code actually build. Tobias Markmann <tm@ayena.de> parents: 860 diff changeset	364 if (!strcmp(s, "CORE")) return RLIMIT_CORE;
2a5373897128 Make the code actually build. Tobias Markmann <tm@ayena.de> parents: 860 diff changeset	365 if (!strcmp(s, "CPU")) return RLIMIT_CPU;
2a5373897128 Make the code actually build. Tobias Markmann <tm@ayena.de> parents: 860 diff changeset	366 if (!strcmp(s, "DATA")) return RLIMIT_DATA;
2a5373897128 Make the code actually build. Tobias Markmann <tm@ayena.de> parents: 860 diff changeset	367 if (!strcmp(s, "FSIZE")) return RLIMIT_FSIZE;
2a5373897128 Make the code actually build. Tobias Markmann <tm@ayena.de> parents: 860 diff changeset	368 if (!strcmp(s, "MEMLOCK")) return RLIMIT_MEMLOCK;
2a5373897128 Make the code actually build. Tobias Markmann <tm@ayena.de> parents: 860 diff changeset	369 if (!strcmp(s, "NOFILE")) return RLIMIT_NOFILE;
2a5373897128 Make the code actually build. Tobias Markmann <tm@ayena.de> parents: 860 diff changeset	370 if (!strcmp(s, "NPROC")) return RLIMIT_NPROC;
2a5373897128 Make the code actually build. Tobias Markmann <tm@ayena.de> parents: 860 diff changeset	371 if (!strcmp(s, "RSS")) return RLIMIT_RSS;
2a5373897128 Make the code actually build. Tobias Markmann <tm@ayena.de> parents: 860 diff changeset	372 if (!strcmp(s, "STACK")) return RLIMIT_STACK;
859 43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	373 return -1;
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	374 }
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	375
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	376 int lc_setrlimit(lua_State *L) {
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	377 int arguments = lua_gettop(L);
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	378 int softlimit = -1;
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	379 int hardlimit = -1;
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	380 const char *resource = NULL;
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	381 int rid = -1;
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	382 if(arguments < 1 \|\| arguments > 3) {
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	383 lua_pushboolean(L, 0);
865 2dce34e9182d pposix: Standardize error messages Matthew Wild <mwild1@gmail.com> parents: 864 diff changeset	384 lua_pushstring(L, "incorrect-arguments");
859 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
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	387 resource = luaL_checkstring(L, 1);
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	388 softlimit = luaL_checkinteger(L, 2);
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	389 hardlimit = luaL_checkinteger(L, 3);
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	390
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	391 rid = string2resource(resource);
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	392 if (rid != -1) {
861 2a5373897128 Make the code actually build. Tobias Markmann <tm@ayena.de> parents: 860 diff changeset	393 struct rlimit lim;
2a5373897128 Make the code actually build. Tobias Markmann <tm@ayena.de> parents: 860 diff changeset	394 struct rlimit lim_current;
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 if (softlimit < 0 \|\| hardlimit < 0) {
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	397 if (getrlimit(rid, &lim_current)) {
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	398 lua_pushboolean(L, 0);
865 2dce34e9182d pposix: Standardize error messages Matthew Wild <mwild1@gmail.com> parents: 864 diff changeset	399 lua_pushstring(L, "getrlimit-failed");
859 43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	400 return 2;
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	401 }
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	402 }
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	403
861 2a5373897128 Make the code actually build. Tobias Markmann <tm@ayena.de> parents: 860 diff changeset	404 if (softlimit < 0) lim.rlim_cur = lim_current.rlim_cur;
859 43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	405 else lim.rlim_cur = softlimit;
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	406 if (hardlimit < 0) lim.rlim_max = lim_current.rlim_max;
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	407 else lim.rlim_max = hardlimit;
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	408
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	409 if (setrlimit(rid, &lim)) {
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	410 lua_pushboolean(L, 0);
865 2dce34e9182d pposix: Standardize error messages Matthew Wild <mwild1@gmail.com> parents: 864 diff changeset	411 lua_pushstring(L, "setrlimit-failed");
859 43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	412 return 2;
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	413 }
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	414 } else {
865 2dce34e9182d pposix: Standardize error messages Matthew Wild <mwild1@gmail.com> parents: 864 diff changeset	415 /* Unsupported resoucrce. Sorry I'm pretty limited by POSIX standard. */
859 43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	416 lua_pushboolean(L, 0);
865 2dce34e9182d pposix: Standardize error messages Matthew Wild <mwild1@gmail.com> parents: 864 diff changeset	417 lua_pushstring(L, "invalid-resource");
859 43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	418 return 2;
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	419 }
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	420 lua_pushboolean(L, 1);
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	421 return 1;
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	422 }
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 int lc_getrlimit(lua_State *L) {
860 048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	425 int arguments = lua_gettop(L);
048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	426 const char *resource = NULL;
048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	427 int rid = -1;
861 2a5373897128 Make the code actually build. Tobias Markmann <tm@ayena.de> parents: 860 diff changeset	428 struct rlimit lim;
860 048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	429
048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	430 if (arguments != 1) {
048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	431 lua_pushboolean(L, 0);
865 2dce34e9182d pposix: Standardize error messages Matthew Wild <mwild1@gmail.com> parents: 864 diff changeset	432 lua_pushstring(L, "invalid-arguments");
860 048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	433 return 2;
048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	434 }
048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	435
048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	436 resource = luaL_checkstring(L, 1);
048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	437 rid = string2resource(resource);
048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	438 if (rid != -1) {
048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	439 if (getrlimit(rid, &lim)) {
048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	440 lua_pushboolean(L, 0);
865 2dce34e9182d pposix: Standardize error messages Matthew Wild <mwild1@gmail.com> parents: 864 diff changeset	441 lua_pushstring(L, "getrlimit-failed.");
860 048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	442 return 2;
048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	443 }
048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	444 } else {
865 2dce34e9182d pposix: Standardize error messages Matthew Wild <mwild1@gmail.com> parents: 864 diff changeset	445 /* Unsupported resoucrce. Sorry I'm pretty limited by POSIX standard. */
860 048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	446 lua_pushboolean(L, 0);
865 2dce34e9182d pposix: Standardize error messages Matthew Wild <mwild1@gmail.com> parents: 864 diff changeset	447 lua_pushstring(L, "invalid-resource");
860 048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	448 return 2;
048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	449 }
048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	450 lua_pushboolean(L, 1);
048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	451 lua_pushnumber(L, lim.rlim_cur);
048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	452 lua_pushnumber(L, lim.rlim_max);
048aaec22b57 Added missing code. Tobias Markmann <tm@ayena.de> parents: 859 diff changeset	453 return 3;
859 43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	454 }
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	455
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	456 /* 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	457
586 b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	458 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	459 {
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	460 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	461
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	462 lua_pushcfunction(L, lc_daemonize);
586 b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	463 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	464
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	465 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	466 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	467
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	468 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	469 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	470
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	471 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	472 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	473
729 f62ef65d5c01 pposix: Add syslog_setmask (use config: minimum_log_level = 'warn' etc.) Matthew Wild <mwild1@gmail.com> parents: 727 diff changeset	474 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	475 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	476
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	477 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	478 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	479
804 9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	480 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	481 lua_setfield(L, -2, "getuid");
1578 5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	482 lua_pushcfunction(L, lc_getgid);
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	483 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	484
9bc1544c99b7 util.pposix: Add getuid/setuid (we don't use them yet) Matthew Wild <mwild1@gmail.com> parents: 796 diff changeset	485 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	486 lua_setfield(L, -2, "setuid");
1578 5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	487 lua_pushcfunction(L, lc_setgid);
5bd8b3bdbfbc pposix: Add setgid() function Matthew Wild <mwild1@gmail.com> parents: 1565 diff changeset	488 lua_setfield(L, -2, "setgid");
859 43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	489
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	490 lua_pushcfunction(L, lc_setrlimit);
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	491 lua_setfield(L, -2, "setrlimit");
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	492
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	493 lua_pushcfunction(L, lc_getrlimit);
43f7e342135d Adding setrlimits() binding. Tobias Markmann <tm@ayena.de> parents: 804 diff changeset	494 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	495
727 78c9542de94e pposix: Add _NAME and _VERSION Matthew Wild <mwild1@gmail.com> parents: 723 diff changeset	496 lua_pushliteral(L, "pposix");
78c9542de94e pposix: Add _NAME and _VERSION Matthew Wild <mwild1@gmail.com> parents: 723 diff changeset	497 lua_setfield(L, -2, "_NAME");
78c9542de94e pposix: Add _NAME and _VERSION Matthew Wild <mwild1@gmail.com> parents: 723 diff changeset	498
78c9542de94e pposix: Add _NAME and _VERSION Matthew Wild <mwild1@gmail.com> parents: 723 diff changeset	499 lua_pushliteral(L, MODULE_VERSION);
78c9542de94e pposix: Add _NAME and _VERSION Matthew Wild <mwild1@gmail.com> parents: 723 diff changeset	500 lua_setfield(L, -2, "_VERSION");
78c9542de94e pposix: Add _NAME and _VERSION Matthew Wild <mwild1@gmail.com> parents: 723 diff changeset	501
586 b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	502 return 1;
b828d7d47973 Add posix support library, and adjust makefiles for it Matthew Wild <mwild1@gmail.com> parents: diff changeset	503 };

prosody

2f78ea5d0f11

util-src/pposix.c

Software / code / prosody

Annotate

util-src/pposix.c @ 1822:2f78ea5d0f11

Software `/` code `/` prosody