71d35b6b5563817dfbe757ab9e3b9f018b2db491Thomas Hindoe Paaboel Andersen

ec2c5e4398f9d65e5dfe61530f2556224733d1e6Lennart Poettering

ec2c5e4398f9d65e5dfe61530f2556224733d1e6Lennart Poettering#include "ap_config.h"

cbe4216dd1b76f26460c553aefeeebf29bce221cLennart Poettering#include "httpd.h"

cbe4216dd1b76f26460c553aefeeebf29bce221cLennart Poettering#include "http_config.h"

a0c888c78c419cd49c05ee6d226568e6fea0a4f3Lennart Poettering#include "http_request.h"

a0c888c78c419cd49c05ee6d226568e6fea0a4f3Lennart Poettering#include "http_core.h"

6e0684729420912df019cc64d3f8a3c8290cc5f1Lennart Poettering#include "http_protocol.h"

ec2c5e4398f9d65e5dfe61530f2556224733d1e6Lennart Poettering#include "http_main.h"

ae6a4bbf318e197813227e50c245a00de03784a2Lennart Poettering#include "http_log.h"

ae6a4bbf318e197813227e50c245a00de03784a2Lennart Poettering#include "util_script.h"

ae6a4bbf318e197813227e50c245a00de03784a2Lennart Poettering#include "http_conf_globals.h"

019036a47fcd10fcf0286800d144c706f3773e2fLennart Poettering#ifdef HAVE_SYS_STAT_H

c3bc53e62459d7e566ffffeade41cd82bc6754f5Lennart Poettering#include <sys/stat.h>

d3760be01b120df8980c056ecc85a4229d660264Lennart Poettering#endif

105e151299dc1208855380be2b22d0db2d66ebc6Lennart Poettering#ifdef HAVE_STRING_H

105e151299dc1208855380be2b22d0db2d66ebc6Lennart Poettering#include <string.h>

105e151299dc1208855380be2b22d0db2d66ebc6Lennart Poettering#endif

105e151299dc1208855380be2b22d0db2d66ebc6Lennart Poettering

105e151299dc1208855380be2b22d0db2d66ebc6Lennart Poetteringmodule MODULE_VAR_EXPORT cgi_module;

105e151299dc1208855380be2b22d0db2d66ebc6Lennart Poettering

105e151299dc1208855380be2b22d0db2d66ebc6Lennart Poettering

105e151299dc1208855380be2b22d0db2d66ebc6Lennart Poetteringstatic int is_scriptaliased(request_rec *r)

547973dea7abd6c124ff6c79fe2bbe322a7314aeLennart Poettering{

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

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

a9da14e1e97ff774761966c2e1d83b0c6750b367Daniel Mack}

ec2c5e4398f9d65e5dfe61530f2556224733d1e6Lennart Poettering

ec2c5e4398f9d65e5dfe61530f2556224733d1e6Lennart Poettering

f32f0e57ca117455fb24ca72238c4958cd800b28Lennart Poettering#define DEFAULT_LOGBYTES 10385760

4667e00a61c2f60922558bc5e33ac9d3073a482cLennart Poettering#define DEFAULT_BUFBYTES 1024

4667e00a61c2f60922558bc5e33ac9d3073a482cLennart Poettering

d20b1667dbab8bccf69735523a0d5fc645e81b80Tom Gundersentypedef struct {

f32f0e57ca117455fb24ca72238c4958cd800b28Lennart Poettering char *logname;

f32f0e57ca117455fb24ca72238c4958cd800b28Lennart Poettering long logbytes;

f32f0e57ca117455fb24ca72238c4958cd800b28Lennart Poettering int bufbytes;

4667e00a61c2f60922558bc5e33ac9d3073a482cLennart Poettering} cgi_server_conf;

8300ba218e3cf5049496937be8bce10f22d09bbcTom Gundersen

8300ba218e3cf5049496937be8bce10f22d09bbcTom Gundersenstatic void *create_cgi_config(ap_pool_t *p, server_rec *s)

547973dea7abd6c124ff6c79fe2bbe322a7314aeLennart Poettering{

274b874830b93e6592f190608866133384066a35Lennart Poettering cgi_server_conf *c =

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

801ad6a6a9cd8fbd58b9f9c27f20dbb3c87d47ddLennart Poettering

801ad6a6a9cd8fbd58b9f9c27f20dbb3c87d47ddLennart Poettering c->logname = NULL;

801ad6a6a9cd8fbd58b9f9c27f20dbb3c87d47ddLennart Poettering c->logbytes = DEFAULT_LOGBYTES;

547973dea7abd6c124ff6c79fe2bbe322a7314aeLennart Poettering c->bufbytes = DEFAULT_BUFBYTES;

ec2c5e4398f9d65e5dfe61530f2556224733d1e6Lennart Poettering

ec2c5e4398f9d65e5dfe61530f2556224733d1e6Lennart Poettering return c;

ec2c5e4398f9d65e5dfe61530f2556224733d1e6Lennart Poettering}

547973dea7abd6c124ff6c79fe2bbe322a7314aeLennart Poettering

547973dea7abd6c124ff6c79fe2bbe322a7314aeLennart Poetteringstatic void *merge_cgi_config(ap_pool_t *p, void *basev, void *overridesv)

547973dea7abd6c124ff6c79fe2bbe322a7314aeLennart Poettering{

547973dea7abd6c124ff6c79fe2bbe322a7314aeLennart Poettering cgi_server_conf *base = (cgi_server_conf *) basev, *overrides = (cgi_server_conf *) overridesv;

547973dea7abd6c124ff6c79fe2bbe322a7314aeLennart Poettering

547973dea7abd6c124ff6c79fe2bbe322a7314aeLennart Poettering return overrides->logname ? overrides : base;

547973dea7abd6c124ff6c79fe2bbe322a7314aeLennart Poettering}

547973dea7abd6c124ff6c79fe2bbe322a7314aeLennart Poettering

547973dea7abd6c124ff6c79fe2bbe322a7314aeLennart Poetteringstatic const char *set_scriptlog(cmd_parms *cmd, void *dummy, char *arg)

547973dea7abd6c124ff6c79fe2bbe322a7314aeLennart Poettering{

547973dea7abd6c124ff6c79fe2bbe322a7314aeLennart Poettering server_rec *s = cmd->server;

ec2c5e4398f9d65e5dfe61530f2556224733d1e6Lennart Poettering cgi_server_conf *conf =

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

ec2c5e4398f9d65e5dfe61530f2556224733d1e6Lennart Poettering

ec2c5e4398f9d65e5dfe61530f2556224733d1e6Lennart Poettering conf->logname = arg;

ec2c5e4398f9d65e5dfe61530f2556224733d1e6Lennart Poettering return NULL;

ec2c5e4398f9d65e5dfe61530f2556224733d1e6Lennart Poettering}

f52e61da047d7fc74e83f12dbbf87e0cbcc51c73Lennart Poettering

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

ec2c5e4398f9d65e5dfe61530f2556224733d1e6Lennart Poettering{

51e399bcebefb27d6b147d90de84d07f010fa170Lennart Poettering server_rec *s = cmd->server;

ec2c5e4398f9d65e5dfe61530f2556224733d1e6Lennart Poettering cgi_server_conf *conf =

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

ec2c5e4398f9d65e5dfe61530f2556224733d1e6Lennart Poettering

ec2c5e4398f9d65e5dfe61530f2556224733d1e6Lennart Poettering conf->logbytes = atol(arg);

ec2c5e4398f9d65e5dfe61530f2556224733d1e6Lennart Poettering return NULL;

547973dea7abd6c124ff6c79fe2bbe322a7314aeLennart Poettering}

547973dea7abd6c124ff6c79fe2bbe322a7314aeLennart Poettering

547973dea7abd6c124ff6c79fe2bbe322a7314aeLennart Poetteringstatic const char *set_scriptlog_buffer(cmd_parms *cmd, void *dummy, char *arg)

547973dea7abd6c124ff6c79fe2bbe322a7314aeLennart Poettering{

a5784c498598348354543b23b13ee8639a8b9e35Lennart Poettering server_rec *s = cmd->server;

a5784c498598348354543b23b13ee8639a8b9e35Lennart Poettering cgi_server_conf *conf =

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

ec2c5e4398f9d65e5dfe61530f2556224733d1e6Lennart Poettering

ec2c5e4398f9d65e5dfe61530f2556224733d1e6Lennart Poettering conf->bufbytes = atoi(arg);

c3bc53e62459d7e566ffffeade41cd82bc6754f5Lennart Poettering return NULL;

c3bc53e62459d7e566ffffeade41cd82bc6754f5Lennart Poettering}

c3bc53e62459d7e566ffffeade41cd82bc6754f5Lennart Poettering

ec2c5e4398f9d65e5dfe61530f2556224733d1e6Lennart Poetteringstatic const command_rec cgi_cmds[] =

6e0684729420912df019cc64d3f8a3c8290cc5f1Lennart Poettering{

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

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

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

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

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

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

3b31df8301fd7dfb78bf9eaf9227d40c9bf12182Tom Gundersen {NULL}

ec2c5e4398f9d65e5dfe61530f2556224733d1e6Lennart Poettering};

ec2c5e4398f9d65e5dfe61530f2556224733d1e6Lennart Poettering

ec2c5e4398f9d65e5dfe61530f2556224733d1e6Lennart Poetteringstatic int log_scripterror(request_rec *r, cgi_server_conf * conf, int ret,

ec2c5e4398f9d65e5dfe61530f2556224733d1e6Lennart Poettering int show_errno, char *error)

c3bc53e62459d7e566ffffeade41cd82bc6754f5Lennart Poettering{

ap_file_t *f = NULL;

struct stat finfo;

char time_str[AP_CTIME_LEN];

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_OS_DEFAULT, r->pool) != APR_SUCCESS)) {

return ret;

}

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

ap_ctime(time_str, ap_now());

ap_fprintf(f, "%%%% [%s] %s %s%s%s %s\n", time_str, 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 = NULL;

int i;

struct stat finfo;

char time_str[AP_CTIME_LEN];

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_ctime(time_str, ap_now());

ap_fprintf(f, "%%%% [%s] %s %s%s%s %s\n", time_str, 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_pool_t *p)

{

char **env;

ap_procattr_t *procattr;

ap_proc_t *procnew;

ap_status_t rc = APR_SUCCESS;

ap_file_t *file = NULL;

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 (((rc = ap_createprocattr_init(&procattr, p)) != APR_SUCCESS) ||

((rc = ap_setprocattr_io(procattr,

APR_CHILD_BLOCK,

APR_CHILD_BLOCK,

APR_CHILD_BLOCK)) != APR_SUCCESS) ||

((rc = ap_setprocattr_dir(procattr,

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

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

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

ap_log_rerror(APLOG_MARK, APLOG_ERR, rc, r,

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

}

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, rc, r,

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

}

else {

ap_note_subprocess(p, procnew, kill_after_timeout);

/* 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_pool_t *p)

{

int numwords, x, idx;

char *w;

const char *args = r->args;

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

numwords = 1;

}

else {

/* count the number of keywords */

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

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

++numwords;

}

}

}

/* Everything is - 1 to account for the first parameter which is the

if (numwords > APACHE_ARG_MAX - 1) {

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

}

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

for (x = 1, idx = 1; 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_pool_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_pool_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.protection == 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.protection == 0)

return log_scripterror(r, conf, NOT_FOUND, APLOG_NOERRNO,

"script not found or unable to stat");

#endif

if (r->finfo.filetype == APR_DIR)

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;

}

argv[0] = ap_pstrdup(p, command);

/* run the script in its own process */

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 */

};