File Coverage

blib/lib/HSTS/Preloaded.pm

Criterion	Covered	Total	%
statement	30	56	53.5
branch	2	8	25.0
condition			n/a
subroutine	9	14	64.2
pod	3	3	100.0
total	44	81	54.3

package HSTS::Preloaded;
$HSTS::Preloaded::VERSION = '1.0.1';
# ABSTRACT: inspect Chrome's HSTS preloaded list



use strict;
use warnings FATAL => 'all';
use utf8;
use open qw(:std :utf8);

use Carp;
use HTTP::Tiny;
use JSON::PP;
use MIME::Base64;



sub new {
    my ($class, @params) = @_;

    croak "You should use new() without params" if @params;

    my $self = {};

    bless $self, $class;

    $self->{_data} = $self->_get_data_with_hsts_preloaded_list();

    # to speed up method host_is_in_hsts_preloaded_list()
    $self->{_hosts} = { map { $_->{name} => 1 } @{$self->{_data}->{entries}} };

    return $self;
}


sub host_is_in_hsts_preloaded_list {
    my ($self, $host) = @_;

    croak "Host is not defined" if not defined $host;

    return !!$self->{_hosts}->{$host};
}


sub get_all_hsts_preloaded_list_data {
    my ($self) = @_;

    return $self->{_data};
}


sub _get_data_with_hsts_preloaded_list {
    my ($self) = @_;

    # The only way to download raw content is to download base64-encoded file
    # https://code.google.com/p/gitiles/issues/detail?id=7

    my $url = 'https://chromium.googlesource.com/chromium/src/+/master/net/http/transport_security_state_static.json?format=TEXT';
    my $base64_content = $self->_get_content_from_url( $url );
    my $content = decode_base64 $base64_content;
    my $json = $self->_get_data_without_comments( $content );
    my $data = decode_json $json;

    return $data;
}

sub _get_data_without_comments {
    my ($self, $data) = @_;

    my $output;
    foreach my $line (split /\n/, $data) {
        if ($line !~ m{^\s*//}) {
            $output .= "$line\n";
        }
    }

    return $output;
}

sub _get_content_from_url {
    my ($self, $url) = @_;

    my $response = HTTP::Tiny->new->get($url);

    if ($response->{status} eq '200') {
        return $response->{content};
    } else {
        croak "Error. Can't get url '$url'. Got http status $response->{status}";
    }
}

1;

__END__