File Coverage

blib/lib/Monitis/Agents.pm

Criterion	Covered	Total	%
statement	9	55	16.3
branch	0	16	0.0
condition			n/a
subroutine	3	9	33.3
pod	6	6	100.0
total	18	86	20.9

package Monitis::Agents;

use warnings;
use strict;
require Carp;

use base 'Monitis';

sub get {
    my ($self, @params) = @_;

    my @mandatory = qw//;
    my @optional  = qw/keyRegExp/;

    my $params = $self->prepare_params(\@params, \@mandatory, \@optional);

    return $self->api_get('agents' => $params);
}

sub info {
    my ($self, @params) = @_;

    my @mandatory = qw/agentId/;
    my @optional  = qw/loadTests/;

    my $params = $self->prepare_params(\@params, \@mandatory, \@optional);

    return $self->api_get('agentInfo' => $params);
}

sub get_all_agents_snapshot {
    my ($self, @params) = @_;

    my @mandatory = qw//;
    my @optional  = qw/platform timezone tag/;

    my $params = $self->prepare_params(\@params, \@mandatory, \@optional);

    return $self->api_get('allAgentsSnapshot' => $params);
}

sub get_agents_snapshot {
    my ($self, @params) = @_;

    my @mandatory = qw/agentKey/;
    my @optional  = qw/timezone/;

    my $params = $self->prepare_params(\@params, \@mandatory, \@optional);

    return $self->api_get('agentSnapshot' => $params);
}

sub delete {
    my ($self, @params) = @_;

    my @mandatory = qw//;
    my @optional  = qw/agentIds keyRegExp/;

    my $params = $self->prepare_params(\@params, \@mandatory, \@optional);

    return $self->api_post('deleteAgents' => $params);
}

sub download {
    my ($self, @params) = @_;

    my @mandatory = qw/platform/;
    my @optional  = qw//;

    my $params = $self->prepare_params(\@params, \@mandatory, \@optional);

    my $request = $self->build_post_request('downloadAgent' => $params);

    my $response = $self->ua->request($request);

    my $type = $response->header('Content-Type');

    # Error handling
    if ($type =~ /^text/) {
        return $self->parse_response($response);
    }
    elsif (!$response->is_success) {
        return {status => "Network error: '" . $response->status_line . "'"};
    }
    elsif ($type ne 'application/file') {
        return {status => "Wrong content-type: '$type'"};
    }

    my $content = $response->decoded_content;
    my $windows;

    # Look for platform name in parameters
    for (my $i = 0; $i <= $#$params; $i += 2) {
        next unless $params->[$i] eq 'platform';

        # Detect platform
        $windows = $params->[$i + 1] =~ /^win/i;
        last;
    }

    if (!$windows) {

        # Check GZIP header for non-Windows platforms
        return unless substr($content, 0, 2) eq chr(31) . chr(139);
    }
    elsif ($windows) {

        # Check ZIP header for Windows platforms
        return unless unpack 'L4', substr($content, 0, 4) == 0x04034b50;
    }

    $content;
}

__END__