From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Fri, 26 Nov 2010 12:48:19 +0000 (+0100)
Subject: generate JSON output
X-Git-Url: http://git.rot13.org/?p=snmp-json.git;a=commitdiff_plain;h=14227fdd3ead9aeab754d9cdfe1593f31ba5332c

generate JSON output
---

diff --git a/printer-multi.pl b/printer-multi.pl
index 6e18156..0fbb329 100755
--- a/printer-multi.pl
+++ b/printer-multi.pl
@@ -5,6 +5,9 @@ use strict;
 use SNMP::Multi;
 use Data::Dump qw(dump);
 
+use JSON;
+my $json;
+
 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 $collected;
+
 foreach my $host ( $resp->hosts ) {
 	my $status;
 
@@ -119,5 +124,15 @@ foreach my $host ( $resp->hosts ) {
 	}
 
 	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;