cvs commit: modperl-2.0/t/hooks/TestHooks authen.pm authz.pm

[stas]

stas        2003/06/18 01:59:04

  Modified:    t/hooks/TestHooks authen.pm authz.pm
  Log:
  use non-deprecated constants: 's|AUTH_REQUIRED|HTTP_UNAUTHORIZED|'
  
  Revision  Changes    Path
  1.6       +2 -2      modperl-2.0/t/hooks/TestHooks/authen.pm
  
  Index: authen.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/hooks/TestHooks/authen.pm,v
  retrieving revision 1.5
  retrieving revision 1.6
  diff -u -r1.5 -r1.6
  --- authen.pm 11 Apr 2002 11:08:43 -0000      1.5
  +++ authen.pm 18 Jun 2003 08:59:04 -0000      1.6
  @@ -5,7 +5,7 @@
   
   use Apache::Access ();
   
  -use Apache::Const -compile => qw(OK AUTH_REQUIRED SERVER_ERROR);
  +use Apache::Const -compile => qw(OK HTTP_UNAUTHORIZED SERVER_ERROR);
   
   sub handler {
       my $r = shift;
  @@ -22,7 +22,7 @@
   
       unless ($user eq 'dougm' and $sent_pw eq 'foo') {
           $r->note_basic_auth_failure;
  -        return Apache::AUTH_REQUIRED;
  +        return Apache::HTTP_UNAUTHORIZED;
       }
   
       Apache::OK;
  
  
  
  1.4       +4 -4      modperl-2.0/t/hooks/TestHooks/authz.pm
  
  Index: authz.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/hooks/TestHooks/authz.pm,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- authz.pm  31 Mar 2003 01:50:52 -0000      1.3
  +++ authz.pm  18 Jun 2003 08:59:04 -0000      1.4
  @@ -5,7 +5,7 @@
   
   use Apache::Access ();
   
  -use Apache::Const -compile => qw(OK AUTH_REQUIRED);
  +use Apache::Const -compile => qw(OK HTTP_UNAUTHORIZED);
   
   sub auth_any {
       my $r = shift;
  @@ -15,7 +15,7 @@
   
       unless($r->user and $sent_pw) {
        $r->note_basic_auth_failure;
  -     return Apache::AUTH_REQUIRED;
  +     return Apache::HTTP_UNAUTHORIZED;
       }
   
       return Apache::OK;
  @@ -26,11 +26,11 @@
   
       my $user = $r->user;
   
  -    return Apache::AUTH_REQUIRED unless $user;
  +    return Apache::HTTP_UNAUTHORIZED unless $user;
   
       my($u, @allowed) = split /\s+/, $r->requires->[0]->{requirement};
   
  -    return Apache::AUTH_REQUIRED unless grep { $_ eq $user } @allowed;
  +    return Apache::HTTP_UNAUTHORIZED unless grep { $_ eq $user } @allowed;
   
       Apache::OK;
   }