File Coverage

blib/lib/Sledge/Authorizer/BasicAuth.pm

Criterion	Covered	Total	%
statement	15	30	50.0
branch	0	4	0.0
condition	0	5	0.0
subroutine	5	7	71.4
pod	0	2	0.0
total	20	48	41.6

package Sledge::Authorizer::BasicAuth;
use strict;
use warnings;
use base qw(Sledge::Authorizer Class::Data::Inheritable);
use 5.008001;

our $VERSION = '0.07';

use MIME::Base64 qw//;

__PACKAGE__->mk_classdata('error_template');
__PACKAGE__->mk_classdata(realm => 'Authorization Required');

sub basic_auth {
    my $self  = shift;
    my $page  = shift;

    my $auth_header = $page->r->header_in('Authorization') || '';
    if ($auth_header =~ /^Basic (.+)$/) {
        my ($user, $pass) = split q{:}, MIME::Base64::decode_base64($1);
        if (defined $user and defined $pass) {
            return ($user, $pass);
        }
    }
    return $self->show_error_page($page);
}

sub show_error_page {
    my $self = shift;
    my $page = shift;

    $page->load_template($self->error_template);

    my $realm = $self->realm;
    $page->r->header_out('WWW-Authenticate' => qq{Basic realm="$realm"});
    $page->r->status(401);

    $page->output_content;
}

1;
__END__