initial1.0.0

1 files changed, 105 insertions, 0 deletions

diff --git a/lib/PINGDOMFETCH/Service.pm b/lib/PINGDOMFETCH/Service.pm
new file mode 100644
index 0000000..98633f2
--- /dev/null
+++ b/lib/PINGDOMFETCH/Service.pm
@@ -0,0 +1,105 @@
+package PINGDOMFETCH::Service;
+
+use strict;
+use warnings;
+
+use PINGDOMFETCH::Config;
+use PINGDOMFETCH::Display;
+use PINGDOMFETCH::Result;
+use PINGDOMFETCH::Utils;
+
+our @ISA = ('PINGDOMFETCH::Display');
+
+sub new {
+    my ( $class, %vals ) = @_;
+
+    my $self = bless \%vals, $class;
+
+    return $self;
+}
+
+sub acc {
+    my ( $self, $acc ) = @_;
+
+    $self->{result}->acc( $self, $acc ) if exists $self->{result};
+
+    return undef;
+}
+
+sub print {
+    my ($self) = @_;
+
+    my $config       = $self->{config};
+    my $is_in_future = $config->bool('interval_is_in_future');
+    my $notify       = $config->{notify};
+
+    my $avail_perc = do {
+        if ( exists $self->{result} ) {
+        }
+        else {
+            '';
+        }
+    };
+    my $str = do {
+        if ($is_in_future) {
+            sprintf(
+"Service: %03.3f%%; %s (Best: %03.3f%%; Worst: %03.3f%%; Avgresponse: %dms)",
+                $self->{result}{avail_perc},
+                $self->{name},
+                $self->{result}{possible_avail_perc_best},
+                $self->{result}{possible_avail_perc_worst},
+                $self->{result}{avgresponse}
+            );
+        }
+        else {
+            sprintf(
+                "Service: %03.3f%%; %s (Avgresponse: %dms)",
+                $self->{result}{avail_perc},
+                $self->{name}, $self->{result}{avgresponse}
+            );
+        }
+    };
+
+    my @opts;
+    my $opts     = $self->{opts};
+    my $opts_str = $config->get_opts_str($opts);
+
+    my $warning_less =
+      exists $self->{opts}{warning}
+      ? $self->{opts}{warning}
+      : $config->get('warning.if.avail.is.less');
+
+    my $critical_less =
+      exists $self->{opts}{critical}
+      ? $self->{opts}{critical}
+      : $config->get('critical.if.avail.is.less');
+
+    if ( $self->{result}{avail_perc} < $critical_less ) {
+        $self->critical( $str . $opts_str, $notify );
+    }
+    elsif ( $self->{result}{avail_perc} < $warning_less ) {
+        $self->warning( $str . $opts_str, $notify );
+    }
+    else {
+        $self->info( $str . $opts_str, $notify );
+    }
+
+    return undef;
+}
+
+sub print_full {
+    my ($self) = @_;
+
+    my $config = $self->{config};
+
+    $self->info("Service: $self->{name}");
+
+    $self->inc();
+    $self->{result}->print_full() if exists $self->{result};
+    $self->dec();
+
+    return undef;
+}
+
+1;
+