add gpg2 -k parser

nobodyinperson · Jun 15, 2017 · 4aa4bfc · 4aa4bfc
1 parent 5d87f08
commit 4aa4bfc
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 0 deletions.
diff --git a/bin/.gitignore b/bin/.gitignore
@@ -1,3 +1,4 @@
 # instantiated files
 uca-apply
 uca-manip
+parse-gpg2-k
diff --git a/bin/parse-gpg2-k.in b/bin/parse-gpg2-k.in
@@ -0,0 +1,9 @@
+#!@perl_bin@
+use warnings;
+use strict;
+my ($pubkey,$tmp,$name,$email);
+while(<>){ # read from STDIN
+    $pubkey = $tmp if(($tmp) = m#^pub\s*[^/]*/([a-z0-9]+)\s*#ig);
+    ($name,$email) = m#^uid\s*(?:\[[^\]]*\])?\s*(.*)\s*<([^>]*)>#ig;
+    print join("\n",$pubkey,$name,$email),"\n" if($pubkey and $name and $email);
+};