--- parser3/src/targets/cgi/parser3.C	2001/03/22 16:38:22	1.32
+++ parser3/src/targets/cgi/parser3.C	2001/03/23 08:47:49	1.35
@@ -5,7 +5,7 @@
 
 	Author: Alexander Petrosyan <paf@design.ru> (http://design.ru/paf)
 
-	$Id: parser3.C,v 1.32 2001/03/22 16:38:22 paf Exp $
+	$Id: parser3.C,v 1.35 2001/03/23 08:47:49 paf Exp $
 */
 
 #ifdef HAVE_CONFIG_H
@@ -95,9 +95,14 @@ static void add_header_attribute(const c
 		printf("%s: %s\n", key, value);
 }
 
+/// @todo intelligent cache-control
 static void send_header(const char *buf, size_t size) {
-	if(cgi) // header | body  delimiter
+	if(cgi) {
+		puts("Cache-Control: no-cache");
+
+		// header | body  delimiter
 		puts("");
+	}
 }
 
 static void send_body(const char *buf, size_t size) {
@@ -145,6 +150,8 @@ int main(int argc, char *argv[]) {
 	fix_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
@@ -173,7 +180,7 @@ int main(int argc, char *argv[]) {
 		}
 		request_info.document_root=document_root;
 		request_info.path_translated=filespec_to_process;
-		request_info.method=getenv("REQUEST_METHOD");
+		request_info.method=request_method;
 		request_info.query_string=getenv("QUERY_STRING");
 		request_info.uri=getenv("REQUEST_URI");
 		request_info.content_type=getenv("CONTENT_TYPE");
@@ -205,10 +212,10 @@ int main(int argc, char *argv[]) {
 		rsplit(site_auto_path, '/');  rsplit(site_auto_path, '\\');// strip filename
 		
 		// process the request
-		request.core(pool.exception(),
+		request.core(
 			root_auto_path, false,
 			site_auto_path, false,
-			strcasecmp(request_info.method, "HEAD")==0);
+			header_only);
 
 		// must be last in PTRY{}PCATCH
 #ifdef WIN32
@@ -222,15 +229,18 @@ int main(int argc, char *argv[]) {
 		const char *body=e.comment();
 		int content_length=strlen(body);
 
-		// header
-		(*service_funcs.output_header_attribute)("content-type", "text/plain");
+		// prepare header
+		add_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);
+		snprintf(content_length_cstr, MAX_NUMBER, "%lu", content_length);
+		add_header_attribute("content-length", content_length_cstr);
+
+		// send header
+		send_header(pool);
 
 		// body
-		(*service_funcs.output_body)(body, content_length);
+		if(!header_only)
+			send_body(body, content_length);
 
 		// unsuccessful finish
 		return 1;