--- parser3/src/targets/cgi/parser3.C	2001/03/18 13:22:08	1.18
+++ parser3/src/targets/cgi/parser3.C	2001/03/21 16:59:07	1.29
@@ -1,9 +1,11 @@
-/*
-	Parser
+/** @file
+	Parser: scripting and CGI main.
+
 	Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com)
+
 	Author: Alexander Petrosyan <paf@design.ru> (http://design.ru/paf)
 
-	$Id: parser3.C,v 1.18 2001/03/18 13:22:08 paf Exp $
+	$Id: parser3.C,v 1.29 2001/03/21 16:59:07 paf Exp $
 */
 
 #ifdef HAVE_CONFIG_H
@@ -14,17 +16,26 @@
 #ifdef WIN32
 #	include <windows.h>
 #	include <io.h>
+#else
+#	include <unistd.h>
 #endif
+
+//\ifwin32
+#include <io.h>
+//#include <fcntl.h>
+//\endifwin32
+
 #include <stdlib.h>
 #include <stdio.h>
 #include <string.h>
 #include <fcntl.h>
 
+#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 _MSC_VER
@@ -53,8 +64,24 @@ LONG WINAPI TopLevelExceptionFilter (
 	return EXCEPTION_EXECUTE_HANDLER; // never reached
 }
 #	endif
+
 #endif
 
+//\if
+void fix_slashes(char *s) {
+	if(s)
+		for(; *s; s++)
+			if(*s=='\\')
+				*s='/';
+}
+//\endif
+
+// service funcs
+
+const char *get_env(Pool& pool, const char *name) {
+ 	return getenv(name);
+}
+
 int read_post(char *buf, int max_bytes) {
 	int read_size=0;
 	do {
@@ -68,29 +95,36 @@ int read_post(char *buf, int max_bytes)
 	return read_size;
 }
 
-void stdout_write_header_attribute(const Hash::Key& key, Hash::Value *value, void *info) {
-	String *key_to_exclude=static_cast<String *>(info);
-	if(key==*key_to_exclude || !value)
-		return;
-
-	printf("%s: %s\n", 
-		key.cstr(), 
-		static_cast<Value *>(value)->as_string().cstr());
+void output_header_attribute(const char *key, const char *value) {
+	if(cgi)
+		printf("%s: %s\n", key, value);
 }
 
+void output_body(const char *buf, size_t size) {
+	if(cgi) // header | body  delimiter
+		puts("");
+
+	stdout_write(buf, size);
+}
+
+// main
+
 int main(int argc, char *argv[]) {
-	//TODO: umask(2);
-#ifdef WIN32
-	_setmode(fileno(stdin), _O_BINARY);
-	_setmode(fileno(stdout), _O_BINARY);
-	_setmode(fileno(stderr), _O_BINARY);
-#endif
+	// TODO:umask(2);
+//\#ifdef WIN32
+	setmode(fileno(stdin), _O_BINARY);
+	setmode(fileno(stdout), _O_BINARY);
+	setmode(fileno(stderr), _O_BINARY);
+//\#endif
 
 	// Service funcs 
+	service_funcs.get_env=get_env;
 	service_funcs.read_post=read_post;
+	service_funcs.output_header_attribute=output_header_attribute;
+	service_funcs.output_body=output_body;
 	
 	// were we started as CGI?
-	bool cgi=
+	cgi=
 		getenv("SERVER_SOFTWARE") || 
 		getenv("SERVER_NAME") || 
 		getenv("GATEWAY_INTERFACE") || 
@@ -104,7 +138,10 @@ int main(int argc, char *argv[]) {
 		}
 	}
 
-	const char *filespec_to_process=cgi?getenv("PATH_TRANSLATED"):argv[1];
+	char *filespec_to_process=cgi?getenv("PATH_TRANSLATED"):argv[1];
+//\#ifdef WIN32
+	fix_slashes(filespec_to_process);
+//\#endif
 
 	PTRY { // global try
 		// must be first in PTRY{}PCATCH
@@ -124,7 +161,6 @@ int main(int argc, char *argv[]) {
 				"no file to process");
 
 		// Request info
-		// TODO: ifdef WIN32 flip \\ to /
 		Request::Info request_info;
 		const char *document_root=getenv("DOCUMENT_ROOT");
 		if(!document_root) {
@@ -141,11 +177,13 @@ int main(int argc, char *argv[]) {
 		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(),
+		Pool request_pool;
+		Request request(request_pool,
 			request_info,
-			1||cgi ? String::Untaint_lang::HTML_TYPO : String::Untaint_lang::NO
+			cgi ? String::UL_HTML_TYPO : String::UL_NO
 			);
 		
 		// some root-controlled location
@@ -170,53 +208,31 @@ int main(int argc, char *argv[]) {
 		request.core(pool.exception(),
 			sys_auto_path1, 
 			sys_auto_path2);
+		// no actions with request' data past this point
+		// request.exception not not handled here, but all
+		// request' data are associated with it's pool=exception
 
-		// extract request.response body
-		Value *body_value=static_cast<Value *>(
-			request.response.fields().get(*body_name));
-		const char *body=body_value?
-			body_value->as_string().cstr():"no body";// TODO: IMAGE&FILE
-
-		// OK. write out the result
-		if(cgi) {
-			// header: response fields 
-			request.response.fields().foreach(stdout_write_header_attribute,
-				body_name);
-			
-			// header: content-length
-			printf(
-				"content-length: %d\n"
-				"\n", 
-				strlen(body));
-		}
-		// body
-		stdout_write(body);
-
-			// must be last in PTRY{}PCATCH
+		// must be last in PTRY{}PCATCH
 #ifdef WIN32
 #	if _MSC_VER
 		SetUnhandledExceptionFilter(0);
 #	endif
+#endif
 		// successful finish
 		return 0;
-#endif
 	} PCATCH(e) { // global problem 
-		// @globals fill 
-		// @Request create 
-		// @prepare to .core()
-		// @request.core when reporting request exception
-		// @write result
-		const char *error=e.comment();
-
-		if(cgi) {
-			printf(
-				"Content-type: text/plain\n"
-				"Content-length: %d\n"
-				"\n", 
-				strlen(error));
-			stdout_write(error);
-		} else
-			fputs(error, stderr);
+		const char *body=e.comment();
+		int content_length=strlen(body);
+
+		// header
+		(*service_funcs.output_header_attribute)("content-type", "text/plain");
+		char content_length_cstr[MAX_NUMBER];
+		snprintf(content_length_cstr, MAX_NUMBER, "%d", content_length);
+		(*service_funcs.output_header_attribute)("content-length", 
+			content_length_cstr);
+
+		// body
+		(*service_funcs.output_body)(body, content_length);
 
 		// unsuccessful finish
 		return 1;