Fix disco_filesystem

and switch to JSON module instead of manually printing (invalid) JSON data

zabbix_scripts/disco_filesystems

@@ -1,9 +1,8 @@
 #!/usr/bin/perl
 
-$first = 1;
+use JSON;
- 
+my $json;
-print "{\n";
+@{$json->{data}} = ();
-print "\t\"data\":[\n\n";
 
 my $cmd;
 my $re;
@@ -36,19 +35,15 @@ for (`$cmd`){
        chomp($t);
        $critical = $t if ($t =~ m/^\d+$/);
     }
-    $fsname =~ s!/!\\/!g;
- 
-    print "\t,\n" if not $first;
-    $first = 0;
 
-    print "\t{\n";
+    push @{$json->{data}}, {
-    print "\t\t\"{#FSNAME}\":\"$fsname\",\n";
+      "{#FSNAME}"      => $fsname,
-    print "\t\t\"{#FSTYPE}\":\"$fstype\"\n";
+      "{#FSTYPE}"      => $fstype,
-    print "\t\t\"{#FSDEVICE}\":\"$block\"\n";
+      "{#FSDEVICE}"    => $block,
-    print "\t\t\"{#FSWARNTHRES}\":\"$warning\"\n";
+      "{#FSWARNTHRES}" => $warning,
-    print "\t\t\"{#FSCRITTHRES}\":\"$critical\"\n";
+      "{#FSCRITTHRES}" => $critical
-    print "\t}\n";
+    };
 }
 
-print "\n\t]\n";
+print to_json($json);
-print "}\n";
+exit(0);