perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From jkal...@apache.org
Subject svn commit: r1448228 - /perl/modperl/branches/httpd24/t/hooks/TestHooks/stacked_handlers2.pm
Date Wed, 20 Feb 2013 15:28:31 GMT
Author: jkaluza
Date: Wed Feb 20 15:28:31 2013
New Revision: 1448228

URL: http://svn.apache.org/r1448228
Log:
* t/hooks/TestHooks/stacked_handlers2.pm: handler for PerlAuthenHandler has to
  set $r->user and $r->ap_auth_type, otherwise httpd will think that
  authentication was not done.

Modified:
    perl/modperl/branches/httpd24/t/hooks/TestHooks/stacked_handlers2.pm

Modified: perl/modperl/branches/httpd24/t/hooks/TestHooks/stacked_handlers2.pm
URL: http://svn.apache.org/viewvc/perl/modperl/branches/httpd24/t/hooks/TestHooks/stacked_handlers2.pm?rev=1448228&r1=1448227&r2=1448228&view=diff
==============================================================================
--- perl/modperl/branches/httpd24/t/hooks/TestHooks/stacked_handlers2.pm (original)
+++ perl/modperl/branches/httpd24/t/hooks/TestHooks/stacked_handlers2.pm Wed Feb 20 15:28:31
2013
@@ -24,6 +24,17 @@ sub ok {
     return Apache2::Const::OK;
 }
 
+sub ok_authen {
+
+    my $r = shift;
+    callback($r);
+
+    $r->user("user");
+    $r->ap_auth_type("Basic");
+
+    return Apache2::Const::OK;
+}
+
 sub declined {
 
     callback(shift);
@@ -168,7 +179,7 @@ __DATA__
         PerlAccessHandler TestHooks::stacked_handlers2::ok TestHooks::stacked_handlers2::ok
 
         # 2 run, 1 left behind
-        PerlAuthenHandler TestHooks::stacked_handlers2::declined TestHooks::stacked_handlers2::ok
+        PerlAuthenHandler TestHooks::stacked_handlers2::declined TestHooks::stacked_handlers2::ok_authen
         PerlAuthenHandler TestHooks::stacked_handlers2::auth_required
 
         # 2 run, 1 left behind



Mime
View raw message