File Coverage

lib/Ubic/Ping.pm

Criterion	Covered	Total	%
statement	21	81	25.9
branch	0	24	0.0
condition			n/a
subroutine	7	11	63.6
pod	1	1	100.0
total	29	117	24.7

#!/usr/bin/perl
package Ubic::Ping;
$Ubic::Ping::VERSION = '1.60';
use strict;
use warnings;

# ABSTRACT: http server which returns service status by it's name or port

use Ubic;
use Ubic::PortMap;
use Params::Validate qw(:all);
use Try::Tiny;

use parent qw(HTTP::Server::Simple::CGI);

sub _print_status($;$) {
    my ($name, $options) = validate_pos(@_, 1, { type => HASHREF, default => {} });

    unless (Ubic->is_enabled($name)) {
        if ($options->{noc}) {
            print "HTTP/1.1 500 Disabled\r\n";
        }
        else {
            print "HTTP/1.1 200 OK\r\n";
        }
        print "Content-Type: text/plain; charset=utf-8\r\n\r\n";
        print "disabled\n";
        return;
    }
    my $status = Ubic->cached_status($name)->status; # should read status from static file on disk
    if ($status eq 'running') {
        print "HTTP/1.1 200 OK\r\n";
        print "Content-Type: text/plain; charset=utf-8\r\n\r\n";
        print "ok\n";
        return;
    }
    else {
        if ($options->{noc}) {
            if ($status =~ /^[\w ]+$/) {
                print "HTTP/1.1 500 $status\r\n";
            }
            else {
                # invalid status, fallback to default status message
                print "HTTP/1.1 500 Wrong status\r\n";
            }
        }
        else {
            print "HTTP/1.1 200 OK\r\n";
        }
        print "Content-Type: text/plain; charset=utf-8\r\n\r\n";
        print "$status\n";
        return;
    }
}

sub handle_request {
    my ($self, $cgi) = @_;

    try {
        if ($cgi->path_info eq '/ping') {
            # ping self
            print "HTTP/1.1 200 OK\r\n";
            print "Content-Type: text/plain; charset=utf-8\r\n\r\n";
            print "ok\n";
            return;
        }
        elsif ( $cgi->path_info =~ m{^/noc/(\d+)/?$}) {
            my $port = $1;
            my $name = Ubic::PortMap::port2name($port);
            unless (defined $name) {
                print "HTTP/1.1 404 Not found\r\n";
                print "Content-Type: text/plain; charset=utf-8\r\n\r\n";
                print "Service at port '$port' not found\n";
                return;
            }
            _print_status($name, { noc => 1 });
            return;
        }
        elsif ($cgi->path_info =~ m{^/status/port/(\d+)/?$}) {
            my $port = $1;
            my $name = Ubic::PortMap::port2name($port);
            unless (defined $name) {
                print "HTTP/1.1 404 Not found\r\n";
                print "Content-Type: text/plain; charset=utf-8\r\n\r\n";
                print "Service at port '$port' not found\n";
                return;
            }
            _print_status($name);
            return;
        }
        elsif (my ($name) = $cgi->path_info =~ m{^/status/service/(.+?)/?$}) {
            unless (Ubic->has_service($name)) {
                print "HTTP/1.1 404 Not found\r\n";
                print "Content-Type: text/plain; charset=utf-8\r\n\r\n";
                print "Service with name '$name' not found\n";
                return;
            }
            _print_status($name);
        }
        else {
            print "HTTP/1.1 404 Not found\r\n";
            print "Content-Type: text/plain; charset=utf-8\r\n\r\n";
            print "Expected /status/service/NAME or /status/port/PORT query\n";
            return;
        }
    }
    catch {
        print "HTTP/1.1 500 Internal error\r\n";
        print "Content-Type: text/plain; charset=utf-8\r\n\r\n";
        print "Error: $_";
    };
}

1;

__END__