#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"

#include "http_conf_globals.h"

module MODULE_VAR_EXPORT cgi_module;

static int is_scriptaliased(request_rec *r)

{

const char *t = ap_table_get(r->notes, "alias-forced-type");

return t && (!strcasecmp(t, "cgi-script"));

}

#define DEFAULT_LOGBYTES 10385760

#define DEFAULT_BUFBYTES 1024

typedef struct {

char *logname;

long logbytes;

int bufbytes;

} cgi_server_conf;

static void *create_cgi_config(ap_context_t *p, server_rec *s)

{

cgi_server_conf *c =

(cgi_server_conf *) ap_pcalloc(p, sizeof(cgi_server_conf));

c->logname = NULL;

c->logbytes = DEFAULT_LOGBYTES;

c->bufbytes = DEFAULT_BUFBYTES;

return c;

}

static void *merge_cgi_config(ap_context_t *p, void *basev, void *overridesv)

{

cgi_server_conf *base = (cgi_server_conf *) basev, *overrides = (cgi_server_conf *) overridesv;

return overrides->logname ? overrides : base;

}

static const char *set_scriptlog(cmd_parms *cmd, void *dummy, char *arg)

{

server_rec *s = cmd->server;

cgi_server_conf *conf =

(cgi_server_conf *) ap_get_module_config(s->module_config, &cgi_module);

conf->logname = arg;

return NULL;

}

static const char *set_scriptlog_length(cmd_parms *cmd, void *dummy, char *arg)

{

server_rec *s = cmd->server;

cgi_server_conf *conf =

(cgi_server_conf *) ap_get_module_config(s->module_config, &cgi_module);

conf->logbytes = atol(arg);

return NULL;

}

static const char *set_scriptlog_buffer(cmd_parms *cmd, void *dummy, char *arg)

{

server_rec *s = cmd->server;

cgi_server_conf *conf =

(cgi_server_conf *) ap_get_module_config(s->module_config, &cgi_module);

conf->bufbytes = atoi(arg);

return NULL;

}

static const command_rec cgi_cmds[] =

{

{"ScriptLog", set_scriptlog, NULL, RSRC_CONF, TAKE1,

"the name of a log for script debugging info"},

{"ScriptLogLength", set_scriptlog_length, NULL, RSRC_CONF, TAKE1,

"the maximum length (in bytes) of the script debug log"},

{"ScriptLogBuffer", set_scriptlog_buffer, NULL, RSRC_CONF, TAKE1,

"the maximum size (in bytes) to record of a POST request"},

{NULL}

};

static int log_scripterror(request_rec *r, cgi_server_conf * conf, int ret,

int show_errno, char *error)

{

ap_file_t *f;

struct stat finfo;

ap_log_rerror(APLOG_MARK, show_errno|APLOG_ERR, errno, r,

"%s: %s", error, r->filename);

if (!conf->logname ||

((stat(ap_server_root_relative(r->pool, conf->logname), &finfo) == 0)

&& (finfo.st_size > conf->logbytes)) ||

(ap_open(&f, ap_server_root_relative(r->pool, conf->logname),

APR_APPEND | APR_BUFFERED, APR_OS_DEFAULT, r->pool) != APR_SUCCESS)) {

return ret;

}

/* "%% [Wed Jun 19 10:53:21 1996] GET /cgi-bin/printenv HTTP/1.0" */

ap_fprintf(f, "%%%% [%s] %s %s%s%s %s\n", ap_get_time(), r->method, r->uri,

r->args ? "?" : "", r->args ? r->args : "", r->protocol);

/* "%% 500 /usr/local/apache/cgi-bin */

ap_fprintf(f, "%%%% %d %s\n", ret, r->filename);

ap_fprintf(f, "%%error\n%s\n", error);

ap_close(f);

return ret;

}

static int log_script(request_rec *r, cgi_server_conf * conf, int ret,

char *dbuf, const char *sbuf, BUFF *script_in, BUFF *script_err)

{

ap_array_header_t *hdrs_arr = ap_table_elts(r->headers_in);

ap_table_entry_t *hdrs = (ap_table_entry_t *) hdrs_arr->elts;

char argsbuffer[HUGE_STRING_LEN];

ap_file_t *f;

int i;

struct stat finfo;

if (!conf->logname ||

((stat(ap_server_root_relative(r->pool, conf->logname), &finfo) == 0)

&& (finfo.st_size > conf->logbytes)) ||

(ap_open(&f, ap_server_root_relative(r->pool, conf->logname),

APR_APPEND, APR_OS_DEFAULT, r->pool) != APR_SUCCESS)) {

/* Soak up script output */

while (ap_bgets(argsbuffer, HUGE_STRING_LEN, script_in) > 0)

continue;

#ifdef WIN32

/* Soak up stderr and redirect it to the error log.

while (ap_bgets(argsbuffer, HUGE_STRING_LEN, script_err) > 0) {

ap_log_rerror(APLOG_MARK, APLOG_ERR | APLOG_NOERRNO, 0, r,

"%s", argsbuffer);

}

#else

while (ap_bgets(argsbuffer, HUGE_STRING_LEN, script_err) > 0)

continue;

#endif

return ret;

}

/* "%% [Wed Jun 19 10:53:21 1996] GET /cgi-bin/printenv HTTP/1.0" */

ap_fprintf(f, "%%%% [%s] %s %s%s%s %s\n", ap_get_time(), r->method, r->uri,

r->args ? "?" : "", r->args ? r->args : "", r->protocol);

/* "%% 500 /usr/local/apache/cgi-bin" */

ap_fprintf(f, "%%%% %d %s\n", ret, r->filename);

ap_puts("%request\n", f);

for (i = 0; i < hdrs_arr->nelts; ++i) {

if (!hdrs[i].key)

continue;

ap_fprintf(f, "%s: %s\n", hdrs[i].key, hdrs[i].val);

}

if ((r->method_number == M_POST || r->method_number == M_PUT)

&& *dbuf) {

ap_fprintf(f, "\n%s\n", dbuf);

}

ap_puts("%response\n", f);

hdrs_arr = ap_table_elts(r->err_headers_out);

hdrs = (ap_table_entry_t *) hdrs_arr->elts;

for (i = 0; i < hdrs_arr->nelts; ++i) {

if (!hdrs[i].key)

continue;

ap_fprintf(f, "%s: %s\n", hdrs[i].key, hdrs[i].val);

}

if (sbuf && *sbuf)

ap_fprintf(f, "%s\n", sbuf);

if (ap_bgets(argsbuffer, HUGE_STRING_LEN, script_in) > 0) {

ap_puts("%stdout\n", f);

ap_puts(argsbuffer, f);

while (ap_bgets(argsbuffer, HUGE_STRING_LEN, script_in) > 0)

ap_puts(argsbuffer, f);

ap_puts("\n", f);

}

if (ap_bgets(argsbuffer, HUGE_STRING_LEN, script_err) > 0) {

ap_puts("%stderr\n", f);

ap_puts(argsbuffer, f);

while (ap_bgets(argsbuffer, HUGE_STRING_LEN, script_err) > 0)

ap_puts(argsbuffer, f);

ap_puts("\n", f);

}

ap_bclose(script_in);

ap_bclose(script_err);

ap_close(f);

return ret;

}

static ap_status_t run_cgi_child(BUFF **script_out, BUFF **script_in, BUFF **script_err,

char *command, char *const argv[], request_rec *r, ap_context_t *p)

{

char **env;

ap_procattr_t *procattr;

ap_proc_t *procnew;

ap_os_proc_t fred;

ap_status_t rc = APR_SUCCESS;

ap_file_t *file;

ap_iol *iol;

#ifdef DEBUG_CGI

#ifdef OS2

/* Under OS/2 need to use device con. */

FILE *dbg = fopen("con", "w");

#else

FILE *dbg = fopen("/dev/tty", "w");

#endif

int i;

#endif

ap_block_alarms();

RAISE_SIGSTOP(CGI_CHILD);

#ifdef DEBUG_CGI

fprintf(dbg, "Attempting to exec %s as %sCGI child (argv0 = %s)\n",

r->filename, cld->nph ? "NPH " : "", argv0);

#endif

ap_add_cgi_vars(r);

env = ap_create_environment(p, r->subprocess_env);

#ifdef DEBUG_CGI

fprintf(dbg, "Environment: \n");

for (i = 0; env[i]; ++i)

fprintf(dbg, "'%s'\n", env[i]);

#endif

/* Transumute ourselves into the script.

if ((ap_createprocattr_init(&procattr, p) != APR_SUCCESS) ||

(ap_setprocattr_io(procattr, 1, 1, 1) != APR_SUCCESS) ||

(ap_setprocattr_dir(procattr, ap_make_dirstr_parent(r->pool, r->filename)) != APR_SUCCESS) ||

(ap_setprocattr_cmdtype(procattr, APR_PROGRAM) != APR_SUCCESS)) {

/* Something bad happened, tell the world. */

ap_log_rerror(APLOG_MARK, APLOG_ERR, errno, r,

"couldn't create child process: %s", r->filename);

rc = !APR_SUCCESS;

}

else {

rc = ap_create_process(&procnew, command, argv, env, procattr, p);

if (rc != APR_SUCCESS) {

/* Bad things happened. Everyone should have cleaned up. */

ap_log_rerror(APLOG_MARK, APLOG_ERR, errno, r,

"couldn't create child process: %d: %s", rc, r->filename);

}

else {

#ifndef WIN32

/* pjr - this is a cheap hack for now to get the basics working in

ap_get_os_proc(&fred, procnew);

ap_note_subprocess(p, fred, kill_after_timeout);

#endif

/* Fill in BUFF structure for parents pipe to child's stdout */

ap_get_childout(&file, procnew);

iol = ap_create_file_iol(file);

if (!iol)

return APR_EBADF;

*script_in = ap_bcreate(p, B_RD);

ap_bpush_iol(*script_in, iol);

/* Fill in BUFF structure for parents pipe to child's stdin */

ap_get_childin(&file, procnew);

iol = ap_create_file_iol(file);

if (!iol)

return APR_EBADF;

*script_out = ap_bcreate(p, B_WR);

ap_bpush_iol(*script_out, iol);

/* Fill in BUFF structure for parents pipe to child's stderr */

ap_get_childerr(&file, procnew);

iol = ap_create_file_iol(file);

if (!iol)

return APR_EBADF;

*script_err = ap_bcreate(p, B_RD);

ap_bpush_iol(*script_err, iol);

}

}

ap_unblock_alarms();

return (rc);

}

static ap_status_t build_argv_list(char ***argv, request_rec *r, ap_context_t *p)

{

int numwords, x, idx;

char *w;

const char *args = r->args;

if (!args || !args[0] || strchr(args, '=')) {

*argv = NULL;

}

else {

/* count the number of keywords */

for (x = 0, numwords = 1; args[x]; x++) {

if (args[x] == '+') {

++numwords;

}

}

if (numwords > APACHE_ARG_MAX) {

numwords = APACHE_ARG_MAX; /* Truncate args to prevent overrun */

}

*argv = (char **) ap_palloc(p, (numwords + 1) * sizeof(char *));

for (x = 1, idx = 0; x <= numwords; x++) {

w = ap_getword_nulls(p, &args, '+');

ap_unescape_url(w);

(*argv)[idx++] = ap_escape_shell_cmd(p, w);

}

(*argv)[idx] = NULL;

}

return APR_SUCCESS;

}

static ap_status_t build_command_line(char **c, request_rec *r, ap_context_t *p)

{

#ifdef WIN32

char *quoted_filename = NULL;

char *interpreter = NULL;

file_type_e fileType;

*c = NULL;

fileType = ap_get_win32_interpreter(r, &interpreter);

if (fileType == eFileTypeUNKNOWN) {

ap_log_rerror(APLOG_MARK, APLOG_ERR|APLOG_NOERRNO, 0, r,

"%s is not executable; ensure interpreted scripts have "

"\"#!\" first line",

r->filename);

return APR_EBADF;

}

/*

quoted_filename = ap_pstrcat(p, "\"", r->filename, "\"", NULL);

if (interpreter && *interpreter) {

*c = ap_pstrcat(p, interpreter, " ", quoted_filename, " ", NULL);

}

else {

*c = ap_pstrcat(p, quoted_filename, " ", NULL);

}

#else

*c = ap_pstrcat(p, r->filename, NULL);

#endif

return APR_SUCCESS;

}

static int cgi_handler(request_rec *r)

{

int retval, nph, dbpos = 0;

char *argv0, *dbuf = NULL;

char *command;

char **argv = NULL;

BUFF *script_out = NULL, *script_in = NULL, *script_err = NULL;

char argsbuffer[HUGE_STRING_LEN];

int is_included = !strcmp(r->protocol, "INCLUDED");

void *sconf = r->server->module_config;

ap_context_t *p;

cgi_server_conf *conf =

(cgi_server_conf *) ap_get_module_config(sconf, &cgi_module);

p = r->main ? r->main->pool : r->pool;

if (r->method_number == M_OPTIONS) {

/* 99 out of 100 CGI scripts, this is all they support */

r->allowed |= (1 << M_GET);

r->allowed |= (1 << M_POST);

return DECLINED;

}

if ((argv0 = strrchr(r->filename, '/')) != NULL)

argv0++;

else

argv0 = r->filename;

nph = !(strncmp(argv0, "nph-", 4));

if (!(ap_allow_options(r) & OPT_EXECCGI) && !is_scriptaliased(r))

return log_scripterror(r, conf, FORBIDDEN, APLOG_NOERRNO,

"Options ExecCGI is off in this directory");

if (nph && is_included)

return log_scripterror(r, conf, FORBIDDEN, APLOG_NOERRNO,

"attempt to include NPH CGI script");

#if defined(OS2) || defined(WIN32)

/* Allow for cgi files without the .EXE extension on them under OS/2 */

if (r->finfo.st_mode == 0) {

struct stat statbuf;

char *newfile;

newfile = ap_pstrcat(r->pool, r->filename, ".EXE", NULL);

if ((stat(newfile, &statbuf) != 0) || (!S_ISREG(statbuf.st_mode))) {

return log_scripterror(r, conf, NOT_FOUND, 0,

"script not found or unable to stat");

} else {

r->filename = newfile;

}

}

#else

if (r->finfo.st_mode == 0)

return log_scripterror(r, conf, NOT_FOUND, APLOG_NOERRNO,

"script not found or unable to stat");

#endif

if (S_ISDIR(r->finfo.st_mode))

return log_scripterror(r, conf, FORBIDDEN, APLOG_NOERRNO,

"attempt to invoke directory as script");

if ((retval = ap_setup_client_block(r, REQUEST_CHUNKED_ERROR)))

return retval;

ap_add_common_vars(r);

/* build the command line */

if (build_command_line(&command, r, p) != APR_SUCCESS) {

ap_log_rerror(APLOG_MARK, APLOG_ERR, errno, r,

"couldn't spawn child process: %s", r->filename);

return HTTP_INTERNAL_SERVER_ERROR;

}

/* build the argument list */

else if (build_argv_list(&argv, r, p) != APR_SUCCESS) {

ap_log_rerror(APLOG_MARK, APLOG_ERR, errno, r,

"couldn't spawn child process: %s", r->filename);

return HTTP_INTERNAL_SERVER_ERROR;

}

/* run the script in its own process */

else if (run_cgi_child(&script_out, &script_in, &script_err, command, argv, r, p) != APR_SUCCESS) {

ap_log_rerror(APLOG_MARK, APLOG_ERR, errno, r,

"couldn't spawn child process: %s", r->filename);

return HTTP_INTERNAL_SERVER_ERROR;

}

/* Transfer any put/post args, CERN style...

if (ap_should_client_block(r)) {

int dbsize, len_read;

ap_ssize_t bytes_written;

if (conf->logname) {

dbuf = ap_pcalloc(r->pool, conf->bufbytes + 1);

dbpos = 0;

}

while ((len_read =

ap_get_client_block(r, argsbuffer, HUGE_STRING_LEN)) > 0) {

if (conf->logname) {

if ((dbpos + len_read) > conf->bufbytes) {

dbsize = conf->bufbytes - dbpos;

}

else {

dbsize = len_read;

}

memcpy(dbuf + dbpos, argsbuffer, dbsize);

dbpos += dbsize;

}

(void) ap_bwrite(script_out, argsbuffer, len_read, &bytes_written);

if (bytes_written < len_read) {

/* silly script stopped reading, soak up remaining message */

while (ap_get_client_block(r, argsbuffer, HUGE_STRING_LEN) > 0) {

/* dump it */

}

break;

}

}

ap_bflush(script_out);

}

ap_bclose(script_out);

/* Handle script return... */

if (script_in && !nph) {

const char *location;

char sbuf[MAX_STRING_LEN];

int ret;

if ((ret = ap_scan_script_header_err_buff(r, script_in, sbuf))) {

return log_script(r, conf, ret, dbuf, sbuf, script_in, script_err);

}

#ifdef CHARSET_EBCDIC

/* Now check the Content-Type to decide if conversion is needed */

ap_checkconv(r);

#endif /*CHARSET_EBCDIC*/

location = ap_table_get(r->headers_out, "Location");

if (location && location[0] == '/' && r->status == 200) {

/* Soak up all the script output */

while (ap_bgets(argsbuffer, HUGE_STRING_LEN, script_in) > 0) {

continue;

}

while (ap_bgets(argsbuffer, HUGE_STRING_LEN, script_err) > 0) {

continue;

}

/* This redirect needs to be a GET no matter what the original

r->method = ap_pstrdup(r->pool, "GET");

r->method_number = M_GET;

/* We already read the message body (if any), so don't allow

ap_table_unset(r->headers_in, "Content-Length");

ap_internal_redirect_handler(location, r);

return OK;

}

else if (location && r->status == 200) {

/* XX Note that if a script wants to produce its own Redirect

return REDIRECT;

}

ap_send_http_header(r);

if (!r->header_only) {

ap_send_fb(script_in, r);

}

ap_bclose(script_in);

while (ap_bgets(argsbuffer, HUGE_STRING_LEN, script_err) > 0) {

continue;

}

ap_bclose(script_err);

}

if (script_in && nph) {

ap_send_fb(script_in, r);

}

return OK; /* NOT r->status, even if it has changed. */

}

static const handler_rec cgi_handlers[] =

{

{CGI_MAGIC_TYPE, cgi_handler},

{"cgi-script", cgi_handler},

{NULL}

};

module MODULE_VAR_EXPORT cgi_module =

{

STANDARD20_MODULE_STUFF,

NULL, /* dir config creater */

NULL, /* dir merger --- default is to override */

create_cgi_config, /* server config */

merge_cgi_config, /* merge server config */

cgi_cmds, /* command ap_table_t */

cgi_handlers, /* handlers */

NULL /* register hooks */

};