Merge pull request #1215 from metacpan/haarg/no-ratings

remove code for CPANRatings

Author: haarg

.gitignore

@@ -1,7 +1,3 @@
-# carton/local::lib
-# coverage
-# generated by Makefile.PL (for instance when doing `cpanm --installdeps .`)
-# tidyall
 *.komodoproject
 *.kpf
 *.sqlite*
@@ -12,14 +8,14 @@
 /Makefile
 /Makefile.old
 /blib
+/cover_db/
 /etc/metacpan_local.pl
+/local/
+/log4perl_local.conf
+/metacpan_server_local.conf
+/perltidy.LOG
 /pm_to_blib
 /t/var/darkpan/
 /t/var/log/
 /t/var/tmp/
 /var
-cover_db/
-local/
-log4perl_local.conf
-metacpan_server_local.conf
-perltidy.LOG

docs/API-docs.md

@@ -32,7 +32,6 @@ Available fields can be found by accessing the corresponding `_mapping` endpoint
 * [`/favorite/_mapping`](https://fastapi.metacpan.org/v1/favorite/_mapping) - [explore](https://explorer.metacpan.org/?url=/favorite/_mapping)
 * [`/file/_mapping`](https://fastapi.metacpan.org/v1/file/_mapping) - [explore](https://explorer.metacpan.org/?url=/file/_mapping)
 * [`/module/_mapping`](https://fastapi.metacpan.org/v1/module/_mapping) - [explore](https://explorer.metacpan.org/?url=/module/_mapping)
-* [`/rating/_mapping`](https://fastapi.metacpan.org/v1/rating/_mapping) - [explore](https://explorer.metacpan.org/?url=/rating/_mapping)
 * [`/release/_mapping`](https://fastapi.metacpan.org/v1/release/_mapping) - [explore](https://explorer.metacpan.org/?url=/release/_mapping)
 
 
@@ -48,7 +47,6 @@ Performing a search without any constraints is an easy way to get sample data
 * [`/distribution/_search`](https://fastapi.metacpan.org/v1/distribution/_search)
 * [`/favorite/_search`](https://fastapi.metacpan.org/v1/favorite/_search)
 * [`/file/_search`](https://fastapi.metacpan.org/v1/file/_search)
-* [`/rating/_search`](https://fastapi.metacpan.org/v1/rating/_search)
 * [`/release/_search`](https://fastapi.metacpan.org/v1/release/_search)
 
 ## JSONP

lib/MetaCPAN/Document/Rating.pm

@@ -12,7 +12,6 @@ use MetaCPAN::Script::Mapping::CPAN::File         ();
 use MetaCPAN::Script::Mapping::CPAN::Mirror       ();
 use MetaCPAN::Script::Mapping::CPAN::Permission   ();
 use MetaCPAN::Script::Mapping::CPAN::Package      ();
-use MetaCPAN::Script::Mapping::CPAN::Rating       ();
 use MetaCPAN::Script::Mapping::CPAN::Release      ();
 use MetaCPAN::Script::Mapping::DeployStatement    ();
 use MetaCPAN::Script::Mapping::User::Account      ();
@@ -511,8 +510,6 @@ sub _build_mapping {
                 MetaCPAN::Script::Mapping::CPAN::Permission::mapping),
             package => decode_json(
                 MetaCPAN::Script::Mapping::CPAN::Package::mapping),
-            rating =>
-                decode_json(MetaCPAN::Script::Mapping::CPAN::Rating::mapping),
             release => decode_json(
                 MetaCPAN::Script::Mapping::CPAN::Release::mapping),
         },

lib/MetaCPAN/Document/Rating/Set.pm

@@ -47,7 +47,6 @@ sub _build_bulk {
         file => $self->es->bulk_helper( index => $index, type => 'file' ),
         permission =>
             $self->es->bulk_helper( index => $index, type => 'permission' ),
-        rating => $self->es->bulk_helper( index => $index, type => 'rating' ),
         release =>
             $self->es->bulk_helper( index => $index, type => 'release' ),
     };
@@ -65,17 +64,6 @@ sub _get_scroller_release {
     );
 }
 
-sub _get_scroller_rating {
-    my ( $self, $query ) = @_;
-    return $self->es->scroll_helper(
-        size   => 500,
-        scroll => '10m',
-        index  => $self->index->name,
-        type   => 'rating',
-        body   => { query => $query },
-    );
-}
-
 sub _get_scroller_file {
     my ( $self, $query ) = @_;
     return $self->es->scroll_helper(
@@ -132,7 +120,6 @@ sub run {
         }
         $self->purge_author_releases;
         $self->purge_favorite;
-        $self->purge_rating;
         if ( !$self->release ) {
             $self->purge_author;
             $self->purge_contributor;
@@ -330,87 +317,6 @@ sub purge_contributor {
     };
 }
 
-sub purge_rating {
-    my $self = shift;
-
-    if ( $self->release ) {
-        $self->purge_rating_release;
-    }
-    else {
-        $self->purge_rating_author;
-    }
-}
-
-sub purge_rating_release {
-    my $self = shift;
-    log_info {
-        'Looking all up ratings for release '
-            . $self->release
-            . ' author '
-            . $self->author
-    };
-
-    my @remove;
-
-    my $query = {
-        bool => {
-            must => [
-                { term => { author  => $self->author } },
-                { term => { release => $self->release } }
-            ]
-        }
-    };
-
-    my $scroll_rating = $self->_get_scroller_rating($query);
-
-    while ( my $r = $scroll_rating->next ) {
-        log_debug {
-            'Removing ratings for release '
-                . $self->release
-                . ' by author '
-                . $self->author
-        };
-        push @remove, $r->{_id};
-    }
-
-    if (@remove) {
-        $self->bulk->{rating}->delete_ids(@remove);
-        $self->bulk->{rating}->flush;
-    }
-
-    log_info {
-        'Finished purging rating entries for release '
-            . $self->release
-            . ' by author '
-            . $self->author
-    };
-}
-
-sub purge_rating_author {
-    my $self = shift;
-    log_info { 'Looking all up ratings for author ' . $self->author };
-
-    my @remove;
-
-    my $query = { term => { author => $self->author } };
-
-    my $scroll_rating = $self->_get_scroller_rating($query);
-
-    while ( my $r = $scroll_rating->next ) {
-        log_debug { 'Removing ratings related to author ' . $self->author };
-        push @remove, $r->{_id};
-    }
-
-    if (@remove) {
-        $self->bulk->{rating}->delete_ids(@remove);
-        $self->bulk->{rating}->flush;
-    }
-
-    log_info {
-        'Finished purging rating entries related to author ' . $self->author
-    };
-}
-
 __PACKAGE__->meta->make_immutable;
 1;