[svn:mod_parrot] r648 - mod_parrot/trunk/languages/perl6/lib

Author: jhorwitz
Date: Fri Jun 19 05:42:55 2009
New Revision: 648

Modified:
   mod_parrot/trunk/languages/perl6/lib/mod_perl6.pm

Log:
add access, authen, authz metahandlers


Modified: mod_parrot/trunk/languages/perl6/lib/mod_perl6.pm
==============================================================================
--- mod_parrot/trunk/languages/perl6/lib/mod_perl6.pm	(original)
+++ mod_parrot/trunk/languages/perl6/lib/mod_perl6.pm	Fri Jun 19 05:42:55 2009
@@ -169,6 +169,48 @@
     return $status;
 }
 
+sub access_handler($ctx)
+{
+    my $r = $ctx.request_rec();
+
+    my %cfg = Apache::Module::get_config("modparrot_perl6_module");
+    my %dircfg = Apache::Module::get_config("modparrot_perl6_module",
+        $r.per_dir_config());
+
+    my $handler = %dircfg<access_handler>;
+
+    my $status = call_handler($handler, $r);
+    return $status;
+}
+
+sub authen_handler($ctx)
+{
+    my $r = $ctx.request_rec();
+
+    my %cfg = Apache::Module::get_config("modparrot_perl6_module");
+    my %dircfg = Apache::Module::get_config("modparrot_perl6_module",
+        $r.per_dir_config());
+
+    my $handler = %dircfg<authen_handler>;
+
+    my $status = call_handler($handler, $r);
+    return $status;
+}
+
+sub authz_handler($ctx)
+{
+    my $r = $ctx.request_rec();
+
+    my %cfg = Apache::Module::get_config("modparrot_perl6_module");
+    my %dircfg = Apache::Module::get_config("modparrot_perl6_module",
+        $r.per_dir_config());
+
+    my $handler = %dircfg<authz_handler>;
+
+    my $status = call_handler($handler, $r);
+    return $status;
+}
+
 sub response_handler($ctx)
 {
     my $r = $ctx.request_rec();
@@ -373,6 +415,27 @@
         'errmsg' => 'usage: Perl6PostConfigHandler handler-name'
     },
     {
+        'name' => 'Perl6AccessHandler',
+        'args_how' => $Apache::Const::TAKE1,
+        'func' => &cmd_perl6accesshandler,
+        'req_override' => $Apache::Const::OR_AUTHCFG,
+        'errmsg' => 'usage: Perl6AccessHandler handler-name'
+    },
+    {
+        'name' => 'Perl6AuthenHandler',
+        'args_how' => $Apache::Const::TAKE1,
+        'func' => &cmd_perl6authenhandler,
+        'req_override' => $Apache::Const::OR_AUTHCFG,
+        'errmsg' => 'usage: Perl6AuthenHandler handler-name'
+    },
+    {
+        'name' => 'Perl6AuthzHandler',
+        'args_how' => $Apache::Const::TAKE1,
+        'func' => &cmd_perl6authzhandler,
+        'req_override' => $Apache::Const::OR_AUTHCFG,
+        'errmsg' => 'usage: Perl6AuthzHandler handler-name'
+    },
+    {
         'name' => 'Perl6ResponseHandler',
         'args_how' => $Apache::Const::TAKE1,
         'func' => &cmd_perl6responsehandler,
@@ -400,6 +463,9 @@
     $ModParrot::Const::MP_HOOK_OPEN_LOGS,
     $ModParrot::Const::MP_HOOK_POST_CONFIG,
     $ModParrot::Const::MP_HOOK_HEADER_PARSER,
+    $ModParrot::Const::MP_HOOK_ACCESS,
+    $ModParrot::Const::MP_HOOK_AUTHEN,
+    $ModParrot::Const::MP_HOOK_AUTHZ,
     $ModParrot::Const::MP_HOOK_RESPONSE
 );
 

• [svn:mod_parrot] r648 - mod_parrot/trunk/languages/perl6/lib by jhorwitz