b38846b15c8891c6dec44dcc4f96ca40721bf663rbb

9d129b55f5a43abf43865c6b0eb6dd19bc22aba8ianh#include "mod_lua.h"

9d129b55f5a43abf43865c6b0eb6dd19bc22aba8ianh#include "lua_apr.h"

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb#include "lua_dbd.h"

9d129b55f5a43abf43865c6b0eb6dd19bc22aba8ianh#include "lua_passwd.h"

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb#include "scoreboard.h"

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb#include "util_md5.h"

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb#include "util_script.h"

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb#include "util_varbuf.h"

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb#include "apr_date.h"

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb#include "apr_pools.h"

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb#include "apr_thread_mutex.h"

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb#include "apr_tables.h"

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb#include "util_cookies.h"

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb#define APR_WANT_BYTEFUNC

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb#include "apr_want.h"

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb

b38846b15c8891c6dec44dcc4f96ca40721bf663rbbextern apr_global_mutex_t* lua_ivm_mutex;

b38846b15c8891c6dec44dcc4f96ca40721bf663rbbextern apr_shm_t *lua_ivm_shm;

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb

b38846b15c8891c6dec44dcc4f96ca40721bf663rbbAPLOG_USE_MODULE(lua);

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb#define POST_MAX_VARS 500

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb#ifndef MODLUA_MAX_REG_MATCH

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb#define MODLUA_MAX_REG_MATCH 25

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb#endif

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb

b38846b15c8891c6dec44dcc4f96ca40721bf663rbbtypedef char *(*req_field_string_f) (request_rec * r);

f888346b48f5e5b5e3f0a47dedb8cefd2759a4e2gregamestypedef int (*req_field_int_f) (request_rec * r);

b38846b15c8891c6dec44dcc4f96ca40721bf663rbbtypedef req_table_t *(*req_field_apr_table_f) (request_rec * r);

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb

b38846b15c8891c6dec44dcc4f96ca40721bf663rbbvoid ap_lua_rstack_dump(lua_State *L, request_rec *r, const char *msg)

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb{

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb int i;

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb int top = lua_gettop(L);

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb ap_log_rerror(APLOG_MARK, APLOG_INFO, 0, r, APLOGNO(01484) "Lua Stack Dump: [%s]", msg);

d4abb06ac220bb280ae996b6d21bbd257db51bb1jerenkrantz for (i = 1; i <= top; i++) {

d4abb06ac220bb280ae996b6d21bbd257db51bb1jerenkrantz int t = lua_type(L, i);

d4abb06ac220bb280ae996b6d21bbd257db51bb1jerenkrantz switch (t) {

d4abb06ac220bb280ae996b6d21bbd257db51bb1jerenkrantz case LUA_TSTRING:{

d4abb06ac220bb280ae996b6d21bbd257db51bb1jerenkrantz ap_log_rerror(APLOG_MARK, APLOG_INFO, 0, r,

d4abb06ac220bb280ae996b6d21bbd257db51bb1jerenkrantz "%d: '%s'", i, lua_tostring(L, i));

d4abb06ac220bb280ae996b6d21bbd257db51bb1jerenkrantz break;

d4abb06ac220bb280ae996b6d21bbd257db51bb1jerenkrantz }

d4abb06ac220bb280ae996b6d21bbd257db51bb1jerenkrantz case LUA_TUSERDATA:{

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb ap_log_rerror(APLOG_MARK, APLOG_INFO, 0, r, "%d: userdata",

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb i);

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb break;

4f9c22c4f27571d54197be9674e1fc0d528192aestriker }

a2a0abd88b19e042a3eb2a9fa1702c25ad51303dwrowe case LUA_TLIGHTUSERDATA:{

4f9c22c4f27571d54197be9674e1fc0d528192aestriker ap_log_rerror(APLOG_MARK, APLOG_INFO, 0, r,

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb "%d: lightuserdata", i);

4f9c22c4f27571d54197be9674e1fc0d528192aestriker break;

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb }

4f9c22c4f27571d54197be9674e1fc0d528192aestriker case LUA_TNIL:{

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb ap_log_rerror(APLOG_MARK, APLOG_INFO, 0, r, "%d: NIL", i);

4f9c22c4f27571d54197be9674e1fc0d528192aestriker break;

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb }

4f9c22c4f27571d54197be9674e1fc0d528192aestriker case LUA_TNONE:{

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb ap_log_rerror(APLOG_MARK, APLOG_INFO, 0, r, "%d: None", i);

4f9c22c4f27571d54197be9674e1fc0d528192aestriker break;

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb }

4f9c22c4f27571d54197be9674e1fc0d528192aestriker case LUA_TBOOLEAN:{

4f9c22c4f27571d54197be9674e1fc0d528192aestriker ap_log_rerror(APLOG_MARK, APLOG_INFO, 0, r,

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb "%d: %s", i, lua_toboolean(L,

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe i) ? "true" :

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe "false");

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe break;

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe }

2d399cd7535887fceaa9f8f116eb98ce68ddd602trawick case LUA_TNUMBER:{

c2cf53a40a9814eb91db2cdf820f97d943f21628coar ap_log_rerror(APLOG_MARK, APLOG_INFO, 0, r,

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe "%d: %g", i, lua_tonumber(L, i));

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe break;

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar }

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe case LUA_TTABLE:{

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar ap_log_rerror(APLOG_MARK, APLOG_INFO, 0, r,

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe "%d: <table>", i);

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe break;

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe }

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe case LUA_TFUNCTION:{

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe ap_log_rerror(APLOG_MARK, APLOG_INFO, 0, r,

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe "%d: <function>", i);

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe break;

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe }

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe default:{

3e392a5afd51526de3cb15d57ee46d8cb160ae65gregames ap_log_rerror(APLOG_MARK, APLOG_INFO, 0, r,

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe "%d: unknown: -[%s]-", i, lua_typename(L, i));

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe break;

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe }

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe }

8419e6f8bff1a3617933f3ba760d2bdec7442f44coar }

8419e6f8bff1a3617933f3ba760d2bdec7442f44coar}

8419e6f8bff1a3617933f3ba760d2bdec7442f44coar

d4abb06ac220bb280ae996b6d21bbd257db51bb1jerenkrantzstatic request_rec *ap_lua_check_request_rec(lua_State *L, int index)

2a6e98ba4ffa30ded5d8831664c5cb2a170a56b6coar{

8419e6f8bff1a3617933f3ba760d2bdec7442f44coar request_rec *r;

8419e6f8bff1a3617933f3ba760d2bdec7442f44coar luaL_checkudata(L, index, "Apache2.Request");

8419e6f8bff1a3617933f3ba760d2bdec7442f44coar r = (request_rec *) lua_unboxpointer(L, index);

8419e6f8bff1a3617933f3ba760d2bdec7442f44coar return r;

8419e6f8bff1a3617933f3ba760d2bdec7442f44coar}

8419e6f8bff1a3617933f3ba760d2bdec7442f44coar

d4abb06ac220bb280ae996b6d21bbd257db51bb1jerenkrantzstatic int req_aprtable2luatable_cb(void *l, const char *key,

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe const char *value)

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe{

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe int t;

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe lua_State *L = (lua_State *) l; /* [table<s,t>, table<s,s>] */

4f9c22c4f27571d54197be9674e1fc0d528192aestriker /* rstack_dump(L, RRR, "start of cb"); */

4f9c22c4f27571d54197be9674e1fc0d528192aestriker /* L is [table<s,t>, table<s,s>] */

3e392a5afd51526de3cb15d57ee46d8cb160ae65gregames /* build complex */

fa06de8a28a737e8fbaad76d7f3ff67aaa5e4a09wrowe

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar lua_getfield(L, -1, key); /* [VALUE, table<s,t>, table<s,s>] */

fa06de8a28a737e8fbaad76d7f3ff67aaa5e4a09wrowe /* rstack_dump(L, RRR, "after getfield"); */

fa06de8a28a737e8fbaad76d7f3ff67aaa5e4a09wrowe t = lua_type(L, -1);

fa06de8a28a737e8fbaad76d7f3ff67aaa5e4a09wrowe switch (t) {

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe case LUA_TNIL:

fa06de8a28a737e8fbaad76d7f3ff67aaa5e4a09wrowe case LUA_TNONE:{

fa06de8a28a737e8fbaad76d7f3ff67aaa5e4a09wrowe lua_pop(L, 1); /* [table<s,t>, table<s,s>] */

fa06de8a28a737e8fbaad76d7f3ff67aaa5e4a09wrowe lua_newtable(L); /* [array, table<s,t>, table<s,s>] */

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe lua_pushnumber(L, 1); /* [1, array, table<s,t>, table<s,s>] */

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe lua_pushstring(L, value); /* [string, 1, array, table<s,t>, table<s,s>] */

4f9c22c4f27571d54197be9674e1fc0d528192aestriker lua_settable(L, -3); /* [array, table<s,t>, table<s,s>] */

fa06de8a28a737e8fbaad76d7f3ff67aaa5e4a09wrowe lua_setfield(L, -2, key); /* [table<s,t>, table<s,s>] */

fa06de8a28a737e8fbaad76d7f3ff67aaa5e4a09wrowe break;

fa06de8a28a737e8fbaad76d7f3ff67aaa5e4a09wrowe }

c2cf53a40a9814eb91db2cdf820f97d943f21628coar case LUA_TTABLE:{

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe /* [array, table<s,t>, table<s,s>] */

4775dfc34c90fada8c7c4d6a57ed8a3114d55c2dtrawick int size = lua_objlen(L, -1);

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe lua_pushnumber(L, size + 1); /* [#, array, table<s,t>, table<s,s>] */

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe lua_pushstring(L, value); /* [string, #, array, table<s,t>, table<s,s>] */

fa06de8a28a737e8fbaad76d7f3ff67aaa5e4a09wrowe lua_settable(L, -3); /* [array, table<s,t>, table<s,s>] */

fa06de8a28a737e8fbaad76d7f3ff67aaa5e4a09wrowe lua_setfield(L, -2, key); /* [table<s,t>, table<s,s>] */

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar break;

fa06de8a28a737e8fbaad76d7f3ff67aaa5e4a09wrowe }

fa06de8a28a737e8fbaad76d7f3ff67aaa5e4a09wrowe }

fa06de8a28a737e8fbaad76d7f3ff67aaa5e4a09wrowe

fa06de8a28a737e8fbaad76d7f3ff67aaa5e4a09wrowe /* L is [table<s,t>, table<s,s>] */

fa06de8a28a737e8fbaad76d7f3ff67aaa5e4a09wrowe /* build simple */

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe lua_getfield(L, -2, key); /* [VALUE, table<s,s>, table<s,t>] */

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe if (lua_isnoneornil(L, -1)) { /* only set if not already set */

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe lua_pop(L, 1); /* [table<s,s>, table<s,t>]] */

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe lua_pushstring(L, value); /* [string, table<s,s>, table<s,t>] */

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe lua_setfield(L, -3, key); /* [table<s,s>, table<s,t>] */

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe }

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe else {

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe lua_pop(L, 1);

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe }

fa06de8a28a737e8fbaad76d7f3ff67aaa5e4a09wrowe return 1;

fa06de8a28a737e8fbaad76d7f3ff67aaa5e4a09wrowe}

fa06de8a28a737e8fbaad76d7f3ff67aaa5e4a09wrowe

fa06de8a28a737e8fbaad76d7f3ff67aaa5e4a09wrowestatic int req_aprtable2luatable_cb_len(void *l, const char *key,

fa06de8a28a737e8fbaad76d7f3ff67aaa5e4a09wrowe const char *value, size_t len)

4f9c22c4f27571d54197be9674e1fc0d528192aestriker{

fa06de8a28a737e8fbaad76d7f3ff67aaa5e4a09wrowe int t;

4f9c22c4f27571d54197be9674e1fc0d528192aestriker lua_State *L = (lua_State *) l; /* [table<s,t>, table<s,s>] */

fa06de8a28a737e8fbaad76d7f3ff67aaa5e4a09wrowe /* rstack_dump(L, RRR, "start of cb"); */

4f9c22c4f27571d54197be9674e1fc0d528192aestriker /* L is [table<s,t>, table<s,s>] */

fa06de8a28a737e8fbaad76d7f3ff67aaa5e4a09wrowe /* build complex */

fa06de8a28a737e8fbaad76d7f3ff67aaa5e4a09wrowe

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar lua_getfield(L, -1, key); /* [VALUE, table<s,t>, table<s,s>] */

fa06de8a28a737e8fbaad76d7f3ff67aaa5e4a09wrowe /* rstack_dump(L, RRR, "after getfield"); */

fa06de8a28a737e8fbaad76d7f3ff67aaa5e4a09wrowe t = lua_type(L, -1);

fa06de8a28a737e8fbaad76d7f3ff67aaa5e4a09wrowe switch (t) {

fa06de8a28a737e8fbaad76d7f3ff67aaa5e4a09wrowe case LUA_TNIL:

fa06de8a28a737e8fbaad76d7f3ff67aaa5e4a09wrowe case LUA_TNONE:{

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe lua_pop(L, 1); /* [table<s,t>, table<s,s>] */

4f9c22c4f27571d54197be9674e1fc0d528192aestriker lua_newtable(L); /* [array, table<s,t>, table<s,s>] */

fa06de8a28a737e8fbaad76d7f3ff67aaa5e4a09wrowe lua_pushnumber(L, 1); /* [1, array, table<s,t>, table<s,s>] */

c2cf53a40a9814eb91db2cdf820f97d943f21628coar lua_pushlstring(L, value, len); /* [string, 1, array, table<s,t>, table<s,s>] */

c2cf53a40a9814eb91db2cdf820f97d943f21628coar lua_settable(L, -3); /* [array, table<s,t>, table<s,s>] */

fa06de8a28a737e8fbaad76d7f3ff67aaa5e4a09wrowe lua_setfield(L, -2, key); /* [table<s,t>, table<s,s>] */

d4abb06ac220bb280ae996b6d21bbd257db51bb1jerenkrantz break;

d4abb06ac220bb280ae996b6d21bbd257db51bb1jerenkrantz }

d4abb06ac220bb280ae996b6d21bbd257db51bb1jerenkrantz case LUA_TTABLE:{

fa06de8a28a737e8fbaad76d7f3ff67aaa5e4a09wrowe /* [array, table<s,t>, table<s,s>] */

4f9c22c4f27571d54197be9674e1fc0d528192aestriker int size = lua_objlen(L, -1);

c2cf53a40a9814eb91db2cdf820f97d943f21628coar lua_pushnumber(L, size + 1); /* [#, array, table<s,t>, table<s,s>] */

c2cf53a40a9814eb91db2cdf820f97d943f21628coar lua_pushlstring(L, value, len); /* [string, #, array, table<s,t>, table<s,s>] */

fa06de8a28a737e8fbaad76d7f3ff67aaa5e4a09wrowe lua_settable(L, -3); /* [array, table<s,t>, table<s,s>] */

d4abb06ac220bb280ae996b6d21bbd257db51bb1jerenkrantz lua_setfield(L, -2, key); /* [table<s,t>, table<s,s>] */

d4abb06ac220bb280ae996b6d21bbd257db51bb1jerenkrantz break;

d4abb06ac220bb280ae996b6d21bbd257db51bb1jerenkrantz }

fa06de8a28a737e8fbaad76d7f3ff67aaa5e4a09wrowe }

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe

fa06de8a28a737e8fbaad76d7f3ff67aaa5e4a09wrowe /* L is [table<s,t>, table<s,s>] */

4f9c22c4f27571d54197be9674e1fc0d528192aestriker /* build simple */

fa06de8a28a737e8fbaad76d7f3ff67aaa5e4a09wrowe lua_getfield(L, -2, key); /* [VALUE, table<s,s>, table<s,t>] */

08ab23ee4e41ac8587da5a3bb8d4e9c49523b0b8nd if (lua_isnoneornil(L, -1)) { /* only set if not already set */

fa06de8a28a737e8fbaad76d7f3ff67aaa5e4a09wrowe lua_pop(L, 1); /* [table<s,s>, table<s,t>]] */

08ab23ee4e41ac8587da5a3bb8d4e9c49523b0b8nd lua_pushlstring(L, value, len); /* [string, table<s,s>, table<s,t>] */

fa06de8a28a737e8fbaad76d7f3ff67aaa5e4a09wrowe lua_setfield(L, -3, key); /* [table<s,s>, table<s,t>] */

4f9c22c4f27571d54197be9674e1fc0d528192aestriker }

c2cf53a40a9814eb91db2cdf820f97d943f21628coar else {

c2cf53a40a9814eb91db2cdf820f97d943f21628coar lua_pop(L, 1);

fa06de8a28a737e8fbaad76d7f3ff67aaa5e4a09wrowe }

d4abb06ac220bb280ae996b6d21bbd257db51bb1jerenkrantz return 1;

d4abb06ac220bb280ae996b6d21bbd257db51bb1jerenkrantz}

d4abb06ac220bb280ae996b6d21bbd257db51bb1jerenkrantz

fa06de8a28a737e8fbaad76d7f3ff67aaa5e4a09wrowe

d4abb06ac220bb280ae996b6d21bbd257db51bb1jerenkrantzstatic int lua_read_body(request_rec *r, const char **rbuf, apr_off_t *size,

fa06de8a28a737e8fbaad76d7f3ff67aaa5e4a09wrowe apr_off_t maxsize)

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe{

fa06de8a28a737e8fbaad76d7f3ff67aaa5e4a09wrowe int rc = OK;

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe if ((rc = ap_setup_client_block(r, REQUEST_CHUNKED_ERROR))) {

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe return (rc);

4f9c22c4f27571d54197be9674e1fc0d528192aestriker }

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe if (ap_should_client_block(r)) {

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe /*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/

d4abb06ac220bb280ae996b6d21bbd257db51bb1jerenkrantz char argsbuffer[HUGE_STRING_LEN];

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe apr_off_t rsize, len_read, rpos = 0;

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe apr_off_t length = r->remaining;

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe /*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe if (maxsize != 0 && length > maxsize) {

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe return APR_EINCOMPLETE; /* Only room for incomplete data chunk :( */

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe }

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe *rbuf = (const char *) apr_pcalloc(r->pool, (apr_size_t) (length + 1));

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe *size = length;

83a8dc5a596a8a1b9d14f063268287d123b9ed7ewrowe while ((len_read = ap_get_client_block(r, argsbuffer, sizeof(argsbuffer))) > 0) {

cc9582e53aead2a044077c4a92f3dfc3605590b3wrowe if ((rpos + len_read) > length) {

cc9582e53aead2a044077c4a92f3dfc3605590b3wrowe rsize = length - rpos;

cc9582e53aead2a044077c4a92f3dfc3605590b3wrowe }

cc9582e53aead2a044077c4a92f3dfc3605590b3wrowe else {

cc9582e53aead2a044077c4a92f3dfc3605590b3wrowe rsize = len_read;

4f9c22c4f27571d54197be9674e1fc0d528192aestriker }

cc9582e53aead2a044077c4a92f3dfc3605590b3wrowe

cc9582e53aead2a044077c4a92f3dfc3605590b3wrowe memcpy((char *) *rbuf + rpos, argsbuffer, (size_t) rsize);

cc9582e53aead2a044077c4a92f3dfc3605590b3wrowe rpos += rsize;

cc9582e53aead2a044077c4a92f3dfc3605590b3wrowe }

0540a0b469147b52e858587270dba31c2aaa9e09wrowe }

cc9582e53aead2a044077c4a92f3dfc3605590b3wrowe

cc9582e53aead2a044077c4a92f3dfc3605590b3wrowe return (rc);

cc9582e53aead2a044077c4a92f3dfc3605590b3wrowe}

cc9582e53aead2a044077c4a92f3dfc3605590b3wrowe

cc9582e53aead2a044077c4a92f3dfc3605590b3wrowe

cc9582e53aead2a044077c4a92f3dfc3605590b3wrowestatic apr_status_t lua_write_body(request_rec *r, apr_file_t *file, apr_off_t *size)

a2b181763cb35fd899feb4a436aeadaa80bf91eabrianp{

cc9582e53aead2a044077c4a92f3dfc3605590b3wrowe apr_status_t rc = OK;

cc9582e53aead2a044077c4a92f3dfc3605590b3wrowe

a2b181763cb35fd899feb4a436aeadaa80bf91eabrianp if ((rc = ap_setup_client_block(r, REQUEST_CHUNKED_ERROR)))

cc9582e53aead2a044077c4a92f3dfc3605590b3wrowe return rc;

cc9582e53aead2a044077c4a92f3dfc3605590b3wrowe if (ap_should_client_block(r)) {

cc9582e53aead2a044077c4a92f3dfc3605590b3wrowe char argsbuffer[HUGE_STRING_LEN];

cc9582e53aead2a044077c4a92f3dfc3605590b3wrowe apr_off_t rsize,

cc9582e53aead2a044077c4a92f3dfc3605590b3wrowe len_read,

cc9582e53aead2a044077c4a92f3dfc3605590b3wrowe rpos = 0;

cc9582e53aead2a044077c4a92f3dfc3605590b3wrowe apr_off_t length = r->remaining;

a2b181763cb35fd899feb4a436aeadaa80bf91eabrianp

a2b181763cb35fd899feb4a436aeadaa80bf91eabrianp *size = length;

a2b181763cb35fd899feb4a436aeadaa80bf91eabrianp while ((len_read =

a2b181763cb35fd899feb4a436aeadaa80bf91eabrianp ap_get_client_block(r, argsbuffer,

4f9c22c4f27571d54197be9674e1fc0d528192aestriker sizeof(argsbuffer))) > 0) {

a2b181763cb35fd899feb4a436aeadaa80bf91eabrianp if ((rpos + len_read) > length)

a2b181763cb35fd899feb4a436aeadaa80bf91eabrianp rsize = (apr_size_t) length - rpos;

4f9c22c4f27571d54197be9674e1fc0d528192aestriker else

4f9c22c4f27571d54197be9674e1fc0d528192aestriker rsize = len_read;

4f9c22c4f27571d54197be9674e1fc0d528192aestriker

4f9c22c4f27571d54197be9674e1fc0d528192aestriker rc = apr_file_write_full(file, argsbuffer, (apr_size_t) rsize,

4f9c22c4f27571d54197be9674e1fc0d528192aestriker NULL);

4f9c22c4f27571d54197be9674e1fc0d528192aestriker if (rc != APR_SUCCESS)

4f9c22c4f27571d54197be9674e1fc0d528192aestriker return rc;

a2b181763cb35fd899feb4a436aeadaa80bf91eabrianp rpos += rsize;

7a2edaa0193cbb0d79a65a8461a609a9402aea49brianp }

cc9582e53aead2a044077c4a92f3dfc3605590b3wrowe }

cc9582e53aead2a044077c4a92f3dfc3605590b3wrowe

cc9582e53aead2a044077c4a92f3dfc3605590b3wrowe return rc;

cc9582e53aead2a044077c4a92f3dfc3605590b3wrowe}

cc9582e53aead2a044077c4a92f3dfc3605590b3wrowe

4f9c22c4f27571d54197be9674e1fc0d528192aestrikerstatic int req_parseargs(lua_State *L)

a2b181763cb35fd899feb4a436aeadaa80bf91eabrianp{

cc9582e53aead2a044077c4a92f3dfc3605590b3wrowe apr_table_t *form_table;

cc9582e53aead2a044077c4a92f3dfc3605590b3wrowe request_rec *r = ap_lua_check_request_rec(L, 1);

cc9582e53aead2a044077c4a92f3dfc3605590b3wrowe lua_newtable(L);

cc9582e53aead2a044077c4a92f3dfc3605590b3wrowe lua_newtable(L); /* [table, table] */

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb ap_args_to_table(r, &form_table);

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb apr_table_do(req_aprtable2luatable_cb, L, form_table, NULL);

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb return 2; /* [table<string, string>, table<string, array<string>>] */

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb}

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb

b38846b15c8891c6dec44dcc4f96ca40721bf663rbbstatic char* ap_lua_binstrstr (const char * haystack, size_t hsize, const char* needle, size_t nsize)

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb{

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb size_t p;

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb if (haystack == NULL) return NULL;

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb if (needle == NULL) return NULL;

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb if (hsize < nsize) return NULL;

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb for (p = 0; p <= (hsize - nsize); ++p) {

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb if (memcmp(haystack + p, needle, nsize) == 0) {

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb return (char*) (haystack + p);

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb }

290ecc1ddceca1ed49bc1a5338921264b5c3e07cwrowe }

290ecc1ddceca1ed49bc1a5338921264b5c3e07cwrowe return NULL;

4f9c22c4f27571d54197be9674e1fc0d528192aestriker}

290ecc1ddceca1ed49bc1a5338921264b5c3e07cwrowe

290ecc1ddceca1ed49bc1a5338921264b5c3e07cwrowestatic int req_parsebody(lua_State *L)

290ecc1ddceca1ed49bc1a5338921264b5c3e07cwrowe{

290ecc1ddceca1ed49bc1a5338921264b5c3e07cwrowe apr_array_header_t *pairs;

290ecc1ddceca1ed49bc1a5338921264b5c3e07cwrowe apr_off_t len;

290ecc1ddceca1ed49bc1a5338921264b5c3e07cwrowe int res;

290ecc1ddceca1ed49bc1a5338921264b5c3e07cwrowe apr_size_t size;

4f9c22c4f27571d54197be9674e1fc0d528192aestriker apr_size_t max_post_size;

290ecc1ddceca1ed49bc1a5338921264b5c3e07cwrowe char *multipart;

290ecc1ddceca1ed49bc1a5338921264b5c3e07cwrowe const char *contentType;

290ecc1ddceca1ed49bc1a5338921264b5c3e07cwrowe request_rec *r = ap_lua_check_request_rec(L, 1);

290ecc1ddceca1ed49bc1a5338921264b5c3e07cwrowe max_post_size = (apr_size_t) luaL_optint(L, 2, MAX_STRING_LEN);

290ecc1ddceca1ed49bc1a5338921264b5c3e07cwrowe multipart = apr_pcalloc(r->pool, 256);

290ecc1ddceca1ed49bc1a5338921264b5c3e07cwrowe contentType = apr_table_get(r->headers_in, "Content-Type");

7c301a1818939f85da8f3629cc3e9b5588610ef0jerenkrantz lua_newtable(L);

290ecc1ddceca1ed49bc1a5338921264b5c3e07cwrowe lua_newtable(L); /* [table, table] */

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar if (contentType != NULL && (sscanf(contentType, "multipart/form-data; boundary=%250c", multipart) == 1)) {

290ecc1ddceca1ed49bc1a5338921264b5c3e07cwrowe char *buffer, *key, *filename;

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar char *start = 0, *end = 0, *crlf = 0;

290ecc1ddceca1ed49bc1a5338921264b5c3e07cwrowe const char *data;

7c301a1818939f85da8f3629cc3e9b5588610ef0jerenkrantz int i;

7c301a1818939f85da8f3629cc3e9b5588610ef0jerenkrantz size_t vlen = 0;

7c301a1818939f85da8f3629cc3e9b5588610ef0jerenkrantz size_t len = 0;

290ecc1ddceca1ed49bc1a5338921264b5c3e07cwrowe if (lua_read_body(r, &data, (apr_off_t*) &size, max_post_size) != OK) {

659ad814f714e556bdd03e1d771cba156baab92ewrowe return 2;

659ad814f714e556bdd03e1d771cba156baab92ewrowe }

659ad814f714e556bdd03e1d771cba156baab92ewrowe len = strlen(multipart);

290ecc1ddceca1ed49bc1a5338921264b5c3e07cwrowe i = 0;

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar for

11fb2f3611e6ff9a541e10b13e3108934f828141gregames (

11fb2f3611e6ff9a541e10b13e3108934f828141gregames start = strstr((char *) data, multipart);

11fb2f3611e6ff9a541e10b13e3108934f828141gregames start != NULL;

7c301a1818939f85da8f3629cc3e9b5588610ef0jerenkrantz start = end

7c301a1818939f85da8f3629cc3e9b5588610ef0jerenkrantz ) {

7c301a1818939f85da8f3629cc3e9b5588610ef0jerenkrantz i++;

7c301a1818939f85da8f3629cc3e9b5588610ef0jerenkrantz if (i == POST_MAX_VARS) break;

4f9c22c4f27571d54197be9674e1fc0d528192aestriker crlf = strstr((char *) start, "\r\n\r\n");

290ecc1ddceca1ed49bc1a5338921264b5c3e07cwrowe if (!crlf) break;

290ecc1ddceca1ed49bc1a5338921264b5c3e07cwrowe end = ap_lua_binstrstr(crlf, (size - (crlf - data)), multipart, len);

290ecc1ddceca1ed49bc1a5338921264b5c3e07cwrowe if (end == NULL) break;

4f9c22c4f27571d54197be9674e1fc0d528192aestriker key = (char *) apr_pcalloc(r->pool, 256);

290ecc1ddceca1ed49bc1a5338921264b5c3e07cwrowe filename = (char *) apr_pcalloc(r->pool, 256);

290ecc1ddceca1ed49bc1a5338921264b5c3e07cwrowe vlen = end - crlf - 8;

290ecc1ddceca1ed49bc1a5338921264b5c3e07cwrowe buffer = (char *) apr_pcalloc(r->pool, vlen+1);

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar memcpy(buffer, crlf + 4, vlen);

1fbf6ba0f5207e6637b49f9a9dfcc779bbe952a9trawick sscanf(start + len + 2,

1fbf6ba0f5207e6637b49f9a9dfcc779bbe952a9trawick "Content-Disposition: form-data; name=\"%255[^\"]\"; filename=\"%255[^\"]\"",

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar key, filename);

290ecc1ddceca1ed49bc1a5338921264b5c3e07cwrowe if (strlen(key)) {

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar req_aprtable2luatable_cb_len(L, key, buffer, vlen);

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar }

290ecc1ddceca1ed49bc1a5338921264b5c3e07cwrowe }

4f9c22c4f27571d54197be9674e1fc0d528192aestriker }

4f9c22c4f27571d54197be9674e1fc0d528192aestriker else {

290ecc1ddceca1ed49bc1a5338921264b5c3e07cwrowe char *buffer;

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar res = ap_parse_form_data(r, NULL, &pairs, -1, max_post_size);

290ecc1ddceca1ed49bc1a5338921264b5c3e07cwrowe if (res == OK) {

1fbf6ba0f5207e6637b49f9a9dfcc779bbe952a9trawick while(pairs && !apr_is_empty_array(pairs)) {

290ecc1ddceca1ed49bc1a5338921264b5c3e07cwrowe ap_form_pair_t *pair = (ap_form_pair_t *) apr_array_pop(pairs);

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar apr_brigade_length(pair->value, 1, &len);

290ecc1ddceca1ed49bc1a5338921264b5c3e07cwrowe size = (apr_size_t) len;

290ecc1ddceca1ed49bc1a5338921264b5c3e07cwrowe buffer = apr_palloc(r->pool, size + 1);

290ecc1ddceca1ed49bc1a5338921264b5c3e07cwrowe apr_brigade_flatten(pair->value, buffer, &size);

7c301a1818939f85da8f3629cc3e9b5588610ef0jerenkrantz buffer[len] = 0;

7c301a1818939f85da8f3629cc3e9b5588610ef0jerenkrantz req_aprtable2luatable_cb(L, pair->name, buffer);

7c301a1818939f85da8f3629cc3e9b5588610ef0jerenkrantz }

7c301a1818939f85da8f3629cc3e9b5588610ef0jerenkrantz }

4f9c22c4f27571d54197be9674e1fc0d528192aestriker }

290ecc1ddceca1ed49bc1a5338921264b5c3e07cwrowe return 2; /* [table<string, string>, table<string, array<string>>] */

290ecc1ddceca1ed49bc1a5338921264b5c3e07cwrowe}

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb

8aefbd756763807188d2e3ce336a8680e4893066wrowe

700b96db75e7cfadb5219978c1735b710d583763wrowestatic int lua_ap_requestbody(lua_State *L)

700b96db75e7cfadb5219978c1735b710d583763wrowe{

700b96db75e7cfadb5219978c1735b710d583763wrowe const char *filename;

700b96db75e7cfadb5219978c1735b710d583763wrowe request_rec *r;

700b96db75e7cfadb5219978c1735b710d583763wrowe apr_off_t maxSize;

700b96db75e7cfadb5219978c1735b710d583763wrowe

700b96db75e7cfadb5219978c1735b710d583763wrowe r = ap_lua_check_request_rec(L, 1);

700b96db75e7cfadb5219978c1735b710d583763wrowe filename = luaL_optstring(L, 2, 0);

700b96db75e7cfadb5219978c1735b710d583763wrowe maxSize = luaL_optint(L, 3, 0);

700b96db75e7cfadb5219978c1735b710d583763wrowe

700b96db75e7cfadb5219978c1735b710d583763wrowe if (r) {

700b96db75e7cfadb5219978c1735b710d583763wrowe apr_off_t size;

103a93c625bcde1a6a7a5155b64dcda36f612180pquerna if (maxSize > 0 && r->remaining > maxSize) {

700b96db75e7cfadb5219978c1735b710d583763wrowe lua_pushnil(L);

700b96db75e7cfadb5219978c1735b710d583763wrowe lua_pushliteral(L, "Request body was larger than the permitted size.");

6964758306167dd898baedd21048bd1515dd9d30trawick return 2;

700b96db75e7cfadb5219978c1735b710d583763wrowe }

700b96db75e7cfadb5219978c1735b710d583763wrowe if (r->method_number != M_POST && r->method_number != M_PUT)

700b96db75e7cfadb5219978c1735b710d583763wrowe return (0);

700b96db75e7cfadb5219978c1735b710d583763wrowe if (!filename) {

700b96db75e7cfadb5219978c1735b710d583763wrowe const char *data;

700b96db75e7cfadb5219978c1735b710d583763wrowe

700b96db75e7cfadb5219978c1735b710d583763wrowe if (lua_read_body(r, &data, &size, maxSize) != OK)

700b96db75e7cfadb5219978c1735b710d583763wrowe return (0);

700b96db75e7cfadb5219978c1735b710d583763wrowe

700b96db75e7cfadb5219978c1735b710d583763wrowe lua_pushlstring(L, data, (size_t) size);

700b96db75e7cfadb5219978c1735b710d583763wrowe lua_pushinteger(L, (lua_Integer) size);

700b96db75e7cfadb5219978c1735b710d583763wrowe return (2);

700b96db75e7cfadb5219978c1735b710d583763wrowe } else {

700b96db75e7cfadb5219978c1735b710d583763wrowe apr_status_t rc;

700b96db75e7cfadb5219978c1735b710d583763wrowe apr_file_t *file;

700b96db75e7cfadb5219978c1735b710d583763wrowe

700b96db75e7cfadb5219978c1735b710d583763wrowe rc = apr_file_open(&file, filename, APR_CREATE | APR_FOPEN_WRITE,

700b96db75e7cfadb5219978c1735b710d583763wrowe APR_FPROT_OS_DEFAULT, r->pool);

700b96db75e7cfadb5219978c1735b710d583763wrowe lua_settop(L, 0);

700b96db75e7cfadb5219978c1735b710d583763wrowe if (rc == APR_SUCCESS) {

700b96db75e7cfadb5219978c1735b710d583763wrowe rc = lua_write_body(r, file, &size);

700b96db75e7cfadb5219978c1735b710d583763wrowe apr_file_close(file);

103a93c625bcde1a6a7a5155b64dcda36f612180pquerna if (rc != OK) {

103a93c625bcde1a6a7a5155b64dcda36f612180pquerna lua_pushboolean(L, 0);

700b96db75e7cfadb5219978c1735b710d583763wrowe return 1;

700b96db75e7cfadb5219978c1735b710d583763wrowe }

700b96db75e7cfadb5219978c1735b710d583763wrowe lua_pushinteger(L, (lua_Integer) size);

8aefbd756763807188d2e3ce336a8680e4893066wrowe return (1);

8aefbd756763807188d2e3ce336a8680e4893066wrowe } else

8aefbd756763807188d2e3ce336a8680e4893066wrowe lua_pushboolean(L, 0);

8aefbd756763807188d2e3ce336a8680e4893066wrowe return (1);

8aefbd756763807188d2e3ce336a8680e4893066wrowe }

8aefbd756763807188d2e3ce336a8680e4893066wrowe }

8aefbd756763807188d2e3ce336a8680e4893066wrowe

8aefbd756763807188d2e3ce336a8680e4893066wrowe return (0);

8aefbd756763807188d2e3ce336a8680e4893066wrowe}

8aefbd756763807188d2e3ce336a8680e4893066wrowe

8aefbd756763807188d2e3ce336a8680e4893066wrowestatic int req_puts(lua_State *L)

8aefbd756763807188d2e3ce336a8680e4893066wrowe{

8aefbd756763807188d2e3ce336a8680e4893066wrowe request_rec *r = ap_lua_check_request_rec(L, 1);

8aefbd756763807188d2e3ce336a8680e4893066wrowe

a2a0abd88b19e042a3eb2a9fa1702c25ad51303dwrowe int argc = lua_gettop(L);

8aefbd756763807188d2e3ce336a8680e4893066wrowe int i;

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe

8aefbd756763807188d2e3ce336a8680e4893066wrowe for (i = 2; i <= argc; i++) {

8aefbd756763807188d2e3ce336a8680e4893066wrowe ap_rputs(luaL_checkstring(L, i), r);

2fa5b5878e7567e2875807c3e2a2b3b0d3ef74bewrowe }

2fa5b5878e7567e2875807c3e2a2b3b0d3ef74bewrowe return 0;

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe}

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe

8aefbd756763807188d2e3ce336a8680e4893066wrowestatic int req_write(lua_State *L)

dc8692c6c0ca616a09aa12dad005f2ef23baa1a0wrowe{

a8d11d78181478da6a672f7fbc58b8d523351f49wrowe request_rec *r = ap_lua_check_request_rec(L, 1);

4f9c22c4f27571d54197be9674e1fc0d528192aestriker size_t n;

23c6309e36a63b13b61c35999c978017521993d6wrowe int rv;

23c6309e36a63b13b61c35999c978017521993d6wrowe const char *buf = luaL_checklstring(L, 2, &n);

4f9c22c4f27571d54197be9674e1fc0d528192aestriker

23c6309e36a63b13b61c35999c978017521993d6wrowe rv = ap_rwrite((void *) buf, n, r);

8aefbd756763807188d2e3ce336a8680e4893066wrowe lua_pushinteger(L, rv);

23c6309e36a63b13b61c35999c978017521993d6wrowe return 1;

2d399cd7535887fceaa9f8f116eb98ce68ddd602trawick}

4f9c22c4f27571d54197be9674e1fc0d528192aestriker

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowestatic int req_add_output_filter(lua_State *L)

8aefbd756763807188d2e3ce336a8680e4893066wrowe{

8aefbd756763807188d2e3ce336a8680e4893066wrowe request_rec *r = ap_lua_check_request_rec(L, 1);

cf6ef072483172309861d06e85b1aeff4573c060wrowe const char *name = luaL_checkstring(L, 2);

cf6ef072483172309861d06e85b1aeff4573c060wrowe ap_log_rerror(APLOG_MARK, APLOG_DEBUG, 0, r, APLOGNO(01485) "adding output filter %s",

cf6ef072483172309861d06e85b1aeff4573c060wrowe name);

8aefbd756763807188d2e3ce336a8680e4893066wrowe ap_add_output_filter(name, L, r, r->connection);

4f9c22c4f27571d54197be9674e1fc0d528192aestriker return 0;

4f9c22c4f27571d54197be9674e1fc0d528192aestriker}

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowestatic int req_construct_url(lua_State *L)

4f9c22c4f27571d54197be9674e1fc0d528192aestriker{

a8d11d78181478da6a672f7fbc58b8d523351f49wrowe request_rec *r = ap_lua_check_request_rec(L, 1);

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe const char *name = luaL_checkstring(L, 2);

8aefbd756763807188d2e3ce336a8680e4893066wrowe lua_pushstring(L, ap_construct_url(r->pool, name, r));

8aefbd756763807188d2e3ce336a8680e4893066wrowe return 1;

cf6ef072483172309861d06e85b1aeff4573c060wrowe}

cf6ef072483172309861d06e85b1aeff4573c060wrowe

8aefbd756763807188d2e3ce336a8680e4893066wrowestatic int req_escape_html(lua_State *L)

cf6ef072483172309861d06e85b1aeff4573c060wrowe{

cf6ef072483172309861d06e85b1aeff4573c060wrowe request_rec *r = ap_lua_check_request_rec(L, 1);

a2b181763cb35fd899feb4a436aeadaa80bf91eabrianp const char *s = luaL_checkstring(L, 2);

cf6ef072483172309861d06e85b1aeff4573c060wrowe lua_pushstring(L, ap_escape_html(r->pool, s));

4f9c22c4f27571d54197be9674e1fc0d528192aestriker return 1;

cf6ef072483172309861d06e85b1aeff4573c060wrowe}

cf6ef072483172309861d06e85b1aeff4573c060wrowe

cf6ef072483172309861d06e85b1aeff4573c060wrowestatic int req_ssl_var_lookup(lua_State *L)

cf6ef072483172309861d06e85b1aeff4573c060wrowe{

cf6ef072483172309861d06e85b1aeff4573c060wrowe request_rec *r = ap_lua_check_request_rec(L, 1);

cf6ef072483172309861d06e85b1aeff4573c060wrowe const char *s = luaL_checkstring(L, 2);

cf6ef072483172309861d06e85b1aeff4573c060wrowe const char *res = ap_lua_ssl_val(r->pool, r->server, r->connection, r,

cf6ef072483172309861d06e85b1aeff4573c060wrowe (char *)s);

69adb3d949e3dd17c0492a01fc2cf298832c7eefwrowe lua_pushstring(L, res);

ecde48c75338ff5712f2036711f813c6dedca28ewrowe return 1;

d75626f0952c6152a99acd013a4f127d46f0f9edtrawick}

d75626f0952c6152a99acd013a4f127d46f0f9edtrawick

d75626f0952c6152a99acd013a4f127d46f0f9edtrawick

d75626f0952c6152a99acd013a4f127d46f0f9edtrawickstatic const char *req_document_root(request_rec *r)

d75626f0952c6152a99acd013a4f127d46f0f9edtrawick{

d75626f0952c6152a99acd013a4f127d46f0f9edtrawick return ap_document_root(r);

ecde48c75338ff5712f2036711f813c6dedca28ewrowe}

ecde48c75338ff5712f2036711f813c6dedca28ewrowe

d75626f0952c6152a99acd013a4f127d46f0f9edtrawickstatic const char *req_context_prefix(request_rec *r)

ecde48c75338ff5712f2036711f813c6dedca28ewrowe{

ecde48c75338ff5712f2036711f813c6dedca28ewrowe return ap_context_prefix(r);

ecde48c75338ff5712f2036711f813c6dedca28ewrowe}

ecde48c75338ff5712f2036711f813c6dedca28ewrowe

ecde48c75338ff5712f2036711f813c6dedca28ewrowestatic const char *req_context_document_root(request_rec *r)

d75626f0952c6152a99acd013a4f127d46f0f9edtrawick{

cf6ef072483172309861d06e85b1aeff4573c060wrowe return ap_context_document_root(r);

cf6ef072483172309861d06e85b1aeff4573c060wrowe}

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowestatic char *req_uri_field(request_rec *r)

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar{

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar return r->uri;

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe}

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowestatic const char *req_method_field(request_rec *r)

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe{

4f9c22c4f27571d54197be9674e1fc0d528192aestriker return r->method;

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe}

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowestatic const char *req_handler_field(request_rec *r)

4f9c22c4f27571d54197be9674e1fc0d528192aestriker{

23c6309e36a63b13b61c35999c978017521993d6wrowe return r->handler;

4f9c22c4f27571d54197be9674e1fc0d528192aestriker}

4f9c22c4f27571d54197be9674e1fc0d528192aestrikerstatic const char *req_proxyreq_field(request_rec *r)

4f9c22c4f27571d54197be9674e1fc0d528192aestriker{

c2cf53a40a9814eb91db2cdf820f97d943f21628coar switch (r->proxyreq) {

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe case PROXYREQ_NONE: return "PROXYREQ_NONE";

4f9c22c4f27571d54197be9674e1fc0d528192aestriker case PROXYREQ_PROXY: return "PROXYREQ_PROXY";

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe case PROXYREQ_REVERSE: return "PROXYREQ_REVERSE";

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe case PROXYREQ_RESPONSE: return "PROXYREQ_RESPONSE";

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe default: return NULL;

a9a4544168a37b43bd180b3703ccee995f27a80awrowe }

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe}

a9a4544168a37b43bd180b3703ccee995f27a80awrowestatic const char *req_hostname_field(request_rec *r)

4f9c22c4f27571d54197be9674e1fc0d528192aestriker{

a9a4544168a37b43bd180b3703ccee995f27a80awrowe return r->hostname;

a9a4544168a37b43bd180b3703ccee995f27a80awrowe}

a9a4544168a37b43bd180b3703ccee995f27a80awrowe

a9a4544168a37b43bd180b3703ccee995f27a80awrowestatic const char *req_args_field(request_rec *r)

4f9c22c4f27571d54197be9674e1fc0d528192aestriker{

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar return r->args;

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe}

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoarstatic const char *req_path_info_field(request_rec *r)

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe{

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe return r->path_info;

4f9c22c4f27571d54197be9674e1fc0d528192aestriker}

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe

8aefbd756763807188d2e3ce336a8680e4893066wrowestatic const char *req_canonical_filename_field(request_rec *r)

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe{

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe return r->canonical_filename;

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe}

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe

700b96db75e7cfadb5219978c1735b710d583763wrowestatic const char *req_filename_field(request_rec *r)

cf6ef072483172309861d06e85b1aeff4573c060wrowe{

cf6ef072483172309861d06e85b1aeff4573c060wrowe return r->filename;

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe}

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowestatic const char *req_user_field(request_rec *r)

8aefbd756763807188d2e3ce336a8680e4893066wrowe{

0e58e92812f2f679d6bf2ff66cbcfa6c1d1e14bbjerenkrantz return r->user;

0e58e92812f2f679d6bf2ff66cbcfa6c1d1e14bbjerenkrantz}

0e58e92812f2f679d6bf2ff66cbcfa6c1d1e14bbjerenkrantz

cf6ef072483172309861d06e85b1aeff4573c060wrowestatic const char *req_unparsed_uri_field(request_rec *r)

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe{

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe return r->unparsed_uri;

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe}

4f9c22c4f27571d54197be9674e1fc0d528192aestriker

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowestatic const char *req_ap_auth_type_field(request_rec *r)

2fd8d1e14fc47762d1e01660b544d5e2a75c825dtrawick{

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe return r->ap_auth_type;

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe}

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe

8aefbd756763807188d2e3ce336a8680e4893066wrowestatic const char *req_content_encoding_field(request_rec *r)

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe{

700b96db75e7cfadb5219978c1735b710d583763wrowe return r->content_encoding;

700b96db75e7cfadb5219978c1735b710d583763wrowe}

700b96db75e7cfadb5219978c1735b710d583763wrowe

700b96db75e7cfadb5219978c1735b710d583763wrowestatic const char *req_content_type_field(request_rec *r)

8aefbd756763807188d2e3ce336a8680e4893066wrowe{

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe return r->content_type;

4f9c22c4f27571d54197be9674e1fc0d528192aestriker}

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowestatic const char *req_range_field(request_rec *r)

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe{

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe return r->range;

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe}

59513b1275fdc2021d4949ee03ae8229469abb86wrowe

4f9c22c4f27571d54197be9674e1fc0d528192aestrikerstatic const char *req_protocol_field(request_rec *r)

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe{

4f9c22c4f27571d54197be9674e1fc0d528192aestriker return r->protocol;

4f9c22c4f27571d54197be9674e1fc0d528192aestriker}

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe

4f9c22c4f27571d54197be9674e1fc0d528192aestrikerstatic const char *req_the_request_field(request_rec *r)

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe{

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe return r->the_request;

4f9c22c4f27571d54197be9674e1fc0d528192aestriker}

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowestatic const char *req_log_id_field(request_rec *r)

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe{

4f9c22c4f27571d54197be9674e1fc0d528192aestriker return r->log_id;

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe}

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowestatic const char *req_useragent_ip_field(request_rec *r)

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe{

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe return r->useragent_ip;

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe}

cf6ef072483172309861d06e85b1aeff4573c060wrowe

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowestatic int req_remaining_field(request_rec *r)

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe{

4f9c22c4f27571d54197be9674e1fc0d528192aestriker return r->remaining;

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe}

4f9c22c4f27571d54197be9674e1fc0d528192aestriker

4f9c22c4f27571d54197be9674e1fc0d528192aestrikerstatic int req_status_field(request_rec *r)

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe{

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe return r->status;

4f9c22c4f27571d54197be9674e1fc0d528192aestriker}

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe

4f9c22c4f27571d54197be9674e1fc0d528192aestrikerstatic int req_assbackwards_field(request_rec *r)

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe{

4f9c22c4f27571d54197be9674e1fc0d528192aestriker return r->assbackwards;

4f9c22c4f27571d54197be9674e1fc0d528192aestriker}

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowestatic req_table_t* req_headers_in(request_rec *r)

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe{

4f9c22c4f27571d54197be9674e1fc0d528192aestriker req_table_t* t = apr_palloc(r->pool, sizeof(req_table_t));

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe t->r = r;

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe t->t = r->headers_in;

4f9c22c4f27571d54197be9674e1fc0d528192aestriker t->n = "headers_in";

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe return t;

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe}

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowestatic req_table_t* req_headers_out(request_rec *r)

4f9c22c4f27571d54197be9674e1fc0d528192aestriker{

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe req_table_t* t = apr_palloc(r->pool, sizeof(req_table_t));

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe t->r = r;

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe t->t = r->headers_out;

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe t->n = "headers_out";

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe return t;

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe}

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe

cf6ef072483172309861d06e85b1aeff4573c060wrowestatic req_table_t* req_err_headers_out(request_rec *r)

4f9c22c4f27571d54197be9674e1fc0d528192aestriker{

4f9c22c4f27571d54197be9674e1fc0d528192aestriker req_table_t* t = apr_palloc(r->pool, sizeof(req_table_t));

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe t->r = r;

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe t->t = r->err_headers_out;

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe t->n = "err_headers_out";

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe return t;

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe}

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowestatic req_table_t* req_subprocess_env(request_rec *r)

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe{

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe req_table_t* t = apr_palloc(r->pool, sizeof(req_table_t));

38bcc87d9a06e8ba81165421403f275eca4e313btrawick t->r = r;

38bcc87d9a06e8ba81165421403f275eca4e313btrawick t->t = r->subprocess_env;

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe t->n = "subprocess_env";

0e58e92812f2f679d6bf2ff66cbcfa6c1d1e14bbjerenkrantz return t;

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe}

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowestatic req_table_t* req_notes(request_rec *r)

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe{

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe req_table_t* t = apr_palloc(r->pool, sizeof(req_table_t));

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe t->r = r;

4f9c22c4f27571d54197be9674e1fc0d528192aestriker t->t = r->notes;

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe t->n = "notes";

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe return t;

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe}

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowestatic int req_ssl_is_https_field(request_rec *r)

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe{

0e58e92812f2f679d6bf2ff66cbcfa6c1d1e14bbjerenkrantz return ap_lua_ssl_is_https(r->connection);

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe}

0e58e92812f2f679d6bf2ff66cbcfa6c1d1e14bbjerenkrantz

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowestatic int req_ap_get_server_port(request_rec *r)

cf6ef072483172309861d06e85b1aeff4573c060wrowe{

cf6ef072483172309861d06e85b1aeff4573c060wrowe return (int) ap_get_server_port(r);

8aefbd756763807188d2e3ce336a8680e4893066wrowe}

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowestatic int lua_ap_rflush (lua_State *L) {

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe

4f9c22c4f27571d54197be9674e1fc0d528192aestriker int returnValue;

700b96db75e7cfadb5219978c1735b710d583763wrowe request_rec *r;

700b96db75e7cfadb5219978c1735b710d583763wrowe luaL_checktype(L, 1, LUA_TUSERDATA);

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe r = ap_lua_check_request_rec(L, 1);

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe returnValue = ap_rflush(r);

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe lua_pushboolean(L, (returnValue == 0));

cf6ef072483172309861d06e85b1aeff4573c060wrowe return 1;

cf6ef072483172309861d06e85b1aeff4573c060wrowe}

4f9c22c4f27571d54197be9674e1fc0d528192aestriker

4f9c22c4f27571d54197be9674e1fc0d528192aestriker

d4abb06ac220bb280ae996b6d21bbd257db51bb1jerenkrantzstatic const char* lua_ap_options(request_rec* r)

cf6ef072483172309861d06e85b1aeff4573c060wrowe{

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe int opts;

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe opts = ap_allow_options(r);

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe return apr_psprintf(r->pool, "%s %s %s %s %s %s", (opts&OPT_INDEXES) ? "Indexes" : "", (opts&OPT_INCLUDES) ? "Includes" : "", (opts&OPT_SYM_LINKS) ? "FollowSymLinks" : "", (opts&OPT_EXECCGI) ? "ExecCGI" : "", (opts&OPT_MULTI) ? "MultiViews" : "", (opts&OPT_ALL) == OPT_ALL ? "All" : "" );

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe}

d4abb06ac220bb280ae996b6d21bbd257db51bb1jerenkrantz

4f9c22c4f27571d54197be9674e1fc0d528192aestrikerstatic const char* lua_ap_allowoverrides(request_rec* r)

548b2980e83f609186a76e98fb245d02e8547bc3jerenkrantz{

548b2980e83f609186a76e98fb245d02e8547bc3jerenkrantz int opts;

4fca95918a9c0ae93593806544b425d0adc2fcc3wrowe opts = ap_allow_overrides(r);

548b2980e83f609186a76e98fb245d02e8547bc3jerenkrantz if ( (opts & OR_ALL) == OR_ALL) {

0e58e92812f2f679d6bf2ff66cbcfa6c1d1e14bbjerenkrantz return "All";

0e58e92812f2f679d6bf2ff66cbcfa6c1d1e14bbjerenkrantz }

d4abb06ac220bb280ae996b6d21bbd257db51bb1jerenkrantz else if (opts == OR_NONE) {

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar return "None";

8aefbd756763807188d2e3ce336a8680e4893066wrowe }

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe return apr_psprintf(r->pool, "%s %s %s %s %s", (opts & OR_LIMIT) ? "Limit" : "", (opts & OR_OPTIONS) ? "Options" : "", (opts & OR_FILEINFO) ? "FileInfo" : "", (opts & OR_AUTHCFG) ? "AuthCfg" : "", (opts & OR_INDEXES) ? "Indexes" : "" );

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe

4fca95918a9c0ae93593806544b425d0adc2fcc3wrowe}

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe

8aefbd756763807188d2e3ce336a8680e4893066wrowestatic int lua_ap_started(request_rec* r)

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe{

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe return (int)(ap_scoreboard_image->global->restart_time / 1000000);

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe}

8aefbd756763807188d2e3ce336a8680e4893066wrowe

4f9c22c4f27571d54197be9674e1fc0d528192aestrikerstatic const char* lua_ap_basic_auth_pw(request_rec* r)

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe{

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe const char* pw = NULL;

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar ap_get_basic_auth_pw(r, &pw);

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe return pw ? pw : "";

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar}

8aefbd756763807188d2e3ce336a8680e4893066wrowe

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowestatic int lua_ap_limit_req_body(request_rec* r)

4f9c22c4f27571d54197be9674e1fc0d528192aestriker{

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe return (int) ap_get_limit_req_body(r);

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe}

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowestatic int lua_ap_is_initial_req(request_rec *r)

f08810eff40a2bddd2bc0103453c4ae775ea62bewrowe{

f08810eff40a2bddd2bc0103453c4ae775ea62bewrowe return ap_is_initial_req(r);

f08810eff40a2bddd2bc0103453c4ae775ea62bewrowe}

1fbf6ba0f5207e6637b49f9a9dfcc779bbe952a9trawick

f08810eff40a2bddd2bc0103453c4ae775ea62bewrowestatic int lua_ap_some_auth_required(request_rec *r)

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe{

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe return ap_some_auth_required(r);

8aefbd756763807188d2e3ce336a8680e4893066wrowe}

700b96db75e7cfadb5219978c1735b710d583763wrowe

700b96db75e7cfadb5219978c1735b710d583763wrowestatic int lua_ap_sendfile(lua_State *L)

700b96db75e7cfadb5219978c1735b710d583763wrowe{

700b96db75e7cfadb5219978c1735b710d583763wrowe

700b96db75e7cfadb5219978c1735b710d583763wrowe apr_finfo_t file_info;

700b96db75e7cfadb5219978c1735b710d583763wrowe const char *filename;

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe request_rec *r;

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe luaL_checktype(L, 1, LUA_TUSERDATA);

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe luaL_checktype(L, 2, LUA_TSTRING);

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe r = ap_lua_check_request_rec(L, 1);

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe filename = lua_tostring(L, 2);

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe apr_stat(&file_info, filename, APR_FINFO_MIN, r->pool);

700b96db75e7cfadb5219978c1735b710d583763wrowe if (file_info.filetype == APR_NOFILE || file_info.filetype == APR_DIR) {

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe lua_pushboolean(L, 0);

4f9c22c4f27571d54197be9674e1fc0d528192aestriker }

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe else {

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe apr_size_t sent;

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe apr_status_t rc;

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe apr_file_t *file;

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe rc = apr_file_open(&file, filename, APR_READ, APR_OS_DEFAULT,

8aefbd756763807188d2e3ce336a8680e4893066wrowe r->pool);

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar if (rc == APR_SUCCESS) {

4f9c22c4f27571d54197be9674e1fc0d528192aestriker ap_send_fd(file, r, 0, (apr_size_t)file_info.size, &sent);

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe apr_file_close(file);

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe lua_pushinteger(L, sent);

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar }

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar else {

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe lua_pushboolean(L, 0);

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar }

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe }

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe return (1);

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe}

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe

8aefbd756763807188d2e3ce336a8680e4893066wrowe

700b96db75e7cfadb5219978c1735b710d583763wrowestatic int lua_apr_b64encode(lua_State *L)

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe{

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe const char *plain;

700b96db75e7cfadb5219978c1735b710d583763wrowe char *encoded;

700b96db75e7cfadb5219978c1735b710d583763wrowe size_t plain_len, encoded_len;

700b96db75e7cfadb5219978c1735b710d583763wrowe request_rec *r;

700b96db75e7cfadb5219978c1735b710d583763wrowe

700b96db75e7cfadb5219978c1735b710d583763wrowe r = ap_lua_check_request_rec(L, 1);

700b96db75e7cfadb5219978c1735b710d583763wrowe luaL_checktype(L, 2, LUA_TSTRING);

700b96db75e7cfadb5219978c1735b710d583763wrowe plain = lua_tolstring(L, 2, &plain_len);

700b96db75e7cfadb5219978c1735b710d583763wrowe encoded_len = apr_base64_encode_len(plain_len);

103a93c625bcde1a6a7a5155b64dcda36f612180pquerna if (encoded_len) {

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe encoded = apr_palloc(r->pool, encoded_len);

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe encoded_len = apr_base64_encode(encoded, plain, plain_len);

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar if (encoded_len > 0 && encoded[encoded_len - 1] == '\0')

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe encoded_len--;

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar lua_pushlstring(L, encoded, encoded_len);

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe return 1;

700b96db75e7cfadb5219978c1735b710d583763wrowe }

700b96db75e7cfadb5219978c1735b710d583763wrowe return 0;

700b96db75e7cfadb5219978c1735b710d583763wrowe}

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe

700b96db75e7cfadb5219978c1735b710d583763wrowestatic int lua_apr_b64decode(lua_State *L)

700b96db75e7cfadb5219978c1735b710d583763wrowe{

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe const char *encoded;

700b96db75e7cfadb5219978c1735b710d583763wrowe char *plain;

700b96db75e7cfadb5219978c1735b710d583763wrowe size_t encoded_len, decoded_len;

700b96db75e7cfadb5219978c1735b710d583763wrowe request_rec *r;

700b96db75e7cfadb5219978c1735b710d583763wrowe

700b96db75e7cfadb5219978c1735b710d583763wrowe r = ap_lua_check_request_rec(L, 1);

700b96db75e7cfadb5219978c1735b710d583763wrowe luaL_checktype(L, 2, LUA_TSTRING);

700b96db75e7cfadb5219978c1735b710d583763wrowe encoded = lua_tolstring(L, 2, &encoded_len);

700b96db75e7cfadb5219978c1735b710d583763wrowe decoded_len = apr_base64_decode_len(encoded);

700b96db75e7cfadb5219978c1735b710d583763wrowe if (decoded_len) {

700b96db75e7cfadb5219978c1735b710d583763wrowe plain = apr_palloc(r->pool, decoded_len);

700b96db75e7cfadb5219978c1735b710d583763wrowe decoded_len = apr_base64_decode(plain, encoded);

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar if (decoded_len > 0 && plain[decoded_len - 1] == '\0')

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe decoded_len--;

700b96db75e7cfadb5219978c1735b710d583763wrowe lua_pushlstring(L, plain, decoded_len);

700b96db75e7cfadb5219978c1735b710d583763wrowe return 1;

700b96db75e7cfadb5219978c1735b710d583763wrowe }

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe return 0;

700b96db75e7cfadb5219978c1735b710d583763wrowe}

700b96db75e7cfadb5219978c1735b710d583763wrowe

700b96db75e7cfadb5219978c1735b710d583763wrowestatic int lua_ap_unescape(lua_State *L)

700b96db75e7cfadb5219978c1735b710d583763wrowe{

700b96db75e7cfadb5219978c1735b710d583763wrowe const char *escaped;

700b96db75e7cfadb5219978c1735b710d583763wrowe char *plain;

700b96db75e7cfadb5219978c1735b710d583763wrowe size_t x,

700b96db75e7cfadb5219978c1735b710d583763wrowe y;

700b96db75e7cfadb5219978c1735b710d583763wrowe request_rec *r;

700b96db75e7cfadb5219978c1735b710d583763wrowe r = ap_lua_check_request_rec(L, 1);

700b96db75e7cfadb5219978c1735b710d583763wrowe luaL_checktype(L, 2, LUA_TSTRING);

700b96db75e7cfadb5219978c1735b710d583763wrowe escaped = lua_tolstring(L, 2, &x);

700b96db75e7cfadb5219978c1735b710d583763wrowe plain = apr_pstrdup(r->pool, escaped);

700b96db75e7cfadb5219978c1735b710d583763wrowe y = ap_unescape_urlencoded(plain);

700b96db75e7cfadb5219978c1735b710d583763wrowe if (!y) {

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe lua_pushstring(L, plain);

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe return 1;

8aefbd756763807188d2e3ce336a8680e4893066wrowe }

2520f59894a3e07fefa881ef68aaded763a8d447ben return 0;

0e58e92812f2f679d6bf2ff66cbcfa6c1d1e14bbjerenkrantz}

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoarstatic int lua_ap_escape(lua_State *L)

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe{

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar const char *plain;

8aefbd756763807188d2e3ce336a8680e4893066wrowe char *escaped;

4f9c22c4f27571d54197be9674e1fc0d528192aestriker size_t x;

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe request_rec *r;

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe r = ap_lua_check_request_rec(L, 1);

8aefbd756763807188d2e3ce336a8680e4893066wrowe luaL_checktype(L, 2, LUA_TSTRING);

4f9c22c4f27571d54197be9674e1fc0d528192aestriker plain = lua_tolstring(L, 2, &x);

0e58e92812f2f679d6bf2ff66cbcfa6c1d1e14bbjerenkrantz escaped = ap_escape_urlencoded(r->pool, plain);

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe lua_pushstring(L, escaped);

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe return 1;

0e58e92812f2f679d6bf2ff66cbcfa6c1d1e14bbjerenkrantz}

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowestatic int lua_apr_md5(lua_State *L)

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe{

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe const char *buffer;

0e58e92812f2f679d6bf2ff66cbcfa6c1d1e14bbjerenkrantz char *result;

0e58e92812f2f679d6bf2ff66cbcfa6c1d1e14bbjerenkrantz size_t len;

0e58e92812f2f679d6bf2ff66cbcfa6c1d1e14bbjerenkrantz request_rec *r;

0e58e92812f2f679d6bf2ff66cbcfa6c1d1e14bbjerenkrantz

8aefbd756763807188d2e3ce336a8680e4893066wrowe r = ap_lua_check_request_rec(L, 1);

4f9c22c4f27571d54197be9674e1fc0d528192aestriker luaL_checktype(L, 2, LUA_TSTRING);

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe buffer = lua_tolstring(L, 2, &len);

4f9c22c4f27571d54197be9674e1fc0d528192aestriker result = ap_md5_binary(r->pool, (const unsigned char *)buffer, len);

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe lua_pushstring(L, result);

ecde48c75338ff5712f2036711f813c6dedca28ewrowe return 1;

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar}

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe

cf6ef072483172309861d06e85b1aeff4573c060wrowestatic int lua_apr_sha1(lua_State *L)

cf6ef072483172309861d06e85b1aeff4573c060wrowe{

cf6ef072483172309861d06e85b1aeff4573c060wrowe unsigned char digest[APR_SHA1_DIGESTSIZE];

cf6ef072483172309861d06e85b1aeff4573c060wrowe apr_sha1_ctx_t sha1;

cf6ef072483172309861d06e85b1aeff4573c060wrowe const char *buffer;

cf6ef072483172309861d06e85b1aeff4573c060wrowe char *result;

4f9c22c4f27571d54197be9674e1fc0d528192aestriker size_t len;

cf6ef072483172309861d06e85b1aeff4573c060wrowe request_rec *r;

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe

cf6ef072483172309861d06e85b1aeff4573c060wrowe r = ap_lua_check_request_rec(L, 1);

700b96db75e7cfadb5219978c1735b710d583763wrowe luaL_checktype(L, 2, LUA_TSTRING);

69adb3d949e3dd17c0492a01fc2cf298832c7eefwrowe result = apr_pcalloc(r->pool, sizeof(digest) * 2 + 1);

69adb3d949e3dd17c0492a01fc2cf298832c7eefwrowe buffer = lua_tolstring(L, 2, &len);

cf6ef072483172309861d06e85b1aeff4573c060wrowe apr_sha1_init(&sha1);

cf6ef072483172309861d06e85b1aeff4573c060wrowe apr_sha1_update(&sha1, buffer, len);

cf6ef072483172309861d06e85b1aeff4573c060wrowe apr_sha1_final(digest, &sha1);

cf6ef072483172309861d06e85b1aeff4573c060wrowe

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe ap_bin2hex(digest, sizeof(digest), result);

1fbf6ba0f5207e6637b49f9a9dfcc779bbe952a9trawick lua_pushstring(L, result);

1fbf6ba0f5207e6637b49f9a9dfcc779bbe952a9trawick return 1;

1fbf6ba0f5207e6637b49f9a9dfcc779bbe952a9trawick}

1fbf6ba0f5207e6637b49f9a9dfcc779bbe952a9trawick

1fbf6ba0f5207e6637b49f9a9dfcc779bbe952a9trawickstatic int lua_apr_htpassword(lua_State *L)

1fbf6ba0f5207e6637b49f9a9dfcc779bbe952a9trawick{

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe passwd_ctx ctx = { 0 };

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe request_rec *r;

c2cf53a40a9814eb91db2cdf820f97d943f21628coar

c2cf53a40a9814eb91db2cdf820f97d943f21628coar r = ap_lua_check_request_rec(L, 1);

8aefbd756763807188d2e3ce336a8680e4893066wrowe luaL_checktype(L, 2, LUA_TSTRING);

cf6ef072483172309861d06e85b1aeff4573c060wrowe ctx.passwd = apr_pstrdup(r->pool, lua_tostring(L, 2));

8aefbd756763807188d2e3ce336a8680e4893066wrowe ctx.alg = luaL_optinteger(L, 3, ALG_APMD5);

8aefbd756763807188d2e3ce336a8680e4893066wrowe ctx.cost = luaL_optinteger(L, 4, 0);

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe ctx.pool = r->pool;

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe ctx.out = apr_pcalloc(r->pool, MAX_PASSWD_LEN);

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe ctx.out_len = MAX_PASSWD_LEN;

8aefbd756763807188d2e3ce336a8680e4893066wrowe if (mk_password_hash(&ctx)) {

8aefbd756763807188d2e3ce336a8680e4893066wrowe lua_pushboolean(L, 0);

4f9c22c4f27571d54197be9674e1fc0d528192aestriker lua_pushstring(L, ctx.errstr);

cf6ef072483172309861d06e85b1aeff4573c060wrowe return 2;

4f9c22c4f27571d54197be9674e1fc0d528192aestriker } else {

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe lua_pushstring(L, ctx.out);

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe }

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe return 1;

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe}

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowestatic int lua_apr_touch(lua_State *L)

4f9c22c4f27571d54197be9674e1fc0d528192aestriker{

cf6ef072483172309861d06e85b1aeff4573c060wrowe request_rec *r;

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe const char *path;

cadddb2c31d24d48f4017db4df0a29687432326cwrowe apr_status_t status;

cadddb2c31d24d48f4017db4df0a29687432326cwrowe apr_time_t mtime;

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe

cf6ef072483172309861d06e85b1aeff4573c060wrowe r = ap_lua_check_request_rec(L, 1);

0e58e92812f2f679d6bf2ff66cbcfa6c1d1e14bbjerenkrantz luaL_checktype(L, 2, LUA_TSTRING);

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe path = lua_tostring(L, 2);

8aefbd756763807188d2e3ce336a8680e4893066wrowe mtime = (apr_time_t)luaL_optnumber(L, 3, (lua_Number)apr_time_now());

cf6ef072483172309861d06e85b1aeff4573c060wrowe status = apr_file_mtime_set(path, mtime, r->pool);

cf6ef072483172309861d06e85b1aeff4573c060wrowe lua_pushboolean(L, (status == 0));

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe return 1;

4f9c22c4f27571d54197be9674e1fc0d528192aestriker}

700b96db75e7cfadb5219978c1735b710d583763wrowe

c2cf53a40a9814eb91db2cdf820f97d943f21628coarstatic int lua_apr_mkdir(lua_State *L)

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe{

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe request_rec *r;

ecde48c75338ff5712f2036711f813c6dedca28ewrowe const char *path;

8aefbd756763807188d2e3ce336a8680e4893066wrowe apr_status_t status;

ecde48c75338ff5712f2036711f813c6dedca28ewrowe apr_fileperms_t perms;

ecde48c75338ff5712f2036711f813c6dedca28ewrowe

ecde48c75338ff5712f2036711f813c6dedca28ewrowe r = ap_lua_check_request_rec(L, 1);

ecde48c75338ff5712f2036711f813c6dedca28ewrowe luaL_checktype(L, 2, LUA_TSTRING);

ecde48c75338ff5712f2036711f813c6dedca28ewrowe path = lua_tostring(L, 2);

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe perms = luaL_optinteger(L, 3, APR_OS_DEFAULT);

ecde48c75338ff5712f2036711f813c6dedca28ewrowe status = apr_dir_make(path, perms, r->pool);

ecde48c75338ff5712f2036711f813c6dedca28ewrowe lua_pushboolean(L, (status == 0));

ecde48c75338ff5712f2036711f813c6dedca28ewrowe return 1;

ecde48c75338ff5712f2036711f813c6dedca28ewrowe}

ecde48c75338ff5712f2036711f813c6dedca28ewrowe

8aefbd756763807188d2e3ce336a8680e4893066wrowestatic int lua_apr_mkrdir(lua_State *L)

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe{

cf6ef072483172309861d06e85b1aeff4573c060wrowe request_rec *r;

cf6ef072483172309861d06e85b1aeff4573c060wrowe const char *path;

cf6ef072483172309861d06e85b1aeff4573c060wrowe apr_status_t status;

cf6ef072483172309861d06e85b1aeff4573c060wrowe apr_fileperms_t perms;

cf6ef072483172309861d06e85b1aeff4573c060wrowe

69adb3d949e3dd17c0492a01fc2cf298832c7eefwrowe r = ap_lua_check_request_rec(L, 1);

cf6ef072483172309861d06e85b1aeff4573c060wrowe luaL_checktype(L, 2, LUA_TSTRING);

cf6ef072483172309861d06e85b1aeff4573c060wrowe path = lua_tostring(L, 2);

cf6ef072483172309861d06e85b1aeff4573c060wrowe perms = luaL_optinteger(L, 3, APR_OS_DEFAULT);

cf6ef072483172309861d06e85b1aeff4573c060wrowe status = apr_dir_make_recursive(path, perms, r->pool);

cf6ef072483172309861d06e85b1aeff4573c060wrowe lua_pushboolean(L, (status == 0));

cf6ef072483172309861d06e85b1aeff4573c060wrowe return 1;

cf6ef072483172309861d06e85b1aeff4573c060wrowe}

4f9c22c4f27571d54197be9674e1fc0d528192aestriker

cf6ef072483172309861d06e85b1aeff4573c060wrowestatic int lua_apr_rmdir(lua_State *L)

cf6ef072483172309861d06e85b1aeff4573c060wrowe{

cf6ef072483172309861d06e85b1aeff4573c060wrowe request_rec *r;

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe const char *path;

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe apr_status_t status;

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe r = ap_lua_check_request_rec(L, 1);

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe luaL_checktype(L, 2, LUA_TSTRING);

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe path = lua_tostring(L, 2);

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe status = apr_dir_remove(path, r->pool);

4f9c22c4f27571d54197be9674e1fc0d528192aestriker lua_pushboolean(L, (status == 0));

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe return 1;

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe}

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar

ef5650b61a8e35f3cc93ec07e73efc17ea329894jortonstatic int lua_apr_date_parse_rfc(lua_State *L)

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe{

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar const char *input;

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe apr_time_t result;

700b96db75e7cfadb5219978c1735b710d583763wrowe

700b96db75e7cfadb5219978c1735b710d583763wrowe luaL_checktype(L, 1, LUA_TSTRING);

700b96db75e7cfadb5219978c1735b710d583763wrowe input = lua_tostring(L, 1);

700b96db75e7cfadb5219978c1735b710d583763wrowe result = apr_date_parse_rfc(input);

700b96db75e7cfadb5219978c1735b710d583763wrowe if (result == 0)

700b96db75e7cfadb5219978c1735b710d583763wrowe return 0;

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe lua_pushnumber(L, (lua_Number)(result / APR_USEC_PER_SEC));

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe return 1;

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe}

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe

700b96db75e7cfadb5219978c1735b710d583763wrowestatic int lua_ap_mpm_query(lua_State *L)

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe{

4f9c22c4f27571d54197be9674e1fc0d528192aestriker int x,

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe y;

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe x = lua_tointeger(L, 1);

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe ap_mpm_query(x, &y);

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe lua_pushinteger(L, y);

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe return 1;

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe}

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoarstatic int lua_ap_expr(lua_State *L)

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar{

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe request_rec *r;

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar int x = 0;

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe const char *expr,

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe *err;

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe ap_expr_info_t res;

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe

8aefbd756763807188d2e3ce336a8680e4893066wrowe luaL_checktype(L, 1, LUA_TUSERDATA);

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe luaL_checktype(L, 2, LUA_TSTRING);

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe r = ap_lua_check_request_rec(L, 1);

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe expr = lua_tostring(L, 2);

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar

e4a3f3c2f080cac75a15a6454cca429b8161c050wrowe res.filename = NULL;

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar res.flags = 0;

8aefbd756763807188d2e3ce336a8680e4893066wrowe res.line_number = 0;

8aefbd756763807188d2e3ce336a8680e4893066wrowe res.module_index = APLOG_MODULE_INDEX;

c2cf53a40a9814eb91db2cdf820f97d943f21628coar

c2cf53a40a9814eb91db2cdf820f97d943f21628coar err = ap_expr_parse(r->pool, r->pool, &res, expr, NULL);

c2cf53a40a9814eb91db2cdf820f97d943f21628coar if (!err) {

c2cf53a40a9814eb91db2cdf820f97d943f21628coar x = ap_expr_exec(r, &res, &err);

0ec08ecdcb42129d147888bda504787b164da39cerikabele lua_pushboolean(L, x);

8aefbd756763807188d2e3ce336a8680e4893066wrowe if (x < 0) {

8aefbd756763807188d2e3ce336a8680e4893066wrowe lua_pushstring(L, err);

8aefbd756763807188d2e3ce336a8680e4893066wrowe return 2;

8aefbd756763807188d2e3ce336a8680e4893066wrowe }

8aefbd756763807188d2e3ce336a8680e4893066wrowe return 1;

8aefbd756763807188d2e3ce336a8680e4893066wrowe } else {

5bb29f57ae0184d2b3c1cdf35132f8ceb011f882wrowe lua_pushboolean(L, 0);

8aefbd756763807188d2e3ce336a8680e4893066wrowe lua_pushstring(L, err);

8aefbd756763807188d2e3ce336a8680e4893066wrowe return 2;

8aefbd756763807188d2e3ce336a8680e4893066wrowe }

c2cf53a40a9814eb91db2cdf820f97d943f21628coar lua_pushboolean(L, 0);

c2cf53a40a9814eb91db2cdf820f97d943f21628coar return 1;

2d399cd7535887fceaa9f8f116eb98ce68ddd602trawick}

c2cf53a40a9814eb91db2cdf820f97d943f21628coar

8aefbd756763807188d2e3ce336a8680e4893066wrowe

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowestatic int lua_ap_regex(lua_State *L)

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe{

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe request_rec *r;

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe int i,

1b315ee865b0f11e582beb64127ca3a99a319d2fwrowe rv,

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar flags;

0540a0b469147b52e858587270dba31c2aaa9e09wrowe const char *pattern,

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar *source;

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar char *err;

0540a0b469147b52e858587270dba31c2aaa9e09wrowe ap_regex_t regex;

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar ap_regmatch_t matches[MODLUA_MAX_REG_MATCH+1];

0540a0b469147b52e858587270dba31c2aaa9e09wrowe

0540a0b469147b52e858587270dba31c2aaa9e09wrowe luaL_checktype(L, 1, LUA_TUSERDATA);

a9a4544168a37b43bd180b3703ccee995f27a80awrowe luaL_checktype(L, 2, LUA_TSTRING);

0540a0b469147b52e858587270dba31c2aaa9e09wrowe luaL_checktype(L, 3, LUA_TSTRING);

0540a0b469147b52e858587270dba31c2aaa9e09wrowe r = ap_lua_check_request_rec(L, 1);

0540a0b469147b52e858587270dba31c2aaa9e09wrowe source = lua_tostring(L, 2);

dc8692c6c0ca616a09aa12dad005f2ef23baa1a0wrowe pattern = lua_tostring(L, 3);

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar flags = luaL_optinteger(L, 4, 0);

0540a0b469147b52e858587270dba31c2aaa9e09wrowe

0540a0b469147b52e858587270dba31c2aaa9e09wrowe rv = ap_regcomp(&regex, pattern, flags);

0540a0b469147b52e858587270dba31c2aaa9e09wrowe if (rv) {

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar lua_pushboolean(L, 0);

0540a0b469147b52e858587270dba31c2aaa9e09wrowe err = apr_palloc(r->pool, 256);

dc8692c6c0ca616a09aa12dad005f2ef23baa1a0wrowe ap_regerror(rv, &regex, err, 256);

0540a0b469147b52e858587270dba31c2aaa9e09wrowe lua_pushstring(L, err);

8aefbd756763807188d2e3ce336a8680e4893066wrowe return 2;

8aefbd756763807188d2e3ce336a8680e4893066wrowe }

0540a0b469147b52e858587270dba31c2aaa9e09wrowe

a2a0abd88b19e042a3eb2a9fa1702c25ad51303dwrowe if (regex.re_nsub > MODLUA_MAX_REG_MATCH) {

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb lua_pushboolean(L, 0);

948096a99010fccf648814fecf38f75c689172d7wrowe err = apr_palloc(r->pool, 64);

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb apr_snprintf(err, 64,

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb "regcomp found %d matches; only %d allowed.",

4f9c22c4f27571d54197be9674e1fc0d528192aestriker regex.re_nsub, MODLUA_MAX_REG_MATCH);

0540a0b469147b52e858587270dba31c2aaa9e09wrowe lua_pushstring(L, err);

948096a99010fccf648814fecf38f75c689172d7wrowe return 2;

948096a99010fccf648814fecf38f75c689172d7wrowe }

948096a99010fccf648814fecf38f75c689172d7wrowe

948096a99010fccf648814fecf38f75c689172d7wrowe rv = ap_regexec(&regex, source, MODLUA_MAX_REG_MATCH, matches, 0);

dc8692c6c0ca616a09aa12dad005f2ef23baa1a0wrowe if (rv == AP_REG_NOMATCH) {

dc8692c6c0ca616a09aa12dad005f2ef23baa1a0wrowe lua_pushboolean(L, 0);

053497224246c4dbef9af594cacf5c00ed271e6cwrowe return 1;

0540a0b469147b52e858587270dba31c2aaa9e09wrowe }

d4abb06ac220bb280ae996b6d21bbd257db51bb1jerenkrantz

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb lua_newtable(L);

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb for (i = 0; i <= regex.re_nsub; i++) {

42da244268b11ec661b528510f80a18b73c51727brianp lua_pushinteger(L, i);

42da244268b11ec661b528510f80a18b73c51727brianp if (matches[i].rm_so >= 0 && matches[i].rm_eo >= 0)

948096a99010fccf648814fecf38f75c689172d7wrowe lua_pushstring(L,

948096a99010fccf648814fecf38f75c689172d7wrowe apr_pstrndup(r->pool, source + matches[i].rm_so,

948096a99010fccf648814fecf38f75c689172d7wrowe matches[i].rm_eo - matches[i].rm_so));

948096a99010fccf648814fecf38f75c689172d7wrowe else

948096a99010fccf648814fecf38f75c689172d7wrowe lua_pushnil(L);

948096a99010fccf648814fecf38f75c689172d7wrowe lua_settable(L, -3);

d4abb06ac220bb280ae996b6d21bbd257db51bb1jerenkrantz

948096a99010fccf648814fecf38f75c689172d7wrowe }

948096a99010fccf648814fecf38f75c689172d7wrowe return 1;

948096a99010fccf648814fecf38f75c689172d7wrowe}

d4abb06ac220bb280ae996b6d21bbd257db51bb1jerenkrantz

948096a99010fccf648814fecf38f75c689172d7wrowe

948096a99010fccf648814fecf38f75c689172d7wrowe

053497224246c4dbef9af594cacf5c00ed271e6cwrowe

b38846b15c8891c6dec44dcc4f96ca40721bf663rbbstatic int lua_ap_scoreboard_process(lua_State *L)

c2cf53a40a9814eb91db2cdf820f97d943f21628coar{

4f9c22c4f27571d54197be9674e1fc0d528192aestriker int i;

c2cf53a40a9814eb91db2cdf820f97d943f21628coar process_score *ps_record;

948096a99010fccf648814fecf38f75c689172d7wrowe

4f9c22c4f27571d54197be9674e1fc0d528192aestriker luaL_checktype(L, 1, LUA_TUSERDATA);

948096a99010fccf648814fecf38f75c689172d7wrowe luaL_checktype(L, 2, LUA_TNUMBER);

948096a99010fccf648814fecf38f75c689172d7wrowe i = lua_tointeger(L, 2);

053497224246c4dbef9af594cacf5c00ed271e6cwrowe ps_record = ap_get_scoreboard_process(i);

a9a4544168a37b43bd180b3703ccee995f27a80awrowe if (ps_record) {

948096a99010fccf648814fecf38f75c689172d7wrowe lua_newtable(L);

a9a4544168a37b43bd180b3703ccee995f27a80awrowe

4f9c22c4f27571d54197be9674e1fc0d528192aestriker lua_pushstring(L, "connections");

a9a4544168a37b43bd180b3703ccee995f27a80awrowe lua_pushnumber(L, ps_record->connections);

a9a4544168a37b43bd180b3703ccee995f27a80awrowe lua_settable(L, -3);

a9a4544168a37b43bd180b3703ccee995f27a80awrowe

a9a4544168a37b43bd180b3703ccee995f27a80awrowe lua_pushstring(L, "keepalive");

4f9c22c4f27571d54197be9674e1fc0d528192aestriker lua_pushnumber(L, ps_record->keep_alive);

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar lua_settable(L, -3);

948096a99010fccf648814fecf38f75c689172d7wrowe

948096a99010fccf648814fecf38f75c689172d7wrowe lua_pushstring(L, "lingering_close");

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar lua_pushnumber(L, ps_record->lingering_close);

948096a99010fccf648814fecf38f75c689172d7wrowe lua_settable(L, -3);

948096a99010fccf648814fecf38f75c689172d7wrowe

4f9c22c4f27571d54197be9674e1fc0d528192aestriker lua_pushstring(L, "pid");

948096a99010fccf648814fecf38f75c689172d7wrowe lua_pushnumber(L, ps_record->pid);

948096a99010fccf648814fecf38f75c689172d7wrowe lua_settable(L, -3);

aecb17a45c6d3ee4729ed5f68dc4270f211ee7a8fielding

948096a99010fccf648814fecf38f75c689172d7wrowe lua_pushstring(L, "suspended");

aa047239dedf0d26e8efecfade32e7337f35df19wrowe lua_pushnumber(L, ps_record->suspended);

948096a99010fccf648814fecf38f75c689172d7wrowe lua_settable(L, -3);

948096a99010fccf648814fecf38f75c689172d7wrowe

948096a99010fccf648814fecf38f75c689172d7wrowe lua_pushstring(L, "write_completion");

948096a99010fccf648814fecf38f75c689172d7wrowe lua_pushnumber(L, ps_record->write_completion);

948096a99010fccf648814fecf38f75c689172d7wrowe lua_settable(L, -3);

053497224246c4dbef9af594cacf5c00ed271e6cwrowe

0540a0b469147b52e858587270dba31c2aaa9e09wrowe lua_pushstring(L, "not_accepting");

053497224246c4dbef9af594cacf5c00ed271e6cwrowe lua_pushnumber(L, ps_record->not_accepting);

4f9c22c4f27571d54197be9674e1fc0d528192aestriker lua_settable(L, -3);

0540a0b469147b52e858587270dba31c2aaa9e09wrowe

4f9c22c4f27571d54197be9674e1fc0d528192aestriker lua_pushstring(L, "quiescing");

aa047239dedf0d26e8efecfade32e7337f35df19wrowe lua_pushnumber(L, ps_record->quiescing);

d4abb06ac220bb280ae996b6d21bbd257db51bb1jerenkrantz lua_settable(L, -3);

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb

053497224246c4dbef9af594cacf5c00ed271e6cwrowe return 1;

4f9c22c4f27571d54197be9674e1fc0d528192aestriker }

053497224246c4dbef9af594cacf5c00ed271e6cwrowe return 0;

053497224246c4dbef9af594cacf5c00ed271e6cwrowe}

053497224246c4dbef9af594cacf5c00ed271e6cwrowe

c2cf53a40a9814eb91db2cdf820f97d943f21628coarstatic int lua_ap_scoreboard_worker(lua_State *L)

4f9c22c4f27571d54197be9674e1fc0d528192aestriker{

4f9c22c4f27571d54197be9674e1fc0d528192aestriker int i, j;

4f9c22c4f27571d54197be9674e1fc0d528192aestriker worker_score *ws_record = NULL;

d4abb06ac220bb280ae996b6d21bbd257db51bb1jerenkrantz request_rec *r = NULL;

053497224246c4dbef9af594cacf5c00ed271e6cwrowe

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb luaL_checktype(L, 1, LUA_TUSERDATA);

948096a99010fccf648814fecf38f75c689172d7wrowe luaL_checktype(L, 2, LUA_TNUMBER);

948096a99010fccf648814fecf38f75c689172d7wrowe luaL_checktype(L, 3, LUA_TNUMBER);

948096a99010fccf648814fecf38f75c689172d7wrowe

0540a0b469147b52e858587270dba31c2aaa9e09wrowe r = ap_lua_check_request_rec(L, 1);

948096a99010fccf648814fecf38f75c689172d7wrowe if (!r) return 0;

948096a99010fccf648814fecf38f75c689172d7wrowe

948096a99010fccf648814fecf38f75c689172d7wrowe i = lua_tointeger(L, 2);

948096a99010fccf648814fecf38f75c689172d7wrowe j = lua_tointeger(L, 3);

948096a99010fccf648814fecf38f75c689172d7wrowe ws_record = apr_palloc(r->pool, sizeof *ws_record);

4f9c22c4f27571d54197be9674e1fc0d528192aestriker

948096a99010fccf648814fecf38f75c689172d7wrowe ap_copy_scoreboard_worker(ws_record, i, j);

948096a99010fccf648814fecf38f75c689172d7wrowe if (ws_record) {

948096a99010fccf648814fecf38f75c689172d7wrowe lua_newtable(L);

948096a99010fccf648814fecf38f75c689172d7wrowe

948096a99010fccf648814fecf38f75c689172d7wrowe lua_pushstring(L, "access_count");

948096a99010fccf648814fecf38f75c689172d7wrowe lua_pushnumber(L, ws_record->access_count);

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb lua_settable(L, -3);

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar

4f9c22c4f27571d54197be9674e1fc0d528192aestriker lua_pushstring(L, "bytes_served");

948096a99010fccf648814fecf38f75c689172d7wrowe lua_pushnumber(L, (lua_Number) ws_record->bytes_served);

0540a0b469147b52e858587270dba31c2aaa9e09wrowe lua_settable(L, -3);

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar lua_pushstring(L, "client");

0540a0b469147b52e858587270dba31c2aaa9e09wrowe lua_pushstring(L, ws_record->client);

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar lua_settable(L, -3);

696218c49632c863d18b25fa52ab63617088cb38wrowe

948096a99010fccf648814fecf38f75c689172d7wrowe lua_pushstring(L, "conn_bytes");

0540a0b469147b52e858587270dba31c2aaa9e09wrowe lua_pushnumber(L, (lua_Number) ws_record->conn_bytes);

948096a99010fccf648814fecf38f75c689172d7wrowe lua_settable(L, -3);

948096a99010fccf648814fecf38f75c689172d7wrowe

4f9c22c4f27571d54197be9674e1fc0d528192aestriker lua_pushstring(L, "conn_count");

948096a99010fccf648814fecf38f75c689172d7wrowe lua_pushnumber(L, ws_record->conn_count);

948096a99010fccf648814fecf38f75c689172d7wrowe lua_settable(L, -3);

053497224246c4dbef9af594cacf5c00ed271e6cwrowe

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar lua_pushstring(L, "generation");

948096a99010fccf648814fecf38f75c689172d7wrowe lua_pushnumber(L, ws_record->generation);

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar lua_settable(L, -3);

053497224246c4dbef9af594cacf5c00ed271e6cwrowe

053497224246c4dbef9af594cacf5c00ed271e6cwrowe lua_pushstring(L, "last_used");

a9a4544168a37b43bd180b3703ccee995f27a80awrowe lua_pushnumber(L, (lua_Number) ws_record->last_used);

a9a4544168a37b43bd180b3703ccee995f27a80awrowe lua_settable(L, -3);

a9a4544168a37b43bd180b3703ccee995f27a80awrowe

948096a99010fccf648814fecf38f75c689172d7wrowe lua_pushstring(L, "pid");

948096a99010fccf648814fecf38f75c689172d7wrowe lua_pushnumber(L, ws_record->pid);

053497224246c4dbef9af594cacf5c00ed271e6cwrowe lua_settable(L, -3);

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar

053497224246c4dbef9af594cacf5c00ed271e6cwrowe lua_pushstring(L, "request");

053497224246c4dbef9af594cacf5c00ed271e6cwrowe lua_pushstring(L, ws_record->request);

948096a99010fccf648814fecf38f75c689172d7wrowe lua_settable(L, -3);

731344ed8f3677d1661c261ca5fcdd2ee3dbc74ccoar

948096a99010fccf648814fecf38f75c689172d7wrowe lua_pushstring(L, "start_time");

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb lua_pushnumber(L, (lua_Number) ws_record->start_time);

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb lua_settable(L, -3);

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb lua_pushstring(L, "status");

a2a0abd88b19e042a3eb2a9fa1702c25ad51303dwrowe lua_pushnumber(L, ws_record->status);

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb lua_settable(L, -3);

aa047239dedf0d26e8efecfade32e7337f35df19wrowe

aa047239dedf0d26e8efecfade32e7337f35df19wrowe lua_pushstring(L, "stop_time");

aa047239dedf0d26e8efecfade32e7337f35df19wrowe lua_pushnumber(L, (lua_Number) ws_record->stop_time);

4f9c22c4f27571d54197be9674e1fc0d528192aestriker lua_settable(L, -3);

0540a0b469147b52e858587270dba31c2aaa9e09wrowe

aa047239dedf0d26e8efecfade32e7337f35df19wrowe lua_pushstring(L, "tid");

aa047239dedf0d26e8efecfade32e7337f35df19wrowe

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb lua_pushinteger(L, (lua_Integer) ws_record->tid);

dc8692c6c0ca616a09aa12dad005f2ef23baa1a0wrowe lua_settable(L, -3);

4f9c22c4f27571d54197be9674e1fc0d528192aestriker

dc8692c6c0ca616a09aa12dad005f2ef23baa1a0wrowe lua_pushstring(L, "vhost");

dc8692c6c0ca616a09aa12dad005f2ef23baa1a0wrowe lua_pushstring(L, ws_record->vhost);

b5bd19d82874782007a2f9bcb19341a483c1270cwrowe lua_settable(L, -3);

dc8692c6c0ca616a09aa12dad005f2ef23baa1a0wrowe#ifdef HAVE_TIMES

dc8692c6c0ca616a09aa12dad005f2ef23baa1a0wrowe lua_pushstring(L, "stimes");

dc8692c6c0ca616a09aa12dad005f2ef23baa1a0wrowe lua_pushnumber(L, ws_record->times.tms_stime);

a2b181763cb35fd899feb4a436aeadaa80bf91eabrianp lua_settable(L, -3);

aa047239dedf0d26e8efecfade32e7337f35df19wrowe

aa047239dedf0d26e8efecfade32e7337f35df19wrowe lua_pushstring(L, "utimes");

aa047239dedf0d26e8efecfade32e7337f35df19wrowe lua_pushnumber(L, ws_record->times.tms_utime);

aa047239dedf0d26e8efecfade32e7337f35df19wrowe lua_settable(L, -3);

aa047239dedf0d26e8efecfade32e7337f35df19wrowe#endif

0540a0b469147b52e858587270dba31c2aaa9e09wrowe return 1;

d4abb06ac220bb280ae996b6d21bbd257db51bb1jerenkrantz }

aa047239dedf0d26e8efecfade32e7337f35df19wrowe return 0;

aa047239dedf0d26e8efecfade32e7337f35df19wrowe}

4f9c22c4f27571d54197be9674e1fc0d528192aestriker

b38846b15c8891c6dec44dcc4f96ca40721bf663rbbstatic int lua_ap_clock(lua_State *L)

d4abb06ac220bb280ae996b6d21bbd257db51bb1jerenkrantz{

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb apr_time_t now;

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb now = apr_time_now();

d4abb06ac220bb280ae996b6d21bbd257db51bb1jerenkrantz lua_pushnumber(L, (lua_Number) now);

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb return 1;

b38846b15c8891c6dec44dcc4f96ca40721bf663rbb}

aa047239dedf0d26e8efecfade32e7337f35df19wrowe

4f9c22c4f27571d54197be9674e1fc0d528192aestrikerstatic int lua_ap_add_input_filter(lua_State *L)

c2cf53a40a9814eb91db2cdf820f97d943f21628coar{

aa047239dedf0d26e8efecfade32e7337f35df19wrowe request_rec *r;

4f9c22c4f27571d54197be9674e1fc0d528192aestriker const char *filterName;

aa047239dedf0d26e8efecfade32e7337f35df19wrowe ap_filter_rec_t *filter;

aa047239dedf0d26e8efecfade32e7337f35df19wrowe

aa047239dedf0d26e8efecfade32e7337f35df19wrowe luaL_checktype(L, 1, LUA_TUSERDATA);

a9a4544168a37b43bd180b3703ccee995f27a80awrowe luaL_checktype(L, 2, LUA_TSTRING);

a9a4544168a37b43bd180b3703ccee995f27a80awrowe r = ap_lua_check_request_rec(L, 1);

a9a4544168a37b43bd180b3703ccee995f27a80awrowe filterName = lua_tostring(L, 2);

4f9c22c4f27571d54197be9674e1fc0d528192aestriker filter = ap_get_input_filter_handle(filterName);

a9a4544168a37b43bd180b3703ccee995f27a80awrowe if (filter) {

a9a4544168a37b43bd180b3703ccee995f27a80awrowe ap_add_input_filter_handle(filter, NULL, r, r->connection);