Added /release/recent API endpoint, removed /release/requires

This will replace query sending from WEB. This commit also removes /release/requires endpoint which was already moved to the new ReverseDependencies controller.
metacpan · Jun 22, 2017 · fe21902 · fe21902
1 parent b9a91e1
commit fe21902
Show file tree

Hide file tree

Showing 2 changed files with 61 additions and 6 deletions.
diff --git a/lib/MetaCPAN/Document/Release.pm b/lib/MetaCPAN/Document/Release.pm
@@ -904,5 +904,61 @@ sub _get_depended_releases {
     return [ map { $_->{_source} } @{ $depended->{hits}{hits} } ];
 }
 
+sub recent {
+    my ( $self, $page, $page_size, $type ) = @_;
+    my $query;
+
+    if ( $type eq 'n' ) {
+        $query = {
+            constant_score => {
+                filter => {
+                    bool => {
+                        must => [
+                            { term  => { first  => 1 } },
+                            { terms => { status => [qw< cpan latest >] } },
+                        ]
+                    }
+                }
+            }
+        };
+    }
+    elsif ( $type eq 'a' ) {
+        $query = { match_all => {} };
+    }
+    else {
+        $query = {
+            constant_score => {
+                filter => {
+                    terms => { status => [qw< cpan latest >] }
+                }
+            }
+        };
+    }
+
+    my $body = {
+        size   => $page_size,
+        from   => ( $page - 1 ) * $page_size,
+        query  => $query,
+        fields => [qw(name author status abstract date distribution)],
+        sort   => [ { 'date' => { order => 'desc' } } ]
+    };
+
+    my $ret = $self->es->search(
+        index => $self->index->name,
+        type  => 'release',
+        body  => $body,
+    );
+    return unless $ret->{hits}{total};
+
+    my $data = [ map { $_->{fields} } @{ $ret->{hits}{hits} } ];
+    single_valued_arrayref_to_scalar($data);
+
+    return {
+        releases => $data,
+        total    => $ret->{hits}{total},
+        took     => $ret->{took}
+    };
+}
+
 __PACKAGE__->meta->make_immutable;
 1;
diff --git a/lib/MetaCPAN/Server/Controller/Release.pm b/lib/MetaCPAN/Server/Controller/Release.pm
@@ -67,11 +67,10 @@ sub files : Path('files') : Args(1) {
     $c->stash($data);
 }
 
-# TODO: remove after deployed in Controller::ReverseDependencies
-sub requires : Path('requires') : Args(1) {
-    my ( $self, $c, $module ) = @_;
-    my @params = @{ $c->req->params }{qw< page page_size sort >};
-    my $data = $self->model($c)->raw->requires( $module, @params );
+sub recent : Path('recent') : Args(0) {
+    my ( $self, $c ) = @_;
+    my @params = @{ $c->req->params }{qw( page page_size type )};
+    my $data   = $self->model($c)->raw->recent(@params);
     return unless $data;
     $c->stash($data);
 }
@@ -85,7 +84,7 @@ sub latest_by_author : Path('latest_by_author') : Args(1) {
 
 sub all_by_author : Path('all_by_author') : Args(1) {
     my ( $self, $c, $pauseid ) = @_;
-    my @params = @{ $c->req->params }{qw< page page_size >};
+    my @params = @{ $c->req->params }{qw( page page_size )};
     my $data = $self->model($c)->raw->all_by_author( $pauseid, @params );
     return unless $data;
     $c->stash($data);