--- parser3/src/targets/cgi/parser3.C 2001/03/14 09:02:53 1.7 +++ parser3/src/targets/cgi/parser3.C 2001/03/23 10:14:36 1.36 @@ -1,9 +1,11 @@ -/* - Parser +/** @file + Parser: scripting and CGI main. + Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com) + Author: Alexander Petrosyan (http://design.ru/paf) - $Id: parser3.C,v 1.7 2001/03/14 09:02:53 paf Exp $ + $Id: parser3.C,v 1.36 2001/03/23 10:14:36 paf Exp $ */ #ifdef HAVE_CONFIG_H @@ -14,34 +16,36 @@ #ifdef WIN32 # include # include +#else +# include #endif + +//\ifwin32 +#include +//#include +//\endifwin32 + #include #include #include #include +#include "pa_common.h" #include "pa_globals.h" #include "pa_request.h" -#include "pa_common.h" Pool pool; // global pool +bool cgi; ///< we were started as CGI? -#ifdef WIN32 +#if defined(WIN32) && _MSC_VER // intercept global system errors -LONG WINAPI TopLevelExceptionFilter ( - struct _EXCEPTION_POINTERS *ExceptionInfo - ) { +static LONG WINAPI TopLevelExceptionFilter (struct _EXCEPTION_POINTERS *ExceptionInfo) { char buf[MAX_STRING]; if(ExceptionInfo && ExceptionInfo->ExceptionRecord) { - struct _EXCEPTION_RECORD *r=ExceptionInfo->ExceptionRecord; - - int printed=0; - printed+=snprintf(buf+printed, MAX_STRING-printed, "Exception 0x%X at 0x%p", - r->ExceptionCode, - r->ExceptionAddress); - for(unsigned int i=0; iNumberParameters; i++) - printed+=snprintf(buf+printed, MAX_STRING-printed, ", 0x%X", - r->ExceptionInformation[i]); + struct _EXCEPTION_RECORD *er=ExceptionInfo->ExceptionRecord; + snprintf(buf, MAX_STRING, "Exception %#X at %p", + er->ExceptionCode, + er->ExceptionAddress); } else strcpy(buf, "Exception "); @@ -53,104 +57,183 @@ LONG WINAPI TopLevelExceptionFilter ( } #endif -void fill_vform_fields(Pool& pool, bool cgi, Hash& fields) { - String& ename=*new(pool) String(pool); - ename.APPEND_CONST("test"); +//\if +static void fix_slashes(char *s) { + if(s) + for(; *s; s++) + if(*s=='\\') + *s='/'; +} +//\endif + +// service funcs + +static const char *sapi_get_env(Pool& pool, const char *name) { + return getenv(name); +} + +static uint sapi_read_post(Pool& pool, char *buf, uint max_bytes) { + uint read_size=0; + do { + int chunk_size=read(fileno(stdin), + buf+read_size, min(0x400*0x400, max_bytes-read_size)); + if(chunk_size<0) + break; + read_size+=chunk_size; + } while(read_size", 0, "form", 0); +/// @todo intelligent cache-control +static void sapi_send_header(Pool& pool) { + if(cgi) { + puts("Expires: Fri, 23 Mar 2001 09:32:23 GMT"); + + // header | body delimiter + puts(""); + } +} - fields.put(ename, new(pool) VString(evalue)); +static void sapi_send_body(Pool& pool, const char *buf, size_t size) { + stdout_write(buf, size); } +/// SAPI +SAPI sapi={ + sapi_get_env, + sapi_read_post, + sapi_add_header_attribute, + sapi_send_header, + sapi_send_body +}; + + +// main + int main(int argc, char *argv[]) { + umask(2); + +#ifdef WIN32 + setmode(fileno(stdin), _O_BINARY); + setmode(fileno(stdout), _O_BINARY); + setmode(fileno(stderr), _O_BINARY); +#endif + // were we started as CGI? - bool cgi= + cgi= getenv("SERVER_SOFTWARE") || getenv("SERVER_NAME") || getenv("GATEWAY_INTERFACE") || getenv("REQUEST_METHOD"); - char *result; char error[MAX_STRING]; error[0]=0; + if(!cgi) { + if(argc<2) { + char *binary=argv[0]; + printf("Usage: %s \n", binary?binary:"parser3"); + exit(1); + } + } + + char *filespec_to_process=cgi?getenv("PATH_TRANSLATED"):argv[1]; +#ifdef WIN32 + fix_slashes(filespec_to_process); +#endif + + const char *request_method=getenv("REQUEST_METHOD"); + bool header_only=request_method && strcasecmp(request_method, "HEAD")==0; PTRY { // global try // must be first in PTRY{}PCATCH -#ifdef WIN32 +#if defined(WIN32) && _MSC_VER SetUnhandledExceptionFilter(&TopLevelExceptionFilter); //TODO: initSocks(); #endif - fill_globals(pool); - - // TODO: ifdef WIN32 flip \\ to / - const char *document_root="Y:/parser3/src/"; - const char *page_filespec="Y:/parser3/src/test.p"; - + // init global variables + globals_init(pool); + + if(!filespec_to_process) + PTHROW(0, 0, + 0, + "no file to process"); + + // Request info + Request::Info request_info; + if(cgi) + request_info.document_root=getenv("DOCUMENT_ROOT"); + else { + static char document_root[MAX_STRING]; + strncpy(document_root, filespec_to_process, MAX_STRING); + rsplit(document_root, '/'); rsplit(document_root, '\\');// strip filename + request_info.document_root=document_root; + } + request_info.path_translated=filespec_to_process; + request_info.method=request_method; + request_info.query_string=getenv("QUERY_STRING"); + request_info.uri=getenv("REQUEST_URI"); + request_info.content_type=getenv("CONTENT_TYPE"); + const char *content_length=getenv("CONTENT_LENGTH"); + request_info.content_length=(content_length?atoi(content_length):0); + request_info.cookie=getenv("HTTP_COOKIE"); + // prepare to process request - Request request(Pool(), - cgi ? String::Untaint_lang::HTML_TYPO : String::Untaint_lang::NO, - document_root, - page_filespec + Pool request_pool; + Request request(request_pool, + request_info, + cgi ? String::UL_HTML_TYPO : String::UL_NO ); - // fill user passed forms - fill_vform_fields(pool, cgi, request.form_class.fields()); - // some root-controlled location - char *sys_auto_path1; #ifdef WIN32 - sys_auto_path1=(char *)pool.malloc(MAX_STRING); - GetWindowsDirectory(sys_auto_path1, MAX_STRING); - strcat(sys_auto_path1, "\\"); + // c:\windows + static char root_auto_path[MAX_STRING]; + GetWindowsDirectory(root_auto_path, MAX_STRING); #else - sys_auto_path1=getenv("HOME"); + // ~nobody + char *root_auto_path=getenv("HOME"); #endif // beside by binary - char *sys_auto_path2=(char *)pool.malloc(MAX_STRING); - strncpy(sys_auto_path2, argv[0], MAX_STRING); // filespec of my binary - rsplit(sys_auto_path2, PATH_DELIMITER_CHAR); // strip filename + static char site_auto_path[MAX_STRING]; + strncpy(site_auto_path, argv[0], MAX_STRING); // filespec of my binary + rsplit(site_auto_path, '/'); rsplit(site_auto_path, '\\');// strip filename // process the request - result=request.core( - sys_auto_path1, - sys_auto_path2); - // set error, will be reported in case result==0 - strcpy(error, "exception occured in request exception handler"); + request.core( + root_auto_path, false, + site_auto_path, false, + header_only); // must be last in PTRY{}PCATCH -#ifdef WIN32 +#if defined(WIN32) && _MSC_VER SetUnhandledExceptionFilter(0); #endif - } PCATCH(e) { // global problem @globals fill @Request create @prepare to .core() - result=0; - strcpy(error, e.comment()); + // successful finish + return 0; + } PCATCH(e) { // global problem + const char *body=e.comment(); + int content_length=strlen(body); + + // prepare header + sapi_add_header_attribute(pool, "content-type", "text/plain"); + char content_length_cstr[MAX_NUMBER]; + snprintf(content_length_cstr, MAX_NUMBER, "%lu", content_length); + sapi_add_header_attribute(pool, "content-length", content_length_cstr); + + // send header + sapi_send_header(pool); + + // body + if(!header_only) + sapi_send_body(pool, body, content_length); + + // unsuccessful finish + return 1; } PEND_CATCH - - // write out the result - if(cgi) { - if(result) { - const char *content_type="text/html"; - printf( - "Content-type: %s\n" - "Content-length: %d\n" - "\n", - content_type, - strlen(result)); - stdout_write(result); - } else { - printf( - "Content-type: text/plain\n" - "Content-length: %d\n" - "\n", - strlen(error)); - stdout_write(error); - } - } else - if(result) - printf("%s", result); - else - fputs(error, stderr); - - return 0; }