--- parser3/src/targets/cgi/parser3.C	2001/03/14 09:12:06	1.9
+++ parser3/src/targets/cgi/parser3.C	2001/03/24 14:56:09	1.45
@@ -1,49 +1,46 @@
-/*
-	Parser
-	Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com)
-	Author: Alexander Petrosyan <paf@design.ru> (http://design.ru/paf)
+/** @file
+	Parser: scripting and CGI main.
 
-	$Id: parser3.C,v 1.9 2001/03/14 09:12:06 paf Exp $
-*/
+	Copyright(c) 2001 ArtLebedev Group(http://www.artlebedev.com)
 
-#ifdef HAVE_CONFIG_H
-#	include "pa_config.h"
-#endif
+	Author: Alexander Petrosyan <paf@design.ru>(http://design.ru/paf)
+
+	$Id: parser3.C,v 1.45 2001/03/24 14:56:09 paf Exp $
+*/
 
+#include "pa_config_includes.h"
 
 #ifdef WIN32
 #	include <windows.h>
-#	include <io.h>
 #endif
+
+#include <io.h>
 #include <stdlib.h>
 #include <stdio.h>
-#include <string.h>
 #include <fcntl.h>
+#include <time.h>
 
+#include "pa_sapi.h"
+#include "pa_common.h"
 #include "pa_globals.h"
 #include "pa_request.h"
-#include "pa_common.h"
-#include "vform_fields_fill.h"
 
-Pool pool; // global pool
+/// IIS refuses to read bigger chunks
+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]
+bool cgi; ///< we were started as CGI?
 
 #ifdef WIN32
-#	if MSVC
-// intercept global system errors
-LONG WINAPI TopLevelExceptionFilter (
-									 struct _EXCEPTION_POINTERS *ExceptionInfo
-									 ) {
+/// global system errors into parser exceptions converter
+static 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]);
+		struct _EXCEPTION_RECORD *er=ExceptionInfo->ExceptionRecord;
+		snprintf(buf, MAX_STRING, "Exception %#X at %p", 
+			er->ExceptionCode, 
+			er->ExceptionAddress);
 	} else 
 		strcpy(buf, "Exception <unknown>");
 	
@@ -53,101 +50,251 @@ LONG WINAPI TopLevelExceptionFilter (
 
 	return EXCEPTION_EXECUTE_HANDLER; // never reached
 }
-#	endif
 #endif
 
+//@{
+/// SAPI funcs decl
+const char *SAPI::get_env(Pool& pool, const char *name) {
+ 	return getenv(name);
+}
+
+uint SAPI::read_post(Pool& pool, char *buf, uint max_bytes) {
+	uint read_size=0;
+	do {
+		int chunk_size=read(fileno(stdin), 
+			buf+read_size, min(READ_POST_CHUNK_SIZE, max_bytes-read_size));
+		if(chunk_size<0)
+			break;
+		read_size+=chunk_size;
+	} while(read_size<max_bytes);
+
+	return read_size;
+}
+
+void SAPI::add_header_attribute(Pool& pool, const char *key, const char *value) {
+	if(cgi)
+		printf("%s: %s\n", key, value);
+}
+
+/// @todo intelligent cache-control
+void SAPI::send_header(Pool& pool) {
+	if(cgi) {
+		puts("expires: Fri, 23 Mar 2001 09:32:23 GMT");
+
+		// header | body  delimiter
+		puts("");
+	}
+}
+
+void SAPI::send_body(Pool& pool, const char *buf, size_t size) {
+	stdout_write(buf, size);
+}
+
+/// appends to parser3.log located beside my binary
+void SAPI::log(Pool& pool, const char *fmt, ...) {
+	bool opened;
+	FILE *f=0;
+
+	if(argv0) {
+		// beside by binary
+		char file_spec[MAX_STRING];
+		strncpy(file_spec, argv0, MAX_STRING);  // filespec of my binary
+		rsplit(file_spec, '/');  rsplit(file_spec, '\\');// strip filename
+		strcat(file_spec, "/parser3.log");
+		f=fopen(file_spec, "at");
+	}
+	opened=f!=0;
+	if(!opened)
+		f=stderr;
+
+	// prefix
+	time_t t=time(0);
+	const char *stamp=ctime(&t);
+	fprintf(f, "[%.*s] ", strlen(stamp)-1, stamp);
+	// message
+    va_list args;
+	va_start(args,fmt);
+	vfprintf(f, fmt, args);
+	va_end(args);
+	// newline
+	fprintf(f, "\n");
+
+	if(opened)
+		fclose(f);
+}
+//@}
+
+/**
+	main workhorse
+
+	@todo 
+		IIS: remove trailing default-document[index.html] from $request.uri.
+		to do that we need to consult metabase,
+		wich is tested but seems slow.
+*/
 int main(int argc, char *argv[]) {
+	argv0=argv[0];
+
+	umask(2);
+
+#ifdef WIN32
+	setmode(fileno(stdin), _O_BINARY);
+	setmode(fileno(stdout), _O_BINARY);
+	setmode(fileno(stderr), _O_BINARY);
+#endif
+
 	// were we started as CGI?
-	bool cgi=
+	cgi=
 		getenv("SERVER_SOFTWARE") || 
 		getenv("SERVER_NAME") || 
 		getenv("GATEWAY_INTERFACE") || 
 		getenv("REQUEST_METHOD");
 	
-	char *result;  char error[MAX_STRING];  error[0]=0;
+	if(!cgi) {
+		if(argc<2) {
+			printf("Usage: %s <file>\n", argv0?argv0:"parser3");
+			exit(1);
+		}
+	}
+
+	char *filespec_to_process=cgi?getenv("PATH_TRANSLATED"):argv[1];
+#ifdef WIN32
+	back_slashes_to_slashes(filespec_to_process);
+#endif
+
+	const char *request_method=getenv("REQUEST_METHOD");
+	bool header_only=request_method && strcasecmp(request_method, "HEAD")==0;
 	PTRY { // global try
 		// must be first in PTRY{}PCATCH
 #ifdef WIN32
-#	if MSVC
 		SetUnhandledExceptionFilter(&TopLevelExceptionFilter);
 		//TODO: initSocks();
-#	endif
 #endif
 
-		globals_init(pool);
-		
-		// TODO: ifdef WIN32 flip \\ to /
-		const char *document_root="Y:/parser3/src/";
-		const char *page_filespec="Y:/parser3/src/test.p";
-		
+		// init global variables
+		pa_globals_init(pool);
+
+		if(!filespec_to_process)
+			PTHROW(0, 0,
+				0,
+				"no file to process");
+
+		// Request info
+		Request::Info request_info;
+		if(cgi) {
+			if(const char *env_document_root=getenv("DOCUMENT_ROOT"))
+				request_info.document_root=env_document_root;
+			else if(const char *path_info=getenv("PATH_INFO")) {
+				// IIS
+				size_t len=strlen(filespec_to_process)-strlen(path_info);
+				char *buf=(char *)pool.malloc(len+1);
+				strncpy(buf, filespec_to_process, len);
+				buf[len]=0;
+				request_info.document_root=buf;
+			} else
+				PTHROW(0, 0,
+					0,
+					"CGI: no PATH_INFO defined(in reinventing DOCUMENT_ROOT)");
+		} else {
+			static char buf[MAX_STRING];
+			strncpy(buf, filespec_to_process, MAX_STRING);
+			rsplit(buf, '/');  rsplit(buf, '\\');// strip filename
+			request_info.document_root=buf;
+		}
+		request_info.path_translated=filespec_to_process;
+		request_info.method=request_method;
+		const char *query_string=getenv("QUERY_STRING");
+		request_info.query_string=query_string;
+		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");
+		request_info.content_length=(content_length?atoi(content_length):0);
+		request_info.cookie=getenv("HTTP_COOKIE");
+
 		// prepare to process request
-		Request request(Pool(),
-			cgi ? String::Untaint_lang::HTML_TYPO : String::Untaint_lang::NO,
-			document_root,
-			page_filespec
+		Request request(pool,
+			request_info,
+			cgi ? String::UL_HTML_TYPO : String::UL_NO
 			);
 		
-		// fill user passed forms
-		vform_fields_fill(pool, cgi, request.form_class.fields());
-		
 		// some root-controlled location
-		char *sys_auto_path1;
 #ifdef WIN32
-		sys_auto_path1=(char *)pool.malloc(MAX_STRING);
-		GetWindowsDirectory(sys_auto_path1, MAX_STRING);
-		strcat(sys_auto_path1, "\\");
+		// c:\windows
+		static char root_auto_path[MAX_STRING];
+		GetWindowsDirectory(root_auto_path, MAX_STRING);
 #else
-		sys_auto_path1=getenv("HOME");
+		// ~nobody  todo: figure out a better place
+		char *root_auto_path=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
+		static char site_auto_path[MAX_STRING];
+		strncpy(site_auto_path, argv[0], MAX_STRING);  // filespec of my binary
+		rsplit(site_auto_path, '/');  rsplit(site_auto_path, '\\');// 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");
+		request.core(
+			root_auto_path, false,
+			site_auto_path, false,
+			header_only);
 
 		// 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());
+		// 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
+		SAPI::add_header_attribute(pool, "content-type", "text/plain");
+		char content_length_cstr[MAX_NUMBER];
+		snprintf(content_length_cstr, MAX_NUMBER, "%lu", 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);
+
+		// unsuccessful finish
+		return 1;
 	}
 	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;
 }