You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by jk...@apache.org on 2013/02/20 16:28:31 UTC
svn commit: r1448228 -
/perl/modperl/branches/httpd24/t/hooks/TestHooks/stacked_handlers2.pm
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