]> git.sesse.net Git - wloh/blob - www/rating.pl
Increase the expiry time for the ratings page, and rely on clearing it explicitly...
[wloh] / www / rating.pl
1 #! /usr/bin/perl
2 use strict;
3 use warnings;
4 no warnings qw(once);
5 use CGI;
6 use CGI::Carp qw( fatalsToBrowser );
7 use DBI;
8 use Encode;
9 use POSIX;
10 use HTML::Entities;
11 use utf8;
12 use locale;
13 use lib qw(../include);
14 require 'config.pm';
15 require 'common.pm';
16
17 my $dbh = DBI->connect($config::local_connstr, $config::local_username, $config::local_password)
18         or die "connect: " . $DBI::errstr;
19 $dbh->{AutoCommit} = 0;
20 $dbh->{RaiseError} = 1;
21
22 binmode STDOUT, ':utf8';
23
24 my $cgi = CGI->new;
25 my $locale = wloh_common::get_locale($cgi);
26
27 my $aux_parms = wloh_common::get_auxillary_parameters($dbh, $locale);
28
29 wloh_common::set_locale($locale);
30
31 my $season = wloh_common::get_max_season($dbh, $locale);
32
33 # Pick up all the subdivisions' ratings.
34 my %subdivision_ratings = ();
35 my $q = $dbh->prepare('SELECT divisjon, avdeling, serie_id, AVG(rating) AS avg_rating FROM ratings NATURAL JOIN siste_divisjon NATURAL JOIN spiller_kultur WHERE kultur=? AND sesong=? GROUP BY divisjon, avdeling, serie_id ORDER BY divisjon, avdeling');
36 $q->execute($locale, $season);
37
38 while (my $ref = $q->fetchrow_hashref) {
39         my $division = $ref->{'divisjon'};
40         my $rating = $ref->{'avg_rating'};
41         my $id = $ref->{'serie_id'};
42
43         push @{$subdivision_ratings{$division}}, [ $id, $rating ];
44 }
45
46 $q = $dbh->prepare('SELECT divisjon,AVG(rating) AS avg_rating,STDDEV(rating) AS stddev_rating FROM ratings NATURAL JOIN siste_divisjon NATURAL JOIN spiller_kultur WHERE kultur=? AND sesong=? GROUP BY divisjon ORDER BY divisjon');
47 $q->execute($locale, $season);
48
49 my @divisions = ();
50
51 my $i = 0;
52 while (my $ref = $q->fetchrow_hashref) {
53         my %division = ();
54
55         $division{'#rank'} = wloh_common::get_ordinal($ref->{'divisjon'}, $locale);
56         $division{'#average'} = sprintf "%.1f", $ref->{'avg_rating'};
57         $division{'#stddev'} = sprintf "%.1f", $ref->{'stddev_rating'};
58
59         my @subdivisions = ();
60         for my $arr (@{$subdivision_ratings{$ref->{'divisjon'}}}) {
61                 my ($id, $rating) = @$arr;
62                 push @subdivisions, {
63                         '#divlink' => sprintf("%.1f", $rating),
64                         '#divlink/href' => sprintf("http://wordfeud.aasmul.net/serie-%d", $id)
65                 };
66         }
67
68         $division{'subdivisions'} = \@subdivisions;
69
70         push @divisions, \%division;
71 }
72
73 $q = $dbh->prepare('
74 SELECT *
75 FROM ratings
76   NATURAL JOIN kanonisk_navn
77   NATURAL JOIN siste_divisjon
78   NATURAL JOIN spiller_kultur
79 WHERE kultur=?
80 ORDER BY rating DESC');
81 $q->execute($locale);
82
83 my @players = ();
84
85 $i = 0;
86 while (my $ref = $q->fetchrow_hashref) {
87         my %player = ();
88
89         $player{'#rank'} = wloh_common::get_ordinal(++$i, $locale);
90         $player{'#user'} = Encode::decode_utf8($ref->{'navn'});
91         $player{'#user/href'} = sprintf "http://wordfeud.aasmul.net/bruker-%d", $ref->{'id'};
92         $player{'#rating'} = sprintf "%.1f", $ref->{'rating'};
93         $player{'#stddev'} = sprintf "%.1f", $ref->{'rating_stddev'};
94         $player{'#divlink'} = $ref->{'serie_navn'};
95         $player{'#divlink/href'} = sprintf "http://wordfeud.aasmul.net/serie-%d", $ref->{'serie_id'};
96
97         push @players, \%player;
98 }
99
100 print CGI->header(-type=>'text/html; charset=utf-8', -expires=>'+75m');
101 wloh_common::process_template('rating', $locale, {
102         '#navbar' => wloh_common::get_navbar($cgi, $dbh, $locale),
103         'iterations' => $aux_parms->{'num_iterations'},
104         'rating-prior-stddev' => sprintf("%.1f", $aux_parms->{'rating_prior_stddev'}),
105         'match-stddev' => sprintf("%.1f", $aux_parms->{'score_stddev'} * sqrt(2.0)),
106         '#divisions' => XML::Template::alternate('tr/class', \@divisions, 'even', 'odd'),
107         '#players' => XML::Template::alternate('tr/class', \@players, 'even', 'odd'),
108         'last-sync' => wloh_common::get_last_sync($dbh)
109 });
110
111 $dbh->rollback;