Add verbose mode (--verbose)

7 years ago · ca201d2d3f
parent c5c4154685
commit ca201d2d3f
1 changed files with 3 additions and 1 deletions
--- a/defacement_check.pl
+++ b/defacement_check.pl
@ -62,7 +62,9 @@ foreach $file (@files)
    # Results
    foreach (uniq(@found)) {
      $total_found++;
-      # print $total_found . " : " . $_ . "\n"; # VERBOSE MODE
+      if ($ARGV[0] eq '--verbose') {
+        print "\033[36m" . $total_found . " : " . $_ . "\n";
+      }
    }
    if ($total_found == 0) {
      print "\033[32m" . $total_found . "\t\t=> " . $survey. "\n";