Changeset 17981

Timestamp:

08/21/08 23:07:09 (5 years ago)

Author:

tokuhirom

Message:

added authorizer.

Location:

lang/perl/Nanto/trunk/lib/Nanto/Web

Files:

• Handler.pm (modified) (1 diff)
• Plugin/Authorizer (added)
• Plugin/Authorizer/Basic.pm (added)
• Plugin/Authorizer/MobileJPID.pm (added)

lang/perl/Nanto/trunk/lib/Nanto/Web/Handler.pm

@@ -40 +40 @@
     local $REQUEST = $req;
 
+    # authorize
+    my $auth_res = $self->run_hook_first( 'authorize', $req );
+    return $auth_res if $auth_res;
+
     # request filter
     ($req, ) = $self->run_hook_filter( 'request', $req );
 
+    # handle
     my $res = $self->_handle( $loader, $req );