1 files changed, 605 insertions, 0 deletions

diff --git a/contrib/check_snmp_printer.pl b/contrib/check_snmp_printer.pl
new file mode 100755
index 0000000..9fc5fed
--- /dev/null
+++ b/contrib/check_snmp_printer.pl
@@ -0,0 +1,605 @@
+#!/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$');
+        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$');
+        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();
+}
+
+
+