perl-modperl-cvs mailing list archives

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

URL: http://svn.apache.org/r1448209
Log:
* t/hooks/TestHooks/authz.pm: Hardcode "dougm" username, because we don't
  have access to ap_requires in httpd-2.4. Another way could be to create
  new auth provider, but that's already tested in access2.t


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

Modified: perl/modperl/branches/httpd24/t/hooks/TestHooks/authz.pm
URL: http://svn.apache.org/viewvc/perl/modperl/branches/httpd24/t/hooks/TestHooks/authz.pm?rev=1448209&r1=1448208&r2=1448209&view=diff
==============================================================================
--- perl/modperl/branches/httpd24/t/hooks/TestHooks/authz.pm (original)
+++ perl/modperl/branches/httpd24/t/hooks/TestHooks/authz.pm Wed Feb 20 15:04:04 2013
@@ -8,6 +8,7 @@ use Apache2::Access ();
 use Apache2::Const -compile => qw(OK HTTP_UNAUTHORIZED);
 
 sub auth_any {
+    my $self = shift;
     my $r = shift;
 
     my ($res, $sent_pw) = $r->get_basic_auth_pw;
@@ -30,9 +31,7 @@ sub handler {
 
     return Apache2::Const::HTTP_UNAUTHORIZED unless $user;
 
-    my ($u, @allowed) = split /\s+/, $r->requires->[0]->{requirement};
-
-    return Apache2::Const::HTTP_UNAUTHORIZED unless grep { $_ eq $user } @allowed;
+    return Apache2::Const::HTTP_UNAUTHORIZED unless "dougm" eq $user;
 
     Apache2::Const::OK;
 }
@@ -43,6 +42,6 @@ require user dougm
 AuthType Basic
 AuthName simple
 PerlModule          TestHooks::authz
-PerlAuthenHandler   TestHooks::authz::auth_any
+PerlAuthenHandler   TestHooks::authz->auth_any
 PerlResponseHandler Apache::TestHandler::ok1
 SetHandler modperl



Mime
View raw message