[SVN] [73] Set/support path_info

[matt]

Revision: 73
Author:   matt
Date:     2006-08-09 22:27:16 +0000 (Wed, 09 Aug 2006)

Log Message:
-----------
Set/support path_info

Modified Paths:
--------------
    trunk/lib/AxKit2/HTTPHeaders.pm
    trunk/plugins/uri_to_file

Modified: trunk/lib/AxKit2/HTTPHeaders.pm
===================================================================
--- trunk/lib/AxKit2/HTTPHeaders.pm     2006-08-09 22:26:40 UTC (rev 72)
+++ trunk/lib/AxKit2/HTTPHeaders.pm     2006-08-09 22:27:16 UTC (rev 73)
@@ -17,6 +17,7 @@
             'file',         # scalar; request File
             'querystring',  # scalar: request querystring
             'mime_type',    # scalar: request file mime type
+            'path_info',    # scalar: request path-info
             'params',       # parsed params
             'paramkeys',    # all parsed param keys
             'type',         # 'res' or 'req'
@@ -259,6 +260,8 @@
     return $self->{uri};
 }
 
+*uri = \&request_uri;
+
 sub parse_cookies {
     my AxKit2::HTTPHeaders $self = shift;
     my $raw_cookies = $self->header('Cookie');
@@ -326,6 +329,12 @@
     return $self->{mime_type};
 }
 
+sub path_info {
+    my AxKit2::HTTPHeaders $self = shift;
+    @_ and $self->{path_info} = shift;
+    return $self->{path_info};
+}
+
 sub version_number {
     my AxKit2::HTTPHeaders $self = shift;
     @_ and $self->{vernum} = shift;

Modified: trunk/plugins/uri_to_file
===================================================================
--- trunk/plugins/uri_to_file   2006-08-09 22:26:40 UTC (rev 72)
+++ trunk/plugins/uri_to_file   2006-08-09 22:27:16 UTC (rev 73)
@@ -45,7 +45,15 @@
         $path = $filepath if -f $filepath;
     }
     
+    my $path_info = '';
+    while (!-e $path) {
+        $path =~ s/(\/[^\/]*)$//;
+        $path_info = $1 . $path_info;
+    }
+    
+    $hd->path_info($path_info);
+    
     $hd->filename($path);
     
     return DECLINED;
-}
\ No newline at end of file
+}