--- parser3/src/classes/file.C	2001/04/09 13:21:08	1.22
+++ parser3/src/classes/file.C	2001/04/10 10:32:04	1.25
@@ -5,7 +5,7 @@
 
 	Author: Alexander Petrosyan <paf@design.ru> (http://design.ru/paf)
 
-	$Id: file.C,v 1.22 2001/04/09 13:21:08 paf Exp $
+	$Id: file.C,v 1.25 2001/04/10 10:32:04 paf Exp $
 */
 
 #include "pa_request.h"
@@ -13,6 +13,7 @@
 #include "pa_vfile.h"
 #include "pa_table.h"
 #include "pa_vint.h"
+#include "pa_exec.h"
 
 // consts
 
@@ -106,6 +107,21 @@ static void _load(Request& r, const Stri
 		user_file_name, &r.mime_type_of(user_file_name));
 }
 
+static void _stat(Request& r, const String& method_name, Array *params) {
+	Pool& pool=r.pool();
+	Value& vfile_name=*static_cast<Value *>(params->get(0));
+
+	// forcing ^load[this body type]
+	r.fail_if_junction_(true, vfile_name, 
+		method_name, "file name must not be code");
+
+	const String& lfile_name=vfile_name.as_string();
+
+	size_t size=file_size(r.absolute(lfile_name));
+	
+	static_cast<VFile *>(r.self)->set(true/*tainted*/, 0/*no bytes*/, size);
+}
+
 static void append_env_pair(const Hash::Key& key, Hash::Val *value, void *info) {
 	Hash& hash=*static_cast<Hash *>(info);
 	hash.put(key, &static_cast<Value *>(value)->as_string());
@@ -122,16 +138,56 @@ static void _cgi(Request& r, const Strin
 	r.fail_if_junction_(true, vfile_name, 
 		method_name, "file name must not be code");
 
-	Hash *env=0; 
+	const String& script_name=r.absolute(vfile_name.as_string());
+
+	Hash env(pool);
+	#define PASS(key) \
+		String key(pool); \
+		if(const char *value=SAPI::get_env(pool, #key)) { \
+			key.APPEND_CONST(value); \
+			env.put(String(pool, #key), &key); \
+		}
+	#define INFO(key, value) \
+		String value(pool); \
+		if(r.info.value) { \
+			value.APPEND_CONST(r.info.value); \
+			env.put(String(pool, key), &value); \
+		}
+
+	// const
+	String gateway_interface(pool, "CGI/1.1");
+	env.put(String(pool, "GATEWAY_INTERFACE"), &gateway_interface);
+	// from Request.info
+	INFO("DOCUMENT_ROOT", document_root);
+	INFO("PATH_TRANSLATED", path_translated);
+	INFO("SERVER_PROTOCOL", method);
+	INFO("QUERY_STRING", query_string);
+	INFO("REQUEST_URI", uri);
+	INFO("CONTENT_TYPE", content_type);
+	char content_length_cstr[MAX_NUMBER];  
+	snprintf(content_length_cstr, MAX_NUMBER, "%u", r.info.content_length);
+	String content_length(pool, content_length_cstr);
+	env.put(String(pool, "CONTENT_LENGTH"), &content_length);
+	INFO("HTTP_COOKIE", cookie);
+	INFO("HTTP_USER_AGENT", user_agent);
+	// passing some SAPI:get_env-s
+	PASS(SERVER_NAME);
+	PASS(SERVER_PORT);
+	PASS(HTTP_REFERER);
+	PASS(REMOTE_ADDR);
+	PASS(REMOTE_HOST);
+	PASS(REMOTE_USER);
+	// SCRIPT_NAME
+	env.put(String(pool, "SCRIPT_NAME"), &script_name);
+
 	if(params->size()>1) {
 		Value& venv=*static_cast<Value *>(params->get(1));
 		// forcing [this param type]
 		r.fail_if_junction_(true, venv, 
 			method_name, "env must not be code");
-		if(Hash *user_env=venv.get_hash()) {
-			env=new(pool) Hash(pool);
-			user_env->for_each(append_env_pair, env);
-		} else
+		if(Hash *user_env=venv.get_hash())
+			user_env->for_each(append_env_pair, &env);
+		else
 			PTHROW(0, 0,
 				&method_name,
 				"env must be hash");
@@ -147,7 +203,7 @@ static void _cgi(Request& r, const Strin
 	const String in(pool, r.post_data, r.post_size);
 	String out(pool);
 	String err(pool);
-	int exit_code=SAPI::execute(r.absolute(vfile_name.as_string()), env, argv,
+	int exit_code=pa_exec(script_name, &env, argv,
 		in, out, err);
 
 	VFile& self=*static_cast<VFile *>(r.self);
@@ -203,6 +259,9 @@ void initialize_file_class(Pool& pool, V
 	// ^load[disk-name;user-name]
 	vclass.add_native_method("load", Method::CT_DYNAMIC, _load, 1, 2);
 
+	// ^stat[disk-name]
+	vclass.add_native_method("stat", Method::CT_DYNAMIC, _stat, 1, 1);
+
 	// ^exec[file-name]
 	// ^exec[file-name;env hash]
 	// ^exec[file-name;env hash;1cmd;2line;3ar;4g;5s]