--- parser3/src/targets/cgi/parser3.C	2001/03/23 13:08:12	1.40
+++ parser3/src/targets/cgi/parser3.C	2001/03/24 14:31:01	1.44
@@ -1,11 +1,11 @@
 /** @file
 	Parser: scripting and CGI main.
 
-	Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com)
+	Copyright(c) 2001 ArtLebedev Group(http://www.artlebedev.com)
 
-	Author: Alexander Petrosyan <paf@design.ru> (http://design.ru/paf)
+	Author: Alexander Petrosyan <paf@design.ru>(http://design.ru/paf)
 
-	$Id: parser3.C,v 1.40 2001/03/23 13:08:12 paf Exp $
+	$Id: parser3.C,v 1.44 2001/03/24 14:31:01 paf Exp $
 */
 
 #include "pa_config_includes.h"
@@ -24,12 +24,15 @@
 #include "pa_globals.h"
 #include "pa_request.h"
 
-Pool pool; // global pool [dont describe to doxygen: it confuses it with param names]
+/// IIS refuses to read bigger chunks
+const size_t READ_POST_CHUNK_SIZE=0x400*0x400; // 1M 
+
+Pool pool(0); // global pool [dont describe to doxygen: it confuses it with param names]
 bool cgi; ///< we were started as CGI?
 
 #ifdef WIN32
 /// global system errors into parser exceptions converter
-static 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 *er=ExceptionInfo->ExceptionRecord;
@@ -47,15 +50,6 @@ static LONG WINAPI TopLevelExceptionFilt
 }
 #endif
 
-#ifdef WIN32
-static void fix_slashes(char *s) {
-	if(s)
-		for(; *s; s++)
-			if(*s=='\\')
-				*s='/';
-}
-#endif
-
 //@{
 /// SAPI funcs decl
 const char *SAPI::get_env(Pool& pool, const char *name) {
@@ -66,7 +60,7 @@ uint SAPI::read_post(Pool& pool, char *b
 	uint read_size=0;
 	do {
 		int chunk_size=read(fileno(stdin), 
-			buf+read_size, min(0x400*0x400, max_bytes-read_size));
+			buf+read_size, min(READ_POST_CHUNK_SIZE, max_bytes-read_size));
 		if(chunk_size<0)
 			break;
 		read_size+=chunk_size;
@@ -83,7 +77,7 @@ void SAPI::add_header_attribute(Pool& po
 /// @todo intelligent cache-control
 void SAPI::send_header(Pool& pool) {
 	if(cgi) {
-		puts("Expires: Fri, 23 Mar 2001 09:32:23 GMT");
+		puts("expires: Fri, 23 Mar 2001 09:32:23 GMT");
 
 		// header | body  delimiter
 		puts("");
@@ -93,6 +87,32 @@ void SAPI::send_header(Pool& pool) {
 void SAPI::send_body(Pool& pool, const char *buf, size_t size) {
 	stdout_write(buf, size);
 }
+
+void SAPI::log(Pool& pool, const char *fmt, ...) {
+#if 1 //winnt
+	if(HANDLE elh=OpenEventLog(0, "Application")) {
+		va_list args;
+		va_start(args,fmt);
+		char buf[MAX_STRING];
+		vsnprintf(buf, MAX_STRING, fmt, args);
+		
+		const char *strings[]={buf};
+		ReportEvent(elh, EVENTLOG_ERROR_TYPE, 0, 
+			1234, 0, 1, 0, strings, 0);
+
+		va_end(args);
+		CloseEventLog(elh);
+	} else {
+		DWORD id=GetLastError();
+		if(FILE *f=fopen("c:\\temp\\a", "wt")) {
+		fprintf(f, "%d",id);
+		fclose(f);
+		}
+	}
+#else
+	// todo: file
+#endif
+}
 //@}
 
 /**
@@ -129,7 +149,7 @@ int main(int argc, char *argv[]) {
 
 	char *filespec_to_process=cgi?getenv("PATH_TRANSLATED"):argv[1];
 #ifdef WIN32
-	fix_slashes(filespec_to_process);
+	back_slashes_to_slashes(filespec_to_process);
 #endif
 
 	const char *request_method=getenv("REQUEST_METHOD");
@@ -164,7 +184,7 @@ int main(int argc, char *argv[]) {
 			} else
 				PTHROW(0, 0,
 					0,
-					"CGI: no PATH_INFO defined (in reinventing DOCUMENT_ROOT)");
+					"CGI: no PATH_INFO defined(in reinventing DOCUMENT_ROOT)");
 		} else {
 			static char buf[MAX_STRING];
 			strncpy(buf, filespec_to_process, MAX_STRING);
@@ -175,23 +195,26 @@ int main(int argc, char *argv[]) {
 		request_info.method=request_method;
 		const char *query_string=getenv("QUERY_STRING");
 		request_info.query_string=query_string;
-		if(const char *env_request_uri=getenv("REQUEST_URI"))
-			request_info.uri=env_request_uri;
-		else if (const char *path_info=getenv("PATH_INFO")) {
-			if(query_string) {
-				char *reconstructed_uri=(char *)malloc(
-					strlen(path_info)+1/*'?'*/+
-					strlen(query_string)+1/*0*/);
-				strcpy(reconstructed_uri, path_info);
-				strcat(reconstructed_uri, "?");
-				strcat(reconstructed_uri, query_string);
-				request_info.uri=reconstructed_uri;
-			} else
-				request_info.uri=path_info;
-		} else
-			PTHROW(0, 0,
-				0,
-				"CGI: no PATH_INFO defined (in reinventing REQUEST_URI)");
+		if(cgi) 
+			if(const char *env_request_uri=getenv("REQUEST_URI"))
+				request_info.uri=env_request_uri;
+			else if(const char *path_info=getenv("PATH_INFO"))
+				if(query_string) {
+					char *reconstructed_uri=(char *)malloc(
+						strlen(path_info)+1/*'?'*/+
+						strlen(query_string)+1/*0*/);
+					strcpy(reconstructed_uri, path_info);
+					strcat(reconstructed_uri, "?");
+					strcat(reconstructed_uri, query_string);
+					request_info.uri=reconstructed_uri;
+				} else
+					request_info.uri=path_info;
+			else
+				PTHROW(0, 0,
+					0,
+					"CGI: no PATH_INFO defined(in reinventing REQUEST_URI)");
+		else
+			request_info.uri=0;
 
 		request_info.content_type=getenv("CONTENT_TYPE");
 		const char *content_length=getenv("CONTENT_LENGTH");
@@ -232,7 +255,19 @@ int main(int argc, char *argv[]) {
 		// successful finish
 		return 0;
 	} PCATCH(e) { // global problem 
+		// must be first in PCATCH{}
+#ifdef WIN32
+		SetUnhandledExceptionFilter(0);
+#endif
+		// don't allocate anything on pool here:
+		//   possible pool' exception not catch-ed now
+		//   and there could be out-of-memory exception
+
 		const char *body=e.comment();
+		// log it
+		SAPI::log(pool, "exception in request exception handler: %s", body);
+
+		//
 		int content_length=strlen(body);
 
 		// prepare header