note about oid_lex_sort
[snmp-json.git] / 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
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         # oid_lex_sort would be wonderfull to use here, but it doesn't work
51         foreach my $r_oid ( sort {
52                         my ($af,$bf) = ($a,$b);
53                         $af =~ s{\.(\d+)$}{sprintf("%03d",$1)}eg;
54                         $bf =~ s{\.(\d+)$}{sprintf("%03d",$1)}eg;
55                         $af cmp $bf
56         } keys %$results ) {
57                 my $var = $results->{$r_oid};
58                 if ( $name =~ m{^\@} ) {
59                         my $no_prefix = $name;
60                         $no_prefix =~ s{^\@}{};
61                         push @{ $response->{ $session->hostname }->{ $no_prefix } }, $var;
62                 } else {
63                         $response->{ $session->hostname }->{ $name } = $var;
64                 }
65         }
66 }
67
68 foreach my $host ( @printers ) {
69
70         my ( $snmp, $err ) = Net::SNMP->session(
71                 -hostname => $host,
72                 -version => 1,
73                 -community => $community,
74                 -timeout => 2,
75                 -retries => 0,
76                 -nonblocking => 1,
77         );
78
79         if ( ! $snmp ) {
80                 warn "ERROR: $host $err\n";
81                 next;
82         }
83
84         while ( my ($name,$oid) = each %vars ) {
85                 warn "# $name $oid\n";
86                 $oid =~ s{^iso}{.1};
87                 if ( $name =~ m/^\@/ ) {
88                         $snmp->get_entries( -columns => [ $oid ], -callback => [ \&columns_cb, $oid, $name ] );
89                 } else {
90                         $snmp->get_request( -varbindlist => [ $oid ], -callback => [ \&columns_cb, $oid, $name ] );
91                 }
92         }
93
94 }
95
96 warn "# dispatch requests for ",dump(@printers);
97 snmp_dispatcher;
98
99 foreach my $ip ( keys %$response ) {
100
101         my $status = $response->{$ip};
102         foreach my $group ( grep { /\w+\.\w+/ } keys %$status ) {
103                 my ( $prefix,$name ) = split(/\./,$group,2);
104                 foreach my $i ( 0 .. $#{ $status->{$group} } ) {
105                         $status->{$prefix}->[$i]->{$name} = $status->{$group}->[$i];
106                 }
107                 delete $status->{$group};
108         }
109
110         print "$ip ",dump($status);
111 }