File Coverage

lib/Haineko/HTTPD/Auth.pm

Criterion	Covered	Total	%
statement	29	37	78.3
branch	13	22	59.0
condition	3	7	42.8
subroutine	5	7	71.4
pod	1	1	100.0
total	51	74	68.9

package Haineko::HTTPD::Auth;
use feature ':5.10';
use strict;
use warnings;
use Try::Tiny;

our $PasswordDB = undef;

sub basic {
    my $class = shift;
    my $argvs = { @_ };

    return 0 unless exists $argvs->{'username'};
    return 0 unless exists $argvs->{'password'};

    my $passworddb = undef;
    my $credential = $PasswordDB // undef;
    my $exceptions = 0;

    if( not $credential ) {
        # Load username and password entries from a file
        return undef unless defined $ENV{'HAINEKO_ROOT'};
        $passworddb = sprintf( "%s/etc/password", $ENV{'HAINEKO_ROOT'} );
        $passworddb .= '-debug' if( not -f $passworddb && $ENV{'HAINEKO_DEBUG'} );
        return undef unless -f -r -s $passworddb;

        require Haineko::JSON;
        try {
            $credential = Haineko::JSON->loadfile( $passworddb );
        } catch {
            $exceptions = 1;
        };
    }

    return undef if $exceptions;
    return undef unless defined $credential;
    return undef unless keys %$credential;

    return 0 unless exists $credential->{ $argvs->{'username'} };

    my $password00 = $credential->{ $argvs->{'username'} } // undef;
    my $password01 = $argvs->{'password'};

    require Crypt::SaltedHash;
    return 1 if Crypt::SaltedHash->validate( $password00, $password01 );
    return 0;
}

1;
__END__