passenger 4.0.59 → 4.0.60

data/packaging/debian/debian_specs/nginx/modules/nginx-lua/src/ngx_http_lua_log.h

@@ -0,0 +1,20 @@
+
+/*
+ * Copyright (C) Xiaozhe Wang (chaoslawful)
+ * Copyright (C) Yichun Zhang (agentzh)
+ */
+
+
+#ifndef _NGX_HTTP_LUA_LOG_H_INCLUDED_
+#define _NGX_HTTP_LUA_LOG_H_INCLUDED_
+
+
+#include "ngx_http_lua_common.h"
+
+
+void ngx_http_lua_inject_log_api(lua_State *L);
+
+
+#endif /* _NGX_HTTP_LUA_LOG_H_INCLUDED_ */
+
+/* vi:set ft=c ts=4 sw=4 et fdm=marker: */

data/packaging/debian/debian_specs/nginx/modules/nginx-lua/src/ngx_http_lua_logby.c

@@ -0,0 +1,227 @@
+
+/*
+ * Copyright (C) Yichun Zhang (agentzh)
+ */
+
+
+#ifndef DDEBUG
+#define DDEBUG 0
+#endif
+#include "ddebug.h"
+
+
+#include "ngx_http_lua_directive.h"
+#include "ngx_http_lua_logby.h"
+#include "ngx_http_lua_exception.h"
+#include "ngx_http_lua_util.h"
+#include "ngx_http_lua_pcrefix.h"
+#include "ngx_http_lua_time.h"
+#include "ngx_http_lua_log.h"
+#include "ngx_http_lua_regex.h"
+#include "ngx_http_lua_cache.h"
+#include "ngx_http_lua_headers.h"
+#include "ngx_http_lua_variable.h"
+#include "ngx_http_lua_string.h"
+#include "ngx_http_lua_misc.h"
+#include "ngx_http_lua_consts.h"
+#include "ngx_http_lua_shdict.h"
+#include "ngx_http_lua_util.h"
+#include "ngx_http_lua_exception.h"
+
+
+static ngx_int_t ngx_http_lua_log_by_chunk(lua_State *L, ngx_http_request_t *r);
+
+
+static void
+ngx_http_lua_log_by_lua_env(lua_State *L, ngx_http_request_t *r)
+{
+    /*  set nginx request pointer to current lua thread's globals table */
+    ngx_http_lua_set_req(L, r);
+
+    /**
+     * we want to create empty environment for current script
+     *
+     * newt = {}
+     * newt["_G"] = newt
+     * setmetatable(newt, {__index = _G})
+     *
+     * if a function or symbol is not defined in our env, __index will lookup
+     * in the global env.
+     *
+     * all variables created in the script-env will be thrown away at the end
+     * of the script run.
+     * */
+    ngx_http_lua_create_new_globals_table(L, 0 /* narr */, 1 /* nrec */);
+
+    /*  {{{ make new env inheriting main thread's globals table */
+    lua_createtable(L, 0, 1);    /*  the metatable for the new env */
+    ngx_http_lua_get_globals_table(L);
+    lua_setfield(L, -2, "__index");
+    lua_setmetatable(L, -2);    /*  setmetatable({}, {__index = _G}) */
+    /*  }}} */
+
+    lua_setfenv(L, -2);    /*  set new running env for the code closure */
+}
+
+
+ngx_int_t
+ngx_http_lua_log_handler(ngx_http_request_t *r)
+{
+    ngx_http_lua_loc_conf_t     *llcf;
+    ngx_http_lua_ctx_t          *ctx;
+
+    ngx_log_debug2(NGX_LOG_DEBUG_HTTP, r->connection->log, 0,
+                   "lua log handler, uri:\"%V\" c:%ud", &r->uri,
+                   r->main->count);
+
+    llcf = ngx_http_get_module_loc_conf(r, ngx_http_lua_module);
+
+    if (llcf->log_handler == NULL) {
+        dd("no log handler found");
+        return NGX_DECLINED;
+    }
+
+    ctx = ngx_http_get_module_ctx(r, ngx_http_lua_module);
+
+    dd("ctx = %p", ctx);
+
+    if (ctx == NULL) {
+        ctx = ngx_http_lua_create_ctx(r);
+        if (ctx == NULL) {
+            return NGX_ERROR;
+        }
+    }
+
+    ctx->context = NGX_HTTP_LUA_CONTEXT_LOG;
+
+    dd("calling log handler");
+    return llcf->log_handler(r);
+}
+
+
+ngx_int_t
+ngx_http_lua_log_handler_inline(ngx_http_request_t *r)
+{
+    lua_State                   *L;
+    ngx_int_t                    rc;
+    ngx_http_lua_loc_conf_t     *llcf;
+
+    dd("log by lua inline");
+
+    llcf = ngx_http_get_module_loc_conf(r, ngx_http_lua_module);
+
+    L = ngx_http_lua_get_lua_vm(r, NULL);
+
+    /*  load Lua inline script (w/ cache) sp = 1 */
+    rc = ngx_http_lua_cache_loadbuffer(r, L, llcf->log_src.value.data,
+                                       llcf->log_src.value.len,
+                                       llcf->log_src_key,
+                                       (const char *) llcf->log_chunkname);
+    if (rc != NGX_OK) {
+        return NGX_ERROR;
+    }
+
+    return ngx_http_lua_log_by_chunk(L, r);
+}
+
+
+ngx_int_t
+ngx_http_lua_log_handler_file(ngx_http_request_t *r)
+{
+    lua_State                       *L;
+    ngx_int_t                        rc;
+    u_char                          *script_path;
+    ngx_http_lua_loc_conf_t         *llcf;
+    ngx_str_t                        eval_src;
+
+    llcf = ngx_http_get_module_loc_conf(r, ngx_http_lua_module);
+
+    if (ngx_http_complex_value(r, &llcf->log_src, &eval_src) != NGX_OK) {
+        return NGX_ERROR;
+    }
+
+    script_path = ngx_http_lua_rebase_path(r->pool, eval_src.data,
+                                           eval_src.len);
+
+    if (script_path == NULL) {
+        return NGX_ERROR;
+    }
+
+    L = ngx_http_lua_get_lua_vm(r, NULL);
+
+    /*  load Lua script file (w/ cache)        sp = 1 */
+    rc = ngx_http_lua_cache_loadfile(r, L, script_path, llcf->log_src_key);
+    if (rc != NGX_OK) {
+        return NGX_ERROR;
+    }
+
+    return ngx_http_lua_log_by_chunk(L, r);
+}
+
+
+ngx_int_t
+ngx_http_lua_log_by_chunk(lua_State *L, ngx_http_request_t *r)
+{
+    ngx_int_t        rc;
+    u_char          *err_msg;
+    size_t           len;
+#if (NGX_PCRE)
+    ngx_pool_t      *old_pool;
+#endif
+
+    /*  set Lua VM panic handler */
+    lua_atpanic(L, ngx_http_lua_atpanic);
+
+    NGX_LUA_EXCEPTION_TRY {
+
+        /* initialize nginx context in Lua VM, code chunk at stack top sp = 1 */
+        ngx_http_lua_log_by_lua_env(L, r);
+
+#if (NGX_PCRE)
+        /* XXX: work-around to nginx regex subsystem */
+        old_pool = ngx_http_lua_pcre_malloc_init(r->pool);
+#endif
+
+        lua_pushcfunction(L, ngx_http_lua_traceback);
+        lua_insert(L, 1);  /* put it under chunk and args */
+
+        /*  protected call user code */
+        rc = lua_pcall(L, 0, 1, 1);
+
+        lua_remove(L, 1);  /* remove traceback function */
+
+#if (NGX_PCRE)
+        /* XXX: work-around to nginx regex subsystem */
+        ngx_http_lua_pcre_malloc_done(old_pool);
+#endif
+
+        if (rc != 0) {
+            /*  error occured when running loaded code */
+            err_msg = (u_char *) lua_tolstring(L, -1, &len);
+
+            if (err_msg == NULL) {
+                err_msg = (u_char *) "unknown reason";
+                len = sizeof("unknown reason") - 1;
+            }
+
+            ngx_log_error(NGX_LOG_ERR, r->connection->log, 0,
+                          "failed to run log_by_lua*: %*s", len, err_msg);
+
+            lua_settop(L, 0);    /*  clear remaining elems on stack */
+
+            return NGX_ERROR;
+        }
+
+    } NGX_LUA_EXCEPTION_CATCH {
+
+        dd("nginx execution restored");
+        return NGX_ERROR;
+    }
+
+    /*  clear Lua stack */
+    lua_settop(L, 0);
+
+    return NGX_OK;
+}
+
+/* vi:set ft=c ts=4 sw=4 et fdm=marker: */

data/packaging/debian/debian_specs/nginx/modules/nginx-lua/src/ngx_http_lua_logby.h

@@ -0,0 +1,22 @@
+
+/*
+ * Copyright (C) Yichun Zhang (agentzh)
+ */
+
+
+#ifndef _NGX_HTTP_LUA_LOGBY_H_INCLUDED_
+#define _NGX_HTTP_LUA_LOGBY_H_INCLUDED_
+
+
+#include "ngx_http_lua_common.h"
+
+
+ngx_int_t ngx_http_lua_log_handler(ngx_http_request_t *r);
+ngx_int_t ngx_http_lua_log_handler_inline(ngx_http_request_t *r);
+ngx_int_t ngx_http_lua_log_handler_file(ngx_http_request_t *r);
+void ngx_http_lua_inject_logby_ngx_api(ngx_conf_t *cf, lua_State *L);
+
+
+#endif /* _NGX_HTTP_LUA_LOGBY_H_INCLUDED_ */
+
+/* vi:set ft=c ts=4 sw=4 et fdm=marker: */

data/packaging/debian/debian_specs/nginx/modules/nginx-lua/src/ngx_http_lua_misc.c

@@ -0,0 +1,252 @@
+
+/*
+ * Copyright (C) Xiaozhe Wang (chaoslawful)
+ * Copyright (C) Yichun Zhang (agentzh)
+ */
+
+
+#ifndef DDEBUG
+#define DDEBUG 0
+#endif
+#include "ddebug.h"
+
+
+#include "ngx_http_lua_misc.h"
+#include "ngx_http_lua_ctx.h"
+#include "ngx_http_lua_util.h"
+
+
+static int ngx_http_lua_ngx_get(lua_State *L);
+static int ngx_http_lua_ngx_set(lua_State *L);
+
+
+void
+ngx_http_lua_inject_misc_api(lua_State *L)
+{
+    /* ngx. getter and setter */
+    lua_createtable(L, 0, 2); /* metatable for .ngx */
+    lua_pushcfunction(L, ngx_http_lua_ngx_get);
+    lua_setfield(L, -2, "__index");
+    lua_pushcfunction(L, ngx_http_lua_ngx_set);
+    lua_setfield(L, -2, "__newindex");
+    lua_setmetatable(L, -2);
+}
+
+
+static int
+ngx_http_lua_ngx_get(lua_State *L)
+{
+    int                          status;
+    ngx_http_request_t          *r;
+    u_char                      *p;
+    size_t                       len;
+
+    r = ngx_http_lua_get_req(L);
+    if (r == NULL) {
+        return luaL_error(L, "no request object found");
+    }
+
+    p = (u_char *) luaL_checklstring(L, -1, &len);
+
+    dd("ngx get %s", p);
+
+    if (len == sizeof("status") - 1
+        && ngx_strncmp(p, "status", sizeof("status") - 1) == 0)
+    {
+        ngx_http_lua_check_fake_request(L, r);
+
+        if (r->err_status) {
+            status = r->err_status;
+
+        } else if (r->headers_out.status) {
+            status = r->headers_out.status;
+
+        } else if (r->http_version == NGX_HTTP_VERSION_9) {
+            status = 9;
+
+        } else {
+            status = 0;
+        }
+
+        lua_pushinteger(L, status);
+        return 1;
+    }
+
+    if (len == sizeof("ctx") - 1
+        && ngx_strncmp(p, "ctx", sizeof("ctx") - 1) == 0)
+    {
+        return ngx_http_lua_ngx_get_ctx(L);
+    }
+
+    if (len == sizeof("is_subrequest") - 1
+        && ngx_strncmp(p, "is_subrequest", sizeof("is_subrequest") - 1) == 0)
+    {
+        lua_pushboolean(L, r != r->main);
+        return 1;
+    }
+
+    if (len == sizeof("headers_sent") - 1
+        && ngx_strncmp(p, "headers_sent", sizeof("headers_sent") - 1) == 0)
+    {
+        ngx_http_lua_check_fake_request(L, r);
+
+        dd("headers sent: %d", r->header_sent);
+
+        lua_pushboolean(L, r->header_sent ? 1 : 0);
+        return 1;
+    }
+
+    dd("key %s not matched", p);
+
+    lua_pushnil(L);
+    return 1;
+}
+
+
+static int
+ngx_http_lua_ngx_set(lua_State *L)
+{
+    ngx_http_request_t          *r;
+    u_char                      *p;
+    size_t                       len;
+
+    /* we skip the first argument that is the table */
+    p = (u_char *) luaL_checklstring(L, 2, &len);
+
+    if (len == sizeof("status") - 1
+        && ngx_strncmp(p, "status", sizeof("status") - 1) == 0)
+    {
+        r = ngx_http_lua_get_req(L);
+        if (r == NULL) {
+            return luaL_error(L, "no request object found");
+        }
+
+        if (r->header_sent) {
+            ngx_log_error(NGX_LOG_ERR, r->connection->log, 0,
+                          "attempt to set ngx.status after sending out "
+                          "response headers");
+            return 0;
+        }
+
+        ngx_http_lua_check_fake_request(L, r);
+
+        /* get the value */
+        r->headers_out.status = (ngx_uint_t) luaL_checknumber(L, 3);
+
+        if (r->headers_out.status == 101) {
+            /*
+             * XXX work-around a bug in the Nginx core that 101 does
+             * not have a default status line
+             */
+
+            ngx_str_set(&r->headers_out.status_line, "101 Switching Protocols");
+
+        } else {
+            r->headers_out.status_line.len = 0;
+        }
+
+        return 0;
+    }
+
+    if (len == sizeof("ctx") - 1
+        && ngx_strncmp(p, "ctx", sizeof("ctx") - 1) == 0)
+    {
+        r = ngx_http_lua_get_req(L);
+        if (r == NULL) {
+            return luaL_error(L, "no request object found");
+        }
+
+        return ngx_http_lua_ngx_set_ctx(L);
+    }
+
+    lua_rawset(L, -3);
+    return 0;
+}
+
+
+#ifndef NGX_LUA_NO_FFI_API
+int
+ngx_http_lua_ffi_get_resp_status(ngx_http_request_t *r)
+{
+    if (r->connection->fd == -1) {
+        return NGX_HTTP_LUA_FFI_BAD_CONTEXT;
+    }
+
+    if (r->err_status) {
+        return r->err_status;
+
+    } else if (r->headers_out.status) {
+        return r->headers_out.status;
+
+    } else if (r->http_version == NGX_HTTP_VERSION_9) {
+        return 9;
+
+    } else {
+        return 0;
+    }
+}
+
+
+int
+ngx_http_lua_ffi_set_resp_status(ngx_http_request_t *r, int status)
+{
+    if (r->connection->fd == -1) {
+        return NGX_HTTP_LUA_FFI_BAD_CONTEXT;
+    }
+
+    if (r->header_sent) {
+        ngx_log_error(NGX_LOG_ERR, r->connection->log, 0,
+                      "attempt to set ngx.status after sending out "
+                      "response headers");
+        return NGX_DECLINED;
+    }
+
+    r->headers_out.status = status;
+
+    if (status == 101) {
+        /*
+         * XXX work-around a bug in the Nginx core older than 1.5.5
+         * that 101 does not have a default status line
+         */
+
+        ngx_str_set(&r->headers_out.status_line, "101 Switching Protocols");
+
+    } else {
+        r->headers_out.status_line.len = 0;
+    }
+
+    return NGX_OK;
+}
+
+
+int
+ngx_http_lua_ffi_is_subrequest(ngx_http_request_t *r)
+{
+    if (r->connection->fd == -1) {
+        return NGX_HTTP_LUA_FFI_BAD_CONTEXT;
+    }
+
+    return r != r->main;
+}
+
+
+int
+ngx_http_lua_ffi_headers_sent(ngx_http_request_t *r)
+{
+    ngx_http_lua_ctx_t          *ctx;
+
+    ctx = ngx_http_get_module_ctx(r, ngx_http_lua_module);
+    if (ctx == NULL) {
+        return NGX_HTTP_LUA_FFI_NO_REQ_CTX;
+    }
+
+    if (r->connection->fd == -1) {
+        return NGX_HTTP_LUA_FFI_BAD_CONTEXT;
+    }
+
+    return r->header_sent ? 1 : 0;
+}
+#endif /* NGX_LUA_NO_FFI_API */
+
+
+/* vi:set ft=c ts=4 sw=4 et fdm=marker: */