File Coverage

blib/lib/POE/Component/Server/HTTPServer/BasicAuthenHandler.pm

Criterion	Covered	Total	%
statement	15	35	42.8
branch	0	4	0.0
condition	0	3	0.0
subroutine	5	8	62.5
pod	1	2	50.0
total	21	52	40.3

package POE::Component::Server::HTTPServer::BasicAuthenHandler;
use strict;
use HTTP::Status;
use MIME::Base64 qw( decode_base64 );
use POE::Component::Server::HTTPServer::Handler qw( H_CONT H_FINAL );
use base 'POE::Component::Server::HTTPServer::Handler';

sub _init {
  my $self = shift;
  my $realm = shift;
  $self->{realm} = $realm;
}

sub handle {
  my $self = shift;
  my $context = shift;
  my $cred = $context->{request}->header('Authorization');
  if ( defined($cred) && $cred =~ /^Basic\s+(.*)$/ ) {
    my $unscrambled = decode_base64($1);
    if ( my($username,$password) = ( $unscrambled=~/^(.*?):(.*)/ ) ) {
      $context->{basic_username} = $username;
      $context->{basic_password} = $password;
      return H_CONT;
    }
  }
  # respond with basic auth challenge
  return $self->authen_challenge($context);
}

sub authen_challenge {
  my $self = shift;
  my $context = shift;
  my $realm = $self->{realm};
  $context->{response}->header('WWW-Authenticate',
			       qq{Basic realm="$realm"});
  $context->{response}->code( RC_UNAUTHORIZED );
  $context->{response}->content( "Unauthorized\n" );
  return H_FINAL;
}

1;
__END__