passenger 4.0.59 → 4.0.60

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

@@ -0,0 +1,56 @@
+
+/*
+ * Copyright (C) Xiaozhe Wang (chaoslawful)
+ * Copyright (C) Yichun Zhang (agentzh)
+ */
+
+
+#ifndef _NGX_HTTP_LUA_DIRECTIVE_H_INCLUDED_
+#define _NGX_HTTP_LUA_DIRECTIVE_H_INCLUDED_
+
+
+#include "ngx_http_lua_common.h"
+
+
+char * ngx_http_lua_shared_dict(ngx_conf_t *cf, ngx_command_t *cmd, void *conf);
+char * ngx_http_lua_package_cpath(ngx_conf_t *cf, ngx_command_t *cmd,
+    void *conf);
+char * ngx_http_lua_package_path(ngx_conf_t *cf, ngx_command_t *cmd,
+    void *conf);
+char * ngx_http_lua_content_by_lua(ngx_conf_t *cf, ngx_command_t *cmd,
+    void *conf);
+char * ngx_http_lua_rewrite_by_lua(ngx_conf_t *cf, ngx_command_t *cmd,
+    void *conf);
+char * ngx_http_lua_access_by_lua(ngx_conf_t *cf, ngx_command_t *cmd,
+    void *conf);
+char * ngx_http_lua_log_by_lua(ngx_conf_t *cf, ngx_command_t *cmd,
+    void *conf);
+char * ngx_http_lua_header_filter_by_lua(ngx_conf_t *cf, ngx_command_t *cmd,
+    void *conf);
+char * ngx_http_lua_body_filter_by_lua(ngx_conf_t *cf, ngx_command_t *cmd,
+    void *conf);
+char * ngx_http_lua_init_by_lua(ngx_conf_t *cf, ngx_command_t *cmd,
+    void *conf);
+char * ngx_http_lua_init_worker_by_lua(ngx_conf_t *cf, ngx_command_t *cmd,
+    void *conf);
+char * ngx_http_lua_code_cache(ngx_conf_t *cf, ngx_command_t *cmd, void *conf);
+
+#if defined(NDK) && NDK
+
+char * ngx_http_lua_set_by_lua(ngx_conf_t *cf, ngx_command_t *cmd, void *conf);
+char * ngx_http_lua_set_by_lua_file(ngx_conf_t *cf, ngx_command_t *cmd,
+    void *conf);
+ngx_int_t ngx_http_lua_filter_set_by_lua_inline(ngx_http_request_t *r,
+    ngx_str_t *val, ngx_http_variable_value_t *v, void *data);
+ngx_int_t ngx_http_lua_filter_set_by_lua_file(ngx_http_request_t *r,
+    ngx_str_t *val, ngx_http_variable_value_t *v, void *data);
+
+#endif
+
+char * ngx_http_lua_rewrite_no_postpone(ngx_conf_t *cf, ngx_command_t *cmd,
+    void *conf);
+
+
+#endif /* _NGX_HTTP_LUA_DIRECTIVE_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_exception.c

@@ -0,0 +1,58 @@
+
+/*
+ * Copyright (C) Xiaozhe Wang (chaoslawful)
+ * Copyright (C) Yichun Zhang (agentzh)
+ */
+
+
+#ifndef DDEBUG
+#define DDEBUG 0
+#endif
+#include "ddebug.h"
+
+
+#include "ngx_http_lua_exception.h"
+#include "ngx_http_lua_util.h"
+
+
+/*  longjmp mark for restoring nginx execution after Lua VM crashing */
+jmp_buf ngx_http_lua_exception;
+
+/**
+ * Override default Lua panic handler, output VM crash reason to nginx error
+ * log, and restore execution to the nearest jmp-mark.
+ *
+ * @param L Lua state pointer
+ * @retval Long jump to the nearest jmp-mark, never returns.
+ * @note nginx request pointer should be stored in Lua thread's globals table
+ * in order to make logging working.
+ * */
+int
+ngx_http_lua_atpanic(lua_State *L)
+{
+#ifdef NGX_LUA_ABORT_AT_PANIC
+    abort();
+#else
+    u_char                  *s = NULL;
+    size_t                   len = 0;
+
+    if (lua_type(L, -1) == LUA_TSTRING) {
+        s = (u_char *) lua_tolstring(L, -1, &len);
+    }
+
+    if (s == NULL) {
+        s = (u_char *) "unknown reason";
+        len = sizeof("unknown reason") - 1;
+    }
+
+    ngx_log_stderr(0, "lua atpanic: Lua VM crashed, reason: %*s", len, s);
+    ngx_quit = 1;
+
+    /*  restore nginx execution */
+    NGX_LUA_EXCEPTION_THROW(1);
+
+    /* impossible to reach here */
+#endif
+}
+
+/* vi:set ft=c ts=4 sw=4 et fdm=marker: */

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

@@ -0,0 +1,33 @@
+
+/*
+ * Copyright (C) Xiaozhe Wang (chaoslawful)
+ * Copyright (C) Yichun Zhang (agentzh)
+ */
+
+
+#ifndef _NGX_HTTP_LUA_EXCEPTION_H_INCLUDED_
+#define _NGX_HTTP_LUA_EXCEPTION_H_INCLUDED_
+
+
+#include "ngx_http_lua_common.h"
+
+
+#define NGX_LUA_EXCEPTION_TRY                                               \
+    if (setjmp(ngx_http_lua_exception) == 0)
+
+#define NGX_LUA_EXCEPTION_CATCH                                             \
+    else
+
+#define NGX_LUA_EXCEPTION_THROW(x)                                          \
+    longjmp(ngx_http_lua_exception, (x))
+
+
+extern jmp_buf ngx_http_lua_exception;
+
+
+int ngx_http_lua_atpanic(lua_State *L);
+
+
+#endif /* _NGX_HTTP_LUA_EXCEPTION_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_headerfilterby.c

@@ -0,0 +1,302 @@
+
+/*
+ * Copyright (C) Yichun Zhang (agentzh)
+ */
+
+
+#ifndef DDEBUG
+#define DDEBUG 0
+#endif
+#include "ddebug.h"
+
+#include "ngx_http_lua_headerfilterby.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"
+
+
+static ngx_http_output_header_filter_pt ngx_http_next_header_filter;
+
+
+/**
+ * Set environment table for the given code closure.
+ *
+ * Before:
+ *         | code closure | <- top
+ *         |      ...     |
+ *
+ * After:
+ *         | code closure | <- top
+ *         |      ...     |
+ * */
+static void
+ngx_http_lua_header_filter_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 /* nrec */);   /* 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_header_filter_by_chunk(lua_State *L, ngx_http_request_t *r)
+{
+    int              old_exit_code = 0;
+    ngx_int_t        rc;
+    u_char          *err_msg;
+    size_t           len;
+#if (NGX_PCRE)
+    ngx_pool_t      *old_pool;
+#endif
+    ngx_http_lua_ctx_t          *ctx;
+
+    ctx = ngx_http_get_module_ctx(r, ngx_http_lua_module);
+    if (ctx->exited) {
+        old_exit_code = ctx->exit_code;
+    }
+
+    /*  initialize nginx context in Lua VM, code chunk at stack top    sp = 1 */
+    ngx_http_lua_header_filter_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
+
+    dd("rc == %d", (int) rc);
+
+    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 header_filter_by_lua*: %*s", len, err_msg);
+
+        lua_settop(L, 0); /*  clear remaining elems on stack */
+
+        return NGX_ERROR;
+    }
+
+    dd("exited: %d, exit code: %d, old exit code: %d",
+       (int) ctx->exited, (int) ctx->exit_code, (int) old_exit_code);
+
+#if 1
+    /*  clear Lua stack */
+    lua_settop(L, 0);
+#endif
+
+    if (ctx->exited && ctx->exit_code != old_exit_code) {
+        if (ctx->exit_code == NGX_ERROR) {
+            return NGX_ERROR;
+        }
+
+        dd("finalize request with %d", (int) ctx->exit_code);
+
+        rc = ngx_http_filter_finalize_request(r, &ngx_http_lua_module,
+                                              ctx->exit_code);
+        if (rc == NGX_ERROR || rc == NGX_AGAIN) {
+            return rc;
+        }
+
+        return NGX_DECLINED;
+    }
+
+    return NGX_OK;
+}
+
+
+ngx_int_t
+ngx_http_lua_header_filter_inline(ngx_http_request_t *r)
+{
+    lua_State                   *L;
+    ngx_int_t                    rc;
+    ngx_http_lua_loc_conf_t     *llcf;
+
+    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->header_filter_src.value.data,
+                                       llcf->header_filter_src.value.len,
+                                       llcf->header_filter_src_key,
+                                       "=header_filter_by_lua");
+    if (rc != NGX_OK) {
+        return NGX_ERROR;
+    }
+
+    dd("calling header filter by chunk");
+
+    return ngx_http_lua_header_filter_by_chunk(L, r);
+}
+
+
+ngx_int_t
+ngx_http_lua_header_filter_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);
+
+    /* Eval nginx variables in code path string first */
+    if (ngx_http_complex_value(r, &llcf->header_filter_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->header_filter_src_key);
+    if (rc != NGX_OK) {
+        return NGX_ERROR;
+    }
+
+    /*  make sure we have a valid code chunk */
+    ngx_http_lua_assert(lua_isfunction(L, -1));
+
+    return ngx_http_lua_header_filter_by_chunk(L, r);
+}
+
+
+static ngx_int_t
+ngx_http_lua_header_filter(ngx_http_request_t *r)
+{
+    ngx_http_lua_loc_conf_t     *llcf;
+    ngx_http_lua_ctx_t          *ctx;
+    ngx_int_t                    rc;
+    ngx_http_cleanup_t          *cln;
+    uint16_t                     old_context;
+
+    ngx_log_debug1(NGX_LOG_DEBUG_HTTP, r->connection->log, 0,
+                   "lua header filter for user lua code, uri \"%V\"", &r->uri);
+
+    llcf = ngx_http_get_module_loc_conf(r, ngx_http_lua_module);
+
+    if (llcf->body_filter_handler) {
+        r->filter_need_in_memory = 1;
+    }
+
+    if (llcf->header_filter_handler == NULL) {
+        dd("no header filter handler found");
+        return ngx_http_next_header_filter(r);
+    }
+
+    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;
+        }
+    }
+
+    if (ctx->cleanup == NULL) {
+        cln = ngx_http_cleanup_add(r, 0);
+        if (cln == NULL) {
+            return NGX_ERROR;
+        }
+
+        cln->handler = ngx_http_lua_request_cleanup_handler;
+        cln->data = ctx;
+        ctx->cleanup = &cln->handler;
+    }
+
+    old_context = ctx->context;
+    ctx->context = NGX_HTTP_LUA_CONTEXT_HEADER_FILTER;
+
+    dd("calling header filter handler");
+    rc = llcf->header_filter_handler(r);
+
+    ctx->context = old_context;
+
+    if (rc == NGX_DECLINED) {
+        return NGX_OK;
+    }
+
+    if (rc == NGX_AGAIN || rc == NGX_ERROR) {
+        return rc;
+    }
+
+    return ngx_http_next_header_filter(r);
+}
+
+
+ngx_int_t
+ngx_http_lua_header_filter_init(void)
+{
+    dd("calling header filter init");
+    ngx_http_next_header_filter = ngx_http_top_header_filter;
+    ngx_http_top_header_filter = ngx_http_lua_header_filter;
+
+    return NGX_OK;
+}
+
+/* vi:set ft=c ts=4 sw=4 et fdm=marker: */