projects
/
snmp-json.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
757066a
)
generate JSON output
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Fri, 26 Nov 2010 12:48:19 +0000
(13:48 +0100)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Fri, 26 Nov 2010 12:48:19 +0000
(13:48 +0100)
printer-multi.pl
patch
|
blob
|
history
diff --git
a/printer-multi.pl
b/printer-multi.pl
index
6e18156
..
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';
@@
-72,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;
@@
-119,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;