summary refs log tree commit diff stats
path: root/lib
diff options
context:
space:
mode:
Diffstat (limited to 'lib')
-rw-r--r--lib/Orion/CLI.rakumod11
1 files changed, 4 insertions, 7 deletions
diff --git a/lib/Orion/CLI.rakumod b/lib/Orion/CLI.rakumod
index bce24a7..3fe01b8 100644
--- a/lib/Orion/CLI.rakumod
+++ b/lib/Orion/CLI.rakumod
@@ -1,8 +1,6 @@
 use LWP::Simple;
 use Digest::SHA;
 
-#proto MAIN(|) is export { unless so @*ARGS { say $*USAGE; exit }; {*} }
-
 multi sub MAIN(
     Bool :$verbose, #=increase verbosity
 ) is export {
@@ -27,11 +25,10 @@ multi sub MAIN(
                 Add-Padding => "true",
                 User-Agent => "Andinus / Orion - https://andinus.nand.sh/orion",
             }
-        ).lines.map(*.split(":")) -> ($entry, $freq) {
-            next if $freq == 0;
-            if $hash.substr(5, *) eq $entry.split(":").head {
-                say $file.Str.split('.password-store/').tail.split('.gpg').first, " ",
-                "has been seen $freq times before.";
+        ).lines.map(*.split(":")).grep(*[1] > 0) -> ($entry, $freq) {
+            if $hash.substr(5, *) eq $entry {
+                my Str $pass = $file.Str.split('.password-store/').tail.split('.gpg').first;
+                say $pass, " " x (72 - $pass.chars - $freq.chars), $freq;
             };
         }
     }
c1247d1d68b1b2d47f5b500c'>^
74f1512f ^










41535426 ^
74f1512f ^
41535426 ^
7ecfd5eb ^
41535426 ^

74f1512f ^
8c78c3eb ^
74f1512f ^

c8e41a47 ^
9511ff5c ^
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34