Return to parser3.C CVS log

Up to [parser3project] / parser3 / src / targets / cgi

z

/*
	Parser
	Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com)
	Author: Alexander Petrosyan <paf@design.ru> (http://design.ru/paf)

	$Id: parser3.C,v 1.11 2001/03/14 17:15:08 paf Exp $
*/

#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"

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");
	
	if(!cgi) {
		if(argc<2) {
			char *binary=argv[0];
			char *name=rsplit(binary, PATH_DELIMITER_CHAR);
			printf("Usage: %s <file>\n", name?name:"parser3");
			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;
}