-/* Prosody IM v0.1
--- Copyright (C) 2008 Matthew Wild
--- Copyright (C) 2008 Waqas Hussain
+/* Prosody IM v0.3
+-- Copyright (C) 2008-2009 Matthew Wild
+-- Copyright (C) 2008-2009 Waqas Hussain
+-- Copyright 2009 Tobias Markmann
--
--- This program is free software; you can redistribute it and/or
--- modify it under the terms of the GNU General Public License
--- as published by the Free Software Foundation; either version 2
--- of the License, or (at your option) any later version.
---
--- This program is distributed in the hope that it will be useful,
--- but WITHOUT ANY WARRANTY; without even the implied warranty of
--- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
--- GNU General Public License for more details.
---
--- You should have received a copy of the GNU General Public License
--- along with this program; if not, write to the Free Software
--- Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
+-- This project is MIT/X11 licensed. Please see the
+-- COPYING file in the source package for more information.
+--
*/
-/* pposix.c
- POSIX support functions for Lua
+/*
+* pposix.c
+* POSIX support functions for Lua
*/
#define MODULE_VERSION "0.3.0"
#include <stdlib.h>
#include <unistd.h>
#include <libgen.h>
+#include <sys/resource.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <fcntl.h>
#include <syslog.h>
+#include <pwd.h>
#include <string.h>
-
+#include <errno.h>
#include "lua.h"
#include "lauxlib.h"
/* Syslog support */
-char *facility_strings[] = { "auth",
+const char * const facility_strings[] = {
+ "auth",
"authpriv",
"cron",
"daemon",
int lc_syslog_open(lua_State* L)
{
- int facility = luaL_checkoption(L, 2, "daemon", &facility_strings);
+ int facility = luaL_checkoption(L, 2, "daemon", facility_strings);
facility = facility_constants[facility];
luaL_checkstring(L, 1);
return 0;
}
-char *level_strings[] = {
+const char * const level_strings[] = {
"debug",
"info",
"notice",
};
int lc_syslog_log(lua_State* L)
{
- int level = luaL_checkoption(L, 1, "notice", &level_strings);
+ int level = luaL_checkoption(L, 1, "notice", level_strings);
level = level_constants[level];
luaL_checkstring(L, 2);
int lc_syslog_setmask(lua_State* L)
{
- int level_idx = luaL_checkoption(L, 1, "notice", &level_strings);
+ int level_idx = luaL_checkoption(L, 1, "notice", level_strings);
int mask = 0;
do
{
return 1;
}
+/* UID/GID functions */
+
+int lc_getuid(lua_State* L)
+{
+ lua_pushinteger(L, getuid());
+ return 1;
+}
+
+int lc_getgid(lua_State* L)
+{
+ lua_pushinteger(L, getgid());
+ return 1;
+}
+
+int lc_setuid(lua_State* L)
+{
+ int uid = -1;
+ if(lua_gettop(L) < 1)
+ return 0;
+ if(!lua_isnumber(L, 1) && lua_tostring(L, 1))
+ {
+ /* Passed UID is actually a string, so look up the UID */
+ struct passwd *p;
+ p = getpwnam(lua_tostring(L, 1));
+ if(!p)
+ {
+ lua_pushboolean(L, 0);
+ lua_pushstring(L, "no-such-user");
+ return 2;
+ }
+ uid = p->pw_uid;
+ }
+ else
+ {
+ uid = lua_tonumber(L, 1);
+ }
+
+ if(uid>-1)
+ {
+ /* Ok, attempt setuid */
+ errno = 0;
+ if(setuid(uid))
+ {
+ /* Fail */
+ lua_pushboolean(L, 0);
+ switch(errno)
+ {
+ case EINVAL:
+ lua_pushstring(L, "invalid-uid");
+ break;
+ case EPERM:
+ lua_pushstring(L, "permission-denied");
+ break;
+ default:
+ lua_pushstring(L, "unknown-error");
+ }
+ return 2;
+ }
+ else
+ {
+ /* Success! */
+ lua_pushboolean(L, 1);
+ return 1;
+ }
+ }
+
+ /* Seems we couldn't find a valid UID to switch to */
+ lua_pushboolean(L, 0);
+ lua_pushstring(L, "invalid-uid");
+ return 2;
+}
+
+/* Like POSIX's setrlimit()/getrlimit() API functions.
+ *
+ * Syntax:
+ * pposix.setrlimit( resource, soft limit, hard limit)
+ *
+ * Any negative limit will be replace with the current limit by an additional call of getrlimit().
+ *
+ * Example usage:
+ * pposix.setrlimit("NOFILE", 1000, 2000)
+ */
+int string2resource(const char *s) {
+ if (!strcmp(resource, "CORE")) return RLIMIT_CORE;
+ if (!strcmp(resource, "CPU")) return RLIMIT_CPU;
+ if (!strcmp(resource, "DATA")) return RLIMIT_DATA;
+ if (!strcmp(resource, "FSIZE")) return RLIMIT_FSIZE;
+ if (!strcmp(resource, "MEMLOCK")) return RLIMIT_MEMLOCK;
+ if (!strcmp(resource, "NOFILE")) return RLIMIT_NOFILE;
+ if (!strcmp(resource, "NPROC")) return RLIMIT_NPROC;
+ if (!strcmp(resource, "RSS")) return RLIMIT_RSS;
+ if (!strcmp(resource, "STACK")) return RLIMIT_STACK;
+ return -1;
+}
+
+int lc_setrlimit(lua_State *L) {
+ int arguments = lua_gettop(L);
+ int softlimit = -1;
+ int hardlimit = -1;
+ const char *resource = NULL;
+ int rid = -1;
+ if(arguments < 1 || arguments > 3) {
+ lua_pushboolean(L, 0);
+ lua_pushstring(L, "Wrong number of arguments");
+ }
+
+ resource = luaL_checkstring(L, 1);
+ softlimit = luaL_checkinteger(L, 2);
+ hardlimit = luaL_checkinteger(L, 3);
+
+ rid = string2resource(resource);
+ if (rid != -1) {
+ rlimit lim;
+ rlimit lim_current;
+
+ if (softlimit < 0 || hardlimit < 0) {
+ if (getrlimit(rid, &lim_current)) {
+ lua_pushboolean(L, 0);
+ lua_pushstring(L, "getrlimit() failed.");
+ return 2;
+ }
+ }
+
+ if (softimit < 0) lim.rlim_cur = lim_current.rlim_cur;
+ else lim.rlim_cur = softlimit;
+ if (hardlimit < 0) lim.rlim_max = lim_current.rlim_max;
+ else lim.rlim_max = hardlimit;
+
+ if (setrlimit(rid, &lim)) {
+ lua_pushboolean(L, 0);
+ lua_pushstring(L, "setrlimit() failed.");
+ return 2;
+ }
+ } else {
+ lua_pushboolean(L, 0);
+ lua_pushstring(L, "Unsupported resoucrce. Sorry I'm pretty limited by POSIX standard.");
+ return 2;
+ }
+ lua_pushboolean(L, 1);
+ return 1;
+}
+
+int lc_getrlimit(lua_State *L) {
+ int arguments = lua_gettop(L);
+ const char *resource = NULL;
+ int rid = -1;
+ rlimit lim;
+
+ if (arguments != 1) {
+ lua_pushboolean(L, 0);
+ lua_pushstring(L, "I expect one argument only, the resource string.");
+ return 2;
+ }
+
+ resource = luaL_checkstring(L, 1);
+ rid = string2resource(resource);
+ if (rid != -1) {
+ if (getrlimit(rid, &lim)) {
+ lua_pushboolean(L, 0);
+ lua_pushstring(L, "getrlimit() failed.");
+ return 2;
+ }
+ } else {
+ lua_pushboolean(L, 0);
+ lua_pushstring(L, "Unsupported resoucrce. Sorry I'm pretty limited by POSIX standard.");
+ return 2;
+ }
+ lua_pushboolean(L, 1);
+ lua_pushnumber(L, lim.rlim_cur);
+ lua_pushnumber(L, lim.rlim_max);
+ return 3;
+}
+
/* Register functions */
int luaopen_util_pposix(lua_State *L)
lua_pushcfunction(L, lc_getpid);
lua_setfield(L, -2, "getpid");
+ lua_pushcfunction(L, lc_getuid);
+ lua_setfield(L, -2, "getuid");
+
+ lua_pushcfunction(L, lc_setuid);
+ lua_setfield(L, -2, "setuid");
+
+ lua_pushcfunction(L, lc_setrlimit);
+ lua_setfield(L, -2, "setrlimit");
+
+ lua_pushcfunction(L, lc_getrlimit);
+ lua_setfield(L, -2, "getrlimit");
+
lua_pushliteral(L, "pposix");
lua_setfield(L, -2, "_NAME");