Script for adding and listing the stargazers.

metacpan · Jul 4, 2014 · 7b2d99b · 7b2d99b
1 parent 0e51532
commit 7b2d99b
Showing 1 changed file with 48 additions and 0 deletions.
diff --git a/lib/MetaCPAN/Web/Controller/Account/Stargazer.pm b/lib/MetaCPAN/Web/Controller/Account/Stargazer.pm
@@ -0,0 +1,48 @@
+package MetaCPAN::Web::Controller::Account::Stargazer;
+
+use Moose;
+BEGIN { extends 'MetaCPAN::Web::Controller' }
+
+sub add : Local {
+    my ( $self, $c ) = @_;
+    $c->detach('/forbidden') unless ( $c->req->method eq 'POST' );
+    my $model = $c->model('API::User');
+    my $data  = $c->req->params;
+    my $res;
+    if ( $data->{remove} ) {
+        $res = $model->remove_stargazer( $data, $c->token )->recv;
+    }
+    else {
+        $res = $model->add_stargazer( $data, $c->token )->recv;
+    }
+    if ( $c->req->looks_like_browser ) {
+        $c->res->redirect(
+              $res->{error}
+            ? $c->req->referer
+            : $c->uri_for('/account/turing/index')
+        );
+    }
+    else {
+        $c->stash( { success => $res->{error} ? \0 : \1 } );
+        $c->res->code(400) if ( $res->{error} );
+        $c->detach( $c->view('JSON') );
+    }
+}
+
+sub list : Local {
+    my ( $self, $c ) = @_;
+
+    my $user = $c->model('API::User')->get_profile( $c->token )->recv;
+
+    my $stars_cv   = $c->model('API::Stargazer')->by_user( $user->{user} );
+    my $stars_data = $stars_cv->recv;
+    my $stars      = [
+        sort { $b->{date} cmp $a->{date} }
+        map  { $_->{fields} } @{ $stars_data->{hits}{hits} }
+    ];
+
+    $c->stash( { stars => $stars } );
+
+}
+
+__PACKAGE__->meta->make_immutable;