]> git.sesse.net Git - foosball/blob - www/index.pl
Don't show ratings without any information.
[foosball] / www / index.pl
1 #! /usr/bin/perl
2 use strict;
3 use warnings;
4 use lib qw(/srv/bzr.sesse.net/www/xml-template/perl/);
5 use XML::Template;
6 use CGI;
7 require '../foosball.pm',
8
9 my $dbh = foosball::db_connect();
10
11 # Single score board (whoa, inefficient)
12 my @single_top = ();
13 my $q = $dbh->prepare('select username from users');
14 $q->execute();
15 while (my $ref = $q->fetchrow_hashref) {
16         my $username = $ref->{'username'};
17         my ($rating, $rd) = foosball::find_single_rating($dbh, $username);
18         next if ($rating == 0 || $rating == 1500);
19
20         my ($oldrating) = foosball::find_single_rating($dbh, $username, 'AND ratetime::date < current_date ');
21
22         my $trend = "";
23         if (defined($oldrating)) {
24                 $trend = (sprintf "%+d", int($rating-$oldrating+0.5));
25         }
26
27         push @single_top, {
28                 'username' => $username,
29                 'rating' => int($rating+0.5),
30                 'rd' => int($rd+0.5),
31                 'lowerbound' => int($rating - 3.0*$rd + 0.5),
32                 'trend' => $trend,
33         };
34 }
35 @single_top = sort { $b->{'lowerbound'} <=> $a->{'lowerbound'} } @single_top;
36
37 # Double score board
38 my @double_top = ();
39 $q = $dbh->prepare('select username from users');
40 $q->execute();
41 while (my $ref = $q->fetchrow_hashref) {
42         my $username = $ref->{'username'};
43         my ($rating, $rd) = foosball::find_double_rating($dbh, $username);
44         next if ($rating == 0 || $rating == 1500);
45
46         my ($oldrating) = foosball::find_double_rating($dbh, $username, 'AND ratetime::date < current_date ');
47
48         my $trend = "";
49         if (defined($oldrating)) {
50                 $trend = (sprintf "%+d", int($rating-$oldrating+0.5));
51         }
52
53         push @double_top, {
54                 'username' => $username,
55                 'rating' => int($rating+0.5),
56                 'rd' => int($rd+0.5),
57                 'lowerbound' => int($rating - 3.0*$rd + 0.5),
58                 'trend' => $trend,
59         };
60 }
61 @double_top = sort { $b->{'lowerbound'} <=> $a->{'lowerbound'} } @double_top;
62
63 # Last games
64 my @last_games = ();
65 $q = $dbh->prepare('select * from ( select to_char(gametime, \'IYYY-MM-DD HH24:MI\') as gametime,\'Double\' as type,team1_username1 || \' / \' || team1_username2 as username1, team2_username1 || \' / \' || team2_username2 as username2,score1,score2 from double_results union all select to_char(gametime, \'IYYY-MM-DD HH24:MI\') as gametime,\'Single\' as type,username1,username2,score1,score2 from single_results ) t1 order by gametime desc limit 10');
66 $q->execute();
67 while (my $ref = $q->fetchrow_hashref) {
68         push @last_games, $ref;
69 }
70
71 $dbh->disconnect;
72
73 print CGI->header(-type=>'application/xhtml+xml');
74
75 my $doc = XML::Template::process_file('index.xml', {
76         '#singletop' => \@single_top,
77         '#doubletop' => \@double_top,
78         '#lastgames' => \@last_games,
79 });
80 print $doc->toString;