From 07bb168aded73fc466ce42af8042c7edefd267e2 Mon Sep 17 00:00:00 2001
From: heuzef <contact@heuzef.com>
Date: Tue, 20 Feb 2018 15:55:34 +0100
Subject: [PATCH] Export resultat in JSON format

---
 defacement_check.pl | 19 +++++++++++++++----
 1 file changed, 15 insertions(+), 4 deletions(-)

diff --git a/defacement_check.pl b/defacement_check.pl
index 261b44c..986691c 100644
--- a/defacement_check.pl
+++ b/defacement_check.pl
@@ -2,6 +2,7 @@
 use strict;
 use XML::Simple;
 use Data::Dumper;
+use JSON qw(to_json);
 
 # Date
 use POSIX qw(strftime);
@@ -126,13 +127,23 @@ foreach $file (@files)
   }
   close(FH);
   # print "\033[36mTREATH detected on this site \t\t\t\t=> [" . $somme_total_found . "]\n\n"; # Total
-  print $somme_total_found; # Total
+  # print $somme_total_found; # Total
   $grand_total_found = $somme_total_found + $grand_total_found;
 }
 
 # print "\033[36mGrand Total TREATH detected on ALL website \t\t=> [" . $grand_total_found . "]\n\n"; # Grand Total
 
 # Print just the last binaire results in output file
-open(my $out, '>', 'out.txt');
-print $out $grand_total_found;
-close $out;
+# open(my $out, '>', 'out.txt');
+# print $out $grand_total_found;
+# close $out;
+
+
+# Print results in JSON
+my $out = {
+  site     => $site,
+  threats  => $grand_total_found,
+  date     => $date
+};
+
+print to_json($out, { pretty => 1 });