6 use Data::Dump qw(dump);
8 my $community = 'public';
18 @printers = @ARGV if @ARGV;
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
39 my ( $session, $oid, $name ) = @_;
41 if ( ! defined $session->var_bind_list ) {
42 warn "ERROR: ",$session->hostname, " $oid $name ", $session->error, "\n";
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;
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;
63 $response->{ $session->hostname }->{ $name } = $var;
68 foreach my $host ( @printers ) {
70 my ( $snmp, $err ) = Net::SNMP->session(
73 -community => $community,
80 warn "ERROR: $host $err\n";
84 while ( my ($name,$oid) = each %vars ) {
85 warn "# $name $oid\n";
87 if ( $name =~ m/^\@/ ) {
88 $snmp->get_entries( -columns => [ $oid ], -callback => [ \&columns_cb, $oid, $name ] );
90 $snmp->get_request( -varbindlist => [ $oid ], -callback => [ \&columns_cb, $oid, $name ] );
96 warn "# dispatch requests for ",dump(@printers);
99 foreach my $ip ( keys %$response ) {
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];
107 delete $status->{$group};
110 print "$ip ",dump($status);