--- parser3/src/main/pa_request.C	2001/04/27 15:19:30	1.122.2.1
+++ parser3/src/main/pa_request.C	2001/04/28 07:27:41	1.122.2.3
@@ -5,7 +5,7 @@
 
 	Author: Alexander Petrosyan <paf@design.ru> (http://design.ru/paf)
 
-	$Id: pa_request.C,v 1.122.2.1 2001/04/27 15:19:30 paf Exp $
+	$Id: pa_request.C,v 1.122.2.3 2001/04/28 07:27:41 paf Exp $
 */
 
 #include "pa_config_includes.h"
@@ -34,7 +34,7 @@ const char *UNHANDLED_EXCEPTION_CONTENT_
 /// content type of response when no $MAIN:defaults.content-type defined
 const char *DEFAULT_CONTENT_TYPE="text/html";
 
-MOP_create(Pool&);
+Methoded *MOP_create(Pool&);
 
 //
 Request::Request(Pool& apool,
@@ -58,22 +58,26 @@ Request::Request(Pool& apool,
 	mail(0), 
 	pcre_tables(0)
 {
+	/// directly used
 	// operators
-	OP.register_directly_used(r);
+	OP.register_directly_used(*this);
+	// classes:
+	// table, file, random, mail, image
+	methoded_array->register_directly_used(*this);
+
+	/// methodless
 	// env class
-	classes().put(NEW String(ENV_CLASS_NAME), &env);
-	// form class
-	classes().put(form.get_class().name(), &form);	
+	classes().put(*NEW String(pool(), ENV_CLASS_NAME), &env);
 	// request class
-	classes().put(NEW String(REQUEST_CLASS_NAME), &request);	
-	// response class
-	classes().put(response.get_class().name(), &response);	
+	classes().put(*NEW String(pool(), REQUEST_CLASS_NAME), &request);	
 	// cookie class
-	classes().put(NEW String(COOKIE_CLASS_NAME), &cookie);
+	classes().put(*NEW String(pool(), COOKIE_CLASS_NAME), &cookie);
 
-	// classes:
-	// table, file, random, mail, image
-	methoded_array->register_directly_used(*this);
+	/// bases used
+	// form class
+	classes().put(form.get_class()->name(), &form);	
+	// response class
+	classes().put(response.get_class()->name(), &response);	
 }
 
 static void element2ctypes(unsigned char *tables, 
@@ -142,6 +146,8 @@ static void element2case(unsigned char *
 	the file user requested us to process
 	all located classes become children of one another,
 	composing class we name 'MAIN'
+
+	@test move configure to M-class
 */
 void Request::core(const char *root_auto_path, bool root_auto_fail,
 				   const char *site_auto_path, bool site_auto_fail,
@@ -164,6 +170,7 @@ void Request::core(const char *root_auto
 
 		// $MAIN:LIMITS hash used here,
 		//	until someone with less privileges have overriden them
+		methoded_array->configure(*this);
 		{
 			Value *limits=main_class?main_class->get_element(*limits_name):0;
 			if(info.method && StrEqNc(info.method, "post", true)) {