#include "apr_strings.h"
#define APR_WANT_STRFUNC
#include "apr_want.h"
#include "ap_config.h"
#include "httpd.h"
#include "http_config.h"
#include "http_request.h"
#include "http_core.h"
#include "http_protocol.h"
#include "http_main.h"
#include "http_log.h"
#include "util_script.h"
typedef struct {
apr_table_t *action_types;
const char *scripted[METHODS];
int configured;
} action_dir_config;
module AP_MODULE_DECLARE_DATA actions_module;
static void *create_action_dir_config(apr_pool_t *p, char *dummy)
{
action_dir_config *new =
(action_dir_config *) apr_pcalloc(p, sizeof(action_dir_config));
new->action_types = apr_table_make(p, 4);
return new;
}
static void *merge_action_dir_configs(apr_pool_t *p, void *basev, void *addv)
{
action_dir_config *base = (action_dir_config *) basev;
action_dir_config *add = (action_dir_config *) addv;
action_dir_config *new = (action_dir_config *) apr_palloc(p,
sizeof(action_dir_config));
int i;
new->action_types = apr_table_overlay(p, add->action_types,
base->action_types);
for (i = 0; i < METHODS; ++i) {
new->scripted[i] = add->scripted[i] ? add->scripted[i]
: base->scripted[i];
}
new->configured = (base->configured || add->configured);
return new;
}
static const char *add_action(cmd_parms *cmd, void *m_v,
const char *type, const char *script,
const char *option)
{
action_dir_config *m = (action_dir_config *)m_v;
if (option && strcasecmp(option, "virtual")) {
return apr_pstrcat(cmd->pool,
"unrecognized option '", option, "'", NULL);
}
apr_table_setn(m->action_types, type,
apr_pstrcat(cmd->pool, option ? "1" : "0", script, NULL));
m->configured = 1;
return NULL;
}
static const char *set_script(cmd_parms *cmd, void *m_v,
const char *method, const char *script)
{
action_dir_config *m = (action_dir_config *)m_v;
int methnum = ap_method_register(cmd->pool, method);
if (methnum == M_TRACE) {
return "TRACE not allowed for Script";
}
else if (methnum == M_INVALID) {
return apr_pstrcat(cmd->pool, "Could not register method '", method,
"' for Script", NULL);
}
m->scripted[methnum] = script;
m->configured = 1;
return NULL;
}
static const command_rec action_cmds[] =
{
AP_INIT_TAKE23("Action", add_action, NULL, OR_FILEINFO,
"a media type followed by a script name"),
AP_INIT_TAKE2("Script", set_script, NULL, ACCESS_CONF | RSRC_CONF,
"a method followed by a script name"),
{NULL}
};
static int action_handler(request_rec *r)
{
action_dir_config *conf = (action_dir_config *)
ap_get_module_config(r->per_dir_config, &actions_module);
const char *t, *action;
const char *script;
int i;
if (!conf->configured) {
return DECLINED;
}
for (i = 0; i < METHODS; ++i) {
if (conf->scripted[i])
r->allowed |= (AP_METHOD_BIT << i);
}
if (r->method_number == M_GET) {
if (r->args)
script = conf->scripted[M_GET];
else
script = NULL;
}
else {
script = conf->scripted[r->method_number];
}
if (script && r->prev && r->prev->prev)
return DECLINED;
action = r->handler ? r->handler :
ap_field_noparam(r->pool, r->content_type);
action = action ? action : ap_default_type(r);
if ((t = apr_table_get(conf->action_types, action))) {
if (*t++ == '0' && r->finfo.filetype == 0) {
ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r,
"File does not exist: %s", r->filename);
return HTTP_NOT_FOUND;
}
script = t;
apr_table_setn(r->subprocess_env, "HANDLER", action);
}
if (script == NULL)
return DECLINED;
ap_internal_redirect_handler(apr_pstrcat(r->pool, script,
ap_escape_uri(r->pool, r->uri),
r->args ? "?" : NULL,
r->args, NULL), r);
return OK;
}
static void register_hooks(apr_pool_t *p)
{
ap_hook_handler(action_handler,NULL,NULL,APR_HOOK_LAST);
}
module AP_MODULE_DECLARE_DATA actions_module =
{
STANDARD20_MODULE_STUFF,
create_action_dir_config,
merge_action_dir_configs,
NULL,
NULL,
action_cmds,
register_hooks
};