--- parser3/src/classes/file.C	2002/11/20 10:01:01	1.103
+++ parser3/src/classes/file.C	2003/03/21 07:19:42	1.108
@@ -1,11 +1,11 @@
 /** @file
 	Parser: @b file parser class.
 
-	Copyright (c) 2001, 2002 ArtLebedev Group (http://www.artlebedev.com)
+	Copyright (c) 2001, 2003 ArtLebedev Group (http://www.artlebedev.com)
 	Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
 */
 
-static const char* IDENT_FILE_C="$Date: 2002/11/20 10:01:01 $";
+static const char* IDENT_FILE_C="$Date: 2003/03/21 07:19:42 $";
 
 #include "pa_config_includes.h"
 
@@ -116,21 +116,42 @@ static void _move(Request& r, const Stri
 		r.absolute(vto_file_name.as_string()));
 }
 
+static void _load_pass_param(const Hash::Key& key, Hash::Val *value, void *info) {
+	Hash& dest=*static_cast<Hash *>(info);
+	dest.put(key, value);
+}
 static void _load(Request& r, const String& method_name, MethodParams *params) {
 	Pool& pool=r.pool();
 	Value& vmode_name=params-> as_no_junction(0, "mode must not be code");
 	const String& lfile_name=r.absolute(params->as_no_junction(1, "file name must not be code").as_string());
+	Value *third_param=params->size()>2?&params->as_no_junction(2, "filename or options must not be code"):0;
+	Hash *third_param_hash=third_param?third_param->get_hash(&method_name):0;
+	int alt_filename_param_index=2;
+	if(third_param_hash)
+		alt_filename_param_index++;
 
 	void *data;  size_t size;
+	Hash *fields=0;
 	file_read(pool, lfile_name, data, size, 
-		vmode_name.as_string()==TEXT_MODE_NAME);
+		vmode_name.as_string()==TEXT_MODE_NAME,
+		third_param_hash,
+		&fields
+	);
 
-	char *user_file_name=params->size()>2?
-		params->as_string(2, "filename must be string").cstr(String::UL_FILE_SPEC)
+	char *user_file_name=params->size()>alt_filename_param_index?
+		params->as_string(alt_filename_param_index, "filename must be string").cstr(String::UL_FILE_SPEC)
 		:lfile_name.cstr(String::UL_FILE_SPEC);
+
+	Value *vcontent_type=0;
+	if(fields)
+		vcontent_type=static_cast<Value *>(fields->get(*content_type_name));
+	if(!vcontent_type)
+		vcontent_type=new(pool) VString(r.mime_type_of(user_file_name));
 	
-	static_cast<VFile *>(r.get_self())->set(true/*tainted*/, data, size, 
-		user_file_name, new(pool) VString(r.mime_type_of(user_file_name)));
+	VFile& self=*static_cast<VFile *>(r.get_self());
+	self.set(true/*tainted*/, data, size, user_file_name, vcontent_type);
+	if(fields)
+		fields->for_each(_load_pass_param, &self.fields());
 }
 
 static void _stat(Request& r, const String& method_name, MethodParams *params) {
@@ -248,7 +269,6 @@ static void _exec_cgi(Request& r, const
 	env.put(*new(pool) String(pool, "SCRIPT_NAME"), &script_name);
 	//env.put(*new(pool) String(pool, "SCRIPT_FILENAME"), ??&script_name);
 
-	bool stdin_specified=false;
 	// environment & stdin from param
 	String in(pool);
 	if(params->size()>1) {
@@ -257,7 +277,6 @@ static void _exec_cgi(Request& r, const
 			Append_env_pair_info info={&env};
 			user_env->for_each(append_env_pair, &info);
 			if(info.vstdin) {
-				stdin_specified=true;
 				if(const String *sstdin=info.vstdin->get_string()) {
 					in.append(*sstdin, String::UL_CLEAN, true);
 				} else
@@ -280,10 +299,6 @@ static void _exec_cgi(Request& r, const
 			*argv+=&params->as_string(i, "parameter must be string");
 	}
 
-	// passing POST data
-	if(!stdin_specified) // if $.stdin[...] not specified 
-		in.APPEND(r.post_data, r.post_size, String::UL_CLEAN, "POST data (passed)", 0);
-
 	// exec!
 	String out(pool);
 	String& err=*new(pool) String(pool);
@@ -350,7 +365,7 @@ static void _exec_cgi(Request& r, const
 
 	// $status
 	self.fields().put(
-		*new(pool) String(pool, "status"),
+		*file_status_name,
 		new(pool) VInt(pool, status));
 	
 	// $stderr
@@ -557,8 +572,12 @@ static void _fullpath(Request& r, const
 		// /some/page.html: ^file:fullpath[a.gif] => /some/a.gif
 		const String& full_disk_path=r.absolute(file_spec);
 		size_t document_root_length=strlen(r.info.document_root);
-		if(document_root_length>0)
-			--document_root_length;
+
+		if(document_root_length>0) {
+			char last_char=r.info.document_root[document_root_length-1];
+			if(last_char == '/' || last_char == '\\')
+				--document_root_length;
+		}
 		result=&full_disk_path.mid(document_root_length,  full_disk_path.size());
 	}
 	r.write_assign_lang(*result);