From c5b954b1c66b63e64dbc1ca83076e59b5c5cc2af Mon Sep 17 00:00:00 2001
From: Denis Zheleztsov <difrex@bingo-boom.ru>
Date: Fri, 10 Jul 2015 14:43:42 +0300
Subject: [PATCH] mail handler

---
 handlers/mailer.pl | 88 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 88 insertions(+)
 create mode 100755 handlers/mailer.pl

diff --git a/handlers/mailer.pl b/handlers/mailer.pl
new file mode 100755
index 0000000..60aa903
--- /dev/null
+++ b/handlers/mailer.pl
@@ -0,0 +1,88 @@
+#!/usr/bin/perl 
+
+use strict;
+use warnings;
+use JSON;
+
+my $json = <>;
+
+my $message = decode_json($json);
+
+my $statuses = {
+	'2' => 'Critical',
+	'1' => 'Warning',
+	'0' => 'Ok'
+};
+
+
+# Get client values
+my $client_name = $message->{client}->{name};
+my $client_addr = $message->{client}->{address};
+my $timestamp 	= localtime( $message->{client}->{timestamp} );
+
+# Get check information
+my $check_name 		= $message->{check}->{name};
+my $check_out 		= $message->{check}->{output};
+my $check_command	= $message->{check}->{command};
+my $check_interval	= $message->{check}->{interval};
+my $check_status 	= $statuses->{ $message->{check}->{status} };
+my @ch 			= $message->{check}->{history};
+my @check_history;
+foreach my $c (@ch) {
+	@check_history = @$c;
+}
+
+# Count history
+my $ok_count 	= 0;
+my $warn_count 	= 0;
+my $crit_count 	= 0;
+my $total = @check_history;
+foreach my $stat (@check_history) {
+	if ( $stat eq '2' ) {
+		$crit_count++;
+	}
+	elsif ( $stat eq '1' ) {
+		$warn_count++;
+	}
+	else {
+		$ok_count++;
+	}
+}
+
+# Build mail body message
+my $mail_body = "
+$timestamp
+----------------------------------------------------
+$client_name with $client_addr status: $check_status
+
+=== Summary ===
+CHECK: $check_name
+CHECK COMMAND: $check_command
+CHECK MESSAGE: $check_out
+
+=== Check history ===
+Check interval in seconds: $check_interval
+TOTAL: $total
+OK: $ok_count
+WARNING: $warn_count
+CRITICAL: $crit_count
+";
+
+# Send email
+my $mail_cmd 	= 'mail';
+my $mail_subg 	= "$client_name with address $client_addr status: $check_status";
+my $mail_to 	= 'admins@example.com';
+
+# Make text file
+my $mail_file 	= '/tmp/'.$message->{client}->{timestamp}.'mail.txt';
+open my $mail_fh, '>', $mail_file or die "$!\n";
+print $mail_fh $mail_body;
+close $mail_fh;
+
+# Send it now!
+`cat $mail_file | $mail_cmd -s "'$mail_subg'" $mail_to`;
+
+# Remove temp file
+my @rm_cmd = ('rm', '-f', $mail_file);
+system(@rm_cmd) == 0 or die "$!\n";
+