From: David Baird <cpan.zerofive@googlemail.com>
Date: Thu, 10 Nov 2005 10:06:53 +0000 (+0000)
Subject: Added user() attribute and get_user() stub.
X-Git-Tag: 2.11~95
X-Git-Url: https://git.decadent.org.uk/gitweb/?p=maypole.git;a=commitdiff_plain;h=394a7a18e5ed1231ae53c52690bd602b49328c66

Added user() attribute and get_user() stub.

git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@423 48953598-375a-da11-a14b-00016c27c3ee
---

diff --git a/Changes b/Changes
index 8a93719..b93de7f 100644
--- a/Changes
+++ b/Changes
@@ -21,7 +21,8 @@ API additions and enhancements:
     Maypole::Headers:
     	add() alias to push() (wishlist 14142)
     Maypole:
-        - empty session() attribute, and get_session() method added.
+        - session() attribute, and get_session() method (no-op)
+        - user() attribute, and get_user() method (no-op)
         - get_session() now called during handler_guts() before authenticate()
         - new preprocess_path() method added and called by parse_path(), 
 	    parse_path() will leave any properties set by preprocess_path() in 
diff --git a/lib/Maypole.pm b/lib/Maypole.pm
index 9f1af35..087f2b9 100644
--- a/lib/Maypole.pm
+++ b/lib/Maypole.pm
@@ -38,7 +38,7 @@ The canonical example used in the Maypole documentation is the beer database:
     $config->uri_base("http://localhost/beerdb");
     $config->template_root("/path/to/templates");
     $config->rows_per_page(10);
-    $config->display_tables([qw[beer brewery pub style]]);
+    $config->display_tables([qw/beer brewery pub style/]);
 
     # table relationships
     $config->relationships([
@@ -199,7 +199,7 @@ __PACKAGE__->mk_classdata($_) for qw( config init_done view_object );
 __PACKAGE__->mk_accessors(
     qw( params query objects model_class template_args output path
         args action template error document_encoding content_type table
-        headers_in headers_out stash session)
+        headers_in headers_out stash session user)
 );
 
 __PACKAGE__->config( Maypole::Config->new() );
@@ -437,6 +437,7 @@ sub handler : method
     return $status unless $status == Maypole::Constants::OK();
     
     $self->session($self->get_session);
+    $self->user($self->get_user);
     
     $status = $self->handler_guts;
     
@@ -691,12 +692,30 @@ sub is_model_applicable
 
 =item get_session
 
+Called immediately after C<start_request_hook()>.
+
+This method should return a session, which will be stored in the request's
+C<session> attribute.
+
 The default method is empty. 
 
 =cut
 
 sub get_session { }
 
+=item get_user
+
+Called immediately after C<get_session>.
+
+This method should return a user, which will be stored in the request's C<user>
+attribute.
+
+The default method is empty.
+
+=cut
+
+sub get_user {}
+
 =item call_authenticate
 
 This method first checks if the relevant model class
@@ -1200,7 +1219,7 @@ calls during processing of a request. This is a brief summary:
            |                        |                  |
            |-----+ init             |                  |
            ||<---+                  |                  |
-           ||                       |     new          |     view_object: e.g
+           ||                       |     new          |     view_object: e.g.
            ||---------------------------------------------> Maypole::View::TT
            |                        |                  |          |
            |                        |                  |          |
@@ -1230,6 +1249,9 @@ calls during processing of a request. This is a brief summary:
             |         ||-----+ get_session         |       |         |
             |         |||<---+                     |       |         |
             |         ||                           |       |         |
+            |         ||-----+ get_user            |       |         |
+            |         |||<---+                     |       |         |
+            |         ||                           |       |         |
             |         ||-----+ handler_guts        |       |         |
             |         |||<---+                     |       |         |
             |         |||     class_of($table)     |       |         |
@@ -1245,14 +1267,14 @@ calls during processing of a request. This is a brief summary:
             |         |||                          |       |         |
             |         |||-----+ additional_data    |       |         |
             |         ||||<---+                    |       |         |
-            |         |||             process      |       |   fetch_objects
-            |         |||--------------------------------->||-----+  |
+            |         |||             process      |       |         |
+            |         |||--------------------------------->||  fetch_objects
+            |         |||                          |       ||-----+  |
             |         |||                          |       |||<---+  |
             |         |||                          |       ||        |
             |         |||                          |       ||   $action
             |         |||                          |       ||-----+  |
-            |         |||                          |       |||<---+  |
-            |         |||                          |       |         |
+            |         |||                          |       |||<---+  |            
             |         |||         process          |       |         |
             |         |||------------------------------------------->|| template
             |         |||                          |       |         ||-----+
diff --git a/wishlist.txt b/wishlist.txt
index 63e0ba3..7ee5bfb 100644
--- a/wishlist.txt
+++ b/wishlist.txt
@@ -24,12 +24,18 @@ Re-implement Maypole::Cache as Maypole::Plugin::Cache, probably using
 Handle repeat form submissions.
 Implement internal_redirect().
 Build a more sophisticated app for testing. 
+Move class_of() to the controller - need to do this to support multiple models. 
+Multiple model support.
 
 3.0
 ====
 Encapsulate all request data in HTTP::Request object, and all response data 
 in HTTP::Response object
 
+Look at HTTP::Body
+
+Easier file uploads - look at incorporating Mp::P::Upload
+
 Add email handling - like Rails - via model plugins. 
 
 An e-commerce model plugin would be nice - or proof of concept.