File Coverage

blib/lib/Nagios/Passive/ResultPath.pm

Criterion	Covered	Total	%
statement	20	54	37.0
branch	0	10	0.0
condition	0	3	0.0
subroutine	7	10	70.0
pod			n/a
total	27	77	35.0

package Nagios::Passive::ResultPath;

use strict;
use Carp;
use File::Temp;
use Fcntl qw/:DEFAULT :flock/;
use Moo;
use MooX::late;

extends 'Nagios::Passive::Base';

has 'checkresults_dir'    => ( is => 'ro', isa => 'Str | Undef', required => 1);
has 'check_type'          => ( is => 'rw', isa => 'Int', default => 1);
has 'check_options'       => ( is => 'rw', isa => 'Int', default => 0);
has 'scheduled_check'     => ( is => 'rw', isa => 'Int', default => 0);
has 'latency'             => ( is => 'rw', isa => 'Num', default => 0);
has 'start_time'          => ( is => 'rw', isa => 'Num', default=>sub { time . ".0" });
has 'finish_time'         => ( is => 'rw', isa => 'Num', default=>sub { time . ".0" });
has 'early_timeout'       => ( is => 'rw', isa => 'Int', default=>0);
has 'exited_ok'           => ( is => 'rw', isa => 'Int', default=>1);

with 'Nagios::Passive::Role::Tempfile';

sub BUILD {
  my $self = shift;
  my $cd = $self->checkresults_dir;
  if(defined $cd and ! -d $cd) {
    croak("$cd is not a directory")
  }
};

sub _to_string {
  my $self = shift;
  my $string = "";
  $string.="### Nagios Service Check Result ###\n";
  $string.=sprintf "# Time: %s\n",scalar localtime $self->time;
  $string.=sprintf "host_name=%s\n", $self->host_name;
  if(defined($self->service_description)) {
    $string.=sprintf "service_description=%s\n", $self->service_description;
  }
  $string.=sprintf "check_type=%d\n", $self->check_type;
  $string.=sprintf "check_options=%d\n", $self->check_options;
  $string.=sprintf "scheduled_check=%d\n", $self->scheduled_check;
  $string.=sprintf "latency=%f\n", $self->latency;
  $string.=sprintf "start_time=%f\n", $self->start_time;
  $string.=sprintf "finish_time=%f\n", $self->finish_time;
  $string.=sprintf "early_timeout=%d\n", $self->early_timeout;
  $string.=sprintf "exited_ok=%d\n", $self->exited_ok;
  $string.=sprintf "return_code=%d\n", $self->return_code;
  $string.=sprintf "output=%s %s - %s\n", $self->check_name,
             $self->_status_code, $self->_quoted_output;
  return $string;
}

sub to_string {
  my $self = shift;
  my $string = "";
  $string.="### Active Check Result File ###\n";
  $string.=sprintf "file_time=%d\n\n",$self->time;
  $string.=$self->_to_string;
}

sub submit {
  my $self = shift;
  if(! defined $self->checkresults_dir) {
    croak(
      "checkresults_dir is not set, you can either set it ".
      "or use that object with Nagios::Passive::BulkResult"
    );
  }
  my $fh = $self->tempfile;
  my $output = $self->to_string;
  print $fh $output or croak($!);
  close($fh) or croak($!);
  $self->_touch_file;
  return $fh->filename;
}


1;
__END__