From 336c6c8a415603c772f97ccd63912d05209f3795 Mon Sep 17 00:00:00 2001
From: Paul Buetow <paul@buetow.org>
Date: Fri, 2 Jan 2015 13:27:02 +0100
Subject: initial

---
 lib/PINGDOMFETCH/Display.pm | 157 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 157 insertions(+)
 create mode 100644 lib/PINGDOMFETCH/Display.pm

(limited to 'lib/PINGDOMFETCH/Display.pm')

diff --git a/lib/PINGDOMFETCH/Display.pm b/lib/PINGDOMFETCH/Display.pm
new file mode 100644
index 0000000..3838a82
--- /dev/null
+++ b/lib/PINGDOMFETCH/Display.pm
@@ -0,0 +1,157 @@
+package PINGDOMFETCH::Display;
+
+use strict;
+use warnings;
+
+use Data::Dumper;
+
+use PINGDOMFETCH::Config;
+use PINGDOMFETCH::Utils;
+
+our $INDENT  = 0;
+our $VERBOSE = 0;
+
+use overload
+  '""' => sub { shift->indents(); },
+  '++' => sub { shift->inc(); },
+  '--' => sub { shift->dec(); };
+
+sub init {
+    my ($self) = @_;
+
+    $VERBOSE = $self->{'arg.verbose'} == 1;
+
+    return undef;
+}
+
+sub inc {
+    my ($self) = @_;
+
+    return ++$INDENT;
+}
+
+sub dec {
+    my ($self) = @_;
+
+    return --$INDENT;
+}
+
+sub indents {
+    my ($self) = @_;
+
+    return ' ' x $INDENT;
+}
+
+sub display {
+    my ( $self, $msging ) = @_;
+
+    print $msging;
+
+    return undef;
+}
+
+sub is_verbose {
+    my ($self) = @_;
+
+    return $VERBOSE == 1;
+}
+
+sub info_no_nl {
+    my ( $self, $msg ) = @_;
+
+    $self->display("$msg");
+
+    return undef;
+}
+
+sub info {
+    my ( $self, $msg, $notify ) = @_;
+
+    my $str = "   $self $msg\n";
+
+    $self->display($str);
+    $notify->message_push($str) if defined $notify;
+
+    return undef;
+}
+
+sub nl {
+    my ( $self, $notify ) = @_;
+
+    $self->display("\n");
+    $notify->message_push("\n") if defined $notify;
+
+    return undef;
+}
+
+sub error {
+    my ( $self, $msg ) = @_;
+
+    $self->display("!  ERROR: $self $msg\n");
+
+    exit 666;
+
+    return undef;
+}
+
+sub warning {
+    my ( $self, $msg, $notify ) = @_;
+
+    my $str = "!  $self $msg\n";
+
+    $self->display($str);
+
+    if ( defined $notify ) {
+        $notify->message_push($str);
+        $notify->{warnings}++;
+    }
+
+    return undef;
+}
+
+sub critical {
+    my ( $self, $msg, $notify ) = @_;
+
+    my $str = "!! $self $msg\n";
+
+    $self->display($str);
+
+    if ( defined $notify ) {
+        $notify->message_push($str);
+        $notify->{criticals}++;
+    }
+
+    return undef;
+}
+
+sub dump {
+    my ( $self, $msg ) = @_;
+
+    $self->display( Dumper $msg );
+
+    return undef;
+}
+
+sub diedump {
+    my ( $self, $msg ) = @_;
+
+    die Dumper $msg;
+
+    return undef;
+}
+
+sub verbose {
+    my ( $self, $msg, $notify ) = @_;
+
+    if ( $self->is_verbose() ) {
+        my $str = "  $self $msg\n";
+
+        $self->display($str);
+        $notify->message_push($str) if defined $notify;
+    }
+
+    return undef;
+}
+
+1;
+
-- 
cgit v1.2.3