From 57ad1b3a49b136dd282627b0fa68b987ee35ec7f Mon Sep 17 00:00:00 2001
From: Tobias Markmann <tm@ayena.de>
Date: Sun, 22 Feb 2009 20:35:41 +0100
Subject: Adding setrlimits() binding.

---
 util-src/pposix.c | 82 +++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 82 insertions(+)

(limited to 'util-src/pposix.c')

diff --git a/util-src/pposix.c b/util-src/pposix.c
index 075c9c8e..15ad8641 100644
--- a/util-src/pposix.c
+++ b/util-src/pposix.c
@@ -1,6 +1,7 @@
 /* Prosody IM v0.3
 -- Copyright (C) 2008-2009 Matthew Wild
 -- Copyright (C) 2008-2009 Waqas Hussain
+-- Copyright 2009 Tobias Markmann
 -- 
 -- This project is MIT/X11 licensed. Please see the
 -- COPYING file in the source package for more information.
@@ -17,6 +18,7 @@
 #include <stdlib.h>
 #include <unistd.h>
 #include <libgen.h>
+#include <sys/resource.h>
 #include <sys/types.h>
 #include <sys/stat.h>
 #include <fcntl.h>
@@ -289,6 +291,80 @@ int lc_setuid(lua_State* L)
 	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) {
+	return 0;
+}
+
 /* Register functions */
 
 int luaopen_util_pposix(lua_State *L)
@@ -318,6 +394,12 @@ int luaopen_util_pposix(lua_State *L)
 
 	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");
-- 
cgit v1.2.3