File Coverage

blib/lib/Plack/App/HipChat/WebHook.pm

Criterion	Covered	Total	%
statement	47	47	100.0
branch	8	8	100.0
condition	2	2	100.0
subroutine	13	13	100.0
pod	3	3	100.0
total	73	73	100.0

package Plack::App::HipChat::WebHook;

use strict;
use warnings;

use parent qw( Plack::Component );

use Plack::Util::Accessor qw(webhooks hipchat_user_agent );
use Plack::Util;
use Plack::Request;

use JSON qw(decode_json);
use Try::Tiny;

sub call {
    my($self, $env) = @_;

    my $Req = Plack::Request->new($env);

    my $rh_webhooks = $self->webhooks;

    my $path = $Req->path_info();
    if ($rh_webhooks->{$path}) {

        ## Check headers

        my $hipchat_uagent = $self->hipchat_user_agent() // 'HipChat.com';

        if ($Req->headers()->header('User-Agent') ne $hipchat_uagent) {
#            warn "No HipChat.com User-Agent header\n";
            return $self->return_400();
        }

        if ($Req->headers()->header('Content-Type') ne 'application/json') {
#            warn "Not application/json Content-Type\n";
            return $self->return_400();
        }

        my $rh;
        try {
            $rh = decode_json($Req->content());
        } catch {
#            warn "Failed to decode JSON content\n";
        };

        if (!$rh) {
            return $self->return_400();
        }

        my $rc = $rh_webhooks->{$path};
        return Plack::Util::run_app($rc, $rh);
    }

    return $self->return_404();
}

sub return_404 {
    my $self = shift;

#    warn "Not found\n";
    return [ 404, [ 'Content-Type' => 'text/plain', 'Content-Length' => 9 ],
             ['Not found'] ];
}

sub return_400 {
    my $self = shift;
    return [ 400,  ['Content-Type' => 'text/plain', 'Content-Length' => 11 ],
            ['Bad Request'] ];
}

1;

# ABSTRACT: HipChat WebHook Plack Application

__END__