--- parser3/src/targets/cgi/parser3.C 2001/03/13 18:32:48 1.3 +++ parser3/src/targets/cgi/parser3.C 2001/03/14 17:15:08 1.11 @@ -3,89 +3,175 @@ Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com) Author: Alexander Petrosyan (http://design.ru/paf) - $Id: parser3.C,v 1.3 2001/03/13 18:32:48 paf Exp $ + $Id: parser3.C,v 1.11 2001/03/14 17:15:08 paf Exp $ */ -#include "pa_config.h" +#ifdef HAVE_CONFIG_H +# include "pa_config.h" +#endif + #ifdef WIN32 # include # include #endif #include +#include +#include +#include -#include "core.h" +#include "pa_globals.h" #include "pa_request.h" #include "pa_common.h" -#ifdef WIN32 -// TODO: LONG WINAPI TopLevelExceptionFilter ( -#endif +Pool pool; // global pool -int main(int argc, char *argv[]) { #ifdef WIN32 - _fmode=_O_BINARY; /*sets default for file streams to binary */ - setmode(_fileno(stdin), O_BINARY); /* make the stdio mode be binary */ - setmode(_fileno(stdout), O_BINARY); /* make the stdio mode be binary */ - setmode(_fileno(stderr), O_BINARY); /* make the stdio mode be binary */ +# if MSVC +// intercept global system errors +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]); + } else + strcpy(buf, "Exception "); + + PTHROW(0, 0, + 0, + buf); - //TODO: SetUnhandledExceptionFilter(&TopLevelExceptionFilter); - //TODO: initSocks(); + return EXCEPTION_EXECUTE_HANDLER; // never reached +} +# endif #endif - - Pool pool; - core(pool); +size_t read_post(char *&buf, size_t max_bytes) { + return 0; +} +int main(int argc, char *argv[]) { + // Service funcs + service_funcs.read_post=read_post; + // were we started as CGI? bool cgi= getenv("SERVER_SOFTWARE") || getenv("SERVER_NAME") || getenv("GATEWAY_INTERFACE") || getenv("REQUEST_METHOD"); - - // TODO: ifdef WIN32 flip \\ to / - const char *document_root="Y:/parser3/src/"; - const char *page_filespec="Y:/parser3/src/test.p"; - - // request - Request request(pool, - cgi ? String::Untaint_lang::HTML_TYPO : String::Untaint_lang::NO, - document_root, - page_filespec - ); - bool error; - // some root-controlled location - char *sys_auto_path1; + if(!cgi) { + if(argc<2) { + char *binary=argv[0]; + char *name=rsplit(binary, PATH_DELIMITER_CHAR); + printf("Usage: %s \n", name?name:"parser3"); + exit(1); + } + } + + const char *filespec_to_process=cgi?getenv("PATH_TRANSLATED"):argv[1]; + + char *result; char error[MAX_STRING]; error[0]=0; + PTRY { // global try + // must be first in PTRY{}PCATCH +#ifdef WIN32 +# if MSVC + SetUnhandledExceptionFilter(&TopLevelExceptionFilter); + //TODO: initSocks(); +# endif +#endif + + // init global variables + globals_init(pool); + + // Request info + // TODO: ifdef WIN32 flip \\ to / + Request::Info request_info; + request_info.document_root="Y:/parser3/src/"; + request_info.path_translated=filespec_to_process; + request_info.request_method=getenv("REQUEST_METHOD"); + request_info.query_string=getenv("QUERY_STRING"); + request_info.request_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); + + // prepare to process request + Request request(Pool(), + request_info, + cgi ? String::Untaint_lang::HTML_TYPO : String::Untaint_lang::NO + ); + + // some root-controlled location + char *sys_auto_path1; #ifdef WIN32 - sys_auto_path1=(char *)pool.malloc(MAX_STRING); - GetWindowsDirectory(sys_auto_path1, MAX_STRING-1/*for \*/); - strcat(sys_auto_path1, '\\'); + // c:\windows + sys_auto_path1=(char *)pool.malloc(MAX_STRING); + GetWindowsDirectory(sys_auto_path1, MAX_STRING); + strcat(sys_auto_path1, PATH_DELIMITER_STRING); #else - sys_auto_path1=getenv("HOME"); + // ~nobody + sys_auto_path1=getenv("HOME"); #endif - - // beside by binary - const char *sys_auto_path2=(char *)pool.malloc(MAX_STRING); - strncpy(sys_auto_path2, argv[0]); // filespec of my binary - rsplit(sys_auto_path2, '\\'); rsplit(sys_auto_path2, '/'); // strip filename - - char *result=request.core( - sys_auto_path1, - sys_auto_path2); - + + // 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 + + // 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"); + + // must be last in PTRY{}PCATCH +#ifdef WIN32 +# if MSVC + SetUnhandledExceptionFilter(0); +# endif +#endif + } PCATCH(e) { // global problem @globals fill @Request create @prepare to .core() + result=0; + strcpy(error, e.comment()); + } + PEND_CATCH + + // write out the result if(cgi) { - const char *content_type="text/html"; - printf( - "Content-type: %s\n" - "Content-length: %d\n" - "\n", + 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); + stdout_write(result); + } else { + printf( + "Content-type: text/plain\n" + "Content-length: %d\n" + "\n", + strlen(error)); + stdout_write(error); + } } else - printf("%s", result); + if(result) + printf("%s", result); + else + fputs(error, stderr); return 0; }