From 77025ae12bba4c23f173329c04bd1f1e41c9867e Mon Sep 17 00:00:00 2001
From: Andinus <andinus@nand.sh>
Date: Sat, 15 Oct 2022 22:49:47 +0530
Subject: Add comments, print dots on verbosity

---
 lib/Orion/CLI.rakumod | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

(limited to 'lib/Orion/CLI.rakumod')

diff --git a/lib/Orion/CLI.rakumod b/lib/Orion/CLI.rakumod
index 3fe01b8..985f8e1 100644
--- a/lib/Orion/CLI.rakumod
+++ b/lib/Orion/CLI.rakumod
@@ -16,9 +16,13 @@ multi sub MAIN(
     }
 
     for @files -> $file {
+        print "." if $verbose;
+
         my $proc = run <gpg2>, '--decrypt', '--quiet', $file, :out;
+        # Read the password, convert it to hex & uppercase.
         my Str $hash = uc buf_to_hex sha1 $proc.out.slurp(:close).lines.head;
 
+        # Send the prefix to HIBP API.
         for LWP::Simple.get(
             "$api/range/{ $hash.substr(0, 5) }",
             {
@@ -26,12 +30,17 @@ multi sub MAIN(
                 User-Agent => "Andinus / Orion - https://andinus.nand.sh/orion",
             }
         ).lines.map(*.split(":")).grep(*[1] > 0) -> ($entry, $freq) {
+            # Compare all the suffixes with our hash suffix.
             if $hash.substr(5, *) eq $entry {
+                # Get the password name.
                 my Str $pass = $file.Str.split('.password-store/').tail.split('.gpg').first;
-                say $pass, " " x (72 - $pass.chars - $freq.chars), $freq;
-            };
+                # Print the compromised password entry.
+                print "\n" if $verbose;
+                put $pass, " " x (72 - $pass.chars - $freq.chars), $freq;
+            }
         }
     }
+    print "\n" if $verbose;
 }
 
 sub buf_to_hex { [~] $^buf.list».fmt: "%02x" }
-- 
cgit 1.4.1-2-gfad0