summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--README.md6
-rw-r--r--cpanfile3
-rw-r--r--lib/App/ArchLinux/PackagerTools.pm14
-rwxr-xr-xscript/perlpkg.pl3
4 files changed, 25 insertions, 1 deletions
diff --git a/README.md b/README.md
index 03523a9..570ff7a 100644
--- a/README.md
+++ b/README.md
@@ -56,6 +56,12 @@ Accepts a package name and returns the maintainers of the package.
Accepts a list of packages (hashes with the pkgname key) and returns a list
with the maintainer key added to each package.
+### filter\_by\_maintainer
+
+ my $filtered_packages = $app->filter_by_maintainer($packages);
+
+Filter a list of packages to the maintainers whitelisted in the config file.
+
# LICENSE
Copyright (C) 2018 Florian Pritz <bluewind@xinu.at>
diff --git a/cpanfile b/cpanfile
index 2896443..0070edb 100644
--- a/cpanfile
+++ b/cpanfile
@@ -3,16 +3,17 @@ requires 'CPAN::DistnameInfo';
requires 'Function::Parameters';
requires 'Hash::Merge';
requires 'IPC::Run';
+requires 'List::Util';
requires 'Log::Any';
requires 'Log::Any::Adapter';
requires 'Log::Log4perl';
requires 'Path::Tiny';
requires 'Syntax::Keyword::Try';
requires 'TOML';
+requires 'WWW::JSON';
requires 'autodie';
requires 'perl', 'v5.24.0';
requires 'strictures';
-requires 'WWW::JSON';
requires 'version';
on configure => sub {
diff --git a/lib/App/ArchLinux/PackagerTools.pm b/lib/App/ArchLinux/PackagerTools.pm
index 720f056..fa246e6 100644
--- a/lib/App/ArchLinux/PackagerTools.pm
+++ b/lib/App/ArchLinux/PackagerTools.pm
@@ -7,6 +7,7 @@ our $VERSION = "0.01";
use autodie;
use Function::Parameters;
use Log::Any qw($log);
+use List::Util 1.33 qw(any);
use App::ArchLinux::PackagerTools::Pacman;
use App::ArchLinux::PackagerTools::CPAN;
@@ -144,6 +145,19 @@ method add_maintainers($packages) {
return \@packages_with_maintainer;
}
+=head3 filter_by_maintainer
+
+ my $filtered_packages = $app->filter_by_maintainer($packages);
+
+Filter a list of packages to the maintainers whitelisted in the config file.
+
+=cut
+
+method filter_by_maintainer($packages) {
+ # TODO make configurable
+ return [grep { any {$_->{name} eq 'bluewind'} $_->{maintainers}->@*} $packages->@*];
+}
+
=head1 LICENSE
Copyright (C) 2018 Florian Pritz E<lt>bluewind@xinu.atE<gt>
diff --git a/script/perlpkg.pl b/script/perlpkg.pl
index e6cac27..03bdb92 100755
--- a/script/perlpkg.pl
+++ b/script/perlpkg.pl
@@ -55,6 +55,9 @@ my $dists = $app->get_distributions_in_repo();
my $dist_names = [map {$_->{dist_name}} $dists->@*];
my $updateable = $app->get_updateable_packages($dist_names);
my $pkgs = $app->add_maintainers($updateable);
+my $filtered_pkgs = $app->filter_by_maintainer($pkgs);
+
+print Dumper($filtered_pkgs);
# TODO generate new pacakge pkgbuild
# TODO build