Adds permissions type for 06perms.

metacpan · Mar 16, 2014 · 3aec64f · 3aec64f
1 parent 5d5281a
commit 3aec64f
Show file tree

Hide file tree

Showing 4 changed files with 102 additions and 1 deletion.
diff --git a/cpanfile b/cpanfile
@@ -98,6 +98,7 @@ requires 'MooseX::Types::Path::Class';
 requires 'MooseX::Types::Structured';
 requires 'Mozilla::CA';
 requires 'Net::Twitter';
+requires 'PAUSE::Permissions';
 requires 'Parse::CPAN::Packages::Fast', '0.04';
 requires 'Parse::CSV';
 requires 'Parse::PMFile', '0.05';

diff --git a/lib/MetaCPAN/Document/Permissions.pm b/lib/MetaCPAN/Document/Permissions.pm
@@ -0,0 +1,30 @@
+package MetaCPAN::Document::Permissions;
+
+use strict;
+use warnings;
+
+use Moose;
+use ElasticSearchX::Model::Document;
+use MetaCPAN::Util;
+use MooseX::StrictConstructor;
+
+has name => (
+    is       => 'ro',
+    isa      => 'Str',
+    required => 1,
+);
+
+has owner => (
+    is       => 'ro',
+    isa      => 'Str',
+    required => 0,
+);
+
+has co_maintainers => (
+    is       => 'ro',
+    isa      => 'ArrayRef',
+    required => 0,
+);
+
+__PACKAGE__->meta->make_immutable;
+1;
diff --git a/lib/MetaCPAN/Script/Mapping.pm b/lib/MetaCPAN/Script/Mapping.pm
@@ -81,5 +81,5 @@ sub map_perlmongers {
 
 }
 
-__PACKAGE__->meta->make_immutable;
+__PACKAGE__->meta->make_immutable();
 1;
diff --git a/lib/MetaCPAN/Script/Permissions.pm b/lib/MetaCPAN/Script/Permissions.pm
@@ -0,0 +1,70 @@
+package MetaCPAN::Script::Permissions;
+
+use strict;
+use warnings;
+
+use Moose;
+with 'MooseX::Getopt', 'MetaCPAN::Role::Common';
+
+use Log::Contextual qw( :log );
+use PAUSE::Permissions;
+
+#use MetaCPAN::Document::Permissions;
+
+=head1 SYNOPSIS
+
+Loads 06perms info into db. Does not require the presence of a local
+CPAN/minicpan.
+
+=cut
+
+has author_fh => (
+    is      => 'rw',
+    traits  => ['NoGetopt'],
+    lazy    => 1,
+    default => sub { shift->cpan . '/authors/00whois.xml' },
+);
+
+sub run {
+    my $self = shift;
+    $self->index_permissions;
+    $self->index->refresh;
+}
+
+sub index_permissions {
+    my $self = shift;
+
+    my $pp   = PAUSE::Permissions->new;
+    my $type = $self->index->type('permissions');
+    my $bulk = $self->model->bulk( size => 100 );
+
+    my $iterator = $pp->module_iterator();
+    while ( my $mp = $iterator->next_module ) {
+        my $put = { name => $mp->name };
+        $put->{owner}          = $mp->owner          if $mp->owner;
+        $put->{co_maintainers} = $mp->co_maintainers if $mp->co_maintainers;
+        $bulk->put( $type->new_document($put) );
+    }
+
+    $self->index->refresh;
+    log_info {"done"};
+}
+
+#__PACKAGE__->meta->make_immutable;
+1;
+
+=pod
+
+=head1 SYNOPSIS
+
+Parse out CPAN author permissions.
+
+    my $perms = MetaCPAN::Script::Permissions->new;
+    my $result = $perms->index_permissions;
+
+=head2 index_authors
+
+Adds/updates all ownership and maintenance permissions in the CPAN index to
+ElasticSearch.
+
+=cut