File check_zypper.pl of Package nagios-plugins-zypper

Overview Repositories Revisions Requests Users Attributes Meta

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

Currently displaying revision a809049d17d66ae96f6bf1f25b6eaaab , 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
# 02.09.2008 Version 0.3
# 04.09.2008 Version 0.4
# 10.09.2008 Version 0.5
#
# 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 ();

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

$PROGNAME="check_zypper";
my $VERSION=0.5;
my $DEBUG = 0;

my $zypper="/usr/bin/zypper";
my $zypperopt="--non-interactive --no-gpg-checks xml-updates";
my $sudo="/usr/bin/sudo";
my $use_sudo="";
my $releasefile="/etc/SuSE-release";
my $release="11.0";
my $dist="openSUSE";
my $patchlevel=0;
my ($opt_V, $opt_h, $opt_H, $opt_w, $opt_c, $opt_r, $opt_s, $opt_t, $opt_v);

$opt_H="";
$opt_w="recommended,optional";
$opt_c="security";
$opt_r="$releasefile";
$opt_t="120";
$opt_v=0;
$opt_s=0;

#######################################################################
# Functions
#######################################################################

sub get_distribution($){
	my $file=shift || "$releasefile";
	my $release="11.0";
	my $dist="openSUSE";
	my $patchlevel=0;
	open(RELEASE,"<$file") || warn ("Could not open $file\n");
	while (<RELEASE>){
    	if (/^SUSE Linux Enterprise/){
	        $dist="SLE";
	    } 
	    if (/^VERSION/){
	        ( $release ) = $_ =~ m/VERSION = (.*)/;
	    }
	    if (/^PATCHLEVEL/){
	        ( $patchlevel ) = $_ =~ m/PATCHLEVEL = (.*)/;
	    }
	}
	close(RELEASE);
	return($dist,$release,$patchlevel);
}

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 "If you like to know the names of available patches and packages, use the \"-v\" option.\n\n";
    print "Usage:\n";
    print "  $PROGNAME [-w <category>] [-c <category>] [-t <timeout>] [-v]\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 "  -r, --releasefile\n";
    print "      Use the given file to get informations about the distribution.\n";
    print "      Default: $releasefile\n";
    print "  -s, --use_sudo\n";
    print "      Zypper needs root privileges on some distributions.\n";
    print "      You can enable the script to use $sudo to start zypper.\n";
    print "      But don't forget to enable nopasswd sudo for the user starting $PROGNAME\n";
    print "      Via a line like this on in /etc/sudoers:\n";
    print "      nagios ALL = NOPASSWD: /usr/bin/zypper\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 "  -v, --verbose_output\n";
    print "      Print more information (useful only with Nagios v3.x).\n";
    print "\n";
    print "  -h, --help\n";
    print "      Print detailed help screen\n";
    print "  -V, --version\n";
    print "      Print version information\n";
}

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

sub check_zypper(){
	if ( -x $zypper ){
		return (system("$use_sudo $zypper sl 2>/dev/null 1>&2"));
	} 
	return 1;
}

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;
    my %packagelist;
    $error="UNKNOWN";
    $ret_str="$error - Unknown state\n";
    if ( -x "$zypper" ){
	$use_sudo="$sudo" if ($opt_s);
        if (open (FH, "$use_sudo $zypper $zypperopt |")) {
            while(<FH>){
                chomp; 
                my $category="unknown";
                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
                            if (/category="security"/){
				$seccount++;
                                $category="security"
                            }
                            if (/category="recommended"/){
                                $reccount++;
                                $category="recommended";
                            }
                            if (/category="optional"/){
                                $optcount++;
                                $category="optional";
                            }
                            my ($name)=$_=~/name="(.*?)"/;
                            $packagelist{$name}="$category";
                        } elsif (/kind="package"/) {
                            $paccount++;
                            my ($name)=$_=~/name="(.*?)"/;
                            $packagelist{'package'}.="$name ";
                        }	
                    }
                }
            }
            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";
                use Data::Dumper;
                print STDERR Data::Dumper->Dump([\%packagelist]);
            }
            if ("$paccount" ne "0"){
                $update_avail=1;
                $error="OK";
                $pacstr="$paccount package update(s);";
            }
            if ("$optcount" ne "0"){
                $update_avail=1;
                $error=check_errorcode("optional");
                $optstr="$optcount optinal update(s);";
            }
            if ("$reccount" ne "0"){
                $update_avail=1;
                $error=check_errorcode("recommended");
                $recstr="$reccount recommended update(s);";
            }
            if ("$seccount" ne "0"){
                $update_avail=1;
                $error=check_errorcode("security");
                $secstr="$seccount security update(s);";
            }
            if ( $update_avail ){
                $ret_str="$error : $secstr $recstr $optstr $pacstr\n";
                if ( $opt_v ){
                    $ret_str.="Patches:\n" if ($error ne "OK");
                    foreach my $cat ('security','recommended','optional'){
                        foreach my $key (sort(keys %packagelist)){
                           if ( $packagelist{$key} eq "$cat"){
                               $ret_str.="$cat: ".$key."\n";
                           }
                        }
                    }
                    if ( "paccount" ne "0" ){
                        $ret_str.="Packages:\n".$packagelist{'package'}."\n" if $packagelist{'package'};
                    }
                }
            } else {
                $error="OK";
                $ret_str="OK: no updates available\n";
            }
        }
        close(FH);
    } else {
        $ret_str="UNKNOWN - could not execute $use_sudo $zypper $zypperopt\n";
        $error="UNKNOWN";
    }
    print "Updates $ret_str";
    exit $ERRORS{"$error"};
}

#######################################################################
# Main
#######################################################################

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,
           "r=s" => \$opt_r, "releasefile=s"  => \$opt_r,
           "t=i" => \$opt_t, "timeout=i"      => \$opt_t,
           "v"   => \$opt_v, "verbose_output" => \$opt_v,
           "s"   => \$opt_s, "use_sudo"       => \$opt_s);

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,"$VERSION");
    exit $ERRORS{'OK'};
}

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

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

($dist,$release,$patchlevel)=get_distribution("$opt_r");

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"};
    }
}

if ( check_zypper() ){
	print "UNKNOWN - system doesn't allow to execute zypper\n";
    exit $ERRORS{"UNKNOWN"};
} else {
	check();
}

Places

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

Places