File check_zypper.pl of Package nagios-plugins-zypper

File check_zypper.pl of Package nagios-plugins-zypper (Revision d2429f7d1fc65738870e7e56df7b5941)

Currently displaying revision d2429f7d1fc65738870e7e56df7b5941, show latest

#!/usr/bin/perl -w
#
# check_zypper.pl - nagios plugin
#
# Copyright (C) 2008 Lars Vogdt,
#
# 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; version 2
# of the License.
#
# 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.
#
#
# Report bugs to:  nagiosplug-help@lists.sourceforge.net
#
# 14.04.2008 Version 0.1
# 15.04.2008 Version 0.2
# TOOD: "online_update --dry-run --no-sig-check --check" for SLES9
#

use strict;
use Getopt::Long;
use vars qw($PROGNAME);
use lib "/usr/lib/nagios/plugins"; # Pfad to util.pm 
use utils qw ($TIMEOUT %ERRORS &print_revision &support &usage);

sub print_help ();
sub print_usage ();
sub check();

$ENV{'PATH'}='/bin:/usr/bin:/sbin:/usr/sbin:';
$ENV{'BASH_ENV'}='';
$ENV{'ENV'}='';

my ($opt_V, $opt_h, $opt_H, $opt_w, $opt_c, $opt_t);
my $DEBUG = 0;

$PROGNAME="check_zypper";

$opt_H="";
$opt_w="recommended,optional";
$opt_c="security";
$opt_t="120";

my $zypper="/usr/bin/zypper";
my $zypperopt="--non-interactive --no-gpg-checks xml-updates";
my $release="10.3";
my $dist="openSUSE";
my $patchlevel=0;

open(RELEASE,"</etc/SuSE-release");
while (<RELEASE>){
	if (/^SUSE Linux Enterprise/){
	    $dist="SLE";
	} 
    if (/^VERSION/){
        ( $release ) = $_ =~ m/VERSION = (.*)/;
    }
	if (/^PATCHLEVEL/){
		( $patchlevel ) = $_ =~ m/PATCHLEVEL = (.*)/;
	}
}
close(RELEASE);

if ("$release" eq "10.2"){
    $zypperopt="--non-interactive --no-gpg-checks list-updates";
}

if ("$dist" eq "SLE"){
	if (("$release" eq "10") && ($patchlevel gt 0)){
		$zypperopt="--non-interactive list-updates";
	} else {
		print "UNKNOWN - SLE $release is currently not supported\n";
		exit $ERRORS{"UNKNOWN"};
	}
}

Getopt::Long::Configure('bundling');
GetOptions(
        "V"   => \$opt_V, "version"     => \$opt_V,
        "h"   => \$opt_h, "help"        => \$opt_h,
        "H=s" => \$opt_H, "hostname"	=> \$opt_H,
        "w=s" => \$opt_w, "warning=s"   => \$opt_w,
        "c=s" => \$opt_c, "critical=s"  => \$opt_c,
        "t=i" => \$opt_t, "timeout=i"   => \$opt_t);

if ($opt_t) {
        $TIMEOUT=$opt_t;
}

# Just in case of problems, let's not hang Nagios
$SIG{'ALRM'} = sub {
        print "UNKNOWN - Plugin timed out\n";
        exit $ERRORS{"UNKNOWN"};
};
alarm($TIMEOUT);

if ($opt_V) {
	print_revision($PROGNAME,'$Revision: 0.2 $');
    exit $ERRORS{'OK'};
}

if ($opt_h) {
    print_help();
    exit $ERRORS{'OK'};
}

if (! $opt_H) {
	$opt_H=$ENV{'HOSTNAME'};
}

sub print_usage () {
	print "This plugin checks for software updates on systems that use\npackage management systems based on the libzypp library\nfound in openSUSE.\n\n";
	print "It checks for security, recommended and optional patches and also for optional package updates\n\n";
	print "You can define the status by patch category. Use a commata to list more than one category to a state.\n\n";
	print "Usage:\n";
    print "  $PROGNAME [-w <category>] [-c <category>]\n";
	print "  $PROGNAME [-h | --help]\n";
	print "  $PROGNAME [-V | --version]\n";
	print "\n\nOptions:\n";
    print "  -w, --warning\n";
	print "      A patch with this category result in warning status.\n"; 
	print "      Default: $opt_w\n";
	print "  -c, --critical\n";
	print "      A patch with this category result in critical status.\n";
	print "      Default: $opt_c\n";
	print "  -t, --timeout\n";
	print "      Just in case of problems, let's not hang Nagios and define a timeout.\n";
	print "      Default value is: $opt_t seconds\n";
    print "  -h, --help\n";
    print "      Print detailed help screen\n";
    print "  -V, --version\n";
    print "      Print version information\n\n";
}

sub print_help () {
    print "Copyright (c) Lars Vogdt\n\n";
    print_usage();
    print "\n";
    print "  <help>  This output\n";
    print "\n";
    support();
}

check();

sub check_errorcode($){
	my $status=shift || "";
	return "CRITICAL" if ("$opt_c" =~ "$status");
	return "WARNING"  if ("$opt_w" =~ "$status");
	return "OK";
}

sub check(){
    my ($status,$ret_str,$error);
    my $secstr="";
    my $recstr="";
    my $optstr="";
    my $pacstr="";
    my $seccount=0;
    my $reccount=0;
    my $optcount=0;
    my $paccount=0;
    my $update_avail=0;
    $error="UNKNOWN";
    $ret_str="$error - no package updates available\n";
    if ( -x "$zypper" ){
        if (open (FH, "$zypper $zypperopt 2>/dev/null |")) {
            while(<FH>){
                chomp; 
                print "LINE: $_\n" if ($DEBUG);
                if (( "$release" eq "10.2" ) || ("$dist" eq "SLE")){
                    $optcount++ if (/\| optional \| Needed/);
                    $reccount++ if (/\| recommended \| Needed/);
                    $seccount++ if (/\| security \| Needed/);
                } else {
                    if (/<update /){ 
					    if (/kind="patch"/){	# line contains patch
						    $seccount++ if (/category="security"/);
						    $reccount++ if (/category="recommended"/);
						    $optcount++ if (/category="optional"/);
					    }	
                        $paccount++ if (/kind="package"/);
                    }
                }
            }
            if ($DEBUG){
                print STDERR "Packages    (paccount): $paccount\n";
                print STDERR "Optional    (optcount): $optcount\n";
                print STDERR "Recommended (reccount): $reccount\n";
                print STDERR "Security    (seccount): $seccount\n";
            }
            if ("$paccount" ne "0"){
                $update_avail=1;
				$error="OK";
				$pacstr="$paccount package updates;";
			}
			if ("$optcount" ne "0"){
                $update_avail=1;
				$error=check_errorcode("optional");
				$optstr="$optcount optinal updates;";
			}
			if ("$reccount" ne "0"){
                $update_avail=1;
				$error=check_errorcode("recommended");
				$recstr="$reccount recommended updates;";
			}
			if ("$seccount" ne "0"){
                $update_avail=1;
				$error=check_errorcode("security");
				$secstr="$seccount security updates;";
			}
            if ( $update_avail ){
	    		$ret_str="$error : $secstr $recstr $optstr $pacstr\n";
            } else {
                $error="OK";
                $ret_str="OK: no updates available\n";
            }
		}
		close(FH);
	} else {
		$ret_str="UNKNOWN - could not execute /usr/bin/zypper\n";
		$error="UNKNOWN";
	}
    print "Updates $ret_str";
	exit $ERRORS{"$error"};
}