GPG verification

1 files changed, 13 insertions, 4 deletions

diff --git a/SBO-Lib/lib/SBO/App/Snap.pm b/SBO-Lib/lib/SBO/App/Snap.pm
index 00aea38..d2b0f57 100644
--- a/SBO-Lib/lib/SBO/App/Snap.pm
+++ b/SBO-Lib/lib/SBO/App/Snap.pm
@@ -13,12 +13,12 @@ package SBO::App::Snap;
 use 5.16.0;
 use strict;
 use warnings FATAL => 'all';
-use SBO::Lib qw/ fetch_tree update_tree %config show_version /;
+use SBO::Lib qw/ fetch_tree import_gpg_key update_tree %config show_version /;
 use Getopt::Long qw/ GetOptionsFromArray /;
 
 use parent 'SBO::App';
 
-our $VERSION = '2.7.2';
+our $VERSION = '2.7.4';
 
 sub _parse_opts {
   my $class = shift;
@@ -49,6 +49,7 @@ Options:
 
 Commands:
   fetch: initialize a local copy of the slackbuilds.org tree.
+  import-key [path or url]: import GPG for verifying the slackbuilds.org tree. Defaults to the key shipped with sbotools2.
   update: update an existing local copy of the slackbuilds.org tree.
           (generally, you may prefer "sbocheck" over "$fname update")
 
@@ -67,9 +68,17 @@ sub run {
   $args[0] //= '';
 
   if ($args[0] eq 'fetch') {
-    fetch_tree()
+    fetch_tree();
+  } elsif ($args[0] eq 'import-key') {
+    my $key_path_or_url = "/usr/doc/sbotools2-$VERSION/slackbuilds-devel\@slackbuilds.org.asc";
+    if ($args[1]) {
+      $key_path_or_url = $args[1];
+    }
+    my $key_id = $config{'GPG_KEY'};
+
+    import_gpg_key($key_path_or_url, $key_id);
   } elsif ($args[0] eq 'update') {
-    update_tree()
+    update_tree();
   } else {
     $self->show_usage();
     return 1;