mirror of
https://github.com/zulip/zulip.git
synced 2025-11-02 04:53:36 +00:00
puppet: Remove pageduty_nagios.pl.
This hasn't been used in like 4 years, and clutters the repo.
This commit is contained in:
Tim Abbott
@@ -64,10 +64,6 @@ Copyright: 2003-2009 Edgewall Software
|
||||
2003-2004 Jonas Borgström <jonas@edgewall.com>
|
||||
License: BSD-3-Clause
|
||||
|
||||
Files: puppet/zulip_internal/files/pagerduty_nagios.pl
|
||||
Copyright: 2011, PagerDuty, Inc.
|
||||
License: BSD-3-Clause
|
||||
|
||||
Files: puppet/zulip_internal/files/zulip-ec2-configure-interfaces
|
||||
Copyright: 2013-2017, Dropbox, Inc., Kandra Labs, Inc., and contributors
|
||||
License: Expat
|
||||
|
||||
@@ -1,23 +0,0 @@
|
||||
# Edit this file to introduce tasks to be run by cron.
|
||||
#
|
||||
# Each task to run has to be defined through a single line
|
||||
# indicating with different fields when the task will be run
|
||||
# and what command to run for the task
|
||||
#
|
||||
# To define the time you can provide concrete values for
|
||||
# minute (m), hour (h), day of month (dom), month (mon),
|
||||
# and day of week (dow) or use '*' in these fields (for 'any').#
|
||||
# Notice that tasks will be started based on the cron's system
|
||||
# daemon's notion of time and timezones.
|
||||
#
|
||||
# Output of the crontab jobs (including errors) is sent through
|
||||
# email to the user the crontab file belongs to (unless redirected).
|
||||
#
|
||||
# For example, you can run a backup of all your user accounts
|
||||
# at 5 a.m every week with:
|
||||
# 0 5 * * 1 tar -zcf /var/backups/home.tgz /home/
|
||||
#
|
||||
# For more information see the manual pages of crontab(5) and cron(8)
|
||||
#
|
||||
# m h dom mon dow command
|
||||
* * * * * /usr/local/bin/pagerduty_nagios.pl flush
|
||||
@@ -1,280 +0,0 @@
|
||||
#!/usr/bin/env perl
|
||||
|
||||
|
||||
# Nagios plugin that sends Nagios events to PagerDuty.
|
||||
#
|
||||
# Copyright (c) 2011, PagerDuty, Inc. <info@pagerduty.com>
|
||||
# All rights reserved.
|
||||
#
|
||||
# Redistribution and use in source and binary forms, with or without
|
||||
# modification, are permitted provided that the following conditions are met:
|
||||
# * Redistributions of source code must retain the above copyright
|
||||
# notice, this list of conditions and the following disclaimer.
|
||||
# * Redistributions in binary form must reproduce the above copyright
|
||||
# notice, this list of conditions and the following disclaimer in the
|
||||
# documentation and/or other materials provided with the distribution.
|
||||
# * Neither the name of PagerDuty Inc nor the
|
||||
# names of its contributors may be used to endorse or promote products
|
||||
# derived from this software without specific prior written permission.
|
||||
#
|
||||
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
|
||||
# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
|
||||
# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
|
||||
# DISCLAIMED. IN NO EVENT SHALL PAGERDUTY INC BE LIABLE FOR ANY
|
||||
# DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
|
||||
# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
|
||||
# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
|
||||
# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
|
||||
# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
|
||||
# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
||||
|
||||
|
||||
use Pod::Usage;
|
||||
use Getopt::Long;
|
||||
use Sys::Syslog;
|
||||
use HTTP::Request::Common qw(POST);
|
||||
use HTTP::Status qw(is_client_error);
|
||||
use LWP::UserAgent;
|
||||
use File::Path;
|
||||
use Fcntl qw(:flock);
|
||||
|
||||
|
||||
=head1 NAME
|
||||
|
||||
pagerduty_nagios -- Send Nagios events to the PagerDuty alert system
|
||||
|
||||
=head1 SYNOPSIS
|
||||
|
||||
pagerduty_nagios enqueue [options]
|
||||
|
||||
pagerduty_nagios flush [options]
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
This script passes events from Nagios to the PagerDuty alert system. It's
|
||||
meant to be run as a Nagios notification plugin. For more details, please see
|
||||
the PagerDuty Nagios integration docs at:
|
||||
http://www.pagerduty.com/docs/nagios-integration.
|
||||
|
||||
When called in the "enqueue" mode, the script loads a Nagios notification out
|
||||
of the environment and into the event queue. It then tries to flush the
|
||||
queue by sending any enqueued events to the PagerDuty server. The script is
|
||||
typically invoked in this mode from a Nagios notification handler.
|
||||
|
||||
When called in the "flush" mode, the script simply tries to send any enqueued
|
||||
events to the PagerDuty server. This mode is typically invoked by cron. The
|
||||
purpose of this mode is to retry any events that couldn't be sent to the
|
||||
PagerDuty server for whatever reason when they were initially enqueued.
|
||||
|
||||
=head1 OPTIONS
|
||||
|
||||
--api-base URL
|
||||
The base URL used to communicate with PagerDuty. The default option here
|
||||
should be fine, but adjusting it may make sense if your firewall doesn't
|
||||
pass HTTPS traffic for some reason. See the PagerDuty Nagios integration
|
||||
docs for details.
|
||||
|
||||
--field KEY=VALUE
|
||||
Add this key-value pair to the event being passed to PagerDuty. The script
|
||||
automatically gathers Nagios macros out of the environment, so there's no
|
||||
need to specify these explicitly. This option can be repeated as many
|
||||
times as necessary to pass multiple key-value pairs. This option is only
|
||||
useful when an event is being enqueued.0
|
||||
|
||||
--help
|
||||
Display documentation for the script.
|
||||
|
||||
--queue-dir DIR
|
||||
Path to the directory to use to store the event queue. By default, we use
|
||||
/tmp/pagerduty_nagios.
|
||||
|
||||
--verbose
|
||||
Turn on extra debugging information. Useful for debugging.
|
||||
|
||||
=cut
|
||||
|
||||
# This release tested on:
|
||||
# Debian Sarge (Perl 5.8.4)
|
||||
# Ubuntu 9.04 (Perl 5.10.0)
|
||||
|
||||
my $opt_api_base = "https://events.pagerduty.com/nagios/2010-04-15";
|
||||
my %opt_fields;
|
||||
my $opt_help;
|
||||
my $opt_queue_dir = "/tmp/pagerduty_nagios";
|
||||
my $opt_verbose;
|
||||
|
||||
|
||||
sub get_queue_from_dir {
|
||||
my $dh;
|
||||
|
||||
unless (opendir($dh, $opt_queue_dir)) {
|
||||
syslog(LOG_ERR, "opendir %s failed: %s", $opt_queue_dir, $!);
|
||||
die $!;
|
||||
}
|
||||
|
||||
my @files;
|
||||
while (my $f = readdir($dh)) {
|
||||
next unless $f =~ /^pd_(\d+)_\d+\.txt$/;
|
||||
push @files, [int($1), $f];
|
||||
}
|
||||
|
||||
closedir($dh);
|
||||
|
||||
@files = sort { @{$a}[0] <=> @{$b}[0] } @files;
|
||||
return map { @{$_}[1] } @files;
|
||||
}
|
||||
|
||||
|
||||
sub flush_queue {
|
||||
my @files = get_queue_from_dir();
|
||||
my $ua = LWP::UserAgent->new;
|
||||
|
||||
# It's not a big deal if we don't get the message through the first time.
|
||||
# It will get sent the next time cron fires.
|
||||
$ua->timeout(15);
|
||||
|
||||
foreach (@files) {
|
||||
my $filename = "$opt_queue_dir/$_";
|
||||
my $fd;
|
||||
my %event;
|
||||
|
||||
print STDERR "==== Now processing: $filename\n" if $opt_verbose;
|
||||
|
||||
unless (open($fd, "<", $filename)) {
|
||||
syslog(LOG_ERR, "open %s for read failed: %s", $filename, $!);
|
||||
die $!;
|
||||
}
|
||||
|
||||
while (<$fd>) {
|
||||
chomp;
|
||||
my @fields = split("=", $_, 2);
|
||||
$event{$fields[0]} = $fields[1];
|
||||
}
|
||||
|
||||
close($fd);
|
||||
|
||||
my $req = POST("$opt_api_base/create_event", \%event);
|
||||
|
||||
if ($opt_verbose) {
|
||||
my $s = $req->as_string;
|
||||
print STDERR "Request:\n$s\n";
|
||||
}
|
||||
|
||||
my $resp = $ua->request($req);
|
||||
|
||||
if ($opt_verbose) {
|
||||
my $s = $resp->as_string;
|
||||
print STDERR "Response:\n$s\n";
|
||||
}
|
||||
|
||||
if ($resp->is_success) {
|
||||
syslog(LOG_INFO, "Nagios event in file %s ACCEPTED by the PagerDuty server.", $filename);
|
||||
unlink($filename);
|
||||
}
|
||||
elsif (is_client_error($resp->code)) {
|
||||
syslog(LOG_WARNING, "Nagios event in file %s REJECTED by the PagerDuty server. Server says: %s", $filename, $resp->content);
|
||||
unlink($filename);
|
||||
}
|
||||
else {
|
||||
# Something else went wrong.
|
||||
syslog(LOG_WARNING, "Nagios event in file %s DEFERRED due to network/server problems.", $filename);
|
||||
return 0;
|
||||
}
|
||||
}
|
||||
|
||||
# Everything that needed to be sent was sent.
|
||||
return 1;
|
||||
}
|
||||
|
||||
|
||||
sub lock_and_flush_queue {
|
||||
# Serialize access to the queue directory while we flush.
|
||||
# (We don't want more than one flush at once.)
|
||||
|
||||
my $lock_filename = "$opt_queue_dir/lockfile";
|
||||
my $lock_fd;
|
||||
|
||||
unless (open($lock_fd, ">", $lock_filename)) {
|
||||
syslog(LOG_ERR, "open %s for write failed: %s", $lock_filename, $!);
|
||||
die $!;
|
||||
}
|
||||
|
||||
unless (flock($lock_fd, LOCK_EX)) {
|
||||
syslog(LOG_ERR, "flock %s failed: %s", $lock_filename, $!);
|
||||
die $!;
|
||||
}
|
||||
|
||||
my $ret = flush_queue();
|
||||
|
||||
close($lock_fd);
|
||||
|
||||
return $ret;
|
||||
}
|
||||
|
||||
|
||||
sub enqueue_event {
|
||||
my %event;
|
||||
|
||||
# Scoop all the Nagios related stuff out of the environment.
|
||||
while ((my $k, my $v) = each %ENV) {
|
||||
next unless $k =~ /^NAGIOS_(.*)$/;
|
||||
$event{$1} = $v;
|
||||
}
|
||||
|
||||
# Apply any other variables that were passed in.
|
||||
%event = (%event, %opt_fields);
|
||||
|
||||
$event{"pd_version"} = "1.0";
|
||||
|
||||
# Right off the bat, enqueue the event. Nothing tiem consuming should come
|
||||
# before here (i.e. no locks or remote connections), because we want to
|
||||
# make sure we get the event written out within the Nagios notification
|
||||
# timeout. If we get killed off after that, it isn't a big deal.
|
||||
|
||||
my $filename = sprintf("$opt_queue_dir/pd_%u_%u.txt", time(), $$);
|
||||
my $fd;
|
||||
|
||||
unless (open($fd, ">", $filename)) {
|
||||
syslog(LOG_ERR, "open %s for write failed: %s", $filename, $!);
|
||||
die $!;
|
||||
}
|
||||
|
||||
while ((my $k, my $v) = each %event) {
|
||||
# "=" can't occur in the keyname, and "\n" can't occur anywhere.
|
||||
# (Nagios follows this already, so I think we're safe)
|
||||
print $fd "$k=$v\n";
|
||||
}
|
||||
|
||||
close($fd);
|
||||
}
|
||||
|
||||
###########
|
||||
|
||||
GetOptions("api-base=s" => \$opt_api_base,
|
||||
"field=s%" => \%opt_fields,
|
||||
"help" => \$opt_help,
|
||||
"queue-dir=s" => \$opt_queue_dir,
|
||||
"verbose" => \$opt_verbose
|
||||
) || pod2usage(2);
|
||||
|
||||
pod2usage(2) if @ARGV < 1 ||
|
||||
(($ARGV[0] ne "enqueue") && ($ARGV[0] ne "flush"));
|
||||
|
||||
pod2usage(-verbose => 3) if $opt_help;
|
||||
|
||||
my @log_mode = ("nofatal", "pid");
|
||||
push(@log_mode, "perror") if $opt_verbose;
|
||||
|
||||
openlog("pagerduty_nagios", join(",", @log_mode), LOG_LOCAL0);
|
||||
|
||||
# This function automatically terminates the program on things like permission
|
||||
# errors.
|
||||
mkpath($opt_queue_dir);
|
||||
|
||||
if ($ARGV[0] eq "enqueue") {
|
||||
enqueue_event();
|
||||
lock_and_flush_queue();
|
||||
}
|
||||
elsif ($ARGV[0] eq "flush") {
|
||||
lock_and_flush_queue();
|
||||
}
|
||||
@@ -40,14 +40,6 @@ class zulip_ops::nagios {
|
||||
ensure => running,
|
||||
}
|
||||
|
||||
file { '/usr/local/bin/pagerduty_nagios.pl':
|
||||
ensure => file,
|
||||
mode => 755,
|
||||
owner => "root",
|
||||
group => "root",
|
||||
source => 'puppet:///modules/zulip_ops/pagerduty_nagios.pl',
|
||||
}
|
||||
|
||||
file { [ '/etc/nagios3/conf.d/extinfo_nagios2.cfg',
|
||||
'/etc/nagios3/conf.d/services_nagios2.cfg',
|
||||
'/etc/nagios3/conf.d/contacts_nagios2.cfg',
|
||||
|
||||
Reference in New Issue
Block a user