--- a/util-src/pposix.c Thu Jan 15 20:02:28 2009 +0000
+++ b/util-src/pposix.c Thu Jan 15 20:06:41 2009 +0000
@@ -28,7 +28,14 @@
#include <sys/stat.h>
#include <fcntl.h>
+#include <syslog.h>
+
+#include <string.h>
+
#include "lua.h"
+#include "lauxlib.h"
+
+/* Daemonization support */
static int daemonize(lua_State *L)
{
@@ -83,10 +90,132 @@
return 2;
}
+/* Syslog support */
+
+char *facility_strings[] = { "auth",
+ "authpriv",
+ "cron",
+ "daemon",
+ "ftp",
+ "kern",
+ "local0",
+ "local1",
+ "local2",
+ "local3",
+ "local4",
+ "local5",
+ "local6",
+ "local7",
+ "lpr",
+ "mail",
+ "syslog",
+ "user",
+ "uucp",
+ NULL
+ };
+int facility_constants[] = {
+ LOG_AUTH,
+ LOG_AUTHPRIV,
+ LOG_CRON,
+ LOG_DAEMON,
+ LOG_FTP,
+ LOG_KERN,
+ LOG_LOCAL0,
+ LOG_LOCAL1,
+ LOG_LOCAL2,
+ LOG_LOCAL3,
+ LOG_LOCAL4,
+ LOG_LOCAL5,
+ LOG_LOCAL6,
+ LOG_LOCAL7,
+ LOG_LPR,
+ LOG_MAIL,
+ LOG_NEWS,
+ LOG_SYSLOG,
+ LOG_USER,
+ LOG_UUCP,
+ -1
+ };
+
+/* "
+ The parameter ident in the call of openlog() is probably stored as-is.
+ Thus, if the string it points to is changed, syslog() may start
+ prepending the changed string, and if the string it points to ceases to
+ exist, the results are undefined. Most portable is to use a string
+ constant.
+ " -- syslog manpage
+*/
+char* syslog_ident = NULL;
+
+int syslog_open(lua_State* L)
+{
+ int facility = luaL_checkoption(L, 2, "daemon", &facility_strings);
+ facility = facility_constants[facility];
+
+ luaL_checkstring(L, 1);
+
+ if(syslog_ident)
+ free(syslog_ident);
+
+ syslog_ident = strdup(lua_tostring(L, 1));
+
+ openlog(syslog_ident, LOG_PID, facility);
+ return 0;
+}
+
+char *level_strings[] = {
+ "debug",
+ "info",
+ "notice",
+ "warn",
+ "error",
+ NULL
+ };
+int level_constants[] = {
+ LOG_DEBUG,
+ LOG_INFO,
+ LOG_NOTICE,
+ LOG_WARNING,
+ LOG_EMERG,
+ -1
+ };
+int syslog_log(lua_State* L)
+{
+ int level = luaL_checkoption(L, 1, "notice", &level_strings);
+ level = level_constants[level];
+
+ luaL_checkstring(L, 2);
+
+ syslog(level, "%s", lua_tostring(L, 2));
+ return 0;
+}
+
+int syslog_close(lua_State* L)
+{
+ closelog();
+ if(syslog_ident)
+ {
+ free(syslog_ident);
+ syslog_ident = NULL;
+ }
+ return 0;
+}
+
int luaopen_util_pposix(lua_State *L)
{
lua_newtable(L);
+
lua_pushcfunction(L, daemonize);
lua_setfield(L, -2, "daemonize");
+
+ lua_pushcfunction(L, syslog_open);
+ lua_setfield(L, -2, "syslog_open");
+
+ lua_pushcfunction(L, syslog_close);
+ lua_setfield(L, -2, "syslog_close");
+
+ lua_pushcfunction(L, syslog_log);
+ lua_setfield(L, -2, "syslog_log");
+
return 1;
};