From 0635e6c0644bb95e985a7d4608933ca1a4896edf Mon Sep 17 00:00:00 2001 From: heuzef Date: Fri, 9 Feb 2018 14:30:12 +0100 Subject: [PATCH] Add somes comments --- defacement_check.pl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/defacement_check.pl b/defacement_check.pl index f25516b..7a131cf 100644 --- a/defacement_check.pl +++ b/defacement_check.pl @@ -112,7 +112,7 @@ foreach $file (@files) } } - # Results + # Views results foreach (uniq(@found)) { $total_found++; print "\033[33m[" . $total_found . "]\t\t" . $_ . "\n"; # VERBOSE @@ -125,13 +125,13 @@ foreach $file (@files) } } close(FH); - print "\033[36mTREATH detected on this site \t\t\t\t=> [" . $somme_total_found . "]\n\n"; + print "\033[36mTREATH detected on this site \t\t\t\t=> [" . $somme_total_found . "]\n\n"; # 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"; +# print "\033[36mGrand Total TREATH detected on ALL website \t\t=> [" . $grand_total_found . "]\n\n"; # Grand Total -# Print results in Output file +# Print just the last binaire results in output file open(my $out, '>', 'out.txt'); print $out $grand_total_found; close $out;