Remove "contrib" plugins

These days, sites such as "Nagios Exchange" are a much better place for
publishing plugins not maintained by the Plugins Development Team.

1 files changed, 0 insertions, 605 deletions

diff --git a/contrib/check_snmp_printer.pl b/contrib/check_snmp_printer.pl
deleted file mode 100755
index cc7943b..0000000
--- a/contrib/check_snmp_printer.pl
+++ /dev/null
@@ -1,605 +0,0 @@
-#!/usr/local/bin/perl -w
-
-# check_snmp_printer - check for printer status via snmp
-#  Supports both standard PRINT-MIB (RFC-1759) and HP Enterprise print-mib
-#  that is supported by some of the older JetDirect interfaces
-
-# Acknowledgements:
-# the JetDirect code is taken from check_hpjd.c by Ethan Galstad
-#   
-#   The idea for the plugin (as well as some code) were taken from Jim
-#   Trocki's pinter alert script in his "mon" utility, found at
-#   http://www.kernel.org/software/mon
-#
-
-# Notes:
-# 'JetDirect' is copyrighted by Hewlett-Packard
-#
-#
-# License Information:
-# 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., 675 Mass Ave, Cambridge, MA 02139, USA.
-#
-############################################################################
-#
-# TODO: Query HOST-RESOURCE MIB for a quick status
-#
-# hrPrinterStatus = .1.3.6.1.2.1.25.3.5.1;
-# hrPrinterDetectedErrorState = .1.3.6.1.2.1.25.3.5.1.2
-#
-# hrPrinterStatus OBJECT-TYPE
-#    SYNTAX     INTEGER {
-#                   other(1),
-#                   unknown(2),
-#                   idle(3),
-#                   printing(4),
-#                   warmup(5)
-#               }
-#
-# hrPrinterDetectedErrorState OBJECT-TYPE
-#    SYNTAX     OCTET STRING
-#    MAX-ACCESS read-only
-#    STATUS     current
-#    DESCRIPTION
-#        "This object represents any error conditions detected
-#        by the printer.  The error conditions are encoded as
-#        bits in an octet string, with the following
-#        definitions:
-#
-#             Condition         Bit #
-#
-#             lowPaper              0
-#
-#             noPaper               1
-#             lowToner              2
-#             noToner               3
-#             doorOpen              4
-#             jammed                5
-#             offline               6
-#             serviceRequested      7
-#             inputTrayMissing      8
-#             outputTrayMissing     9
-#             markerSupplyMissing  10
-#             outputNearFull       11
-#             outputFull           12
-#             inputTrayEmpty       13
-#             overduePreventMaint  14
-#
-#  
-#
-use strict;
-use Getopt::Long;
-use vars qw($opt_V $opt_h $opt_H $opt_P $opt_t $opt_d $session $error $answer $key
-   $response $PROGNAME $port $hostname );
-use lib  "utils.pm";
-use utils qw(%ERRORS &print_revision &support &usage );
-use Net::SNMP;
-
-sub print_help ();
-sub print_usage ();
-
-$ENV{'PATH'}='';
-$ENV{'BASH_ENV'}=''; 
-$ENV{'ENV'}='';
-
-# defaults 
-my $ptype = 1;                                                  # to standard RFC printer type
-my $state = $ERRORS{'UNKNOWN'};
-my $community = "public";
-my $snmp_version = 1;
-my $port = 161;
-
-Getopt::Long::Configure('bundling');
-GetOptions
-        ("d"   => \$opt_d, "debug"                      => \$opt_d,
-         "V"   => \$opt_V, "version"            => \$opt_V,
-         "P=s" => \$opt_P, "Printer=s"      => \$opt_P,    # printer type - HP or RFC
-         "v=i" => \$snmp_version, "snmp_version=i"  => \$snmp_version,
-         "p=i" => \$port, "port=i" => \$port,
-         "C=s" => \$community,"community=s" => \$community,
-         "h"   => \$opt_h, "help"               => \$opt_h,
-         "H=s" => \$opt_H, "hostname=s"         => \$opt_H);
-
-
-
-$PROGNAME = "check_snmp_printer";
-
-if ($opt_V) {
-        print_revision($PROGNAME,'$Revision: 795 $');
-        exit $ERRORS{'OK'};
-}
-
-if ($opt_h) {print_help(); exit $ERRORS{'OK'};}
-
-unless (defined $opt_H) {
-        print "No target hostname specified\n";
-        exit $ERRORS{"UNKNOWN"};
-}
-$hostname = $opt_H;
-if (! utils::is_hostname($hostname)){
-        usage(" $hostname did not match pattern\n");
-        exit $ERRORS{"UNKNOWN"};
-}
-
-if (defined $opt_P) {
-        if ($opt_P eq "HP" ) {
-                $ptype = 2;
-        }elsif ($opt_P eq "RFC" ) {
-                $ptype = 1;
-        }else{
-                print "Only \"HP\" and \"RFC\" are supported as printer options at this time.\n";
-                exit $ERRORS{"UNKNOWN"};
-        }
-}
-
-
-if ( $snmp_version =~ /[12]/ ) {
-                
-        ($session, $error) = Net::SNMP->session(
-              -hostname  => $hostname,
-              -community => $community,
-              -port      => $port,
-                  -version      => $snmp_version
-                   );
-
-        if (!defined($session)) {
-              $state='UNKNOWN';
-              $answer=$error;
-              print ("$state: no session - $answer\n");
-              exit $ERRORS{$state};
-        }
-
-        print "Opened session|" if (defined ($opt_d));
-                
-}elsif ( $snmp_version =~ /3/ ) {
-        $state='UNKNOWN';
-        print ("$state: No support for SNMP v3 yet\n");
-        exit $ERRORS{$state};
-}else{
-        $state='UNKNOWN';
-        print ("$state: No support for SNMP v$snmp_version yet\n");
-        exit $ERRORS{$state};
-}
-
-
-
-
-
-
-### main logic
-
-if ( $ptype == 1 ) {   # STD MIB
-        print "STD-MIB|" if (defined ($opt_d));
-
-        my %snmp_response;
-        my $snmp_index;
-        my $col_oid;
-        my %std_mib_inst_count ;
-        my %std_mib_instances;
-        my $display;
-        my $inst;
-        my $group;
-        
-
-        #### RFC1759 MIB OIDS
-
-        # sub-unit status - textual convention
-        my $subunit_status;   # integer from 0-126                                              
-                                                
-
-        # column oid - not instances
-        my %std_mib = (
-                std_mib_input_status =>                                 ".1.3.6.1.2.1.43.8.2.1.11",  # 2 element index
-                std_mib_input_name   =>                                 ".1.3.6.1.2.1.43.8.2.1.13",
-                std_mib_output_remaining_capacity =>    ".1.3.6.1.2.1.43.9.2.1.5", 
-                std_mib_output_status =>                                ".1.3.6.1.2.1.43.9.2.1.6",
-                std_mib_marker_tech =>                                  ".1.3.6.1.2.1.43.10.2.1.2",
-                std_mib_marker_counter_unit =>  ".1.3.6.1.2.1.43.10.2.1.3",
-                std_mib_marker_life_count =>            ".1.3.6.1.2.1.43.10.2.1.4",
-                std_mib_marker_status =>                                ".1.3.6.1.2.1.43.10.2.1.15",
-                std_mib_supplies_type =>                                ".1.3.6.1.2.1.43.11.1.1.5",
-                std_mib_supplies_level =>                               ".1.3.6.1.2.1.43.11.1.1.9",
-                std_mib_media_path_type =>                              ".1.3.6.1.2.1.43.13.4.1.9",
-                std_mib_media_path_status =>                    ".1.3.6.1.2.1.43.13.4.1.11",
-
-                std_mib_status_display =>                               ".1.3.6.1.2.1.43.16.5.1.2",  # 2 element index
-
-                std_mib_alert_sev_level =>                              ".1.3.6.1.2.1.43.18.1.1.2",
-                std_mib_alert_grp =>                                    ".1.3.6.1.2.1.43.18.1.1.4",
-                std_mib_alert_location =>                               ".1.3.6.1.2.1.43.18.1.1.5",
-
-        );
-
-        my %std_mib_marker_tech = (
-                                        1 => "other",
-                                        2 => "unknown",
-                                        3 => "electrophotographicLED",
-                                        4 => "electrophotographicLaser",
-                                        5 => "electrophotographicOther",
-                                        6 => "impactMovingHeadDotMatrix9pin",
-                                        7 => "impactMovingHeadDotMatrix24pin",
-                                        8 => "impactMovingHeadDotMatrixOther",
-                                        9 => "impactMovingHeadFullyFormed",
-                                        10 => "impactBand",
-                                        11 => "impactOther",
-                                        12 => "inkjectAqueous",
-                                        13 => "inkjetSolid",
-                                        14 => "inkjetOther",
-                                        15 => "pen",
-                                        16 => "thermalTransfer",
-                                        17 => "thermalSensitive",
-                                        18 => "thermalDiffusion",
-                                        19 => "thermalOther",
-                                        20 => "electroerosion",
-                                        21 => "electrostatic",
-                                        22 => "photographicMicrofiche",
-                                        23 => "photographicImagesetter",
-                                        24 => "photographicOther",
-                                        25 => "ionDeposition",
-                                        26 => "eBeam",
-                                        27 => "typesetter",
-        );
-        
-        my %std_mib_marker_counter_units = (
-                                        3 => "tenThousandthsOfInches",
-                                        4 => "micrometers",
-                                        5 => "characters",
-                                        6 => "lines",
-                                        7 => "impressions",
-                                        8 => "sheets",
-                                        9 => "dotRow",
-                                        11 => "hours",
-                                        16 => "feet",
-                                        17 => "meters",
-        );
-
-        my %std_mib_alert_groups = (
-                1 => "unspecifiedOther",
-                3 => "printerStorageMemory",  # hostResourcesMIBStorageTable
-                4 => "internalDevice",                  # hostResourcesMIBDeviceTable
-                5 => "generalPrinter",
-                6 => "cover",
-                7 => "localization",
-                8 => "input",
-                9 => "output",
-                10 => "marker",
-                11 => "markerSupplies",
-                12 => "markerColorant",
-                13 => "mediaPath",
-                14 => "connectionChannel",
-                15 => "interpreter",
-                16 => "consoleDisplayBuffer",
-                17 => "consoleLights",
-        );
-
-                
-        my %std_mib_prt_alert_code = (
-                1 => "other",                      # ok if on power save
-                2 => "unknown",
-        # -- codes common to serveral groups
-                3 => "coverOpen",
-                4 => "coverClosed",
-                5 => "interlockOpen",
-                6 => "interlockClosed",
-                7 => "configurationChange",
-                8 => "jam",                        # critical
-                # -- general Printer group
-                501 => "doorOpen",
-                502 => "doorClosed",
-                503 => "powerUp",
-                504 => "powerDown",
-                # -- Input Group
-                801 => "inputMediaTrayMissing",
-                802 => "inputMediaSizeChange",
-                803 => "inputMediaWeightChange",
-                804 => "inputMediaTypeChange",
-                805 => "inputMediaColorChange",
-                806 => "inputMediaFormPartsChange",
-                807 => "inputMediaSupplyLow",
-                808 => "inputMediaSupplyEmpty",
-                # -- Output Group
-                901 => "outputMediaTrayMissing",
-                902 => "outputMediaTrayAlmostFull",
-                903 => "outputMediaTrayFull",
-                # -- Marker group
-                1001 => "markerFuserUnderTemperature",
-                1002 => "markerFuserOverTemperature",
-                # -- Marker Supplies group
-                1101 => "markerTonerEmpty",
-                1102 => "markerInkEmpty",
-                1103 => "markerPrintRibbonEmpty",
-                1104 => "markerTonerAlmostEmpty",
-                1105 => "markerInkAlmostEmpty",
-                1106 => "markerPrintRibbonAlmostEmpty",
-                1107 => "markerWasteTonerReceptacleAlmostFull",
-                1108 => "markerWasteInkReceptacleAlmostFull",
-                1109 => "markerWasteTonerReceptacleFull",
-                1110 => "markerWasteInkReceptacleFull",
-                1111 => "markerOpcLifeAlmostOver",
-                1112 => "markerOpcLifeOver",
-                1113 => "markerDeveloperAlmostEmpty",
-                1114 => "markerDeveloperEmpty",
-                # -- Media Path Device Group
-                1301 => "mediaPathMediaTrayMissing",
-                1302 => "mediaPathMediaTrayAlmostFull",
-                1303 => "mediaPathMediaTrayFull",
-                # -- interpreter Group  
-                1501 => "interpreterMemoryIncrease",
-                1502 => "interpreterMemoryDecrease",
-                1503 => "interpreterCartridgeAdded",
-                1504 => "interpreterCartridgeDeleted",
-                1505 => "interpreterResourceAdded",
-                1506 => "interpreterResourceDeleted",
-        );
-
-        ## Need multiple passes as oids are all part of tables  
-        foreach $col_oid (sort keys %std_mib ){ 
-
-                if ( !defined( $response = $session->get_table($std_mib{$col_oid}) ) ) {
-                        print "Error col_oid $col_oid|" if (defined ($opt_d));
-
-                        if (! ($col_oid =~ m/std_mib_alert/ ) ) {             # alerts don't have to exist all the time!
-                                $answer=$session->error;
-                                $session->close;
-                                $state = 'CRITICAL';
-                                print ("$state: $answer for $std_mib{$col_oid}\n");
-                                exit $ERRORS{$state};
-                        }
-                }
-                
-                print "NoError col_oid $col_oid|" if (defined ($opt_d));
-                
-                foreach $key (keys %{$response}) {
-                        $key =~ /.*\.(\d+)\.(\d+)$/;     # all oids have a two part index appended
-                        $snmp_index = $1 . "." . $2;   
-                        print "\n$key => $col_oid.$snmp_index  = $response->{$key} \n" if (defined ($opt_d));
-                        $snmp_response{$key} = $response->{$key} ;
-                        
-                        $std_mib_inst_count{$col_oid} += 1 ;   # count how many instances
-                        $std_mib_instances{$col_oid} .= $snmp_index .":" ;
-
-                }
-        
-        }
-
-        #foreach $key ( keys %std_mib_inst_count) {
-        #       print "$key = $std_mib_inst_count{$key} $std_mib_instances{$key}  \n";
-        #}
-        # get (total) "page count" - perfdata
-        #print "\n \n $std_mib_instances{'std_mib_marker_tech'} \n";    
-        # how many marker technologies are in use?
-        my ($pg, $pt, $pfd);
-        my @mark_tech = split(/:/, $std_mib_instances{'std_mib_marker_tech'});
-        foreach $inst (sort @mark_tech){
-                $pfd = $std_mib_marker_tech{$snmp_response{$std_mib{'std_mib_marker_tech'}."." .$inst}} ;
-                $pfd .= ",".$snmp_response{$std_mib{'std_mib_marker_life_count'}.".".$inst};
-                $pfd .= ",".$std_mib_marker_counter_units{$snmp_response{$std_mib{'std_mib_marker_counter_unit'}.".".$inst}};
-                $pfd .= ";"; #perf data separator for multiple marker tech
-
-
-                print "pfd = $pfd\n" if (defined ($opt_d));
-        };
-
-        # combine all lines of status display into one line
-        #$std_mib_instances{'std_mib_status_display'} = substr($std_mib_instances{'std_mib_status_display'}, 1);
-        my @display_index = split(/:/,  $std_mib_instances{'std_mib_status_display'} );
-        
-        foreach $inst ( sort @display_index) {
-                $display .= $snmp_response{$std_mib{'std_mib_status_display'} . "." . $inst} . " ";
-        }
-
-
-
-        # see if there are any alerts
-        if (defined ( $std_mib_inst_count{'std_mib_alert_sev_level'} )  ) {
-                
-                if ( ( lc($display) =~ /save/  || lc($display) =~ /warm/ ) &&   $std_mib_inst_count{'std_mib_alert_sev_level'} == 1 ) {
-                        $state='OK';
-                        $answer = "Printer ok - $display";
-                        print $answer . "|$pfd\n";
-                        exit $ERRORS{$state};
-                }
-                
-                # sometime during transitions from power save to warming there are 2 alerts
-                # if the 2nd alert is for something else it should get caught in the
-                # next call since warmup typically is much smaller than check time
-                # interval.
-                if (  lc($display) =~ /warm/  &&        $std_mib_inst_count{'std_mib_alert_sev_level'} == 2 )   {
-                        $state='OK';
-                        $answer = "$state: Printer - $display";
-                        print $answer . "|$pfd\n";
-                        exit $ERRORS{$state};
-                }
-
-                
-                # We have alerts and the display does not say power save or warming up
-                $std_mib_instances{'std_mib_alert_sev_level'} = substr($std_mib_instances{'std_mib_alert_sev_level'}, 1);
-                @display_index = split(/:/,     $std_mib_instances{'std_mib_alert_sev_level'} );
-                $answer = "Alert location(s): ";
-                
-                for $inst (@display_index) {
-                        $state = 'WARNING';
-                        if ( $snmp_response{$std_mib{'std_mib_alert_location'} . "." . $inst} < 1) {
-                                $answer .= "unknown location ";
-                        }else{
-                                $answer .= $std_mib_prt_alert_code{$snmp_response{$std_mib{'std_mib_alert_location'} . "." . $inst} } . " ";
-                        
-                                #print $std_mib_prt_alert_code{$snmp_response{$std_mib{'std_mib_alert_location'}. "." . $inst}} ;
-                        }
-                }
-
-                print "$state: $answer|$pfd\n";
-                exit $ERRORS{$state};
-                
-        }else{
-                $state='OK';
-                $answer = "$state: Printer ok - $display ";
-                print $answer . "|$pfd\n";
-                exit $ERRORS{$state};
-
-        }
-        
-        
-        
-
-}
-elsif( $ptype == 2 ) {  # HP MIB - JetDirect
-        
-        #### HP MIB OIDS - instance OIDs
-        my $HPJD_LINE_STATUS=                   ".1.3.6.1.4.1.11.2.3.9.1.1.2.1.0";
-        my $HPJD_PAPER_STATUS=                  ".1.3.6.1.4.1.11.2.3.9.1.1.2.2.0";
-        my $HPJD_INTERVENTION_REQUIRED= ".1.3.6.1.4.1.11.2.3.9.1.1.2.3.0";
-        my $HPJD_GD_PERIPHERAL_ERROR=   ".1.3.6.1.4.1.11.2.3.9.1.1.2.6.0";
-        my $HPJD_GD_PAPER_JAM=                  ".1.3.6.1.4.1.11.2.3.9.1.1.2.8.0";
-        my $HPJD_GD_PAPER_OUT=                  ".1.3.6.1.4.1.11.2.3.9.1.1.2.9.0";
-        my $HPJD_GD_TONER_LOW=                  ".1.3.6.1.4.1.11.2.3.9.1.1.2.10.0";
-        my $HPJD_GD_PAGE_PUNT=                  ".1.3.6.1.4.1.11.2.3.9.1.1.2.11.0";
-        my $HPJD_GD_MEMORY_OUT=                 ".1.3.6.1.4.1.11.2.3.9.1.1.2.12.0";
-        my $HPJD_GD_DOOR_OPEN=                  ".1.3.6.1.4.1.11.2.3.9.1.1.2.17.0";
-        my $HPJD_GD_PAPER_OUTPUT=               ".1.3.6.1.4.1.11.2.3.9.1.1.2.19.0";
-        my $HPJD_GD_STATUS_DISPLAY=             ".1.3.6.1.4.1.11.2.3.9.1.1.3.0";
-        #define ONLINE          0
-        #define OFFLINE         1
-
-        my @hp_oids = ( $HPJD_LINE_STATUS,$HPJD_PAPER_STATUS,$HPJD_INTERVENTION_REQUIRED,$HPJD_GD_PERIPHERAL_ERROR,
-                                $HPJD_GD_PAPER_JAM,$HPJD_GD_PAPER_OUT,$HPJD_GD_TONER_LOW,$HPJD_GD_PAGE_PUNT,$HPJD_GD_MEMORY_OUT,
-                                $HPJD_GD_DOOR_OPEN,$HPJD_GD_PAPER_OUTPUT,$HPJD_GD_STATUS_DISPLAY);
-
-
-
-        
-        $state = $ERRORS{'OK'};
-
-        if (!defined($response = $session->get_request(@hp_oids))) {
-                $answer=$session->error;
-                $session->close;
-                $state = 'CRITICAL';
-                print ("$state: $answer \n");
-                exit $ERRORS{$state};
-        }
-
-        # cycle thru the responses and set the appropriate state
-        
-        if($response->{$HPJD_GD_PAPER_JAM} ) {
-                $state='WARNING';
-                $answer = "Paper Jam";
-        }
-        elsif($response->{$HPJD_GD_PAPER_OUT} ) {
-                $state='WARNING';
-                $answer = "Out of Paper";
-        }
-        elsif($response->{$HPJD_LINE_STATUS} ) {
-                if ($response->{$HPJD_LINE_STATUS} ne "POWERSAVE ON" ) {
-                        $state='WARNING';
-                        $answer = "Printer Offline";
-                }
-        }
-        elsif($response->{$HPJD_GD_PERIPHERAL_ERROR} ) {
-                $state='WARNING';
-                $answer = "Peripheral Error";
-        }
-        elsif($response->{$HPJD_INTERVENTION_REQUIRED} ) {
-                $state='WARNING';
-                $answer = "Intervention Required";
-        }
-        elsif($response->{$HPJD_GD_TONER_LOW} ) {
-                $state='WARNING';
-                $answer = "Toner Low";
-        }
-        elsif($response->{$HPJD_GD_MEMORY_OUT} ) {
-                $state='WARNING';
-                $answer = "Insufficient Memory";
-        }
-        elsif($response->{$HPJD_GD_DOOR_OPEN} ) {
-                $state='WARNING';
-                $answer = "Insufficient Memory";
-        }
-        elsif($response->{$HPJD_GD_PAPER_OUTPUT} ) {
-                $state='WARNING';
-                $answer = "OutPut Tray is Full";
-        }
-        elsif($response->{$HPJD_GD_PAGE_PUNT} ) {
-                $state='WARNING';
-                $answer = "Data too slow for Engine";
-        }
-        elsif($response->{$HPJD_PAPER_STATUS} ) {
-                $state='WARNING';
-                $answer = "Unknown Paper Error";
-        }
-        else            # add code to parse STATUS DISPLAY here
-        {
-                $state='OK';
-                $answer = "Printer ok - $response->{$HPJD_GD_STATUS_DISPLAY} ";
-        }
-
-        # print and exit
-
-        print "$state: $answer \n";
-        exit $ERRORS{$state};
-
-
-}
-else{  # 3rd printer type - not yet supported
-        
-        print "Printer type $opt_P has not been implemented\n";
-        $state='UNKNOWN';
-        exit $ERRORS{$state};
-
-}
-
-
-
-#### subroutines
-sub unit_status {
-        my $stat = shift;
-        
-
-}
-
-sub print_usage () {
-        print "Usage: $PROGNAME -H <host> [-C community] [-P HP or RFC] [-p port]  [-v snmp_version] [-h help]  [-V version]\n";
-}
-
-sub print_help () {
-        print_revision($PROGNAME,'$Revision: 795 $');
-        print "Copyright (c) 2002 Subhendu Ghosh/Ethan Galstad.
-
-This plugin reports the status of an network printer with an SNMP management
-module.
-
-";
-        print_usage();
-        print "
--H, --hostname=HOST
-   Name or IP address of host to check
--C --community
-   snmp community string (default: public)
--P --Printer
-   supported values are \"HP\" for Jetdirect printers and
-   \"RFC\" for RFC 1759 Print MIB based implementations (default: RFC)
--p --port
-   Port where snmp agent is listening (default: 161)
--v --snmp_version
-   SNMP version to use (default: version 1)
--h --help
-   This screen
--V --version
-   Plugin version
-
-";
-        support();
-}
-
-
-