generate JSON output

[snmp-json.git] / printer-multi.pl

diff --git a/printer-multi.pl b/printer-multi.pl
index 35ad6bc..0fbb329 100755 (executable)
--- a/printer-multi.pl
+++ b/printer-multi.pl
@@ -5,6 +5,9 @@ use strict;
 use SNMP::Multi;
 use Data::Dump qw(dump);
 
 use SNMP::Multi;
 use Data::Dump qw(dump);
 

+use JSON;
+my $json;
+

 my $debug = $ENV{DEBUG} || 0; 
 
 my $community = 'public';
 my $debug = $ENV{DEBUG} || 0; 
 
 my $community = 'public';


@@ -40,6 +43,11 @@ pages                                iso.3.6.1.2.1.43.10.2.1.4.1
 @consumable_name       iso.3.6.1.2.1.43.11.1.1.6.1
 @consumable_max                iso.3.6.1.2.1.43.11.1.1.8.1
 @consumable_curr       iso.3.6.1.2.1.43.11.1.1.9.1
 @consumable_name       iso.3.6.1.2.1.43.11.1.1.6.1
 @consumable_max                iso.3.6.1.2.1.43.11.1.1.8.1
 @consumable_curr       iso.3.6.1.2.1.43.11.1.1.9.1

+@tray_max                      iso.3.6.1.2.1.43.8.2.1.9.1
+@tray_capacity         iso.3.6.1.2.1.43.8.2.1.10.1
+@tray_name                     iso.3.6.1.2.1.43.8.2.1.13.1
+@tray_dim_x                    iso.3.6.1.2.1.43.8.2.1.4.1
+@tray_dim_y                    iso.3.6.1.2.1.43.8.2.1.5.1

 ];
 
 my $oid2name;
 ];
 
 my $oid2name;


@@ -67,6 +75,8 @@ warn "# working on: ", join(' ', @printers),$/;
 
 my $resp = $sm->execute() or die $sm->error();
 
 
 my $resp = $sm->execute() or die $sm->error();
 

+my $collected;
+

 foreach my $host ( $resp->hosts ) {
        my $status;
 
 foreach my $host ( $resp->hosts ) {
        my $status;
 


@@ -114,5 +124,15 @@ foreach my $host ( $resp->hosts ) {
        }
 
        print "$host = ",dump($status);
        }
 
        print "$host = ",dump($status);

+       $collected->{$host} = $status;

 }
 
 }
 

+# generate json
+my $json;
+foreach my $ip ( sort keys %$collected ) {
+       my $status = $collected->{$ip};
+       $status->{ip} = $ip;    
+       push @$json, $status;
+}
+open(my $fh, '>', 'printer.json');
+print $fh encode_json $json;