Add a "show player" page.

[ccbs] / html / player.pl

diff --git a/html/player.pl b/html/player.pl
new file mode 100755 (executable)
index 0000000..0fbde00
--- /dev/null
+++ b/html/player.pl
@@ -0,0 +1,42 @@
+#! /usr/bin/perl
+
+use ccbs;
+use strict;
+use warnings;
+
+my $cgi = new CGI;
+my $id = $cgi->param('id');
+
+my $dbh = ccbs::db_connect();
+
+my $player = $dbh->selectrow_hashref('SELECT * FROM players NATURAL JOIN countries NATURAL LEFT JOIN clubs WHERE player=?', undef, $id);
+my $bestsongs = ccbs::db_fetch_all($dbh, 'SELECT song,title,score,tournament,tournamentname FROM ( SELECT DISTINCT ON (song) song,score,tournament FROM scores WHERE player=? AND score IS NOT NULL ORDER BY song,score DESC ) t1 NATURAL JOIN songs NATURAL JOIN tournaments ORDER BY score DESC LIMIT 10', $id);
+
+# Fetch all scores and count a bit
+my $columns = 0;
+my @allsongs = ();
+my $last_title = undef;
+
+my $scores = ccbs::db_fetch_all($dbh, 'SELECT title,score FROM scores NATURAL JOIN songs WHERE player=? ORDER BY title,score DESC', $id);
+for my $score (@$scores) {
+       my $title = $score->{'title'};
+       if (!defined($last_title) || $title ne $last_title) {
+               push @allsongs, { title => $title, scores => [] };
+       }
+
+       push @{$allsongs[$#allsongs]->{'scores'}}, $score->{'score'};
+
+       my $this_columns = scalar @{$allsongs[$#allsongs]->{'scores'}};
+       $columns = $this_columns if ($this_columns > $columns);
+
+       $last_title = $title;
+}
+
+ccbs::print_header();
+ccbs::process_template('player.tmpl', $player->{'title'}, {
+       player => $player,
+       bestsongs => $bestsongs,
+       allsongs => \@allsongs,
+       columns => $columns
+});
+$dbh->disconnect;