aboutsummaryrefslogtreecommitdiff
path: root/SBO-Lib/lib/SBO/App/Snap.pm
diff options
context:
space:
mode:
Diffstat (limited to 'SBO-Lib/lib/SBO/App/Snap.pm')
-rw-r--r--SBO-Lib/lib/SBO/App/Snap.pm95
1 files changed, 0 insertions, 95 deletions
diff --git a/SBO-Lib/lib/SBO/App/Snap.pm b/SBO-Lib/lib/SBO/App/Snap.pm
deleted file mode 100644
index 64487d7..0000000
--- a/SBO-Lib/lib/SBO/App/Snap.pm
+++ /dev/null
@@ -1,95 +0,0 @@
-package SBO::App::Snap;
-
-# vim: ts=2:et
-#
-# sbosnap
-# script to pull down / update a local copy of the slackbuilds.org tree.
-#
-# authors: Jacob Pipkin <j@dawnrazor.net>
-# Luke Williams <xocel@iquidus.org>
-# Andreas Guldstrand <andreas.guldstrand@gmail.com>
-# maintainer: Slack Coder <slackcoder@server.ky>
-
-use 5.16.0;
-use strict;
-use warnings FATAL => 'all';
-use SBO::Lib qw/ _ERR_USAGE fetch_tree import_gpg_key update_tree %config show_version /;
-use Getopt::Long qw/ GetOptionsFromArray /;
-
-use parent 'SBO::App';
-
-our $VERSION = '2.8.0';
-
-sub _parse_opts {
- my $class = shift;
- my @ARGS = @_;
-
- my ($help, $vers);
-
- GetOptionsFromArray(
- \@ARGS,
- 'help|h' => \$help,
- 'version|v' => \$vers,
- );
-
- return { help => $help, vers => $vers, args => \@ARGS, };
-}
-
-sub show_usage {
- my $self = shift;
- my $fname = $self->{fname};
- print <<"EOF";
-Usage: $fname [options|command]
-
-Options:
- -h|--help:
- this screen.
- -v|--version:
- version information.
-
-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")
-
-EOF
- return 1;
-}
-
-sub run {
- my $self = shift;
- my @args = @{ $self->{args} };
-
- if ($self->{help}) { $self->show_usage(); return 0 }
- if ($self->{vers}) { $self->show_version(); return 0 }
-
- unless ($< == 0) {
- warn "This script requires root privileges.\n";
- exit _ERR_USAGE;
- }
-
- # check for a command and, if found, execute it
- $args[0] //= '';
-
- if ($args[0] eq 'fetch') {
- 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();
- } else {
- $self->show_usage();
- return 1;
- }
-
- return 0;
-}
-
-1;