--- parser3/src/targets/cgi/parser3.C	2001/03/13 17:54:14	1.2
+++ parser3/src/targets/cgi/parser3.C	2001/03/14 16:47:34	1.10
@@ -3,41 +3,175 @@
 	Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com)
 	Author: Alexander Petrosyan <paf@design.ru> (http://design.ru/paf)
 
-	$Id: parser3.C,v 1.2 2001/03/13 17:54:14 paf Exp $
+	$Id: parser3.C,v 1.10 2001/03/14 16:47:34 paf Exp $
 */
 
-#include "core.h"
+#ifdef HAVE_CONFIG_H
+#	include "pa_config.h"
+#endif
+
+
+#ifdef WIN32
+#	include <windows.h>
+#	include <io.h>
+#endif
+#include <stdlib.h>
+#include <stdio.h>
+#include <string.h>
+#include <fcntl.h>
+
+#include "pa_globals.h"
 #include "pa_request.h"
 #include "pa_common.h"
 
-int main(int argc, char *argv[]) {
-	Pool pool;
-	core(pool);
+Pool pool; // global pool
+
+#ifdef WIN32
+#	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; i<r->NumberParameters; i++)
+			printed+=snprintf(buf+printed, MAX_STRING-printed, ", 0x%X", 
+				r->ExceptionInformation[i]);
+	} else 
+		strcpy(buf, "Exception <unknown>");
+	
+	PTHROW(0, 0,
+		0,
+		buf);
+
+	return EXCEPTION_EXECUTE_HANDLER; // never reached
+}
+#	endif
+#endif
+
+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 /
-	char *document_root="Y:/parser3/src/";
-	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;
-	char *result=request.core(error);
-
-	if(error)
-		printf("ERROR: %s", result);
-	else
-		printf("%s", result);
+	
+	if(!cgi) {
+		if(argc<2) {
+			char *binary=argv[0];
+			rsplit(binary, PATH_DELIMITER_CHAR);
+			printf("Usage: %s <file>\n", binary);
+			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
+		// c:\windows
+		sys_auto_path1=(char *)pool.malloc(MAX_STRING);
+		GetWindowsDirectory(sys_auto_path1, MAX_STRING);
+		strcat(sys_auto_path1, PATH_DELIMITER_STRING);
+#else
+		// ~nobody
+		sys_auto_path1=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
+		
+		// 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) {
+		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;
 }