summaryrefslogtreecommitdiff
path: root/nagios-check-apt-updates
diff options
context:
space:
mode:
authorPeter Palfrader <peter@palfrader.org>2005-09-02 00:31:40 +0000
committerweasel <weasel@bc3d92e2-beff-0310-a7cd-cc87d7ac0ede>2005-09-02 00:31:40 +0000
commit55e6f3056ce6fef2dc321f3995623f33693df9ef (patch)
treef4715c0a10d20c3ef93b9f3145763d983aba829d /nagios-check-apt-updates
parent85463c14d15a5b09b7467b667ba1661e0716b000 (diff)
Add 3 more
git-svn-id: svn+ssh://asteria.noreply.org/svn/weaselutils/trunk@4 bc3d92e2-beff-0310-a7cd-cc87d7ac0ede
Diffstat (limited to 'nagios-check-apt-updates')
-rwxr-xr-xnagios-check-apt-updates150
1 files changed, 150 insertions, 0 deletions
diff --git a/nagios-check-apt-updates b/nagios-check-apt-updates
new file mode 100755
index 0000000..7bdc718
--- /dev/null
+++ b/nagios-check-apt-updates
@@ -0,0 +1,150 @@
+#!/usr/bin/perl -Tw
+
+# nagios check for debian (security) updates,
+# based on net-snmp glue to security updates via apt-get.
+# Copyright (C) 2004 SILVER SERVER Gmbh
+# Copyright (C) 2004 Peter Palfrader
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+# General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
+# USA
+
+use strict;
+use English;
+use Getopt::Long;
+
+$ENV{'PATH'} = '/bin:/sbin:/usr/bin:/usr/sbin';
+delete @ENV{'IFS', 'CDPATH', 'ENV', 'BASH_ENV'};
+
+
+my $VERSION = '0.0.1';
+my $APT = '/usr/bin/apt-get';
+my $USE_SUDO = 1;
+my $params;
+
+# nagios exit codes
+my $OK = 0;
+my $WARNING = 1;
+my $CRITICAL = 2;
+my $UNKNOWN = 3;
+
+$params->{'chroots'} = [];
+Getopt::Long::config('bundling');
+if (!GetOptions (
+ '--help' => \$params->{'help'},
+ '--version' => \$params->{'version'},
+ '--sudo' => \$params->{'sudo'},
+ '--nosudo' => \$params->{'nosudo'},
+ '--verbose' => \$params->{'verbose'},
+ '--chroot=s' => $params->{'chroots'},
+ )) {
+ die ("$PROGRAM_NAME: Usage: $PROGRAM_NAME [--help|--version] [--sudo|--nosudo] [--verbose]\n");
+};
+if ($params->{'help'}) {
+ print "$PROGRAM_NAME: Usage: $PROGRAM_NAME [--help|--version] [--sudo|--nosudo] [--verbose]\n";
+ print "Reports packages to upgrade, updating the list if necessary.\n";
+ print "\n";
+ print " --help Print this short help.\n";
+ print " --version Report version number.\n";
+ print " --sudo Use sudo to call apt-get (default).\n";
+ print " --nosudo Do not use sudo to call apt-get.\n";
+ print " --verbose Be a little verbose.\n";
+ exit (0);
+};
+if ($params->{'version'}) {
+ print "nagios-check-apt-updates $VERSION\n";
+ print "nagios check for availability of debian (security) updates\n";
+ print "Copyright (c) 2004 SILVER SERVER Gmbh\n";
+ print "Copyright (c) 2004 Peter Palfrader <peter\@palfrader.org>\n";
+ exit (0);
+};
+if ($params->{'sudo'} && $params->{'nosudo'}) {
+ die ("$PROGRAM_NAME: --sudo and --nosudo are mutually exclusive.\n");
+};
+if ($params->{'sudo'}) {
+ $USE_SUDO = 1;
+};
+if ($params->{'nosudo'}) {
+ $USE_SUDO = 0;
+};
+if (scalar @{$params->{'chroots'}} == 0) {
+ $params->{'chroots'} = ['/'];
+};
+
+$SIG{'__DIE__'} = sub {
+ print STDERR @_;
+ exit $UNKNOWN;
+};
+
+# Make sure chroot paths are nice;
+my @chroots = ();
+for my $root (@{$params->{'chroots'}}) {
+ if ($root =~ m#^(/[a-zA-Z0-9/.-]*)$#) {
+ push @chroots, $1;
+ } else {
+ die ("Chroot path $root is not nice.\n");
+ };
+};
+
+my @updates_security;
+my @updates_other;
+
+for my $root (@chroots) {
+ my $pre_command = ($root ne '/') ? "chroot $root " : '';
+ $pre_command = ($USE_SUDO ? 'sudo ' : '').$pre_command;
+
+ print STDERR "Running $APT update in $root\n" if $params->{'verbose'};
+ open (UPDATE, "$pre_command$APT update|") or die ("Cannot run $APT update in $root: $!\n");
+ my @ignore=<UPDATE>;
+ close UPDATE;
+ if ($CHILD_ERROR) { # program failed
+ die("$APT update returned with non-zero exit code in $root: ".($CHILD_ERROR / 256)."\n");
+ };
+
+ print STDERR "Running $APT --simulate upgrade | sort -u in $root\n" if $params->{'verbose'};
+ open (TODO, "$pre_command$APT --simulate upgrade | sort -u |") or die ("Cannot run $APT --simulate upgrade | sort -u in $root: $!\n");
+ my @lines=<TODO>;
+ close TODO;
+ if ($CHILD_ERROR) { # program failed
+ die("$APT --simulate upgrade | sort -u returned with non-zero exit code in $root: ".($CHILD_ERROR / 256)."\n");
+ };
+
+ print STDERR "Processing information for $root\n" if $params->{'verbose'};
+ for my $line (@lines) {
+ if ($line =~ m/^Inst\s+(\S+)\s+/) {
+ my $package = $1;
+ if ($line =~ m/^Inst\s+\S+\s+.*security/i) {
+ push @updates_security, $package.($root ne '/' ? "($root)" : '');
+ } else {
+ push @updates_other, $package.($root ne '/' ? "($root)" : '');
+ };
+ }
+ }
+};
+
+my $exit = $OK;
+
+my $updateinfo;
+if (@updates_security) {
+ $updateinfo .= 'Security updates ('.(scalar @updates_security).'): '.join(', ', @updates_security)."; ";
+ $exit = $CRITICAL;
+};
+if (@updates_other) {
+ $updateinfo .= 'Other Updates ('.(scalar @updates_other).'): '.join(', ', @updates_other)."; ";
+};
+$updateinfo = 'No updates available' unless defined $updateinfo;
+
+
+print $updateinfo,"\n";
+exit $exit;