printer-callbacks.pl

   1 #!/usr/bin/perl
   2 use warnings;
   3 use strict;
   4
   5 use Net::SNMP;
   6 use Data::Dump qw(dump);
   7
   8 my $community = 'public';
   9 my @printers = qw(
  10 10.60.0.20
  11
  12 10.60.0.40
  13
  14 10.60.3.15
  15 10.60.3.17
  16 );
  17
  18 @printers = @ARGV if @ARGV;
  19
  20 my %vars = qw[
  21 info                            iso.3.6.1.2.1.1.1.0
  22 hostname                        iso.3.6.1.2.1.43.5.1.1.16.1
  23 serial                          iso.3.6.1.2.1.43.5.1.1.17.1
  24 pages                           iso.3.6.1.2.1.43.10.2.1.4.1
  25 @message                        iso.3.6.1.2.1.43.18.1.1.8
  26 @consumable_name        iso.3.6.1.2.1.43.11.1.1.6.1.1
  27 @consumable_max         iso.3.6.1.2.1.43.11.1.1.8.1
  28 @consumable_curr        iso.3.6.1.2.1.43.11.1.1.9.1
  29 @tray_dim_x                     iso.3.6.1.2.1.43.8.2.1.4.1
  30 @tray_dim_y                     iso.3.6.1.2.1.43.8.2.1.5.1
  31 @tray_max                       iso.3.6.1.2.1.43.8.2.1.9.1
  32 @tray_capacity          iso.3.6.1.2.1.43.8.2.1.10.1
  33 @tray_name                      iso.3.6.1.2.1.43.8.2.1.13.1
  34 ];
  35
  36 our $response;
  37
  38 sub columns_cb {
  39         my ( $session, $oid, $name ) = @_;
  40
  41         if ( ! defined $session->var_bind_list ) {
  42                 warn "ERROR: ",$session->hostname, " $oid $name ", $session->error, "\n";
  43                 warn dump($session);
  44                 return;
  45         }
  46
  47
  48         warn "# $oid $name var_bind_list ", dump( $session->var_bind_list );
  49         my $results = $session->var_bind_list;
  50         while ( my ($r_oid,$val) = each %$results ) {
  51                 if ( $name =~ m{^\@} ) {
  52                         my $offset = $1 - 1 if $r_oid =~ m{^\Q$oid\E\.?(\d+)};
  53                         $response->{ $session->hostname }->{ $name }->[ $offset ] = $results->{$r_oid};
  54                 } else {
  55                         $response->{ $session->hostname }->{ $name } = $results->{$r_oid};
  56                 }
  57         }
  58 }
  59
  60 foreach my $host ( @printers ) {
  61
  62         my ( $snmp, $err ) = Net::SNMP->session(
  63                 -hostname => $host,
  64                 -version => 1,
  65                 -community => $community,
  66                 -timeout => 2,
  67                 -retries => 0,
  68                 -nonblocking => 1,
  69         );
  70
  71         if ( ! $snmp ) {
  72                 warn "ERROR: $host $err\n";
  73                 next;
  74         }
  75
  76         while ( my ($name,$oid) = each %vars ) {
  77                 warn "# $name $oid\n";
  78                 $oid =~ s{^iso}{.1};
  79                 if ( $name =~ m/^\@/ ) {
  80                         $snmp->get_entries( -columns => [ $oid ], -callback => [ \&columns_cb, $oid, $name ] );
  81                 } else {
  82                         $snmp->get_request( -varbindlist => [ $oid ], -callback => [ \&columns_cb, $oid, $name ] );
  83                 }
  84         }
  85
  86 }
  87
  88 warn "# dispatch requests for ",dump(@printers);
  89 snmp_dispatcher;
  90
  91 print dump($response);