bugfix: ngx.ctx was not accessible at all in set_by_lua*. thanks Pierre.

Author: agentzh

src/ngx_http_lua_setby.c

@@ -40,6 +40,24 @@ ngx_http_lua_set_by_chunk(lua_State *L, ngx_http_request_t *r, ngx_str_t *val,
     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 == NULL) {
+        ctx = ngx_pcalloc(r->pool, sizeof(ngx_http_lua_ctx_t));
+        if (ctx == NULL) {
+            return NGX_HTTP_INTERNAL_SERVER_ERROR;
+        }
+
+        dd("setting new ctx: ctx = %p", ctx);
+
+        ctx->cc_ref = LUA_NOREF;
+        ctx->ctx_ref = LUA_NOREF;
+
+        ngx_http_set_ctx(r, ctx, ngx_http_lua_module);
+    }
+
     /*  set Lua VM panic handler */
     lua_atpanic(L, ngx_http_lua_atpanic);
 

t/033-ctx.t

@@ -10,7 +10,7 @@ use Test::Nginx::Socket;
 repeat_each(2);
 #repeat_each(1);
 
-plan tests => repeat_each() * (blocks() * 2 + 1);
+plan tests => repeat_each() * (blocks() * 2 + 2);
 
 #no_diff();
 #no_long_string();
@@ -180,3 +180,19 @@ dog = hello
 dog = hiya
 parent: nil
 
+
+
+=== TEST 8: set_by_lua
+--- config
+    location /lua {
+        set_by_lua $bar 'ngx.ctx.foo = 3 return 4';
+        set_by_lua $foo 'return ngx.ctx.foo';
+        echo "foo = $foo, bar = $bar";
+    }
+--- request
+GET /lua
+--- response_body
+foo = 3, bar = 4
+--- no_error_log
+[error]
+