From 31896bd441d168239897d3d9836f838c77149e7b Mon Sep 17 00:00:00 2001
From: Daniel Berteaud <daniel@firewall-services.com>
Date: Fri, 12 Apr 2013 19:47:58 +0200
Subject: [PATCH] Don't prettify JSON output (save bandwidth)

---
 scripts/disco_backuppc_sudo | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/scripts/disco_backuppc_sudo b/scripts/disco_backuppc_sudo
index c3fceb2..720e420 100644
--- a/scripts/disco_backuppc_sudo
+++ b/scripts/disco_backuppc_sudo
@@ -17,18 +17,18 @@ my $bpc = BackupPC::Lib->new();
 my $hosts = $bpc->HostInfoRead();
 my $mainConf = $bpc->ConfigDataRead();
 
-my $data;
+my $json;
 foreach my $host (keys %$hosts){
    my $hostConf = $bpc->ConfigDataRead($host);
    my $conf = { %$mainConf, %$hostConf };
    my $period = ($conf->{FullPeriod} >= $conf->{IncrPeriod}) ? $conf->{IncrPeriod} : $conf->{FullPeriod};
    my $status = ($conf->{BackupsDisable} eq 1) ? 'disabled':'enabled';
-   push @{$data->{data}},
+   push @{$json->{data}},
        {  
            "{#BPCHOST}" => $host,
            "{#BPCPERIOD}" => $period,
            "{#BPCSTATUS}" => $status,
        };
 }
-print to_json($data, {pretty => 1});
+print to_json($json);
 exit(0);