use SNMP::Multi;
use Data::Dump qw(dump);
+use JSON;
+my $json;
+
my $debug = $ENV{DEBUG} || 0;
my $community = 'public';
@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 $resp = $sm->execute() or die $sm->error();
+my $collected;
+
foreach my $host ( $resp->hosts ) {
my $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;