From 55e6f3056ce6fef2dc321f3995623f33693df9ef Mon Sep 17 00:00:00 2001
From: Peter Palfrader <peter@palfrader.org>
Date: Fri, 2 Sep 2005 00:31:40 +0000
Subject: Add 3 more

git-svn-id: svn+ssh://asteria.noreply.org/svn/weaselutils/trunk@4 bc3d92e2-beff-0310-a7cd-cc87d7ac0ede
---
 nagios-check-apt-updates | 150 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 150 insertions(+)
 create mode 100755 nagios-check-apt-updates

(limited to 'nagios-check-apt-updates')

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;
-- 
cgit v1.2.3