--- parser3/src/targets/cgi/parser3.C	2001/10/22 16:44:43	1.124
+++ parser3/src/targets/cgi/parser3.C	2001/11/15 16:30:02	1.131
@@ -2,15 +2,16 @@
 	Parser: scripting and CGI main.
 
 	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://paf.design.ru)
 
-	$Id: parser3.C,v 1.124 2001/10/22 16:44:43 parser Exp $
+	$Id: parser3.C,v 1.131 2001/11/15 16:30:02 paf Exp $
 */
 
 #include "pa_config_includes.h"
 
 #ifdef WIN32
 #	include <windows.h>
+#	include <new.h>
 #endif
 
 #include "pa_sapi.h"
@@ -19,6 +20,7 @@
 #include "pa_request.h"
 #include "pa_socks.h"
 #include "pa_version.h"
+#include "pool_storage.h"
 
 #ifdef XML
 #include <XalanTransformer/XalanCAPI.h>
@@ -58,7 +60,8 @@ const char **RCSIds[]={
 const size_t READ_POST_CHUNK_SIZE=0x400*0x400; // 1M 
 
 const char *argv0;
-Pool pool(0); // global pool [dont describe to doxygen: it confuses it with param names]
+Pool_storage pool_storage;
+Pool pool(&pool_storage); // global pool [dont describe to doxygen: it confuses it with param names]
 bool cgi; ///< we were started as CGI?
 
 // SAPI
@@ -125,7 +128,7 @@ size_t SAPI::read_post(Pool& , char *buf
 	do {
 		int chunk_size=read(fileno(stdin), 
 			buf+read_size, min(READ_POST_CHUNK_SIZE, max_bytes-read_size));
-		if(chunk_size<0)
+		if(chunk_size<=0)
 			break;
 		read_size+=chunk_size;
 	} while(read_size<max_bytes);
@@ -266,8 +269,8 @@ void real_parser_handler(
 	// prepare to process request
 	Request request(pool,
 		request_info,
-		cgi ? String::UL_USER_HTML : String::UL_AS_IS
-		);
+		cgi ? String::UL_USER_HTML : String::UL_AS_IS,
+		true /* status_allowed */);
 	
 	// some root-controlled location
 #ifdef SYSCONFDIR
@@ -347,6 +350,47 @@ void call_real_parser_handler__do_SEH(
 #endif
 }
 
+void report_error(const char *prefix, const char *body, bool header_only) {
+	if(!body)
+		body="<unknown error>";
+
+	// log it
+	SAPI::log(pool, "%s%s", prefix?prefix:"", body);
+
+	//
+	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, "%u", 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);
+}
+
+#ifdef WIN32
+int failed_new(size_t size) {
+    const char *msg="out of memory";
+    report_error(0, msg, false/*header_only*/);
+	SAPI::die(msg);
+	return 0; // not reached
+}
+#endif
+
+#ifdef HAVE_SET_NEW_HANDLER
+void failed_new() {
+    const char *msg="out of memory";
+    report_error(0, msg, false/*header_only*/);
+	SAPI::die(msg);
+}
+#endif
+
 int main(int argc, char *argv[]) {
 	int result;
 	argv0=argv[0];
@@ -364,7 +408,7 @@ int main(int argc, char *argv[]) {
 		if(argc<2) {
 			printf(
 				"Parser/%s Copyright(c) 2001 ArtLebedev Group(http://www.artlebedev.com)\n"
-				"Author: Alexander Petrosyan <paf@design.ru>(http://design.ru/paf)\n"
+				"Author: Alexander Petrosyan <paf@design.ru>(http://paf.design.ru)\n"
 				"\n"
 				"Usage: %s <file>\n",
 				PARSER_VERSION, 
@@ -387,6 +431,15 @@ int main(int argc, char *argv[]) {
 
 	const char *request_method=getenv("REQUEST_METHOD");
 	bool header_only=request_method && strcasecmp(request_method, "HEAD")==0;
+
+#ifdef WIN32
+	_set_new_handler(failed_new);
+#endif
+
+#ifdef HAVE_SET_NEW_HANDLER
+	set_new_handler(failed_new);
+#endif
+
 	try { // global try
 		call_real_parser_handler__do_SEH(
 			filespec_to_process,
@@ -399,25 +452,12 @@ int main(int argc, char *argv[]) {
 		//   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
-		SAPI::add_header_attribute(pool, "content-type", "text/plain");
-		char content_length_cstr[MAX_NUMBER];
-		snprintf(content_length_cstr, MAX_NUMBER, "%u", 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);
+		report_error("exception in request exception handler: ", e.comment(), header_only);
+
+		// unsuccessful finish
+		result=1;
+	} catch(...) { 
+		report_error(0, "<unknown exception>", header_only);
 
 		// unsuccessful finish
 		result=1;