modules/lua/lua_request.c

	lua_request.c revision e4709c20138a8cd7c85a6ffba716d85fd2f6cdf5
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd/**
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd * Licensed to the Apache Software Foundation (ASF) under one or more
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd * contributor license agreements.  See the NOTICE file distributed with
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd * this work for additional information regarding copyright ownership.
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd * The ASF licenses this file to You under the Apache License, Version 2.0
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd * (the "License"); you may not use this file except in compliance with
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd * the License.  You may obtain a copy of the License at
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd *
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd * http://www.apache.org/licenses/LICENSE-2.0
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd *
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd * Unless required by applicable law or agreed to in writing, software
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd * distributed under the License is distributed on an "AS IS" BASIS,
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd * See the License for the specific language governing permissions and
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd * limitations under the License.
27e52281f1522522b170cafc76b08b58aa70ccaand */
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd#include "mod_lua.h"
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd#include "util_script.h"
4b5981e276e93df97c34e4da05ca5cf8bbd937dand#include "lua_apr.h"
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd
6116c12fdd3ed06d388fe6572e50a22e9320dfa5ndtypedef char *(*req_field_string_f) (request_rec * r);
ad74a0524a06bfe11b7de9e3b4ce7233ab3bd3f7ndtypedef int (*req_field_int_f) (request_rec * r);
ad74a0524a06bfe11b7de9e3b4ce7233ab3bd3f7ndtypedef apr_table_t *(*req_field_apr_table_f) (request_rec * r);
ecc5150d35c0dc5ee5119c2717e6660fa331abbftakashi
ad74a0524a06bfe11b7de9e3b4ce7233ab3bd3f7ndvoid apl_rstack_dump(lua_State *L, request_rec *r, const char *msg)
63f06dce77bb2d9b1c5aa5deeb47a1069987fd1end{
ecc5150d35c0dc5ee5119c2717e6660fa331abbftakashi    int i;
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    int top = lua_gettop(L);
a76bfec941c4c5e3e1e24d7007108f4d3dac91a5nd
a76bfec941c4c5e3e1e24d7007108f4d3dac91a5nd    ap_log_rerror(APLOG_MARK, APLOG_INFO, 0, r, "Lua Stack Dump: [%s]", msg);
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    for (i = 1; i <= top; i++) {
6df89e6e4adeb986b41b7ec6b7593a887e031ce7nd        int t = lua_type(L, i);
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd        switch (t) {
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd        case LUA_TSTRING:{
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd                ap_log_rerror(APLOG_MARK, APLOG_INFO, 0, r,
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd                              "%d:  '%s'", i, lua_tostring(L, i));
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd                break;
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd            }
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd        case LUA_TUSERDATA:{
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd                ap_log_rerror(APLOG_MARK, APLOG_INFO, 0, r, "%d:  userdata",
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd                              i);
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd                break;
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd            }
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd        case LUA_TLIGHTUSERDATA:{
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd                ap_log_rerror(APLOG_MARK, APLOG_INFO, 0, r,
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd                              "%d:  lightuserdata", i);
71fccc298df6a1540d408151a26aa22beed55d0bnd                break;
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd            }
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd        case LUA_TNIL:{
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd                ap_log_rerror(APLOG_MARK, APLOG_INFO, 0, r, "%d:  NIL", i);
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd                break;
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd            }
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd        case LUA_TNONE:{
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd                ap_log_rerror(APLOG_MARK, APLOG_INFO, 0, r, "%d:  None", i);
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd                break;
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd            }
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd        case LUA_TBOOLEAN:{
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd                ap_log_rerror(APLOG_MARK, APLOG_INFO, 0, r,
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd                              "%d:  %s", i, lua_toboolean(L,
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd                                                          i) ? "true" :
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd                              "false");
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd                break;
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd            }
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd        case LUA_TNUMBER:{
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd                ap_log_rerror(APLOG_MARK, APLOG_INFO, 0, r,
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd                              "%d:  %g", i, lua_tonumber(L, i));
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd                break;
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd            }
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd        case LUA_TTABLE:{
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd                ap_log_rerror(APLOG_MARK, APLOG_INFO, 0, r,
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd                              "%d:  <table>", i);
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd                break;
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd            }
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd        case LUA_TFUNCTION:{
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd                ap_log_rerror(APLOG_MARK, APLOG_INFO, 0, r,
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd                              "%d:  <function>", i);
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd                break;
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd            }
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd        default:{
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd                ap_log_rerror(APLOG_MARK, APLOG_INFO, 0, r,
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd                              "%d:  unkown: -[%s]-", i, lua_typename(L, i));
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd                break;
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd            }
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd        }
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    }
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd}
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd/**
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd * Verify that the thing at index is a request_rec wrapping
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd * userdata thingamajig and return it if it is. if it is not
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd * lua will enter its error handling routine.
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd */
6116c12fdd3ed06d388fe6572e50a22e9320dfa5ndstatic request_rec *apl_check_request_rec(lua_State *L, int index)
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd{
71fccc298df6a1540d408151a26aa22beed55d0bnd    request_rec *r;
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    luaL_checkudata(L, index, "Apache2.Request");
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    r = (request_rec *) lua_unboxpointer(L, index);
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    return r;
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd}
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd/* ------------------ request methods -------------------- */
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd/* helper callback for req_parseargs */
6116c12fdd3ed06d388fe6572e50a22e9320dfa5ndstatic int req_aprtable2luatable_cb(void *l, const char *key,
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd                                    const char *value)
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd{
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    int t;
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    lua_State *L = (lua_State *) l;     /* [table<s,t>, table<s,s>] */
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    /* rstack_dump(L, RRR, "start of cb"); */
5652dbe450e4fcfdf36d4cfb42d7f2345ded29a4maczniak    /* L is [table<s,t>, table<s,s>] */
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    /* build complex */
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    lua_getfield(L, -1, key);   /* [VALUE, table<s,t>, table<s,s>] */
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    /* rstack_dump(L, RRR, "after getfield"); */
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    t = lua_type(L, -1);
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    switch (t) {
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    case LUA_TNIL:
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    case LUA_TNONE:{
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd            lua_pop(L, 1);      /* [table<s,t>, table<s,s>] */
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd            lua_newtable(L);    /* [array, table<s,t>, table<s,s>] */
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd            lua_pushnumber(L, 1);       /* [1, array, table<s,t>, table<s,s>] */
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd            lua_pushstring(L, value);   /* [string, 1, array, table<s,t>, table<s,s>] */
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd            lua_settable(L, -3);        /* [array, table<s,t>, table<s,s>]  */
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd            lua_setfield(L, -2, key);   /* [table<s,t>, table<s,s>] */
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd            break;
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd        }
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    case LUA_TTABLE:{
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd            /* [array, table<s,t>, table<s,s>] */
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd            int size = lua_objlen(L, -1);
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd            lua_pushnumber(L, size + 1);        /* [#, array, table<s,t>, table<s,s>] */
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd            lua_pushstring(L, value);   /* [string, #, array, table<s,t>, table<s,s>] */
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd            lua_settable(L, -3);        /* [array, table<s,t>, table<s,s>] */
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd            lua_setfield(L, -2, key);   /* [table<s,t>, table<s,s>] */
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd            break;
71fccc298df6a1540d408151a26aa22beed55d0bnd        }
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    }
a8703cfb67133446eef7af1043640e71486e9ecand
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    /* L is [table<s,t>, table<s,s>] */
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    /* build simple */
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    lua_getfield(L, -2, key);   /* [VALUE, table<s,s>, table<s,t>] */
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    if (lua_isnoneornil(L, -1)) {       /* only set if not already set */
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd        lua_pop(L, 1);          /* [table<s,s>, table<s,t>]] */
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd        lua_pushstring(L, value);       /* [string, table<s,s>, table<s,t>] */
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd        lua_setfield(L, -3, key);       /* [table<s,s>, table<s,t>]  */
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    }
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    else {
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd        lua_pop(L, 1);
71fccc298df6a1540d408151a26aa22beed55d0bnd    }
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    return 1;
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd}
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd
71fccc298df6a1540d408151a26aa22beed55d0bnd/* r:parseargs() returning a lua table */
71fccc298df6a1540d408151a26aa22beed55d0bndstatic int req_parseargs(lua_State *L)
71fccc298df6a1540d408151a26aa22beed55d0bnd{
71fccc298df6a1540d408151a26aa22beed55d0bnd    apr_table_t *form_table;
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    request_rec *r = apl_check_request_rec(L, 1);
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    lua_newtable(L);
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    lua_newtable(L);            /* [table, table] */
b3c7a2279fa7a45f5807d9a404760b9b3760df50nd    ap_args_to_table(r, &form_table);
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    apr_table_do(req_aprtable2luatable_cb, L, form_table, NULL);
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    return 2;                   /* [table<string, string>, table<string, array<string>>] */
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd}
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd/* wrap ap_rputs as r:puts(String) */
6116c12fdd3ed06d388fe6572e50a22e9320dfa5ndstatic int req_puts(lua_State *L)
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd{
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    request_rec *r = apl_check_request_rec(L, 1);
22d5d84393d960a2027f472036f3fee15d7dbce9nd
22d5d84393d960a2027f472036f3fee15d7dbce9nd    int argc = lua_gettop(L);
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    int i;
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    for (i = 2; i <= argc; i++) {
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd        ap_rputs(luaL_checkstring(L, i), r);
623eebe956d9c2d6d073ed3eae855b56030b40e9noodl    }
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    return 0;
ffb88a4885747797937e30a5ac8b1606da3cb4adnd}
909ce17e2bd0faef7b1c294f2307f009793fd493nd
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd/* wrap ap_rwrite as r:write(String) */
6116c12fdd3ed06d388fe6572e50a22e9320dfa5ndstatic int req_write(lua_State *L)
42af92a661a06b3cebc88d585aad75064a309d51nd{
ffb88a4885747797937e30a5ac8b1606da3cb4adnd    request_rec *r = apl_check_request_rec(L, 1);
6fe26506780e73be2a412d758af77fafdf03291and    size_t n;
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    const char *buf = luaL_checklstring(L, 2, &n);
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    ap_rwrite((void *) buf, n, r);
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    return 0;
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd}
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd
08cf4a15275e4cb65a424b3a1db5410bfb51085cjim/* r:parsebody() */
6116c12fdd3ed06d388fe6572e50a22e9320dfa5ndstatic int req_parsebody(lua_State *L)
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd{
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    apr_table_t *form_table;
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    request_rec *r = apl_check_request_rec(L, 1);
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    lua_newtable(L);
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    lua_newtable(L);
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    if (ap_body_to_table(r, &form_table) == APR_SUCCESS) {
05ede5110427cb9dc071cc671d5aaba5d3b88c79nd        apr_table_do(req_aprtable2luatable_cb, L, form_table, NULL);
e8b603fa9ccf7b17b11b42df6d8916fd97c2331dnd    }
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    return 2;
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd}
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd
611049e38bfbaeb173d2d7fab2e44a48753436a1nd/* r:addoutputfilter(name|function) */
6116c12fdd3ed06d388fe6572e50a22e9320dfa5ndstatic int req_add_output_filter(lua_State *L)
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd{
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    request_rec *r = apl_check_request_rec(L, 1);
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    const char *name = luaL_checkstring(L, 2);
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    ap_log_rerror(APLOG_MARK, APLOG_DEBUG, 0, r, "adding output filter %s",
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd                  name);
03a4ff9ac4c9b8009249010e7c53bb86ff05915and    ap_add_output_filter(name, L, r, r->connection);
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    return 0;
d0828c8a321dc5e9ea60550f052294669c08cf93jim}
d0828c8a321dc5e9ea60550f052294669c08cf93jim
6116c12fdd3ed06d388fe6572e50a22e9320dfa5ndstatic int req_document_root(lua_State *L)
4b5981e276e93df97c34e4da05ca5cf8bbd937dand{
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    request_rec *r = apl_check_request_rec(L, 1);
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    lua_pushstring(L, ap_document_root(r));
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    return 1;
2704de98885368683621b01c8f8f4e4b01557611takashi}
2704de98885368683621b01c8f8f4e4b01557611takashi
2704de98885368683621b01c8f8f4e4b01557611takashi/* BEGIN dispatch mathods for request_rec fields */
d0828c8a321dc5e9ea60550f052294669c08cf93jim
6116c12fdd3ed06d388fe6572e50a22e9320dfa5ndstatic char *req_uri_field(request_rec *r)
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd{
d2b809e5d72658bff23819d8b77f20e4939af541nd    return r->uri;
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd}
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd
6116c12fdd3ed06d388fe6572e50a22e9320dfa5ndstatic const char *req_method_field(request_rec *r)
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd{
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    return r->method;
27d778df0b517e1578f907d2e51eb961cd8ee5fbjim}
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd
a43bfa789f4e52dde53ae8e53fa0427b5c1cf977ndstatic const char *req_hostname_field(request_rec *r)
a43bfa789f4e52dde53ae8e53fa0427b5c1cf977nd{
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    return r->hostname;
1d980e5489836e977ba59b419e27b0ec875c4bd3takashi}
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd
6116c12fdd3ed06d388fe6572e50a22e9320dfa5ndstatic const char *req_args_field(request_rec *r)
0a69d9bb491d9810892a9949c01403a1de3c7ac2nd{
ecc5150d35c0dc5ee5119c2717e6660fa331abbftakashi    return r->args;
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd}
79b024b81f6bb3c44dce77a7552191daf8b522d2jim
f772e8f448c223e5ea306f1bf92d97d968f972d5jimstatic const char *req_path_info_field(request_rec *r)
f772e8f448c223e5ea306f1bf92d97d968f972d5jim{
f772e8f448c223e5ea306f1bf92d97d968f972d5jim    return r->path_info;
fac8c35bfb158112226ab43ddf84d59daca5dc30nd}
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd
6116c12fdd3ed06d388fe6572e50a22e9320dfa5ndstatic const char *req_canonical_filename_field(request_rec *r)
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd{
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    return r->canonical_filename;
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd}
898711b68797304101de0882fa576c8908acfae6nd
6116c12fdd3ed06d388fe6572e50a22e9320dfa5ndstatic const char *req_filename_field(request_rec *r)
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd{
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    return r->filename;
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd}
03c25fb6f628ac81f2ecb637d1e7502dcee783f3nd
6116c12fdd3ed06d388fe6572e50a22e9320dfa5ndstatic const char *req_user_field(request_rec *r)
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd{
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    return r->user;
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd}
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd
6116c12fdd3ed06d388fe6572e50a22e9320dfa5ndstatic const char *req_unparsed_uri_field(request_rec *r)
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd{
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    return r->unparsed_uri;
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd}
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd
6116c12fdd3ed06d388fe6572e50a22e9320dfa5ndstatic const char *req_ap_auth_type_field(request_rec *r)
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd{
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    return r->ap_auth_type;
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd}
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd
71fccc298df6a1540d408151a26aa22beed55d0bndstatic const char *req_content_encoding_field(request_rec *r)
71fccc298df6a1540d408151a26aa22beed55d0bnd{
71fccc298df6a1540d408151a26aa22beed55d0bnd    return r->content_encoding;
71fccc298df6a1540d408151a26aa22beed55d0bnd}
71fccc298df6a1540d408151a26aa22beed55d0bnd
6116c12fdd3ed06d388fe6572e50a22e9320dfa5ndstatic const char *req_content_type_field(request_rec *r)
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd{
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    return r->content_type;
ad74a0524a06bfe11b7de9e3b4ce7233ab3bd3f7nd}
ad74a0524a06bfe11b7de9e3b4ce7233ab3bd3f7nd
ecc5150d35c0dc5ee5119c2717e6660fa331abbftakashistatic const char *req_range_field(request_rec *r)
ad74a0524a06bfe11b7de9e3b4ce7233ab3bd3f7nd{
63f06dce77bb2d9b1c5aa5deeb47a1069987fd1end    return r->range;
ecc5150d35c0dc5ee5119c2717e6660fa331abbftakashi}
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd
6eed902e5b4d3e016e220bfbf8769a87c4cb242enoodlstatic const char *req_protocol_field(request_rec *r)
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd{
6116c12fdd3ed06d388fe6572e50a22e9320dfa5nd    return r->protocol;
}

static const char *req_the_request_field(request_rec *r)
{
    return r->the_request;
}

static int req_status_field(request_rec *r)
{
    return r->status;
}

static int req_assbackwards_field(request_rec *r)
{
    return r->assbackwards;
}

static apr_table_t* req_headers_in(request_rec *r)
{
    return r->headers_in;
}

static apr_table_t* req_headers_out(request_rec *r)
{
    return r->headers_out;
}


/* END dispatch mathods for request_rec fields */

static int req_dispatch(lua_State *L)
{
    apr_hash_t *dispatch;
    req_fun_t *rft;
    request_rec *r = apl_check_request_rec(L, 1);
    const char *name = luaL_checkstring(L, 2);
    lua_pop(L, 2);

    lua_getfield(L, LUA_REGISTRYINDEX, "Apache2.Request.dispatch");
    dispatch = lua_touserdata(L, 1);
    lua_pop(L, 1);

    rft = apr_hash_get(dispatch, name, APR_HASH_KEY_STRING);
    if (rft) {
        switch (rft->type) {
        case APL_REQ_FUNTYPE_TABLE:{
                req_field_apr_table_f func = rft->fun;
                ap_log_rerror(APLOG_MARK, APLOG_DEBUG, 0, r,
                              "request_rec->dispatching %s -> apr table",
                              name);
                apr_table_t *rs;
                rs = (*func)(r);
                apl_push_apr_table(L, rs);
                return 1;
            }

        case APL_REQ_FUNTYPE_LUACFUN:{
                lua_CFunction func = rft->fun;
                ap_log_rerror(APLOG_MARK, APLOG_DEBUG, 0, r,
                              "request_rec->dispatching %s -> lua_CFunction",
                              name);
                lua_pushcfunction(L, func);
                return 1;
            }
        case APL_REQ_FUNTYPE_STRING:{
                req_field_string_f func = rft->fun;
                char *rs;
                ap_log_rerror(APLOG_MARK, APLOG_DEBUG, 0, r,
                              "request_rec->dispatching %s -> string", name);
                rs = (*func) (r);
                lua_pushstring(L, rs);
                return 1;
            }
        case APL_REQ_FUNTYPE_INT:{
                req_field_int_f func = rft->fun;
                int rs;
                ap_log_rerror(APLOG_MARK, APLOG_DEBUG, 0, r,
                              "request_rec->dispatching %s -> int", name);
                rs = (*func) (r);
                lua_pushnumber(L, rs);
                return 1;
            }
        case APL_REQ_FUNTYPE_BOOLEAN:{
                req_field_int_f func = rft->fun;
                int rs;
                ap_log_rerror(APLOG_MARK, APLOG_DEBUG, 0, r,
                              "request_rec->dispatching %s -> boolean", name);
                rs = (*func) (r);
                lua_pushboolean(L, rs);
                return 1;
            }
        }
    }

    ap_log_rerror(APLOG_MARK, APLOG_DEBUG, 0, r, "nothing for %s", name);
    return 0;
}

/* helper function for the logging functions below */
static int req_log_at(lua_State *L, int level)
{
    const char *msg;
    request_rec *r = apl_check_request_rec(L, 1);
    lua_Debug dbg;

    lua_getstack(L, 1, &dbg);
    lua_getinfo(L, "Sl", &dbg);

    msg = luaL_checkstring(L, 2);
    ap_log_rerror(dbg.source, dbg.currentline, level, 0, r, msg);
    return 0;
}

/* r:debug(String) and friends which use apache logging */
static int req_emerg(lua_State *L)
{
    req_log_at(L, APLOG_EMERG);
    return 0;
}
static int req_alert(lua_State *L)
{
    req_log_at(L, APLOG_ALERT);
    return 0;
}
static int req_crit(lua_State *L)
{
    req_log_at(L, APLOG_CRIT);
    return 0;
}
static int req_err(lua_State *L)
{
    req_log_at(L, APLOG_ERR);
    return 0;
}
static int req_warn(lua_State *L)
{
    req_log_at(L, APLOG_WARNING);
    return 0;
}
static int req_notice(lua_State *L)
{
    req_log_at(L, APLOG_NOTICE);
    return 0;
}
static int req_info(lua_State *L)
{
    req_log_at(L, APLOG_INFO);
    return 0;
}
static int req_debug(lua_State *L)
{
    req_log_at(L, APLOG_DEBUG);
    return 0;
}

/* handle r.status = 201 */
static int req_newindex(lua_State *L)
{
    const char *key;
    /* request_rec* r = lua_touserdata(L, lua_upvalueindex(1)); */
    /* const char* key = luaL_checkstring(L, -2); */
    request_rec *r = apl_check_request_rec(L, 1);
    apl_rstack_dump(L, r, "req_newindex");
    key = luaL_checkstring(L, 2);
    apl_rstack_dump(L, r, "req_newindex");
    if (0 == apr_strnatcmp("status", key)) {
        int code = luaL_checkinteger(L, 3);
        r->status = code;
        luaL_getmetatable(L, "Apache2.Request");
        lua_pushinteger(L, code);
        lua_setfield(L, -2, "status");
        lua_pop(L, 1);
        return 0;
    }

    if (0 == apr_strnatcmp("content_type", key)) {
        const char *value = luaL_checkstring(L, 3);
        r->content_type = apr_pstrdup(r->pool, value);
        luaL_getmetatable(L, "Apache2.Request");
        lua_pushstring(L, value);
        lua_setfield(L, -2, "content_type");
        lua_pop(L, 1);
        return 0;
    }

    if (0 == apr_strnatcmp("filename", key)) {
        const char *value = luaL_checkstring(L, 3);
        r->filename = apr_pstrdup(r->pool, value);
        luaL_getmetatable(L, "Apache2.Request");
        lua_pushstring(L, value);
        lua_setfield(L, -2, "filename");
        lua_pop(L, 1);
        return 0;
    }

    if (0 == apr_strnatcmp("uri", key)) {
        const char *value = luaL_checkstring(L, 3);
        r->uri = apr_pstrdup(r->pool, value);
        luaL_getmetatable(L, "Apache2.Request");
        lua_pushstring(L, value);
        lua_setfield(L, -2, "uri");
        lua_pop(L, 1);
        return 0;
    }

    lua_pushstring(L,
                   apr_psprintf(r->pool,
                                "Property [%s] may not be set on a request_rec",
                                key));
    lua_error(L);
    return 0;
}

static const struct luaL_Reg request_methods[] = {
    {"__index", req_dispatch},
    {"__newindex", req_newindex},
    /*   {"__newindex", req_set_field}, */
    {NULL, NULL}
};


static const struct luaL_Reg connection_methods[] = {
    {NULL, NULL}
};


static const struct luaL_Reg server_methods[] = {
    {NULL, NULL}
};


static req_fun_t *makefun(void *fun, int type, apr_pool_t *pool)
{
    req_fun_t *rft = apr_palloc(pool, sizeof(req_fun_t));
    rft->fun = fun;
    rft->type = type;
    return rft;
}

void apl_load_request_lmodule(lua_State *L, apr_pool_t *p)
{

    apr_hash_t *dispatch = apr_hash_make(p);

    apr_hash_set(dispatch, "puts", APR_HASH_KEY_STRING,
                 makefun(&req_puts, APL_REQ_FUNTYPE_LUACFUN, p));
    apr_hash_set(dispatch, "write", APR_HASH_KEY_STRING,
                 makefun(&req_write, APL_REQ_FUNTYPE_LUACFUN, p));
    apr_hash_set(dispatch, "document_root", APR_HASH_KEY_STRING,
                 makefun(&req_document_root, APL_REQ_FUNTYPE_LUACFUN, p));
    apr_hash_set(dispatch, "parseargs", APR_HASH_KEY_STRING,
                 makefun(&req_parseargs, APL_REQ_FUNTYPE_LUACFUN, p));
    apr_hash_set(dispatch, "parsebody", APR_HASH_KEY_STRING,
                 makefun(&req_parsebody, APL_REQ_FUNTYPE_LUACFUN, p));
    apr_hash_set(dispatch, "debug", APR_HASH_KEY_STRING,
                 makefun(&req_debug, APL_REQ_FUNTYPE_LUACFUN, p));
    apr_hash_set(dispatch, "info", APR_HASH_KEY_STRING,
                 makefun(&req_info, APL_REQ_FUNTYPE_LUACFUN, p));
    apr_hash_set(dispatch, "notice", APR_HASH_KEY_STRING,
                 makefun(&req_notice, APL_REQ_FUNTYPE_LUACFUN, p));
    apr_hash_set(dispatch, "warn", APR_HASH_KEY_STRING,
                 makefun(&req_warn, APL_REQ_FUNTYPE_LUACFUN, p));
    apr_hash_set(dispatch, "err", APR_HASH_KEY_STRING,
                 makefun(&req_err, APL_REQ_FUNTYPE_LUACFUN, p));
    apr_hash_set(dispatch, "crit", APR_HASH_KEY_STRING,
                 makefun(&req_crit, APL_REQ_FUNTYPE_LUACFUN, p));
    apr_hash_set(dispatch, "alert", APR_HASH_KEY_STRING,
                 makefun(&req_alert, APL_REQ_FUNTYPE_LUACFUN, p));
    apr_hash_set(dispatch, "emerg", APR_HASH_KEY_STRING,
                 makefun(&req_emerg, APL_REQ_FUNTYPE_LUACFUN, p));
    apr_hash_set(dispatch, "add_output_filter", APR_HASH_KEY_STRING,
                 makefun(&req_add_output_filter, APL_REQ_FUNTYPE_LUACFUN, p));
    apr_hash_set(dispatch, "assbackwards", APR_HASH_KEY_STRING,
                 makefun(&req_assbackwards_field, APL_REQ_FUNTYPE_BOOLEAN,
                         p));
    apr_hash_set(dispatch, "status", APR_HASH_KEY_STRING,
                 makefun(&req_status_field, APL_REQ_FUNTYPE_INT, p));
    apr_hash_set(dispatch, "protocol", APR_HASH_KEY_STRING,
                 makefun(&req_protocol_field, APL_REQ_FUNTYPE_STRING, p));
    apr_hash_set(dispatch, "range", APR_HASH_KEY_STRING,
                 makefun(&req_range_field, APL_REQ_FUNTYPE_STRING, p));
    apr_hash_set(dispatch, "content_type", APR_HASH_KEY_STRING,
                 makefun(&req_content_type_field, APL_REQ_FUNTYPE_STRING, p));
    apr_hash_set(dispatch, "content_encoding", APR_HASH_KEY_STRING,
                 makefun(&req_content_encoding_field, APL_REQ_FUNTYPE_STRING,
                         p));
    apr_hash_set(dispatch, "ap_auth_type", APR_HASH_KEY_STRING,
                 makefun(&req_ap_auth_type_field, APL_REQ_FUNTYPE_STRING, p));
    apr_hash_set(dispatch, "unparsed_uri", APR_HASH_KEY_STRING,
                 makefun(&req_unparsed_uri_field, APL_REQ_FUNTYPE_STRING, p));
    apr_hash_set(dispatch, "user", APR_HASH_KEY_STRING,
                 makefun(&req_user_field, APL_REQ_FUNTYPE_STRING, p));
    apr_hash_set(dispatch, "filename", APR_HASH_KEY_STRING,
                 makefun(&req_filename_field, APL_REQ_FUNTYPE_STRING, p));
    apr_hash_set(dispatch, "canonical_filename", APR_HASH_KEY_STRING,
                 makefun(&req_canonical_filename_field,
                         APL_REQ_FUNTYPE_STRING, p));
    apr_hash_set(dispatch, "path_info", APR_HASH_KEY_STRING,
                 makefun(&req_path_info_field, APL_REQ_FUNTYPE_STRING, p));
    apr_hash_set(dispatch, "args", APR_HASH_KEY_STRING,
                 makefun(&req_args_field, APL_REQ_FUNTYPE_STRING, p));
    apr_hash_set(dispatch, "hostname", APR_HASH_KEY_STRING,
                 makefun(&req_hostname_field, APL_REQ_FUNTYPE_STRING, p));
    apr_hash_set(dispatch, "uri", APR_HASH_KEY_STRING,
                 makefun(&req_uri_field, APL_REQ_FUNTYPE_STRING, p));
    apr_hash_set(dispatch, "the_request", APR_HASH_KEY_STRING,
                 makefun(&req_the_request_field, APL_REQ_FUNTYPE_STRING, p));
    apr_hash_set(dispatch, "method", APR_HASH_KEY_STRING,
                 makefun(&req_method_field, APL_REQ_FUNTYPE_STRING, p));

    apr_hash_set(dispatch, "headers_in", APR_HASH_KEY_STRING,
                 makefun(&req_headers_in, APL_REQ_FUNTYPE_TABLE, p));

    apr_hash_set(dispatch, "headers_out", APR_HASH_KEY_STRING,
                 makefun(&req_headers_out, APL_REQ_FUNTYPE_TABLE, p));


    lua_pushlightuserdata(L, dispatch);
    lua_setfield(L, LUA_REGISTRYINDEX, "Apache2.Request.dispatch");

    luaL_newmetatable(L, "Apache2.Request");    /* [metatable] */
    lua_pushvalue(L, -1);

    lua_setfield(L, -2, "__index");
    luaL_register(L, NULL, request_methods);    /* [metatable] */

    lua_pop(L, 2);

    luaL_newmetatable(L, "Apache2.Connection"); /* [metatable] */
    lua_pushvalue(L, -1);

    lua_setfield(L, -2, "__index");
    luaL_register(L, NULL, connection_methods); /* [metatable] */

    lua_pop(L, 2);

    luaL_newmetatable(L, "Apache2.Server");     /* [metatable] */
    lua_pushvalue(L, -1);

    lua_setfield(L, -2, "__index");
    luaL_register(L, NULL, server_methods);     /* [metatable] */

    lua_pop(L, 2);

}

void apl_push_connection(lua_State *L, conn_rec *c)
{
    lua_boxpointer(L, c);
    luaL_getmetatable(L, "Apache2.Connection");
    lua_setmetatable(L, -2);
    luaL_getmetatable(L, "Apache2.Connection");

    apl_push_apr_table(L, c->notes);
    lua_setfield(L, -2, "notes");

    lua_pushstring(L, c->remote_ip);
    lua_setfield(L, -2, "remote_ip");

    lua_pop(L, 1);
}


void apl_push_server(lua_State *L, server_rec *s)
{
    lua_boxpointer(L, s);
    luaL_getmetatable(L, "Apache2.Server");
    lua_setmetatable(L, -2);
    luaL_getmetatable(L, "Apache2.Server");

    lua_pushstring(L, s->server_hostname);
    lua_setfield(L, -2, "server_hostname");

    lua_pop(L, 1);
}

void apl_push_request(lua_State *L, request_rec *r)
{
    lua_boxpointer(L, r);
    luaL_getmetatable(L, "Apache2.Request");
    lua_setmetatable(L, -2);
}