#ifndef lint
static const char rcsid[] = "$Id: fcgiapp.c,v 1.34 2001/12/12 22:54:10 robs Exp $";
#endif
#include <assert.h>
#include <errno.h>
#include <fcntl.h>
#include <math.h>
#include <memory.h>
#include <stdarg.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sys/types.h>
#include "fcgi_config.h"
#ifdef HAVE_SYS_SOCKET_H
#include <sys/socket.h>
#endif
#ifdef HAVE_SYS_TIME_H
#include <sys/time.h>
#endif
#ifdef HAVE_UNISTD_H
#include <unistd.h>
#endif
#ifdef HAVE_LIMITS_H
#include <limits.h>
#endif
#ifdef _WIN32
#define DLLAPI __declspec(dllexport)
#endif
#include "fcgimisc.h"
#include "fastcgi.h"
#include "fcgios.h"
#include "fcgiapp.h"
#ifdef HAVE_VA_ARG_LONG_DOUBLE_BUG
#define LONG_DOUBLE double
#else
#define LONG_DOUBLE long double
#endif
static int libInitialized = 0;
static int isFastCGI = -1;
static char *webServerAddressList = NULL;
static FCGX_Request the_request;
void FCGX_ShutdownPending(void)
{
OS_ShutdownPending();
}
static void *Malloc(size_t size)
{
void *result = malloc(size);
ASSERT(size == 0 || result != NULL);
return result;
}
static char *StringCopy(char *str)
{
int strLen = strlen(str);
char *newString = (char *)Malloc(strLen + 1);
memcpy(newString, str, strLen);
newString[strLen] = '\000';
return newString;
}
int FCGX_GetChar(FCGX_Stream *stream)
{
if (stream->isClosed || ! stream->isReader)
return EOF;
if (stream->rdNext != stream->stop)
return *stream->rdNext++;
stream->fillBuffProc(stream);
if (stream->isClosed)
return EOF;
stream->stopUnget = stream->rdNext;
if (stream->rdNext != stream->stop)
return *stream->rdNext++;
ASSERT(stream->isClosed);
return EOF;
}
int FCGX_GetStr(char *str, int n, FCGX_Stream *stream)
{
int m, bytesMoved;
if (stream->isClosed || ! stream->isReader || n <= 0) {
return 0;
}
if(n <= (stream->stop - stream->rdNext)) {
memcpy(str, stream->rdNext, n);
stream->rdNext += n;
return n;
}
bytesMoved = 0;
for (;;) {
if(stream->rdNext != stream->stop) {
m = min(n - bytesMoved, stream->stop - stream->rdNext);
memcpy(str, stream->rdNext, m);
bytesMoved += m;
stream->rdNext += m;
if(bytesMoved == n)
return bytesMoved;
str += m;
}
if(stream->isClosed || !stream->isReader)
return bytesMoved;
stream->fillBuffProc(stream);
if (stream->isClosed)
return bytesMoved;
stream->stopUnget = stream->rdNext;
}
}
char *FCGX_GetLine(char *str, int n, FCGX_Stream *stream)
{
int c;
char *p = str;
n--;
while (n > 0) {
c = FCGX_GetChar(stream);
if(c == EOF) {
if(p == str)
return NULL;
else
break;
}
*p++ = (char) c;
n--;
if(c == '\n')
break;
}
*p = '\0';
return str;
}
int FCGX_UnGetChar(int c, FCGX_Stream *stream) {
if(c == EOF
|| stream->isClosed
|| !stream->isReader
|| stream->rdNext == stream->stopUnget)
return EOF;
--(stream->rdNext);
*stream->rdNext = (unsigned char) c;
return c;
}
int FCGX_HasSeenEOF(FCGX_Stream *stream) {
return (stream->isClosed) ? EOF : 0;
}
int FCGX_PutChar(int c, FCGX_Stream *stream)
{
if(stream->wrNext != stream->stop)
return (*stream->wrNext++ = (unsigned char) c);
if(stream->isClosed || stream->isReader)
return EOF;
stream->emptyBuffProc(stream, FALSE);
if(stream->wrNext != stream->stop)
return (*stream->wrNext++ = (unsigned char) c);
ASSERT(stream->isClosed);
return EOF;
}
int FCGX_PutStr(const char *str, int n, FCGX_Stream *stream)
{
int m, bytesMoved;
if(n <= (stream->stop - stream->wrNext)) {
memcpy(stream->wrNext, str, n);
stream->wrNext += n;
return n;
}
bytesMoved = 0;
for (;;) {
if(stream->wrNext != stream->stop) {
m = min(n - bytesMoved, stream->stop - stream->wrNext);
memcpy(stream->wrNext, str, m);
bytesMoved += m;
stream->wrNext += m;
if(bytesMoved == n)
return bytesMoved;
str += m;
}
if(stream->isClosed || stream->isReader)
return -1;
stream->emptyBuffProc(stream, FALSE);
}
}
int FCGX_PutS(const char *str, FCGX_Stream *stream)
{
return FCGX_PutStr(str, strlen(str), stream);
}
int FCGX_FPrintF(FCGX_Stream *stream, const char *format, ...)
{
int result;
va_list ap;
va_start(ap, format);
result = FCGX_VFPrintF(stream, format, ap);
va_end(ap);
return result;
}
#define PRINTF_BUFFLEN 100
#define FMT_BUFFLEN 25
static void CopyAndAdvance(char **destPtr, char **srcPtr, int n);
int FCGX_VFPrintF(FCGX_Stream *stream, const char *format, va_list arg)
{
char *f, *fStop, *percentPtr, *p, *fmtBuffPtr, *buffPtr;
int op, performedOp, sizeModifier, buffCount = 0, buffLen, specifierLength;
int fastPath, n, auxBuffLen = 0, buffReqd, minWidth, precision, exp;
char *auxBuffPtr = NULL;
int streamCount = 0;
char fmtBuff[FMT_BUFFLEN];
char buff[PRINTF_BUFFLEN];
int intArg;
short shortArg;
long longArg;
unsigned unsignedArg;
unsigned long uLongArg;
unsigned short uShortArg;
char *charPtrArg = NULL;
void *voidPtrArg;
int *intPtrArg;
long *longPtrArg;
short *shortPtrArg;
double doubleArg = 0.0;
LONG_DOUBLE lDoubleArg = 0.0L;
fmtBuff[0] = '%';
f = (char *) format;
fStop = f + strlen(f);
while (f != fStop) {
percentPtr = (char *)memchr(f, '%', fStop - f);
if(percentPtr == NULL) percentPtr = fStop;
if(percentPtr != f) {
if(FCGX_PutStr(f, percentPtr - f, stream) < 0)
goto ErrorReturn;
streamCount += percentPtr - f;
f = percentPtr;
if(f == fStop) break;
}
fastPath = TRUE;
for (;;) {
if(fastPath) {
op = *(percentPtr + 1);
switch(op) {
case 'l':
case 'L':
case 'h':
sizeModifier = op;
op = *(percentPtr + 2);
fmtBuff[1] = (char) sizeModifier;
fmtBuff[2] = (char) op;
fmtBuff[3] = '\0';
specifierLength = 3;
break;
default:
sizeModifier = ' ';
fmtBuff[1] = (char) op;
fmtBuff[2] = '\0';
specifierLength = 2;
break;
}
buffPtr = buff;
buffLen = PRINTF_BUFFLEN;
} else {
p = percentPtr + 1;
fmtBuffPtr = &fmtBuff[1];
n = strspn(p, "-0+ #");
if(n > 5)
goto ErrorReturn;
CopyAndAdvance(&fmtBuffPtr, &p, n);
n = strspn(p, "0123456789");
if(n == 0) {
if(*p == '*') {
minWidth = va_arg(arg, int);
if(abs(minWidth) > 999999)
goto ErrorReturn;
sprintf(fmtBuffPtr, "%d", minWidth);
fmtBuffPtr += strlen(fmtBuffPtr);
p++;
} else {
minWidth = 0;
}
} else if(n <= 6) {
minWidth = strtol(p, NULL, 10);
CopyAndAdvance(&fmtBuffPtr, &p, n);
} else {
goto ErrorReturn;
}
if(*p == '.') {
CopyAndAdvance(&fmtBuffPtr, &p, 1);
n = strspn(p, "0123456789");
if(n == 0) {
if(*p == '*') {
precision = va_arg(arg, int);
if(precision < 0) precision = 0;
if(precision > 999999)
goto ErrorReturn;
sprintf(fmtBuffPtr, "%d", precision);
fmtBuffPtr += strlen(fmtBuffPtr);
p++;
} else {
precision = 0;
}
} else if(n <= 6) {
precision = strtol(p, NULL, 10);
CopyAndAdvance(&fmtBuffPtr, &p, n);
} else {
goto ErrorReturn;
}
} else {
precision = -1;
}
switch(*p) {
case 'l':
case 'L':
case 'h':
sizeModifier = *p;
CopyAndAdvance(&fmtBuffPtr, &p, 1);
break;
default:
sizeModifier = ' ';
break;
}
op = *p;
CopyAndAdvance(&fmtBuffPtr, &p, 1);
ASSERT(fmtBuffPtr - fmtBuff < FMT_BUFFLEN);
*fmtBuffPtr = '\0';
specifierLength = p - percentPtr;
switch(op) {
case 'd':
case 'i':
case 'u':
case 'o':
case 'x':
case 'X':
case 'c':
case 'p':
buffReqd = max(precision, 46);
break;
case 's':
charPtrArg = va_arg(arg, char *);
if (!charPtrArg) charPtrArg = "(null)";
if(precision == -1) {
buffReqd = strlen(charPtrArg);
} else {
p = (char *)memchr(charPtrArg, '\0', precision);
buffReqd =
(p == NULL) ? precision : p - charPtrArg;
}
break;
case 'f':
switch(sizeModifier) {
case ' ':
doubleArg = va_arg(arg, double);
frexp(doubleArg, &exp);
break;
case 'L':
lDoubleArg = va_arg(arg, LONG_DOUBLE);
frexp((double) lDoubleArg, &exp);
break;
default:
goto ErrorReturn;
}
if(precision == -1) precision = 6;
buffReqd = precision + 3 + ((exp > 0) ? exp/3 : 0);
break;
case 'e':
case 'E':
case 'g':
case 'G':
if(precision == -1) precision = 6;
buffReqd = precision + 8;
break;
case 'n':
case '%':
default:
goto ErrorReturn;
break;
}
buffReqd = max(buffReqd + 10, minWidth);
if(buffReqd <= PRINTF_BUFFLEN) {
buffPtr = buff;
buffLen = PRINTF_BUFFLEN;
} else {
if(auxBuffPtr == NULL || buffReqd > auxBuffLen) {
if(auxBuffPtr != NULL) free(auxBuffPtr);
auxBuffPtr = (char *)Malloc(buffReqd);
auxBuffLen = buffReqd;
if(auxBuffPtr == NULL)
goto ErrorReturn;
}
buffPtr = auxBuffPtr;
buffLen = auxBuffLen;
}
}
performedOp = TRUE;
switch(op) {
case 'd':
case 'i':
switch(sizeModifier) {
case ' ':
intArg = va_arg(arg, int);
sprintf(buffPtr, fmtBuff, intArg);
buffCount = strlen(buffPtr);
break;
case 'l':
longArg = va_arg(arg, long);
sprintf(buffPtr, fmtBuff, longArg);
buffCount = strlen(buffPtr);
break;
case 'h':
shortArg = (short) va_arg(arg, int);
sprintf(buffPtr, fmtBuff, shortArg);
buffCount = strlen(buffPtr);
break;
default:
goto ErrorReturn;
}
break;
case 'u':
case 'o':
case 'x':
case 'X':
switch(sizeModifier) {
case ' ':
unsignedArg = va_arg(arg, unsigned);
sprintf(buffPtr, fmtBuff, unsignedArg);
buffCount = strlen(buffPtr);
break;
case 'l':
uLongArg = va_arg(arg, unsigned long);
sprintf(buffPtr, fmtBuff, uLongArg);
buffCount = strlen(buffPtr);
break;
case 'h':
uShortArg = (unsigned short) va_arg(arg, int);
sprintf(buffPtr, fmtBuff, uShortArg);
buffCount = strlen(buffPtr);
break;
default:
goto ErrorReturn;
}
break;
case 'c':
switch(sizeModifier) {
case ' ':
intArg = va_arg(arg, int);
sprintf(buffPtr, fmtBuff, intArg);
buffCount = strlen(buffPtr);
break;
case 'l':
goto ErrorReturn;
default:
goto ErrorReturn;
}
break;
case 's':
switch(sizeModifier) {
case ' ':
if(fastPath) {
buffPtr = va_arg(arg, char *);
buffCount = strlen(buffPtr);
buffLen = buffCount + 1;
} else {
sprintf(buffPtr, fmtBuff, charPtrArg);
buffCount = strlen(buffPtr);
}
break;
case 'l':
goto ErrorReturn;
default:
goto ErrorReturn;
}
break;
case 'p':
if(sizeModifier != ' ')
goto ErrorReturn;
voidPtrArg = va_arg(arg, void *);
sprintf(buffPtr, fmtBuff, voidPtrArg);
buffCount = strlen(buffPtr);
break;
case 'n':
switch(sizeModifier) {
case ' ':
intPtrArg = va_arg(arg, int *);
*intPtrArg = streamCount;
break;
case 'l':
longPtrArg = va_arg(arg, long *);
*longPtrArg = streamCount;
break;
case 'h':
shortPtrArg = (short *) va_arg(arg, short *);
*shortPtrArg = (short) streamCount;
break;
default:
goto ErrorReturn;
}
buffCount = 0;
break;
case 'f':
if(fastPath) {
performedOp = FALSE;
break;
}
switch(sizeModifier) {
case ' ':
sprintf(buffPtr, fmtBuff, doubleArg);
buffCount = strlen(buffPtr);
break;
case 'L':
sprintf(buffPtr, fmtBuff, lDoubleArg);
buffCount = strlen(buffPtr);
break;
default:
goto ErrorReturn;
}
break;
case 'e':
case 'E':
case 'g':
case 'G':
switch(sizeModifier) {
case ' ':
doubleArg = va_arg(arg, double);
sprintf(buffPtr, fmtBuff, doubleArg);
buffCount = strlen(buffPtr);
break;
case 'L':
lDoubleArg = va_arg(arg, LONG_DOUBLE);
sprintf(buffPtr, fmtBuff, lDoubleArg);
buffCount = strlen(buffPtr);
break;
default:
goto ErrorReturn;
}
break;
case '%':
if(sizeModifier != ' ')
goto ErrorReturn;
buff[0] = '%';
buffCount = 1;
break;
case '\0':
goto ErrorReturn;
default:
performedOp = FALSE;
break;
}
if(performedOp) break;
if(!fastPath)
goto ErrorReturn;
fastPath = FALSE;
}
ASSERT(buffCount < buffLen);
if(buffCount > 0) {
if(FCGX_PutStr(buffPtr, buffCount, stream) < 0)
goto ErrorReturn;
streamCount += buffCount;
} else if(buffCount < 0) {
goto ErrorReturn;
}
f += specifierLength;
}
goto NormalReturn;
ErrorReturn:
streamCount = -1;
NormalReturn:
if(auxBuffPtr != NULL) free(auxBuffPtr);
return streamCount;
}
static void CopyAndAdvance(char **destPtr, char **srcPtr, int n)
{
char *dest = *destPtr;
char *src = *srcPtr;
int i;
for (i = 0; i < n; i++)
*dest++ = *src++;
*destPtr = dest;
*srcPtr = src;
}
int FCGX_FFlush(FCGX_Stream *stream)
{
if(stream->isClosed || stream->isReader)
return 0;
stream->emptyBuffProc(stream, FALSE);
return (stream->isClosed) ? -1 : 0;
}
int FCGX_FClose(FCGX_Stream *stream)
{
if (stream == NULL) return 0;
if(!stream->wasFCloseCalled) {
if(!stream->isReader) {
stream->emptyBuffProc(stream, TRUE);
}
stream->wasFCloseCalled = TRUE;
stream->isClosed = TRUE;
if(stream->isReader) {
stream->wrNext = stream->stop = stream->rdNext;
} else {
stream->rdNext = stream->stop = stream->wrNext;
}
}
return (stream->FCGI_errno == 0) ? 0 : EOF;
}
static void SetError(FCGX_Stream *stream, int FCGI_errno)
{
if(stream->FCGI_errno == 0) {
stream->FCGI_errno = FCGI_errno;
}
stream->isClosed = TRUE;
}
int FCGX_GetError(FCGX_Stream *stream) {
return stream->FCGI_errno;
}
void FCGX_ClearError(FCGX_Stream *stream) {
stream->FCGI_errno = 0;
}
typedef struct Params {
FCGX_ParamArray vec;
int length;
char **cur;
} Params;
typedef Params *ParamsPtr;
static ParamsPtr NewParams(int length)
{
ParamsPtr result;
result = (Params *)Malloc(sizeof(Params));
result->vec = (char **)Malloc(length * sizeof(char *));
result->length = length;
result->cur = result->vec;
*result->cur = NULL;
return result;
}
static void FreeParams(ParamsPtr *paramsPtrPtr)
{
ParamsPtr paramsPtr = *paramsPtrPtr;
char **p;
if(paramsPtr == NULL) {
return;
}
for (p = paramsPtr->vec; p < paramsPtr->cur; p++) {
free(*p);
}
free(paramsPtr->vec);
free(paramsPtr);
*paramsPtrPtr = NULL;
}
static void PutParam(ParamsPtr paramsPtr, char *nameValue)
{
int size;
*paramsPtr->cur++ = nameValue;
size = paramsPtr->cur - paramsPtr->vec;
if(size >= paramsPtr->length) {
paramsPtr->length *= 2;
paramsPtr->vec = (FCGX_ParamArray)realloc(paramsPtr->vec, paramsPtr->length * sizeof(char *));
paramsPtr->cur = paramsPtr->vec + size;
}
*paramsPtr->cur = NULL;
}
char *FCGX_GetParam(const char *name, FCGX_ParamArray envp)
{
int len;
char **p;
if (name == NULL || envp == NULL) return NULL;
len = strlen(name);
for (p = envp; *p; ++p) {
if((strncmp(name, *p, len) == 0) && ((*p)[len] == '=')) {
return *p+len+1;
}
}
return NULL;
}
static int ReadParams(Params *paramsPtr, FCGX_Stream *stream)
{
int nameLen, valueLen;
unsigned char lenBuff[3];
char *nameValue;
while((nameLen = FCGX_GetChar(stream)) != EOF) {
if((nameLen & 0x80) != 0) {
if(FCGX_GetStr((char *) &lenBuff[0], 3, stream) != 3) {
SetError(stream, FCGX_PARAMS_ERROR);
return -1;
}
nameLen = ((nameLen & 0x7f) << 24) + (lenBuff[0] << 16)
+ (lenBuff[1] << 8) + lenBuff[2];
}
if((valueLen = FCGX_GetChar(stream)) == EOF) {
SetError(stream, FCGX_PARAMS_ERROR);
return -1;
}
if((valueLen & 0x80) != 0) {
if(FCGX_GetStr((char *) &lenBuff[0], 3, stream) != 3) {
SetError(stream, FCGX_PARAMS_ERROR);
return -1;
}
valueLen = ((valueLen & 0x7f) << 24) + (lenBuff[0] << 16)
+ (lenBuff[1] << 8) + lenBuff[2];
}
nameValue = (char *)Malloc(nameLen + valueLen + 2);
if(FCGX_GetStr(nameValue, nameLen, stream) != nameLen) {
SetError(stream, FCGX_PARAMS_ERROR);
free(nameValue);
return -1;
}
*(nameValue + nameLen) = '=';
if(FCGX_GetStr(nameValue + nameLen + 1, valueLen, stream)
!= valueLen) {
SetError(stream, FCGX_PARAMS_ERROR);
free(nameValue);
return -1;
}
*(nameValue + nameLen + valueLen + 1) = '\0';
PutParam(paramsPtr, nameValue);
}
return 0;
}
static FCGI_Header MakeHeader(
int type,
int requestId,
int contentLength,
int paddingLength)
{
FCGI_Header header;
ASSERT(contentLength >= 0 && contentLength <= FCGI_MAX_LENGTH);
ASSERT(paddingLength >= 0 && paddingLength <= 0xff);
header.version = FCGI_VERSION_1;
header.type = (unsigned char) type;
header.requestIdB1 = (unsigned char) ((requestId >> 8) & 0xff);
header.requestIdB0 = (unsigned char) ((requestId ) & 0xff);
header.contentLengthB1 = (unsigned char) ((contentLength >> 8) & 0xff);
header.contentLengthB0 = (unsigned char) ((contentLength ) & 0xff);
header.paddingLength = (unsigned char) paddingLength;
header.reserved = 0;
return header;
}
static FCGI_EndRequestBody MakeEndRequestBody(
int appStatus,
int protocolStatus)
{
FCGI_EndRequestBody body;
body.appStatusB3 = (unsigned char) ((appStatus >> 24) & 0xff);
body.appStatusB2 = (unsigned char) ((appStatus >> 16) & 0xff);
body.appStatusB1 = (unsigned char) ((appStatus >> 8) & 0xff);
body.appStatusB0 = (unsigned char) ((appStatus ) & 0xff);
body.protocolStatus = (unsigned char) protocolStatus;
memset(body.reserved, 0, sizeof(body.reserved));
return body;
}
static FCGI_UnknownTypeBody MakeUnknownTypeBody(
int type)
{
FCGI_UnknownTypeBody body;
body.type = (unsigned char) type;
memset(body.reserved, 0, sizeof(body.reserved));
return body;
}
static int AlignInt8(unsigned n) {
return (n + 7) & (UINT_MAX - 7);
}
static unsigned char *AlignPtr8(unsigned char *p) {
unsigned long u = (unsigned long) p;
u = ((u + 7) & (ULONG_MAX - 7)) - u;
return p + u;
}
typedef struct FCGX_Stream_Data {
unsigned char *buff;
int bufflen;
unsigned char *mBuff;
unsigned char *buffStop;
int type;
int eorStop;
int skip;
int contentLen;
int paddingLen;
int isAnythingWritten;
int rawWrite;
FCGX_Request *reqDataPtr;
} FCGX_Stream_Data;
static void WriteCloseRecords(struct FCGX_Stream *stream)
{
FCGX_Stream_Data *data = (FCGX_Stream_Data *)stream->data;
data->rawWrite = TRUE;
if(!(data->type == FCGI_STDERR
&& stream->wrNext == data->buff
&& !data->isAnythingWritten)) {
FCGI_Header header;
header = MakeHeader(data->type, data->reqDataPtr->requestId, 0, 0);
FCGX_PutStr((char *) &header, sizeof(header), stream);
};
if(data->reqDataPtr->nWriters == 1) {
FCGI_EndRequestRecord endRequestRecord;
endRequestRecord.header = MakeHeader(FCGI_END_REQUEST,
data->reqDataPtr->requestId,
sizeof(endRequestRecord.body), 0);
endRequestRecord.body = MakeEndRequestBody(
data->reqDataPtr->appStatus, FCGI_REQUEST_COMPLETE);
FCGX_PutStr((char *) &endRequestRecord,
sizeof(endRequestRecord), stream);
}
data->reqDataPtr->nWriters--;
}
static int write_it_all(int fd, char *buf, int len)
{
int wrote;
while (len) {
wrote = OS_Write(fd, buf, len);
if (wrote < 0)
return wrote;
len -= wrote;
buf += wrote;
}
return len;
}
static void EmptyBuffProc(struct FCGX_Stream *stream, int doClose)
{
FCGX_Stream_Data *data = (FCGX_Stream_Data *)stream->data;
int cLen, eLen;
if(!data->rawWrite) {
cLen = stream->wrNext - data->buff - sizeof(FCGI_Header);
if(cLen > 0) {
eLen = AlignInt8(cLen);
memset(stream->wrNext, 0, eLen - cLen);
stream->wrNext += eLen - cLen;
*((FCGI_Header *) data->buff)
= MakeHeader(data->type,
data->reqDataPtr->requestId, cLen, eLen - cLen);
} else {
stream->wrNext = data->buff;
}
}
if(doClose) {
WriteCloseRecords(stream);
};
if (stream->wrNext != data->buff) {
data->isAnythingWritten = TRUE;
if (write_it_all(data->reqDataPtr->ipcFd, (char *)data->buff, stream->wrNext - data->buff) < 0) {
SetError(stream, OS_Errno);
return;
}
stream->wrNext = data->buff;
}
if(!data->rawWrite) {
stream->wrNext += sizeof(FCGI_Header);
}
}
#define STREAM_RECORD 0
#define SKIP 1
#define BEGIN_RECORD 2
#define MGMT_RECORD 3
static int ProcessManagementRecord(int type, FCGX_Stream *stream)
{
FCGX_Stream_Data *data = (FCGX_Stream_Data *)stream->data;
ParamsPtr paramsPtr = NewParams(3);
char **pPtr;
char response[64];
char *responseP = &response[FCGI_HEADER_LEN];
char *name, value = '\0';
int len, paddedLen;
if(type == FCGI_GET_VALUES) {
ReadParams(paramsPtr, stream);
if((FCGX_GetError(stream) != 0) || (data->contentLen != 0)) {
FreeParams(¶msPtr);
return FCGX_PROTOCOL_ERROR;
}
for (pPtr = paramsPtr->vec; pPtr < paramsPtr->cur; pPtr++) {
name = *pPtr;
*(strchr(name, '=')) = '\0';
if(strcmp(name, FCGI_MAX_CONNS) == 0) {
value = '1';
} else if(strcmp(name, FCGI_MAX_REQS) == 0) {
value = '1';
} else if(strcmp(name, FCGI_MPXS_CONNS) == 0) {
value = '0';
} else {
name = NULL;
}
if(name != NULL) {
len = strlen(name);
sprintf(responseP, "%c%c%s%c", len, 1, name, value);
responseP += len + 3;
}
}
len = responseP - &response[FCGI_HEADER_LEN];
paddedLen = AlignInt8(len);
*((FCGI_Header *) response)
= MakeHeader(FCGI_GET_VALUES_RESULT, FCGI_NULL_REQUEST_ID,
len, paddedLen - len);
FreeParams(¶msPtr);
} else {
paddedLen = len = sizeof(FCGI_UnknownTypeBody);
((FCGI_UnknownTypeRecord *) response)->header
= MakeHeader(FCGI_UNKNOWN_TYPE, FCGI_NULL_REQUEST_ID,
len, 0);
((FCGI_UnknownTypeRecord *) response)->body
= MakeUnknownTypeBody(type);
}
if (write_it_all(data->reqDataPtr->ipcFd, response, FCGI_HEADER_LEN + paddedLen) < 0) {
SetError(stream, OS_Errno);
return -1;
}
return MGMT_RECORD;
}
static int ProcessBeginRecord(int requestId, FCGX_Stream *stream)
{
FCGX_Stream_Data *data = (FCGX_Stream_Data *)stream->data;
FCGI_BeginRequestBody body;
if(requestId == 0 || data->contentLen != sizeof(body)) {
return FCGX_PROTOCOL_ERROR;
}
if(data->reqDataPtr->isBeginProcessed) {
FCGI_EndRequestRecord endRequestRecord;
endRequestRecord.header = MakeHeader(FCGI_END_REQUEST,
requestId, sizeof(endRequestRecord.body), 0);
endRequestRecord.body
= MakeEndRequestBody(0, FCGI_CANT_MPX_CONN);
if (write_it_all(data->reqDataPtr->ipcFd, (char *)&endRequestRecord, sizeof(endRequestRecord)) < 0) {
SetError(stream, OS_Errno);
return -1;
}
return SKIP;
}
data->reqDataPtr->requestId = requestId;
if(FCGX_GetStr((char *) &body, sizeof(body), stream)
!= sizeof(body)) {
return FCGX_PROTOCOL_ERROR;
}
data->reqDataPtr->keepConnection = (body.flags & FCGI_KEEP_CONN);
data->reqDataPtr->role = (body.roleB1 << 8) + body.roleB0;
data->reqDataPtr->isBeginProcessed = TRUE;
return BEGIN_RECORD;
}
static int ProcessHeader(FCGI_Header header, FCGX_Stream *stream)
{
FCGX_Stream_Data *data = (FCGX_Stream_Data *)stream->data;
int requestId;
if(header.version != FCGI_VERSION_1) {
return FCGX_UNSUPPORTED_VERSION;
}
requestId = (header.requestIdB1 << 8)
+ header.requestIdB0;
data->contentLen = (header.contentLengthB1 << 8)
+ header.contentLengthB0;
data->paddingLen = header.paddingLength;
if(header.type == FCGI_BEGIN_REQUEST) {
return ProcessBeginRecord(requestId, stream);
}
if(requestId == FCGI_NULL_REQUEST_ID) {
return ProcessManagementRecord(header.type, stream);
}
if(requestId != data->reqDataPtr->requestId) {
return SKIP;
}
if(header.type != data->type) {
return FCGX_PROTOCOL_ERROR;
}
return STREAM_RECORD;
}
static void FillBuffProc(FCGX_Stream *stream)
{
FCGX_Stream_Data *data = (FCGX_Stream_Data *)stream->data;
FCGI_Header header;
int headerLen = 0;
int status, count;
for (;;) {
if(stream->rdNext == data->buffStop) {
count = OS_Read(data->reqDataPtr->ipcFd, (char *)data->buff,
data->bufflen);
if(count <= 0) {
SetError(stream, (count == 0 ? FCGX_PROTOCOL_ERROR : OS_Errno));
return;
}
stream->rdNext = data->buff;
data->buffStop = data->buff + count;
}
if(data->contentLen > 0) {
count = min(data->contentLen, data->buffStop - stream->rdNext);
data->contentLen -= count;
if(!data->skip) {
stream->wrNext = stream->stop = stream->rdNext + count;
return;
} else {
stream->rdNext += count;
if(data->contentLen > 0) {
continue;
} else {
data->skip = FALSE;
}
}
}
if(data->paddingLen > 0) {
count = min(data->paddingLen, data->buffStop - stream->rdNext);
data->paddingLen -= count;
stream->rdNext += count;
if(data->paddingLen > 0) {
continue;
}
}
if(data->eorStop) {
stream->stop = stream->rdNext;
stream->isClosed = TRUE;
return;
}
count = min((int)sizeof(header) - headerLen,
data->buffStop - stream->rdNext);
memcpy(((char *)(&header)) + headerLen, stream->rdNext, count);
headerLen += count;
stream->rdNext += count;
if(headerLen < sizeof(header)) {
continue;
};
headerLen = 0;
data->eorStop = TRUE;
stream->stop = stream->rdNext;
status = ProcessHeader(header, stream);
data->eorStop = FALSE;
stream->isClosed = FALSE;
switch(status) {
case STREAM_RECORD:
if(data->contentLen == 0) {
stream->wrNext = stream->stop = stream->rdNext;
stream->isClosed = TRUE;
return;
}
break;
case SKIP:
data->skip = TRUE;
break;
case BEGIN_RECORD:
return;
break;
case MGMT_RECORD:
break;
default:
ASSERT(status < 0);
SetError(stream, status);
return;
break;
}
}
}
static FCGX_Stream *NewStream(
FCGX_Request *reqDataPtr, int bufflen, int isReader, int streamType)
{
FCGX_Stream *stream = (FCGX_Stream *)Malloc(sizeof(FCGX_Stream));
FCGX_Stream_Data *data = (FCGX_Stream_Data *)Malloc(sizeof(FCGX_Stream_Data));
data->reqDataPtr = reqDataPtr;
bufflen = AlignInt8(min(max(bufflen, 32), FCGI_MAX_LENGTH + 1));
data->bufflen = bufflen;
data->mBuff = (unsigned char *)Malloc(bufflen);
data->buff = AlignPtr8(data->mBuff);
if(data->buff != data->mBuff) {
data->bufflen -= 8;
}
if(isReader) {
data->buffStop = data->buff;
} else {
data->buffStop = data->buff + data->bufflen;
}
data->type = streamType;
data->eorStop = FALSE;
data->skip = FALSE;
data->contentLen = 0;
data->paddingLen = 0;
data->isAnythingWritten = FALSE;
data->rawWrite = FALSE;
stream->data = data;
stream->isReader = isReader;
stream->isClosed = FALSE;
stream->wasFCloseCalled = FALSE;
stream->FCGI_errno = 0;
if(isReader) {
stream->fillBuffProc = FillBuffProc;
stream->emptyBuffProc = NULL;
stream->rdNext = data->buff;
stream->stop = stream->rdNext;
stream->stopUnget = data->buff;
stream->wrNext = stream->stop;
} else {
stream->fillBuffProc = NULL;
stream->emptyBuffProc = EmptyBuffProc;
stream->wrNext = data->buff + sizeof(FCGI_Header);
stream->stop = data->buffStop;
stream->stopUnget = NULL;
stream->rdNext = stream->stop;
}
return stream;
}
void FCGX_FreeStream(FCGX_Stream **streamPtr)
{
FCGX_Stream *stream = *streamPtr;
FCGX_Stream_Data *data;
if(stream == NULL) {
return;
}
data = (FCGX_Stream_Data *)stream->data;
data->reqDataPtr = NULL;
free(data->mBuff);
free(data);
free(stream);
*streamPtr = NULL;
}
static FCGX_Stream *SetReaderType(FCGX_Stream *stream, int streamType)
{
FCGX_Stream_Data *data = (FCGX_Stream_Data *)stream->data;
ASSERT(stream->isReader);
data->type = streamType;
data->eorStop = FALSE;
data->skip = FALSE;
data->contentLen = 0;
data->paddingLen = 0;
stream->wrNext = stream->stop = stream->rdNext;
stream->isClosed = FALSE;
return stream;
}
static FCGX_Stream *NewReader(FCGX_Request *reqDataPtr, int bufflen, int streamType)
{
return NewStream(reqDataPtr, bufflen, TRUE, streamType);
}
static FCGX_Stream *NewWriter(FCGX_Request *reqDataPtr, int bufflen, int streamType)
{
return NewStream(reqDataPtr, bufflen, FALSE, streamType);
}
FCGX_Stream *FCGX_CreateWriter(
int ipcFd,
int requestId,
int bufflen,
int streamType)
{
FCGX_Request *reqDataPtr = (FCGX_Request *)Malloc(sizeof(FCGX_Request));
reqDataPtr->ipcFd = ipcFd;
reqDataPtr->requestId = requestId;
reqDataPtr->nWriters = 2;
return NewWriter(reqDataPtr, bufflen, streamType);
}
int FCGX_IsCGI(void)
{
if (isFastCGI != -1) {
return !isFastCGI;
}
if (!libInitialized) {
int rc = FCGX_Init();
if (rc) {
exit((rc < 0) ? rc : -rc);
}
}
isFastCGI = OS_IsFcgi(FCGI_LISTENSOCK_FILENO);
return !isFastCGI;
}
void FCGX_Finish(void)
{
FCGX_Finish_r(&the_request);
}
void FCGX_Finish_r(FCGX_Request *reqDataPtr)
{
int close;
if (reqDataPtr == NULL) {
return;
}
close = !reqDataPtr->keepConnection;
if (reqDataPtr->in) {
close |= FCGX_FClose(reqDataPtr->err);
close |= FCGX_FClose(reqDataPtr->out);
close |= FCGX_GetError(reqDataPtr->in);
}
FCGX_Free(reqDataPtr, close);
}
void FCGX_Free(FCGX_Request * request, int close)
{
if (request == NULL)
return;
FCGX_FreeStream(&request->in);
FCGX_FreeStream(&request->out);
FCGX_FreeStream(&request->err);
FreeParams(&request->paramsPtr);
if (close) {
OS_IpcClose(request->ipcFd);
request->ipcFd = -1;
}
}
int FCGX_OpenSocket(const char *path, int backlog)
{
int rc = OS_CreateLocalIpcFd(path, backlog);
if (rc == FCGI_LISTENSOCK_FILENO && isFastCGI == 0) {
isFastCGI = 1;
}
return rc;
}
int FCGX_InitRequest(FCGX_Request *request, int sock, int flags)
{
memset(request, 0, sizeof(FCGX_Request));
request->listen_sock = sock;
request->flags = flags;
request->ipcFd = -1;
return 0;
}
int FCGX_Init(void)
{
char *p;
if (libInitialized) {
return 0;
}
FCGX_InitRequest(&the_request, FCGI_LISTENSOCK_FILENO, 0);
if (OS_LibInit(NULL) == -1) {
return OS_Errno ? OS_Errno : -9997;
}
p = getenv("FCGI_WEB_SERVER_ADDRS");
webServerAddressList = p ? StringCopy(p) : NULL;
libInitialized = 1;
return 0;
}
int FCGX_Accept(
FCGX_Stream **in,
FCGX_Stream **out,
FCGX_Stream **err,
FCGX_ParamArray *envp)
{
int rc;
if (! libInitialized) {
rc = FCGX_Init();
if (rc) {
return rc;
}
}
rc = FCGX_Accept_r(&the_request);
*in = the_request.in;
*out = the_request.out;
*err = the_request.err;
*envp = the_request.envp;
return rc;
}
int FCGX_Accept_r(FCGX_Request *reqDataPtr)
{
if (!libInitialized) {
return -9998;
}
FCGX_Finish_r(reqDataPtr);
for (;;) {
if (reqDataPtr->ipcFd < 0) {
int fail_on_intr = reqDataPtr->flags & FCGI_FAIL_ACCEPT_ON_INTR;
reqDataPtr->ipcFd = OS_Accept(reqDataPtr->listen_sock, fail_on_intr, webServerAddressList);
if (reqDataPtr->ipcFd < 0) {
return (errno > 0) ? (0 - errno) : -9999;
}
}
reqDataPtr->isBeginProcessed = FALSE;
reqDataPtr->in = NewReader(reqDataPtr, 8192, 0);
FillBuffProc(reqDataPtr->in);
if(!reqDataPtr->isBeginProcessed) {
goto TryAgain;
}
{
char *roleStr;
switch(reqDataPtr->role) {
case FCGI_RESPONDER:
roleStr = "FCGI_ROLE=RESPONDER";
break;
case FCGI_AUTHORIZER:
roleStr = "FCGI_ROLE=AUTHORIZER";
break;
case FCGI_FILTER:
roleStr = "FCGI_ROLE=FILTER";
break;
default:
goto TryAgain;
}
reqDataPtr->paramsPtr = NewParams(30);
PutParam(reqDataPtr->paramsPtr, StringCopy(roleStr));
}
SetReaderType(reqDataPtr->in, FCGI_PARAMS);
if(ReadParams(reqDataPtr->paramsPtr, reqDataPtr->in) >= 0) {
break;
}
TryAgain:
FCGX_Free(reqDataPtr, 1);
}
SetReaderType(reqDataPtr->in, FCGI_STDIN);
reqDataPtr->out = NewWriter(reqDataPtr, 8192, FCGI_STDOUT);
reqDataPtr->err = NewWriter(reqDataPtr, 512, FCGI_STDERR);
reqDataPtr->nWriters = 2;
reqDataPtr->envp = reqDataPtr->paramsPtr->vec;
return 0;
}
int FCGX_StartFilterData(FCGX_Stream *stream)
{
FCGX_Stream_Data *data = (FCGX_Stream_Data *)stream->data;
if(data->reqDataPtr->role != FCGI_FILTER
|| !stream->isReader
|| !stream->isClosed
|| data->type != FCGI_STDIN) {
SetError(stream, FCGX_CALL_SEQ_ERROR);
return -1;
}
SetReaderType(stream, FCGI_DATA);
return 0;
}
void FCGX_SetExitStatus(int status, FCGX_Stream *stream)
{
FCGX_Stream_Data *data = (FCGX_Stream_Data *)stream->data;
data->reqDataPtr->appStatus = status;
}