List of members with their ranks

[ndwebbie.git] / lib / NDWeb / Controller / Members.pm

diff --git a/lib/NDWeb/Controller/Members.pm b/lib/NDWeb/Controller/Members.pm
index ae1e8e6f927c675d64847b9655d3ad32c4d5eeff..10e8fbddd616fc22475570ab0e4f57578ef17d00 100644 (file)
--- a/lib/NDWeb/Controller/Members.pm
+++ b/lib/NDWeb/Controller/Members.pm
@@ -268,6 +268,44 @@ ORDER BY } . "$order $limit"
        $c->stash(members => $query->fetchall_arrayref({}));
 }
 
+sub stats : Local {
+       my ( $self, $c, $order ) = @_;
+       my $dbh = $c->model;
+
+       if ($order ~~ /^(scre|value|xp|size|race)$/){
+               $order = "$1rank";
+       }else{
+               $order = 'scorerank';
+       }
+       $order .= ',race' if $order eq 'racerank';
+
+       my $limit = 'LIMIT 10';
+       $limit = '' if $c->check_user_roles(qw/members_points_nolimit/);
+
+       my ($races) = $dbh->selectrow_array(q{SELECT enum_range(null::race)::text[]});
+       $c->stash(races => $races);
+       my $query = $dbh->prepare(q{
+SELECT nick
+       ,rank() OVER(ORDER BY score DESC) AS scorerank
+       ,rank() OVER(ORDER BY value DESC) AS valuerank
+       ,rank() OVER(ORDER BY xp DESC) AS xprank
+       ,rank() OVER(ORDER BY size DESC) AS sizerank
+       ,rank() OVER(PARTITION BY race ORDER BY score DESC) AS racerank
+       ,race
+FROM current_planet_stats
+WHERE alliance = 'NewDawn'
+       AND race = ANY($1)
+ORDER BY } . "$order $limit");
+       my @race = $c->req->param('race');
+       my %race = map { $_ => 1 } @race;
+       $c->stash(race => \%race);
+       unless (@race){
+               @race = @$races;
+       }
+       $query->execute(\@race);
+       $c->stash(members => $query->fetchall_arrayref({}));
+}
+
 sub addintel : Local {
        my ( $self, $c, $order ) = @_;